pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.158 2001/06/21 10:12:43 wellhard Exp $ +  * $Id: master.pike.in,v 1.159 2001/07/02 17:07:18 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:563:   }         /* This function is called when an error occurs that is not caught    * with catch().    */   void handle_error(array(mixed)|object trace)   {    if(mixed x=catch {    werror(describe_backtrace(trace)); -  }) -  { +  }) {    // One reason for this might be too little stack space, which    // easily can occur for "out of stack" errors. It should help to    // tune up the STACK_MARGIN values in interpret.c then.    werror("Error in handle_error in master object:\n");    if(catch { -  +  catch {    if (catch {    string msg = x[0];    array bt = x[1]; -  werror ("%s%O\nOriginal error:\n%O\n", msg, bt, trace); -  }) -  werror("%O\nOriginal error:\n%O\n",x,trace); +  werror("%s%O\n", msg, bt);    }) { -  +  werror("%O\n", x); +  } +  }; +  werror("Original error:\n" +  "%O\n", trace); +  }) {    werror("sprintf() failed to write error.\n");    }    }   }      //! @global   //! @decl object new(string|program prog, mixed ... args)   //! @decl object clone(string|program prog, mixed ... args)   //!   //! Instantiate a program.
pike.git/lib/master.pike.in:2349:    return cast_to_program(x,0);    }       mixed encode_object(object x)    {    if(x->_encode) return x->_encode();    error("Cannot encode objects yet.\n");    }       -  mixed decode_object(object o, mixed data) +  void decode_object(object o, mixed data)    {    o->_decode(data);    }   }         class Version   {    int major;    int minor;