文字列の変換 -- translit: アナクロなコンピューターエンジニアのつぶやき

コマンドラインの引数がとれるようになったので、引数を使ったプログラムを 紹介します。 文字列の置き換えプログラムtranslitです。

translitは、標準入力から読み込んだ文字をコマンドラインの引数の指示に従い変換します。たとえば、
translit x y
は、文字"x"を文字"y"に変換します。また、
translit xy yx
は、文字"x"を文字"y"に、文字"y"を文字"x"に変換します。さらには、
translit a-z A-Z
は、英小文字を英大文字に変換します。"a-z"は、"abcdefghijklmnopqrstuvwxyz"の略記です。
translit a-zA-Z a
とすれば、英文字列を文字"a"一文字に押しつぶします。また、
translit 0-9 n
とすれば、数字列を文字"n"一文字に押しつぶします。
translit 0-9
とすれば、数字列を削除することになります。もう少し拡張します。
translit !a-z -
とすれば、英小文字以外は、改行も含め、"-"に変換されます。

脱出文字"@"も使えます。"@n"とすれば改行を意味し、"@t"は、タブです。"@"自身は"@@"と表現できます。
translit @n N
とすれば、改行が文字"N"に変換され、
translit @t T
とすれば、タブが文字"T"に変換されます。

このように、translitは一種のフィルターです。

translitのメイン部分は下記の通り。

# translit.r4 -- map characters
      character getc
      character arg(MAXARR), c, from(MAXSET), to(MAXSET)
      integer getarg, length, makset, xindex
      integer allbut, collap, i, lastto

      allbut = NO
      if (getarg(1, arg, MAXARR) == NO)
          call error('usage: translit from to.')
      else if (arg(1) == NOT)
          allbut = YES
          if (makset(arg, 2, from, MAXSET) == NO)
              call error('from: too large.')
      else 
          allbut = NO
          if (makset(arg, 1, from, MAXSET) == NO)
              call error('from: too large.')

      if (getarg(2,arg,MAXARR) == NO)
          to(1) = EOS
      else if (makset(arg, 1, to, MAXSET) == NO)
          call error('to: too large.')

      lastto = length(to)
      if (length(from) > lastto | allbut == YES)
          collap = YES
      else
          collap = NO

      repeat {
          i = xindex(from, getc(c), allbut, lastto)
          if (collap == YES & i >= lastto & lastto > 0) { # collapse
              call putc(to(lastto))
              repeat
                  i = xindex(from, getc(c), allbut, lastto)
              until (i < lastto)
              }
          if (c == EOF) { 
              call putc(EOF)
              break
              }
          if (i > 0 & lastto > 0)       # translate
              call putc(to(i))
          else if (i == 0)              # copy
              call putc(c)
                                        # else delete
          }
      stop
      end

プログラムの前半は、コマンドラインの引数から、変換ルールの文字列を作成することに費やされています。 後半は、標準入力からEOFを読みとるまで、変換して標準出力へ書き出します。

Watcom Fortran77版は、下記の通り。

c translit.for -- map characters
      program translit
      integer*1 getc
      integer*1 arg(100), c, from(200), to(200) ! MAXARR(100) MAXSET(00)
      integer getarg, length, makset, xindex
      integer allbut, collap, i, lastto

      allbut = 0                        ! NO(0)
      if (getarg(1, arg, 100) .eq. 0) then ! MAXARR(100) NO(0)
          call error('usage: translit from to.')
      else if (arg(1) .eq. 33) then     ! NOT(33)
          allbut = 1                    ! YES(1)
          if (makset(arg, 2, from, 200) .eq. 0) then ! MAXSET(200) NO(0)
              call error('from: too large.')
          end if
      else 
          allbut = 0                    ! NO(0)
          if (makset(arg, 1, from, 200) .eq. 0) then ! MAXSET(200) NO(0)
              call error('from: too large.')
          end if
      end if

      if (getarg(2, arg, 100) .eq. 0) then ! MAXARR(100)
          to(1) = -2                    ! EOS
      else if (makset(arg, 1, to, 200) .eq. 0) then ! MAXSET(200) NO(0)
          call error('to: too large.')
      end if

      lastto = length(to)
      if (length(from) .gt. lastto .or. allbut .eq. 1) then ! YES(1)
          collap = 1                    ! YES(1)
      else
          collap = 0                    ! NO(0)
      end if

      loop
          i = xindex(from, getc(c), allbut, lastto)
          if (collap .eq. 1
     1        .and. i .ge. lastto .and. lastto .gt. 0) then ! collapse
              call putc(to(lastto))
              loop
                  i = xindex(from, getc(c), allbut, lastto)
              until (i .lt. lastto)
          end if
          if (c .eq. -1) then           ! EOF(-1)
              call putc(-1)             ! EOF(-1)
              exit
          end if
          if (i .gt. 0 .and. lastto .gt. 0) then  ! translate
              call putc(to(i))
          else if (i .eq. 0) then       ! copy
              call putc(c)
          end if                        ! else delete
      end loop
      stop
      end

次回からは、translitの下請けルーチンを紹介します。