# Fml scripts to display MARC records
-# $Id: marc.fml,v 1.2 1995/02/10 16:52:08 adam Exp $
+# $Id: marc.fml,v 1.3 1995/02/10 18:15:53 adam Exp $
\func f0 rec {
\foreach line {\rec} {
\line \index 1 \
\n
}
}
+\func mline prefix suffix lin tag subfield {
+ \if {{\strcmp {\line \index 1} \tag}\eq 0} {
+ \foreach field {\lin \index 3} {
+ \if {{\strcmp {\field \index 1} \subfield}\eq 0} {
+ \prefix
+ \field \index 2
+ \suffix
+ }
+ }
+ }
+}
+
+\func f1 rec {
+ \foreach line {\rec} {
+ \mline 'Title: ' '\n' \line 245 a
+ \mline 'Author: ' {} \line 100 a
+ \mline ', ' '\n' \line 100 h
+ }
+}