annotate llvm/lib/ToolDrivers/llvm-lib/LibDriver.cpp @ 181:df311c476dd5

CreateIdentifierInfo in ParseCbC (not yet worked)
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 31 May 2020 12:30:11 +0900
parents 0572611fdcc8
children 2e18cbf3894f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===- LibDriver.cpp - lib.exe-compatible driver --------------------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8 //
anatofuz
parents:
diff changeset
9 // Defines an interface to a lib.exe-compatible driver that also understands
anatofuz
parents:
diff changeset
10 // bitcode files. Used by llvm-lib and lld-link /lib.
anatofuz
parents:
diff changeset
11 //
anatofuz
parents:
diff changeset
12 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
13
anatofuz
parents:
diff changeset
14 #include "llvm/ToolDrivers/llvm-lib/LibDriver.h"
anatofuz
parents:
diff changeset
15 #include "llvm/ADT/STLExtras.h"
anatofuz
parents:
diff changeset
16 #include "llvm/ADT/StringSet.h"
anatofuz
parents:
diff changeset
17 #include "llvm/BinaryFormat/COFF.h"
anatofuz
parents:
diff changeset
18 #include "llvm/BinaryFormat/Magic.h"
anatofuz
parents:
diff changeset
19 #include "llvm/Bitcode/BitcodeReader.h"
anatofuz
parents:
diff changeset
20 #include "llvm/Object/ArchiveWriter.h"
anatofuz
parents:
diff changeset
21 #include "llvm/Object/COFF.h"
anatofuz
parents:
diff changeset
22 #include "llvm/Object/WindowsMachineFlag.h"
anatofuz
parents:
diff changeset
23 #include "llvm/Option/Arg.h"
anatofuz
parents:
diff changeset
24 #include "llvm/Option/ArgList.h"
anatofuz
parents:
diff changeset
25 #include "llvm/Option/Option.h"
anatofuz
parents:
diff changeset
26 #include "llvm/Support/CommandLine.h"
anatofuz
parents:
diff changeset
27 #include "llvm/Support/Path.h"
anatofuz
parents:
diff changeset
28 #include "llvm/Support/Process.h"
anatofuz
parents:
diff changeset
29 #include "llvm/Support/StringSaver.h"
anatofuz
parents:
diff changeset
30 #include "llvm/Support/raw_ostream.h"
anatofuz
parents:
diff changeset
31
anatofuz
parents:
diff changeset
32 using namespace llvm;
anatofuz
parents:
diff changeset
33
anatofuz
parents:
diff changeset
34 namespace {
anatofuz
parents:
diff changeset
35
anatofuz
parents:
diff changeset
36 enum {
anatofuz
parents:
diff changeset
37 OPT_INVALID = 0,
anatofuz
parents:
diff changeset
38 #define OPTION(_1, _2, ID, _4, _5, _6, _7, _8, _9, _10, _11, _12) OPT_##ID,
anatofuz
parents:
diff changeset
39 #include "Options.inc"
anatofuz
parents:
diff changeset
40 #undef OPTION
anatofuz
parents:
diff changeset
41 };
anatofuz
parents:
diff changeset
42
anatofuz
parents:
diff changeset
43 #define PREFIX(NAME, VALUE) const char *const NAME[] = VALUE;
anatofuz
parents:
diff changeset
44 #include "Options.inc"
anatofuz
parents:
diff changeset
45 #undef PREFIX
anatofuz
parents:
diff changeset
46
anatofuz
parents:
diff changeset
47 static const opt::OptTable::Info InfoTable[] = {
anatofuz
parents:
diff changeset
48 #define OPTION(X1, X2, ID, KIND, GROUP, ALIAS, X7, X8, X9, X10, X11, X12) \
anatofuz
parents:
diff changeset
49 {X1, X2, X10, X11, OPT_##ID, opt::Option::KIND##Class, \
anatofuz
parents:
diff changeset
50 X9, X8, OPT_##GROUP, OPT_##ALIAS, X7, X12},
anatofuz
parents:
diff changeset
51 #include "Options.inc"
anatofuz
parents:
diff changeset
52 #undef OPTION
anatofuz
parents:
diff changeset
53 };
anatofuz
parents:
diff changeset
54
anatofuz
parents:
diff changeset
55 class LibOptTable : public opt::OptTable {
anatofuz
parents:
diff changeset
56 public:
anatofuz
parents:
diff changeset
57 LibOptTable() : OptTable(InfoTable, true) {}
anatofuz
parents:
diff changeset
58 };
anatofuz
parents:
diff changeset
59
anatofuz
parents:
diff changeset
60 }
anatofuz
parents:
diff changeset
61
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
62 static std::string getDefaultOutputPath(const NewArchiveMember &FirstMember) {
150
anatofuz
parents:
diff changeset
63 SmallString<128> Val = StringRef(FirstMember.Buf->getBufferIdentifier());
anatofuz
parents:
diff changeset
64 sys::path::replace_extension(Val, ".lib");
anatofuz
parents:
diff changeset
65 return std::string(Val.str());
anatofuz
parents:
diff changeset
66 }
anatofuz
parents:
diff changeset
67
anatofuz
parents:
diff changeset
68 static std::vector<StringRef> getSearchPaths(opt::InputArgList *Args,
anatofuz
parents:
diff changeset
69 StringSaver &Saver) {
anatofuz
parents:
diff changeset
70 std::vector<StringRef> Ret;
anatofuz
parents:
diff changeset
71 // Add current directory as first item of the search path.
anatofuz
parents:
diff changeset
72 Ret.push_back("");
anatofuz
parents:
diff changeset
73
anatofuz
parents:
diff changeset
74 // Add /libpath flags.
anatofuz
parents:
diff changeset
75 for (auto *Arg : Args->filtered(OPT_libpath))
anatofuz
parents:
diff changeset
76 Ret.push_back(Arg->getValue());
anatofuz
parents:
diff changeset
77
anatofuz
parents:
diff changeset
78 // Add $LIB.
anatofuz
parents:
diff changeset
79 Optional<std::string> EnvOpt = sys::Process::GetEnv("LIB");
anatofuz
parents:
diff changeset
80 if (!EnvOpt.hasValue())
anatofuz
parents:
diff changeset
81 return Ret;
anatofuz
parents:
diff changeset
82 StringRef Env = Saver.save(*EnvOpt);
anatofuz
parents:
diff changeset
83 while (!Env.empty()) {
anatofuz
parents:
diff changeset
84 StringRef Path;
anatofuz
parents:
diff changeset
85 std::tie(Path, Env) = Env.split(';');
anatofuz
parents:
diff changeset
86 Ret.push_back(Path);
anatofuz
parents:
diff changeset
87 }
anatofuz
parents:
diff changeset
88 return Ret;
anatofuz
parents:
diff changeset
89 }
anatofuz
parents:
diff changeset
90
anatofuz
parents:
diff changeset
91 static std::string findInputFile(StringRef File, ArrayRef<StringRef> Paths) {
anatofuz
parents:
diff changeset
92 for (StringRef Dir : Paths) {
anatofuz
parents:
diff changeset
93 SmallString<128> Path = Dir;
anatofuz
parents:
diff changeset
94 sys::path::append(Path, File);
anatofuz
parents:
diff changeset
95 if (sys::fs::exists(Path))
anatofuz
parents:
diff changeset
96 return std::string(Path);
anatofuz
parents:
diff changeset
97 }
anatofuz
parents:
diff changeset
98 return "";
anatofuz
parents:
diff changeset
99 }
anatofuz
parents:
diff changeset
100
anatofuz
parents:
diff changeset
101 static void fatalOpenError(llvm::Error E, Twine File) {
anatofuz
parents:
diff changeset
102 if (!E)
anatofuz
parents:
diff changeset
103 return;
anatofuz
parents:
diff changeset
104 handleAllErrors(std::move(E), [&](const llvm::ErrorInfoBase &EIB) {
anatofuz
parents:
diff changeset
105 llvm::errs() << "error opening '" << File << "': " << EIB.message() << '\n';
anatofuz
parents:
diff changeset
106 exit(1);
anatofuz
parents:
diff changeset
107 });
anatofuz
parents:
diff changeset
108 }
anatofuz
parents:
diff changeset
109
anatofuz
parents:
diff changeset
110 static void doList(opt::InputArgList& Args) {
anatofuz
parents:
diff changeset
111 // lib.exe prints the contents of the first archive file.
anatofuz
parents:
diff changeset
112 std::unique_ptr<MemoryBuffer> B;
anatofuz
parents:
diff changeset
113 for (auto *Arg : Args.filtered(OPT_INPUT)) {
anatofuz
parents:
diff changeset
114 // Create or open the archive object.
anatofuz
parents:
diff changeset
115 ErrorOr<std::unique_ptr<MemoryBuffer>> MaybeBuf =
anatofuz
parents:
diff changeset
116 MemoryBuffer::getFile(Arg->getValue(), -1, false);
anatofuz
parents:
diff changeset
117 fatalOpenError(errorCodeToError(MaybeBuf.getError()), Arg->getValue());
anatofuz
parents:
diff changeset
118
anatofuz
parents:
diff changeset
119 if (identify_magic(MaybeBuf.get()->getBuffer()) == file_magic::archive) {
anatofuz
parents:
diff changeset
120 B = std::move(MaybeBuf.get());
anatofuz
parents:
diff changeset
121 break;
anatofuz
parents:
diff changeset
122 }
anatofuz
parents:
diff changeset
123 }
anatofuz
parents:
diff changeset
124
anatofuz
parents:
diff changeset
125 // lib.exe doesn't print an error if no .lib files are passed.
anatofuz
parents:
diff changeset
126 if (!B)
anatofuz
parents:
diff changeset
127 return;
anatofuz
parents:
diff changeset
128
anatofuz
parents:
diff changeset
129 Error Err = Error::success();
anatofuz
parents:
diff changeset
130 object::Archive Archive(B.get()->getMemBufferRef(), Err);
anatofuz
parents:
diff changeset
131 fatalOpenError(std::move(Err), B->getBufferIdentifier());
anatofuz
parents:
diff changeset
132
anatofuz
parents:
diff changeset
133 for (auto &C : Archive.children(Err)) {
anatofuz
parents:
diff changeset
134 Expected<StringRef> NameOrErr = C.getName();
anatofuz
parents:
diff changeset
135 fatalOpenError(NameOrErr.takeError(), B->getBufferIdentifier());
anatofuz
parents:
diff changeset
136 StringRef Name = NameOrErr.get();
anatofuz
parents:
diff changeset
137 llvm::outs() << Name << '\n';
anatofuz
parents:
diff changeset
138 }
anatofuz
parents:
diff changeset
139 fatalOpenError(std::move(Err), B->getBufferIdentifier());
anatofuz
parents:
diff changeset
140 }
anatofuz
parents:
diff changeset
141
anatofuz
parents:
diff changeset
142 static COFF::MachineTypes getCOFFFileMachine(MemoryBufferRef MB) {
anatofuz
parents:
diff changeset
143 std::error_code EC;
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
144 auto Obj = object::COFFObjectFile::create(MB);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
145 if (!Obj) {
150
anatofuz
parents:
diff changeset
146 llvm::errs() << MB.getBufferIdentifier()
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
147 << ": failed to open: " << Obj.takeError() << '\n';
150
anatofuz
parents:
diff changeset
148 exit(1);
anatofuz
parents:
diff changeset
149 }
anatofuz
parents:
diff changeset
150
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
151 uint16_t Machine = (*Obj)->getMachine();
150
anatofuz
parents:
diff changeset
152 if (Machine != COFF::IMAGE_FILE_MACHINE_I386 &&
anatofuz
parents:
diff changeset
153 Machine != COFF::IMAGE_FILE_MACHINE_AMD64 &&
anatofuz
parents:
diff changeset
154 Machine != COFF::IMAGE_FILE_MACHINE_ARMNT &&
anatofuz
parents:
diff changeset
155 Machine != COFF::IMAGE_FILE_MACHINE_ARM64) {
anatofuz
parents:
diff changeset
156 llvm::errs() << MB.getBufferIdentifier() << ": unknown machine: " << Machine
anatofuz
parents:
diff changeset
157 << '\n';
anatofuz
parents:
diff changeset
158 exit(1);
anatofuz
parents:
diff changeset
159 }
anatofuz
parents:
diff changeset
160
anatofuz
parents:
diff changeset
161 return static_cast<COFF::MachineTypes>(Machine);
anatofuz
parents:
diff changeset
162 }
anatofuz
parents:
diff changeset
163
anatofuz
parents:
diff changeset
164 static COFF::MachineTypes getBitcodeFileMachine(MemoryBufferRef MB) {
anatofuz
parents:
diff changeset
165 Expected<std::string> TripleStr = getBitcodeTargetTriple(MB);
anatofuz
parents:
diff changeset
166 if (!TripleStr) {
anatofuz
parents:
diff changeset
167 llvm::errs() << MB.getBufferIdentifier()
anatofuz
parents:
diff changeset
168 << ": failed to get target triple from bitcode\n";
anatofuz
parents:
diff changeset
169 exit(1);
anatofuz
parents:
diff changeset
170 }
anatofuz
parents:
diff changeset
171
anatofuz
parents:
diff changeset
172 switch (Triple(*TripleStr).getArch()) {
anatofuz
parents:
diff changeset
173 case Triple::x86:
anatofuz
parents:
diff changeset
174 return COFF::IMAGE_FILE_MACHINE_I386;
anatofuz
parents:
diff changeset
175 case Triple::x86_64:
anatofuz
parents:
diff changeset
176 return COFF::IMAGE_FILE_MACHINE_AMD64;
anatofuz
parents:
diff changeset
177 case Triple::arm:
anatofuz
parents:
diff changeset
178 return COFF::IMAGE_FILE_MACHINE_ARMNT;
anatofuz
parents:
diff changeset
179 case Triple::aarch64:
anatofuz
parents:
diff changeset
180 return COFF::IMAGE_FILE_MACHINE_ARM64;
anatofuz
parents:
diff changeset
181 default:
anatofuz
parents:
diff changeset
182 llvm::errs() << MB.getBufferIdentifier()
anatofuz
parents:
diff changeset
183 << ": unknown arch in target triple " << *TripleStr << '\n';
anatofuz
parents:
diff changeset
184 exit(1);
anatofuz
parents:
diff changeset
185 }
anatofuz
parents:
diff changeset
186 }
anatofuz
parents:
diff changeset
187
anatofuz
parents:
diff changeset
188 static void appendFile(std::vector<NewArchiveMember> &Members,
anatofuz
parents:
diff changeset
189 COFF::MachineTypes &LibMachine,
anatofuz
parents:
diff changeset
190 std::string &LibMachineSource, MemoryBufferRef MB) {
anatofuz
parents:
diff changeset
191 file_magic Magic = identify_magic(MB.getBuffer());
anatofuz
parents:
diff changeset
192
anatofuz
parents:
diff changeset
193 if (Magic != file_magic::coff_object && Magic != file_magic::bitcode &&
anatofuz
parents:
diff changeset
194 Magic != file_magic::archive && Magic != file_magic::windows_resource) {
anatofuz
parents:
diff changeset
195 llvm::errs() << MB.getBufferIdentifier()
anatofuz
parents:
diff changeset
196 << ": not a COFF object, bitcode, archive or resource file\n";
anatofuz
parents:
diff changeset
197 exit(1);
anatofuz
parents:
diff changeset
198 }
anatofuz
parents:
diff changeset
199
anatofuz
parents:
diff changeset
200 // If a user attempts to add an archive to another archive, llvm-lib doesn't
anatofuz
parents:
diff changeset
201 // handle the first archive file as a single file. Instead, it extracts all
anatofuz
parents:
diff changeset
202 // members from the archive and add them to the second archive. This beahvior
anatofuz
parents:
diff changeset
203 // is for compatibility with Microsoft's lib command.
anatofuz
parents:
diff changeset
204 if (Magic == file_magic::archive) {
anatofuz
parents:
diff changeset
205 Error Err = Error::success();
anatofuz
parents:
diff changeset
206 object::Archive Archive(MB, Err);
anatofuz
parents:
diff changeset
207 fatalOpenError(std::move(Err), MB.getBufferIdentifier());
anatofuz
parents:
diff changeset
208
anatofuz
parents:
diff changeset
209 for (auto &C : Archive.children(Err)) {
anatofuz
parents:
diff changeset
210 Expected<MemoryBufferRef> ChildMB = C.getMemoryBufferRef();
anatofuz
parents:
diff changeset
211 if (!ChildMB) {
anatofuz
parents:
diff changeset
212 handleAllErrors(ChildMB.takeError(), [&](const ErrorInfoBase &EIB) {
anatofuz
parents:
diff changeset
213 llvm::errs() << MB.getBufferIdentifier() << ": " << EIB.message()
anatofuz
parents:
diff changeset
214 << "\n";
anatofuz
parents:
diff changeset
215 });
anatofuz
parents:
diff changeset
216 exit(1);
anatofuz
parents:
diff changeset
217 }
anatofuz
parents:
diff changeset
218
anatofuz
parents:
diff changeset
219 appendFile(Members, LibMachine, LibMachineSource, *ChildMB);
anatofuz
parents:
diff changeset
220 }
anatofuz
parents:
diff changeset
221
anatofuz
parents:
diff changeset
222 fatalOpenError(std::move(Err), MB.getBufferIdentifier());
anatofuz
parents:
diff changeset
223 return;
anatofuz
parents:
diff changeset
224 }
anatofuz
parents:
diff changeset
225
anatofuz
parents:
diff changeset
226 // Check that all input files have the same machine type.
anatofuz
parents:
diff changeset
227 // Mixing normal objects and LTO bitcode files is fine as long as they
anatofuz
parents:
diff changeset
228 // have the same machine type.
anatofuz
parents:
diff changeset
229 // Doing this here duplicates the header parsing work that writeArchive()
anatofuz
parents:
diff changeset
230 // below does, but it's not a lot of work and it's a bit awkward to do
anatofuz
parents:
diff changeset
231 // in writeArchive() which needs to support many tools, can't assume the
anatofuz
parents:
diff changeset
232 // input is COFF, and doesn't have a good way to report errors.
anatofuz
parents:
diff changeset
233 if (Magic == file_magic::coff_object || Magic == file_magic::bitcode) {
anatofuz
parents:
diff changeset
234 COFF::MachineTypes FileMachine = (Magic == file_magic::coff_object)
anatofuz
parents:
diff changeset
235 ? getCOFFFileMachine(MB)
anatofuz
parents:
diff changeset
236 : getBitcodeFileMachine(MB);
anatofuz
parents:
diff changeset
237
anatofuz
parents:
diff changeset
238 // FIXME: Once lld-link rejects multiple resource .obj files:
anatofuz
parents:
diff changeset
239 // Call convertResToCOFF() on .res files and add the resulting
anatofuz
parents:
diff changeset
240 // COFF file to the .lib output instead of adding the .res file, and remove
anatofuz
parents:
diff changeset
241 // this check. See PR42180.
anatofuz
parents:
diff changeset
242 if (FileMachine != COFF::IMAGE_FILE_MACHINE_UNKNOWN) {
anatofuz
parents:
diff changeset
243 if (LibMachine == COFF::IMAGE_FILE_MACHINE_UNKNOWN) {
anatofuz
parents:
diff changeset
244 LibMachine = FileMachine;
anatofuz
parents:
diff changeset
245 LibMachineSource =
anatofuz
parents:
diff changeset
246 (" (inferred from earlier file '" + MB.getBufferIdentifier() + "')")
anatofuz
parents:
diff changeset
247 .str();
anatofuz
parents:
diff changeset
248 } else if (LibMachine != FileMachine) {
anatofuz
parents:
diff changeset
249 llvm::errs() << MB.getBufferIdentifier() << ": file machine type "
anatofuz
parents:
diff changeset
250 << machineToStr(FileMachine)
anatofuz
parents:
diff changeset
251 << " conflicts with library machine type "
anatofuz
parents:
diff changeset
252 << machineToStr(LibMachine) << LibMachineSource << '\n';
anatofuz
parents:
diff changeset
253 exit(1);
anatofuz
parents:
diff changeset
254 }
anatofuz
parents:
diff changeset
255 }
anatofuz
parents:
diff changeset
256 }
anatofuz
parents:
diff changeset
257
anatofuz
parents:
diff changeset
258 Members.emplace_back(MB);
anatofuz
parents:
diff changeset
259 }
anatofuz
parents:
diff changeset
260
anatofuz
parents:
diff changeset
261 int llvm::libDriverMain(ArrayRef<const char *> ArgsArr) {
anatofuz
parents:
diff changeset
262 BumpPtrAllocator Alloc;
anatofuz
parents:
diff changeset
263 StringSaver Saver(Alloc);
anatofuz
parents:
diff changeset
264
anatofuz
parents:
diff changeset
265 // Parse command line arguments.
anatofuz
parents:
diff changeset
266 SmallVector<const char *, 20> NewArgs(ArgsArr.begin(), ArgsArr.end());
anatofuz
parents:
diff changeset
267 cl::ExpandResponseFiles(Saver, cl::TokenizeWindowsCommandLine, NewArgs);
anatofuz
parents:
diff changeset
268 ArgsArr = NewArgs;
anatofuz
parents:
diff changeset
269
anatofuz
parents:
diff changeset
270 LibOptTable Table;
anatofuz
parents:
diff changeset
271 unsigned MissingIndex;
anatofuz
parents:
diff changeset
272 unsigned MissingCount;
anatofuz
parents:
diff changeset
273 opt::InputArgList Args =
anatofuz
parents:
diff changeset
274 Table.ParseArgs(ArgsArr.slice(1), MissingIndex, MissingCount);
anatofuz
parents:
diff changeset
275 if (MissingCount) {
anatofuz
parents:
diff changeset
276 llvm::errs() << "missing arg value for \""
anatofuz
parents:
diff changeset
277 << Args.getArgString(MissingIndex) << "\", expected "
anatofuz
parents:
diff changeset
278 << MissingCount
anatofuz
parents:
diff changeset
279 << (MissingCount == 1 ? " argument.\n" : " arguments.\n");
anatofuz
parents:
diff changeset
280 return 1;
anatofuz
parents:
diff changeset
281 }
anatofuz
parents:
diff changeset
282 for (auto *Arg : Args.filtered(OPT_UNKNOWN))
anatofuz
parents:
diff changeset
283 llvm::errs() << "ignoring unknown argument: " << Arg->getAsString(Args)
anatofuz
parents:
diff changeset
284 << "\n";
anatofuz
parents:
diff changeset
285
anatofuz
parents:
diff changeset
286 // Handle /help
anatofuz
parents:
diff changeset
287 if (Args.hasArg(OPT_help)) {
anatofuz
parents:
diff changeset
288 Table.PrintHelp(outs(), "llvm-lib [options] file...", "LLVM Lib");
anatofuz
parents:
diff changeset
289 return 0;
anatofuz
parents:
diff changeset
290 }
anatofuz
parents:
diff changeset
291
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
292 // If no input files and not told otherwise, silently do nothing to match
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
293 // lib.exe
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
294 if (!Args.hasArgNoClaim(OPT_INPUT) && !Args.hasArg(OPT_llvmlibempty))
150
anatofuz
parents:
diff changeset
295 return 0;
anatofuz
parents:
diff changeset
296
anatofuz
parents:
diff changeset
297 if (Args.hasArg(OPT_lst)) {
anatofuz
parents:
diff changeset
298 doList(Args);
anatofuz
parents:
diff changeset
299 return 0;
anatofuz
parents:
diff changeset
300 }
anatofuz
parents:
diff changeset
301
anatofuz
parents:
diff changeset
302 std::vector<StringRef> SearchPaths = getSearchPaths(&Args, Saver);
anatofuz
parents:
diff changeset
303
anatofuz
parents:
diff changeset
304 COFF::MachineTypes LibMachine = COFF::IMAGE_FILE_MACHINE_UNKNOWN;
anatofuz
parents:
diff changeset
305 std::string LibMachineSource;
anatofuz
parents:
diff changeset
306 if (auto *Arg = Args.getLastArg(OPT_machine)) {
anatofuz
parents:
diff changeset
307 LibMachine = getMachineType(Arg->getValue());
anatofuz
parents:
diff changeset
308 if (LibMachine == COFF::IMAGE_FILE_MACHINE_UNKNOWN) {
anatofuz
parents:
diff changeset
309 llvm::errs() << "unknown /machine: arg " << Arg->getValue() << '\n';
anatofuz
parents:
diff changeset
310 return 1;
anatofuz
parents:
diff changeset
311 }
anatofuz
parents:
diff changeset
312 LibMachineSource =
anatofuz
parents:
diff changeset
313 std::string(" (from '/machine:") + Arg->getValue() + "' flag)";
anatofuz
parents:
diff changeset
314 }
anatofuz
parents:
diff changeset
315
anatofuz
parents:
diff changeset
316 std::vector<std::unique_ptr<MemoryBuffer>> MBs;
anatofuz
parents:
diff changeset
317 StringSet<> Seen;
anatofuz
parents:
diff changeset
318 std::vector<NewArchiveMember> Members;
anatofuz
parents:
diff changeset
319
anatofuz
parents:
diff changeset
320 // Create a NewArchiveMember for each input file.
anatofuz
parents:
diff changeset
321 for (auto *Arg : Args.filtered(OPT_INPUT)) {
anatofuz
parents:
diff changeset
322 // Find a file
anatofuz
parents:
diff changeset
323 std::string Path = findInputFile(Arg->getValue(), SearchPaths);
anatofuz
parents:
diff changeset
324 if (Path.empty()) {
anatofuz
parents:
diff changeset
325 llvm::errs() << Arg->getValue() << ": no such file or directory\n";
anatofuz
parents:
diff changeset
326 return 1;
anatofuz
parents:
diff changeset
327 }
anatofuz
parents:
diff changeset
328
anatofuz
parents:
diff changeset
329 // Input files are uniquified by pathname. If you specify the exact same
anatofuz
parents:
diff changeset
330 // path more than once, all but the first one are ignored.
anatofuz
parents:
diff changeset
331 //
anatofuz
parents:
diff changeset
332 // Note that there's a loophole in the rule; you can prepend `.\` or
anatofuz
parents:
diff changeset
333 // something like that to a path to make it look different, and they are
anatofuz
parents:
diff changeset
334 // handled as if they were different files. This behavior is compatible with
anatofuz
parents:
diff changeset
335 // Microsoft lib.exe.
anatofuz
parents:
diff changeset
336 if (!Seen.insert(Path).second)
anatofuz
parents:
diff changeset
337 continue;
anatofuz
parents:
diff changeset
338
anatofuz
parents:
diff changeset
339 // Open a file.
anatofuz
parents:
diff changeset
340 ErrorOr<std::unique_ptr<MemoryBuffer>> MOrErr =
anatofuz
parents:
diff changeset
341 MemoryBuffer::getFile(Path, -1, false);
anatofuz
parents:
diff changeset
342 fatalOpenError(errorCodeToError(MOrErr.getError()), Path);
anatofuz
parents:
diff changeset
343 MemoryBufferRef MBRef = (*MOrErr)->getMemBufferRef();
anatofuz
parents:
diff changeset
344
anatofuz
parents:
diff changeset
345 // Append a file.
anatofuz
parents:
diff changeset
346 appendFile(Members, LibMachine, LibMachineSource, MBRef);
anatofuz
parents:
diff changeset
347
anatofuz
parents:
diff changeset
348 // Take the ownership of the file buffer to keep the file open.
anatofuz
parents:
diff changeset
349 MBs.push_back(std::move(*MOrErr));
anatofuz
parents:
diff changeset
350 }
anatofuz
parents:
diff changeset
351
anatofuz
parents:
diff changeset
352 // Create an archive file.
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
353 std::string OutputPath;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
354 if (auto *Arg = Args.getLastArg(OPT_out)) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
355 OutputPath = Arg->getValue();
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
356 } else if (!Members.empty()) {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
357 OutputPath = getDefaultOutputPath(Members[0]);
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
358 } else {
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
359 llvm::errs() << "no output path given, and cannot infer with no inputs\n";
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
360 return 1;
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
361 }
150
anatofuz
parents:
diff changeset
362 // llvm-lib uses relative paths for both regular and thin archives, unlike
anatofuz
parents:
diff changeset
363 // standard GNU ar, which only uses relative paths for thin archives and
anatofuz
parents:
diff changeset
364 // basenames for regular archives.
anatofuz
parents:
diff changeset
365 for (NewArchiveMember &Member : Members) {
anatofuz
parents:
diff changeset
366 if (sys::path::is_relative(Member.MemberName)) {
anatofuz
parents:
diff changeset
367 Expected<std::string> PathOrErr =
anatofuz
parents:
diff changeset
368 computeArchiveRelativePath(OutputPath, Member.MemberName);
anatofuz
parents:
diff changeset
369 if (PathOrErr)
anatofuz
parents:
diff changeset
370 Member.MemberName = Saver.save(*PathOrErr);
anatofuz
parents:
diff changeset
371 }
anatofuz
parents:
diff changeset
372 }
anatofuz
parents:
diff changeset
373
anatofuz
parents:
diff changeset
374 if (Error E =
anatofuz
parents:
diff changeset
375 writeArchive(OutputPath, Members,
anatofuz
parents:
diff changeset
376 /*WriteSymtab=*/true, object::Archive::K_GNU,
anatofuz
parents:
diff changeset
377 /*Deterministic*/ true, Args.hasArg(OPT_llvmlibthin))) {
anatofuz
parents:
diff changeset
378 handleAllErrors(std::move(E), [&](const ErrorInfoBase &EI) {
anatofuz
parents:
diff changeset
379 llvm::errs() << OutputPath << ": " << EI.message() << "\n";
anatofuz
parents:
diff changeset
380 });
anatofuz
parents:
diff changeset
381 return 1;
anatofuz
parents:
diff changeset
382 }
anatofuz
parents:
diff changeset
383
anatofuz
parents:
diff changeset
384 return 0;
anatofuz
parents:
diff changeset
385 }