프로그래밍/F#

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

Scripter 2010. 7. 15. 12:49

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

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

                atoi(string, radix)
                itoa(number, radix)

를 F# 코드로 자체 작성하여 사용하였다.

(아래의 소스는 Python 소스를 F# 소스로 일대일 변환 수정한 것이라서, F# 언어의 명령형 언어 특징을 위주로 작성되어 있다.)

  1. (*
  2.  *  Filename: MakeAsciiTable.fs
  3.  *            Make a table of ascii codes.
  4.  *
  5.  *  Compile: fsc MakeAsciiTable.fs
  6.  *  Execute: MakeAsciiTable
  7.  *
  8.  *      Date:  20010/07/15
  9.  *    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
  10.  *)
  12. #light
  14. exception RuntimeError of string
  15. exception ValueError of string
  17. let BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  19. let println s =
  20.     printfn "%O" s
  22. let print s =
  23.     printf "%O" s
  25. let printUsage dummy =
  26.     println "Usage: MakeAsciiTable"
  27.     println "Make a table of ascii codes."
  29. let itoa (num : int, radix : int) =
  30.    let mutable isNegative = false
  31.    let mutable numx = num
  32.    if num < 0 then
  33.       isNegative <- true
  34.       numx <- (-num)
  36.    let mutable arr = [  ]
  37.    let mutable q = numx
  38.    let mutable r = 0
  40.    while (q >= radix) do
  41.        r <- int (q % radix)
  42.        q <- int (q / radix)
  43.        arr <- List.append arr [ sprintf "%O" (BASE36.[r]) ]
  44.    arr <- List.append arr [ sprintf "%O" (BASE36.[q]) ]
  46.    if isNegative then
  47.       arr <- List.append arr [ "-" ]
  49.    arr <- List.rev arr
  50.    System.String.Join("", List.toArray arr)
  53. let atoi (s : string, radix : int) : int =
  54.     let mutable ret = 0
  55.     let mutable isNegative = false
  56.     let len = s.Length
  57.     let mutable valx = 0
  58.     let mutable c = s.[0]
  60.     if c = '-' then
  61.         isNegative <- true
  62.     elif (c >= '0' && c <= '9') then
  63.         ret <- (int c) - (int '0')
  64.     elif (c >= 'A' && c <= 'Z') then
  65.         ret <- int c - int 'A' + 10
  66.     elif (c >= 'a' && c <= 'z') then
  67.         ret <- int c - int 'a' + 10
  69.     if (ret >= radix) then
  70.         printfn "    Error: Can not read \"%s\" (as radix %d): %O is an invalid character!" s radix ret
  72.     for i = 1 to len - 1 do
  73.         c <- s.[i]
  74.         ret <- ret*radix
  75.         if (c >= '0' && c <= '9') then
  76.             valx <- int c - int '0'
  77.         elif (c >= 'A' && c <= 'Z') then
  78.             valx <- int c - int 'A' + 10
  79.         elif (c >= 'a' && c <= 'z') then
  80.             valx <- int c - int 'a' + 10
  82.         if (valx >= radix) then
  83.             printfn "    Error: Can not read \"%s\" (as radix %d): %O is an invalid character!" s radix c

  84.         ret <- ret + valx
  86.     if (isNegative) then
  87.         ret <- (-ret )
  89.     ret
  92. let asc = [
  93.     "NUL"; "SOH"; "STX"; "ETX"; "EOT";
  94.     "ENQ"; "ACK"; "BEL"; "BS"; "HT";
  95.     "LF"; "VT"; "FF"; "CR"; "SO";
  96.     "SI"; "DLE"; "DC1"; "DC2"; "DC3";
  97.     "DC4"; "NAK"; "SYN"; "ETB"; "CAN";
  98.     "EM"; "SUB"; "ESC"; "FS"; "GS";
  99.     "RS"; "US"; "Spc"
  100. ]
  102. let control = [
  103.     "NUL (null)";
  104.     "SOH (start of heading)";
  105.     "STX (start of text)";
  106.     "ETX (end of text)";
  107.     "EOT (end of transmission)";
  108.     "ENQ (enquiry)";
  109.     "ACK (acknowledge)";
  110.     "BEL (bell)";
  111.     "BS  (backspace)";
  112.     "TAB (horizontal tab)";
  113.     "LF  (line feed, NL new line)";
  114.     "VT  (vertical tab)";
  115.     "FF  (form feed, NP new page)";
  116.     "CR  (carriage return)";
  117.     "SO  (shift out)";
  118.     "SI  (shift in)";
  119.     "DLE (data link escape)";
  120.     "DC1 (device control 1)";
  121.     "DC2 (device control 2)";
  122.     "DC3 (device control 3)";
  123.     "DC4 (device control 4)";
  124.     "NAK (negative acknowledge)";
  125.     "SYN (synchronous idle)";
  126.     "ETB (end of trans. block)";
  127.     "CAN (cancel)";
  128.     "EM  (end of medium)";
  129.     "SUB (substitute, EOF end of file)";
  130.     "ESC (escape)";
  131.     "FS  (file separator)";
  132.     "GS  (group separator)";
  133.     "RS  (record separator)";
  134.     "US  (unit separator)";
  135. ]
  138. let makeTable dummy =
  139.     let mutable sbuf = ""
  140.     let mutable abuf = ""
  141.     let mutable tbuf = ""
  142.     let mutable c = 'a'
  144.     sbuf <- "    "
  145.     for i in 0..(8-1) do
  146.         sbuf <- sbuf +  "+----"
  147.     sbuf <- sbuf +  "+"
  148.     println(sbuf)
  150.     sbuf <- "    "
  151.     sbuf <- sbuf +  "| 0- "
  152.     sbuf <- sbuf +  "| 1- "
  153.     sbuf <- sbuf +  "| 2- "
  154.     sbuf <- sbuf +  "| 3- "
  155.     sbuf <- sbuf +  "| 4- "
  156.     sbuf <- sbuf +  "| 5- "
  157.     sbuf <- sbuf +  "| 6- "
  158.     sbuf <- sbuf +  "| 7- "
  159.     sbuf <- sbuf +  "|"
  160.     println(sbuf)
  162.     sbuf <- "+---"
  163.     for i in 0..(8-1) do
  164.         sbuf <- sbuf +  "+----"
  165.     sbuf <- sbuf +  "+"
  166.     println(sbuf)
  168.     for i in 0..(16-1) do
  169.         tbuf <- ""
  170.         sbuf <- itoa(i, 16)
  171.         tbuf <- tbuf +  "| " + sbuf + " "
  172.         for j in 0..(8-1) do
  173.             if j*16 + i <= 32 then
  174.                 abuf <- sprintf "| %-3s" (asc.[j*16 + i])
  175.             elif j*16 + i = 127 then
  176.                 abuf <- sprintf  "| %-3s" "DEL"
  177.             else
  178.                 c <- char (j*16 + i)
  179.                 abuf <- sprintf "|  %1c " c
  180.             tbuf <- tbuf + abuf
  181.         tbuf <- tbuf + "|"
  182.         println(tbuf)
  184.     sbuf <- "+---"
  185.     for i in 0..(8-1) do
  186.         sbuf <- sbuf + "+----"
  187.     sbuf <- sbuf + "+"
  188.     println(sbuf)
  189.     println("")
  191.     for i in 0..(16-1) do
  192.         tbuf <- sprintf "%-30s  %-34s" (control.[i]) (control.[i+16])
  193.         println(tbuf)
  196. // Begin here
  197. let cmdArgs = System.Environment.GetCommandLineArgs()
  198. if (Array.length cmdArgs > 1 && "-h" = cmdArgs.[1]) then
  199.     printUsage 0
  200.     exit(1)
  202. makeTable 0




컴파일> fsc MakeAsciiTable.fs

실행> MakeAsciiTable

   
    +----+----+----+----+----+----+----+----+
    | 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)




 

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

문자열 거꾸로 하기 with F#  (0) 2010.07.15
손으로 만드는 나눗셈 계산표 with F#  (0) 2010.07.15
진법(radix) 표 만들기 예제 with F#  (0) 2010.07.15
대화형 모드의 진법(radix) 변환 예제 with F#  (0) 2010.07.14
황금비율(golden ratio) 구하기 with F#  (0) 2010.07.13

'프로그래밍/F#'의 다른글

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

관련글

티스토리툴바