pike.git/ lib/ master.pike.in

1998-04-29

1998-04-29 00:18:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• fcf728dd712708015dfa8ede2bb9e8704ca31637 (29 lines) (+18/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

added -E (for preprocessing)

Rev: lib/master.pike.in:1.20

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.    *
539:    ({"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"})}),
610:    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);    }    }   
649:   #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);   }