From a647f739c7dd1ea434296f95177a7d31c31305d7 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Mon, 20 Feb 1995 21:17:08 +0000 Subject: [PATCH] FML script - preliminary. --- kernel/default.fml | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 kernel/default.fml diff --git a/kernel/default.fml b/kernel/default.fml new file mode 100644 index 0000000..ff97580 --- /dev/null +++ b/kernel/default.fml @@ -0,0 +1,42 @@ +# Fml scripts to display MARC records +# $Id: default.fml,v 1.1 1995/02/20 21:17:08 adam Exp $ +\func f0 rec { + \foreach line {\rec} { + \line \index 1 \ + \line \index 2 + \foreach field {\line \index 3} { + \if {\field \index 1} { + \ $\field \index 1\ + } + \field \index 2 + } + \n + } +} +\func mline prefix suffix lin tag subfield { + \if {{\strcmp {\lin \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 '' ': ' \Line 245 c + } + \foreach Line {\rec} { + \mline '' {} \Line 245 a + } + ' - ' + \foreach Line {\rec} { + \mline '' ', ' \Line 260 b + \mline '' ' ' \Line 260 c + } + \n +} + -- 1.7.10.4