Perform explicit instantiations in the proper namespace, since Clang diagnoses this...
[oota-llvm.git] / lib / Support / CommandLine.cpp
1 //===-- CommandLine.cpp - Command line parser implementation --------------===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 //
10 // This class implements a command line argument processor that is useful when
11 // creating a tool.  It provides a simple, minimalistic interface that is easily
12 // extensible and supports nonlocal (library) command line options.
13 //
14 // Note that rather than trying to figure out what this code does, you could try
15 // reading the library documentation located in docs/CommandLine.html
16 //
17 //===----------------------------------------------------------------------===//
18
19 #include "llvm/Support/CommandLine.h"
20 #include "llvm/Support/Debug.h"
21 #include "llvm/Support/ErrorHandling.h"
22 #include "llvm/Support/MemoryBuffer.h"
23 #include "llvm/Support/ManagedStatic.h"
24 #include "llvm/Support/raw_ostream.h"
25 #include "llvm/Target/TargetRegistry.h"
26 #include "llvm/System/Host.h"
27 #include "llvm/System/Path.h"
28 #include "llvm/ADT/OwningPtr.h"
29 #include "llvm/ADT/SmallPtrSet.h"
30 #include "llvm/ADT/SmallString.h"
31 #include "llvm/ADT/StringMap.h"
32 #include "llvm/ADT/Twine.h"
33 #include "llvm/Config/config.h"
34 #include <cerrno>
35 #include <cstdlib>
36 using namespace llvm;
37 using namespace cl;
38
39 //===----------------------------------------------------------------------===//
40 // Template instantiations and anchors.
41 //
42 namespace llvm { namespace cl {
43 TEMPLATE_INSTANTIATION(class basic_parser<bool>);
44 TEMPLATE_INSTANTIATION(class basic_parser<boolOrDefault>);
45 TEMPLATE_INSTANTIATION(class basic_parser<int>);
46 TEMPLATE_INSTANTIATION(class basic_parser<unsigned>);
47 TEMPLATE_INSTANTIATION(class basic_parser<double>);
48 TEMPLATE_INSTANTIATION(class basic_parser<float>);
49 TEMPLATE_INSTANTIATION(class basic_parser<std::string>);
50 TEMPLATE_INSTANTIATION(class basic_parser<char>);
51
52 TEMPLATE_INSTANTIATION(class opt<unsigned>);
53 TEMPLATE_INSTANTIATION(class opt<int>);
54 TEMPLATE_INSTANTIATION(class opt<std::string>);
55 TEMPLATE_INSTANTIATION(class opt<char>);
56 TEMPLATE_INSTANTIATION(class opt<bool>);
57 } } // end namespace llvm::cl
58
59 void Option::anchor() {}
60 void basic_parser_impl::anchor() {}
61 void parser<bool>::anchor() {}
62 void parser<boolOrDefault>::anchor() {}
63 void parser<int>::anchor() {}
64 void parser<unsigned>::anchor() {}
65 void parser<double>::anchor() {}
66 void parser<float>::anchor() {}
67 void parser<std::string>::anchor() {}
68 void parser<char>::anchor() {}
69
70 //===----------------------------------------------------------------------===//
71
72 // Globals for name and overview of program.  Program name is not a string to
73 // avoid static ctor/dtor issues.
74 static char ProgramName[80] = "<premain>";
75 static const char *ProgramOverview = 0;
76
77 // This collects additional help to be printed.
78 static ManagedStatic<std::vector<const char*> > MoreHelp;
79
80 extrahelp::extrahelp(const char *Help)
81   : morehelp(Help) {
82   MoreHelp->push_back(Help);
83 }
84
85 static bool OptionListChanged = false;
86
87 // MarkOptionsChanged - Internal helper function.
88 void cl::MarkOptionsChanged() {
89   OptionListChanged = true;
90 }
91
92 /// RegisteredOptionList - This is the list of the command line options that
93 /// have statically constructed themselves.
94 static Option *RegisteredOptionList = 0;
95
96 void Option::addArgument() {
97   assert(NextRegistered == 0 && "argument multiply registered!");
98
99   NextRegistered = RegisteredOptionList;
100   RegisteredOptionList = this;
101   MarkOptionsChanged();
102 }
103
104
105 //===----------------------------------------------------------------------===//
106 // Basic, shared command line option processing machinery.
107 //
108
109 /// GetOptionInfo - Scan the list of registered options, turning them into data
110 /// structures that are easier to handle.
111 static void GetOptionInfo(SmallVectorImpl<Option*> &PositionalOpts,
112                           SmallVectorImpl<Option*> &SinkOpts,
113                           StringMap<Option*> &OptionsMap) {
114   SmallVector<const char*, 16> OptionNames;
115   Option *CAOpt = 0;  // The ConsumeAfter option if it exists.
116   for (Option *O = RegisteredOptionList; O; O = O->getNextRegisteredOption()) {
117     // If this option wants to handle multiple option names, get the full set.
118     // This handles enum options like "-O1 -O2" etc.
119     O->getExtraOptionNames(OptionNames);
120     if (O->ArgStr[0])
121       OptionNames.push_back(O->ArgStr);
122
123     // Handle named options.
124     for (size_t i = 0, e = OptionNames.size(); i != e; ++i) {
125       // Add argument to the argument map!
126       if (OptionsMap.GetOrCreateValue(OptionNames[i], O).second != O) {
127         errs() << ProgramName << ": CommandLine Error: Argument '"
128              << OptionNames[i] << "' defined more than once!\n";
129       }
130     }
131
132     OptionNames.clear();
133
134     // Remember information about positional options.
135     if (O->getFormattingFlag() == cl::Positional)
136       PositionalOpts.push_back(O);
137     else if (O->getMiscFlags() & cl::Sink) // Remember sink options
138       SinkOpts.push_back(O);
139     else if (O->getNumOccurrencesFlag() == cl::ConsumeAfter) {
140       if (CAOpt)
141         O->error("Cannot specify more than one option with cl::ConsumeAfter!");
142       CAOpt = O;
143     }
144   }
145
146   if (CAOpt)
147     PositionalOpts.push_back(CAOpt);
148
149   // Make sure that they are in order of registration not backwards.
150   std::reverse(PositionalOpts.begin(), PositionalOpts.end());
151 }
152
153
154 /// LookupOption - Lookup the option specified by the specified option on the
155 /// command line.  If there is a value specified (after an equal sign) return
156 /// that as well.  This assumes that leading dashes have already been stripped.
157 static Option *LookupOption(StringRef &Arg, StringRef &Value,
158                             const StringMap<Option*> &OptionsMap) {
159   // Reject all dashes.
160   if (Arg.empty()) return 0;
161
162   size_t EqualPos = Arg.find('=');
163
164   // If we have an equals sign, remember the value.
165   if (EqualPos == StringRef::npos) {
166     // Look up the option.
167     StringMap<Option*>::const_iterator I = OptionsMap.find(Arg);
168     return I != OptionsMap.end() ? I->second : 0;
169   }
170
171   // If the argument before the = is a valid option name, we match.  If not,
172   // return Arg unmolested.
173   StringMap<Option*>::const_iterator I =
174     OptionsMap.find(Arg.substr(0, EqualPos));
175   if (I == OptionsMap.end()) return 0;
176
177   Value = Arg.substr(EqualPos+1);
178   Arg = Arg.substr(0, EqualPos);
179   return I->second;
180 }
181
182 /// CommaSeparateAndAddOccurence - A wrapper around Handler->addOccurence() that
183 /// does special handling of cl::CommaSeparated options.
184 static bool CommaSeparateAndAddOccurence(Option *Handler, unsigned pos,
185                                          StringRef ArgName,
186                                          StringRef Value, bool MultiArg = false)
187 {
188   // Check to see if this option accepts a comma separated list of values.  If
189   // it does, we have to split up the value into multiple values.
190   if (Handler->getMiscFlags() & CommaSeparated) {
191     StringRef Val(Value);
192     StringRef::size_type Pos = Val.find(',');
193
194     while (Pos != StringRef::npos) {
195       // Process the portion before the comma.
196       if (Handler->addOccurrence(pos, ArgName, Val.substr(0, Pos), MultiArg))
197         return true;
198       // Erase the portion before the comma, AND the comma.
199       Val = Val.substr(Pos+1);
200       Value.substr(Pos+1);  // Increment the original value pointer as well.
201       // Check for another comma.
202       Pos = Val.find(',');
203     }
204
205     Value = Val;
206   }
207
208   if (Handler->addOccurrence(pos, ArgName, Value, MultiArg))
209     return true;
210
211   return false;
212 }
213
214 /// ProvideOption - For Value, this differentiates between an empty value ("")
215 /// and a null value (StringRef()).  The later is accepted for arguments that
216 /// don't allow a value (-foo) the former is rejected (-foo=).
217 static inline bool ProvideOption(Option *Handler, StringRef ArgName,
218                                  StringRef Value, int argc, char **argv,
219                                  int &i) {
220   // Is this a multi-argument option?
221   unsigned NumAdditionalVals = Handler->getNumAdditionalVals();
222
223   // Enforce value requirements
224   switch (Handler->getValueExpectedFlag()) {
225   case ValueRequired:
226     if (Value.data() == 0) {       // No value specified?
227       if (i+1 >= argc)
228         return Handler->error("requires a value!");
229       // Steal the next argument, like for '-o filename'
230       Value = argv[++i];
231     }
232     break;
233   case ValueDisallowed:
234     if (NumAdditionalVals > 0)
235       return Handler->error("multi-valued option specified"
236                             " with ValueDisallowed modifier!");
237
238     if (Value.data())
239       return Handler->error("does not allow a value! '" +
240                             Twine(Value) + "' specified.");
241     break;
242   case ValueOptional:
243     break;
244
245   default:
246     errs() << ProgramName
247          << ": Bad ValueMask flag! CommandLine usage error:"
248          << Handler->getValueExpectedFlag() << "\n";
249     llvm_unreachable(0);
250   }
251
252   // If this isn't a multi-arg option, just run the handler.
253   if (NumAdditionalVals == 0)
254     return CommaSeparateAndAddOccurence(Handler, i, ArgName, Value);
255
256   // If it is, run the handle several times.
257   bool MultiArg = false;
258
259   if (Value.data()) {
260     if (CommaSeparateAndAddOccurence(Handler, i, ArgName, Value, MultiArg))
261       return true;
262     --NumAdditionalVals;
263     MultiArg = true;
264   }
265
266   while (NumAdditionalVals > 0) {
267     if (i+1 >= argc)
268       return Handler->error("not enough values!");
269     Value = argv[++i];
270
271     if (CommaSeparateAndAddOccurence(Handler, i, ArgName, Value, MultiArg))
272       return true;
273     MultiArg = true;
274     --NumAdditionalVals;
275   }
276   return false;
277 }
278
279 static bool ProvidePositionalOption(Option *Handler, StringRef Arg, int i) {
280   int Dummy = i;
281   return ProvideOption(Handler, Handler->ArgStr, Arg, 0, 0, Dummy);
282 }
283
284
285 // Option predicates...
286 static inline bool isGrouping(const Option *O) {
287   return O->getFormattingFlag() == cl::Grouping;
288 }
289 static inline bool isPrefixedOrGrouping(const Option *O) {
290   return isGrouping(O) || O->getFormattingFlag() == cl::Prefix;
291 }
292
293 // getOptionPred - Check to see if there are any options that satisfy the
294 // specified predicate with names that are the prefixes in Name.  This is
295 // checked by progressively stripping characters off of the name, checking to
296 // see if there options that satisfy the predicate.  If we find one, return it,
297 // otherwise return null.
298 //
299 static Option *getOptionPred(StringRef Name, size_t &Length,
300                              bool (*Pred)(const Option*),
301                              const StringMap<Option*> &OptionsMap) {
302
303   StringMap<Option*>::const_iterator OMI = OptionsMap.find(Name);
304
305   // Loop while we haven't found an option and Name still has at least two
306   // characters in it (so that the next iteration will not be the empty
307   // string.
308   while (OMI == OptionsMap.end() && Name.size() > 1) {
309     Name = Name.substr(0, Name.size()-1);   // Chop off the last character.
310     OMI = OptionsMap.find(Name);
311   }
312
313   if (OMI != OptionsMap.end() && Pred(OMI->second)) {
314     Length = Name.size();
315     return OMI->second;    // Found one!
316   }
317   return 0;                // No option found!
318 }
319
320 /// HandlePrefixedOrGroupedOption - The specified argument string (which started
321 /// with at least one '-') does not fully match an available option.  Check to
322 /// see if this is a prefix or grouped option.  If so, split arg into output an
323 /// Arg/Value pair and return the Option to parse it with.
324 static Option *HandlePrefixedOrGroupedOption(StringRef &Arg, StringRef &Value,
325                                              bool &ErrorParsing,
326                                          const StringMap<Option*> &OptionsMap) {
327   if (Arg.size() == 1) return 0;
328
329   // Do the lookup!
330   size_t Length = 0;
331   Option *PGOpt = getOptionPred(Arg, Length, isPrefixedOrGrouping, OptionsMap);
332   if (PGOpt == 0) return 0;
333
334   // If the option is a prefixed option, then the value is simply the
335   // rest of the name...  so fall through to later processing, by
336   // setting up the argument name flags and value fields.
337   if (PGOpt->getFormattingFlag() == cl::Prefix) {
338     Value = Arg.substr(Length);
339     Arg = Arg.substr(0, Length);
340     assert(OptionsMap.count(Arg) && OptionsMap.find(Arg)->second == PGOpt);
341     return PGOpt;
342   }
343
344   // This must be a grouped option... handle them now.  Grouping options can't
345   // have values.
346   assert(isGrouping(PGOpt) && "Broken getOptionPred!");
347
348   do {
349     // Move current arg name out of Arg into OneArgName.
350     StringRef OneArgName = Arg.substr(0, Length);
351     Arg = Arg.substr(Length);
352
353     // Because ValueRequired is an invalid flag for grouped arguments,
354     // we don't need to pass argc/argv in.
355     assert(PGOpt->getValueExpectedFlag() != cl::ValueRequired &&
356            "Option can not be cl::Grouping AND cl::ValueRequired!");
357     int Dummy;
358     ErrorParsing |= ProvideOption(PGOpt, OneArgName,
359                                   StringRef(), 0, 0, Dummy);
360
361     // Get the next grouping option.
362     PGOpt = getOptionPred(Arg, Length, isGrouping, OptionsMap);
363   } while (PGOpt && Length != Arg.size());
364
365   // Return the last option with Arg cut down to just the last one.
366   return PGOpt;
367 }
368
369
370
371 static bool RequiresValue(const Option *O) {
372   return O->getNumOccurrencesFlag() == cl::Required ||
373          O->getNumOccurrencesFlag() == cl::OneOrMore;
374 }
375
376 static bool EatsUnboundedNumberOfValues(const Option *O) {
377   return O->getNumOccurrencesFlag() == cl::ZeroOrMore ||
378          O->getNumOccurrencesFlag() == cl::OneOrMore;
379 }
380
381 /// ParseCStringVector - Break INPUT up wherever one or more
382 /// whitespace characters are found, and store the resulting tokens in
383 /// OUTPUT. The tokens stored in OUTPUT are dynamically allocated
384 /// using strdup(), so it is the caller's responsibility to free()
385 /// them later.
386 ///
387 static void ParseCStringVector(std::vector<char *> &OutputVector,
388                                const char *Input) {
389   // Characters which will be treated as token separators:
390   StringRef Delims = " \v\f\t\r\n";
391
392   StringRef WorkStr(Input);
393   while (!WorkStr.empty()) {
394     // If the first character is a delimiter, strip them off.
395     if (Delims.find(WorkStr[0]) != StringRef::npos) {
396       size_t Pos = WorkStr.find_first_not_of(Delims);
397       if (Pos == StringRef::npos) Pos = WorkStr.size();
398       WorkStr = WorkStr.substr(Pos);
399       continue;
400     }
401
402     // Find position of first delimiter.
403     size_t Pos = WorkStr.find_first_of(Delims);
404     if (Pos == StringRef::npos) Pos = WorkStr.size();
405
406     // Everything from 0 to Pos is the next word to copy.
407     char *NewStr = (char*)malloc(Pos+1);
408     memcpy(NewStr, WorkStr.data(), Pos);
409     NewStr[Pos] = 0;
410     OutputVector.push_back(NewStr);
411
412     WorkStr = WorkStr.substr(Pos);
413   }
414 }
415
416 /// ParseEnvironmentOptions - An alternative entry point to the
417 /// CommandLine library, which allows you to read the program's name
418 /// from the caller (as PROGNAME) and its command-line arguments from
419 /// an environment variable (whose name is given in ENVVAR).
420 ///
421 void cl::ParseEnvironmentOptions(const char *progName, const char *envVar,
422                                  const char *Overview, bool ReadResponseFiles) {
423   // Check args.
424   assert(progName && "Program name not specified");
425   assert(envVar && "Environment variable name missing");
426
427   // Get the environment variable they want us to parse options out of.
428   const char *envValue = getenv(envVar);
429   if (!envValue)
430     return;
431
432   // Get program's "name", which we wouldn't know without the caller
433   // telling us.
434   std::vector<char*> newArgv;
435   newArgv.push_back(strdup(progName));
436
437   // Parse the value of the environment variable into a "command line"
438   // and hand it off to ParseCommandLineOptions().
439   ParseCStringVector(newArgv, envValue);
440   int newArgc = static_cast<int>(newArgv.size());
441   ParseCommandLineOptions(newArgc, &newArgv[0], Overview, ReadResponseFiles);
442
443   // Free all the strdup()ed strings.
444   for (std::vector<char*>::iterator i = newArgv.begin(), e = newArgv.end();
445        i != e; ++i)
446     free(*i);
447 }
448
449
450 /// ExpandResponseFiles - Copy the contents of argv into newArgv,
451 /// substituting the contents of the response files for the arguments
452 /// of type @file.
453 static void ExpandResponseFiles(unsigned argc, char** argv,
454                                 std::vector<char*>& newArgv) {
455   for (unsigned i = 1; i != argc; ++i) {
456     char *arg = argv[i];
457
458     if (arg[0] == '@') {
459       sys::PathWithStatus respFile(++arg);
460
461       // Check that the response file is not empty (mmap'ing empty
462       // files can be problematic).
463       const sys::FileStatus *FileStat = respFile.getFileStatus();
464       if (FileStat && FileStat->getSize() != 0) {
465
466         // Mmap the response file into memory.
467         OwningPtr<MemoryBuffer>
468           respFilePtr(MemoryBuffer::getFile(respFile.c_str()));
469
470         // If we could open the file, parse its contents, otherwise
471         // pass the @file option verbatim.
472
473         // TODO: we should also support recursive loading of response files,
474         // since this is how gcc behaves. (From their man page: "The file may
475         // itself contain additional @file options; any such options will be
476         // processed recursively.")
477
478         if (respFilePtr != 0) {
479           ParseCStringVector(newArgv, respFilePtr->getBufferStart());
480           continue;
481         }
482       }
483     }
484     newArgv.push_back(strdup(arg));
485   }
486 }
487
488 void cl::ParseCommandLineOptions(int argc, char **argv,
489                                  const char *Overview, bool ReadResponseFiles) {
490   // Process all registered options.
491   SmallVector<Option*, 4> PositionalOpts;
492   SmallVector<Option*, 4> SinkOpts;
493   StringMap<Option*> Opts;
494   GetOptionInfo(PositionalOpts, SinkOpts, Opts);
495
496   assert((!Opts.empty() || !PositionalOpts.empty()) &&
497          "No options specified!");
498
499   // Expand response files.
500   std::vector<char*> newArgv;
501   if (ReadResponseFiles) {
502     newArgv.push_back(strdup(argv[0]));
503     ExpandResponseFiles(argc, argv, newArgv);
504     argv = &newArgv[0];
505     argc = static_cast<int>(newArgv.size());
506   }
507
508   // Copy the program name into ProgName, making sure not to overflow it.
509   std::string ProgName = sys::Path(argv[0]).getLast();
510   if (ProgName.size() > 79) ProgName.resize(79);
511   strcpy(ProgramName, ProgName.c_str());
512
513   ProgramOverview = Overview;
514   bool ErrorParsing = false;
515
516   // Check out the positional arguments to collect information about them.
517   unsigned NumPositionalRequired = 0;
518
519   // Determine whether or not there are an unlimited number of positionals
520   bool HasUnlimitedPositionals = false;
521
522   Option *ConsumeAfterOpt = 0;
523   if (!PositionalOpts.empty()) {
524     if (PositionalOpts[0]->getNumOccurrencesFlag() == cl::ConsumeAfter) {
525       assert(PositionalOpts.size() > 1 &&
526              "Cannot specify cl::ConsumeAfter without a positional argument!");
527       ConsumeAfterOpt = PositionalOpts[0];
528     }
529
530     // Calculate how many positional values are _required_.
531     bool UnboundedFound = false;
532     for (size_t i = ConsumeAfterOpt != 0, e = PositionalOpts.size();
533          i != e; ++i) {
534       Option *Opt = PositionalOpts[i];
535       if (RequiresValue(Opt))
536         ++NumPositionalRequired;
537       else if (ConsumeAfterOpt) {
538         // ConsumeAfter cannot be combined with "optional" positional options
539         // unless there is only one positional argument...
540         if (PositionalOpts.size() > 2)
541           ErrorParsing |=
542             Opt->error("error - this positional option will never be matched, "
543                        "because it does not Require a value, and a "
544                        "cl::ConsumeAfter option is active!");
545       } else if (UnboundedFound && !Opt->ArgStr[0]) {
546         // This option does not "require" a value...  Make sure this option is
547         // not specified after an option that eats all extra arguments, or this
548         // one will never get any!
549         //
550         ErrorParsing |= Opt->error("error - option can never match, because "
551                                    "another positional argument will match an "
552                                    "unbounded number of values, and this option"
553                                    " does not require a value!");
554       }
555       UnboundedFound |= EatsUnboundedNumberOfValues(Opt);
556     }
557     HasUnlimitedPositionals = UnboundedFound || ConsumeAfterOpt;
558   }
559
560   // PositionalVals - A vector of "positional" arguments we accumulate into
561   // the process at the end.
562   //
563   SmallVector<std::pair<StringRef,unsigned>, 4> PositionalVals;
564
565   // If the program has named positional arguments, and the name has been run
566   // across, keep track of which positional argument was named.  Otherwise put
567   // the positional args into the PositionalVals list...
568   Option *ActivePositionalArg = 0;
569
570   // Loop over all of the arguments... processing them.
571   bool DashDashFound = false;  // Have we read '--'?
572   for (int i = 1; i < argc; ++i) {
573     Option *Handler = 0;
574     StringRef Value;
575     StringRef ArgName = "";
576
577     // If the option list changed, this means that some command line
578     // option has just been registered or deregistered.  This can occur in
579     // response to things like -load, etc.  If this happens, rescan the options.
580     if (OptionListChanged) {
581       PositionalOpts.clear();
582       SinkOpts.clear();
583       Opts.clear();
584       GetOptionInfo(PositionalOpts, SinkOpts, Opts);
585       OptionListChanged = false;
586     }
587
588     // Check to see if this is a positional argument.  This argument is
589     // considered to be positional if it doesn't start with '-', if it is "-"
590     // itself, or if we have seen "--" already.
591     //
592     if (argv[i][0] != '-' || argv[i][1] == 0 || DashDashFound) {
593       // Positional argument!
594       if (ActivePositionalArg) {
595         ProvidePositionalOption(ActivePositionalArg, argv[i], i);
596         continue;  // We are done!
597       }
598
599       if (!PositionalOpts.empty()) {
600         PositionalVals.push_back(std::make_pair(argv[i],i));
601
602         // All of the positional arguments have been fulfulled, give the rest to
603         // the consume after option... if it's specified...
604         //
605         if (PositionalVals.size() >= NumPositionalRequired &&
606             ConsumeAfterOpt != 0) {
607           for (++i; i < argc; ++i)
608             PositionalVals.push_back(std::make_pair(argv[i],i));
609           break;   // Handle outside of the argument processing loop...
610         }
611
612         // Delay processing positional arguments until the end...
613         continue;
614       }
615     } else if (argv[i][0] == '-' && argv[i][1] == '-' && argv[i][2] == 0 &&
616                !DashDashFound) {
617       DashDashFound = true;  // This is the mythical "--"?
618       continue;              // Don't try to process it as an argument itself.
619     } else if (ActivePositionalArg &&
620                (ActivePositionalArg->getMiscFlags() & PositionalEatsArgs)) {
621       // If there is a positional argument eating options, check to see if this
622       // option is another positional argument.  If so, treat it as an argument,
623       // otherwise feed it to the eating positional.
624       ArgName = argv[i]+1;
625       // Eat leading dashes.
626       while (!ArgName.empty() && ArgName[0] == '-')
627         ArgName = ArgName.substr(1);
628
629       Handler = LookupOption(ArgName, Value, Opts);
630       if (!Handler || Handler->getFormattingFlag() != cl::Positional) {
631         ProvidePositionalOption(ActivePositionalArg, argv[i], i);
632         continue;  // We are done!
633       }
634
635     } else {     // We start with a '-', must be an argument.
636       ArgName = argv[i]+1;
637       // Eat leading dashes.
638       while (!ArgName.empty() && ArgName[0] == '-')
639         ArgName = ArgName.substr(1);
640
641       Handler = LookupOption(ArgName, Value, Opts);
642
643       // Check to see if this "option" is really a prefixed or grouped argument.
644       if (Handler == 0)
645         Handler = HandlePrefixedOrGroupedOption(ArgName, Value,
646                                                 ErrorParsing, Opts);
647     }
648
649     if (Handler == 0) {
650       if (SinkOpts.empty()) {
651         errs() << ProgramName << ": Unknown command line argument '"
652              << argv[i] << "'.  Try: '" << argv[0] << " --help'\n";
653         ErrorParsing = true;
654       } else {
655         for (SmallVectorImpl<Option*>::iterator I = SinkOpts.begin(),
656                E = SinkOpts.end(); I != E ; ++I)
657           (*I)->addOccurrence(i, "", argv[i]);
658       }
659       continue;
660     }
661
662     // If this is a named positional argument, just remember that it is the
663     // active one...
664     if (Handler->getFormattingFlag() == cl::Positional)
665       ActivePositionalArg = Handler;
666     else
667       ErrorParsing |= ProvideOption(Handler, ArgName, Value, argc, argv, i);
668   }
669
670   // Check and handle positional arguments now...
671   if (NumPositionalRequired > PositionalVals.size()) {
672     errs() << ProgramName
673          << ": Not enough positional command line arguments specified!\n"
674          << "Must specify at least " << NumPositionalRequired
675          << " positional arguments: See: " << argv[0] << " --help\n";
676
677     ErrorParsing = true;
678   } else if (!HasUnlimitedPositionals
679              && PositionalVals.size() > PositionalOpts.size()) {
680     errs() << ProgramName
681          << ": Too many positional arguments specified!\n"
682          << "Can specify at most " << PositionalOpts.size()
683          << " positional arguments: See: " << argv[0] << " --help\n";
684     ErrorParsing = true;
685
686   } else if (ConsumeAfterOpt == 0) {
687     // Positional args have already been handled if ConsumeAfter is specified.
688     unsigned ValNo = 0, NumVals = static_cast<unsigned>(PositionalVals.size());
689     for (size_t i = 0, e = PositionalOpts.size(); i != e; ++i) {
690       if (RequiresValue(PositionalOpts[i])) {
691         ProvidePositionalOption(PositionalOpts[i], PositionalVals[ValNo].first,
692                                 PositionalVals[ValNo].second);
693         ValNo++;
694         --NumPositionalRequired;  // We fulfilled our duty...
695       }
696
697       // If we _can_ give this option more arguments, do so now, as long as we
698       // do not give it values that others need.  'Done' controls whether the
699       // option even _WANTS_ any more.
700       //
701       bool Done = PositionalOpts[i]->getNumOccurrencesFlag() == cl::Required;
702       while (NumVals-ValNo > NumPositionalRequired && !Done) {
703         switch (PositionalOpts[i]->getNumOccurrencesFlag()) {
704         case cl::Optional:
705           Done = true;          // Optional arguments want _at most_ one value
706           // FALL THROUGH
707         case cl::ZeroOrMore:    // Zero or more will take all they can get...
708         case cl::OneOrMore:     // One or more will take all they can get...
709           ProvidePositionalOption(PositionalOpts[i],
710                                   PositionalVals[ValNo].first,
711                                   PositionalVals[ValNo].second);
712           ValNo++;
713           break;
714         default:
715           llvm_unreachable("Internal error, unexpected NumOccurrences flag in "
716                  "positional argument processing!");
717         }
718       }
719     }
720   } else {
721     assert(ConsumeAfterOpt && NumPositionalRequired <= PositionalVals.size());
722     unsigned ValNo = 0;
723     for (size_t j = 1, e = PositionalOpts.size(); j != e; ++j)
724       if (RequiresValue(PositionalOpts[j])) {
725         ErrorParsing |= ProvidePositionalOption(PositionalOpts[j],
726                                                 PositionalVals[ValNo].first,
727                                                 PositionalVals[ValNo].second);
728         ValNo++;
729       }
730
731     // Handle the case where there is just one positional option, and it's
732     // optional.  In this case, we want to give JUST THE FIRST option to the
733     // positional option and keep the rest for the consume after.  The above
734     // loop would have assigned no values to positional options in this case.
735     //
736     if (PositionalOpts.size() == 2 && ValNo == 0 && !PositionalVals.empty()) {
737       ErrorParsing |= ProvidePositionalOption(PositionalOpts[1],
738                                               PositionalVals[ValNo].first,
739                                               PositionalVals[ValNo].second);
740       ValNo++;
741     }
742
743     // Handle over all of the rest of the arguments to the
744     // cl::ConsumeAfter command line option...
745     for (; ValNo != PositionalVals.size(); ++ValNo)
746       ErrorParsing |= ProvidePositionalOption(ConsumeAfterOpt,
747                                               PositionalVals[ValNo].first,
748                                               PositionalVals[ValNo].second);
749   }
750
751   // Loop over args and make sure all required args are specified!
752   for (StringMap<Option*>::iterator I = Opts.begin(),
753          E = Opts.end(); I != E; ++I) {
754     switch (I->second->getNumOccurrencesFlag()) {
755     case Required:
756     case OneOrMore:
757       if (I->second->getNumOccurrences() == 0) {
758         I->second->error("must be specified at least once!");
759         ErrorParsing = true;
760       }
761       // Fall through
762     default:
763       break;
764     }
765   }
766
767   // Free all of the memory allocated to the map.  Command line options may only
768   // be processed once!
769   Opts.clear();
770   PositionalOpts.clear();
771   MoreHelp->clear();
772
773   // Free the memory allocated by ExpandResponseFiles.
774   if (ReadResponseFiles) {
775     // Free all the strdup()ed strings.
776     for (std::vector<char*>::iterator i = newArgv.begin(), e = newArgv.end();
777          i != e; ++i)
778       free(*i);
779   }
780
781   DEBUG(errs() << "\nArgs: ";
782         for (int i = 0; i < argc; ++i)
783           errs() << argv[i] << ' ';
784        );
785
786   // If we had an error processing our arguments, don't let the program execute
787   if (ErrorParsing) exit(1);
788 }
789
790 //===----------------------------------------------------------------------===//
791 // Option Base class implementation
792 //
793
794 bool Option::error(const Twine &Message, StringRef ArgName) {
795   if (ArgName.data() == 0) ArgName = ArgStr;
796   if (ArgName.empty())
797     errs() << HelpStr;  // Be nice for positional arguments
798   else
799     errs() << ProgramName << ": for the -" << ArgName;
800
801   errs() << " option: " << Message << "\n";
802   return true;
803 }
804
805 bool Option::addOccurrence(unsigned pos, StringRef ArgName,
806                            StringRef Value, bool MultiArg) {
807   if (!MultiArg)
808     NumOccurrences++;   // Increment the number of times we have been seen
809
810   switch (getNumOccurrencesFlag()) {
811   case Optional:
812     if (NumOccurrences > 1)
813       return error("may only occur zero or one times!", ArgName);
814     break;
815   case Required:
816     if (NumOccurrences > 1)
817       return error("must occur exactly one time!", ArgName);
818     // Fall through
819   case OneOrMore:
820   case ZeroOrMore:
821   case ConsumeAfter: break;
822   default: return error("bad num occurrences flag value!");
823   }
824
825   return handleOccurrence(pos, ArgName, Value);
826 }
827
828
829 // getValueStr - Get the value description string, using "DefaultMsg" if nothing
830 // has been specified yet.
831 //
832 static const char *getValueStr(const Option &O, const char *DefaultMsg) {
833   if (O.ValueStr[0] == 0) return DefaultMsg;
834   return O.ValueStr;
835 }
836
837 //===----------------------------------------------------------------------===//
838 // cl::alias class implementation
839 //
840
841 // Return the width of the option tag for printing...
842 size_t alias::getOptionWidth() const {
843   return std::strlen(ArgStr)+6;
844 }
845
846 // Print out the option for the alias.
847 void alias::printOptionInfo(size_t GlobalWidth) const {
848   size_t L = std::strlen(ArgStr);
849   errs() << "  -" << ArgStr;
850   errs().indent(GlobalWidth-L-6) << " - " << HelpStr << "\n";
851 }
852
853
854
855 //===----------------------------------------------------------------------===//
856 // Parser Implementation code...
857 //
858
859 // basic_parser implementation
860 //
861
862 // Return the width of the option tag for printing...
863 size_t basic_parser_impl::getOptionWidth(const Option &O) const {
864   size_t Len = std::strlen(O.ArgStr);
865   if (const char *ValName = getValueName())
866     Len += std::strlen(getValueStr(O, ValName))+3;
867
868   return Len + 6;
869 }
870
871 // printOptionInfo - Print out information about this option.  The
872 // to-be-maintained width is specified.
873 //
874 void basic_parser_impl::printOptionInfo(const Option &O,
875                                         size_t GlobalWidth) const {
876   outs() << "  -" << O.ArgStr;
877
878   if (const char *ValName = getValueName())
879     outs() << "=<" << getValueStr(O, ValName) << '>';
880
881   outs().indent(GlobalWidth-getOptionWidth(O)) << " - " << O.HelpStr << '\n';
882 }
883
884
885
886
887 // parser<bool> implementation
888 //
889 bool parser<bool>::parse(Option &O, StringRef ArgName,
890                          StringRef Arg, bool &Value) {
891   if (Arg == "" || Arg == "true" || Arg == "TRUE" || Arg == "True" ||
892       Arg == "1") {
893     Value = true;
894     return false;
895   }
896
897   if (Arg == "false" || Arg == "FALSE" || Arg == "False" || Arg == "0") {
898     Value = false;
899     return false;
900   }
901   return O.error("'" + Arg +
902                  "' is invalid value for boolean argument! Try 0 or 1");
903 }
904
905 // parser<boolOrDefault> implementation
906 //
907 bool parser<boolOrDefault>::parse(Option &O, StringRef ArgName,
908                                   StringRef Arg, boolOrDefault &Value) {
909   if (Arg == "" || Arg == "true" || Arg == "TRUE" || Arg == "True" ||
910       Arg == "1") {
911     Value = BOU_TRUE;
912     return false;
913   }
914   if (Arg == "false" || Arg == "FALSE" || Arg == "False" || Arg == "0") {
915     Value = BOU_FALSE;
916     return false;
917   }
918
919   return O.error("'" + Arg +
920                  "' is invalid value for boolean argument! Try 0 or 1");
921 }
922
923 // parser<int> implementation
924 //
925 bool parser<int>::parse(Option &O, StringRef ArgName,
926                         StringRef Arg, int &Value) {
927   if (Arg.getAsInteger(0, Value))
928     return O.error("'" + Arg + "' value invalid for integer argument!");
929   return false;
930 }
931
932 // parser<unsigned> implementation
933 //
934 bool parser<unsigned>::parse(Option &O, StringRef ArgName,
935                              StringRef Arg, unsigned &Value) {
936
937   if (Arg.getAsInteger(0, Value))
938     return O.error("'" + Arg + "' value invalid for uint argument!");
939   return false;
940 }
941
942 // parser<double>/parser<float> implementation
943 //
944 static bool parseDouble(Option &O, StringRef Arg, double &Value) {
945   SmallString<32> TmpStr(Arg.begin(), Arg.end());
946   const char *ArgStart = TmpStr.c_str();
947   char *End;
948   Value = strtod(ArgStart, &End);
949   if (*End != 0)
950     return O.error("'" + Arg + "' value invalid for floating point argument!");
951   return false;
952 }
953
954 bool parser<double>::parse(Option &O, StringRef ArgName,
955                            StringRef Arg, double &Val) {
956   return parseDouble(O, Arg, Val);
957 }
958
959 bool parser<float>::parse(Option &O, StringRef ArgName,
960                           StringRef Arg, float &Val) {
961   double dVal;
962   if (parseDouble(O, Arg, dVal))
963     return true;
964   Val = (float)dVal;
965   return false;
966 }
967
968
969
970 // generic_parser_base implementation
971 //
972
973 // findOption - Return the option number corresponding to the specified
974 // argument string.  If the option is not found, getNumOptions() is returned.
975 //
976 unsigned generic_parser_base::findOption(const char *Name) {
977   unsigned e = getNumOptions();
978
979   for (unsigned i = 0; i != e; ++i) {
980     if (strcmp(getOption(i), Name) == 0)
981       return i;
982   }
983   return e;
984 }
985
986
987 // Return the width of the option tag for printing...
988 size_t generic_parser_base::getOptionWidth(const Option &O) const {
989   if (O.hasArgStr()) {
990     size_t Size = std::strlen(O.ArgStr)+6;
991     for (unsigned i = 0, e = getNumOptions(); i != e; ++i)
992       Size = std::max(Size, std::strlen(getOption(i))+8);
993     return Size;
994   } else {
995     size_t BaseSize = 0;
996     for (unsigned i = 0, e = getNumOptions(); i != e; ++i)
997       BaseSize = std::max(BaseSize, std::strlen(getOption(i))+8);
998     return BaseSize;
999   }
1000 }
1001
1002 // printOptionInfo - Print out information about this option.  The
1003 // to-be-maintained width is specified.
1004 //
1005 void generic_parser_base::printOptionInfo(const Option &O,
1006                                           size_t GlobalWidth) const {
1007   if (O.hasArgStr()) {
1008     size_t L = std::strlen(O.ArgStr);
1009     outs() << "  -" << O.ArgStr;
1010     outs().indent(GlobalWidth-L-6) << " - " << O.HelpStr << '\n';
1011
1012     for (unsigned i = 0, e = getNumOptions(); i != e; ++i) {
1013       size_t NumSpaces = GlobalWidth-strlen(getOption(i))-8;
1014       outs() << "    =" << getOption(i);
1015       outs().indent(NumSpaces) << " -   " << getDescription(i) << '\n';
1016     }
1017   } else {
1018     if (O.HelpStr[0])
1019       outs() << "  " << O.HelpStr << '\n';
1020     for (unsigned i = 0, e = getNumOptions(); i != e; ++i) {
1021       size_t L = std::strlen(getOption(i));
1022       outs() << "    -" << getOption(i);
1023       outs().indent(GlobalWidth-L-8) << " - " << getDescription(i) << '\n';
1024     }
1025   }
1026 }
1027
1028
1029 //===----------------------------------------------------------------------===//
1030 // --help and --help-hidden option implementation
1031 //
1032
1033 static int OptNameCompare(const void *LHS, const void *RHS) {
1034   typedef std::pair<const char *, Option*> pair_ty;
1035
1036   return strcmp(((pair_ty*)LHS)->first, ((pair_ty*)RHS)->first);
1037 }
1038
1039 namespace {
1040
1041 class HelpPrinter {
1042   size_t MaxArgLen;
1043   const Option *EmptyArg;
1044   const bool ShowHidden;
1045
1046 public:
1047   explicit HelpPrinter(bool showHidden) : ShowHidden(showHidden) {
1048     EmptyArg = 0;
1049   }
1050
1051   void operator=(bool Value) {
1052     if (Value == false) return;
1053
1054     // Get all the options.
1055     SmallVector<Option*, 4> PositionalOpts;
1056     SmallVector<Option*, 4> SinkOpts;
1057     StringMap<Option*> OptMap;
1058     GetOptionInfo(PositionalOpts, SinkOpts, OptMap);
1059
1060     // Copy Options into a vector so we can sort them as we like.
1061     SmallVector<std::pair<const char *, Option*>, 128> Opts;
1062     SmallPtrSet<Option*, 128> OptionSet;  // Duplicate option detection.
1063
1064     for (StringMap<Option*>::iterator I = OptMap.begin(), E = OptMap.end();
1065          I != E; ++I) {
1066       // Ignore really-hidden options.
1067       if (I->second->getOptionHiddenFlag() == ReallyHidden)
1068         continue;
1069
1070       // Unless showhidden is set, ignore hidden flags.
1071       if (I->second->getOptionHiddenFlag() == Hidden && !ShowHidden)
1072         continue;
1073
1074       // If we've already seen this option, don't add it to the list again.
1075       if (!OptionSet.insert(I->second))
1076         continue;
1077
1078       Opts.push_back(std::pair<const char *, Option*>(I->getKey().data(),
1079                                                       I->second));
1080     }
1081
1082     // Sort the options list alphabetically.
1083     qsort(Opts.data(), Opts.size(), sizeof(Opts[0]), OptNameCompare);
1084
1085     if (ProgramOverview)
1086       outs() << "OVERVIEW: " << ProgramOverview << "\n";
1087
1088     outs() << "USAGE: " << ProgramName << " [options]";
1089
1090     // Print out the positional options.
1091     Option *CAOpt = 0;   // The cl::ConsumeAfter option, if it exists...
1092     if (!PositionalOpts.empty() &&
1093         PositionalOpts[0]->getNumOccurrencesFlag() == ConsumeAfter)
1094       CAOpt = PositionalOpts[0];
1095
1096     for (size_t i = CAOpt != 0, e = PositionalOpts.size(); i != e; ++i) {
1097       if (PositionalOpts[i]->ArgStr[0])
1098         outs() << " --" << PositionalOpts[i]->ArgStr;
1099       outs() << " " << PositionalOpts[i]->HelpStr;
1100     }
1101
1102     // Print the consume after option info if it exists...
1103     if (CAOpt) outs() << " " << CAOpt->HelpStr;
1104
1105     outs() << "\n\n";
1106
1107     // Compute the maximum argument length...
1108     MaxArgLen = 0;
1109     for (size_t i = 0, e = Opts.size(); i != e; ++i)
1110       MaxArgLen = std::max(MaxArgLen, Opts[i].second->getOptionWidth());
1111
1112     outs() << "OPTIONS:\n";
1113     for (size_t i = 0, e = Opts.size(); i != e; ++i)
1114       Opts[i].second->printOptionInfo(MaxArgLen);
1115
1116     // Print any extra help the user has declared.
1117     for (std::vector<const char *>::iterator I = MoreHelp->begin(),
1118           E = MoreHelp->end(); I != E; ++I)
1119       outs() << *I;
1120     MoreHelp->clear();
1121
1122     // Halt the program since help information was printed
1123     exit(1);
1124   }
1125 };
1126 } // End anonymous namespace
1127
1128 // Define the two HelpPrinter instances that are used to print out help, or
1129 // help-hidden...
1130 //
1131 static HelpPrinter NormalPrinter(false);
1132 static HelpPrinter HiddenPrinter(true);
1133
1134 static cl::opt<HelpPrinter, true, parser<bool> >
1135 HOp("help", cl::desc("Display available options (--help-hidden for more)"),
1136     cl::location(NormalPrinter), cl::ValueDisallowed);
1137
1138 static cl::opt<HelpPrinter, true, parser<bool> >
1139 HHOp("help-hidden", cl::desc("Display all available options"),
1140      cl::location(HiddenPrinter), cl::Hidden, cl::ValueDisallowed);
1141
1142 static void (*OverrideVersionPrinter)() = 0;
1143
1144 static int TargetArraySortFn(const void *LHS, const void *RHS) {
1145   typedef std::pair<const char *, const Target*> pair_ty;
1146   return strcmp(((const pair_ty*)LHS)->first, ((const pair_ty*)RHS)->first);
1147 }
1148
1149 namespace {
1150 class VersionPrinter {
1151 public:
1152   void print() {
1153     raw_ostream &OS = outs();
1154     OS << "Low Level Virtual Machine (http://llvm.org/):\n"
1155        << "  " << PACKAGE_NAME << " version " << PACKAGE_VERSION;
1156 #ifdef LLVM_VERSION_INFO
1157     OS << LLVM_VERSION_INFO;
1158 #endif
1159     OS << "\n  ";
1160 #ifndef __OPTIMIZE__
1161     OS << "DEBUG build";
1162 #else
1163     OS << "Optimized build";
1164 #endif
1165 #ifndef NDEBUG
1166     OS << " with assertions";
1167 #endif
1168     std::string CPU = sys::getHostCPUName();
1169     if (CPU == "generic") CPU = "(unknown)";
1170     OS << ".\n"
1171        << "  Built " << __DATE__ << " (" << __TIME__ << ").\n"
1172        << "  Host: " << sys::getHostTriple() << '\n'
1173        << "  Host CPU: " << CPU << '\n'
1174        << '\n'
1175        << "  Registered Targets:\n";
1176
1177     std::vector<std::pair<const char *, const Target*> > Targets;
1178     size_t Width = 0;
1179     for (TargetRegistry::iterator it = TargetRegistry::begin(),
1180            ie = TargetRegistry::end(); it != ie; ++it) {
1181       Targets.push_back(std::make_pair(it->getName(), &*it));
1182       Width = std::max(Width, strlen(Targets.back().first));
1183     }
1184     if (!Targets.empty())
1185       qsort(&Targets[0], Targets.size(), sizeof(Targets[0]),
1186             TargetArraySortFn);
1187
1188     for (unsigned i = 0, e = Targets.size(); i != e; ++i) {
1189       OS << "    " << Targets[i].first;
1190       OS.indent(Width - strlen(Targets[i].first)) << " - "
1191              << Targets[i].second->getShortDescription() << '\n';
1192     }
1193     if (Targets.empty())
1194       OS << "    (none)\n";
1195   }
1196   void operator=(bool OptionWasSpecified) {
1197     if (!OptionWasSpecified) return;
1198
1199     if (OverrideVersionPrinter == 0) {
1200       print();
1201       exit(1);
1202     }
1203     (*OverrideVersionPrinter)();
1204     exit(1);
1205   }
1206 };
1207 } // End anonymous namespace
1208
1209
1210 // Define the --version option that prints out the LLVM version for the tool
1211 static VersionPrinter VersionPrinterInstance;
1212
1213 static cl::opt<VersionPrinter, true, parser<bool> >
1214 VersOp("version", cl::desc("Display the version of this program"),
1215     cl::location(VersionPrinterInstance), cl::ValueDisallowed);
1216
1217 // Utility function for printing the help message.
1218 void cl::PrintHelpMessage() {
1219   // This looks weird, but it actually prints the help message. The
1220   // NormalPrinter variable is a HelpPrinter and the help gets printed when
1221   // its operator= is invoked. That's because the "normal" usages of the
1222   // help printer is to be assigned true/false depending on whether the
1223   // --help option was given or not. Since we're circumventing that we have
1224   // to make it look like --help was given, so we assign true.
1225   NormalPrinter = true;
1226 }
1227
1228 /// Utility function for printing version number.
1229 void cl::PrintVersionMessage() {
1230   VersionPrinterInstance.print();
1231 }
1232
1233 void cl::SetVersionPrinter(void (*func)()) {
1234   OverrideVersionPrinter = func;
1235 }