#! /usr/bin/gawk -f 
# Last edited on 2004-01-31 23:39:56 by stolfi

BEGIN {
}

/[#][ ][=][=][=]/ { print; next; }

/^ *$/ { next; }

/^<HR> *$/ { 
    print "@=";
    next;
  }

/^<TD ALIGN="CENTER"><A HREF="[-0-9]*[.]ra">[¡][ñ]<[\/]A><BR><BR><[\/]TD> *$/ {
    lin = $0; 
    lin = gensub(/^.*["]([-0-9]*)[.]ra["].*$/, "@audio{\\1.ra}", "g", lin); 
    # print lin; 
    next;
  }

/^<TD ALIGN="CENTER">..<BR><BR><[\/]TD> *$/ { 
    lin = $0; 
    lin = gensub(/^<TD ALIGN="CENTER">/, "@chinword{", "g", lin); 
    lin = gensub(/<BR><BR><[\/]TD> *$/, "}{??}", "g", lin); 
    print lin;
    next;
  }

/^<TD ALIGN="CENTER">[^<>]*<BR>[^<>]*<BR><[\/]TD> *$/ {
    lin = $0; 
    lin = gensub(/^<TD ALIGN="CENTER">/, "@chinword{", "g", lin); 
    lin = gensub(/<BR><[\/]TD> *$/, "}", "g", lin); 
    lin = gensub(/<BR>/, "}{", "g", lin); 
    print lin;
    next;
  } 

/<TD ALIGN="LEFT" BGCOLOR="#ffffcc">[A-Za-z]+ +[0-9]+[,] +[12][90][0-9][0-9][:] +<FONT SIZE="[+]1">[^<>]*<[\/]FONT><BR><[\/]TD> *$/ {
    lin = $0; 
    lin = gensub(/^<TD ALIGN="LEFT" BGCOLOR="#ffffcc">/, "@item{??}{", "g", lin); 
    lin = gensub(/<[\/]FONT><BR><[\/]TD> *$/, "}", "g", lin); 
    lin = gensub(/[:] +<FONT SIZE="[+]1">/, "}{", "g", lin); 
    print lin;
    next;
  }
  
// { 
  # printf "@junk{%s}\n", $0; 
  next;
}