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

프로그래밍/Common Lisp 2013. 9. 5. 11:39

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

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

        ()convertItoA number  radix)

의 구현도 포함되어 있다.

(아래의 소스는 CLisp으로 실행된다.)


  1. ;;  Filename: makeAsciiTable.lsp
  2. ;;            Make a table of ascii codes.
  3. ;;
  4. ;;  Execute: clisp makeAsciiTable.lsp
  5. ;;
  6. ;;      Date:  2013.9. 5.
  9. (setf *BASE36* "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  11. (defun printUsage()
  12.     (format t "Usage: lisp makeAsciiTable.lsp~%")
  13.     (format t "Make a table of ascii codes.~%") )
  15. (defun join-string-list (string-list)
  16.     ; (format nil "~{~A~^ ~}" string-list))
  17.     (format nil "~{~A~^~}" string-list))
  19. (defun to-right-align(s)
  20.     (let* ((n (length s))
  21.            (a (get-token s))
  22.            (k (length a)))
  23.          (if (= n 0) s)
  24.          (concatenate 'string (substring s k n) a) ))
  26. (defun get-token (s)
  27.   (let* ((i (if (find (elt s 0) "+-") 1 0))
  28.          (d (position-if 'nonwhite-char-p s :start i))
  29.          (f 0))
  30.     (if (equal d nil) s
  31.            (progn
  32.                (setf f (position-if 'white-char-p s :start (1+ d)))
  33.                (if (equal f nil) s
  34.                    (progn 
  35.                         (substring s d f) )) )) ))
  37. (defun nonwhite-char-p (c)
  38.     (> (char-code c) (char-code #\Space)))
  40. (defun white-char-p (c)
  41.     (<= (char-code c) (char-code #\Space)))
  43. (defun convertItoA(num radix)
  44.     (let* ((isNegative nil)
  45.            (a 0)
  46.            (arr (list))
  47.            (q 0)
  48.            (r 0))
  50.         (if (equal radix nil) (setf radix 10))
  52.         (if (minusp num) (progn
  53.             (setf isNegative t)
  54.             (setf inum (- num)) ))
  56.         (setf q num)
  58.         (loop while (>= q radix) do
  59.             (setf r (mod q radix))
  60.             (setf q (floor (/ q radix))) 
  61.             (setf arr (nconc arr (list (substring *BASE36* r (1+ r)))))
  62.         )
  64.        (setf arr (nconc arr (list (substring *BASE36* q (1+ q)))))
  65.        (if isNegative (nconc (ncons arr (list "-"))) )
  67.        (setf arr (reverse arr))
  68.        (join-string-list arr)
  69.     )
  70. )
  72. (setf *asc* (list
  73.     "NUL" "SOH"  "STX"  "ETX"  "EOT"
  74.     "ENQ" "ACK"  "BEL"  "BS"   "HT"
  75.     "LF"  "VT"   "FF"   "CR"   "SO"
  76.     "SI"  "DLE"  "DC1"  "DC2"  "DC3"
  77.     "DC4" "NAK"  "SYN"  "ETB"  "CAN"
  78.     "EM"  "SUB"  "ESC"  "FS"   "GS"
  79.     "RS"  "US"   "Spc"
  80.     ))
  82. (setf *control* (list
  83.     "NUL (null)"
  84.     "SOH (start of heading)"
  85.     "STX (start of text)"
  86.     "ETX (end of text)"
  87.     "EOT (end of transmission)"
  88.     "ENQ (enquiry)"
  89.     "ACK (acknowledge)"
  90.     "BEL (bell)"
  91.     "BS  (backspace)"
  92.     "TAB (horizontal tab)"
  93.     "LF  (line feed, NL new line)"
  94.     "VT  (vertical tab)"
  95.     "FF  (form feed, NP new page)"
  96.     "CR  (carriage return)"
  97.     "SO  (shift out)"
  98.     "SI  (shift in)"
  99.     "DLE (data link escape)"
  100.     "DC1 (device control 1)"
  101.     "DC2 (device control 2)"
  102.     "DC3 (device control 3)"
  103.     "DC4 (device control 4)"
  104.     "NAK (negative acknowledge)"
  105.     "SYN (synchronous idle)"
  106.     "ETB (end of trans. block)"
  107.     "CAN (cancel)"
  108.     "EM  (end of medium)"
  109.     "SUB (substitute, EOF end of file)"
  110.     "ESC (escape)"
  111.     "FS  (file separator)"
  112.     "GS  (group separator)"
  113.     "RS  (record separator)"
  114.     "US  (unit separator)"
  115.     ))
  117. (defun makeTable()
  118.     (let* ((sbuf "")
  119.            (abuf "")
  120.            (tbuf "")
  121.            (c #\Space))
  123.         (setf sbuf "    ")
  124.         (loop for i from 0 below 8 do
  125.             (setf sbuf (concatenate 'string sbuf "+----")))
  126.         (setf sbuf (concatenate 'string sbuf "+"))
  127.         (format t "~A~%" sbuf)
  129.         (setf sbuf "    ")
  130.         (setf sbuf (concatenate 'string sbuf "| 0- "))
  131.         (setf sbuf (concatenate 'string sbuf "| 1- "))
  132.         (setf sbuf (concatenate 'string sbuf "| 2- "))
  133.         (setf sbuf (concatenate 'string sbuf "| 3- "))
  134.         (setf sbuf (concatenate 'string sbuf "| 4- "))
  135.         (setf sbuf (concatenate 'string sbuf "| 5- "))
  136.         (setf sbuf (concatenate 'string sbuf "| 6- "))
  137.         (setf sbuf (concatenate 'string sbuf "| 7- "))
  138.         (setf sbuf (concatenate 'string sbuf "|"))
  139.         (format t "~A~%" sbuf)
  141.         (setf sbuf "+---")
  142.         (loop for i from 0 below 8 do
  143.             (setf sbuf (concatenate 'string sbuf "+----")))
  144.         (setf sbuf (concatenate 'string sbuf "+"))
  145.         (format t "~A~%" sbuf)
  147.         (loop for i from 0 below 16 do
  148.             (setf tbuf "")
  149.             (setf sbuf (convertItoA i 16))
  150.             (setf tbuf (concatenate 'string "| " sbuf " "))
  151.             (loop for j from 0 below 8 do
  152.                 (if (<= (+ (* j 16) i)  32)
  153.                     (setf abuf (format nil "| ~3A" (nth (+ (* j 16) i) *asc*)))
  154.                     (if (= (+ (* j 16) i)  127)
  155.                         (setf abuf (format nil "| ~3A" "DEL"))
  156.                         (progn
  157.                             (setf c (code-char (+ (* j 16) i)))
  158.                             (setf abuf (format nil "|  ~2A" c)) )))
  159.                 (setf tbuf (concatenate 'string tbuf abuf))
  160.             )
  161.             (setf tbuf (concatenate 'string tbuf "|"))
  162.             (format t "~A~%" tbuf)
  163.         )
  165.         (setf sbuf "+---")
  166.         (loop for i from 0 below 8 do
  167.             (setf sbuf (concatenate 'string sbuf "+----")))
  168.         (setf sbuf (concatenate 'string sbuf "+"))
  169.         (format t "~A~%" sbuf)
  170.         (format t "~%")
  172.         (loop for i from 0 below 16 do
  173.             (setf tbuf (format nil "~30A  ~34A" (nth i *control*) (nth (+ i 16) *control*)))
  174.             (format t "~A~%" tbuf)
  175.         )
  176.     ))
  179. (if (and (> (length ext:*args*) 0) (equal (nth 0 ext:*args*) "-h")) (progn
  180.     (printUsage)
  181.     (quit) ))
  183. (makeTable)




실행> clisp makeAsciiTable.lsp

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




 

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

손으로 만드는 나눗셈 계산표 with Common Lisp  (0) 2013.09.06
삼각형 출력 예제를 통한 여러 가지 소스 비교 with Common Lisp  (0) 2013.09.05
진법(radix) 표 만들기 예제 with Common Lisp  (0) 2013.09.04
대화형 모드의 진법(radix) 변환 예제 with Common Lisp  (0) 2013.09.02
황금비율(golden ratio) 구하기 with Common Lisp  (0) 2013.09.01
Posted by Scripter
,

티스토리툴바