+\func mline prefix suffix lin tag subfield {
+ \if {{\strcmp {\line \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 'Title: ' '\n' \line 245 a
+ \mline 'Author: ' {} \line 100 a
+ \mline ', ' '\n' \line 100 h
+ }
+}