art5

   1 #!/usr/bin/perl
   2
   3 use Artemus5;
   4
   5 my $a = Artemus5->new();
   6
   7 #my $src = join('', <>);
   8
   9 #print $a->process($src);
  10
  11 # <a href = http://host?t=<{$0}>;offset=0><{or $1 "Main index"}></a>
  12
  13 my $url = [ '?',
  14                 [ '"', '<a href = http://host/?t=' ],
  15                 [ '$', 0 ],
  16                 [ '"', ';offset=0>'],
  17                 [ 'or',
  18                         [ '$', 1 ],
  19                         [ '"', 'Main index' ],
  20                 ],
  21                 [ '"', '</a>' ]
  22         ];
  23
  24 $a->{op}->{url} = $url;
  25
  26 # navigator
  27 # <span class = 'prev'><{if $2
  28 #       {?      "<a href = "
  29 #               {url "INDEX" "topic" $0 "offset" {sub $2 $1}}
  30 #               ">&lt;&lt;</a>
  31 #       }}></span>
  32
  33 # <html>\n<{url 'LOGIN' 'Login page'}>\n<{url 'INDEX'}></html>
  34
  35 my $p = [ '?',
  36                 [ '"', "<html>\n" ],
  37                 [ '()', [ 'url', [ '"', 'LOGIN'], ['"', 'Login page'] ] ],
  38                 [ '"', "\n" ],
  39                 [ '()', [ 'url', [ '"', 'INDEX'] ] ],
  40                 [ '"', "\n</html>" ]
  41         ];
  42
  43 print $a->exec($p), "\n";
  44
  45 exit 0;