pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1389:      #ifdef __NT__    varname = lower_case(varname);   #endif       if (compat_environment) {    array(string) res;    if (!equal(res = compat_environment[varname],    compat_environment_copy[varname])) {    // Something has messed with the compat environment mapping. -  putenv(varname, res && res[1]); +  putenv(varname, res[?1]);    }    }       return environment[varname];   }      void putenv (string varname, void|string value)   //! Sets the environment variable @[varname] to @[value].   //!   //! If @[value] is omitted or zero, the environment variable
pike.git/lib/master.pike.in:1621:    if (array|object e = catch (bt = get_backtrace (err)))    handle_error (e);    throw (CompileCallbackError (call_describe_error (err), bt));   }      protected void call_compile_warning (object handler, string file,    string msg, mixed ... args)   {    if (sizeof (args)) msg = sprintf (msg, @args);    msg = trim_all_whites (msg); -  if (handler && handler->compile_warning) +  if (handler?->compile_warning)    handler->compile_warning (file, 0, msg);    else if (master()->compile_warning)    master()->compile_warning (file, 0, msg);    else    compile_warning (file, 0, msg);   }      #if constant(_static_modules.Builtin.mutex)   #define THREADED   _static_modules.Builtin.mutex compilation_mutex = Builtin.mutex();
pike.git/lib/master.pike.in:1861:    foreach(query_precompiled_names(fname), string oname) {    int o_mtime = get_precompiled_mtime (oname);    if (o_mtime >= 0) {    if (o_mtime >= s->mtime) {    mixed err=catch {    object|program decoded;    AUTORELOAD_CHECK_PRECOMPILED_FILE (oname);    resolv_debug ("low_findprog %s: decoding dumped\n", fname);    INC_RESOLV_MSG_DEPTH();    decoded = decode_value(read_precompiled (oname), -  (handler && handler->get_codec || +  (handler?->get_codec ||    get_codec)(fname, mkobj, handler));    DEC_RESOLV_MSG_DEPTH();    resolv_debug ("low_findprog %s: dump decode ok\n", fname); -  if (decoded && decoded->this_program_does_not_exist) { +  if (decoded?->this_program_does_not_exist) {    resolv_debug ("low_findprog %s: program claims not to exist\n",    fname);    return programs[fname] = 0;    }    else {    if (objectp(decoded)) {    resolv_debug("low_findprog %s: decoded object %O\n",    fname, decoded);    objects[ret = object_program(decoded)] = decoded;    } else {
pike.git/lib/master.pike.in:1958:    else    compile_cb_rethrow (err);    }    else    resolv_debug ("low_findprog %s: loaded binary\n", fname);   #endif /* load_module */    }       AUTORELOAD_FINISH(ret,programs,fname);    -  if (ret && ret->this_program_does_not_exist) { +  if (ret?->this_program_does_not_exist) {    resolv_debug ("low_findprog %s: program says it doesn't exist\n", fname);    return programs[fname] = 0;    }    else {    resolv_debug("low_findprog %s: returning %O\n", fname, ret);    return programs[fname]=ret;    }    }       resolv_debug ("low_findprog %s: file not found\n", fname);
pike.git/lib/master.pike.in:2476:    // Pretend not to exist for now...    resolv_debug("dirnode(%O)->module_checker()->`!() => failure, doesn't exist\n",    dirname);    return 1;    }    }       protected mixed `[](string index)    {    resolv_debug ("dirnode(%O)->module_checker()[%O] => %O\n", -  dirname, index, module && module[index]); -  return module && module[index]; +  dirname, index, module[?index]); +  return module[?index];    }    protected array(string) _indices() { if(module) return indices(module); }    protected array _values() { if(module) return values(module); }    }       protected mixed low_ind(string index, int(0..1)|void set_module)    {    array(string) paths;       INC_RESOLV_MSG_DEPTH();