pike.git / NT / tools / rntecl

version» Context lines:

pike.git/NT/tools/rntecl:1:   #!/usr/local/bin/pike   // -*- Pike -*-    - // $Id: rntecl,v 1.4 2000/08/14 16:11:46 grubba Exp $ + // $Id: rntecl,v 1.5 2000/08/14 21:10:29 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.   
pike.git/NT/tools/rntecl:35:   }      string remove_ext(string file)   {    sscanf(file=reverse(file),"%*s.%s",file,file);    return reverse(file);   }      string o_to_obj(string fname)   { -  if (fname[sizeof(fname)-3..] == ".o") { +  if (fname[sizeof(fname)-2..] == ".o") {    return fname + "bj";    }    return fname;   }      int main(int argc, string *argv)   {    string *ldopts=({"-INCREMENTAL:no"});    string *cflags=({    "-Wp64", // Generate warnings for loss of precision.