清除小型chez计划的屏幕

Question

困扰我的一个小问题。 有谁知道如何在小型chez方案SWL上清除屏幕？ 我试过清楚，清洁，干净。

提前致谢。

Answer 1

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

^L-^L   clear screen and redisplay entry

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

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

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