pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1791:    add_constant("__joinnode", joinnode);       add_constant("write", write);    add_constant("werror", werror);    // To make it possible to overload get_dir and file_stat later on.    // It's not possible to replace efuns with normal functions in .o-files       add_constant("get_dir", high_master_get_dir );    add_constant("file_stat", lambda( string f, int|void d ) { return file_stat(f,d);} );    +  object rnd = Builtin.RandomSystem(); +  add_constant("random", rnd->random); +  add_constant("random_string", rnd->random_string); +    #define CO(X) add_constant(#X,Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);    CO(find_call_out);    CO(remove_call_out);    CO(call_out_info);      #if "#share_prefix#"[0]!='#'    // add path for architecture-independant files    add_include_path("#share_prefix#/include");
pike.git/lib/master.pike.in:3391:    default:    exit(1, "Unknown path type %s\n", opts[1]);    }    exit(0);    }       exit(0, format_paths());       case "execute":    main_resolv( "Gmp.bignum" ); -  random_seed((time() ^ (getpid()<<8))); +     argv = tmp->get_args(argv,1);       program prog;    mixed compile_err = catch {;    if (intp (opts[1]))    prog = compile_string ("mixed run() {}");    else {    string code = opts[1];    while(sscanf(code, "%sCHAR(%1s)%s", code, string c, string rest)==3)    code += c[0] + rest;
pike.git/lib/master.pike.in:3473:    "\n"    "pike binary..."+_pike_file_name+"\n"+    format_paths() + "\n"    "Features......"+    main_resolv( "Tools.Install.features" )()*"\n "+    "\n");    exit(0);    }       main_resolv( "Gmp.bignum" ); -  random_seed(time() ^ (getpid()<<8)); +        if(sizeof(argv)==1)    {    if(run_tool) {    werror("Pike -x specificed without tool name.\n"    "Available tools:\n");    mapping t = ([]);    int i;    object ts = main_resolv("Tools.Standalone",    get_compilation_handler(compat_major,