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.332 2004/01/12 23:47:52 nilsson Exp $ + // $Id: master.pike.in,v 1.333 2004/02/08 16:03:13 grubba 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:2568:    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);    }; -  predef::trace(trace); +  // Disable traceing. +  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);    _async=1;    -  +  // Reenable tracing. +  trace = predef::trace(trace);    while(1)    {    mixed err=catch    {    while(1)    Builtin.__backend(3600.0);    };    master()->handle_error(err);    }   }