/[webpac2]/trunk/t/conf/normalize/foo.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/t/conf/normalize/foo.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 704 - (show annotations)
Mon Sep 25 13:24:25 2006 UTC (17 years, 7 months ago) by dpavlin
File MIME type: text/plain
File size: 640 byte(s)
 r1001@llin:  dpavlin | 2006-09-25 15:21:57 +0200
 and test it

1 marc('777','v',
2 lookup(
3 sub { '1st-1' . rec('000') },
4 'foo','foo-input1',
5 sub { rec('11') }
6 ) ||
7 lookup(
8 sub { '1st-2' . rec('000') },
9 'foo','foo-input2',
10 sub { rec('11') }
11 ) ||
12 lookup(
13 sub { '2nd-1:' . rec('000') },
14 'bar','bar-input',
15 sub { rec(210,'a') . rec('210','e') },
16 ) ||
17 lookup(
18 sub { '2nd-2:' . rec('000') },
19 'bar','bar-input',
20 sub { rec(220,'a') . rec('220','e') },
21 ) ||
22 lookup(
23 sub { '2nd-3:' . rec('000') },
24 'bar','bar-input',
25 sub { rec(230,'a') . rec('230','e') },
26 ) ||
27 lookup(
28 sub { "3rd:" . rec('000') },
29 'baz','baz-input',
30 sub { rec(200,'a') },
31 sub { rec(900,'x') },
32 )
33 );
34

  ViewVC Help
Powered by ViewVC 1.1.26