pike.git/ lib/ master.pike.in

1999-06-01

1999-06-01 11:35:35 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 62962b7748a6c5a76e13661fc402c98e3163145b (24 lines) (+15/-9) ^{[ Show | Annotate ]}
  Branch: 7.9

added --noenvironment argument to ignore PIKE_MODULE_PATH etc

Rev: lib/master.pike.in:1.48

1: - /* $Id: master.pike.in,v 1.47 1999/04/30 06:53:54 hubbe Exp $ + /* $Id: master.pike.in,v 1.48 1999/06/01 11:35:35 mirar Exp $    *    * Master-file for Pike.    *
734:    add_module_path("¤lib_prefix¤/modules");   #endif    +  /* maybe test here so noenvironment isn't an argument to the script */ +  if (-1==search(argv,"--noenvironment")) +  {    q=(getenv("PIKE_INCLUDE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_include_path(q[i]);   
742:       q=(getenv("PIKE_MODULE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_module_path(q[i]); +  }    -  +     if(sizeof(argv)>1 && sizeof(argv[1]) && argv[1][0]=='-')    {    tmp=resolv("Getopt");
769:    ({"debug",tmp->MAY_HAVE_ARG,"--debug",0,1}),    ({"trace",tmp->MAY_HAVE_ARG,"--trace",0,1}),    ({"ignore",tmp->MAY_HAVE_ARG,"-Dqdatpl",0,1}), +  ({"noenvironment",tmp->MAY_HAVE_ARG,"--noenvironment",0,1}),    ({"ignore",tmp->HAS_ARG,"-s"}),    }), 1);   
838:    " -m <file> : Use <file> as master object.\n"    " -d -d# : Increase debug (# is how much)\n"    " -t -t# : Increase trace level\n" +  " --noenvironment : Ignore environmental variables (PIKE_MODULE_PATH etc)\n"    );    exit(0);   
900:    // FIXME: Isn't the following code dead?    if(!tmp)    { -  werror("Pike: Couldn't find script to execute.\n"); +  werror("Pike: Couldn't find script to execute\n(%O)\n",argv[0]);    exit(1);    }