source: src/driver/cfa.cc@ 540b275

ADT aaron-thesis arm-eh ast-experimental cleanup-dtors ctor deferred_resn demangler enum forall-pointer-decay jacob/cs343-translation jenkins-sandbox memory new-ast new-ast-unique-expr new-env no_list persistent-indexer pthread-emulation qualifiedEnum resolv-new with_gc
Last change on this file since 540b275 was fcf041c, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

Merge branch 'master' of plg2:software/cfa/cfa-cc
  • Property mode set to 100644
File size: 12.1 KB
RevLine 
[b87a5ed]1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
[76c7f65e]7// cfa.cc --
[b87a5ed]8//
[51b73452]9// Author : Peter A. Buhr
10// Created On : Tue Aug 20 13:44:49 2002
11// Last Modified By : Peter A. Buhr
[ed0e67a]12// Last Modified On : Tue Jul 5 20:56:18 2016
13// Update Count : 140
[b87a5ed]14//
[51b73452]15
16#include <iostream>
[b87a5ed]17#include <cstdio> // perror
18#include <cstdlib> // putenv, exit
19#include <unistd.h> // execvp
20#include <string> // STL version
[51b73452]21
[b87a5ed]22#include "config.h" // configure info
[51b73452]23
24using std::cerr;
25using std::endl;
26using std::string;
27
28
29//#define __DEBUG_H__
30
31
32bool prefix( string arg, string pre ) {
[b87a5ed]33 return arg.substr( 0, pre.size() ) == pre;
[51b73452]34} // prefix
35
36
37void shuffle( const char *args[], int S, int E, int N ) {
[b87a5ed]38 // S & E index 1 passed the end so adjust with -1
[51b73452]39#ifdef __DEBUG_H__
[b87a5ed]40 cerr << "shuffle:" << S << " " << E << " " << N << endl;
[51b73452]41#endif // __DEBUG_H__
[b87a5ed]42 for ( int j = E-1 + N; j > S-1 + N; j -=1 ) {
[51b73452]43#ifdef __DEBUG_H__
[b87a5ed]44 cerr << "\t" << j << " " << j-N << endl;
[51b73452]45#endif // __DEBUG_H__
[b87a5ed]46 args[j] = args[j-N];
47 } // for
[51b73452]48} // shuffle
49
50
51int main( int argc, char *argv[] ) {
[b87a5ed]52 string Version( VERSION ); // current version number from CONFIG
53 string Major( "0" ), Minor( "0" ), Patch( "0" ); // default version numbers
[1db21619]54
[b87a5ed]55 int posn1 = Version.find( "." ); // find the divider between major and minor version numbers
56 if ( posn1 == -1 ) { // not there ?
57 Major = Version;
[51b73452]58 } else {
[b87a5ed]59 Major = Version.substr( 0, posn1 );
60 int posn2 = Version.find( ".", posn1 + 1 ); // find the divider between minor and patch numbers
61 if ( posn2 == -1 ) { // not there ?
62 Minor = Version.substr( posn1 );
63 } else {
64 Minor = Version.substr( posn1 + 1, posn2 - posn1 - 1 );
65 Patch = Version.substr( posn2 + 1 );
66 } // if
[51b73452]67 } // if
68
[00cc023]69 string installincdir( CFA_INCDIR ); // fixed location of include files
70 string installlibdir( CFA_LIBDIR ); // fixed location of cc1 and cfa-cpp commands
[51b73452]71
[b87a5ed]72 string heading; // banner printed at start of cfa compilation
73 string arg; // current command-line argument during command-line parsing
74 string Bprefix; // path where gcc looks for compiler command steps
75 string langstd; // language standard
[51b73452]76
[e24f13a]77 string compiler_path( CFA_BACKEND_CC ); // path/name of C compiler
[b87a5ed]78 string compiler_name; // name of C compiler
[51b73452]79
[b87a5ed]80 bool nonoptarg = false; // indicates non-option argument specified
81 bool link = true; // linking as well as compiling
82 bool verbose = false; // -v flag
83 bool quiet = false; // -quiet flag
84 bool debug = true; // -debug flag
85 bool help = false; // -help flag
86 bool CFA_flag = false; // -CFA flag
87 bool cpp_flag = false; // -E or -M flag, preprocessor only
[de62360d]88 bool std_flag = false; // -std= flag
[b87a5ed]89 bool debugging = false; // -g flag
[ca4a7ba]90 (void) debugging; // remove unused variable warning
[51b73452]91
[b87a5ed]92 const char *args[argc + 100]; // cfa command line values, plus some space for additional flags
93 int sargs = 1; // starting location for arguments in args list
94 int nargs = sargs; // number of arguments in args list; 0 => command name
[51b73452]95
[b87a5ed]96 const char *libs[argc + 20]; // non-user libraries must come separately, plus some added libraries and flags
97 int nlibs = 0;
[51b73452]98
99#ifdef __DEBUG_H__
[b87a5ed]100 cerr << "CFA:" << endl;
[51b73452]101#endif // __DEBUG_H__
102
[b87a5ed]103 // process command-line arguments
[51b73452]104
[b87a5ed]105 for ( int i = 1; i < argc; i += 1 ) {
[51b73452]106#ifdef __DEBUG_H__
[b87a5ed]107 cerr << "argv[" << i << "]:\"" << argv[i] << "\"" << endl;
[51b73452]108#endif // __DEBUG_H__
[b87a5ed]109 arg = argv[i]; // convert to string value
[51b73452]110#ifdef __DEBUG_H__
[b87a5ed]111 cerr << "arg:\"" << arg << "\"" << endl;
[51b73452]112#endif // __DEBUG_H__
[b87a5ed]113 if ( prefix( arg, "-" ) ) {
114 // pass through arguments
115
116 if ( arg == "-Xlinker" || arg == "-o" ) {
117 args[nargs] = argv[i]; // pass the argument along
118 nargs += 1;
119 i += 1;
120 if ( i == argc ) continue; // next argument available ?
121 args[nargs] = argv[i]; // pass the argument along
122 nargs += 1;
123 } else if ( arg == "-XCFA" ) { // CFA pass through
124 i += 1;
125 args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + argv[i] ) ).c_str();
126 nargs += 1;
127
128 // CFA specific arguments
129
130 } else if ( arg == "-CFA" ) {
131 CFA_flag = true; // strip the -CFA flag
132 link = false;
133 args[nargs] = "-E"; // replace the argument with -E
134 nargs += 1;
135 } else if ( arg == "-debug" ) {
136 debug = true; // strip the debug flag
137 } else if ( arg == "-nodebug" ) {
138 debug = false; // strip the nodebug flag
139 } else if ( arg == "-quiet" ) {
140 quiet = true; // strip the quiet flag
141 } else if ( arg == "-noquiet" ) {
142 quiet = false; // strip the noquiet flag
143 } else if ( arg == "-help" ) {
144 help = true; // strip the help flag
145 } else if ( arg == "-nohelp" ) {
146 help = false; // strip the nohelp flag
147 } else if ( arg == "-compiler" ) {
148 // use the user specified compiler
149 i += 1;
150 if ( i == argc ) continue; // next argument available ?
151 compiler_path = argv[i];
152 if ( putenv( (char *)( *new string( string( "__U_COMPILER__=" ) + argv[i]) ).c_str() ) != 0 ) {
153 cerr << argv[0] << " error, cannot set environment variable." << endl;
154 exit( EXIT_FAILURE );
155 } // if
156
[de62360d]157 // C specific arguments
[b87a5ed]158
159 } else if ( arg == "-v" ) {
160 verbose = true; // verbosity required
161 args[nargs] = argv[i]; // pass the argument along
162 nargs += 1;
163 } else if ( arg == "-g" ) {
164 debugging = true; // symbolic debugging required
165 args[nargs] = argv[i]; // pass the argument along
166 nargs += 1;
[de62360d]167 } else if ( prefix( arg, "-std=" ) ) {
[53ba273]168 std_flag = true; // -std=XX provided
[de62360d]169 args[nargs] = argv[i]; // pass the argument along
170 nargs += 1;
[b87a5ed]171 } else if ( prefix( arg, "-B" ) ) {
172 Bprefix = arg.substr(2); // strip the -B flag
173 args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
174 nargs += 1;
175 } else if ( prefix( arg, "-b" ) ) {
176 if ( arg.length() == 2 ) { // separate argument ?
177 i += 1;
178 if ( i == argc ) continue; // next argument available ?
179 arg += argv[i]; // concatenate argument
180 } // if
181 // later versions of gcc require the -b option to appear at the start of the command line
182 shuffle( args, sargs, nargs, 1 ); // make room at front of argument list
183 args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along
184 if ( putenv( (char *)( *new string( string( "__GCC_MACHINE__=" ) + arg ) ).c_str() ) != 0 ) {
185 cerr << argv[0] << " error, cannot set environment variable." << endl;
186 exit( EXIT_FAILURE );
187 } // if
188 sargs += 1;
189 nargs += 1;
190 } else if ( prefix( arg, "-V" ) ) {
191 if ( arg.length() == 2 ) { // separate argument ?
192 i += 1;
193 if ( i == argc ) continue; // next argument available ?
194 arg += argv[i]; // concatenate argument
195 } // if
196 // later versions of gcc require the -V option to appear at the start of the command line
197 shuffle( args, sargs, nargs, 1 ); // make room at front of argument list
198 args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along
199 if ( putenv( (char *)( *new string( string( "__GCC_VERSION__=" ) + arg ) ).c_str() ) != 0 ) {
200 cerr << argv[0] << " error, cannot set environment variable." << endl;
201 exit( EXIT_FAILURE );
202 } // if
203 sargs += 1;
204 nargs += 1;
205 } else if ( arg == "-c" || arg == "-S" || arg == "-E" || arg == "-M" || arg == "-MM" ) {
206 args[nargs] = argv[i]; // pass the argument along
207 nargs += 1;
208 if ( arg == "-E" || arg == "-M" || arg == "-MM" ) {
209 cpp_flag = true; // cpp only
210 } // if
211 link = false; // no linkage required
212 } else if ( arg[1] == 'l' ) {
213 // if the user specifies a library, load it after user code
214 libs[nlibs] = argv[i];
215 nlibs += 1;
216 } else {
217 // concatenate any other arguments
218 args[nargs] = argv[i];
219 nargs += 1;
220 } // if
221 } else {
222 // concatenate other arguments
223 args[nargs] = argv[i];
224 nargs += 1;
225 nonoptarg = true;
226 } // if
227 } // for
[51b73452]228
[b87a5ed]229#ifdef __DEBUG_H__
230 cerr << "args:";
231 for ( int i = 1; i < nargs; i += 1 ) {
232 cerr << " " << args[i];
233 } // for
234 cerr << endl;
235#endif // __DEBUG_H__
[51b73452]236
[b87a5ed]237 if ( cpp_flag && CFA_flag ) {
238 cerr << argv[0] << " error, cannot use -E and -CFA flags together." << endl;
239 exit( EXIT_FAILURE );
240 } // if
[51b73452]241
[b87a5ed]242 string d;
243 if ( debug ) {
244 d = "-d";
245 } // if
[51b73452]246
[b87a5ed]247 args[nargs] = "-I" CFA_INCDIR;
248 nargs += 1;
[ed0e67a]249 args[nargs] = "-I" CFA_INCDIR "/stdhdr";
[7fe4cc3e]250 nargs += 1;
[76c7f65e]251 args[nargs] = "-I" CFA_INCDIR "/containers";
252 nargs += 1;
253
[b87a5ed]254 if ( link ) {
255 // include the cfa library in case it's needed
256 args[nargs] = "-L" CFA_LIBDIR;
[51b73452]257 nargs += 1;
[b87a5ed]258 args[nargs] = "-lcfa";
[51b73452]259 nargs += 1;
260 } // if
261
[b87a5ed]262 // add the correct set of flags based on the type of compile this is
[8c17ab0]263
[1db21619]264 args[nargs] = ( *new string( string("-D__CFA__=") + Major ) ).c_str();
[51b73452]265 nargs += 1;
[b87a5ed]266 args[nargs] = ( *new string( string("-D__CFA_MINOR__=") + Minor ) ).c_str();
[51b73452]267 nargs += 1;
[1db21619]268 args[nargs] = ( *new string( string("-D__CFA_PATCHLEVEL__=") + Patch ) ).c_str();
269 nargs += 1;
[4c82a3c]270 args[nargs] = "-D__CFA__";
271 nargs += 1;
272 args[nargs] = "-D__CFORALL__";
[02e5ab6]273 nargs += 1;
[51b73452]274
[b87a5ed]275 if ( cpp_flag ) {
276 args[nargs] = "-D__CPP__";
277 nargs += 1;
278 } // if
[51b73452]279
[b87a5ed]280 if ( CFA_flag ) {
[4c82a3c]281 args[nargs] = "-D__CFA_PREPROCESS_";
[b87a5ed]282 nargs += 1;
283 } // if
[51b73452]284
[b87a5ed]285 if ( debug ) {
286 heading += " (debug)";
287 args[nargs] = "-D__CFA_DEBUG__";
288 nargs += 1;
289 } else {
290 heading += " (no debug)";
291 } // if
[51b73452]292
[b87a5ed]293 if ( Bprefix.length() == 0 ) {
294 Bprefix = installlibdir;
295 args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
296 nargs += 1;
297 } // if
[51b73452]298
[b87a5ed]299 // execute the compilation command
[51b73452]300
[b87a5ed]301 args[0] = compiler_path.c_str(); // set compiler command for exec
302 // find actual name of the compiler independent of the path to it
303 int p = compiler_path.find_last_of( '/' ); // scan r -> l for first '/'
304 if ( p == -1 ) {
305 compiler_name = compiler_path;
306 } else {
307 compiler_name = *new string( compiler_path.substr( p + 1 ) );
308 } // if
[51b73452]309
[b87a5ed]310 if ( prefix( compiler_name, "gcc" ) ) { // allow suffix on gcc name
311 args[nargs] = "-no-integrated-cpp";
312 nargs += 1;
[76c7f65e]313 args[nargs] = "-Wno-deprecated";
[b87a5ed]314 nargs += 1;
[de62360d]315 if ( ! std_flag ) { // default c99, if none specified
[53ba273]316 args[nargs] = "-std=gnu99";
[de62360d]317 nargs += 1;
318 } // if
[76c7f65e]319 args[nargs] = "-fgnu89-inline";
[6e991d6]320 nargs += 1;
[b87a5ed]321 args[nargs] = ( *new string( string("-B") + Bprefix + "/" ) ).c_str();
322 nargs += 1;
[d3b7937]323 args[nargs] = "-lm";
324 nargs += 1;
[b87a5ed]325 } else {
[e24f13a]326 cerr << argv[0] << " error, compiler \"" << compiler_name << "\" unsupported." << endl;
[b87a5ed]327 exit( EXIT_FAILURE );
328 } // if
[51b73452]329
[b87a5ed]330 for ( int i = 0; i < nlibs; i += 1 ) { // copy non-user libraries after all user libraries
331 args[nargs] = libs[i];
332 nargs += 1;
333 } // for
[51b73452]334
[b87a5ed]335 args[nargs] = NULL; // terminate with NULL
[51b73452]336
337#ifdef __DEBUG_H__
[b87a5ed]338 cerr << "nargs: " << nargs << endl;
339 cerr << "args:" << endl;
340 for ( int i = 0; args[i] != NULL; i += 1 ) {
341 cerr << " \"" << args[i] << "\"" << endl;
342 } // for
[51b73452]343#endif // __DEBUG_H__
344
[b87a5ed]345 if ( ! quiet ) {
346 cerr << "CFA " << "Version " << Version << heading << endl;
347
348 if ( help ) {
349 cerr <<
350 "-debug\t\t\t: use cfa runtime with debug checking" << endl <<
351 "-help\t\t\t: print this help message" << endl <<
352 "-quiet\t\t\t: print no messages from the cfa command" << endl <<
353 "-CFA\t\t\t: run the cpp preprocessor and the cfa-cpp translator" << endl <<
354 "-XCFA -cfa-cpp-flag\t: pass next flag as-is to the cfa-cpp translator" << endl <<
355 "...\t\t\t: any other " << compiler_name << " flags" << endl;
356 } // if
[51b73452]357 } // if
358
[b87a5ed]359 if ( verbose ) {
360 if ( argc == 2 ) exit( EXIT_SUCCESS ); // if only the -v flag is specified, do not invoke gcc
[51b73452]361
[b87a5ed]362 for ( int i = 0; args[i] != NULL; i += 1 ) {
363 cerr << args[i] << " ";
364 } // for
365 cerr << endl;
366 } // if
[51b73452]367
[b87a5ed]368 if ( ! nonoptarg ) {
369 cerr << argv[0] << " error, no input files" << endl;
370 exit( EXIT_FAILURE );
371 } // if
[51b73452]372
[b87a5ed]373 // execute the command and return the result
[51b73452]374
[b87a5ed]375 execvp( args[0], (char *const *)args ); // should not return
376 perror( "CFA Translator error: cfa level, execvp" );
377 exit( EXIT_FAILURE );
[51b73452]378} // main
379
380// Local Variables: //
[b87a5ed]381// tab-width: 4 //
382// mode: c++ //
[51b73452]383// compile-command: "make install" //
384// End: //
Note: See TracBrowser for help on using the repository browser.