kernel/default.fml

   1 # Fml scripts to display MARC records
   2 # default.fml,v 1.1 1995/02/20 21:17:08 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 {\lin \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 '' ': ' \Line 245 c
  31         }
  32         \foreach Line {\rec} {
  33                 \mline '' {} \Line 245 a
  34         }
  35         ' - '
  36         \foreach Line {\rec} {
  37                 \mline '' ', ' \Line 260 b
  38                 \mline '' ' ' \Line 260 c
  39         }
  40         \n
  41 }
  42