pike.git/ NT/ tools/ rntcl

2000-11-30

2000-11-30 21:11:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 7eb694e03216c379d4be1c4e6adfcd5909ae9054 (7 lines) (+3/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

now works with symlinks again

Rev: NT/tools/lib.pike:1.18
Rev: NT/tools/rntcc:1.27
Rev: NT/tools/rntcl:1.10

308:    "#!/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" -  " int ret=silent_do_cmd(argv);\n" -  " exit(ret);\n" +  " argv[0]=getenv(\"NTDRIVE\")+fixpath(follow_symlinks(combine_path(getcwd(),argv[0]))+\".exe\");\n" +  " exit(silent_do_cmd(argv));\n"    "}\n");    chmod(output,0755);    }       exit(ret);   }