test/config/m.flt

   1 #
   2 # DEF portal input filter
   3 #
   4
   5 /<meta>/        { begin record meta; set type ""; set AUTHOR ""; set PUBLISHER "" }
   6 /<\/meta>/      {
   7                      data -element author-publisher "$AUTHOR XXX $PUBLISHER"; end record
   8                 }
   9
  10
  11 /</ /[A-Za-z0-9._:]*/ { puts "tag:$1"; set tag $1; set scheme ""; set lang ""; begin context attributes }
  12
  13 CONTEXT {attributes}
  14
  15 />/             {
  16                         if {$scheme != ""} { set tag "$tag-s-$scheme" };
  17                         if {$lang != ""} { set tag "$tag-l-$lang" };
  18                         regsub -all {[\. -/:]} $tag "_" tag;
  19                         begin element $tag;
  20                         end context;
  21                         begin context content;
  22                 }
  23
  24 /lang=\"/ BODY /\"/   { set lang $1 }
  25
  26 /scheme=\"/ BODY /\"/ { set scheme $1 }
  27
  28 CONTEXT {content}
  29
  30 /<\/[aA]>/      { data $0 }
  31
  32 /<\/[^>]*>/     { end element; end context }
  33
  34 /./             { if {$tag == "dc_creator"} { append AUTHOR $0}; if {$tag == "dc_publisher"} { append PUBLISHER $0};   data $0 }