pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.44 1999/03/26 19:58:39 hubbe Exp $ + /* $Id: master.pike.in,v 1.45 1999/04/08 22:18:21 hubbe Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:321:    {    werror("Error in handle_error in master object:\n");    werror("%O\nOriginal error:\n%O\n",x,trace);    }      }      object new(mixed prog, mixed ... args)   {    if(stringp(prog)) -  prog=cast_to_program(prog,backtrace()[-2][0]); +  { +  if(program p=cast_to_program(prog,backtrace()[-2][0])) +  return p(@args); +  else +  error(sprintf("new: failed to find program %s.\n",prog)); +  }    return prog(@args);   }      multiset mkmultiset(array a)   {    return aggregate_multiset(@a);   }      function clone = new;