清除娇小切斯方案的屏幕

Question

一个困扰我的小问题。有谁知道如何清除娇小的 chez 方案 SWL 的屏幕？我已经尝试过清除，cls，干净。

提前谢谢。

Answer 1

本文档 http://scheme.com/csug8/use.html 说：

^L-^L   clear screen and redisplay entry

如果要从程序中清除屏幕，请发送终端使用的"清除屏幕"代码。在 https://github.com/tonyg/racket-ansi/blob/master/ansi.rkt 您会看到发送的代码是 CSI "2J"，其中 CSI 代表 \033[

以下是如何从程序中执行此操作（在OS X终端的Petite中进行了测试）。

(define ESC #33)
(define CSI (list->string (list ESC #[ )))
(define CLEAR (string-append CSI "2J"))
(display CLEAR)