/[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 724 - (show annotations)
Fri Sep 29 18:55:31 2006 UTC (17 years, 7 months ago) by dpavlin
File MIME type: text/plain
File size: 662 byte(s)
 r1038@llin:  dpavlin | 2006-09-29 14:27:45 +0200
 remove comments from normalize rules when parsing

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

  ViewVC Help
Powered by ViewVC 1.1.26