; Le←Lisp version 15.2 : compilation du terminal virtuel : sun-nic (setq #:sys-package:tty '#:tty:sun-nic) (defvar #:tty:sun-nic:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:sun-nic:ymax 33) (defvar #:tty:ymax 33) ; compatibilite' v15 (de #:tty:sun-nic:tycursor (col line) (tyo 27 91) (incr line) (incr col) (tyod line 0) (tyo 59) (tyod col 0) (tyo 72)) (de #:tty:sun-nic:tycls () (tyo 12)) (de #:tty:sun-nic:tycleol () (tyo 27 91 75)) (de #:tty:sun-nic:tycleos () (tyo 27 91 74)) (de #:tty:sun-nic:tydelch () (tyo 27 91 80)) (de #:tty:sun-nic:tyinsln () (tyo 27 91 76)) (de #:tty:sun-nic:tydelln () (tyo 27 91 77)) (de #:tty:sun-nic:tyattrib (x) (if x (tyo 27 91 55 109) (tyo 27 91 109))) (defvar #:tty:sun-nic:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 ; ** #:tty:termcap : sun-nic : ne sait pas faire : tyinsch (de #:tty:sun-nic:typrologue () (#:tty:sun-nic:tycls)) (de #:tty:sun-nic:tyepilogue () (tycursor 0 (sub1 #:tty:sun-nic:ymax))) (defvar #:tty:sun-nic:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15