Changed header.
[egate.git] / fml / marc.fml
1 # Fml scripts to display MARC records
2 # $Id: marc.fml,v 1.5 1995/02/23 08:32:07 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