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