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.
14
2000/08/10
22
:
45
:
52
mast
Exp $";
+
constant cvs_version = "$Id: piketag.pike,v 2.
15
2000/08/10
23
:
29
:
57
per
Exp $";
constant thread_safe=1; #if constant(Parser.C) #define PARSER_C Parser.C #else #define PARSER_C Roxen.Parser.C #endif
Roxen.git/server/modules/scripting/piketag.pike:307:
array flat=SPLIT(data,filename); object cip, cipup; array inherits = ({}); for( int i = 0; i<sizeof( flat ); i++ ) { switch( strlen(flat[i]->text) && flat[i]->text[0] ) { case '.': OCIP(); OCIPUP(); if( flat[i] == "." )
-
flat[i]->text = "->";
+
{
+
flat[i]->text = "
[";
+
flat[i+1]
->
text =
"
\"" + flat[++i]->text + "\"]"
;
+
}
break; case '/': if( flat[i]->text[2..2] == "X" ) { if (flat[i]->text[1] == '*') flat[i]->text = flat[i]->text[..sizeof (flat[i]->text) - 3]; OCIPUP(); CIP( cip ); }