1 //===--- COFFModuleDefinition.cpp - Simple DEF parser ---------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 // 9 // Windows-specific. 10 // A parser for the module-definition file (.def file). 11 // 12 // The format of module-definition files are described in this document: 13 // https://msdn.microsoft.com/en-us/library/28d6s79h.aspx 14 // 15 //===----------------------------------------------------------------------===// 16 17 #include "llvm/Object/COFFModuleDefinition.h" 18 #include "llvm/ADT/StringRef.h" 19 #include "llvm/ADT/StringSwitch.h" 20 #include "llvm/Object/COFF.h" 21 #include "llvm/Object/COFFImportFile.h" 22 #include "llvm/Object/Error.h" 23 #include "llvm/Support/Error.h" 24 #include "llvm/Support/Path.h" 25 #include "llvm/Support/raw_ostream.h" 26 27 using namespace llvm::COFF; 28 using namespace llvm; 29 30 namespace llvm { 31 namespace object { 32 33 enum Kind { 34 Unknown, 35 Eof, 36 Identifier, 37 Comma, 38 Equal, 39 EqualEqual, 40 KwBase, 41 KwConstant, 42 KwData, 43 KwExports, 44 KwHeapsize, 45 KwLibrary, 46 KwName, 47 KwNoname, 48 KwPrivate, 49 KwStacksize, 50 KwVersion, 51 }; 52 53 struct Token { 54 explicit Token(Kind T = Unknown, StringRef S = "") : K(T), Value(S) {} 55 Kind K; 56 StringRef Value; 57 }; 58 59 static bool isDecorated(StringRef Sym, bool MingwDef) { 60 // In def files, the symbols can either be listed decorated or undecorated. 61 // 62 // - For cdecl symbols, only the undecorated form is allowed. 63 // - For fastcall and vectorcall symbols, both fully decorated or 64 // undecorated forms can be present. 65 // - For stdcall symbols in non-MinGW environments, the decorated form is 66 // fully decorated with leading underscore and trailing stack argument 67 // size - like "_Func@0". 68 // - In MinGW def files, a decorated stdcall symbol does not include the 69 // leading underscore though, like "Func@0". 70 71 // This function controls whether a leading underscore should be added to 72 // the given symbol name or not. For MinGW, treat a stdcall symbol name such 73 // as "Func@0" as undecorated, i.e. a leading underscore must be added. 74 // For non-MinGW, look for '@' in the whole string and consider "_Func@0" 75 // as decorated, i.e. don't add any more leading underscores. 76 // We can't check for a leading underscore here, since function names 77 // themselves can start with an underscore, while a second one still needs 78 // to be added. 79 return Sym.startswith("@") || Sym.contains("@@") || Sym.startswith("?") || 80 (!MingwDef && Sym.contains('@')); 81 } 82 83 static Error createError(const Twine &Err) { 84 return make_error<StringError>(StringRef(Err.str()), 85 object_error::parse_failed); 86 } 87 88 class Lexer { 89 public: 90 Lexer(StringRef S) : Buf(S) {} 91 92 Token lex() { 93 Buf = Buf.trim(); 94 if (Buf.empty()) 95 return Token(Eof); 96 97 switch (Buf[0]) { 98 case '\0': 99 return Token(Eof); 100 case ';': { 101 size_t End = Buf.find('\n'); 102 Buf = (End == Buf.npos) ? "" : Buf.drop_front(End); 103 return lex(); 104 } 105 case '=': 106 Buf = Buf.drop_front(); 107 if (Buf.startswith("=")) { 108 Buf = Buf.drop_front(); 109 return Token(EqualEqual, "=="); 110 } 111 return Token(Equal, "="); 112 case ',': 113 Buf = Buf.drop_front(); 114 return Token(Comma, ","); 115 case '"': { 116 StringRef S; 117 std::tie(S, Buf) = Buf.substr(1).split('"'); 118 return Token(Identifier, S); 119 } 120 default: { 121 size_t End = Buf.find_first_of("=,;\r\n \t\v"); 122 StringRef Word = Buf.substr(0, End); 123 Kind K = llvm::StringSwitch<Kind>(Word) 124 .Case("BASE", KwBase) 125 .Case("CONSTANT", KwConstant) 126 .Case("DATA", KwData) 127 .Case("EXPORTS", KwExports) 128 .Case("HEAPSIZE", KwHeapsize) 129 .Case("LIBRARY", KwLibrary) 130 .Case("NAME", KwName) 131 .Case("NONAME", KwNoname) 132 .Case("PRIVATE", KwPrivate) 133 .Case("STACKSIZE", KwStacksize) 134 .Case("VERSION", KwVersion) 135 .Default(Identifier); 136 Buf = (End == Buf.npos) ? "" : Buf.drop_front(End); 137 return Token(K, Word); 138 } 139 } 140 } 141 142 private: 143 StringRef Buf; 144 }; 145 146 class Parser { 147 public: 148 explicit Parser(StringRef S, MachineTypes M, bool B) 149 : Lex(S), Machine(M), MingwDef(B) {} 150 151 Expected<COFFModuleDefinition> parse() { 152 do { 153 if (Error Err = parseOne()) 154 return std::move(Err); 155 } while (Tok.K != Eof); 156 return Info; 157 } 158 159 private: 160 void read() { 161 if (Stack.empty()) { 162 Tok = Lex.lex(); 163 return; 164 } 165 Tok = Stack.back(); 166 Stack.pop_back(); 167 } 168 169 Error readAsInt(uint64_t *I) { 170 read(); 171 if (Tok.K != Identifier || Tok.Value.getAsInteger(10, *I)) 172 return createError("integer expected"); 173 return Error::success(); 174 } 175 176 Error expect(Kind Expected, StringRef Msg) { 177 read(); 178 if (Tok.K != Expected) 179 return createError(Msg); 180 return Error::success(); 181 } 182 183 void unget() { Stack.push_back(Tok); } 184 185 Error parseOne() { 186 read(); 187 switch (Tok.K) { 188 case Eof: 189 return Error::success(); 190 case KwExports: 191 for (;;) { 192 read(); 193 if (Tok.K != Identifier) { 194 unget(); 195 return Error::success(); 196 } 197 if (Error Err = parseExport()) 198 return Err; 199 } 200 case KwHeapsize: 201 return parseNumbers(&Info.HeapReserve, &Info.HeapCommit); 202 case KwStacksize: 203 return parseNumbers(&Info.StackReserve, &Info.StackCommit); 204 case KwLibrary: 205 case KwName: { 206 bool IsDll = Tok.K == KwLibrary; // Check before parseName. 207 std::string Name; 208 if (Error Err = parseName(&Name, &Info.ImageBase)) 209 return Err; 210 211 Info.ImportName = Name; 212 213 // Set the output file, but don't override /out if it was already passed. 214 if (Info.OutputFile.empty()) { 215 Info.OutputFile = Name; 216 // Append the appropriate file extension if not already present. 217 if (!sys::path::has_extension(Name)) 218 Info.OutputFile += IsDll ? ".dll" : ".exe"; 219 } 220 221 return Error::success(); 222 } 223 case KwVersion: 224 return parseVersion(&Info.MajorImageVersion, &Info.MinorImageVersion); 225 default: 226 return createError("unknown directive: " + Tok.Value); 227 } 228 } 229 230 Error parseExport() { 231 COFFShortExport E; 232 E.Name = Tok.Value; 233 read(); 234 if (Tok.K == Equal) { 235 read(); 236 if (Tok.K != Identifier) 237 return createError("identifier expected, but got " + Tok.Value); 238 E.ExtName = E.Name; 239 E.Name = Tok.Value; 240 } else { 241 unget(); 242 } 243 244 if (Machine == IMAGE_FILE_MACHINE_I386) { 245 if (!isDecorated(E.Name, MingwDef)) 246 E.Name = (std::string("_").append(E.Name)); 247 if (!E.ExtName.empty() && !isDecorated(E.ExtName, MingwDef)) 248 E.ExtName = (std::string("_").append(E.ExtName)); 249 } 250 251 for (;;) { 252 read(); 253 if (Tok.K == Identifier && Tok.Value[0] == '@') { 254 if (Tok.Value == "@") { 255 // "foo @ 10" 256 read(); 257 Tok.Value.getAsInteger(10, E.Ordinal); 258 } else if (Tok.Value.drop_front().getAsInteger(10, E.Ordinal)) { 259 // "foo \n @bar" - Not an ordinal modifier at all, but the next 260 // export (fastcall decorated) - complete the current one. 261 unget(); 262 Info.Exports.push_back(E); 263 return Error::success(); 264 } 265 // "foo @10" 266 read(); 267 if (Tok.K == KwNoname) { 268 E.Noname = true; 269 } else { 270 unget(); 271 } 272 continue; 273 } 274 if (Tok.K == KwData) { 275 E.Data = true; 276 continue; 277 } 278 if (Tok.K == KwConstant) { 279 E.Constant = true; 280 continue; 281 } 282 if (Tok.K == KwPrivate) { 283 E.Private = true; 284 continue; 285 } 286 if (Tok.K == EqualEqual) { 287 read(); 288 E.AliasTarget = Tok.Value; 289 if (Machine == IMAGE_FILE_MACHINE_I386 && !isDecorated(E.AliasTarget, MingwDef)) 290 E.AliasTarget = std::string("_").append(E.AliasTarget); 291 continue; 292 } 293 unget(); 294 Info.Exports.push_back(E); 295 return Error::success(); 296 } 297 } 298 299 // HEAPSIZE/STACKSIZE reserve[,commit] 300 Error parseNumbers(uint64_t *Reserve, uint64_t *Commit) { 301 if (Error Err = readAsInt(Reserve)) 302 return Err; 303 read(); 304 if (Tok.K != Comma) { 305 unget(); 306 Commit = nullptr; 307 return Error::success(); 308 } 309 if (Error Err = readAsInt(Commit)) 310 return Err; 311 return Error::success(); 312 } 313 314 // NAME outputPath [BASE=address] 315 Error parseName(std::string *Out, uint64_t *Baseaddr) { 316 read(); 317 if (Tok.K == Identifier) { 318 *Out = Tok.Value; 319 } else { 320 *Out = ""; 321 unget(); 322 return Error::success(); 323 } 324 read(); 325 if (Tok.K == KwBase) { 326 if (Error Err = expect(Equal, "'=' expected")) 327 return Err; 328 if (Error Err = readAsInt(Baseaddr)) 329 return Err; 330 } else { 331 unget(); 332 *Baseaddr = 0; 333 } 334 return Error::success(); 335 } 336 337 // VERSION major[.minor] 338 Error parseVersion(uint32_t *Major, uint32_t *Minor) { 339 read(); 340 if (Tok.K != Identifier) 341 return createError("identifier expected, but got " + Tok.Value); 342 StringRef V1, V2; 343 std::tie(V1, V2) = Tok.Value.split('.'); 344 if (V1.getAsInteger(10, *Major)) 345 return createError("integer expected, but got " + Tok.Value); 346 if (V2.empty()) 347 *Minor = 0; 348 else if (V2.getAsInteger(10, *Minor)) 349 return createError("integer expected, but got " + Tok.Value); 350 return Error::success(); 351 } 352 353 Lexer Lex; 354 Token Tok; 355 std::vector<Token> Stack; 356 MachineTypes Machine; 357 COFFModuleDefinition Info; 358 bool MingwDef; 359 }; 360 361 Expected<COFFModuleDefinition> parseCOFFModuleDefinition(MemoryBufferRef MB, 362 MachineTypes Machine, 363 bool MingwDef) { 364 return Parser(MB.getBuffer(), Machine, MingwDef).parse(); 365 } 366 367 } // namespace object 368 } // namespace llvm 369