1 # FML marc rutines - with passing of code and regular expressions
3 # $Id: marc3.fml,v 1.1 1995/02/27 09:01:21 adam Exp $
4 \func case tag indicator identifier \code {
5 \if {\match \tag {\line\index 1}} {
6 \if {\match \indicator {\line\index 2}} {
7 \foreach field {\line \index 3} {
8 \if{\match \identifier \field\index 1} {
9 \set info {\field \index 2}
16 \func marc rec \code {
17 \foreach line {\rec} {\code}
20 \func testfmt record {
22 \case 245 00 a { 245 00 a: \info\n }
23 \case 100 00 [bc] { 100 00 [bc]: \info\n }
33 \foreach i {1 2 3 4 5 6 7 8 9 10}