Roxen.git / server / modules / scripting / piketag.pike

version» Context lines:

Roxen.git/server/modules/scripting/piketag.pike:1:   // This is a roxen module. Copyright © 1996 - 2000, Roxen IS.   //   // Adds support for inline pike in documents.   //   // Example:   // <pike>   // return "Hello world!\n";   // </pike>    - constant cvs_version = "$Id: piketag.pike,v 2.27 2000/09/25 08:02:51 per Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.28 2000/10/18 01:50:38 mast Exp $";   constant thread_safe=1;      inherit "module";   #include <module.h>      constant module_type = MODULE_TAG;   constant module_name = "Pike tag";   constant module_doc = #"   <p>This module adds a processing instruction tag, <code>&lt;?pike ...   ?&gt;</code>, for evaluating Pike code directly in the document.</p>
Roxen.git/server/modules/scripting/piketag.pike:232:    {    master()->set_inhibit_compile_errors(0);    if (e->get())    RXML.parse_error ("Error compiling Pike code:\n%s", e->get());    else throw (err);    }    master()->set_inhibit_compile_errors(0);       if(err = catch{    (o=p())->parse(id); -  }) -  RXML.run_error ("Error in Pike code: %s\n", describe_error (err)); +  }) { +  catch { +  err = ({err[0], err[1][sizeof (backtrace())..]}); +  err[1][0] = ({"top level", err[1][0][1]}); +  }; +  RXML.run_error ("Error in Pike code: %s", describe_backtrace (err)); +  }       res = (o && o->flush() || "");       if(o)    destruct(o);       return res;   }      string read_roxen_file( string what, object id )