home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / screen.fas < prev    next >
Text File  |  1996-07-24  |  23KB  |  531 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #14Y(00 00 00 00 00 01 D8 37 01 D9 30 E3 19 01) "SCREEN"
  3.    ("LISP")
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  6.    (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
  7.      CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
  8.      INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
  9.      WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW* READ-KEYBOARD-CHAR *NEW-WINDOW*
  10.   ))
  11. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D8 30 5D 19 01) (SPECIAL *WINDOW*)
  12.   )
  13. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "CLOS")
  14. #Y(#:TOP-LEVEL-FORM-5-1
  15.    #26Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 DA 30 55 D9 DB DC 2C 03 05 3D
  16.         19 01
  17.        )
  18.    (SPECIAL *NEW-WINDOW*) *NEW-WINDOW* "RAW:0/11/581/231/CLISP Window" VARIABLE
  19.    "This variables determines the behaviour of SCREEN:MAKE-WINDOW.
  20. If NIL, it uses *TERMINAL-IO*. If non-NIL, it should be the specification
  21. string of a special file to be OPENed, e.g. \"RAW:0/11/581/231/Window Title\"."
  22.    SYSTEM::%SET-DOCUMENTATION
  23.   )
  24. #Y(#:TOP-LEVEL-FORM-5-2
  25.    #59Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 2C 7A 01 DB DC DD DE DF E0 DD 7A 06
  26.         7A 01 2C 05 09 E2 E3 E4 E5 63 E6 D8 37 02 71 2C 7A 01 E7 62 E8 E9 6D 0A
  27.         12 2F 13 D8 37 02 31 2C 3D 19 01
  28.        )
  29.    SCREEN-CONTROLLER :DIRECT-SUPERCLASSES GENERIC-STREAM-CONTROLLER
  30.    :DIRECT-SLOTS :NAME STREAM :READERS (CONTROLLER-STREAM) :TYPE
  31.    CLOS::ENSURE-CLASS CONTROLLER-STREAM :INITFUNCTION
  32.    #Y(#:TOP-LEVEL-FORM-5-2-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  33.       #Y(#:TOP-LEVEL-FORM-5-2-1-1 #12Y(00 01 00 00 00 02 AB D8 31 3E 19 02)
  34.          STREAM
  35.         )
  36.       (T)
  37.      )
  38.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  39.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  40.   )
  41. #Y(#:TOP-LEVEL-FORM-5-3 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
  42.    CONTROLLER-MODE (1. 0. NIL NIL NIL) (0.) CLOS::DO-DEFGENERIC
  43.   )
  44. #Y(#:TOP-LEVEL-FORM-5-4 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
  45.    (SETF CONTROLLER-MODE) (2. 0. NIL NIL NIL) (0. 1.) CLOS::DO-DEFGENERIC
  46.   )
  47. #Y(#:TOP-LEVEL-FORM-5-5
  48.    #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 2C 7A 01 DB DC DD DE DF 00 79 7A 04
  49.         7A 01 2C 05 08 D8 37 02 31 2C 3D 19 01
  50.        )
  51.    TERMINAL-CONTROLLER :DIRECT-SUPERCLASSES SCREEN-CONTROLLER :DIRECT-SLOTS
  52.    :NAME STREAM :INITER
  53.    #Y(#:TOP-LEVEL-FORM-5-5-1 #10Y(00 00 00 00 00 01 0E 00 19 01) *TERMINAL-IO*)
  54.    CLOS::ENSURE-CLASS
  55.   )
  56. #Y(#:TOP-LEVEL-FORM-5-6
  57.    #99Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 2C 7A 01 DB DC DD DE DF 7A 04 DC E0
  58.         E1 E2 E3 E4 E5 E6 E7 62 D3 79 7A 0A 7A 02 2C 05 11 EA EB EC ED 63 EE D8
  59.         37 02 71 2C 7A 01 EF 62 F0 F1 6D 0A 1A 2F 1B F4 EB F5 ED 63 EE 63 37 02
  60.         71 2C D8 37 02 71 2C 7A 02 EF 62 F0 64 1E 6D 0A 1A 2F 1B D8 37 02 31 2C
  61.         3D 19 01
  62.        )
  63.    WINDOW-CONTROLLER :DIRECT-SUPERCLASSES SCREEN-CONTROLLER :DIRECT-SLOTS :NAME
  64.    STREAM :INITARGS (:STREAM) MODE :ACCESSORS (CONTROLLER-MODE) :READERS
  65.    (CONTROLLER-MODE) :WRITERS (#1=(SETF CONTROLLER-MODE)) :INITER UNKNOWN
  66.    CLOS::ENSURE-CLASS CONTROLLER-MODE :INITFUNCTION
  67.    #Y(#:TOP-LEVEL-FORM-5-6-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  68.       #Y(#:TOP-LEVEL-FORM-5-6-1-1 #12Y(00 01 00 00 00 02 AB D8 31 3E 19 02)
  69.          MODE
  70.         )
  71.       (T)
  72.      )
  73.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
  74.    (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD #1#
  75.    #Y(#:TOP-LEVEL-FORM-5-6-2 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  76.       #Y(#:TOP-LEVEL-FORM-5-6-2-1 #13Y(00 02 00 00 00 03 AB D8 AE 31 3F 19 03)
  77.          MODE
  78.         )
  79.       (T)
  80.      )
  81.    (2. 0. NIL NIL NIL NIL)
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-5-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  84.    RAW-MODE SYSTEM::REMOVE-OLD-DEFINITIONS
  85.    #Y(RAW-MODE
  86.       #26Y(00 02 00 00 00 03 AC 87 00 08 AC AC 63 2C 03 03 19 03 AC 6E 01 AC 2F
  87.            02 19 03
  88.           )
  89.       GENERIC-STREAM-P GENERIC-STREAM-CONTROLLER GENERIC-RAW-MODE
  90.       SYSTEM::TERMINAL-RAW
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-5-8 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
  93.    GENERIC-RAW-MODE (2. 0. NIL NIL NIL) (0. 1.) CLOS::DO-DEFGENERIC
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-5-9
  96.    #36Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
  97.         DE 62 DF E0 6D 0A 09 2F 0A 3D 19 01
  98.        )
  99.    GENERIC-RAW-MODE :INITFUNCTION
  100.    #Y(#:TOP-LEVEL-FORM-5-9-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  101.       #Y(#:TOP-LEVEL-FORM-5-9-1-1
  102.          #14Y(00 02 00 00 00 03 AC 6E 00 AC 2F 01 19 03) CONTROLLER-STREAM
  103.          RAW-MODE
  104.         )
  105.       (T)
  106.      )
  107.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  108.    :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  109.    CLOS::DO-DEFMETHOD
  110.   )
  111. #Y(#:TOP-LEVEL-FORM-5-10
  112.    #36Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
  113.         DE 62 DF E0 6D 0A 09 2F 0A 3D 19 01
  114.        )
  115.    GENERIC-RAW-MODE :INITFUNCTION
  116.    #Y(#:TOP-LEVEL-FORM-5-10-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  117.       #Y(#:TOP-LEVEL-FORM-5-10-1-1
  118.          #29Y(00 02 00 00 00 03 AC 6E 00 AC 9C 21 0D AD 6E 01 AD 6F 02 AD AF 2F
  119.               03 15 19 04 15 19 03
  120.              )
  121.          CONTROLLER-MODE CONTROLLER-STREAM RAW-MODE
  122.          #.(SYSTEM::GET-SETF-SYMBOL 'CONTROLLER-MODE)
  123.         )
  124.       (T)
  125.      )
  126.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS WINDOW-CONTROLLER :QUALIFIERS
  127.    :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  128.    CLOS::DO-DEFMETHOD
  129.   )
  130. #Y(#:TOP-LEVEL-FORM-5-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  131.    MAKE-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS
  132.    #Y(MAKE-WINDOW
  133.       #76Y(00 00 00 01 00 07 3A 01 02 0E 00 10 00 0E 00 1B 1E E6 2E 0D 14 2E 0F
  134.            3E 11 19 02 0E 00 1A 27 DC DD AC DE DF E0 E1 E2 6D 03 0B E4 B1 32 06
  135.            1F D9 DA 6A 00 AA 8D 18 64 AA 8D 1C 04 AA 8E 09 60 6A 00 DB 37 03 30
  136.            FB F6 2C 03 0D 1A 48
  137.           )
  138.       *NEW-WINDOW* WINDOW-CONTROLLER :STREAM :IO TYPE-ERROR :DATUM
  139.       :EXPECTED-TYPE (OR STREAM (OR PATHNAME STRING)) "~A~%The value is: ~S"
  140.       "~A~%Der Wert ist: ~S" "~A~%La valeur est : ~S" SYSTEM::LANGUAGE
  141.       "Der Wert von *NEW-WINDOW* muß einem der Typen STREAM, (OR PATHNAME STRING) angehören."
  142.       MAKE-INSTANCE TERMINAL-CONTROLLER MAKE-GENERIC-STREAM
  143.   )  )
  144. #Y(#:TOP-LEVEL-FORM-5-12
  145.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  146.         0A 09 2F 0A 3D 19 01
  147.        )
  148.    GENERIC-STREAM-READ-CHAR :INITFUNCTION
  149.    #Y(#:TOP-LEVEL-FORM-5-12-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  150.       #Y(#:TOP-LEVEL-FORM-5-12-1-1
  151.          #19Y(00 01 00 00 00 02 AB 62 2F 00 AB 6E 01 37 03 30 7C 19 02)
  152.          GENERIC-RAW-MODE CONTROLLER-STREAM
  153.         )
  154.       (T)
  155.      )
  156.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  157.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  158.    CLOS::DO-DEFMETHOD
  159.   )
  160. #Y(#:TOP-LEVEL-FORM-5-13
  161.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  162.         0A 09 2F 0A 3D 19 01
  163.        )
  164.    GENERIC-STREAM-LISTEN :INITFUNCTION
  165.    #Y(#:TOP-LEVEL-FORM-5-13-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  166.       #Y(#:TOP-LEVEL-FORM-5-13-1-1
  167.          #22Y(00 01 00 00 00 02 AB 62 2F 00 AB 6E 01 8B 7F 03 C6 19 02 C5 19 02
  168.              )
  169.          GENERIC-RAW-MODE CONTROLLER-STREAM 0. 1.
  170.         )
  171.       (T)
  172.      )
  173.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  174.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  175.    CLOS::DO-DEFMETHOD
  176.   )
  177. #Y(#:TOP-LEVEL-FORM-5-14
  178.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  179.         0A 09 2F 0A 3D 19 01
  180.        )
  181.    GENERIC-STREAM-CLEAR-INPUT :INITFUNCTION
  182.    #Y(#:TOP-LEVEL-FORM-5-14-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  183.       #Y(#:TOP-LEVEL-FORM-5-14-1-1
  184.          #18Y(00 01 00 00 00 02 AB 62 2F 00 AB 6E 01 30 81 02 19 02)
  185.          GENERIC-RAW-MODE CONTROLLER-STREAM
  186.         )
  187.       (T)
  188.      )
  189.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  190.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  191.    CLOS::DO-DEFMETHOD
  192.   )
  193. #Y(#:TOP-LEVEL-FORM-5-15
  194.    #36Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
  195.         DE 62 DF E0 6D 0A 09 2F 0A 3D 19 01
  196.        )
  197.    GENERIC-STREAM-WRITE-CHAR :INITFUNCTION
  198.    #Y(#:TOP-LEVEL-FORM-5-15-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  199.       #Y(#:TOP-LEVEL-FORM-5-15-1-1
  200.          #14Y(00 02 00 00 00 03 AB AD 6E 00 30 8C 19 03) CONTROLLER-STREAM
  201.         )
  202.       (T)
  203.      )
  204.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  205.    :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  206.    CLOS::DO-DEFMETHOD
  207.   )
  208. #Y(#:TOP-LEVEL-FORM-5-16
  209.    #46Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 63 37 02 71 2C 63 37
  210.         02 71 2C 63 37 02 71 2C 7A 04 DE 62 DF E0 6D 0A 09 2F 0A 3D 19 01
  211.        )
  212.    GENERIC-STREAM-WRITE-STRING :INITFUNCTION
  213.    #Y(#:TOP-LEVEL-FORM-5-16-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  214.       #Y(#:TOP-LEVEL-FORM-5-16-1-1
  215.          #24Y(00 04 00 00 00 05 AD AD AE AE 72 02 35 70 50 AF 6E 00 37 02 30 8D
  216.               19 05
  217.              )
  218.          CONTROLLER-STREAM
  219.         )
  220.       (T)
  221.      )
  222.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  223.    :SIGNATURE (4. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  224.    CLOS::DO-DEFMETHOD
  225.   )
  226. #Y(#:TOP-LEVEL-FORM-5-17
  227.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  228.         0A 09 2F 0A 3D 19 01
  229.        )
  230.    GENERIC-STREAM-FINISH-OUTPUT :INITFUNCTION
  231.    #Y(#:TOP-LEVEL-FORM-5-17-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  232.       #Y(#:TOP-LEVEL-FORM-5-17-1-1 #13Y(00 01 00 00 00 02 AB 6E 00 30 91 19 02)
  233.          CONTROLLER-STREAM
  234.         )
  235.       (T)
  236.      )
  237.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  238.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  239.    CLOS::DO-DEFMETHOD
  240.   )
  241. #Y(#:TOP-LEVEL-FORM-5-18
  242.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  243.         0A 09 2F 0A 3D 19 01
  244.        )
  245.    GENERIC-STREAM-FORCE-OUTPUT :INITFUNCTION
  246.    #Y(#:TOP-LEVEL-FORM-5-18-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  247.       #Y(#:TOP-LEVEL-FORM-5-18-1-1 #13Y(00 01 00 00 00 02 AB 6E 00 30 92 19 02)
  248.          CONTROLLER-STREAM
  249.         )
  250.       (T)
  251.      )
  252.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  253.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  254.    CLOS::DO-DEFMETHOD
  255.   )
  256. #Y(#:TOP-LEVEL-FORM-5-19
  257.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  258.         0A 09 2F 0A 3D 19 01
  259.        )
  260.    GENERIC-STREAM-CLEAR-OUTPUT :INITFUNCTION
  261.    #Y(#:TOP-LEVEL-FORM-5-19-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  262.       #Y(#:TOP-LEVEL-FORM-5-19-1-1 #13Y(00 01 00 00 00 02 AB 6E 00 30 93 19 02)
  263.          CONTROLLER-STREAM
  264.         )
  265.       (T)
  266.      )
  267.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  268.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  269.    CLOS::DO-DEFMETHOD
  270.   )
  271. #Y(#:TOP-LEVEL-FORM-5-20
  272.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  273.         0A 09 2F 0A 3D 19 01
  274.        )
  275.    GENERIC-STREAM-CLOSE :INITFUNCTION
  276.    #Y(#:TOP-LEVEL-FORM-5-20-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  277.       #Y(#:TOP-LEVEL-FORM-5-20-1-1
  278.          #15Y(00 01 00 00 00 02 AB 6E 00 62 2F 01 02 19 02) CONTROLLER-STREAM
  279.          RAW-MODE
  280.         )
  281.       (T)
  282.      )
  283.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  284.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  285.    CLOS::DO-DEFMETHOD
  286.   )
  287. #Y(#:TOP-LEVEL-FORM-5-21
  288.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  289.         0A 09 2F 0A 3D 19 01
  290.        )
  291.    GENERIC-STREAM-CLOSE :INITFUNCTION
  292.    #Y(#:TOP-LEVEL-FORM-5-21-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  293.       #Y(#:TOP-LEVEL-FORM-5-21-1-1
  294.          #15Y(00 01 00 00 00 02 AB 6E 00 37 01 31 7D 19 02) CONTROLLER-STREAM
  295.         )
  296.       (T)
  297.      )
  298.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS WINDOW-CONTROLLER :QUALIFIERS
  299.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  300.    CLOS::DO-DEFMETHOD
  301.   )
  302. #Y(#:TOP-LEVEL-FORM-5-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  303.    STREAM-CHARS SYSTEM::REMOVE-OLD-DEFINITIONS
  304.    #Y(STREAM-CHARS
  305.       #29Y(00 01 00 00 00 02 62 1A 05 AA 83 01 16 01 AC 37 03 70 80 91 00 73 16
  306.            01 AA 31 4A 19 03
  307.   )  )    )
  308. #Y(#:TOP-LEVEL-FORM-5-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  309.    PARSE-CSI SYSTEM::REMOVE-OLD-DEFINITIONS
  310.    #Y(PARSE-CSI
  311.       #97Y(00 01 00 00 00 02 01 02 AD D8 72 01 01 23 01 1D AD D8 72 01 01 24 03
  312.            10 AD 71 48 DA 90 01 30 08 AD DA 72 01 01 23 04 08 DE AE 32 01 1E DA
  313.            1A 18 DD 1A 15 AB 83 02 AA AF 71 48 90 01 2F 0A AE AB 72 01 01 24 07
  314.            02 84 00 AE AB 37 02 63 30 83 41 02 69 01 69 01 1B 5C AE AB 37 01 71
  315.            46 9E 5C 19 05
  316.           )
  317.       0. #\Csi 1. #\Escape #\[ 2. "Not a CSI sequence: ~S" #\;
  318.   )  )
  319. #Y(#:TOP-LEVEL-FORM-5-24 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  320.    READ-CSI-RESPONSE SYSTEM::REMOVE-OLD-DEFINITIONS
  321.    #Y(READ-CSI-RESPONSE
  322.       #54Y(00 03 00 00 00 04 AD 30 81 AC AE 37 02 30 8D AD 88 00 13 14 AA DA 71
  323.            2D 6E 03 AD 93 01 37 04 8C 38 09 9B 5B 19 06 D9 AE 32 01 1E DC DD DE
  324.            6D 03 07 B0 AD 32 02 1E
  325.           )
  326.       STREAM-CHARS "Got no response from ~S." STRING PARSE-CSI
  327.       "Got bad response from ~S: ~S" "Von ~S schlechte Antwort erhalten: ~S"
  328.       "Mauvaise réponse par ~S : ~S" SYSTEM::LANGUAGE
  329.   )  )
  330. #Y(#:TOP-LEVEL-FORM-5-25
  331.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 3D 19 01)
  332.    WINDOW-SIZE SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION
  333.    "Reports window size.
  334. Will flush pending characters!"
  335.    SYSTEM::%SET-DOCUMENTATION
  336.    #Y(WINDOW-SIZE
  337.       #47Y(00 01 00 00 00 02 AB 88 00 13 AB 6E 01 71 2B DA 8A 03 0A AB 63 2F 04
  338.            AB 6E 01 2E 05 F7 AB DE DF 6D 03 08 93 00 9C 5B 77 AA 96 02 3F 02 19
  339.            05
  340.           )
  341.       GENERIC-STREAM-P GENERIC-STREAM-CONTROLLER
  342.       #.(FIND-CLASS 'SCREEN-CONTROLLER) CLOS::SUBCLASSP RAW-MODE
  343.       CONTROLLER-STREAM #.(COERCE '(#\Csi #\0 #\Space #\q) 'STRING) "r"
  344.       READ-CSI-RESPONSE
  345.   )  )
  346. #Y(#:TOP-LEVEL-FORM-5-26
  347.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 3D 19 01)
  348.    WINDOW-CURSOR-POSITION SYSTEM::REMOVE-OLD-DEFINITIONS FUNCTION
  349.    "Reports cursor position, report origin as 0;0.
  350. Will flush pending characters!"
  351.    SYSTEM::%SET-DOCUMENTATION
  352.    #Y(WINDOW-CURSOR-POSITION
  353.       #48Y(00 01 00 00 00 02 AB 88 00 13 AB 6E 01 71 2B DA 8A 03 0A AB 63 2F 04
  354.            AB 6E 01 2E 05 F7 AB DE DF 6D 03 08 9B 5B 77 71 98 93 01 71 98 3F 02
  355.            19 03
  356.           )
  357.       GENERIC-STREAM-P GENERIC-STREAM-CONTROLLER
  358.       #.(FIND-CLASS 'SCREEN-CONTROLLER) CLOS::SUBCLASSP RAW-MODE
  359.       CONTROLLER-STREAM #.(COERCE '(#\Csi #\6 #\n) 'STRING) "R"
  360.       READ-CSI-RESPONSE
  361.   )  )
  362. #Y(#:TOP-LEVEL-FORM-5-27 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  363.    SET-WINDOW-CURSOR-POSITION SYSTEM::REMOVE-OLD-DEFINITIONS
  364.    #Y(SET-WINDOW-CURSOR-POSITION
  365.       #19Y(00 03 00 00 00 04 AD D8 D9 95 05 95 05 2C 05 02 3D 19 04)
  366.       #Y(SET-WINDOW-CURSOR-POSITION-1
  367.          #35Y(00 04 00 00 01 1A AE B0 30 88 AF 01 06 B4 2C 08 00 D9 B0 30 8C AF
  368.               01 06 B3 2C 08 00 DA B0 30 8C 9C 19 06
  369.              )
  370.          SYSTEM::DO-FORMAT-DECIMAL #\; #\H
  371.         )
  372.       #\Csi FORMAT
  373.   )  )
  374. #Y(#:TOP-LEVEL-FORM-5-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  375.    CLEAR-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS
  376.    #Y(CLEAR-WINDOW #13Y(00 01 00 00 00 02 D8 AC 30 8C 3D 19 02) #\Page)
  377.   )
  378. #Y(#:TOP-LEVEL-FORM-5-29 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  379.    CLEAR-WINDOW-TO-EOT SYSTEM::REMOVE-OLD-DEFINITIONS
  380.    #Y(CLEAR-WINDOW-TO-EOT #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  381.       #.(COERCE '(#\Csi #\J) 'STRING)
  382.   )  )
  383. #Y(#:TOP-LEVEL-FORM-5-30 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  384.    CLEAR-WINDOW-TO-EOL SYSTEM::REMOVE-OLD-DEFINITIONS
  385.    #Y(CLEAR-WINDOW-TO-EOL #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  386.       #.(COERCE '(#\Csi #\K) 'STRING)
  387.   )  )
  388. #Y(#:TOP-LEVEL-FORM-5-31 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  389.    DELETE-WINDOW-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
  390.    #Y(DELETE-WINDOW-LINE #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  391.       #.(COERCE '(#\Csi #\M) 'STRING)
  392.   )  )
  393. #Y(#:TOP-LEVEL-FORM-5-32 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  394.    INSERT-WINDOW-LINE SYSTEM::REMOVE-OLD-DEFINITIONS
  395.    #Y(INSERT-WINDOW-LINE #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  396.       #.(COERCE '(#\Csi #\L) 'STRING)
  397.   )  )
  398. #Y(#:TOP-LEVEL-FORM-5-33 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  399.    HIGHLIGHT-ON SYSTEM::REMOVE-OLD-DEFINITIONS
  400.    #Y(HIGHLIGHT-ON #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  401.       #.(COERCE '(#\Csi #\1 #\m) 'STRING)
  402.   )  )
  403. #Y(#:TOP-LEVEL-FORM-5-34 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  404.    HIGHLIGHT-OFF SYSTEM::REMOVE-OLD-DEFINITIONS
  405.    #Y(HIGHLIGHT-OFF #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  406.       #.(COERCE '(#\Csi #\m) 'STRING)
  407.   )  )
  408. #Y(#:TOP-LEVEL-FORM-5-35 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  409.    WINDOW-CURSOR-ON SYSTEM::REMOVE-OLD-DEFINITIONS
  410.    #Y(WINDOW-CURSOR-ON #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  411.       #.(COERCE '(#\Csi #\Space #\p) 'STRING)
  412.   )  )
  413. #Y(#:TOP-LEVEL-FORM-5-36 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  414.    WINDOW-CURSOR-OFF SYSTEM::REMOVE-OLD-DEFINITIONS
  415.    #Y(WINDOW-CURSOR-OFF #15Y(00 01 00 00 00 02 D8 AC 37 02 30 8D 3D 19 02)
  416.       #.(COERCE '(#\Csi #\0 #\Space #\p) 'STRING)
  417.   )  )
  418. #Y(#:TOP-LEVEL-FORM-5-37 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 3D 19 01)
  419.    READ-KEYBOARD-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS
  420.    #Y(READ-KEYBOARD-CHAR
  421.       #178Y(00 01 00 00 00 02 AB 63 2F 00 AB 88 01 06 AB 6E 02 2E 03 F7 AB 37
  422.             03 70 7C AA DC 8F 01 07 1D E6 AB 70 2F E7 90 02 31 11 AA 23 10 0D
  423.             AA 23 11 09 AA 23 12 05 AA 24 13 80 6A 15 19 02 01 02 1A 23 CB 1A
  424.             05 AA 91 02 79 CC 14 37 03 30 BE 5B 1D 80 50 C7 19 05 C7 19 05 CD
  425.             19 05 C7 19 05 CE 1A 30 AA 83 01 AE 37 03 7F 7C 00 DD AB DE 8F 02
  426.             0B 70 AA DF 8F 01 08 4D 92 01 5B 93 01 23 06 59 93 01 37 01 8C 24
  427.             55 9C 5B 1C 54 9C 5B 77 24 0C 0F D0 14 93 02 37 01 70 24 72 02 35
  428.             30 30 19 05 C7 19 05 19 05 EC AB 70 2F 72 02 35 70 30 ED 63 30 33
  429.             19 03
  430.            )
  431.       RAW-MODE GENERIC-STREAM-P GENERIC-STREAM-CONTROLLER CONTROLLER-STREAM
  432.       #\Csi #\Space #\? #\~
  433.       ((#\A . #\SUPER-HYPER-Code20) (#\@ . #\SUPER-HYPER-Code22))
  434.       ((#\A . #\HYPER-Code24) (#\B . #\HYPER-Code18) (#\C . #\HYPER-Code22)
  435.         (#\D . #\HYPER-Code20) (#\S . #\SUPER-HYPER-Code18)
  436.         (#\T . #\SUPER-HYPER-Code24)
  437.       )
  438.       #\HYPER-Code28 2113. #\1 3137. 1. 26. #\Newline #\Backspace #\Tab
  439.       #\Return 64. :CONTROL
  440.   )  )
  441. #Y(#:TOP-LEVEL-FORM-5-38
  442.    #37Y(00 00 00 00 00 01 D8 D9 DA 37 02 71 2C 7A 01 DB DC DD DE DF 00 79 7A 04
  443.         7A 01 2C 05 08 D8 37 02 31 2C 3D 19 01
  444.        )
  445.    KEYBOARD-CONTROLLER :DIRECT-SUPERCLASSES TERMINAL-CONTROLLER :DIRECT-SLOTS
  446.    :NAME ORIG-MODE :INITER
  447.    #Y(#:TOP-LEVEL-FORM-5-38-1 #13Y(00 00 00 00 00 01 6A 00 63 2F 01 19 01)
  448.       *TERMINAL-IO* RAW-MODE
  449.      )
  450.    CLOS::ENSURE-CLASS
  451.   )
  452. #Y(#:TOP-LEVEL-FORM-5-39
  453.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  454.         0A 09 2F 0A 3D 19 01
  455.        )
  456.    GENERIC-STREAM-READ-CHAR :INITFUNCTION
  457.    #Y(#:TOP-LEVEL-FORM-5-39-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  458.       #Y(#:TOP-LEVEL-FORM-5-39-1-1 #13Y(00 01 00 00 00 02 AB 6E 00 2E 01 19 02)
  459.          CONTROLLER-STREAM READ-KEYBOARD-CHAR
  460.         )
  461.       (T)
  462.      )
  463.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS KEYBOARD-CONTROLLER :QUALIFIERS
  464.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  465.    CLOS::DO-DEFMETHOD
  466.   )
  467. #Y(#:TOP-LEVEL-FORM-5-40
  468.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  469.         0A 09 2F 0A 3D 19 01
  470.        )
  471.    GENERIC-STREAM-LISTEN :INITFUNCTION
  472.    #Y(#:TOP-LEVEL-FORM-5-40-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  473.       #Y(#:TOP-LEVEL-FORM-5-40-1-1
  474.          #22Y(00 01 00 00 00 02 AB 63 2F 00 AB 6E 01 8B 7F 03 C6 19 02 C5 19 02
  475.              )
  476.          GENERIC-RAW-MODE CONTROLLER-STREAM 0. 1.
  477.         )
  478.       (T)
  479.      )
  480.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  481.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  482.    CLOS::DO-DEFMETHOD
  483.   )
  484. #Y(#:TOP-LEVEL-FORM-5-41
  485.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  486.         0A 09 2F 0A 3D 19 01
  487.        )
  488.    GENERIC-STREAM-CLEAR-INPUT :INITFUNCTION
  489.    #Y(#:TOP-LEVEL-FORM-5-41-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  490.       #Y(#:TOP-LEVEL-FORM-5-41-1-1
  491.          #18Y(00 01 00 00 00 02 AB 63 2F 00 AB 6E 01 30 81 02 19 02)
  492.          GENERIC-RAW-MODE CONTROLLER-STREAM
  493.         )
  494.       (T)
  495.      )
  496.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SCREEN-CONTROLLER :QUALIFIERS
  497.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  498.    CLOS::DO-DEFMETHOD
  499.   )
  500. #Y(#:TOP-LEVEL-FORM-5-42
  501.    #31Y(00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
  502.         0A 09 2F 0A 3D 19 01
  503.        )
  504.    GENERIC-STREAM-CLOSE :INITFUNCTION
  505.    #Y(#:TOP-LEVEL-FORM-5-42-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
  506.       #Y(#:TOP-LEVEL-FORM-5-42-1-1
  507.          #18Y(00 01 00 00 00 02 AB D8 71 3E AC D9 71 3E 2F 02 19 02) STREAM
  508.          ORIG-MODE RAW-MODE
  509.         )
  510.       (T)
  511.      )
  512.    :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS KEYBOARD-CONTROLLER :QUALIFIERS
  513.    :SIGNATURE (1. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
  514.    CLOS::DO-DEFMETHOD
  515.   )
  516. #Y(#:TOP-LEVEL-FORM-5-43 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  517.    SYSTEM::DO-WITH-KEYBOARD SYSTEM::REMOVE-OLD-DEFINITIONS
  518.    #Y(SYSTEM::DO-WITH-KEYBOARD
  519.       #29Y(00 01 00 00 00 02 D8 6E 01 2E 02 10 03 52 04 B0 35 00 53 6A 03 37 01
  520.            31 7D 54 11 19 02
  521.           )
  522.       KEYBOARD-CONTROLLER MAKE-INSTANCE MAKE-GENERIC-STREAM *KEYBOARD-INPUT*
  523.   )  )
  524. #Y(#:TOP-LEVEL-FORM-6
  525.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-WINDOW
  526.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  527.    #Y(WITH-WINDOW
  528.       #21Y(00 01 00 01 00 08 94 02 D8 D9 DA DB 9F 79 C7 7B 02 60 03 19 04) LET
  529.       ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  530.   )  )
  531.