프로그래밍/Io

7비트 ASCII 코드표 만들기 예제 with Io

Scripter 2008. 5. 2. 00:10

ASCII(애스키)란 American Standard Cpde for Information Interchange의 줄임글로서, 영문자에 기초한 문자 인코딩이다.  이 문자 인코딩에는  C0 제어문자(C0 control character)도 포함되어 있다.  ( 참고:  ASCII - Wikipedia, the free encyclopedia )

다음은  7bit ASCII 코드표를 만들어 보여주는 Io 소스 코드이다.
소스 코드 중에 진법변환에 필요한 함수

        convertAtoI(String, radix)
        convertItoA(long, radix)

의 구현도 포함되어 있다.


  1. /*
  2.  *  Filename: makeAsciiTable.io
  3.  *            Make a table of ascii codes.
  4.  *
  5.  *  Execute: io makeAsciiTable.io
  6.  *
  7.  *      Date:  2008/05/02
  8.  *    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
  9.  */
  11. printUsage := method(
  12.     "Usage: io makeAsciiTable.io" println
  13.     "Make a table of ascii codes." println
  14. )
  16. convertItoA := method(num, radix,
  17.     BASE36 := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  18.     q := 0
  19.     r := 0
  20.     isNegative := false
  21.     if (num < 0) then (
  22.         isNegative = true
  23.         num = -num
  24.     )
  26.     arr := ""
  27.     q = num
  28.     r = 0
  30.     while (q >= radix,
  31.         r = q % radix
  32.         q = (q / radix) floor
  33.         arr = arr .. (BASE36 slice(r, r + 1))
  34.      )
  35.      arr =  arr .. (BASE36 slice(q, q + 1))
  37.      if (isNegative) then (
  38.          arr = arr .. "-"
  39.      )
  41.      n := arr size
  42.      ret := ""
  43.      for (i, 0, n - 1,
  44.          ret = ret .. arr slice(n - i - 1, n - i)
  45.      )
  46.      return ret
  47. )
  50. convertAtoI := method(srcStr, radix,
  51.     BASE36 := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  52.     isNegative := false
  53.     ret := 0
  54.     len := srcStr size
  55.     c := ""
  56.     i := 0
  57.     val := 0
  59.     c = srcStr at(0)
  60.     if (c == "-") then (
  61.         isNegative = true
  62.     ) elseif (c >= "0" and c <= "9") then (
  63.         ret = (c product) - ("0" product)
  64.     ) elseif (c >= "A" and c <= "Z") then (
  65.         ret = (c product) - ("A" product) + 10
  66.     ) elseif (c >= "a" and  <= "z") then (
  67.         ret = (c product) - ("a" product) + 10
  68.     )
  70.     if (ret >= adix) then (
  71.         "        Invalid character!" println
  72.         return ret
  73.     )
  75.     for (i, 1,  len - 1,
  76.         c = srcStr[i]
  77.         ret = ret * radix
  78.         if (c >= "0" and c <= "9") then (
  79.             val = c product - "0" product
  80.         ) elseif (c >= 'A' and c <= 'Z') then (
  81.             val = c product - "A" product + 10
  82.         ) elseif (c >= 'a' and c <= 'z') then (
  83.             val = c product - "a" product + 10
  84.         )
  85.         if (val >= (long) radix) then (
  86.             "        Invalid character!" println
  87.             return ret
  88.         )
  89.         ret = ret + val
  90.     )
  91.     return ret
  92. )
  95. makeTable := method(
  96.     asc := list( "NUL", "SOH", "STX", "ETX", "EOT" )
  97.     asc append( "ENQ", "ACK", "BEL", "BS", "HT" )
  98.     asc append( "LF", "VT", "FF", "CR", "SO" )
  99.     asc append( "SI", "DLE", "DC1", "DC2", "DC3" )
  100.     asc append( "DC4", "NAK", "SYN", "ETB", "CAN" )
  101.     asc append( "EM", "SUB", "ESC", "FS", "GS" )
  102.     asc append( "RS", "US", "Spc" )
  104.     control := list( "NUL (null)" )
  105.     control append( "SOH (start of heading)" )
  106.     control append( "STX (start of text)" )
  107.     control append( "ETX (end of text)" )
  108.     control append( "EOT (end of transmission)" )
  109.     control append( "ENQ (enquiry)" )
  110.     control append( "ACK (acknowledge)" )
  111.     control append( "BEL (bell)" )
  112.     control append( "BS  (backspace)" )
  113.     control append( "TAB (horizontal tab)" )
  114.     control append( "LF  (line feed, NL new line)" )
  115.     control append( "VT  (vertical tab)" )
  116.     control append( "FF  (form feed, NP new page)" )
  117.     control append( "CR  (carriage return)" )
  118.     control append( "SO  (shift out)" )
  119.     control append( "SI  (shift in)" )
  120.     control append( "DLE (data link escape)" )
  121.     control append( "DC1 (device control 1)" )
  122.     control append( "DC2 (device control 2)" )
  123.     control append( "DC3 (device control 3)" )
  124.     control append( "DC4 (device control 4)" )
  125.     control append( "NAK (negative acknowledge)" )
  126.     control append( "SYN (synchronous idle)" )
  127.     control append( "ETB (end of trans. block)" )
  128.     control append( "CAN (cancel)" )
  129.     control append( "EM  (end of medium)" )
  130.     control append( "SUB (substitute, EOF end of file)" )
  131.     control append( "ESC (escape)" )
  132.     control append( "FS  (file separator)" )
  133.     control append( "GS  (group separator)" )
  134.     control append( "RS  (record separator)" )
  135.     control append( "US  (unit separator)" )
  137.     sbuf := ""
  138.     abuf := ""
  139.     tbuf := ""
  140.     i := 0
  141.     j := 0
  142.     c := ""
  144.     "    " print
  145.     for (i, 0, 7,
  146.         "+----" print
  147.     )
  148.     "+" print
  149.     "" println
  151.     "    " print
  152.     "| 0- " print
  153.     "| 1- " print
  154.     "| 2- " print
  155.     "| 3- " print
  156.     "| 4- " print
  157.     "| 5- " print
  158.     "| 6- " print
  159.     "| 7- " print
  160.     "|" print
  161.     "" println
  163.     "+---" print
  164.     for (i, 0, 7,
  165.         "+----" print
  166.     )
  167.     "+" print
  168.     "" println
  170.     tmpS := ""
  172.     for (i, 0, 15,
  173.         tbuf = ""
  174.         sbuf = convertItoA(i, 16)
  175.         tbuf = tbuf .. "| " .. sbuf .. " "
  176.         for (j, 0, 7,
  177.             if (j*16 + i <= 32) then (
  178.                 tmpS = asc at(j*16 + i)
  179.                 if (tmpS size < 3) then ( tmpS = tmpS .. (" " repeated(3 - (tmpS size)) ) )
  180.                 abuf = "| " .. tmpS
  181.             ) elseif (j*16 + i == 127) then (
  182.                 tmpS = "DEL"
  183.                 if (tmpS size < 3) then ( tmpS = tmpS .. (" " repeated(3 - (tmpS size)) ) )
  184.                 abuf = "| " .. tmpS
  185.             ) else (
  186.                 c := Sequence clone
  187.                 c append(j*16 + i)
  188.                 tmpS = c asString
  189.                 if (tmpS size < 2) then ( tmpS = (" " repeated(2 - (tmpS size)) .. tmpS ) )
  190.                 abuf = "| " .. tmpS .. " "
  191.             )
  192.             tbuf = tbuf .. abuf
  193.         )
  194.         tbuf = tbuf .. "|"
  195.         tbuf println
  196.     )
  198.     "+---" print
  199.     for (i, 0, 7,
  200.         "+----" print
  201.     )
  202.     "+" print
  203.     "" println
  204.     "" println
  206.     for (i, 0, 15,
  207.         // sbuf = String.format("%-30s",  control at(i)
  208.         // tbuf = String.format("  %-34s",  control at(i+16))
  209.         tmpS = control at(i)
  210.         if (tmpS size < 30) then ( tmpS = tmpS .. (" " repeated(30 - (tmpS size)) ) )
  211.         sbuf = tmpS
  212.         tmpS = control at(i+16)
  213.         if (tmpS size < 34) then ( tmpS = tmpS .. (" " repeated(34 - (tmpS size)) ) )
  214.         tbuf = tmpS
  215.         sbuf print
  216.         tbuf println
  217.     )
  218. )
  220. if (args size > 1 and "-h" == args at(1)) then (
  221.     printUsage()
  222.     exit(1)
  223. )
  225. makeTable()




실행> io makeAsciiTable.io

    +----+----+----+----+----+----+----+----+
    | 0- | 1- | 2- | 3- | 4- | 5- | 6- | 7- |
+---+----+----+----+----+----+----+----+----+
| 0 | NUL| DLE| Spc|  0 |  @ |  P |  ` |  p |
| 1 | SOH| DC1|  ! |  1 |  A |  Q |  a |  q |
| 2 | STX| DC2|  " |  2 |  B |  R |  b |  r |
| 3 | ETX| DC3|  # |  3 |  C |  S |  c |  s |
| 4 | EOT| DC4|  $ |  4 |  D |  T |  d |  t |
| 5 | ENQ| NAK|  % |  5 |  E |  U |  e |  u |
| 6 | ACK| SYN|  & |  6 |  F |  V |  f |  v |
| 7 | BEL| ETB|  ' |  7 |  G |  W |  g |  w |
| 8 | BS | CAN|  ( |  8 |  H |  X |  h |  x |
| 9 | HT | EM |  ) |  9 |  I |  Y |  i |  y |
| A | LF | SUB|  * |  : |  J |  Z |  j |  z |
| B | VT | ESC|  + |  ; |  K |  [ |  k |  { |
| C | FF | FS |  , |  < |  L |  \ |  l |  | |
| D | CR | GS |  - |  = |  M |  ] |  m |  } |
| E | SO | RS |  . |  > |  N |  ^ |  n |  ~ |
| F | SI | US |  / |  ? |  O |  _ |  o | DEL|
+---+----+----+----+----+----+----+----+----+

NUL (null)                      DLE (data link escape)
SOH (start of heading)          DC1 (device control 1)
STX (start of text)             DC2 (device control 2)
ETX (end of text)               DC3 (device control 3)
EOT (end of transmission)       DC4 (device control 4)
ENQ (enquiry)                   NAK (negative acknowledge)
ACK (acknowledge)               SYN (synchronous idle)
BEL (bell)                      ETB (end of trans. block)
BS  (backspace)                 CAN (cancel)
TAB (horizontal tab)            EM  (end of medium)
LF  (line feed, NL new line)    SUB (substitute, EOF end of file)
VT  (vertical tab)              ESC (escape)
FF  (form feed, NP new page)    FS  (file separator)
CR  (carriage return)           GS  (group separator)
SO  (shift out)                 RS  (record separator)
SI  (shift in)                  US  (unit separator)




Creative Commons License

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

'프로그래밍 > Io' 카테고리의 다른 글

손으로 만드는 나눗셈 계산표 with Io  (0) 2008.05.16
삼각형 출력 예제를 통한 여러 가지 소스 비교 with Io  (0) 2008.05.02
진법(radix) 표 만들기 예제 with Io  (0) 2008.05.01
대화형 모드의 진법(radix) 변환 예제 with Io  (0) 2008.04.30
황금비율(golden ratio) 구하기 with Io  (0) 2008.04.15

'프로그래밍/Io'의 다른글

  • 현재글7비트 ASCII 코드표 만들기 예제 with Io

관련글

티스토리툴바