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.5 1998/02/22 18:19:06 per Exp $"; + constant cvs_version = "$Id: wizard_tag.pike,v 1.6 1998/02/22 19:52:25 per Exp $";   constant thread_safe=1;   #include <module.h>   inherit "module";   inherit "wizard";      mixed *register_module()   {    return ({MODULE_PARSER,"Wizard generator",    ("Generates wizards<p>\n"    "Syntax:<br>\n"
Roxen.git/server/modules/tags/wizard_tag.pike:87:    pike += ("string page_"+p+"(object id) {" +    "return \""+replace(q[0], ({"\"","\n","\r", "\\"}),    ({"\\\"", "\\n", "\\r", "\\\\"}))+"\";}\n");    p++;    }    object w;    if(pike == old_pike)    w = old_wizard;    else    { -  werror("compiling:\n"+pike+"\n"); +     old_wizard = w = compile_string(pike)();    old_pike = pike;    }          mixed res = w->wizard_for(id,fix_relative(args->cancel||args->done,id));       if(mappingp(res))    {    id->misc->defines[" _error"] = res->error;