pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.348 2004/05/25 15:28:53 mast Exp $ + // $Id: master.pike.in,v 1.349 2004/06/13 17:01:54 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "¤/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:1882:    ver=(string)version;   #if 0    if (version) {    root_module->symbol = ver + "::";    }   #endif    if (CompatResolver::fallback_resolver = fallback_resolver) {    root_module->fallback_module = fallback_resolver->root_module;    }    predefines = initial_predefines; -  -  // Kludge to avoid(?) recursive compilation problems. It was -  // observed with a pike program containing -  // -  // #if constant (__builtin.security) -  // #endif -  // -  // when using -V7.4. There was a cycle between resolving -  // lib/modules/__builtin.pmod and lib/7.4/modules/__default.pmod. -  get_default_module(); +     }       //! Add a directory to search for include files.    //!    //! This is the same as the command line option @tt{-I@}.    //!    //! @note    //! Note that the added directory will only be searched when using    //! < > to quote the included file.    //!
pike.git/lib/master.pike.in:3245:    if (objectp (tmp)) parent_obj = tmp;       /* Try finding ourselves in parent_obj. */    int i = search(values(parent_obj), o);    if (i >= 0) {    s = [string]indices(parent_obj)[i];    return describe_module(parent_obj) + s;    }    }    }; -  if(objectp (objects[parent_fun])) +  // When running with RESOLV_DEBUG this function may +  // get called before objects has been initialized. +  if(objects && objectp (objects[parent_fun]))    if ((s = programs_reverse_lookup (parent_fun)) &&    (s=program_path_to_name(s, "", "", "()")))    return s;    /* Try identifying the program. */    if(( s=describe_program(parent_fun) ))    return s+"()";       return 0;   }   
pike.git/lib/master.pike.in:4370:    compat_handler->add_module_path(combine_path(base,"modules"));    compat_handler->add_include_path(combine_path(base,"include"));   #endif      #if "¤share_prefix¤"[0]!='¤'    base=combine_path("¤share_prefix¤",sprintf("%s",tmp));    compat_handler->add_module_path(combine_path(base,"modules"));    compat_handler->add_include_path(combine_path(base,"include"));   #endif    +  // Kludge to avoid(?) recursive compilation problems. It was +  // observed with a pike program containing +  // +  // #if constant (__builtin.security) +  // #endif +  // +  // when using -V7.4. There was a cycle between resolving +  // lib/modules/__builtin.pmod and lib/7.4/modules/__default.pmod. +  compat_handler->get_default_module(); +    #ifndef RESOLVER_HACK    ret = compat_handler_cache[tmp] = compat_handler;   #endif    }    }       // Note: May duplicate the assignment above.    compat_handler_cache[v] = ret;       return ret;   }      string _sprintf(int t)   {    switch(t) {    case 't': return "master";    case 'O': return "master()";    }   }