pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.19 1998/04/24 18:18:49 hubbe Exp $ + /* $Id: master.pike.in,v 1.20 1998/04/29 00:18:38 hubbe 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:532:          if(sizeof(argv)>1 && sizeof(argv[1]) && argv[1][0]=='-')    {    tmp=resolv("Getopt");       q=tmp->find_all_options(argv,({    ({"version",tmp->NO_ARG,({"-v","--version"})}),    ({"help",tmp->NO_ARG,({"-h","--help"})}),    ({"execute",tmp->HAS_ARG,({"-e","--execute"})}), +  ({"preprocess",tmp->HAS_ARG,({"-E","--preprocess"})}),    ({"modpath",tmp->HAS_ARG,({"-M","--module-path"})}),    ({"ipath",tmp->HAS_ARG,({"-I","--include-path"})}),    ({"ppath",tmp->HAS_ARG,({"-P","--program-path"})}),    ({"warnings",tmp->NO_ARG,({"-w","--warnings"})}),    ({"ignore",tmp->HAS_ARG,"-ms"}),    ({"debug",tmp->MAY_HAVE_ARG,"--debug",0,1}),    ({"trace",tmp->MAY_HAVE_ARG,"--trace",0,1}),    ({"ignore",tmp->MAY_HAVE_ARG,"-Dqdatpl",0,1})    }), 1);   
pike.git/lib/master.pike.in:603:    " -s# : Set stack size\n"    " -m <file> : Use <file> as master object.\n"    " -d -d# : Increase debug (# is how much)\n"    " -t -t# : Increase trace level\n"    );    exit(0);       case "execute":    compile_string("#include <simulate.h>\nmixed create(){"+opts[1]+";}")();    exit(0); +  +  case "preprocess": +  _static_modules.files()->_stdout->write(cpp(_static_modules.files()->Fd(opts[1],"r")->read(),opts[1])); +  exit(0);    }    }       argv = tmp->get_args(argv,1);    }       if(sizeof(argv)==1)    {    /* Attempt to resolv Tools.Hilfe.StdinHilfe */    tmp = resolv("Tools");
pike.git/lib/master.pike.in:642:    {    werror("Pike: Couldn't find script to execute.\n");    exit(1);    }       object script=tmp();      #if constant(_debug)    if(debug) _debug(debug);   #endif -  if(trace) predef::trace(trace); +     if(!script->main)    {    werror("Error: "+argv[0]+" has no main().\n");    exit(1);    }    -  +  if(trace) predef::trace(trace);    i=script->main(sizeof(argv),argv,env); -  +  predef::trace(0);    if(i >=0) exit(i);   }      mixed inhibit_compile_errors;      void set_inhibit_compile_errors(mixed f)   {    inhibit_compile_errors=f;   }