pike.git/ lib/ master.pike.in

2003-01-01

2003-01-01 17:51:56 by Martin Nilsson <mani@lysator.liu.se>

• f595e9ce75743185a71bb99d304a1db0d3c4d5ae (31 lines) (+14/-17) ^{[ Show | Annotate ]}
  Branch: 7.9

Some more cleanup tinkering.

Rev: lib/master.pike.in:1.245

6:   // 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__   
1606:    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];
1617:    _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);
1729:    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;