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.264 2003/03/27 03:32:15 nilsson Exp $ + // $Id: master.pike.in,v 1.265 2003/04/01 17:48:15 nilsson Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:97:   }      #else // !RESOLV_DEBUG   #define INC_RESOLV_MSG_DEPTH() 0   #define DEC_RESOLV_MSG_DEPTH() 0   #define resolv_debug(X...) do {} while (0)   #endif // !RESOLV_DEBUG      //! @appears error   //! Throws an error. A more readable version of the code - //! @tt{throw( ({ sprintf(f, @@args), backtrace() }) )@}. + //! @expr{throw( ({ sprintf(f, @@args), backtrace() }) )@}.   void error(string f, mixed ... args) {    array b = backtrace();    if (sizeof(args)) f = sprintf(f, @args);    throw( ({ f, b[..sizeof(b)-2] }) );   }      // FIXME: Should the pikeroot-things be private?   #ifdef PIKE_FAKEROOT   object o;   string fakeroot(string s)
pike.git/lib/master.pike.in:262:   #else      #define AUTORELOAD_CHECK_FILE(X)   #define AUTORELOAD_BEGIN()   #define AUTORELOAD_FINISH(VAR,CACHE,FILE)      #endif // PIKE_AUTORELOAD      //! @appears compile_string   //! Compile the Pike code in the string @[source] into a program. - //! If @[filename] is not specified, it will default to @tt{"-"@}. + //! If @[filename] is not specified, it will default to @expr{"-"@}.   //! - //! Functionally equal to @code{@[compile](@[cpp](@[source], @[filename]))@}. + //! Functionally equal to @expr{@[compile](@[cpp](@[source], @[filename]))@}.   //!   //! @seealso   //! @[compile()], @[cpp()], @[compile_file()]   //!   program compile_string(string source, void|string filename,    object|void handler)   {    return compile(cpp(source, filename||"-", 1, handler,    compat_major, compat_minor),    handler,
pike.git/lib/master.pike.in:387:   //! @decl string getenv(string varname)   //! @decl mapping(string:string) getenv()   //! @appears getenv   //!   //! When called with no arguments, a mapping with all current environment   //! variables will be returned. Destructive opreations on the mapping   //! will not affect the internal environment representation.   //!   //! If the @[varname] argument has been given, the value of the environment   //! variable with the name @[varname] will be returned. If no such - //! environment variable exists, @tt{0@} (zero) will be returned. + //! environment variable exists, @expr{0@} (zero) will be returned.   //!   //! On NT the environment variable name is case insensitive.   //!   string|mapping(string:string) getenv(string|void s)   {    if(!s) return [mapping(string:string)]aggregate_mapping( @(values(environment)*({}) ) );   #ifdef __NT__    s = lower_case(s);   #endif    return environment[s] && environment[s][1];   }         //! @appears compile_file   //! Compile the Pike code contained in the file @[filename] into a program.   //!   //! This function will compile the file @[filename] to a Pike program that can   //! later be instantiated. It is the same as doing - //! @code{@[compile_string](@[Stdio.read_file](@[filename]), @[filename])@}. + //! @expr{@[compile_string](@[Stdio.read_file](@[filename]), @[filename])@}.   //!   //! @seealso   //! @[compile()], @[compile_string()], @[cpp()]   //!   program compile_file(string filename,    object|void handler,    void|program p,    void|object o)   {    AUTORELOAD_CHECK_FILE(filename);
pike.git/lib/master.pike.in:497:      //! Mapping containing the cache of currently compiled files.   //!   //! This mapping currently has the following structure:   //! @mapping   //! @member program filename   //! @endmapping   //!   //! @note   //! As a special case the current master program is available - //! under the name @tt{"/master"@}. + //! under the name @expr{"/master"@}.   mapping(string:program) programs=(["/master":object_program(this_object())]);      array(string) query_precompiled_names(string fname)   {    // Filenames of potential precompiled files in priority order.   #ifdef PRECOMPILED_SEARCH_MORE    // Search for precompiled files in all module directories, not just    // in the one where the source file is. This is useful when running    // pike directly from the build directory.    fname = fakeroot (fname);
pike.git/lib/master.pike.in:2585:         //! Describe the path to the module @[mod].   //!   //! @param mod   //! If @[mod] is a program, attempt to describe the path   //! to a clone of @[mod].   //!   //! @param ret_obj   //! If an instance of @[mod] is found, it will be returned - //! by changing element @tt{0@} of @[ret_obj]. + //! by changing element @expr{0@} of @[ret_obj].   //!   //! @returns   //! The a description of the path.   //!   //! @note   //! The returned description will end with a proper indexing method - //! currently either @tt{"."@} or @tt{"->"@}. + //! currently either @expr{"."@} or @expr{"->"@}.   string describe_module(object|program mod, array(object)|void ret_obj)   {    if (!mod) return ""; // efun or function in gmp(0).    program parent_fun;    if (objectp(mod)) {    parent_fun = object_program(mod);    if (ret_obj) ret_obj[0] = mod;    } else if (intp(mod)) {    // Function in gmp    if (ret_obj) ret_obj[0] = mod;