Branch: Tag:

1998-02-20

1998-02-20 11:16:41 by Per Hedbor <ph@opera.com>

More profiling

Rev: server/base_server/configuration.pike:1.97
Rev: server/base_server/mainconfig.pike:1.96
Rev: server/base_server/roxen.pike:1.169
Rev: server/base_server/wizard.pike:1.51
Rev: server/config_actions/resolv.pike:1.2
Rev: server/modules/graphics/graphic_text.pike:1.104
Rev: server/modules/tags/htmlparse.pike:1.81
Rev: server/modules/tags/wizard_tag.pike:1.4

3:    * made by Per Hedbor    */    - constant cvs_version = "$Id: wizard_tag.pike,v 1.3 1998/02/03 22:51:08 per Exp $"; + constant cvs_version = "$Id: wizard_tag.pike,v 1.4 1998/02/20 11:16:41 per Exp $";   constant thread_safe=1;   #include <module.h>   inherit "module";
15:    ("Generates wizards<p>\n"    "Syntax:<br>\n"   "<br>" - "&lt;wizard name=\"A Name\" done=\"url to go to when ok or cancel is pressed\"&gt;<br>" + "&lt;wizard [next-label=...] [previous-label=...] [ok-label=...] [cancel-label=...] [page-label=...] name=\"A Name\" done=\"url to go to when ok or cancel is pressed\"&gt;<br>"   "&nbsp;&nbsp;&lt;page&gt;<br>"   "&nbsp;&nbsp;&nbsp;&nbsp;A page (RXML code, with two extra tags, &lt;var&gt; and &lt;cvar&gt;, see below)<br>"   "&nbsp;&nbsp;&lt;/page&gt;<br>"
46:    string pike = ("inherit \"wizard\";\n"    "string name=\""+(args->name||"unnamed")+"\";\n");    int p; +  foreach(glob("*-label", indices(args)), string a) +  { +  pike += " string "+replace(replace(a,"-","_"),({"(",")","+",">"}), +  ({"","","",""}))+ +  " = \""+replace(args[a], ({"\"","\n","\r", "\\"}), +  ({"\\\"", "\\n", "\\r", "\\\\"}))+"\";\n"; +  } +     parse_html(contents, ([]), (["page":internal_page]),f);    foreach(f->pages, string d)    {
54:    ({"\\\"", "\\n", "\\r", "\\\\"}))+"\";}\n");    p++;    } + // werror("compiling:\n"+pike+"\n");    mixed res = compile_string(pike)()->wizard_for(id,args->done);    if(mappingp(res))    {