Roxen.git/ server/ modules/ scripting/ piketag.pike

2000-08-09

2000-08-09 05:15:43 by Per Hedbor <ph@opera.com>

• 3aca38378dbab920b83eae062419f99634406042 (64 lines) (+60/-4) ^{[ Show | Annotate ]}
  Branch: 5.2

Now

<?pike
for( var.foo = 0; var.foo < 3; var.foo++ )
{
//# var.foo is now <b>&var.foo;</b>
//@ var.foo is now <b>&var.foo;</b>
}
?>

results in

var.foo is now <b>0</b>
var.foo is now <b>&var.foo;</b>
var.foo is now <b>1</b>
var.foo is now <b>&var.foo;</b>
var.foo is now <b>2</b>

The actual pike-code that is evaluated is along the lines of

mixed parse( RequestID id )
{
for( var->foo = 0; var->foo < 3; var->foo++ )
{
write( rxml( "var.foo is now <b>&var.foo;</b>\n", id ) );
write( "var.foo is now <b>&var.foo;</b>\n" );
}
}

Rev: server/modules/scripting/piketag.pike:2.10

7:   // return "Hello world!\n";   // </pike>    - constant cvs_version = "$Id: piketag.pike,v 2.9 2000/08/09 03:05:15 per Exp $"; + constant cvs_version = "$Id: piketag.pike,v 2.10 2000/08/09 05:15:43 per Exp $";   constant thread_safe=1;      inherit "module";
97:    return r;    }    +  string rxml( string what, object id ) +  { +  return parse_rxml( what, id ); +  } +  +     constant seteuid=0;    constant setegid=0;    constant setuid=0;
156:    master()->set_inhibit_compile_errors(e);    if(err=catch    { +  object cip, cipup; +  + #define OCIP( ) \ +  if( cip ) \ +  { \ +  cip->text=sprintf("write(rxml(%O,id));",cip->text); \ +  cip = 0; \ +  } +  + #define OCIPUP( ) \ +  if( cipup ) \ +  { \ +  cipup->text=sprintf("write(%O);",cipup->text); \ +  cipup = 0; \ +  } +  + #define CIP(X) if( X ) \ +  { \ +  flat[i]->text=flat[i]->trailing_whitespaces=""; \ +  X->text += flat[i]->text[3..]+"\n"; \ +  } \ +  else \ +  { \ +  X = flat[i]; \ +  flat[i]->text = flat[i]->text[3..]+"\n"; \ +  } +  +     for( int i = 0; i<sizeof( flat ); i++ ) -  if( flat[i] == "." && flat[++i] != "." ) -  flat[i-1]->text = "->"; +  { +  if( flat[i] == "." && flat[++i] != "." ) // Parser.C in 7.0 does not +  flat[i-1]->text = "->"; // recognize .. as a single token. +  else if( flat[i]->text[..2] == "//#" ) +  { +  OCIPUP(); +  CIP( cip ); +  } +  else if( flat[i]->text[..2] == "//@" ) +  { +  OCIP(); +  CIP( cipup ); +  } +  else +  { +  OCIP(); +  OCIPUP(); +  } +  } +  OCIP(); +  OCIPUP();    -  s = pre(flat,request_id)+Parser.C.simple_reconstitute( flat )+post(flat); +  s = pre(flat,request_id)+"\n"+ +  Parser.C.simple_reconstitute( flat )+ +  post(flat);    p = program_cache[s];       if (!p)