From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 20 Feb 1995 21:17:08 +0000 (+0000)
Subject: FML script - preliminary.
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=a647f739c7dd1ea434296f95177a7d31c31305d7;p=egate.git

FML script - preliminary.
---

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
+}
+