blob: cc3d2d8ec73339b445e5d9ee1dd791ca2aae57c0 [file] [log] [blame]
Chris Lattner97f752f2003-12-30 07:45:46 +00001//===-- llvm-ar.cpp - LLVM archive librarian utility ----------------------===//
Misha Brukman3da94ae2005-04-22 00:00:37 +00002//
John Criswell7c0e0222003-10-20 17:47:21 +00003// The LLVM Compiler Infrastructure
4//
Tanya Lattnerd6074912004-11-15 19:21:49 +00005// This file was developed by the LLVM research group and is distributed under
6// the University of Illinois Open Source License. See LICENSE.TXT for details.
Misha Brukman3da94ae2005-04-22 00:00:37 +00007//
John Criswell7c0e0222003-10-20 17:47:21 +00008//===----------------------------------------------------------------------===//
Tanya Lattner14baebf2003-08-28 15:22:38 +00009//
Misha Brukman3da94ae2005-04-22 00:00:37 +000010// Builds up (relatively) standard unix archive files (.a) containing LLVM
Reid Spencer3a1582b2004-11-14 22:20:07 +000011// bytecode or other files.
Tanya Lattner14baebf2003-08-28 15:22:38 +000012//
13//===----------------------------------------------------------------------===//
Brian Gaeke4fa9fd32003-10-10 18:47:08 +000014
Tanya Lattner14baebf2003-08-28 15:22:38 +000015#include "llvm/Module.h"
Reid Spencer3a1582b2004-11-14 22:20:07 +000016#include "llvm/Bytecode/Archive.h"
Reid Spencer551ccae2004-09-01 22:55:40 +000017#include "llvm/Support/CommandLine.h"
Reid Spencer3a1582b2004-11-14 22:20:07 +000018#include "llvm/Support/Compressor.h"
Chris Lattnerbed85ff2004-05-27 05:41:36 +000019#include "llvm/System/Signals.h"
Reid Spencer86f42bd2004-07-04 12:20:55 +000020#include <iostream>
Reid Spencer3a1582b2004-11-14 22:20:07 +000021#include <algorithm>
22#include <iomanip>
23
Brian Gaeked0fde302003-11-11 22:41:34 +000024using namespace llvm;
25
Reid Spencer3a1582b2004-11-14 22:20:07 +000026// Option for compatibility with ASIX, not used but must allow it to be present.
Misha Brukman3da94ae2005-04-22 00:00:37 +000027static cl::opt<bool>
28X32Option ("X32_64", cl::Hidden,
Reid Spencerbede5832004-11-16 06:41:09 +000029 cl::desc("Ignored option for compatibility with AIX"));
Tanya Lattner14baebf2003-08-28 15:22:38 +000030
Reid Spencerbede5832004-11-16 06:41:09 +000031// llvm-ar operation code and modifier flags. This must come first.
Misha Brukman3da94ae2005-04-22 00:00:37 +000032static cl::opt<std::string>
Reid Spencer3a1582b2004-11-14 22:20:07 +000033Options(cl::Positional, cl::Required, cl::desc("{operation}[modifiers]..."));
Tanya Lattner14baebf2003-08-28 15:22:38 +000034
Reid Spencerbede5832004-11-16 06:41:09 +000035// llvm-ar remaining positional arguments.
Misha Brukman3da94ae2005-04-22 00:00:37 +000036static cl::list<std::string>
37RestOfArgs(cl::Positional, cl::OneOrMore,
Reid Spencer3a1582b2004-11-14 22:20:07 +000038 cl::desc("[relpos] [count] <archive-file> [members]..."));
Tanya Lattner14baebf2003-08-28 15:22:38 +000039
Reid Spencerbede5832004-11-16 06:41:09 +000040// MoreHelp - Provide additional help output explaining the operations and
41// modifiers of llvm-ar. This object instructs the CommandLine library
42// to print the text of the constructor when the --help option is given.
43static cl::extrahelp MoreHelp(
Misha Brukman3da94ae2005-04-22 00:00:37 +000044 "\nOPERATIONS:\n"
Reid Spencerbede5832004-11-16 06:41:09 +000045 " d[NsS] - delete file(s) from the archive\n"
46 " m[abiSs] - move file(s) in the archive\n"
47 " p[kN] - print file(s) found in the archive\n"
48 " q[ufsS] - quick append file(s) to the archive\n"
49 " r[abfiuzRsS] - replace or insert file(s) into the archive\n"
50 " t - display contents of archive\n"
51 " x[No] - extract file(s) from the archive\n"
52 "\nMODIFIERS (operation specific):\n"
53 " [a] - put file(s) after [relpos]\n"
54 " [b] - put file(s) before [relpos] (same as [i])\n"
55 " [f] - truncate inserted file names\n"
56 " [i] - put file(s) before [relpos] (same as [b])\n"
57 " [k] - always print bytecode files (default is to skip them)\n"
58 " [N] - use instance [count] of name\n"
59 " [o] - preserve original dates\n"
60 " [P] - use full path names when matching\n"
61 " [R] - recurse through directories when inserting\n"
62 " [s] - create an archive index (cf. ranlib)\n"
63 " [S] - do not build a symbol table\n"
64 " [u] - update only files newer than archive contents\n"
65 " [z] - compress files before inserting/extracting\n"
66 "\nMODIFIERS (generic):\n"
67 " [c] - do not warn if the library had to be created\n"
68 " [v] - be verbose about actions taken\n"
69 " [V] - be *really* verbose about actions taken\n"
70);
71
Reid Spencer3a1582b2004-11-14 22:20:07 +000072// This enumeration delineates the kinds of operations on an archive
73// that are permitted.
74enum ArchiveOperation {
75 NoOperation, ///< An operation hasn't been specified
76 Print, ///< Print the contents of the archive
77 Delete, ///< Delete the specified members
78 Move, ///< Move members to end or as given by {a,b,i} modifiers
79 QuickAppend, ///< Quickly append to end of archive
80 ReplaceOrInsert, ///< Replace or Insert members
81 DisplayTable, ///< Display the table of contents
82 Extract, ///< Extract files back to file system
Tanya Lattner57bd7962003-12-06 23:01:25 +000083};
Tanya Lattner14baebf2003-08-28 15:22:38 +000084
Reid Spencer3a1582b2004-11-14 22:20:07 +000085// Modifiers to follow operation to vary behavior
86bool AddAfter = false; ///< 'a' modifier
87bool AddBefore = false; ///< 'b' modifier
Misha Brukman3da94ae2005-04-22 00:00:37 +000088bool Create = false; ///< 'c' modifier
Reid Spencer3a1582b2004-11-14 22:20:07 +000089bool TruncateNames = false; ///< 'f' modifier
90bool InsertBefore = false; ///< 'i' modifier
91bool DontSkipBytecode = false; ///< 'k' modifier
92bool UseCount = false; ///< 'N' modifier
93bool OriginalDates = false; ///< 'o' modifier
94bool FullPath = false; ///< 'P' modifier
95bool RecurseDirectories = false; ///< 'R' modifier
96bool SymTable = true; ///< 's' & 'S' modifiers
97bool OnlyUpdate = false; ///< 'u' modifier
98bool Verbose = false; ///< 'v' modifier
99bool ReallyVerbose = false; ///< 'V' modifier
100bool Compression = false; ///< 'z' modifier
Tanya Lattner14baebf2003-08-28 15:22:38 +0000101
Reid Spencer3a1582b2004-11-14 22:20:07 +0000102// Relative Positional Argument (for insert/move). This variable holds
103// the name of the archive member to which the 'a', 'b' or 'i' modifier
104// refers. Only one of 'a', 'b' or 'i' can be specified so we only need
105// one variable.
106std::string RelPos;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000107
Reid Spencer3a1582b2004-11-14 22:20:07 +0000108// Select which of multiple entries in the archive with the same name should be
109// used (specified with -N) for the delete and extract operations.
110int Count = 1;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000111
Reid Spencer3a1582b2004-11-14 22:20:07 +0000112// This variable holds the name of the archive file as given on the
113// command line.
114std::string ArchiveName;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000115
Reid Spencer3a1582b2004-11-14 22:20:07 +0000116// This variable holds the list of member files to proecess, as given
117// on the command line.
118std::vector<std::string> Members;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000119
Reid Spencer3a1582b2004-11-14 22:20:07 +0000120// This variable holds the (possibly expanded) list of path objects that
121// correspond to files we will
Reid Spencerbede5832004-11-16 06:41:09 +0000122std::set<sys::Path> Paths;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000123
Reid Spencer3a1582b2004-11-14 22:20:07 +0000124// The Archive object to which all the editing operations will be sent.
125Archive* TheArchive = 0;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000126
Reid Spencer3a1582b2004-11-14 22:20:07 +0000127// getRelPos - Extract the member filename from the command line for
128// the [relpos] argument associated with a, b, and i modifiers
Tanya Lattner57bd7962003-12-06 23:01:25 +0000129void getRelPos() {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000130 if(RestOfArgs.size() > 0) {
131 RelPos = RestOfArgs[0];
132 RestOfArgs.erase(RestOfArgs.begin());
Tanya Lattner57bd7962003-12-06 23:01:25 +0000133 }
Tanya Lattner57bd7962003-12-06 23:01:25 +0000134 else
Reid Spencer3a1582b2004-11-14 22:20:07 +0000135 throw "Expected [relpos] for a, b, or i modifier";
Tanya Lattner57bd7962003-12-06 23:01:25 +0000136}
137
Misha Brukman3da94ae2005-04-22 00:00:37 +0000138// getCount - Extract the [count] argument associated with the N modifier
Reid Spencer3a1582b2004-11-14 22:20:07 +0000139// from the command line and check its value.
Tanya Lattner57bd7962003-12-06 23:01:25 +0000140void getCount() {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000141 if(RestOfArgs.size() > 0) {
142 Count = atoi(RestOfArgs[0].c_str());
143 RestOfArgs.erase(RestOfArgs.begin());
Tanya Lattner57bd7962003-12-06 23:01:25 +0000144 }
Tanya Lattner57bd7962003-12-06 23:01:25 +0000145 else
Reid Spencer3a1582b2004-11-14 22:20:07 +0000146 throw "Expected [count] value with N modifier";
147
148 // Non-positive counts are not allowed
149 if (Count < 1)
150 throw "Invalid [count] value (not a positive integer)";
Tanya Lattner57bd7962003-12-06 23:01:25 +0000151}
152
Reid Spencer3a1582b2004-11-14 22:20:07 +0000153// getArchive - Get the archive file name from the command line
Tanya Lattner57bd7962003-12-06 23:01:25 +0000154void getArchive() {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000155 if(RestOfArgs.size() > 0) {
156 ArchiveName = RestOfArgs[0];
157 RestOfArgs.erase(RestOfArgs.begin());
Tanya Lattner57bd7962003-12-06 23:01:25 +0000158 }
Tanya Lattner57bd7962003-12-06 23:01:25 +0000159 else
Reid Spencer3a1582b2004-11-14 22:20:07 +0000160 throw "An archive name must be specified.";
Tanya Lattner57bd7962003-12-06 23:01:25 +0000161}
162
Reid Spencer3a1582b2004-11-14 22:20:07 +0000163// getMembers - Copy over remaining items in RestOfArgs to our Members vector
164// This is just for clarity.
Tanya Lattner57bd7962003-12-06 23:01:25 +0000165void getMembers() {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000166 if(RestOfArgs.size() > 0)
Misha Brukman3da94ae2005-04-22 00:00:37 +0000167 Members = std::vector<std::string>(RestOfArgs);
Tanya Lattner57bd7962003-12-06 23:01:25 +0000168}
169
Reid Spencer3a1582b2004-11-14 22:20:07 +0000170// parseCommandLine - Parse the command line options as presented and return the
Misha Brukman3da94ae2005-04-22 00:00:37 +0000171// operation specified. Process all modifiers and check to make sure that
Reid Spencer3a1582b2004-11-14 22:20:07 +0000172// constraints on modifier/operation pairs have not been violated.
173ArchiveOperation parseCommandLine() {
Tanya Lattner57bd7962003-12-06 23:01:25 +0000174
Reid Spencer3a1582b2004-11-14 22:20:07 +0000175 // Keep track of number of operations. We can only specify one
176 // per execution.
Tanya Lattner57bd7962003-12-06 23:01:25 +0000177 unsigned NumOperations = 0;
178
Reid Spencer3a1582b2004-11-14 22:20:07 +0000179 // Keep track of the number of positional modifiers (a,b,i). Only
180 // one can be specified.
181 unsigned NumPositional = 0;
182
183 // Keep track of which operation was requested
184 ArchiveOperation Operation = NoOperation;
185
Tanya Lattner57bd7962003-12-06 23:01:25 +0000186 for(unsigned i=0; i<Options.size(); ++i) {
187 switch(Options[i]) {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000188 case 'd': ++NumOperations; Operation = Delete; break;
189 case 'm': ++NumOperations; Operation = Move ; break;
190 case 'p': ++NumOperations; Operation = Print; break;
Misha Brukman3da94ae2005-04-22 00:00:37 +0000191 case 'r': ++NumOperations; Operation = ReplaceOrInsert; break;
Reid Spencer3a1582b2004-11-14 22:20:07 +0000192 case 't': ++NumOperations; Operation = DisplayTable; break;
193 case 'x': ++NumOperations; Operation = Extract; break;
194 case 'c': Create = true; break;
195 case 'f': TruncateNames = true; break;
196 case 'k': DontSkipBytecode = true; break;
197 case 'l': /* accepted but unused */ break;
198 case 'o': OriginalDates = true; break;
199 case 'P': FullPath = true; break;
200 case 'R': RecurseDirectories = true; break;
201 case 's': SymTable = true; break;
202 case 'S': SymTable = false; break;
203 case 'u': OnlyUpdate = true; break;
204 case 'v': Verbose = true; break;
205 case 'V': Verbose = ReallyVerbose = true; break;
206 case 'z': Compression = true; break;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000207 case 'a':
Tanya Lattner57bd7962003-12-06 23:01:25 +0000208 getRelPos();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000209 AddAfter = true;
210 NumPositional++;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000211 break;
212 case 'b':
Tanya Lattner57bd7962003-12-06 23:01:25 +0000213 getRelPos();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000214 AddBefore = true;
215 NumPositional++;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000216 break;
217 case 'i':
Tanya Lattner57bd7962003-12-06 23:01:25 +0000218 getRelPos();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000219 InsertBefore = true;
220 NumPositional++;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000221 break;
222 case 'N':
Misha Brukman3da94ae2005-04-22 00:00:37 +0000223 getCount();
Tanya Lattner57bd7962003-12-06 23:01:25 +0000224 UseCount = true;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000225 break;
226 default:
Reid Spencerbede5832004-11-16 06:41:09 +0000227 cl::PrintHelpMessage();
Tanya Lattner57bd7962003-12-06 23:01:25 +0000228 }
229 }
230
Misha Brukman3da94ae2005-04-22 00:00:37 +0000231 // At this point, the next thing on the command line must be
Reid Spencer3a1582b2004-11-14 22:20:07 +0000232 // the archive name.
Tanya Lattner57bd7962003-12-06 23:01:25 +0000233 getArchive();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000234
235 // Everything on the command line at this point is a member.
Tanya Lattner57bd7962003-12-06 23:01:25 +0000236 getMembers();
237
Reid Spencer3a1582b2004-11-14 22:20:07 +0000238 // Perform various checks on the operation/modifier specification
239 // to make sure we are dealing with a legal request.
240 if (NumOperations == 0)
241 throw "You must specify at least one of the operations";
242 if (NumOperations > 1)
243 throw "Only one operation may be specified";
244 if (NumPositional > 1)
245 throw "You may only specify one of a, b, and i modifiers";
246 if (AddAfter || AddBefore || InsertBefore)
247 if (Operation != Move && Operation != ReplaceOrInsert)
248 throw "The 'a', 'b' and 'i' modifiers can only be specified with "
249 "the 'm' or 'r' operations";
250 if (RecurseDirectories && Operation != ReplaceOrInsert)
251 throw "The 'R' modifiers is only applicabe to the 'r' operation";
252 if (OriginalDates && Operation != Extract)
253 throw "The 'o' modifier is only applicable to the 'x' operation";
254 if (TruncateNames && Operation!=QuickAppend && Operation!=ReplaceOrInsert)
255 throw "The 'f' modifier is only applicable to the 'q' and 'r' operations";
256 if (OnlyUpdate && Operation != ReplaceOrInsert)
257 throw "The 'u' modifier is only applicable to the 'r' operation";
258 if (Compression && Operation!=ReplaceOrInsert && Operation!=Extract)
259 throw "The 'z' modifier is only applicable to the 'r' and 'x' operations";
260 if (Count > 1 && Members.size() > 1)
261 throw "Only one member name may be specified with the 'N' modifier";
262
263 // Return the parsed operation to the caller
264 return Operation;
Tanya Lattner57bd7962003-12-06 23:01:25 +0000265}
Tanya Lattner14baebf2003-08-28 15:22:38 +0000266
Reid Spencer3a1582b2004-11-14 22:20:07 +0000267// recurseDirectories - Implements the "R" modifier. This function scans through
268// the Paths vector (built by buildPaths, below) and replaces any directories it
269// finds with all the files in that directory (recursively). It uses the
270// sys::Path::getDirectoryContent method to perform the actual directory scans.
Reid Spencerbede5832004-11-16 06:41:09 +0000271std::set<sys::Path> recurseDirectories(const sys::Path& path) {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000272 assert(path.isDirectory() && "Oops, can't recurse a file");
Reid Spencerbede5832004-11-16 06:41:09 +0000273 std::set<sys::Path> result;
Reid Spencer3a1582b2004-11-14 22:20:07 +0000274 if (RecurseDirectories) {
Reid Spencerbede5832004-11-16 06:41:09 +0000275 std::set<sys::Path> content;
Reid Spencer3a1582b2004-11-14 22:20:07 +0000276 path.getDirectoryContents(content);
Misha Brukman3da94ae2005-04-22 00:00:37 +0000277 for (std::set<sys::Path>::iterator I = content.begin(), E = content.end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000278 I != E; ++I) {
279 if (I->isDirectory()) {
Reid Spencerbede5832004-11-16 06:41:09 +0000280 std::set<sys::Path> moreResults = recurseDirectories(*I);
281 result.insert(moreResults.begin(), moreResults.end());
Reid Spencer3a1582b2004-11-14 22:20:07 +0000282 } else {
Reid Spencerbede5832004-11-16 06:41:09 +0000283 result.insert(*I);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000284 }
285 }
286 }
287 return result;
288}
289
290// buildPaths - Convert the strings in the Members vector to sys::Path objects
Misha Brukman3da94ae2005-04-22 00:00:37 +0000291// and make sure they are valid and exist exist. This check is only needed for
Reid Spencer3a1582b2004-11-14 22:20:07 +0000292// the operations that add/replace files to the archive ('q' and 'r')
293void buildPaths(bool checkExistence = true) {
294 for (unsigned i = 0; i < Members.size(); i++) {
295 sys::Path aPath;
296 if (!aPath.setFile(Members[i]))
297 throw std::string("File member name invalid: ") + Members[i];
298 if (checkExistence) {
299 if (!aPath.exists())
300 throw std::string("File does not exist: ") + Members[i];
301 sys::Path::StatusInfo si;
302 aPath.getStatusInfo(si);
303 if (si.isDir) {
Reid Spencerbede5832004-11-16 06:41:09 +0000304 std::set<sys::Path> dirpaths = recurseDirectories(aPath);
305 Paths.insert(dirpaths.begin(),dirpaths.end());
Reid Spencer3a1582b2004-11-14 22:20:07 +0000306 } else {
Reid Spencerbede5832004-11-16 06:41:09 +0000307 Paths.insert(aPath);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000308 }
309 } else {
Reid Spencerbede5832004-11-16 06:41:09 +0000310 Paths.insert(aPath);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000311 }
312 }
313}
314
Reid Spencerbede5832004-11-16 06:41:09 +0000315// printSymbolTable - print out the archive's symbol table.
316void printSymbolTable() {
317 std::cout << "\nArchive Symbol Table:\n";
318 const Archive::SymTabType& symtab = TheArchive->getSymbolTable();
Misha Brukman3da94ae2005-04-22 00:00:37 +0000319 for (Archive::SymTabType::const_iterator I=symtab.begin(), E=symtab.end();
Reid Spencerbede5832004-11-16 06:41:09 +0000320 I != E; ++I ) {
321 unsigned offset = TheArchive->getFirstFileOffset() + I->second;
322 std::cout << " " << std::setw(9) << offset << "\t" << I->first <<"\n";
323 }
324}
325
Reid Spencer3a1582b2004-11-14 22:20:07 +0000326// doPrint - Implements the 'p' operation. This function traverses the archive
327// looking for members that match the path list. It is careful to uncompress
328// things that should be and to skip bytecode files unless the 'k' modifier was
329// given.
330void doPrint() {
331 buildPaths(false);
332 unsigned countDown = Count;
Misha Brukman3da94ae2005-04-22 00:00:37 +0000333 for (Archive::iterator I = TheArchive->begin(), E = TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000334 I != E; ++I ) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000335 if (Paths.empty() ||
Reid Spencer3a1582b2004-11-14 22:20:07 +0000336 (std::find(Paths.begin(), Paths.end(), I->getPath()) != Paths.end())) {
337 if (countDown == 1) {
338 const char* data = reinterpret_cast<const char*>(I->getData());
339
340 // Skip things that don't make sense to print
Misha Brukman3da94ae2005-04-22 00:00:37 +0000341 if (I->isLLVMSymbolTable() || I->isSVR4SymbolTable() ||
342 I->isBSD4SymbolTable() || (!DontSkipBytecode &&
Reid Spencer3a1582b2004-11-14 22:20:07 +0000343 (I->isBytecode() || I->isCompressedBytecode())))
344 continue;
345
346 if (Verbose)
Reid Spencer1fce0912004-12-11 00:14:15 +0000347 std::cout << "Printing " << I->getPath().toString() << "\n";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000348
349 if (I->isCompressedBytecode())
Reid Spencerb55bc062004-11-14 23:17:41 +0000350 Compressor::decompressToStream(data+4,I->getSize()-4,std::cout);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000351 else if (I->isCompressed()) {
Reid Spencerb55bc062004-11-14 23:17:41 +0000352 Compressor::decompressToStream(data,I->getSize(),std::cout);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000353 } else {
354 unsigned len = I->getSize();
355 std::cout.write(data, len);
356 }
357 } else {
358 countDown--;
359 }
360 }
361 }
362}
363
364// putMode - utility function for printing out the file mode when the 't'
365// operation is in verbose mode.
Reid Spencerbede5832004-11-16 06:41:09 +0000366void printMode(unsigned mode) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000367 if (mode & 004)
Reid Spencer3a1582b2004-11-14 22:20:07 +0000368 std::cout << "r";
369 else
370 std::cout << "-";
371 if (mode & 002)
372 std::cout << "w";
373 else
374 std::cout << "-";
375 if (mode & 001)
376 std::cout << "x";
377 else
378 std::cout << "-";
379}
380
381// doDisplayTable - Implement the 't' operation. This function prints out just
382// the file names of each of the members. However, if verbose mode is requested
383// ('v' modifier) then the file type, permission mode, user, group, size, and
384// modification time are also printed.
385void doDisplayTable() {
386 buildPaths(false);
Misha Brukman3da94ae2005-04-22 00:00:37 +0000387 for (Archive::iterator I = TheArchive->begin(), E = TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000388 I != E; ++I ) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000389 if (Paths.empty() ||
Reid Spencer3a1582b2004-11-14 22:20:07 +0000390 (std::find(Paths.begin(), Paths.end(), I->getPath()) != Paths.end())) {
391 if (Verbose) {
392 // FIXME: Output should be this format:
393 // Zrw-r--r-- 500/ 500 525 Nov 8 17:42 2004 Makefile
394 if (I->isBytecode())
395 std::cout << "b";
396 else if (I->isCompressedBytecode())
397 std::cout << "B";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000398 else if (I->isCompressed())
399 std::cout << "Z";
400 else
401 std::cout << " ";
402 unsigned mode = I->getMode();
Reid Spencerbede5832004-11-16 06:41:09 +0000403 printMode((mode >> 6) & 007);
404 printMode((mode >> 3) & 007);
405 printMode(mode & 007);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000406 std::cout << " " << std::setw(4) << I->getUser();
407 std::cout << "/" << std::setw(4) << I->getGroup();
408 std::cout << " " << std::setw(8) << I->getSize();
Misha Brukman3da94ae2005-04-22 00:00:37 +0000409 std::cout << " " << std::setw(20) <<
Reid Spencerb55bc062004-11-14 23:17:41 +0000410 I->getModTime().toString().substr(4);
Reid Spencer1fce0912004-12-11 00:14:15 +0000411 std::cout << " " << I->getPath().toString() << "\n";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000412 } else {
Reid Spencer1fce0912004-12-11 00:14:15 +0000413 std::cout << I->getPath().toString() << "\n";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000414 }
415 }
416 }
Reid Spencerbede5832004-11-16 06:41:09 +0000417 if (ReallyVerbose)
418 printSymbolTable();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000419}
420
421// doExtract - Implement the 'x' operation. This function extracts files back to
422// the file system, making sure to uncompress any that were compressed.
423void doExtract() {
424 buildPaths(false);
425 unsigned countDown = Count;
Misha Brukman3da94ae2005-04-22 00:00:37 +0000426 for (Archive::iterator I = TheArchive->begin(), E = TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000427 I != E; ++I ) {
428 if (Paths.empty() ||
429 (std::find(Paths.begin(), Paths.end(), I->getPath()) != Paths.end())) {
430
431 // Make sure the intervening directories are created
432 if (I->hasPath()) {
433 sys::Path dirs(I->getPath());
434 dirs.elideFile();
435 dirs.createDirectory(/*create_parents=*/true);
436 }
437
438 // Open up a file stream for writing
Jeff Cohen5fb6ed42005-01-22 17:36:17 +0000439 std::ios::openmode io_mode = std::ios::out | std::ios::trunc |
440 std::ios::binary;
441 std::ofstream file(I->getPath().c_str(), io_mode);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000442
443 // Get the data and its length
444 const char* data = reinterpret_cast<const char*>(I->getData());
445 unsigned len = I->getSize();
446
447 // Write the data, making sure to uncompress things first
448 if (I->isCompressed()) {
Reid Spencerb55bc062004-11-14 23:17:41 +0000449 Compressor::decompressToStream(data,len,file);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000450 } else {
451 file.write(data,len);
452 }
453 file.close();
454
455 // If we're supposed to retain the original modification times, etc. do so
456 // now.
457 if (OriginalDates)
458 I->getPath().setStatusInfo(I->getStatusInfo());
459 }
460 }
461}
462
463// doDelete - Implement the delete operation. This function deletes zero or more
464// members from the archive. Note that if the count is specified, there should
465// be no more than one path in the Paths list or else this algorithm breaks.
466// That check is enforced in parseCommandLine (above).
467void doDelete() {
468 buildPaths(false);
469 if (Paths.empty()) return;
470 unsigned countDown = Count;
Misha Brukman3da94ae2005-04-22 00:00:37 +0000471 for (Archive::iterator I = TheArchive->begin(), E = TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000472 I != E; ) {
473 if (std::find(Paths.begin(), Paths.end(), I->getPath()) != Paths.end()) {
474 if (countDown == 1) {
475 Archive::iterator J = I;
476 ++I;
Reid Spencerbede5832004-11-16 06:41:09 +0000477 TheArchive->erase(J);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000478 } else
479 countDown--;
480 } else {
481 ++I;
482 }
483 }
484
485 // We're done editting, reconstruct the archive.
Reid Spencerbede5832004-11-16 06:41:09 +0000486 TheArchive->writeToDisk(SymTable,TruncateNames,Compression);
487 if (ReallyVerbose)
488 printSymbolTable();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000489}
490
491// doMore - Implement the move operation. This function re-arranges just the
492// order of the archive members so that when the archive is written the move
493// of the members is accomplished. Note the use of the RelPos variable to
494// determine where the items should be moved to.
495void doMove() {
496
497 buildPaths(false);
498
499 // By default and convention the place to move members to is the end of the
500 // archive.
501 Archive::iterator moveto_spot = TheArchive->end();
502
503 // However, if the relative positioning modifiers were used, we need to scan
504 // the archive to find the member in question. If we don't find it, its no
505 // crime, we just move to the end.
506 if (AddBefore || InsertBefore || AddAfter) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000507 for (Archive::iterator I = TheArchive->begin(), E= TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000508 I != E; ++I ) {
Reid Spencer1fce0912004-12-11 00:14:15 +0000509 if (RelPos == I->getPath().toString()) {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000510 if (AddAfter) {
511 moveto_spot = I;
512 moveto_spot++;
513 } else {
514 moveto_spot = I;
515 }
516 break;
517 }
518 }
519 }
520
521 // Keep a list of the paths remaining to be moved
Reid Spencerbede5832004-11-16 06:41:09 +0000522 std::set<sys::Path> remaining(Paths);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000523
524 // Scan the archive again, this time looking for the members to move to the
525 // moveto_spot.
Misha Brukman3da94ae2005-04-22 00:00:37 +0000526 for (Archive::iterator I = TheArchive->begin(), E= TheArchive->end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000527 I != E && !remaining.empty(); ++I ) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000528 std::set<sys::Path>::iterator found =
Reid Spencer3a1582b2004-11-14 22:20:07 +0000529 std::find(remaining.begin(),remaining.end(),I->getPath());
530 if (found != remaining.end()) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000531 if (I != moveto_spot)
Reid Spencerbede5832004-11-16 06:41:09 +0000532 TheArchive->splice(moveto_spot,*TheArchive,I);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000533 remaining.erase(found);
534 }
535 }
536
537 // We're done editting, reconstruct the archive.
Reid Spencerbede5832004-11-16 06:41:09 +0000538 TheArchive->writeToDisk(SymTable,TruncateNames,Compression);
539 if (ReallyVerbose)
540 printSymbolTable();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000541}
542
543// doQuickAppend - Implements the 'q' operation. This function just
544// indiscriminantly adds the members to the archive and rebuilds it.
545void doQuickAppend() {
546 // Get the list of paths to append.
547 buildPaths(true);
548 if (Paths.empty()) return;
549
550 // Append them quickly.
Reid Spencerbede5832004-11-16 06:41:09 +0000551 for (std::set<sys::Path>::iterator PI = Paths.begin(), PE = Paths.end();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000552 PI != PE; ++PI) {
553 TheArchive->addFileBefore(*PI,TheArchive->end());
554 }
555
556 // We're done editting, reconstruct the archive.
Reid Spencerbede5832004-11-16 06:41:09 +0000557 TheArchive->writeToDisk(SymTable,TruncateNames,Compression);
558 if (ReallyVerbose)
559 printSymbolTable();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000560}
561
562// doReplaceOrInsert - Implements the 'r' operation. This function will replace
Misha Brukman3da94ae2005-04-22 00:00:37 +0000563// any existing files or insert new ones into the archive.
Reid Spencer3a1582b2004-11-14 22:20:07 +0000564void doReplaceOrInsert() {
565
566 // Build the list of files to be added/replaced.
567 buildPaths(true);
568 if (Paths.empty()) return;
569
570 // Keep track of the paths that remain to be inserted.
Reid Spencerbede5832004-11-16 06:41:09 +0000571 std::set<sys::Path> remaining(Paths);
Reid Spencer3a1582b2004-11-14 22:20:07 +0000572
573 // Default the insertion spot to the end of the archive
574 Archive::iterator insert_spot = TheArchive->end();
575
576 // Iterate over the archive contents
577 for (Archive::iterator I = TheArchive->begin(), E = TheArchive->end();
578 I != E && !remaining.empty(); ++I ) {
579
580 // Determine if this archive member matches one of the paths we're trying
581 // to replace.
Reid Spencer0de66b52004-12-02 09:21:55 +0000582
583 std::set<sys::Path>::iterator found = remaining.end();
Misha Brukman3da94ae2005-04-22 00:00:37 +0000584 for (std::set<sys::Path>::iterator RI = remaining.begin(),
Reid Spencer0de66b52004-12-02 09:21:55 +0000585 RE = remaining.end(); RI != RE; ++RI ) {
Reid Spencer1fce0912004-12-11 00:14:15 +0000586 std::string compare(RI->toString());
Reid Spencer0de66b52004-12-02 09:21:55 +0000587 if (TruncateNames && compare.length() > 15) {
588 const char* nm = compare.c_str();
589 unsigned len = compare.length();
590 size_t slashpos = compare.rfind('/');
591 if (slashpos != std::string::npos) {
592 nm += slashpos + 1;
593 len -= slashpos +1;
594 }
Misha Brukman3da94ae2005-04-22 00:00:37 +0000595 if (len > 15)
Reid Spencer0de66b52004-12-02 09:21:55 +0000596 len = 15;
597 compare.assign(nm,len);
598 }
Reid Spencer1fce0912004-12-11 00:14:15 +0000599 if (compare == I->getPath().toString()) {
Reid Spencer0de66b52004-12-02 09:21:55 +0000600 found = RI;
601 break;
602 }
603 }
604
Reid Spencer3a1582b2004-11-14 22:20:07 +0000605 if (found != remaining.end()) {
Reid Spencerbede5832004-11-16 06:41:09 +0000606 sys::Path::StatusInfo si;
607 found->getStatusInfo(si);
608 if (si.isDir) {
609 if (OnlyUpdate) {
610 // Replace the item only if it is newer.
611 if (si.modTime > I->getModTime())
612 I->replaceWith(*found);
613 } else {
614 // Replace the item regardless of time stamp
Reid Spencer3a1582b2004-11-14 22:20:07 +0000615 I->replaceWith(*found);
Reid Spencerbede5832004-11-16 06:41:09 +0000616 }
Reid Spencer3a1582b2004-11-14 22:20:07 +0000617 } else {
Reid Spencerbede5832004-11-16 06:41:09 +0000618 // We purposefully ignore directories.
Reid Spencer3a1582b2004-11-14 22:20:07 +0000619 }
620
621 // Remove it from our "to do" list
622 remaining.erase(found);
623 }
624
625 // Determine if this is the place where we should insert
Reid Spencer1fce0912004-12-11 00:14:15 +0000626 if ((AddBefore || InsertBefore) && (RelPos == I->getPath().toString()))
Reid Spencer3a1582b2004-11-14 22:20:07 +0000627 insert_spot = I;
Reid Spencer1fce0912004-12-11 00:14:15 +0000628 else if (AddAfter && (RelPos == I->getPath().toString())) {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000629 insert_spot = I;
630 insert_spot++;
631 }
632 }
633
634 // If we didn't replace all the members, some will remain and need to be
635 // inserted at the previously computed insert-spot.
636 if (!remaining.empty()) {
Misha Brukman3da94ae2005-04-22 00:00:37 +0000637 for (std::set<sys::Path>::iterator PI = remaining.begin(),
Reid Spencer3a1582b2004-11-14 22:20:07 +0000638 PE = remaining.end(); PI != PE; ++PI) {
639 TheArchive->addFileBefore(*PI,insert_spot);
640 }
641 }
642
643 // We're done editting, reconstruct the archive.
Reid Spencerbede5832004-11-16 06:41:09 +0000644 TheArchive->writeToDisk(SymTable,TruncateNames,Compression);
645 if (ReallyVerbose)
646 printSymbolTable();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000647}
648
649// main - main program for llvm-ar .. see comments in the code
Tanya Lattner14baebf2003-08-28 15:22:38 +0000650int main(int argc, char **argv) {
Reid Spencer3a1582b2004-11-14 22:20:07 +0000651
Reid Spencer3a1582b2004-11-14 22:20:07 +0000652 // Have the command line options parsed and handle things
653 // like --help and --version.
654 cl::ParseCommandLineOptions(argc, argv,
655 " LLVM Archiver (llvm-ar)\n\n"
656 " This program archives bytecode files into single libraries\n"
657 );
658
659 // Print a stack trace if we signal out.
Reid Spencer9de7b332004-08-29 19:28:55 +0000660 sys::PrintStackTraceOnErrorSignal();
Chris Lattnerf73b4ca2004-02-19 20:32:12 +0000661
Reid Spencer3a1582b2004-11-14 22:20:07 +0000662 int exitCode = 0;
Tanya Lattner14baebf2003-08-28 15:22:38 +0000663
Reid Spencer3a1582b2004-11-14 22:20:07 +0000664 // Make sure we don't exit with "unhandled exception".
665 try {
666 // Do our own parsing of the command line because the CommandLine utility
667 // can't handle the grouped positional parameters without a dash.
668 ArchiveOperation Operation = parseCommandLine();
Tanya Lattner14baebf2003-08-28 15:22:38 +0000669
Reid Spencer3a1582b2004-11-14 22:20:07 +0000670 // Check the path name of the archive
671 sys::Path ArchivePath;
672 if (!ArchivePath.setFile(ArchiveName))
673 throw std::string("Archive name invalid: ") + ArchiveName;
674
675 // Create or open the archive object.
676 if (!ArchivePath.exists()) {
677 // Produce a warning if we should and we're creating the archive
678 if (!Create)
Reid Spencer1fce0912004-12-11 00:14:15 +0000679 std::cerr << argv[0] << ": creating " << ArchivePath.toString() << "\n";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000680 TheArchive = Archive::CreateEmpty(ArchivePath);
681 } else {
Chris Lattner67c38212004-12-15 07:44:15 +0000682 std::string Error;
683 TheArchive = Archive::OpenAndLoad(ArchivePath, &Error);
Reid Spencerb4ed7b02004-12-15 21:58:03 +0000684 if (TheArchive == 0) {
Chris Lattner67c38212004-12-15 07:44:15 +0000685 std::cerr << argv[0] << ": error loading '" << ArchivePath << "': "
686 << Error << "!\n";
Reid Spencerb4ed7b02004-12-15 21:58:03 +0000687 return 1;
688 }
Reid Spencer3a1582b2004-11-14 22:20:07 +0000689 }
690
691 // Make sure we're not fooling ourselves.
692 assert(TheArchive && "Unable to instantiate the archive");
693
Reid Spencerbede5832004-11-16 06:41:09 +0000694 // Make sure we clean up the archive even on failure.
695 std::auto_ptr<Archive> AutoArchive(TheArchive);
696
Reid Spencer3a1582b2004-11-14 22:20:07 +0000697 // Perform the operation
698 switch (Operation) {
699 case Print: doPrint(); break;
700 case Delete: doDelete(); break;
701 case Move: doMove(); break;
702 case QuickAppend: /* FALL THROUGH */
703 case ReplaceOrInsert: doReplaceOrInsert(); break;
704 case DisplayTable: doDisplayTable(); break;
705 case Extract: doExtract(); break;
706 case NoOperation:
707 std::cerr << argv[0] << ": No operation was selected.\n";
708 break;
709 }
Reid Spencer3a1582b2004-11-14 22:20:07 +0000710 } catch (const char*msg) {
711 // These errors are usage errors, thrown only by the various checks in the
712 // code above.
713 std::cerr << argv[0] << ": " << msg << "\n\n";
Reid Spencerbede5832004-11-16 06:41:09 +0000714 cl::PrintHelpMessage();
Reid Spencer3a1582b2004-11-14 22:20:07 +0000715 exitCode = 1;
716 } catch (const std::string& msg) {
717 // These errors are thrown by LLVM libraries (e.g. lib System) and represent
718 // a more serious error so we bump the exitCode and don't print the usage.
719 std::cerr << argv[0] << ": " << msg << "\n";
720 exitCode = 2;
721 } catch (...) {
722 // This really shouldn't happen, but just in case ....
Reid Spencerbede5832004-11-16 06:41:09 +0000723 std::cerr << argv[0] << ": An unexpected unknown exception occurred.\n";
Reid Spencer3a1582b2004-11-14 22:20:07 +0000724 exitCode = 3;
725 }
726
727 // Return result code back to operating system.
728 return exitCode;
Tanya Lattner14baebf2003-08-28 15:22:38 +0000729}