프로그래밍/Julia

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

Scripter 2013. 3. 5. 14:06

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

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

        convertAtoI(string, radix)
        convertItoA(number, radix)

의 구현도 포함되어 있다.


  1. ##  Filename: makeAsciiTable.jl
  2. ##            Make a table of ascii codes.
  3. ##
  4. ##  Execute: julia makeAsciiTable.jl
  5. ##
  6. ##      Date:  2013. 3. 5.
  7. ##    Author:  pkim __AT__ scripts ((DOT)) pe ((DOT)) kr
  10. BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  13. # The function println() is defined already in Julia language.
  14. # function println(s...)
  15. #     if length(s) > 0
  16. #         println(s[1])
  17. #     else
  18. #         println("")
  19. # end
  21. function printUsage()
  22.     println("Usage: julia makeAsciiTable.jl")
  23.     println("Make a table of ascii codes.")
  24. end
  26. function convertItoA(num, radix)
  27.    isNegative = false
  28.    if num < 0
  29.       isNegative = true
  30.       num = -num
  31.    end
  33.    arr = ""
  34.    q, r = num, 0
  35.    while q >= radix
  36.       # q, r = divmod(q, radix)
  37.       r = mod(q, radix)
  38.       q = div(q, radix)
  39.       arr *= BASE36[r+1]
  40.    end
  42.    arr *= BASE36[q + 1]
  43.    if isNegative
  44.       arr *= "-"
  45.    end
  46.    return reverse(arr)
  47. end
  49. function convertAtoI(srcStr, radix)
  50.     isNegative = false
  51.     ret = 0
  52.     m = length(srcStr)
  53.     val = 0
  54.     c = srcStr[1]
  56.     if c == '-'
  57.         isNegative = true
  58.     elseif c >= '0' && c <= '9'
  59.         ret = int(c) - int('0')
  60.     elseif c >= 'A' && c <= 'Z'
  61.         ret = (int(c) - int('A')) + 10
  62.     elseif c >= 'a' && c <= 'z'
  63.         ret = (int(c) - int('a')) + 10
  64.     end
  66.     if ret >= radix
  67.         println("        Invalid character!")
  68.         return ret
  69.     end
  71.     for i = 2:m
  72.         c = srcStr[i]
  73.         ret *= radix
  74.         if c >= '0' && c <= '9'
  75.             val = int(c) - int('0')
  76.         elseif c >= 'A' && c <= 'Z'
  77.             val = (int(c) - int('A')) + 10
  78.         elseif c >= 'a' && c <= 'z'
  79.             val = (int(c) - int('a')) + 10
  80.         end
  82.         if val >= radix:
  83.             println("        Invalid character!")
  84.             return ret
  85.         end
  87.         ret *= val
  88.     end
  90.     return ret
  91. end
  94. asc = [
  95.     "NUL", "SOH", "STX", "ETX", "EOT",
  96.     "ENQ", "ACK", "BEL", "BS", "HT",
  97.     "LF", "VT", "FF", "CR", "SO",
  98.     "SI", "DLE", "DC1", "DC2", "DC3",
  99.     "DC4", "NAK", "SYN", "ETB", "CAN",
  100.     "EM", "SUB", "ESC", "FS", "GS",
  101.     "RS", "US", "Spc"
  102. ]
  104. control  = [
  105.     "NUL (null)",
  106.     "SOH (start of heading)",
  107.     "STX (start of text)", 
  108.    "ETX (end of text)",
  109.     "EOT (end of transmission)",
  110.     "ENQ (enquiry)",
  111.     "ACK (acknowledge)",
  112.     "BEL (bell)",
  113.     "BS  (backspace)",
  114.     "TAB (horizontal tab)",
  115.     "LF  (line feed, NL new line)",
  116.     "VT  (vertical tab)",
  117.     "FF  (form feed, NP new page)",
  118.     "CR  (carriage return)",
  119.     "SO  (shift out)",
  120.     "SI  (shift in)",
  121.     "DLE (data link escape)",
  122.     "DC1 (device control 1)",
  123.     "DC2 (device control 2)",
  124.     "DC3 (device control 3)",
  125.     "DC4 (device control 4)",
  126.     "NAK (negative acknowledge)",
  127.     "SYN (synchronous idle)",
  128.     "ETB (end of trans. block)",
  129.     "CAN (cancel)",
  130.     "EM  (end of medium)",
  131.     "SUB (substitute, EOF end of file)",
  132.     "ESC (escape)",
  133.     "FS  (file separator)",
  134.     "GS  (group separator)",
  135.     "RS  (record separator)",
  136.     "US  (unit separator)",
  137. ]
  140. function toWidth(s, width)
  141.     t = s
  142.     if width > length(s)
  143.         t = " "^(width - length(s)) * s
  144.     elseif width < -length(s)
  145.         t = s * " "^(-width - length(s))
  146.     end
  147.     return t
  148. end
  150. function makeTable()
  151.     sbuf = ""
  152.     abuf = ""
  153.     tbuf = ""
  155.     sbuf = "    "
  156.     for i = 1:8
  157.         sbuf *= "+----"
  158.     end
  159.     sbuf *= "+"
  160.     println(sbuf)
  162.     sbuf = "    "
  163.     sbuf *= "| 0- "
  164.     sbuf *= "| 1- "
  165.     sbuf *= "| 2- "
  166.     sbuf *= "| 3- "
  167.     sbuf *= "| 4- "
  168.     sbuf *= "| 5- "
  169.     sbuf *= "| 6- "
  170.     sbuf *= "| 7- "
  171.     sbuf *= "|"
  172.     println(sbuf)
  174.     sbuf = "+---"
  175.     for i = 1:8
  176.         sbuf *= "+----"
  177.     end
  178.     sbuf *= "+"
  179.     println(sbuf)
  181.     for i = 0:15
  182.         tbuf = ""
  183.         sbuf = convertItoA(i, 16)
  184.         tbuf *= "| " * sbuf * " "
  185.         for j in 0:7
  186.             if j*16 + i <= 32
  187.                 abuf = "| " * oWidth(asc[j*16 + i + 1], -3)
  188.             elseif j*16 + i == 127
  189.                 abuf = "| " * "DEL"
  190.             else
  191.                 c = char(j*16 + i)
  192.                 abuf = "| " * toWidth(string(c), 2)  * " "
  193.             end
  194.             tbuf *= abuf
  195.         end
  196.         tbuf *= "|"
  197.         println(tbuf)
  198.     end
  200.     sbuf = "+---"
  201.     for i = 1:8
  202.         sbuf *= "+----"
  203.     end
  204.     sbuf *= "+"
  205.     println(sbuf)
  206.     println("")
  208.     for i = 0:15
  209.         tbuf = toWidth(control[i+1], -30) * "  " * toWidth(control[i +16 + 1], -34)
  210.         println(tbuf)
  211.     end
  212. end
  215. if length(ARGS) > 0 && "-h" == ARGS[1]
  216.     printUsage()
  217.     exit(1)
  218. end
  220. makeTable()




실행> julia makeAsciiTable.jl

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