Roxen.git
/
server
/
modules
/
scripting
/
piketag.pike
version
»
Context lines:
10
20
40
80
file
none
3
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, <pike></pike>. 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)