Roxen.git / server / modules / tags / wizard_tag.pike

version» Context lines:

Roxen.git/server/modules/tags/wizard_tag.pike:1:   /* This is a Roxen Challenger(r) module. Copyright (c) Idonex 1997.    * Released under GPL    * made by Per Hedbor    */    - constant cvs_version = "$Id: wizard_tag.pike,v 1.16 1998/08/19 11:55:22 grubba Exp $"; + constant cvs_version = "$Id: wizard_tag.pike,v 1.17 1998/11/02 07:03:33 per Exp $";   constant thread_safe=1;   #include <module.h>   inherit "module";   inherit "wizard";      mixed *register_module()   {    return ({MODULE_PARSER,"Wizard generator",    "Generates wizards<p>See &lt;wizard help&gt; for more information\n",    ({}),1,});
Roxen.git/server/modules/tags/wizard_tag.pike:97:       parse_html_lines(contents,    ([]),    ([ "page":internal_page,    "done":internal_done ]),    (int)id->misc->line,f);    if (f->done && !args->ok) {   #if __VERSION__ >= 0.6    pike += sprintf("mixed wizard_done(object id)\n"    "{\n" -  " return parse_rxml(%O, id);\n" +  " return parse_rxml(%O,id);\n"    "}\n", f->done);   #else    pike += ("mixed wizard_done(object id)\n"    "{\n"    " return parse_rxml(\""+replace(f->done,    ({"\"","\n","\r", "\\"}),    ({"\\\"", "\\n", "\\r", "\\\\"}))+    "\",id);\n"    "}\n");   #endif /* __VERSION__ >= 0.6 */    }    foreach(f->pages, array q)    {   #if __VERSION__ >= 0.6    pike += sprintf("# "+q[1]+" %O\n", id->not_query);    pike += sprintf("string page_"+p+"(object id) {" + -  " return %O;\n" +  " return parse_rxml(%O,id);\n"    "}\n", q[0]);   #else    pike += ("# "+q[1]+" \""+id->not_query+"\"\n");    pike += ("string page_"+p+"(object id) {" + -  "return \""+replace(q[0], ({"\"","\n","\r", "\\"}), -  ({"\\\"", "\\n", "\\r", "\\\\"}))+"\";}\n"); +  "return parse_rxml(\""+replace(q[0], ({"\"","\n","\r", "\\"}), +  ({"\\\"", "\\n", "\\r", "\\\\"}))+"\",id);}\n");   #endif /* __VERSION__ >= 0.6 */    p++;    }    object w;    if(pike == old_pike)    w = old_wizard;    else    {    old_wizard = w = compile_string(pike)();    old_pike = pike;