5a7ab6 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | #!/usr/local/bin/pike
|
3f9343 | 1998-01-14 | Fredrik Hübinette (Hubbe) | |
|
5a7ab6 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | inherit "lib.pike";
|
3f9343 | 1998-01-14 | Fredrik Hübinette (Hubbe) | |
|
5a7ab6 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | int main(int argc, string *argv)
{
|
66c01c | 1998-02-28 | Fredrik Hübinette (Hubbe) | | if(sscanf(argv[-1],"%*[a-zA-Z]:%*s")==2)
|
5a7ab6 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | {
argv[0]="copy";
if(argv[1]=="-c") argv=argv[..0]+argv[2..];
if(file_stat(argv[1]+".exe")) argv[1]+=".exe";
exit(do_cmd( Array.map(argv,fixpath)));
}else{
|
65d78e | 1998-10-21 | Fredrik Hübinette (Hubbe) | | exece(find_next_in_path(argv[0],"install"),argv[1..]);
|
5a7ab6 | 1998-01-31 | Fredrik Hübinette (Hubbe) | | exit(69);
}
}
|