/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 724 - (hide 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 dpavlin 724 # example of comment
2    
3 dpavlin 686 marc('777','v',
4     lookup(
5 dpavlin 690 sub { '1st-1' . rec('000') },
6     'foo','foo-input1',
7 dpavlin 686 sub { rec('11') }
8     ) ||
9     lookup(
10 dpavlin 690 sub { '1st-2' . rec('000') },
11     'foo','foo-input2',
12     sub { rec('11') }
13     ) ||
14     lookup(
15 dpavlin 704 sub { '2nd-1:' . rec('000') },
16 dpavlin 689 'bar','bar-input',
17 dpavlin 704 sub { rec(210,'a') . rec('210','e') },
18 dpavlin 686 ) ||
19     lookup(
20 dpavlin 704 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 dpavlin 686 sub { "3rd:" . rec('000') },
31 dpavlin 689 'baz','baz-input',
32 dpavlin 686 sub { rec(200,'a') },
33     sub { rec(900,'x') },
34     )
35     );
36    

  ViewVC Help
Powered by ViewVC 1.1.26