Коя команда може да се използва за изчистване на екрана в CLISP?

Като например cls за cmd.exe. Много ме дразни, ако не мога да направя това.


person Thomson    schedule 03.02.2011    source източник


Отговори (7)


Можете да използвате screen:clear-window, за да направите това:

(screen:with-window (screen:clear-window screen:*window*))

За повече информация вижте документацията на екран. Също така имайте предвид, че тези функции са специфични за clipsp.

person sepp2k    schedule 03.02.2011

Това не работи за мен, но това (придобито от връзката)

(screen:clear-window (screen:make-window))
person Rob    schedule 11.06.2013
comment
Използвам clisp на Mac и този отговор работи за мен. - person Bilbo Baggins; 01.10.2016

В зависимост от това какъв терминал използвате (поддръжка за ANSI контролни последователности, например на повечето *nix), можете да опитате:

(defun cls()
  (format t "~A[H~@*~A[J" #\escape))

След това го наречете:

(cls)
person automaton    schedule 22.07.2014

ако изпълнявате clisp в emacs

C-c M-o

което разбира се е така

Control-C Alt-o  -or-
Control-C Meta-o

това е клавиатурното свързване по подразбиране за извикване на "изчистване на буфера" от менюто "repl".

person miercoledi    schedule 23.07.2013
comment
Това не е подходящ отговор, защото не изчиства програмно екрана от кода lisp/clisp. - person francogrex; 15.02.2020

КЛИСП ПОД ПРОЗОРЦИ

(ext:run-shell-command "cls")

(defun cls () (ext:run-shell-command "cls") )

след това пишете в отговора

(cls) и готово

person Sai    schedule 03.06.2019
comment
Можете ли също да добавите обяснение как това разрешава проблема? - person Nilambar Sharma; 03.06.2019

(цикъл за x от 1 до 1400 do (princ)
)

person user3058990    schedule 06.03.2021
comment
Разбира се, можете да промените 1400 на произволен номер, който най-много ви подхожда - person user3058990; 06.03.2021

Nilambar това е за clisp 2.49, работещ под windows

Когато учите като мен, правете много тестове, опити, грешки, прекъсване и т.н. и екранът на repl или интерпретатор е кочина на тези опити и е трудно за начинаещия да намери резултатите за нови опити, след което пишете (ext:run- shell-comand "cls") и екранът repl clean it и подканата отиват в горния ляв ъгъл.

person Sai    schedule 03.06.2019
comment
Здравей Сай. Вие отговаряте на коментара в друг отговор. Моля, редактирайте първия си отговор или използвайте коментарите към отговора, за да дадете повече информация. - person Diego Malone; 04.06.2019