Ignore *.o, *~ files.
[idzebra-moved-to-github.git] / 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 }