Changeset fcd1a469

Timestamp:

Jul 14, 2021, 10:02:33 PM (3 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

9f77301

Parents:

e7a63e3

Message:

formatting, add short form for -XCFA options

File:

• driver/cfa.cc (modified) (5 diffs)

driver/cfa.cc

@@ -10 +10 @@
 // Created On       : Tue Aug 20 13:44:49 2002
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sat Jan 16 07:30:19 2021
-// Update Count     : 442
+// Last Modified On : Wed Jul 14 21:55:12 2021
+// Update Count     : 467
 //
 
@@ -94 +94 @@
         // get executable path from /proc/self/exe
         ssize_t size = readlink("/proc/self/exe", const_cast<char*>(abspath.c_str()), abspath.size());
-        if(size <= 0) {
+        if ( size <= 0 ) {
                 std::cerr << "Error could not evaluate absolute path from /proc/self/exe" << std::endl;
                 std::cerr << "Failed with " << std::strerror(errno) << std::endl;
                 std::exit(1);
-        }
+        } // if
 
         // Trim extra characters
@@ -104 +104 @@
 
         // Are we installed
-        if(abspath.rfind(CFA_BINDIR  , 0) == 0) { return Installed; }
+        if ( abspath.rfind(CFA_BINDIR, 0) == 0 ) { return Installed; }
 
         // Is this the build tree
-        if(abspath.rfind(TOP_BUILDDIR, 0) == 0) { return BuildTree; }
+        if ( abspath.rfind(TOP_BUILDDIR, 0 ) == 0 ) { return BuildTree; }
 
         // Does this look like distcc
-        if(abspath.find("/.cfadistcc/") != std::string::npos) { return Distributed; }
+        if ( abspath.find( "/.cfadistcc/" ) != std::string::npos ) { return Distributed; }
 
         // None of the above? Give up since we don't know where the prelude or include directories are
@@ -188 +188 @@
                                         i += 1;
                                         if ( i == argc ) continue;                      // next argument available ?
-                                        Putenv( argv, argv[i] );
+                                        Putenv( argv, argv[i] );                        // make available for cc1
                                 } else if ( arg[5] == ',' ) {                   // CFA specific arguments
-                                        Putenv( argv, argv[i] + 6 );
+                                        string xcfargs = arg.substr( 6 ) + ","; // add sentinel
+                                        for ( ;; ) {
+                                                size_t posn = xcfargs.find_first_of( "," ); // find separator
+                                          if ( posn == string::npos ) break; // any characters left ?
+                                                string xcfarg = xcfargs.substr( 0, posn ); // remove XCFA argument
+                                                Putenv( argv, xcfarg );                 // make available for cc1
+                                                xcfargs.erase( 0, posn + 1 );   // remove first argument and comma
+                                        } // for
                                 } else {                                                                // CFA specific arguments
+                                        assert( false );                                        // this does not make sense
                                         args[nargs++] = argv[i];
                                 } // if
@@ -364 +372 @@
         args[nargs++] = "stdbool.h";
 
-        if( compiling_libs ) {
+        if ( compiling_libs ) {
                 Putenv( argv, "-t" );
         } // if