home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / a / msicsp.ini / mskermit.m < prev   
Text File  |  2020-01-01  |  3KB  |  99 lines
  1. /* MS-Kermit terminal setup for CRISP.
  2.    Requires the kermit keys to be rebound.
  3.    by David MacKenzie */
  4.  
  5. #include "tty.h"
  6.  
  7. (macro _init
  8.     (
  9.     /* Set characters used for extended graphics support when
  10.        drawing windows. */
  11.     (set_term_characters
  12.         213        ; Top left of window.
  13.         184        ; Top right of window.
  14.         212        ; Bottom left of window.
  15.         190        ; Bottom right of window.
  16.         179        ; Vertical bar for window sides.
  17.         205        ; Top and bottom horizontal bar for window.
  18.         NULL    ; Top join.
  19.         NULL    ; Bottom join.
  20.         NULL    ; Window 4-way intersection.
  21.         NULL    ; Left hand join.
  22.         NULL    ; Right hand join.
  23.         )
  24.  
  25.     /* Define escape sequences used for special optimisations on output. */
  26.     (set_term_features
  27.         NULL    ; Sequence to clear 'n' spaces.
  28.         "%c"    ; Sequence to print characters with top bit set.
  29.         NULL    ; Insert-mode cursor.
  30.         NULL    ; Overwrite-mode cursor.
  31.         NULL    ; Insert-mode cursor (on virtual space).
  32.         NULL    ; Overwrite-mode cursor (on virtual space).
  33.         NULL    ; Print ESCAPE character graphically.
  34.         NULL    ; Escape sequence to repeat last character.
  35.         FALSE    ; TRUE if ESC [0m resets color.
  36.         TRUE    ; TRUE if terminal supports color.
  37.         "\x1B[%dC"    ; Move cursor multiple columns (termcap lacks).
  38.         )
  39.  
  40.     /* Define keyboard layout for non-ASCII characters. */
  41.     (set_term_keyboard
  42.         F1-F12
  43.         (quote_list "\x1BOP" "\x1BOQ" "\x1BOR" "\x1BOS" "\x1BOT"
  44.             "\x1BOU" "\x1BOV" "\x1BOW" "\x1BOX" "\x1BOY"
  45.             "\x1BOZ" "\x1BO[")
  46.  
  47.         SHIFT-F1-F12
  48.         (quote_list "\x1BOp" "\x1BOq" "\x1BOr" "\x1BOs" "\x1BOt"
  49.             "\x1BOu" "\x1BOv" "\x1BOw" "\x1BOx" "\x1BOy"
  50.             "\x1BOz" "\x1BO{")
  51.         CTRL-F1-F12
  52.         (quote_list "\x1BO\x10" "\x1BO\x11" "\x1BO\x12" "\x1BO\x13"
  53.             "\x1BO\x14"  "\x1BO\x15" "\x1BO\x16" "\x1BO\x17"
  54.             "\x1BO\x18" "\x1BO\x19" "\x1BO\x1a" "\x1BO\x1B")
  55.         ALT-A-Z
  56.         (quote_list    "\x1BNa" "\x1BNb" "\x1BNc" "\x1BNd" "\x1BNe"
  57.             "\x1BNf" "\x1BNg" "\x1BNh" "\x1BNi" "\x1BNj"
  58.             "\x1BNk" "\x1BNl" "\x1BNm" "\x1BNn" "\x1BNo"
  59.             "\x1BNp" "\x1BNq" "\x1BNr" "\x1BNs" "\x1BNt"
  60.             "\x1BNu" "\x1BNv" "\x1BNw" "\x1BNx" "\x1BNy" "\x1BNz")
  61.         KEYPAD-0-9
  62.         (quote_list "\x1B[@" "\x1B[Y" "\x1B[B" "\x1B[U" "\x1B[D"
  63.             "\x1B[G" "\x1B[C" "\x1B[H" "\x1B[A" "\x1B[V")
  64.         CTRL-KEYPAD-0-9 ; Not sent by MS-Kermit.
  65.         (quote_list "\x1B?0" "\x1B?1" "\x1B?2" "\x1B?3" "\x1B?4"
  66.             "\x1B?5" "\x1B?6" "\x1B?7" "\x1B?8" "\x1B?9")
  67.         ALT-0-9
  68.         (quote_list "\x1BN0" "\x1BN1" "\x1BN2" "\x1BN3" "\x1BN4"
  69.             "\x1BN5" "\x1BN6" "\x1BN7" "\x1BN8" "\x1BN9")
  70.         CUT        "\x1B[S"    ; keypad -
  71.         COPY    "\x1B[T"    ; keypad +
  72.         BACK-TAB    "\x1B[Z"    ; shift-tab
  73.     )
  74.  
  75.     (assign_to_key "#127" "backspace")
  76.     )
  77. )
  78.  
  79. /* Macro called if `-mono' is part of the suffix list of BTERM.
  80.    This is called after _init. */
  81. (macro mono
  82.     (
  83.     /* Define escape sequences used for special optimisations on output. */
  84.     (set_term_features
  85.         NULL    ; Sequence to clear 'n' spaces.
  86.         "%c"    ; Sequence to print characters with top bit set.
  87.         NULL    ; Insert-mode cursor.
  88.         NULL    ; Overwrite-mode cursor.
  89.         NULL    ; Insert-mode cursor (on virtual space).
  90.         NULL    ; Overwrite-mode cursor (on virtual space).
  91.         NULL    ; Print ESCAPE character graphically.
  92.         NULL    ; Escape sequence to repeat last character.
  93.         FALSE    ; TRUE if ESC [0m resets color.
  94.         FALSE    ; TRUE if terminal supports color.
  95.         "\x1B[%dC"    ; Move cursor multiple columns (termcap lacks).
  96.         )
  97.     )
  98. )
  99.