| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 |
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- .局部变量 代码, 文本型
- 代码 ＝ UTF8到文本 (读入文件 (“code-examples.ve”))
- 解释代码入口 (代码)
-
- 交互运行 ()
-
- .判断循环首 (真)
- 标准输出 (, “> ”)
- 解析命令 (标准输入 ())
- .判断循环尾 ()
-
- 返回 (0) ' 可以根据您的需要返回任意数值
-
- .子程序 解析命令
- .参数 命令, 文本型
- .局部变量 t, 文本型, 数组, "0"
- .局部变量 文件名, 文本型
- .局部变量 代码, 文本型
- ' 支持命令
- ' 「帮助」 「词法分析 some text」 「语法分析 some text」
- t ＝ 分割文本 (命令, “ ”, )
-
-
- .判断开始 (t [1] ＝ “帮助” 或 到半角 (t [1]) ＝ “?”)
- 标准输出 (, #命令行帮助)
- .判断 (t [1] ＝ “词法分析”)
- 词法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“词法分析”)))
- .判断 (t [1] ＝ “语法分析”)
- 语法分析并输出 (取文本右边 (命令, 取文本长度 (命令) － 取文本长度 (“语法分析”)))
- .判断 (t [1] ＝ “运行” 或 t [1] ＝ “run”)
- 文件名 ＝ t [2]
- 代码 ＝ UTF8到文本 (读入文件 (文件名))
- 解释代码入口 (代码)
- .判断 (t [1] ＝ “交互运行”)
- 交互运行 ()
- .默认
- 标准输出 (, “未知命令” ＋ #换行符)
- .判断结束
-
- .子程序 连接字符串, 文本型
- .参数 字符串组, 文本型, 数组
- .参数 连接词, 文本型
- .局部变量 res, 文本型, 数组
- .局部变量 i, 整数型, 数组
- .局部变量 组长度, 整数型
- res ＝ “”
- 组长度 ＝ 取数组成员数 (字符串组)
-
- .计次循环首 (组长度, i)
- res ＝ res ＋ 字符串组 [i]
- .如果真 (i ＜ 组长度)
- res ＝ res ＋ 连接词
- .如果真结束
-
- .计次循环尾 ()
- 返回 (res)
|
