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.255 2003/02/26 16:04:57 nilsson Exp $ + // $Id: master.pike.in,v 1.256 2003/02/26 16:35:09 mast 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:1856:    postparseaction="info";    break;       case "showpaths":    werror(format_paths());    exit(0);       case "execute":    random_seed(time() ^ (getpid()<<8));    argv = tmp->get_args(argv,1); + #ifdef __AUTO_BIGNUM__ +  main_resolv( "Gmp", "bignum" ); + #endif /* __AUTO_BIGNUM__ */    if(trace) predef::trace(trace);    mixed ret;    if(currentversion <= Version(7,4))    compile_string(    "mixed create(int argc, array(string) argv,array(string) env){"+    opts[1]+";}")(sizeof(argv),argv,env);    else    ret = compile_string(    "#define NOT(X) !(X)\n"    "#define CHAR(X) 'X'\n"
pike.git/lib/master.pike.in:1877:    "mapping(string:string) env){"+    opts[1]+";}")()->run(sizeof(argv),argv,getenv());    if(stringp(ret)) {    write(ret);    if(ret[-1]!='\n') write("\n");    }    if(!intp(ret) || ret<0) ret=0;    exit(ret);       case "preprocess": + #ifdef __AUTO_BIGNUM__ +  main_resolv( "Gmp", "bignum" ); + #endif /* __AUTO_BIGNUM__ */    write(cpp(master_read_file(opts[1]),opts[1]));    exit(0);    }    }       argv = tmp->get_args(argv,1);    }       switch (postparseaction)    {
pike.git/lib/master.pike.in:2526:    }    }    };    }       // We're really out of luck here...    return res + (describe_program(parent_fun)||"unknown_program") + "()->";   }      //! - string describe_object(object|program o) + string describe_object(object o)   {    string s;    if(zero_type (o)) return 0; // Destructed.       function parent_fun = object_program(o);       /* Constant object? */    catch {    object|program parent_obj =    (function_object(parent_fun) || function_program(parent_fun));