pike.git / NT / tools / rntecl

version» Context lines:

pike.git/NT/tools/rntecl:1:   #!/usr/local/bin/pike   // -*- Pike -*-    + // $Id: rntecl,v 1.2 2000/08/01 13:40:06 grubba Exp $ +    // RNTECL, a front-end to Intel ECL with options similar to GCC   // Written by Fredrik Hubinette & Henrik Grubbström.      inherit "lib.pike";      // Verbose is default for now, this can be turned off one this   // frontend has been refined to where it does not require more   // debugging.      int verbose=1;
pike.git/NT/tools/rntecl:36:   {    sscanf(file=reverse(file),"%*s.%s",file,file);    return reverse(file);   }         int main(int argc, string *argv)   {    string *ldopts=({"-INCREMENTAL:no"});    string *cflags=({ -  "-Wp64", +  "-Wp64", // Generate warnings for loss of precision. +  //"-W4", // Maximum verbosity. +  "-W3", // More warnings.    "-D__WIN32__",    "-D_WIN32",    "-D__NT__",   // "-D__STDC__",    "-nologo",    });       string target="exe";    int debug,optimize,share;    string output, wantfile;
pike.git/NT/tools/rntecl:300:    }    }       if(target=="exe" && !share)    {    rm(output);    Stdio.write_file(output,    "#!/usr/local/bin/pike\n"    "inherit \""+find_lib_location()+"\";\n"    "int main(int argc, string *argv) {\n" -  "argv[0]+=\".exe\";\n" -  "argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n" +  " if (lower_case(getenv(\"CROSSCOMPILING\")||\"no\") != \"no\")\n" +  " exit(1);\n" +  " argv[0]+=\".exe\";\n" +  " argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"    " int ret=silent_do_cmd(argv);\n"    " exit(ret);\n"    "}\n");    chmod(output,0755);    }       exit(ret);   }