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) {
66c01c1998-02-28Fredrik Hübinette (Hubbe)  if(sscanf(argv[-1],"%*[a-zA-Z]:%*s")==2)
5a7ab61998-01-31Fredrik 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{
a16a681998-10-21Fredrik Hübinette (Hubbe)  argv[0]=find_next_in_path(argv[0],"install"); if(getenv("NT_DEBUG")) werror("%O\n",argv); exece(argv[0],argv[1..]);
5a7ab61998-01-31Fredrik Hübinette (Hubbe)  exit(69); } }