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..];
bf0a701999-05-11Fredrik Hübinette (Hubbe)  if(argv[1]=="-m") argv=argv[..0]+argv[3..];
5a7ab61998-01-31Fredrik Hübinette (Hubbe)  if(file_stat(argv[1]+".exe")) argv[1]+=".exe"; exit(do_cmd( Array.map(argv,fixpath))); }else{
9c7a341998-10-21Fredrik Hübinette (Hubbe)  argv[0]="install-sh";
a16a681998-10-21Fredrik Hübinette (Hubbe)  if(getenv("NT_DEBUG")) werror("%O\n",argv);
aaa9a91998-10-21Fredrik Hübinette (Hubbe)  Process.exec(@argv);
5a7ab61998-01-31Fredrik Hübinette (Hubbe)  exit(69); } }