pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.190 2002/02/14 01:44:52 nilsson Exp $ +  * $Id: master.pike.in,v 1.191 2002/02/14 15:23:32 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:154:   {    array(string) tmp=EXPLODE_PATH(x);    return tmp[-1];   }   #define DIRNAME dirname   #define BASENAME(X) (EXPLODE_PATH(X)[-1])      #define GETCWD_CACHE   #define FILE_STAT_CACHE    - #define UNDEFINED (([])[0]) +    #define error(X) throw( ({ (X), backtrace()/*[0..sizeof(backtrace())-2]*/ }) )      //!   int want_warnings = PIKE_WARNINGS;      #ifdef PIKE_AUTORELOAD      int autoreload_on;   int newest;   
pike.git/lib/master.pike.in:752:    foreach(master_efuns, string e) {    if (o[e]) {    add_constant(e, o[e]);    } else {    throw(({ sprintf("Function %O is missing from master.pike.\n", e),    backtrace() }));    }    }       add_constant("strlen", sizeof); -  add_constant("UNDEFINED", UNDEFINED); +     add_constant("write", _static_modules.files()->_stdout->write);      #define CO(X) add_constant(#X,_static_modules.Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);    CO(find_call_out);    CO(remove_call_out);    CO(call_out_info);      #if "¤share_prefix¤"[0]!='¤'
pike.git/lib/master.pike.in:1366:    }    return UNDEFINED;    }       mapping resolv_cache = set_weak_flag( ([]), 1 );       //!    mixed resolv(string identifier, string|void current_file,    object|void current_handler)    { - // werror("Resolv(%O)\n",identifier); + #ifdef RESOLV_DEBUG +  werror("Resolv(%O)\n",identifier); + #endif /* RESOLV_DEBUG */       // FIXME: Support having the cache in the handler?    if( no_resolv[ identifier ] )    return UNDEFINED;       if (current_file && !stringp(current_file)) {    throw(({sprintf("resolv(%O, %O, %O): current_file is not a string!\n",    identifier, current_file, current_handler),    backtrace()}));    }
pike.git/lib/master.pike.in:1584:    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", ([])[0] ); +  add_constant( "thread_create", UNDEFINED );    break;    default:    no_resolv[ feature ] = 1;    break;    }    }    break;    case "debug":    debug+=(int)q[i][1];    break;
pike.git/lib/master.pike.in:2561:    if(mixed tmp=search(programs,x))    return tmp;       if(mixed tmp=search(values(_static_modules), x))    return "_static_modules."+(indices(_static_modules)[tmp]);    }    else if (objectp(x))    if(mixed tmp=search(objects,x))    if(tmp=search(programs,tmp))    return tmp; -  -  return ([])[0]; +  return UNDEFINED;    }       function functionof(string x)    {    if(sscanf(x,"efun:%s",x)) return f[x];    if(sscanf(x,"resolv:%s",x)) return resolv(x);    return 0;    }       object objectof(string x)