home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / Sources / doc / i2il.awk next >
Encoding:
AWK Script  |  1996-09-27  |  774 b   |  34 lines
  1. BEGIN {
  2.     add_patterns=".@"
  3.     LIMIT="`"
  4. }
  5. /^\.tC/ { next }
  6. $3 ~ /^[^@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]/ { printf(" ") }
  7. { ind=" " }
  8. /^\.dX/ { ind="d" }
  9. /^\.iX/ { ind="i" }
  10. /^\.eX/ { ind="x" }
  11. ind!=" " {
  12.     for (j=3;;) {
  13.         if ($j=="")
  14.             break
  15.         else
  16.             printf($j" ")
  17.         j++
  18.     }
  19.     printf(LIMIT "%010s%s\n",$2,ind)
  20.     for(i=length(add_patterns);i>0;i=i-1)
  21.         if (length($3)>1 && substr($3,1,1)==substr(add_patterns,i,1)) {
  22.             printf(substr($3,2,length($3)-1)" ")
  23.             for (j=4;;) {
  24.                 if ($j=="")
  25.                     break
  26.                 else
  27.                     printf($j" ")
  28.                 j++
  29.             }
  30.             printf(LIMIT "%010s%s\n",$2,ind)
  31.         }
  32. }
  33. #{{{}}}
  34.