pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.130 2000/09/15 13:11:10 mirar Exp $ +  * $Id: master.pike.in,v 1.131 2000/09/24 01:37:01 per Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:930:    }    }    if (sizeof(tmp)) {    if (sizeof(tmp) == 1) {    return(tmp[0]);    }    return joinnode(tmp);    }    return UNDEFINED;   } -  + multiset no_resolv = (<>);   mapping resolv_cache = set_weak_flag( ([]), 1 );   mixed resolv(string identifier, string|void current_file)   { -  +  if( no_resolv[ identifier ] ) +  return UNDEFINED;    mixed ret;    string id=identifier+":"+(current_file ? dirname(current_file) : "-");    if( !zero_type (ret = resolv_cache[id]) )    return ret == ZERO_TYPE ? UNDEFINED : resolv_cache[id];    array(string) tmp=identifier/".";    ret=resolv_base(tmp[0]);    foreach(tmp[1..],string index) ret=ret[index];    resolv_cache[id] = zero_type (ret) ? ZERO_TYPE : ret;    return ret;   }
pike.git/lib/master.pike.in:1015:    if (!tmp) {    werror("master.pike: Couldn't resolv Getopt module.\n"    "Is your PIKE_MODULE_PATH environment variable set correctly?\n");    exit(1);    }       q=tmp->find_all_options(argv,({    ({"version",tmp->NO_ARG,({"-v","--version"})}),    ({"help",tmp->NO_ARG,({"-h","--help"})}),    ({"execute",tmp->HAS_ARG,({"-e","--execute"})}), +  ({"debug_without",tmp->HAS_ARG,({"--debug-without"})}),    ({"preprocess",tmp->HAS_ARG,({"-E","--preprocess"})}),    ({"modpath",tmp->HAS_ARG,({"-M","--module-path"})}),    ({"ipath",tmp->HAS_ARG,({"-I","--include-path"})}),    ({"ppath",tmp->HAS_ARG,({"-P","--program-path"})}),    ({"showpaths",tmp->NO_ARG,"--show-paths"}),    ({"warnings",tmp->NO_ARG,({"-w","--warnings"})}),    ({"nowarnings",tmp->NO_ARG,({"-W", "--woff", "--no-warnings"})}),   #ifdef PIKE_AUTORELOAD    ({"autoreload",tmp->NO_ARG,({"--autoreload"})}),   #endif
pike.git/lib/master.pike.in:1043:       /* Parse -M and -I backwards */    for(i=sizeof(q)-1;i>=0;i--)    {    switch(q[i][0])    {   #ifdef PIKE_AUTORELOAD    case "autoreload":    autoreload_on++;   #endif -  +  case "debug_without": +  foreach( q[i][1]/",", string feature ) +  { +  switch( feature ) +  { +  case "ttf": +  no_resolv[ "_Image_TTF" ] = 1; +  break; +  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] ); +  break; +  default: +  no_resolv[ feature ] = 1; +  break; +  } +  } +  break;    case "debug":    debug+=(int)q[i][1];    break;      #if constant(_compiler_trace)    case "compiler_trace":    _compiler_trace(1);    break;   #endif /* constant(_compiler_trace) */