pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.38 1999/02/04 23:45:12 mast Exp $ + /* $Id: master.pike.in,v 1.39 1999/02/26 01:08:52 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:466:    {    if(ret) return ret;    return UNDEFINED;    }    return cache[index]=ind(index);    }       int _cache_full;    void fill_cache()    { + #ifdef RESOLV_DEBUG +  werror(describe_backtrace(({ sprintf("Filling cache in dirnode %O\n", +  dirname), +  backtrace() }))); + #endif /* RESOLV_DEBUG */    if (_cache_full) {    return;    }       if (module) {    foreach(indices(module), string index) {    cache[index] = module[index];    }    }   
pike.git/lib/master.pike.in:562:    if (zero_type(ret)) {    cache[index] = ZERO_TYPE;    } else {    cache[index] = ret;    }    return ret;    }    int _cache_full;    void fill_cache()    { + #ifdef RESOLV_DEBUG +  werror(describe_backtrace(({ "Filling cache in joinnode\n", +  backtrace() }))); + #endif /* RESOLV_DEBUG */    if (_cache_full) {    return;    }    foreach(joined_modules, object|mapping o) {    foreach(indices(o), string index) {    if (zero_type(cache[index])) {    `[](index);    }    }    }
pike.git/lib/master.pike.in:950:   void compile_warning(string file,int line,string err)   {    if(!inhibit_compile_errors)    {    if(want_warnings)    werror(sprintf("%s:%d:%s\n",trim_file_name(file),line,err));    }   }       + static mixed _charset_mod; + /* This function is called by cpp() when it wants to do +  * character code conversion. +  */ + string decode_charset(string data, string charset) + { +  werror(sprintf("decode_charset(%O, %O)\n", data, charset)); +  +  if (!_charset_mod) { +  mixed mod = resolv("Locale"); +  +  _charset_mod = mod && mod["Charset"]; +  if (!_charset_mod) { +  compile_warning("-", 0, "No Locale.Charset module!"); +  return 0; +  } +  } +  +  object decoder; +  +  catch { +  decoder = _charset_mod->decoder(charset); +  }; +  +  if (!decoder) { +  compile_warning("-", 0, sprintf("Unknown charset %O!", charset)); +  return 0; +  } +  return decoder->feed(data)->drain(); + } +  +    /* This function is called whenever an #include directive is encountered    * it receives the argument for #include and should return the file name    * of the file to include    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */   string handle_include(string f,    string current_file,    int local_include)   {