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.11 2000/08/09 07:25:05 per Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.12 2000/08/09 07:35:28 per Exp $";   constant thread_safe=1;      inherit "module";   #include <module.h>      constant module_type = MODULE_PARSER;   constant module_name = "Pike tag";   constant module_doc =   #"This module adds a new tag, &lt;pike&gt;&lt;/pike&gt;. It makes it   possible to insert some pike code directly in the document. <br>
Roxen.git/server/modules/scripting/piketag.pike:157:    cip = 0; \    }      #define OCIPUP( ) \    if( cipup ) \    { \    cipup->text=sprintf("write(%O);",cipup->text); \    cipup = 0; \    }    - #define CIP(X) if( X ) \ + #define CIP(X) if( X ) \    { \ -  flat[i]->text=flat[i]->trailing_whitespaces=""; \ +     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.simple_reconstitute(X)      program my_compile_string(string s, object id, int dom, string fn)