scheme - petite chez 计划的清除屏幕

Question

一个困扰我的小问题。有谁知道如何在 petite chez scheme SWL 上清除屏幕？我试过 clear, cls , clean 。

提前致谢。

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 #\033)
(define CSI (list->string (list ESC #\[ )))
(define CLEAR (string-append CSI "2J"))
(display CLEAR)