pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.7 1998/04/14 18:19:32 hubbe Exp $ + /* $Id: master.pike.in,v 1.8 1998/04/15 14:16:54 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      int is_absolute_path(string p)   {   #ifdef __NT__    p=replace(p,"\\","/");
pike.git/lib/master.pike.in:200:    if(arrayp(e) &&    sizeof(e)==2 &&    arrayp(e[1]) &&    sizeof(e[1]) == sizeof(backtrace()))    e[1]=({});    throw(e);    }    break;   #if constant(load_module)    case ".so": +  if (fname == "") { +  werror(sprintf("low_find_prog(\"%s\", \"%s\") => load_module(\"\")\n" +  "%s\n", pname, ext, describe_backtrace(backtrace()))); +  }    ret=load_module(fname);   #endif /* load_module */    }    return programs[fname]=ret;    }else{    return UNDEFINED;    }   }      static program findprog(string pname, string ext)
pike.git/lib/master.pike.in:608:    " -t -t# : Increase trace level\n"    );    exit(0);       case "execute":    compile_string("#include <simulate.h>\nmixed create(){"+opts[1]+";}")();    exit(0);    }    }    -  argv=tmp->get_args(argv,1); +  argv = tmp->get_args(argv,1);    }       if(sizeof(argv)==1)    { -  argv=explode_path(argv[0]); -  argv[-1]="hilfe"; -  argv=({ argv*"/" }); -  if(!master_file_stat(argv[0])) -  { -  if(master_file_stat("¤exec_prefix¤/bin/hilfe")) -  argv[0]="¤exec_prefix¤/bin/hilfe"; -  else if(master_file_stat("../bin/hilfe")) -  argv[0]="../bin/hilfe"; -  else -  { -  werror("Couldn't find hilfe.\n"); +  /* Attempt to resolv Tools.Hilfe.StdinHilfe */ +  tmp = resolv("Tools"); +  if (!tmp) { +  werror("Couldn't find Tools.\n");    exit(1);    } -  +  tmp = tmp["Hilfe"]; +  if (!tmp) { +  werror("Couldn't find Hilfe.\n"); +  exit(1);    } -  }else{ +  tmp->StdinHilfe(); +  exit(0); +  } else {    argv=argv[1..];    }       program tmp=(program)argv[0];       if(!tmp)    {    werror("Pike: Couldn't find script to execute.\n");    exit(1);    }