home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / he386 / defs / makeref.awk < prev    next >
Text File  |  1980-01-02  |  922b  |  47 lines
  1. #
  2. #    386|High-EUP Compilerのマニュアル・リファリンスを作成する
  3. #    
  4. #                                                    By TARO
  5. #
  6. #   TABSIZE = 4
  7. #
  8. #    usage    jgawk -f makeref.awk -- <filename>
  9. #
  10. #   "HEUSERS.MAN"から"HEUSERS.REF"を作成するためのプログラムです。
  11. #   普通使うもんじゃないと思いますので，気にしないでください。
  12. #   実行するにはJGAWK というプログラムが必要です。
  13. #
  14.  
  15. BEGIN    {
  16.     printf "\n３８６｜Ｈｉｇｈ－ＥＵＰ　Ｃｏｍｐｉｌｅｒ ver.1.03\n"
  17.     printf "『ユーザーズマニュアル』リファレンス・ファイル\n"
  18.     printf "\n※　エディタ（RED やMIFES）のタグジャンブ機能が利用できます\n"
  19.     printf "\n"
  20.  
  21. }
  22.     { ++lines }
  23. /☆  第[0-9０-９]/    { 
  24.     s = sprintf( "%s  %s  %s", $1, $2, $3 )
  25.     printf "\n"
  26.     putTagLine( s )
  27. }
  28.  
  29. /  [0-9０-９]．[0-9０-９]/    { 
  30.     putTagLine( $0 )
  31. }
  32.  
  33. /■/    {
  34.     s = sprintf("    %s", $0 )
  35.     putTagLine( s )
  36. }
  37.  
  38. function    putTagLine( s )    {
  39.     printf "%11s %4d:  %s\n", FILENAME, lines, s
  40. }
  41.  
  42.  
  43. END {
  44.     printf "\n"
  45. }
  46.  
  47.