File: usmarc.flt

package info (click to toggle)
idzebra 2.2.10-1
  • links: PTS, VCS
  • area: main
  • in suites:
  • size: 10,644 kB
  • sloc: ansic: 54,389; xml: 27,054; sh: 6,211; makefile: 1,099; perl: 210; tcl: 64
file content (15 lines) | stat: -rw-r--r-- 424 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#
# Rather dummy input-filter for MARC
#

BEGIN			     { begin record usmarc }
/^00./ / / BODY /\n/         {
                                begin element $0
				data -element @ $2
				end element
                             }
/^.../ / / /../              { begin element $0 }
/[$*]/ /./ / / BODY / *[$*\n]/  { data -element $1 $3; unread 4 }
/\n/                         { end element }

/./                          { }