| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- 语法分析并输出 (“1 -( sin(2222, 4444, tan(5555) + arctan(6666)) - cos(3333) )* 4”)
- 语法分析并输出 (“2*3-1*4+5/6-7*time()”)
-
- .判断循环首 (真)
- 标准输出 (, “> ”)
- 解析命令 (标准输入 ())
- .判断循环尾 ()
-
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 解析命令
- .参数 命令, 文本型
- .局部变量 t, 文本型, , "0"
- ' 支持命令
- ' 「帮助」 「词法分析 some text」 「语法分析 some text」
- t ＝ 分割文本 (命令, “ ”, 1)
-
-
- .判断开始 (t [1] ＝ “帮助” 或 到半角 (t [1]) ＝ “?”)
- 标准输出 (, #命令行帮助)
- .判断 (t [1] ＝ “词法分析”)
- 词法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“词法分析”)))
- .判断 (t [1] ＝ “语法分析”)
- 语法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“词法分析”)))
- .默认
- 标准输出 (, “未知命令” ＋ #换行符)
- .判断结束
-
- .子程序 连接字符串, 文本型
- .参数 字符串组, 文本型, 数组,
- .局部变量 res, 文本型
- .局部变量 i, 整数型
- res ＝ “”
- .计次循环首 (取文本长度 (字符串组), i)
- res ＝ res ＋ 字符串组 [i]
- .计次循环尾 ()
|
