file-magic.mime-gen.awk

   1 #!/bin/awk -f
   2
   3 BEGIN {
   4         FS = "\t+|  +"
   5         level = 0
   6 }
   7
   8 /^#/ { next }
   9
  10 /^[^!]/ {
  11         pref=$0
  12         sub(/[^>].*/, "", pref)
  13         level = length(pref)
  14         str[level] = $1"\t"$2"\t"$3
  15 }
  16
  17 /^!:mime/ {
  18         split($0, m, "[\t ]+")
  19         for(i = 0; i < level; i++)
  20                 print str[i]
  21         print str[level]"\t"m[2]
  22 }