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 - 2001, Roxen IS.   //   // Adds support for inline pike in documents.   //   // Example:   // <pike>   // return "Hello world!\n";   // </pike>    - constant cvs_version = "$Id: piketag.pike,v 2.34 2001/09/03 18:38:38 nilsson Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.35 2001/09/06 12:13:00 mast Exp $";   constant thread_safe=1;      inherit "module";   #include <module.h>      constant module_type = MODULE_TAG;   constant module_name = "Scripting: 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:311:    {    compile_handler->add_constant( "____ih_"+cnt, ipc );    pre += SPLIT("inherit ____ih_"+cnt++ + ";\n",PREFN);    }       if (dom)    pre += SPLIT("void parse(RequestID id)\n{\n",PREFN) +    data + SPLIT("}",POSTFN);    else    pre += data; -  werror( "Compiling:\n%s\n\n", R(pre) ); +     program p = compile_string( R(pre), fn, compile_handler );    if (query ("program_cache_limit") > 0)    program_cache[ s ] = p;       cnt=0;    return p;   }      program handle_inherit( string what, RequestID id, ErrorContainer e )   {
Roxen.git/server/modules/scripting/piketag.pike:378:    }    else    {    OCIPUP();    OCIP();    }    break;       case '#':    OCIP(); OCIPUP(); -  werror("preproc: %O", flat[i] ); +     if( sscanf( flat[i]->text, "#%*[ \t]inherit%[ \t]%s",    string ws, string fn) == 3 && sizeof (ws))    {    flat[i]->text="";    inherits += ({ handle_inherit( PS(fn), id, e ) });    }    else if( sscanf( flat[i]->text, "#%*[ \t]include%[ \t]%s",    string ws, string fn) == 3 && sizeof (ws))    {    sscanf( fn, "%*s<%s>", fn );
Roxen.git/server/modules/scripting/piketag.pike:484:   string container_pike(string tag, mapping m, string s, RequestID request_id,    object file, mapping defs)   {    // COMPATIBILITY CODE, DO NOT CHANGE SEMANTICS       program p;    object o;    string res;    mixed err;    -  werror("Foo\n"); +     request_id->misc->cacheable=0;       object e = ErrorContainer();    master()->set_inhibit_compile_errors(e);    if(err=catch    {    s = pre(s,request_id)+s+post(s);    p = program_cache[s];       if (!p)