tab/usmarc.flt

   1 #
   2 # Rather dummy input-filter for MARC
   3 #
   4
   5 BEGIN                        { begin record usmarc }
   6 /^00./ / / BODY /\n/         {
   7                                 begin element $0
   8                                 data -element @ $2
   9                                 end element
  10                              }
  11 /^.../ / / /../              { begin element $0 }
  12 /[$*]/ /./ / / BODY / *[$*\n]/  { data -element $1 $3; unread 4 }
  13 /\n/                         { end element }
  14
  15 /./                          { }