/[suikacvs]/webroot/regexp/visualizer/regexp.cgi
Suika

Diff of /webroot/regexp/visualizer/regexp.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wakaba, Tue Dec 9 02:41:39 2008 UTC revision 1.6 by wakaba, Sun Mar 8 15:14:52 2009 UTC
# Line 25  use UNIVERSAL::require; Line 25  use UNIVERSAL::require;
25  $class->use or die $@;  $class->use or die $@;
26  my $parser = $class->new;  my $parser = $class->new;
27    
28    my $footer = q[
29      <footer>
30      [<a href="input">Input</a>]
31      [<a href="../doc/readme">Source</a>]
32      </footer>
33    ];
34    
35  my @error;  my @error;
36  $parser->onerror (sub {  $parser->onerror (sub {
37    my %args = @_;    my %args = @_;
# Line 58  if ($parser->errnum) { Line 65  if ($parser->errnum) {
65    print "Content-Type: text/html; charset=utf-8\n\n";    print "Content-Type: text/html; charset=utf-8\n\n";
66    print q[<!DOCTYPE HTML><html lang=en>    print q[<!DOCTYPE HTML><html lang=en>
67  <title>Regular expression visualizer: ], $eregexp, q[</title>  <title>Regular expression visualizer: ], $eregexp, q[</title>
68  <link rel="stylesheet" href="/www/style/html/xhtml"/>  <link rel="stylesheet" href="/www/style/html/xhtml">
69  </head>  
 <body>  
70  <h1>Regular expression visualizer</h1>  <h1>Regular expression visualizer</h1>
71    
72  <p>Input: <code>], $eregexp, q[</code></p>  <p>Input: <code>], $eregexp, q[</code></p>
# Line 70  if ($parser->errnum) { Line 76  if ($parser->errnum) {
76    print join '', @error;    print join '', @error;
77    print q[</ul>];    print q[</ul>];
78    
79      print $footer;
80    
81    exit;    exit;
82  }  }
83    
# Line 103  while ($v->has_regexp_node) { Line 111  while ($v->has_regexp_node) {
111    print "</section>\n";    print "</section>\n";
112  }  }
113    
114  print q[</body></html>];  print $footer;
115    
116    print q[</body></html>];
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24