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

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

         string fromBase(radix)    // 소스 코드의 40째 쥴 참조
         string toBase(radix)       // 소스 코드의 41째 쥴 참조

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

1. /*
2.  *  Filename: convertRadix.io
3.  *            Convert radix in a interactive mode.
4.  *
5.  *  Execute: io convertRadix.io
6.  *
7.  *      Date:  2008/05/01
8.  *    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
9.  */
11. printUsage := method(
12.     writeln("Usage: groovy convertRadix.groovy")
13.     writeln("Convert radix in a interactive mode, where the maximum radix is 36.")
14. )
16. printAbout := method(
17.     writeln("    About: Convert radix in a interactive mode.")
18. )
20. printMainMenu := method(
21.     writeln("  Command: (S)et radix, (A)bout, (Q)uit or E(x)it")
22. )
24. printMainPrompt := method(
25.     write("  Prompt> ")
26. )
28. printSubMenu := method(srcRadix, destRadix,
29.     writeln("    Convert Radix_#{srcRadix} to Radix_#{destRadix}" interpolate)
30.     writeln("    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit")
31. )
33. printSubPrompt := method(
34.     write("    Input Value>> ")
35. )
37. convertRadix := method(s, srcRdx, destRdx,
38.     ret := "   "
39.     e := try (
40.         val := s fromBase(srcRdx)
41.         ret = val asString toBase(destRdx) asUppercase
42.         return( ret )
43.     )
44.     e catch(Exception,
45.         writeln("    Error: The input string cantains some invalid character.")
46.         ret = "????"
47.     )
48.     return( ret asMutable uppercase )
49. )
51. doConvert := method( stdin, srcRadix, destRadix,
52.     line := ""
53.     cmd := ""
54.     srcStr := ""
55.     destStr := ""
57.     writeln("")
58.     printSubMenu(srcRadix, destRadix)
59.     while (true,
60.         printSubPrompt()
61.         cmd = stdin readLine
62.         if ("main()" == cmd) then (
63.             return
64.         ) elseif ("exit()" == cmd or "quit()" == cmd) then (
65.             exit(1)
66.         )
67.         e2 :=  try (
68.             cmd fromBase(srcRadix)
69.             srcStr = cmd
70.             destStr = convertRadix(srcStr, srcRadix, destRadix)
71.             writeln("        ( " .. srcStr .. " )_" .. srcRadix ..  "   --->   ( " .. destStr .. " )_" .. destRadix)
72.             writeln("")
73.         )
74.         e2 catch (Exception,
75.             writeln("        Conversion Exception" )
76.             writeln("")
77.         )
78.     )
79. )
81. doStart := method(
82.     line := ""
83.     cmd := ""
84.     srcRadix := 10
85.     destRadix := 10
86.     srcStr := ""
87.     destStr := ""
88.     onlyOnce := true
90.     stdin := File standardInput
92.     while (true,
93.             writeln("")
94.             if (onlyOnce) then (
95.                 writeln("  The supported maximum radix is 36.")
96.                 onlyOnce = false
97.             )
98.             printMainMenu()
99.             printMainPrompt()
101.             cmd = stdin readLine
102.             if ("qQxX" findSeq(cmd) != nil and cmd size == 1) then (
103.                 exit(0)
104.             ) elseif ("aA" findSeq(cmd) != nil and cmd size == 1) then (
105.                 printAbout()
106.             ) elseif ("sS" findSeq(cmd) != nil and cmd size == 1) then (
107.                 write("  Input the source and target radices (say, 16 2): ")
108.                 line := stdin readLine
109.                 tokens := line split(" ", "\t", ",")
110.                 while (tokens size < 2,
111.                     write("  Input the source and target radices (say, 16 2): ")
112.                     line = stdin readLine
113.                     tokens = line split(" ", "\t", ",")
114.             )
115.             srcRadix = tokens at(0) asNumber
116.             destRadix = tokens at(1) asNumber
117.             doConvert(stdin, srcRadix, destRadix)
118.         )
119.     )
120. )
122. // Begin here
123. if (args size > 1 and "-h" == args at(1)) then (
124.     printUsage()
125.     exit(1)
126. )
128. doStart()

실행> io convertRadix.io

  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): 16 2

    Convert Radix_16 to Radix_2
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 1FF
        ( 1FF )_16   --->   ( 111111111 )_2

    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): 2 8

    Convert Radix_2 to Radix_8
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 1011001
        ( 1011001 )_2   --->   ( 131 )_8

    Input Value>> main()

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





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