1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
//===- Version.cpp - Flang Version Number -------------------*- Fortran -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
// This file defines several version-related utility functions for Flang.
//
//===----------------------------------------------------------------------===//
#include "flang/Common/Version.h"
#include "llvm/Support/raw_ostream.h"
#include <cstdlib>
#include <cstring>
#include "VCSVersion.inc"
namespace Fortran::common {
std::string getFlangRepositoryPath() {
#if defined(FLANG_REPOSITORY_STRING)
return FLANG_REPOSITORY_STRING;
#else
#ifdef FLANG_REPOSITORY
return FLANG_REPOSITORY;
#else
return "";
#endif
#endif
}
std::string getLLVMRepositoryPath() {
#ifdef LLVM_REPOSITORY
return LLVM_REPOSITORY;
#else
return "";
#endif
}
std::string getFlangRevision() {
#ifdef FLANG_REVISION
return FLANG_REVISION;
#else
return "";
#endif
}
std::string getLLVMRevision() {
#ifdef LLVM_REVISION
return LLVM_REVISION;
#else
return "";
#endif
}
std::string getFlangFullRepositoryVersion() {
std::string buf;
llvm::raw_string_ostream OS(buf);
std::string Path = getFlangRepositoryPath();
std::string Revision = getFlangRevision();
if (!Path.empty() || !Revision.empty()) {
OS << '(';
if (!Path.empty())
OS << Path;
if (!Revision.empty()) {
if (!Path.empty())
OS << ' ';
OS << Revision;
}
OS << ')';
}
// Support LLVM in a separate repository.
std::string LLVMRev = getLLVMRevision();
if (!LLVMRev.empty() && LLVMRev != Revision) {
OS << " (";
std::string LLVMRepo = getLLVMRepositoryPath();
if (!LLVMRepo.empty())
OS << LLVMRepo << ' ';
OS << LLVMRev << ')';
}
return buf;
}
std::string getFlangFullVersion() { return getFlangToolFullVersion("flang"); }
std::string getFlangToolFullVersion(llvm::StringRef ToolName) {
std::string buf;
llvm::raw_string_ostream OS(buf);
#ifdef FLANG_VENDOR
OS << FLANG_VENDOR;
#endif
OS << ToolName << " version " FLANG_VERSION_STRING;
std::string repo = getFlangFullRepositoryVersion();
if (!repo.empty()) {
OS << " " << repo;
}
return buf;
}
} // end namespace Fortran::common
|
