home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / tiexplorer.zip / vtckey.lsp < prev    next >
Text File  |  1986-09-22  |  3KB  |  75 lines
  1.  
  2. ;;; -*- Mode: Lisp; Package: User; Base: 10.; Patch-File: T -*-
  3.  
  4. ;;;                           RESTRICTED RIGHTS LEGEND
  5.  
  6. ;;;Use, duplication, or disclosure by the Government is subject to
  7. ;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
  8. ;;;Technical Data and Computer Software clause at 52.227-7013.
  9. ;;;
  10. ;;;                     TEXAS INSTRUMENTS INCORPORATED.
  11. ;;;                              P.O. BOX 2909
  12. ;;;                           AUSTIN, TEXAS 78769
  13. ;;;                                 MS 2151
  14. ;;;
  15. ;;; Copyright (c) 1986, Texas Instruments Incorporated.  All rights reserved.
  16.  
  17. ;;; Written 8/07/86 13:42:03 by FORD,
  18. ;;; Reason: Commented out check for Keypad-mode in cursor key methods.
  19. ;;; It doesn't appear as if cursor-key mode and keypad-mode
  20. ;;; should be connected.               Steve Ford 8-7-86
  21. ;;; while running on D from band LOD1
  22. ;;; with System 2.79, Compiler 2.7, File System 2.1, Universal Command Loop 2.0, Window System 2.10, Input Editor 2.0, ZMACS 2.10, Error Handler 2.2, Suggestions 2.22, Debug Utilities 2.12, Explorer-Net 2.7, Telnet 2.2, Vt100 2.1, File Server 2.0, Net-Config 2.4, Font Editor 2.2, Mailer 2.7, Mail-Reader 2.5, Streamer-Tape 2.20, Local-File 2.31, System-Log 2.3, Serial-Parallel 2.0, Printer 2.6, Glossary 2.0, IMAGEN 2.3, NVRAM 2.3, User Profile Utility 2.1, UCODE-DEPENDENT 2.17, microcode 310, REL 2.1 MINPROD.
  23.  
  24.  
  25.  
  26. #!Z
  27. ; From file PROCESS-ESCAPE-SEQUENCE.LISP#> VT100; F:
  28. #10R TELNET#:
  29. (COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
  30.                          (SI:LISP-MODE :ZETALISP)
  31.                          (*READTABLE* SI:STANDARD-READTABLE)
  32.                          (SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
  33.   (COMPILER#:PATCH-SOURCE-FILE "SYS: VT100; PROCESS-ESCAPE-SEQUENCE.#"
  34.  
  35.  
  36.  
  37. (DEFMETHOD (vt100-escape-sequence-mixin :AUXILIARY-UP) ()
  38.   (cond (nil                                ;(and keypad-mode process-ch?)
  39.      (send self ':applications-mode)
  40.      (send self ':net-output #/A))
  41.     (t
  42.      (send self ':net-output #\escape)
  43.      (send self ':net-output #/[)
  44.      (send self ':net-output #/A))))
  45.  
  46. (DEFMETHOD (vt100-escape-sequence-mixin :AUXILIARY-DOWN) ()
  47.   (cond (nil                                ;(and keypad-mode process-ch?)
  48.      (send self ':applications-mode)
  49.      (send self ':net-output #/B))
  50.     (t
  51.      (send self ':net-output #\escape)
  52.      (send self ':net-output #/[)
  53.      (send self ':net-output #/B))))
  54.  
  55. (DEFMETHOD (vt100-escape-sequence-mixin :AUXILIARY-RIGHT) ()
  56.   (cond (nil                                ;(and keypad-mode process-ch?)
  57.      (send self ':applications-mode)
  58.      (send self ':net-output #/C))
  59.     (t
  60.      (send self ':net-output #\escape)
  61.      (send self ':net-output #/[)
  62.      (send self ':net-output #/C))))
  63.  
  64. (DEFMETHOD (vt100-escape-sequence-mixin :AUXILIARY-LEFT) ()
  65.   (cond (nil                                ;(and keypad-mode process-ch?)
  66.      (send self ':applications-mode)
  67.      (send self ':net-output #/D))
  68.     (t
  69.      (send self ':net-output #\escape)
  70.      (send self ':net-output #/[)
  71.      (send self ':net-output #/D))))
  72.  
  73.  
  74. ))
  75.