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.7 1998/03/06 11:12:12 per Exp $"; + constant cvs_version = "$Id: wizard_tag.pike,v 1.8 1998/07/02 15:01:13 js 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:27:    if(file != "" && file[0] == '/') return file;    file = combine_path(dirname(id->not_query) + "/", file);    return file;   }      string old_pike = "";   object old_wizard = 0;      string tag_wizard(string t, mapping args, string contents, object id)   { +  if(!id->misc->defines->line) +  id->misc->defines->line=-1;    mapping f = ([ "pages":({}) ]);    string pike = ("inherit \"wizard\";\n"    "# "+id->misc->defines->line+" \""+id->not_query+"\"\n"    "string name=\""+(args->name||"unnamed")+"\";\n");    int p;    foreach(glob("*-label", indices(args)), string a)    {    pike += ("# "+id->misc->defines->line+" \""+id->not_query+"\"\n");    pike += " string "+replace(replace(a,"-","_"),({"(",")","+",">"}),    ({"","","",""}))+