pike.git/ lib/ master.pike.in

1998-04-29

1998-04-29 15:56:52 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• ac51847b559f2e96db3242da4cb3ca937183dc7d (12 lines) (+10/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Added _master_file_name.

Rev: lib/master.pike.in:1.23

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.    *
532:    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
580:    ({"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 */
621:    case "warnings":    want_warnings++;    break; +  +  case "master": +  _master_file_name = q[i][1]; +  break;    }    }