【发布时间】:2015-01-19 15:07:52
【问题描述】:
一个困扰我的小问题。 有谁知道如何在 petite chez scheme SWL 上清除屏幕? 我试过 clear, cls , clean 。
提前致谢。
【问题讨论】:
标签: scheme chez-scheme
一个困扰我的小问题。 有谁知道如何在 petite chez scheme SWL 上清除屏幕? 我试过 clear, cls , clean 。
提前致谢。
【问题讨论】:
标签: scheme chez-scheme
这份文件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)
【讨论】: