Changes in driver/cfa.cc [4f5a8a2:14347ac]
- File:
-
- 1 edited
-
driver/cfa.cc (modified) (15 diffs)
Legend:
- Unmodified
- Added
- Removed
-
driver/cfa.cc
r4f5a8a2 r14347ac 10 10 // Created On : Tue Aug 20 13:44:49 2002 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : S at Aug 10 08:44:15201913 // Update Count : 31112 // Last Modified On : Sun Feb 10 08:28:09 2019 13 // Update Count : 281 14 14 // 15 15 … … 20 20 #include <string> // STL version 21 21 #include <string.h> // strcmp 22 #include <algorithm> // find23 22 24 23 #include <sys/types.h> … … 27 26 #include "Common/SemanticError.h" 28 27 #include "config.h" // configure info 29 30 28 31 29 using std::cerr; … … 42 40 } // prefix 43 41 44 bool suffix( string arg ) { 45 enum { NumSuffixes = 3 }; 46 static const string suffixes[NumSuffixes] = { "cfa", "hfa", "ifa" }; 42 enum { NumSuffixes = 2 }; 43 const string suffixes[NumSuffixes] = { "cfa", "hfa", }; 44 45 bool suffix( string arg, const char * args[], int & nargs ) { 47 46 //std::cerr << arg << std::endl; 48 47 size_t dot = arg.find_last_of( "." ); 49 48 //std::cerr << dot << " " << (dot != string::npos ? arg.substr( dot + 1 ) : "fred" ) << std::endl; 50 49 if ( dot == string::npos ) return false; 51 const string * end = suffixes + NumSuffixes; 52 return std::find( suffixes, end, arg.substr( dot + 1 ) ) != end; 50 string sx = arg.substr( dot + 1 ); 51 for ( int i = 0; i < NumSuffixes; i += 1 ) { 52 if ( sx == suffixes[i] ) { 53 args[nargs] = "-x"; 54 nargs += 1; 55 args[nargs] = "c"; 56 nargs += 1; 57 return true; 58 } // if 59 } // for 60 return false; 53 61 } // suffix 54 62 55 63 56 void shuffle( const char * 64 void shuffle( const char *args[], int S, int E, int N ) { 57 65 // S & E index 1 passed the end so adjust with -1 58 66 #ifdef __DEBUG_H__ … … 67 75 } // shuffle 68 76 69 static inline bool dirExists( const string & path) {77 static inline bool dirExists(const string & path) { 70 78 struct stat info; 71 79 if(stat( path.c_str(), &info ) != 0) … … 77 85 } //dirExists 78 86 87 static inline string dir(const string & path) { 88 return path.substr(0, path.find_last_of('/')); 89 } 90 79 91 80 92 #define str(s) #s 81 93 82 int main( int argc, char * 94 int main( int argc, char *argv[] ) { 83 95 string Version( CFA_VERSION_LONG ); // current version number from CONFIG 84 96 string Major( str( CFA_VERSION_MAJOR ) ), Minor( str( CFA_VERSION_MINOR ) ), Patch( str( CFA_VERSION_PATCH ) ); … … 96 108 string compiler_name; // name of C compiler 97 109 98 bool x_flag = false; // -x flag99 110 bool nonoptarg = false; // indicates non-option argument specified 100 111 bool link = true; // linking as well as compiling 101 112 bool verbose = false; // -v flag 102 bool quiet = false; 103 bool debug = true; 104 bool nolib = false; 105 bool help = false; 113 bool quiet = false; // -quiet flag 114 bool debug = true; // -debug flag 115 bool nolib = false; // -nolib flag 116 bool help = false; // -help flag 106 117 bool CFA_flag = false; // -CFA flag 107 118 bool cpp_flag = false; // -E or -M flag, preprocessor only … … 109 120 bool noincstd_flag = false; // -no-include-stdhdr= flag 110 121 bool debugging __attribute(( unused )) = false; // -g flag 111 bool m32 = false; 112 bool m64 = false; 122 bool m32 = false; // -m32 flag 123 bool m64 = false; // -m64 flag 113 124 bool intree = false; 125 bool disttree = false; 114 126 115 127 const char *args[argc + 100]; // cfa command line values, plus some space for additional flags … … 128 140 129 141 // process command-line arguments 142 143 args[nargs] = "-x"; // turn off language 144 nargs += 1; 145 args[nargs] = "c"; 146 nargs += 1; 130 147 131 148 for ( int i = 1; i < argc; i += 1 ) { … … 171 188 } else if ( arg == "-in-tree" ) { 172 189 intree = true; 190 } else if ( arg == "-dist-tree" ) { 191 disttree = true; 173 192 } else if ( arg == "-compiler" ) { 174 193 // use the user specified compiler … … 191 210 args[nargs] = argv[i]; // pass the argument along 192 211 nargs += 1; 193 } else if ( prefix( arg, "-x" ) ) { // file suffix ?194 string lang;195 args[nargs] = argv[i]; // pass the argument along196 nargs += 1;197 if ( arg.length() == 2 ) { // separate argument ?198 i += 1;199 if ( i == argc ) continue; // next argument available ?200 lang = argv[i];201 args[nargs] = argv[i]; // pass the argument along202 nargs += 1;203 } else {204 lang = arg.substr( 2 );205 } // if206 x_flag = lang != "none";207 212 } else if ( prefix( arg, "-std=" ) || prefix( arg, "--std=" ) ) { 208 213 std_flag = true; // -std=XX provided … … 290 295 } // if 291 296 } else { 292 bool cfa = suffix( arg ); // check suffix 293 if ( ! x_flag && cfa ) { // no explicit suffix and cfa suffix ? 294 args[nargs] = "-x"; 295 nargs += 1; 296 args[nargs] = "c"; 297 nargs += 1; 298 } // if 297 bool cfa = suffix( arg, args, nargs ); // check suffix 299 298 args[nargs] = argv[i]; // concatenate file 300 299 nargs += 1; 301 if ( ! x_flag && cfa ) { // no explicit suffix and cfa suffix ?300 if ( cfa ) { 302 301 args[nargs] = "-x"; 303 302 nargs += 1; … … 380 379 string libdir = libbase + arch + "-" + config; 381 380 382 if ( ! nolib && ! dirExists( libdir ) ) { 383 cerr << argv[0] << " internal error, configuration " << config << " not installed." << endl; 384 cerr << "Was looking for " << libdir << endl; 385 libdir = libbase + arch + "-" + "nolib"; 386 } // if 387 388 if ( ! dirExists( libdir ) ) { 389 cerr << argv[0] << " internal error, cannot find prelude directory." << endl; 390 cerr << "Was looking for " << libdir << endl; 391 exit( EXIT_FAILURE ); 392 } // if 393 394 args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + libdir + (intree ? "/prelude" : "")) ).c_str(); 381 if (!disttree) { 382 if ( ! nolib && ! dirExists( libdir ) ) { 383 cerr << argv[0] << " internal error, configuration " << config << " not installed." << endl; 384 cerr << "Was looking for " << libdir << endl; 385 for(int i = 1; i < argc; i++) { 386 cerr << argv[i] << " "; 387 } 388 cerr << endl; 389 libdir = libbase + arch + "-" + "nolib"; 390 } // if 391 392 if ( ! dirExists( libdir ) ) { 393 cerr << argv[0] << " internal error, cannot find prelude directory." << endl; 394 cerr << "Was looking for " << libdir << endl; 395 exit( EXIT_FAILURE ); 396 } // if 397 } // if 398 399 if(disttree) { 400 args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + dir(argv[0])) ).c_str(); 401 } else if(intree) { 402 args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + libdir + "/prelude") ).c_str(); 403 } else { 404 args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + libdir) ).c_str(); 405 } 395 406 nargs += 1; 396 407 … … 481 492 482 493 if ( Bprefix.length() == 0 ) { 483 Bprefix = ! intree ? installlibdir : srcdriverdir; 494 if(disttree) { 495 Bprefix = dir(argv[0]); 496 } else if(intree) { 497 Bprefix = srcdriverdir; 498 } else { 499 Bprefix = installlibdir; 500 } 501 484 502 if ( Bprefix[Bprefix.length() - 1] != '/' ) Bprefix += '/'; 485 503 args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str(); … … 539 557 if ( ! quiet ) { 540 558 cerr << "CFA " << "Version " << Version << heading << endl; 541 542 559 if ( help ) { 543 560 cerr <<
Note:
See TracChangeset
for help on using the changeset viewer.
