pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.22 1998/04/29 13:11:01 grubba Exp $ + /* $Id: master.pike.in,v 1.23 1998/04/29 15:56:52 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:525:    }       if(ret)    {    if(mixed tmp=ret->_module_value) ret=tmp;    return ret;    }    return UNDEFINED;   }    + string _master_file_name; +    /* This function is called when all the driver is done with all setup    * of modules, efuns, tables etc. etc. and is ready to start executing    * _real_ programs. It receives the arguments not meant for the driver    * and an array containing the environment variables on the same form as    * a C program receives them.    */   void _main(string *orig_argv, string *env)   {    string *argv=copy_value(orig_argv);    int i,debug,trace;
pike.git/lib/master.pike.in:573:       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"}), +  ({"master",tmp->HAS_ARG,"-m"}),    ({"compiler_trace",tmp->NO_ARG,"--compiler-trace"}),    ({"debug",tmp->MAY_HAVE_ARG,"--debug",0,1}),    ({"trace",tmp->MAY_HAVE_ARG,"--trace",0,1}),    ({"ignore",tmp->MAY_HAVE_ARG,"-Dqdatpl",0,1}) -  +  ({"ignore",tmp->HAS_ARG,"-s"}),    }), 1);       /* Parse -M and -I backwards */    for(i=sizeof(q)-1;i>=0;i--)    {    switch(q[i][0])    {    case "debug":    debug+=(int)q[i][1];    break;
pike.git/lib/master.pike.in:614:    add_include_path(q[i][1]);    break;       case "ppath":    add_program_path(q[i][1]);    break;       case "warnings":    want_warnings++;    break; +  +  case "master": +  _master_file_name = q[i][1]; +  break;    }    }       foreach(q, mixed *opts)    {    switch(opts[0])    {    case "version":    werror(version() + " Copyright (C) 1994-1997 Fredrik Hübinette\n"    "Pike comes with ABSOLUTELY NO WARRANTY; This is free software and you are\n"