Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 1 | //===----------------------------------------------------------------------===// |
| 2 | // LLVM 'LINK' UTILITY |
| 3 | // |
| 4 | // This utility may be invoked in the following manner: |
| 5 | // link a.bc b.bc c.bc -o x.bc |
| 6 | // |
Chris Lattner | ebaa788 | 2001-10-23 20:44:55 +0000 | [diff] [blame] | 7 | // Alternatively, this can be used as an 'ar' tool as well. If invoked as |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 8 | // either 'ar' or 'llvm-ar', it accepts a 'rc' parameter as well. |
Chris Lattner | ebaa788 | 2001-10-23 20:44:55 +0000 | [diff] [blame] | 9 | // |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 10 | //===----------------------------------------------------------------------===// |
| 11 | |
Chris Lattner | 7608a46 | 2002-05-07 18:36:35 +0000 | [diff] [blame] | 12 | #include "llvm/Transforms/Utils/Linker.h" |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 13 | #include "llvm/Bytecode/Reader.h" |
| 14 | #include "llvm/Bytecode/Writer.h" |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 15 | #include "llvm/Module.h" |
Chris Lattner | 5de2204 | 2001-11-27 00:03:19 +0000 | [diff] [blame] | 16 | #include "Support/CommandLine.h" |
Chris Lattner | c065ad8 | 2002-04-18 19:55:25 +0000 | [diff] [blame] | 17 | #include "Support/Signals.h" |
Chris Lattner | 5de2204 | 2001-11-27 00:03:19 +0000 | [diff] [blame] | 18 | #include <fstream> |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 19 | #include <memory> |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 20 | #include <sys/types.h> // For FileExists |
| 21 | #include <sys/stat.h> |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 22 | |
Chris Lattner | f5cad15 | 2002-07-22 02:10:13 +0000 | [diff] [blame] | 23 | static cl::list<std::string> |
| 24 | InputFilenames(cl::Positional, cl::OneOrMore, |
Chris Lattner | 17570e1 | 2002-07-22 02:18:09 +0000 | [diff] [blame] | 25 | cl::desc("<input bytecode files>")); |
Chris Lattner | f5cad15 | 2002-07-22 02:10:13 +0000 | [diff] [blame] | 26 | |
| 27 | static cl::opt<std::string> |
| 28 | OutputFilename("o", cl::desc("Override output filename"), cl::init("-"), |
| 29 | cl::value_desc("filename")); |
| 30 | |
| 31 | static cl::opt<bool> Force("f", cl::desc("Overwrite output files")); |
| 32 | |
| 33 | static cl::opt<bool> |
| 34 | Verbose("v", cl::desc("Print information about actions taken")); |
| 35 | |
| 36 | static cl::opt<bool> |
| 37 | DumpAsm("d", cl::desc("Print assembly as linked"), cl::Hidden); |
| 38 | |
| 39 | static cl::list<std::string> |
| 40 | LibPaths("L", cl::desc("Specify a library search path"), cl::ZeroOrMore, |
| 41 | cl::value_desc("directory"), cl::Prefix); |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 42 | |
| 43 | // FileExists - Return true if the specified string is an openable file... |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 44 | static inline bool FileExists(const std::string &FN) { |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 45 | struct stat StatBuf; |
| 46 | return stat(FN.c_str(), &StatBuf) != -1; |
| 47 | } |
| 48 | |
| 49 | // LoadFile - Read the specified bytecode file in and return it. This routine |
| 50 | // searches the link path for the specified file to try to find it... |
| 51 | // |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 52 | static inline std::auto_ptr<Module> LoadFile(const std::string &FN) { |
| 53 | std::string Filename = FN; |
| 54 | std::string ErrorMessage; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 55 | |
| 56 | unsigned NextLibPathIdx = 0; |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 57 | bool FoundAFile = false; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 58 | |
| 59 | while (1) { |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 60 | if (Verbose) std::cerr << "Loading '" << Filename << "'\n"; |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 61 | if (FileExists(Filename)) FoundAFile = true; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 62 | Module *Result = ParseBytecodeFile(Filename, &ErrorMessage); |
| 63 | if (Result) return std::auto_ptr<Module>(Result); // Load successful! |
| 64 | |
| 65 | if (Verbose) { |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 66 | std::cerr << "Error opening bytecode file: '" << Filename << "'"; |
| 67 | if (ErrorMessage.size()) std::cerr << ": " << ErrorMessage; |
| 68 | std::cerr << "\n"; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 69 | } |
| 70 | |
| 71 | if (NextLibPathIdx == LibPaths.size()) break; |
| 72 | Filename = LibPaths[NextLibPathIdx++] + "/" + FN; |
| 73 | } |
| 74 | |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 75 | if (FoundAFile) |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 76 | std::cerr << "Bytecode file '" << FN << "' corrupt! " |
| 77 | << "Use 'link -v ...' for more info.\n"; |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 78 | else |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 79 | std::cerr << "Could not locate bytecode file: '" << FN << "'\n"; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 80 | return std::auto_ptr<Module>(); |
| 81 | } |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 82 | |
Chris Lattner | 5053ba9 | 2001-12-08 20:31:32 +0000 | [diff] [blame] | 83 | |
| 84 | |
| 85 | |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 86 | int main(int argc, char **argv) { |
Chris Lattner | f5cad15 | 2002-07-22 02:10:13 +0000 | [diff] [blame] | 87 | cl::ParseCommandLineOptions(argc, argv, " llvm linker\n"); |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 88 | assert(InputFilenames.size() > 0 && "OneOrMore is not working"); |
| 89 | |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 90 | unsigned BaseArg = 0; |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 91 | std::string ErrorMessage; |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 92 | |
| 93 | // TODO: TEST argv[0] for llvm-ar forms... for now, this is a huge hack. |
| 94 | if (InputFilenames.size() >= 3 && InputFilenames[0] == "rc" && |
| 95 | OutputFilename == "-") { |
| 96 | BaseArg = 2; |
| 97 | OutputFilename = InputFilenames[1]; |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 98 | } |
| 99 | |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 100 | std::auto_ptr<Module> Composite(LoadFile(InputFilenames[BaseArg])); |
| 101 | if (Composite.get() == 0) return 1; |
| 102 | |
| 103 | for (unsigned i = BaseArg+1; i < InputFilenames.size(); ++i) { |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 104 | std::auto_ptr<Module> M(LoadFile(InputFilenames[i])); |
Chris Lattner | ae31f5b | 2001-10-24 06:23:00 +0000 | [diff] [blame] | 105 | if (M.get() == 0) return 1; |
Chris Lattner | ebaa788 | 2001-10-23 20:44:55 +0000 | [diff] [blame] | 106 | |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 107 | if (Verbose) std::cerr << "Linking in '" << InputFilenames[i] << "'\n"; |
Chris Lattner | ebaa788 | 2001-10-23 20:44:55 +0000 | [diff] [blame] | 108 | |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 109 | if (LinkModules(Composite.get(), M.get(), &ErrorMessage)) { |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 110 | std::cerr << argv[0] << ": error linking in '" << InputFilenames[i] |
| 111 | << "': " << ErrorMessage << "\n"; |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 112 | return 1; |
| 113 | } |
| 114 | } |
| 115 | |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 116 | if (DumpAsm) std::cerr << "Here's the assembly:\n" << Composite.get(); |
Chris Lattner | d631165 | 2001-10-14 23:23:33 +0000 | [diff] [blame] | 117 | |
Anand Shukla | fef3241 | 2002-06-25 21:57:48 +0000 | [diff] [blame] | 118 | std::ostream *Out = &std::cout; // Default to printing to stdout... |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 119 | if (OutputFilename != "-") { |
Chris Lattner | 0e11e54 | 2002-01-22 21:07:24 +0000 | [diff] [blame] | 120 | if (!Force && std::ifstream(OutputFilename.c_str())) { |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 121 | // If force is not specified, make sure not to overwrite a file! |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 122 | std::cerr << argv[0] << ": error opening '" << OutputFilename |
| 123 | << "': file exists!\n" |
| 124 | << "Use -f command line argument to force output\n"; |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 125 | return 1; |
| 126 | } |
| 127 | Out = new std::ofstream(OutputFilename.c_str()); |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 128 | if (!Out->good()) { |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 129 | std::cerr << argv[0] << ": error opening '" << OutputFilename << "'!\n"; |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 130 | return 1; |
| 131 | } |
Chris Lattner | c065ad8 | 2002-04-18 19:55:25 +0000 | [diff] [blame] | 132 | |
| 133 | // Make sure that the Out file gets unlink'd from the disk if we get a |
| 134 | // SIGINT |
| 135 | RemoveFileOnSignal(OutputFilename); |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 136 | } |
| 137 | |
Chris Lattner | 02a1683 | 2003-05-22 20:13:16 +0000 | [diff] [blame^] | 138 | if (Verbose) std::cerr << "Writing bytecode...\n"; |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 139 | WriteBytecodeToFile(Composite.get(), *Out); |
| 140 | |
Chris Lattner | 7f74a56 | 2002-01-20 22:54:45 +0000 | [diff] [blame] | 141 | if (Out != &std::cout) delete Out; |
Chris Lattner | 9d810e0 | 2001-10-13 07:06:23 +0000 | [diff] [blame] | 142 | return 0; |
| 143 | } |