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.244 2003/01/01 17:29:26 nilsson Exp $ + // $Id: master.pike.in,v 1.245 2003/01/01 17:51:56 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:1599:   //! 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(array(string) orig_argv, array(string) env)   {    array(string) argv=copy_value(orig_argv);    int i,debug,trace,run_tool;    object tmp; -  string a,b; +     array q;    string postparseaction=0; -  mixed v; +        predefines = _static_modules.Builtin()->_take_over_initial_predefines();    _pike_file_name = orig_argv[0];   #if constant(thread_create)    _backend_thread = this_thread();   #endif    -  foreach(env,a) -  { -  if(sscanf(a,"%s=%s",a,b)) -  { -  if(a=="") // Special hack for NT -  { -  sscanf(b,"%s=%s",a,b); +  foreach(env, string a) +  if( sscanf(a, "%s=%s", a, string b)==2 ) { + #ifdef __NT__ +  if(a=="") { +  sscanf(b, "%s=%s", a, b);    a="="+a;    } -  + #endif    putenv(a, b); -  }else{ -  werror("Broken environment var %s\n",a); +     } -  } +  else +  werror("Broken environment var %s\n",a);       void _error(string a, 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]);   
pike.git/lib/master.pike.in:1722:    case "zlib":    no_resolv[ "Gz" ] = 1;    break;    case "unisys":    no_resolv[ "_Image_GIF" ] = 1;    no_resolv[ "_Image_TIFF" ] = 1;    break;    case "threads":    // not really 100% correct, but good enough for most things.    no_resolv[ "Thread" ] = 1; -  add_constant( "thread_create", UNDEFINED ); +  add_constant( "thread_create" );    break;    default:    no_resolv[ feature ] = 1;    break;    }    }    break;       case "debug":    debug+=(int)q[i][1];