fml/marc.fml

   1 # Fml scripts to display MARC records
   2 # marc.fml,v 1.3 1995/02/10 18:15:53 adam Exp
   3 \func f0 rec {
   4         \foreach line {\rec} {
   5                 \line \index 1 \
   6                 \line \index 2
   7                 \foreach field {\line \index 3} {
   8                         \if {\field \index 1} {
   9                                 \ $\field \index 1\
  10                         }
  11                         \field \index 2
  12                 }
  13                 \n
  14         }
  15 }
  16 \func mline prefix suffix lin tag subfield {
  17         \if {{\strcmp {\line \index 1} \tag}\eq 0} {
  18                 \foreach field {\lin \index 3} {
  19                         \if {{\strcmp {\field \index 1} \subfield}\eq 0} {
  20                                 \prefix
  21                                 \field \index 2
  22                                 \suffix
  23                         }
  24                 }
  25         }
  26 }
  27
  28 \func f1 rec {
  29         \foreach line {\rec} {
  30                 \mline 'Title: ' '\n' \line 245 a
  31                 \mline 'Author: ' {} \line 100 a
  32                 \mline ', ' '\n' \line 100 h
  33         }
  34 }
  35