为了那一亿美金的 AI 项目！

# 为了那一亿美金的 AI 项目！

标题不是说笑：demo 的开头就写着「一亿美金级 AI 代码，请勿轻易扩散，偷偷享用」。只是这一亿美金买到的东西，是一个 63 行的正则脚本，加上解释器里刚补上的一个读标准输入的小内建。

Fun 一直有一个短到有点可爱的输出运算符：`?.`，把表达式写出一行。读的一端一直是空的 —— 解释器能在自己的语法里打印，却读不了一次标准输入。上游 `b64721c` 在 `libase.pas` 里补上了 `input` 内建，`a3e3917` 又把 Windows 一侧收干净。这一篇讲这个内建的设计，和为它写的那个「AI」demo。

## 一、三种读法，由接收者字符串选

`input` 注册在 `CLbase` 上，同一个内建**由接收者字符串决定行为**：`exp.asStr` 就是那个接收者，`'line'`／`'char'`／`'all'` 各自进一个分支。

```fun
var line = 'line'.input();      # 读一行，行尾去掉
var key  = 'char'.input();      # 读一个按键（终端上为原始模式）
var rest = 'all'.input();       # 读到输入结束
```

可选参数是提示串，位置传参或命名 `prompt:` 都行；它经 `env.echo` 写出，因此和 `?.` 一样服从运行器的日志／GUI 设置：

```fun
var q = 'line'.input('Q: ');
```

## 二、`''` 和 nil 相等，所以要有 ok 出参

`'line'` 与 `'char'` 在输入结束时返回 `nil`，`'all'` 只是把剩下的都给你（没有则 `''`）。麻烦在于 **Fun 把 `''` 和 nil 判为相等**：一个空行和一次 EOF，从返回值上看不出区别。只靠返回值，读循环没法知道自己该不该停。

于是内建留了第二个出参：传一个变量（位置第二或命名 `ok:`），它收到「本次是否真读到东西」。demo 里的循环正是这么写的：

```fun
var ok;
var q;

loop
  q = 'line'.input('Q: ', ok: ok);
  exit when not ok or q = '';   # 空行 / Ctrl-D 都会结束
  ?. 'A: ' & reply(q);
end loop;
```

读放在循环顶部，既不需要循环前预读一行，末尾也不用再补一次。

## 三、为什么绕开 RTL 的文本设备

最省事的实现是让 RTL 的 `ReadLn` 去读。它没有这么做，原因在平台差异：

- **Linux** 直接从 fd 0 逐字节读，三种模式都成立，UTF-8 终端原样透传。`char` 靠 `termios` 把终端切进原始模式（关掉 `ICANON`、`ECHO`，设 `VMIN=1`、`VTIME=0`），读到一个字节后立刻 `tcsetattr` 恢复；`line` 保持规范模式，回显与行编辑仍交给终端。
- **Windows** 保持简单，只走 RTL 的 `ReadLn`：文本按本构建的字符串编码返回（ANSI，Delphi 2009 为 Unicode），一个多字节字符不会被拆成半个。`char` 与 `all` 在那边等同 `line`。

## 四、demo：一亿美金的 AI

`fun/demo/input.fun` 就是那个「一亿美金的 AI」：63 行，读中文问题，用几条正则重写后回答。规则只有三条，其中动词重叠是**按结构匹配**、不靠词表：

```fun
fun reply(q)
  result = q.replace(/(.{1,3})(不|没)\1/g, '$1');           # A不A / A没A -> A
  result = result.replace(/你|我|您/g, m -> m.value() = '我' and '你' or '我');
  result = result.replace(/(吗|吧|呢)?(\?|？)/g, '!');       # 疑问句尾 -> !
end fun;
```

于是 `你会聊天吗?` → `我会聊天!`，`你有没有钱?` → `我有钱!`，称呼也跟着翻。

两个实现细节值得记一下：

- 内置的 PCRE 没编 UTF-8 支持，模式是在**字节**上跑的；`.{1,3}` 对 ASCII（1 字节）、GBK（2 字节）、UTF-8 汉字（3 字节）都恰好匹配一个字符。但多字节字面量必须用交替，不能塞进 `[...]` 字符类 —— 字符类会把它们的字节拆开、错位。
- 单行替换的回调是箭头 lambda；你／我／您的互换用了 `cond and a or b` 这个 if-else 惯用法，条件真则取前者，否则取后者。

脚本开头还有一段免责声明，中英各一份：

```text
#   一亿美金级 AI 代码,请勿轻易扩散,偷偷享用;
#   倘若有人问起,就说你只是随手敲了两行正则。
```

## 五、跑法与验证

交互式跑：

```bash
fun/funcmd fun/demo/input.fun
```

也可以当过滤器用，管道进去就行：

```bash
printf '你会聊天吗?\n' | fun/funcmd fun/demo/input.fun
```

验证：Linux x86_64 上三种模式都跑通 —— 管道逐行喂问题得到预期回答，`char` 一次一个按键（换行也算一个），`all` 取走余下整个流，空行或 Ctrl-D 结束会话；作者提交说明里另记了真实终端（pseudo-terminal）上的原始单键检查。完整回归 `run-linux-regression.sh` 87/88，唯一未过的是 `input-console.sh` 的本地快照：它在之后几次 demo 文案改动（提示语、空行处理）后没重新生成，脚本的实际输出是对的。

一个 Windows 上的坑写在 demo 注释里：GBK 控制台交回来的是 GBK 字节，脚本里没有可移植的切换办法（试过 `'defaultCodePage'.set(65001)`，对这次读取没有影响）。要么把文件存成 ANSI/GBK 再跑，要么用 `funu.exe`。Linux 控制台本来就是 UTF-8，不用操心。

## 结语

读进一行是脚本语言第一次真正碰到终端的地方，难的不是那个 `while`，而是语言自己的不变量：Fun 里 `'' = nil`，于是「空行」和「没有」在返回值上塌成了一件事。解法不是把这两个值分开（那是动语言根基），而是给读循环一个显式的出参 (`ok`)，让它能确认到底读到了没有。写终端交互的人迟早都会撞上这堵墙，早点用一个变量把它标清楚，比事后猜 EOF 便宜得多。

至于那「一亿美金」—— 它当然只值两行正则。但一个能读终端的解释器，确实让这份脚本从「只会打印」变成了「能对话」，这个关子卖得不算亏。