pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.212 2002/07/29 14:34:04 nilsson Exp $ + // $Id: master.pike.in,v 1.213 2002/08/09 14:23:07 nilsson Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:1593:    {    sscanf(b,"%s=%s",a,b);    a="="+a;    }    putenv(a, b);    }else{    werror("Broken environment var %s\n",a);    }    }    -  void _error(string a, mixed ... args) { +  void _error(string a, void|mixed ... b) {    werror(a, @b);    exit(1);    };      #ifndef NOT_INSTALLED    q=(getenv("PIKE_INCLUDE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_include_path(q[i]);       q=(getenv("PIKE_PROGRAM_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_program_path(q[i]);
pike.git/lib/master.pike.in:1868:    if(!prog)    _error("Pike: Couldn't find script to execute\n(%O)\n", argv[0]);       object script=prog();      #if constant(_debug)    if(debug) _debug(debug);   #endif       if(!script->main) -  _error("Error: "+argv[0]+" has no main().\n"); +  _error("Error: %s has no main().\n", argv[0]);       if(trace) predef::trace(trace);    i=script->main(sizeof(argv),argv,env);    if(i >=0) exit(i);    _async=1;       while(1)    {    mixed err=catch    {