5a7ab61998-01-31Fredrik Hübinette (Hubbe) #!/usr/local/bin/pike
3f93431998-01-14Fredrik Hübinette (Hubbe) 
5a7ab61998-01-31Fredrik Hübinette (Hubbe) inherit "lib.pike";
3f93431998-01-14Fredrik Hübinette (Hubbe) 
5a7ab61998-01-31Fredrik Hübinette (Hubbe) int main(int argc, string *argv) { if(sscanf(argv[-1],"%*[a-zA-Z]:%*s")) { 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{ exece("/usr/bin/install",argv[1..]); exit(69); } }