대화형 모드의 진법(radix) 변환 예제 with Boo

다음은  대화형 모드(interactive mode)에서 진법 변환(radix conversion)하는 Boo 소스 코드이다.
메뉴는 주메뉴 Command: (S)et radix, (A)bout, (Q)uit or E(x)it
와 부메뉴 SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
로 구성되어 있으며, 진법 변환의 핵심은 소스 코드에 작성된 함수 convertAtoI(string, radix)와 itoa(number, radix)의 사용이다.

         val as long = convertAtoI(s, srcRdx)
         ret = itoa(val, destRdx)

지원되는 진법은 2진법에서 36진법까지이다.

 또 스트링의 첫글자의 아스키(ascii) 코드값을 구해주는 함수 toAscii(스트링을) 자체 구현하여 사용하였다. 이 함수는 convertAtoI(스트링, radix)에서 (Python의 함수 ord(스트링) 대신) 사용되고 있다.

1. #  Filename: convertRadix.boo
2. #            Convert radix in a interactive mode.
3. #
4. #  Execute: booi convertRadix.boo
5. #
6. #      Date:  2009/04/03
7. #    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
9. import System
11. def println():
12.     print
14. def println(s):
15.     print(s)
17. def printUsage():
18.     println("Usage: booi convertRadix.boo")
19.     println("Convert radix in a interactive mode, where the maximum radix is 36.")
21. def printAbout():
22.     println("    About: Convert radix in a interactive mode.")
24. def printMainMenu():
25.     println("  Command: (S)et radix, (A)bout, (Q)uit or E(x)it")
27. def printMainPrompt():
28.     Console.Write("  Prompt> ")
30. def printSubMenu(srcRadix, destRadix):
31.     println("    Convert Radix_" + srcRadix + " to Radix_" + destRadix)
32.     println("    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit")
34. def printSubPrompt(): 
35.     Console.Write("    Input Value>> ")
37. BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
39. def itoa(num as long, radix as int):
40.    isNegative = false
41.    if num < 0:
42.       isNegative = true
43.       num = -num
45.    arr as List = []
46.    q as int = num
47.    r as int = 0
48.    while q >= radix:
49.       r = q % radix
50.       q = q / radix
51.       arr.Add(BASE36[r])
53.    arr.Add(BASE36[q])
54.    if isNegative:
55.       arr.Add("-")
57.    s as string = ""
58.    n = len(arr)
59.    for i as int in range(n):
60.        s += arr[n - 1 - i]
61.    return s
63. def toAscii(s as String) as int:
64.     objAscii as System.Text.ASCIIEncoding = System.Text.ASCIIEncoding()
65.     val as System.Byte = objAscii.GetBytes(s)[0]
66.     return Convert.ToInt32(val)
68. def convertAtoI(srcStr as string, radix as int) as long:
69.     isNegative = false
70.     ret as long = 0L
71.     m = len(srcStr)
72.     val = 0
73.     c = srcStr[0:1]
74.     if toAscii(c) == toAscii('-'):
75.         isNegative = true
76.     elif toAscii(c) >= toAscii('0') and toAscii(c) <= toAscii('9'):
77.         ret = toAscii(c) - toAscii('0')
78.     elif toAscii(c) >= toAscii('A') and toAscii(c) <= toAscii('Z'):
79.         ret = (toAscii(c) - toAscii('A')) + 10
80.     elif toAscii(c) >= toAscii('a') and toAscii(c) <= toAscii('z'):
81.         ret = (toAscii(c) - toAscii('a')) + 10
83.     if ret >= radix:
84.         raise Exception("        invalid character!")
85.         return ret
87.     for i in range(1, m):
88.         c = srcStr[i:i+1]
89.         ret *= radix
90.         if toAscii(c) >= char('0') and toAscii(c) <= char('9'):
91.             val = toAscii(c) - toAscii('0')
92.         elif toAscii(c) >= char('A') and toAscii(c) <= char('Z'):
93.             val = (toAscii(c) - toAscii('A')) + 10
94.         elif toAscii(c) >= char('a') and toAscii(c) <= char('z'):
95.             val = (toAscii(c) - toAscii('a')) + 10
97.         if val >= radix:
98.             raise Exception("        invalid character!")
99.             return ret
100.         ret += val
102.     return ret
104. def convertRadix(s, srcRdx as int, destRdx as int) as string:
105.     ret as string = ""
106.     try:
107.         val as long = convertAtoI(s, srcRdx)
108.         ret = itoa(val, destRdx)
109.         return ret.ToUpper()
110.     except errMsg:
111.         print(errMsg + "\n    Error: Cannot convert radix " + srcRdx)
112.         ret = "????"
113.     ensure:
114.         pass
116.     return ret.ToUpper()
118. def doConvert(srcRadix as int, destRadix as int):
119.     line = ""
120.     cmd = ""
121.     srcStr = ""
122.     destStr = ""
123.     println("")
125.     printSubMenu(srcRadix, destRadix)
126.     try:
127.         while true:
128.             printSubPrompt()
129.             cmd = gets()
130.             if "main()" == cmd:
131.                 return
132.             elif "exit()" == cmd or "quit()" == cmd:
133.                 Environment.Exit(0)
135.             try:
136.                 srcStr = cmd
137.                 destStr = convertRadix(srcStr, srcRadix, destRadix)
138.                 println("        ( " + srcStr + " )_" + srcRadix +  "   --->   ( " + destStr + " )_" + destRadix)
139.                 println("")
140.             except ValueError:
141.                  pass
142.     except RuntimeError:
143.         print "Number Format Error"
146. def doStart():
147.     line = ""
148.     cmd = ""
149.     srcRadix as int = 10
150.     destRadix as int = 10
151.     srcStr = ""
152.     destStr = ""
153.     onlyOnce = true
155.     try:
156.         while true:
157.             println()
158.             if onlyOnce:
159.                 println("  The supported maximum radix is 36.")
160.                 onlyOnce = false
162.             printMainMenu()
163.             printMainPrompt()
164.             cmd = gets()
166.             if "qQxX".IndexOf(cmd) >= 0 and len(cmd) == 1:
167.                 Environment.Exit(0)
168.             elif "aA".IndexOf(cmd) >= 0 and len(cmd) == 1:
169.                 printAbout()
170.             elif "sS".IndexOf(cmd) >= 0 and len(cmd) == 1:
171.                 line = prompt("  Input the source and target radices (say, 16 2): ")
172.                 st = @/\s/.Split(line)
173.                 while len(st) < 2:
174.                     line = prompt("  Input the source and target radices (say, 16 2): ")
175.                     st = @/\s/.Split(line)
177.                 srcRadix = Convert.ToInt32(st[0])
178.                 destRadix = Convert.ToInt32(st[1])
179.                 doConvert(srcRadix, destRadix)
180.     except RuntimeError:
181.         print "Number Format Error"
183. # Begin here
184. if len(argv) > 0 and "-h" == argv[0]:
185.     printUsage()
186.     Environment.Exit(1)
189. doStart()

실행> booi convertRadix.boo

  The supported maximum radix is 36.
  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> s
  Input the source and target radices (say, 16 2): 10 8

    Convert Radix_10 to Radix_8
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 200
        ( 200 )_10   --->   ( 310 )_8

    Input Value>> main()

  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> S
  Input the source and target radices (say, 16 2): 8 10

    Convert Radix_8 to Radix_10
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 2666
        ( 2666 )_8   --->   ( 1462 )_10

    Input Value>> main()

  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> x

크리에이티브 커먼즈 라이선스

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