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.351 2004/06/27 14:11:40 nilsson Exp $ + // $Id: master.pike.in,v 1.352 2004/07/04 12:38:49 mast 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:2672:    if(Version(compat_major,compat_minor) <= Version(7,4)) {    script=prog();    }    else {    script=prog(argv);    }    if(!script->main)    error("Error: %s has no main().\n", argv[0]);    ret=script->main(sizeof(argv),argv,env);    }; -  // Disable traceing. +  // Disable tracing.    trace = predef::trace(trace);    if (err) {    handle_error (err);    ret = 10;    }    if(!intp(ret)) {    werror("Error: Non-integer value %O returned from main.\n", ret);    exit(10);    }    if(ret >=0) exit([int]ret);
pike.git/lib/master.pike.in:3686:    zero_type (_v__) ? "UNDEFINED" : \    sprintf ("%O", _v__)); \    return _v__; \   } while (0)   #else   # define DEC_MSG(X...) do {} while (0)   # define DEC_RETURN(val) do return (val); while (0)   #endif      class Encoder + //! @appears Pike.Encoder + //!   //! Codec for use with @[encode_value]. It understands all the   //! standard references to builtin functions and pike modules.   //!   //! The format of the produced identifiers are documented here to   //! allow extension of this class:   //!   //! The produced names are either strings or arrays. The string   //! variant specifies the thing to look up according to the first   //! character:   //!
pike.git/lib/master.pike.in:4062:    // Some people inherit modules...    rev_static_modules[p] = "s" + name;    }    }    }   #endif    }   }      class Decoder (void|string fname, void|int mkobj) + //! @appears Pike.Decoder + //!   //! Codec for use with @[decode_value]. This is the decoder   //! corresponding to @[Encoder]. See that one for more details.   {    static int unregistered = 1;       object __register_new_program(program p)    {    DEC_MSG ("__register_new_program (%O)\n", p);    if(unregistered && fname)    {
pike.git/lib/master.pike.in:4224:      mapping(string:Decoder) codecs = set_weak_flag(([]),1);   Decoder get_codec(string|void fname, int|void mkobj)   {    string key = fname + "\0" + mkobj;    if (codecs[key]) return codecs[key];    return codecs[key] = Decoder(fname, mkobj);   }      class Codec + //! @appears Pike.Codec + //!   //! @[Encoder] and @[Decoder] rolled into one. This is for mainly   //! compatibility; there's typically no use combining encoding and   //! decoding into the same object.   {    inherit Encoder;    inherit Decoder;       static void create (void|mixed encoded)    //! The optional argument is the thing to encode; it's passed on to    //! @[Encoder].