pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.161 2001/07/28 14:11:14 nilsson Exp $ +  * $Id: master.pike.in,v 1.162 2001/08/15 20:59:15 mast 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:1746:    {    if(want_warnings)    werror(sprintf("%s:%s: Warning: %s\n",trim_file_name(file),    line?(string)line:"-",err));    } else if (objectp(val) && val->compile_warning) {    val->compile_warning(file, line, err);    }   }       + //! This function is called when an exception is catched during + //! compilation. Its message is also reported to @[compile_error] if + //! this function returns zero. + int compile_exception (array|object trace) + { +  if (mixed val = get_inhibit_compile_errors()) { +  if (objectp (val) && val->compile_exception) +  return val->compile_exception (trace); +  } +  else { +  handle_error (trace); +  return 1; +  } +  return 0; + } +  +    //! Called for every runtime warning. The first argument identifies   //! where the warning comes from, the second identifies the specific   //! message, and the rest depends on that. See code below for currently   //! implemented warnings.   void runtime_warning (string where, string what, mixed... args)   {    if (want_warnings)    switch (where + "." + what) {    case "gc.bad_cycle":    // args[0] is an array containing the objects in the cycle