1 # FML marc rutines - with passing of code.
3 # $Id: marc2.fml,v 1.1 1995/02/27 09:01:21 adam Exp $
4 \func case tag indicator identifier \code {
5 \if {{\strcmp \tag \line\index 1}\eq 0} {
6 \if {{\strcmp \indicator \line\index 2}\eq 0} {
7 \foreach field {\line \index 3} {
8 \if{{\strcmp \identifier \field\index 1}\eq 0}
10 \set info {\field \index 2}
17 \func marc rec \code {
18 \foreach line {\rec} {\code}
21 \func testfmt record {
23 \case 245 00 a { 24500a: \info\n }
24 \case 100 00 b { 10000b: \info\n }
34 \foreach i {1 2 3 4 5 6 7 8 9 10}