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.26 2000/09/21 17:51:03 jhs Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.27 2000/09/25 08:02:51 per Exp $";   constant thread_safe=1;    -  - #if constant(Parser.C) - #define PARSER_C Parser.C - #else - #define PARSER_C Roxen._Parser.C - #endif -  -  +    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>      <p><img src=\"internal-roxen-err_2\" align=\"left\" alt=\"Warning\">
Roxen.git/server/modules/scripting/piketag.pike:163:    constant setuid=0;    constant setgid=0;    constant call_out=0;    constant all_constants=0;    constant Privs=0;   }      #define PREFN "pike-tag(preamble)"   #define POSTFN "pike-tag(postamble)"   #define PS(X) (compile_string( "mixed foo(){ return "+(X)+";}")()->foo()) - #define SPLIT(X,FN) PARSER_C.hide_whitespaces(PARSER_C.tokenize(PARSER_C.split(X),FN)) + #define SPLIT(X,FN) Parser.Pike.hide_whitespaces(Parser.Pike.tokenize(Parser.Pike.split(X),FN))   #define OCIP( ) \    if( cip ) \    { \    cip->text=sprintf("write(rxml(%O));",cip->text); \    cip = 0; \    }      #define OCIPUP( ) \    if( cipup ) \    { \
Roxen.git/server/modules/scripting/piketag.pike:189:    { \    X->text += flat[i]->text[3..]+"\n"; \    flat[i]->text=flat[i]->trailing_whitespaces=""; \    } \    else \    { \    X = flat[i]; \    flat[i]->text = flat[i]->text[3..]+"\n"; \    }    - #define R(X) PARSER_C.reconstitute_with_line_numbers(X) + #define R(X) Parser.Pike.reconstitute_with_line_numbers(X)      array helpers()   {    add_constant( "__ps_magic_helpers", Helpers );    add_constant( "__ps_magic_protos", HProtos );    return SPLIT("inherit __ps_magic_helpers;\nimport Roxen;\n",PREFN);   }      array helper_prototypes( )   {