pike.git/ NT/ tools/ rntcl

2001-01-15

2001-01-15 17:31:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• e7af6fecd7c82086351d10098643f5afc2b4e20f (22 lines) (+19/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Added paranoia_stat() as a workaround for poor NT NFS-servers.

Rev: NT/tools/rntcl:1.13

1:   #!/usr/local/bin/pike + // -*- Pike -*-      // RNTCC, a front-end to MS VC++ with options similar to GCC   // Written by Fredrik Hubinette.
38:   }       + array|object paranoia_stat(string f) + { +  for (int i=0; i < 10; i++) { +  array|object st = file_stat(f); +  if (st) return st; +  sleep(0.1); +  } +  return file_stat(f); + } +    int main(int argc, string *argv)   {   // werror("%O\n",argv);
46:    "-Zm300",    "-F8388608",    "-Ge", +  "-GR",    "-D__WIN32__",    "-D_WIN32",    "-D__NT__",
122:       case "debug":    cflags+=({ -  "-Z7", +  // "-Z7", +  "-Zi",   // "-Yd",    });    debug=1;
261:          cmd+=({"-link", +  "-fixed:no", +  "-debug",   // "-PDB:NONE",    "-DEBUGTYPE:BOTH",    "-DEBUG",
311:       if(wantfile)    { -  if(!file_stat(wantfile)) +  if(!paranoia_stat(wantfile))    {    werror("RNTCL: output file not generated (%s).\n",wantfile);    exit(1);