Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • driver/cfa.cc

    r406970b1 r9b34766  
    1010// Created On       : Tue Aug 20 13:44:49 2002
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed Sep  2 17:59:20 2020
    13 // Update Count     : 438
     12// Last Modified On : Tue Aug 18 16:40:22 2020
     13// Update Count     : 435
    1414//
    1515
    1616#include <iostream>
    17 #include <cstdio>                                                                               // perror
    18 #include <cstdlib>                                                                              // putenv, exit
    19 #include <climits>                                                                              // PATH_MAX
    20 #include <string>                                                                               // STL version
    21 #include <algorithm>                                                                    // find
    22 
    23 #include <unistd.h>                                                                             // execvp
     17#include <cstdio>      // perror
     18#include <cstdlib>     // putenv, exit
     19#include <climits>     // PATH_MAX
     20#include <unistd.h>    // execvp
     21#include <string>      // STL version
     22#include <string.h>    // strcmp
     23#include <algorithm>   // find
     24
    2425#include <sys/types.h>
    2526#include <sys/stat.h>
     
    3334using std::to_string;
    3435
    35 //#define __DEBUG_H__
    36 
    37 #define xstr(s) str(s)
    38 #define str(s) #s
    39 
    40 static string __CFA_FLAGPREFIX__( "__CFA_FLAG" );               // "__CFA_FLAG__=" suffix
    41 
    42 static void Putenv( char * argv[], string arg ) {
     36// #define __DEBUG_H__
     37
     38// "N__=" suffix
     39static string __CFA_FLAGPREFIX__( "__CFA_FLAG" );
     40
     41void Putenv( char * argv[], string arg ) {
    4342        // environment variables must have unique names
    4443        static int flags = 0;
     
    5049} // Putenv
    5150
    52 static bool prefix( const string & arg, const string & pre ) { // check if string has prefix
     51// check if string has prefix
     52bool prefix( const string & arg, const string & pre ) {
    5353        return arg.substr( 0, pre.size() ) == pre;
    5454} // prefix
    5555
    56 static inline bool ends_with(const string & str, const string & sfix) {
     56inline bool ends_with(const string & str, const string & sfix) {
    5757        if (sfix.size() > str.size()) return false;
    5858        return std::equal(str.rbegin(), str.rbegin() + sfix.size(), sfix.rbegin(), sfix.rend());
     
    6060
    6161// check if string has suffix
    62 static bool suffix( const string & arg ) {
     62bool suffix( const string & arg ) {
    6363        enum { NumSuffixes = 3 };
    6464        static const string suffixes[NumSuffixes] = { "cfa", "hfa", "ifa" };
     
    7070} // suffix
    7171
     72
    7273static inline bool dirExists( const string & path ) {   // check if directory exists
    7374    struct stat info;
     
    7879static inline string dir(const string & path) {
    7980        return path.substr(0, path.find_last_of('/'));
    80 } // dir
     81}
    8182
    8283// Different path modes
     
    117118}
    118119
     120
     121#define xstr(s) str(s)
     122#define str(s) #s
    119123
    120124int main( int argc, char * argv[] ) {
     
    154158        PathMode path = FromProc();
    155159
    156         const char * args[argc + 100];                                          // cfa command line values, plus some space for additional flags
     160        const char *args[argc + 100];                                           // cfa command line values, plus some space for additional flags
    157161        int sargs = 1;                                                                          // starting location for arguments in args list
    158162        int nargs = sargs;                                                                      // number of arguments in args list; 0 => command name
    159163
    160         const char * libs[argc + 20];                                           // non-user libraries must come separately, plus some added libraries and flags
     164        const char *libs[argc + 20];                                            // non-user libraries must come separately, plus some added libraries and flags
    161165        int nlibs = 0;
    162166
     
    176180
    177181                        if ( arg == "-Xlinker" || arg == "-o" ) {
    178                                 args[nargs++] = argv[i];                                // pass flag along
     182                                args[nargs++] = argv[i];                                // pass argument along
    179183                                i += 1;
    180184                                if ( i == argc ) continue;                              // next argument available ?
    181185                                args[nargs++] = argv[i];                                // pass argument along
    182186                                if ( arg == "-o" ) o_file = i;                  // remember file
    183 
    184                                 // CFA specific arguments
    185 
    186                         } else if ( strncmp(arg.c_str(), "-XCFA", 5) == 0 ) { // CFA pass through
    187                                 if ( arg.size() == 5 ) {
     187                        } else if ( strncmp(arg.c_str(), "-XCFA", 5) == 0 ) {                           // CFA pass through
     188                                if(arg.size() == 5) {
    188189                                        i += 1;
    189                                         if ( i == argc ) continue;                      // next argument available ?
     190                                        if ( i == argc ) continue;                              // next argument available ?
    190191                                        Putenv( argv, argv[i] );
    191                                 } else if ( arg[5] == ',' ) {                   // CFA specific arguments
     192
     193                                        // CFA specific arguments
     194                                }
     195                                else if(arg[5] == ',') {
    192196                                        Putenv( argv, argv[i] + 6 );
    193                                 } else {                                                                // CFA specific arguments
     197
     198                                        // CFA specific arguments
     199                                }
     200                                else {
    194201                                        args[nargs++] = argv[i];
    195                                 } // if
     202                                }
     203
    196204                        } else if ( arg == "-CFA" ) {
    197205                                CFA_flag = true;                                                // strip the -CFA flag
     
    202210                        } else if ( arg == "-nodebug" ) {
    203211                                debug = false;                                                  // strip the nodebug flag
     212                        } else if ( arg == "-nolib" ) {
     213                                nolib = true;                                                   // strip the nodebug flag
    204214                        } else if ( arg == "-quiet" ) {
    205215                                quiet = true;                                                   // strip the quiet flag
    206216                        } else if ( arg == "-noquiet" ) {
    207217                                quiet = false;                                                  // strip the noquiet flag
    208                         } else if ( arg == "-no-include-stdhdr" ) {
    209                                 noincstd_flag = true;                                   // strip the no-include-stdhdr flag
    210                         } else if ( arg == "-nolib" ) {
    211                                 nolib = true;                                                   // strip the nolib flag
    212218                        } else if ( arg == "-help" ) {
    213219                                help = true;                                                    // strip the help flag
    214220                        } else if ( arg == "-nohelp" ) {
    215221                                help = false;                                                   // strip the nohelp flag
     222                        } else if ( arg == "-no-include-stdhdr" ) {
     223                                noincstd_flag = true;                                   // strip the no-include-stdhdr flag
    216224                        } else if ( arg == "-cfalib") {
    217225                                compiling_libs = true;
     
    227235                        } else if ( arg == "-v" ) {
    228236                                verbose = true;                                                 // verbosity required
    229                                 args[nargs++] = argv[i];                                // pass flag along
     237                                args[nargs++] = argv[i];                                // pass argument along
    230238                        } else if ( arg == "-g" ) {
    231239                                debugging = true;                                               // symbolic debugging required
    232                                 args[nargs++] = argv[i];                                // pass flag along
     240                                args[nargs++] = argv[i];                                // pass argument along
    233241                        } else if ( arg == "-save-temps" ) {
    234                                 args[nargs++] = argv[i];                                // pass flag along
     242                                args[nargs++] = argv[i];                                // pass argument along
    235243                                Putenv( argv, arg );                                    // save cfa-cpp output
    236244                        } else if ( prefix( arg, "-x" ) ) {                     // file suffix ?
    237245                                string lang;
    238                                 args[nargs++] = argv[i];                                // pass flag along
     246                                args[nargs++] = argv[i];                                // pass argument along
    239247                                if ( arg.length() == 2 ) {                              // separate argument ?
    240248                                        i += 1;
     
    253261                        } else if ( prefix( arg, "-std=" ) || prefix( arg, "--std=" ) ) {
    254262                                std_flag = true;                                                // -std=XX provided
    255                                 args[nargs++] = argv[i];                                // pass flag along
     263                                args[nargs++] = argv[i];                                // pass argument along
    256264                        } else if ( arg == "-w" ) {
    257                                 args[nargs++] = argv[i];                                // pass flag along
     265                                args[nargs++] = argv[i];                                // pass argument along
    258266                                Putenv( argv, arg );
    259267                        } else if ( prefix( arg, "-W" ) ) {                     // check before next tests
    260268                                if ( arg == "-Werror" || arg == "-Wall" ) {
    261                                         args[nargs++] = argv[i];                        // pass flag along
     269                                        args[nargs++] = argv[i];                        // pass argument along
    262270                                        Putenv( argv, argv[i] );
    263271                                } else {
     
    273281                                bprefix = arg.substr(2);                                // strip the -B flag
    274282                        } else if ( arg == "-c" || arg == "-S" || arg == "-E" || arg == "-M" || arg == "-MM" ) {
    275                                 args[nargs++] = argv[i];                                // pass flag along
     283                                args[nargs++] = argv[i];                                // pass argument along
    276284                                if ( arg == "-E" || arg == "-M" || arg == "-MM" ) {
    277285                                        cpp_flag = true;                                        // cpp only
    278286                                } // if
    279287                                link = false;                           // no linkage required
    280                         } else if ( arg == "-D" || arg == "-U" || arg == "-I" || arg == "-MF" || arg == "-MT" || arg == "-MQ" ||
    281                                                 arg == "-include" || arg == "-imacros" || arg == "-idirafter" || arg == "-iprefix" ||
    282                                                 arg == "-iwithprefix" || arg == "-iwithprefixbefore" || arg == "-isystem" || arg == "-isysroot" ) {
    283                                 args[nargs++] = argv[i];                                // pass flag along
    284                                 i += 1;
    285                                 args[nargs++] = argv[i];                                // pass argument along
    286288                        } else if ( arg[1] == 'l' ) {
    287289                                // if the user specifies a library, load it after user code
     
    335337        string libbase;
    336338        switch(path) {
    337           case Installed:
     339        case Installed:
    338340                args[nargs++] = "-I" CFA_INCDIR;
    339341                // do not use during build
     
    345347                libbase = CFA_LIBDIR;
    346348                break;
    347           case BuildTree:
    348           case Distributed:
     349        case BuildTree:
     350        case Distributed:
    349351                args[nargs++] = "-I" TOP_SRCDIR "libcfa/src";
    350352                // do not use during build
     
    380382        string libdir = libbase + arch + "-" + config;
    381383
    382         if ( path != Distributed ) {
     384        if (path != Distributed) {
    383385                if ( ! nolib && ! dirExists( libdir ) ) {
    384386                        cerr << argv[0] << " internal error, configuration " << config << " not installed." << endl;
     
    400402        string preludedir;
    401403        switch(path) {
    402           case Installed   : preludedir = libdir; break;
    403           case BuildTree   : preludedir = libdir + "/prelude"; break;
    404           case Distributed : preludedir = dir(argv[0]); break;
    405         } // switch
     404        case Installed   : preludedir = libdir; break;
     405        case BuildTree   : preludedir = libdir + "/prelude"; break;
     406        case Distributed : preludedir = dir(argv[0]); break;
     407        }
    406408
    407409        Putenv( argv, "--prelude-dir=" + preludedir );
     
    437439                #endif // __x86_64__
    438440                args[nargs++] = "-ldl";
     441                args[nargs++] = "-lrt";
    439442                args[nargs++] = "-lm";
    440443        } // if
     
    474477        if ( bprefix.length() == 0 ) {
    475478                switch(path) {
    476                   case Installed   : bprefix = installlibdir; break;
    477                   case BuildTree   : bprefix = srcdriverdir ; break;
    478                   case Distributed : bprefix = dir(argv[0]) ; break;
    479                 } // switch
    480         } // if
    481         if ( bprefix[bprefix.length() - 1] != '/' ) bprefix += '/';
    482         Putenv( argv, string("-B=") + bprefix );
     479                case Installed   : bprefix = installlibdir; break;
     480                case BuildTree   : bprefix = srcdriverdir ; break;
     481                case Distributed : bprefix = dir(argv[0]) ; break;
     482                }
     483                if ( bprefix[bprefix.length() - 1] != '/' ) bprefix += '/';
     484                Putenv( argv, string("-B=") + bprefix );
     485        } // if
    483486
    484487        args[nargs++] = "-Xlinker";                                                     // used by backtrace
     
    502505                args[nargs++] = "-Wno-cast-function-type";
    503506                #endif // HAVE_CAST_FUNCTION_TYPE
    504                 if ( ! std_flag && ! x_flag ) {
    505                         args[nargs++] = "-std=gnu11";                           // default c11, if none specified
     507                if ( ! std_flag ) {                                                             // default c11, if none specified
     508                        args[nargs++] = "-std=gnu11";
    506509                } // if
    507510                args[nargs++] = "-fgnu89-inline";
     
    553556        // execute the command and return the result
    554557
    555         execvp( args[0], (char * const *)args );                        // should not return
     558        execvp( args[0], (char *const *)args );                         // should not return
    556559        perror( "CFA Translator error: execvp" );
    557560        exit( EXIT_FAILURE );
Note: See TracChangeset for help on using the changeset viewer.