1c0a5c01aSAaron Smith //===- PDBSymbolCompiland.cpp - compiland details ---------------*- C++ -*-===//
221473f7bSZachary Turner //
32946cd70SChandler Carruth // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
42946cd70SChandler Carruth // See https://llvm.org/LICENSE.txt for license information.
52946cd70SChandler Carruth // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
621473f7bSZachary Turner //
721473f7bSZachary Turner //===----------------------------------------------------------------------===//
821473f7bSZachary Turner
9da611207SAaron Smith #include "llvm/DebugInfo/PDB/IPDBSession.h"
10da611207SAaron Smith #include "llvm/DebugInfo/PDB/IPDBSourceFile.h"
11da611207SAaron Smith
12*eb4c8608Sserge-sans-paille #include "llvm/DebugInfo/PDB/ConcreteSymbolEnumerator.h"
13*eb4c8608Sserge-sans-paille #include "llvm/DebugInfo/PDB/PDBSymDumper.h"
1452c9f881SZachary Turner #include "llvm/DebugInfo/PDB/PDBSymbolCompiland.h"
15da611207SAaron Smith #include "llvm/DebugInfo/PDB/PDBSymbolCompilandDetails.h"
16c0a5c01aSAaron Smith #include "llvm/DebugInfo/PDB/PDBSymbolCompilandEnv.h"
1752c9f881SZachary Turner
18da611207SAaron Smith #include "llvm/ADT/StringSwitch.h"
19da611207SAaron Smith #include "llvm/Support/Path.h"
2071f308adSChandler Carruth #include <utility>
2121473f7bSZachary Turner
2221473f7bSZachary Turner using namespace llvm;
23ec28fc34SZachary Turner using namespace llvm::pdb;
2421473f7bSZachary Turner
dump(PDBSymDumper & Dumper) const25b52d08d9SZachary Turner void PDBSymbolCompiland::dump(PDBSymDumper &Dumper) const {
26b52d08d9SZachary Turner Dumper.dump(*this);
2721473f7bSZachary Turner }
2843ec3af9SZachary Turner
getSourceFileName() const29da611207SAaron Smith std::string PDBSymbolCompiland::getSourceFileName() const {
30c0a5c01aSAaron Smith return sys::path::filename(getSourceFileFullPath()).str();
31da611207SAaron Smith }
32da611207SAaron Smith
getSourceFileFullPath() const33da611207SAaron Smith std::string PDBSymbolCompiland::getSourceFileFullPath() const {
34da611207SAaron Smith std::string SourceFileFullPath;
35da611207SAaron Smith
36da611207SAaron Smith // RecordedResult could be the basename, relative path or full path of the
37da611207SAaron Smith // source file. Usually it is retrieved and recorded from the command that
38da611207SAaron Smith // compiles this compiland.
39da611207SAaron Smith //
40da611207SAaron Smith // cmd FileName -> RecordedResult = .\\FileName
41da611207SAaron Smith // cmd (Path)\\FileName -> RecordedResult = (Path)\\FileName
42da611207SAaron Smith //
43da611207SAaron Smith std::string RecordedResult = RawSymbol->getSourceFileName();
44da611207SAaron Smith
45da611207SAaron Smith if (RecordedResult.empty()) {
46da611207SAaron Smith if (auto Envs = findAllChildren<PDBSymbolCompilandEnv>()) {
47da611207SAaron Smith std::string EnvWorkingDir, EnvSrc;
48da611207SAaron Smith
4943ec3af9SZachary Turner while (auto Env = Envs->getNext()) {
5043ec3af9SZachary Turner std::string Var = Env->getName();
51da611207SAaron Smith if (Var == "cwd") {
52da611207SAaron Smith EnvWorkingDir = Env->getValue();
5343ec3af9SZachary Turner continue;
5443ec3af9SZachary Turner }
55da611207SAaron Smith if (Var == "src") {
56da611207SAaron Smith EnvSrc = Env->getValue();
57c0a5c01aSAaron Smith if (sys::path::is_absolute(EnvSrc))
58da611207SAaron Smith return EnvSrc;
59da611207SAaron Smith RecordedResult = EnvSrc;
60da611207SAaron Smith continue;
61da611207SAaron Smith }
62da611207SAaron Smith }
63da611207SAaron Smith if (!EnvWorkingDir.empty() && !EnvSrc.empty()) {
64da611207SAaron Smith auto Len = EnvWorkingDir.length();
65da611207SAaron Smith if (EnvWorkingDir[Len - 1] != '/' && EnvWorkingDir[Len - 1] != '\\') {
66da611207SAaron Smith std::string Path = EnvWorkingDir + "\\" + EnvSrc;
67da611207SAaron Smith std::replace(Path.begin(), Path.end(), '/', '\\');
68da611207SAaron Smith // We will return it as full path if we can't find a better one.
69c0a5c01aSAaron Smith if (sys::path::is_absolute(Path))
70da611207SAaron Smith SourceFileFullPath = Path;
71da611207SAaron Smith }
72da611207SAaron Smith }
73da611207SAaron Smith }
74da611207SAaron Smith }
75da611207SAaron Smith
76da611207SAaron Smith if (!RecordedResult.empty()) {
77c0a5c01aSAaron Smith if (sys::path::is_absolute(RecordedResult))
78da611207SAaron Smith return RecordedResult;
79da611207SAaron Smith
80da611207SAaron Smith // This searches name that has same basename as the one in RecordedResult.
81c0a5c01aSAaron Smith auto OneSrcFile = Session.findOneSourceFile(
82c0a5c01aSAaron Smith this, RecordedResult, PDB_NameSearchFlags::NS_CaseInsensitive);
83da611207SAaron Smith if (OneSrcFile)
84da611207SAaron Smith return OneSrcFile->getFileName();
85da611207SAaron Smith }
86da611207SAaron Smith
87da611207SAaron Smith // At this point, we have to walk through all source files of this compiland,
88da611207SAaron Smith // and determine the right source file if any that is used to generate this
89da611207SAaron Smith // compiland based on language indicated in compilanddetails language field.
90da611207SAaron Smith auto Details = findOneChild<PDBSymbolCompilandDetails>();
91da611207SAaron Smith PDB_Lang Lang = Details ? Details->getLanguage() : PDB_Lang::Cpp;
92da611207SAaron Smith auto SrcFiles = Session.getSourceFilesForCompiland(*this);
93da611207SAaron Smith if (SrcFiles) {
94da611207SAaron Smith while (auto File = SrcFiles->getNext()) {
95da611207SAaron Smith std::string FileName = File->getFileName();
96c0a5c01aSAaron Smith auto file_extension = sys::path::extension(FileName);
97da611207SAaron Smith if (StringSwitch<bool>(file_extension.lower())
98cc51dc64SNathan Lanza .Case(".cpp", Lang == PDB_Lang::Cpp)
99cc51dc64SNathan Lanza .Case(".cc", Lang == PDB_Lang::Cpp)
100cc51dc64SNathan Lanza .Case(".cxx", Lang == PDB_Lang::Cpp)
101cc51dc64SNathan Lanza .Case(".c", Lang == PDB_Lang::C)
102da611207SAaron Smith .Case(".asm", Lang == PDB_Lang::Masm)
103cc51dc64SNathan Lanza .Case(".swift", Lang == PDB_Lang::Swift)
1043d10997eSArlo Siemsen .Case(".rs", Lang == PDB_Lang::Rust)
105da611207SAaron Smith .Default(false))
106da611207SAaron Smith return File->getFileName();
107da611207SAaron Smith }
108da611207SAaron Smith }
109da611207SAaron Smith
110da611207SAaron Smith return SourceFileFullPath;
11143ec3af9SZachary Turner }
112