mim/development/mim/vax/tty/tty.mud

   1 ; "Still needs:
   2    ^R
   3    MORE handling
   4    cleanup of RDTTY
   5    char insert/delete
   6    foreign tty open/close?"
   7
   8 <USE "NEWSTRUC">
   9
  10 <SETG SG-BUF <ISTRING 6>>
  11
  12 <NEW-CHANNEL-TYPE NEWTTY DEFAULT
  13                   GET-TYPE TTY-GET-TYPE ; "DONE"
  14                   QUERY TTY-QUERY       ; "DONE"
  15                   OPEN TTY-OPEN         ; "DONE"
  16                   READ-BYTE-IMMEDIATE TTY-READ-IMMEDIATE
  17                   READ-BYTE TTY-READ-BYTE ; "DONE"
  18                   READ-BUFFER TTY-READ-BUFFER
  19                   FILL-READ-BUFFER TTY-FILL-READ        ; "DONE?"
  20                   BUFLEN TTY-BUFLEN             ; "DONE"
  21                   CLOSE TTY-CLOSE               ; "DONE?"
  22                   WRITE-BYTE TTY-WRITE-BYTE     ; "DONE"
  23                   WRITE-BUFFER TTY-WRITE-BUFFER ; "DONE"
  24                   BUFOUT TTY-BUFOUT             ; "DONE"
  25                   PRINT-DATA TTY-PRINT-DATA     ; "DONE"
  26                   TERM-MOVE? TTY-TERM-MOVE?     ; "DONE"
  27                   NORMAL-OUT TTY-NORMAL-OUT     ; "DONE"
  28                   IMAGE-OUT TTY-IMAGE-OUT       ; "DONE"
  29                   SET-IMAGE-MODE TTY-SET-IMAGE  ; "DONE"
  30                   SET-ECHO-MODE TTY-SET-ECHO    ; "DONE"
  31                   RESET TTY-RESET       ; "DONE"
  32                   PAGE-WIDTH TTY-PARM   ; "DONE"
  33                   PAGE-HEIGHT TTY-PARM  ; "DONE"
  34                   PAGE-X TTY-PARM       ; "DONE"
  35                   PAGE-Y TTY-PARM       ; "DONE"
  36                   CLEAR-SCREEN CLEAR-SCREEN ; "DONE"
  37                   CLEAR-EOL CLEAR-EOL   ; "DONE"
  38                   CLEAR-EOS CLEAR-EOS   ; "DONE"
  39                   FRESH-LINE FRESH-LINE ; "DONE"
  40                   KILL-CHAR KILL-CHAR           ; "DONE"
  41                   ERASE-CHAR ERASE-CHAR         ; "DONE"
  42                   HOME-CURSOR HOME-CURSOR       ; "DONE"
  43                   BOTTOM-CURSOR BOTTOM-CURSOR   ; "DONE"
  44                   HOR-POS-CURSOR HOR-POS-CURSOR ; "DONE"
  45                   VER-POS-CURSOR VER-POS-CURSOR ; "DONE"
  46                   MOVE-CURSOR MOVE-CURSOR       ; "DONE"
  47                   BACK-CURSOR BACK-CURSOR       ; "DONE"
  48                   DOWN-CURSOR DOWN-CURSOR       ; "DONE"
  49                   UP-CURSOR UP-CURSOR           ; "DONE"
  50                   FORWARD-CURSOR FORWARD-CURSOR ; "DONE"
  51                   SAVE-CURSOR SAVE-CURSOR       ; "DONE"
  52                   RESTORE-CURSOR RESTORE-CURSOR ; "DONE"
  53                   INSERT-LINE INSERT-LINE       ; "DONE"
  54                   INSERT-CHAR INSERT-CHAR
  55                   PAD TTY-PAD                   ; "DONE"
  56                   FLOW-CONTROL TTY-FLOW-CONTROL>
  57
  58 <L-FLOAD "TTYDESC">
  59 <L-FLOAD "TTYOUT">
  60 <L-FLOAD "TTYVTS">
  61 <L-FLOAD "TTYMISC">
  62 <L-FLOAD "TTYTERM">