pike.git / NT / tools / rntecl

version» Context lines:

pike.git/NT/tools/rntecl:1:   #!/usr/local/bin/pike   // -*- Pike -*-    - // $Id: rntecl,v 1.8 2000/08/20 12:49:16 grubba Exp $ + // $Id: rntecl,v 1.9 2000/08/25 17:08:30 mast 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.   
pike.git/NT/tools/rntecl:374:       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"    " if (lower_case(getenv(\"CROSSCOMPILING\")||\"no\") != \"no\")\n"    " exit(1);\n" -  " argv[0]+=\".exe\";\n" +  " argv[0]=" + sprintf ("%O", output + ".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);   }