home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume4 / uemacs / patch1 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  21.5 KB
  1. From: Paul Placeway <talcott!caip!osu-eddie!paul>
  2. Subject: Termcap support for MicroEmacs v. 30 sources
  3. Newsgroups: mod.sources
  4. Approved: jpn@panda.UUCP
  5.  
  6. Mod.sources:  Volume 4, Issue 79
  7. Submitted by: Paul Placeway <talcott!caip!osu-eddie!paul>
  8.  
  9.  
  10. These are the changes for VERSION 30 MicroEmacs to do Unix termcap support.
  11. They have been tested under 4.2 BSD Unix, and should work under 4.1, and
  12. 4.3.  Changes for any USG version will take more work (i.e. extensive changes
  13. to sys/ultrix/* and tty/termcap/*).
  14.  
  15. Installition instructions for MicroEmacs version 30 termcap support:
  16.  
  17.  1) Go to the directory containing the MicroEmacs version 30 distribution
  18.     (version 30 is the one posted to mod.sources)
  19.  2) unshar the following shar file (trim at the ---cut here-- and run through
  20.     sh).
  21.  3) apply the ./sys/ultrix/ttyio.diff diffs to ttyio.c (by hand or by the patch
  22.     program).
  23.  4) copy Makefile.tc to Makefile
  24.  5) edit the Makefile a bit if you like
  25.  6) make.  You MUST either use the Makefile supplied, or re-edit the ultrix
  26.     Makefile so that the tty is termcap and it does a -ltermcap on the link
  27.     step.
  28.  
  29. If you have any problems, send me mail and I will try to figure things out.
  30.  
  31.              -- Paul Placeway
  32.                 paul@ohio-state
  33.                 ...!cbosgd!osu-eddie!paul
  34.  
  35.  -----------------cut here------------------------------
  36. #! /bin/sh
  37. # This is a shell archive, meaning:
  38. # 1. Remove everything above the #! /bin/sh line.
  39. # 2. Save the resulting text in a file.
  40. # 3. Execute the file with /bin/sh (not csh) to create the files:
  41. #    Makefile.tc
  42. #    sys/ultrix/ttyio.diff
  43. #    tty/termcap/tty.c
  44. #    tty/termcap/ttydef.h
  45. #    tty/termcap/ttykbd.c
  46. # This archive created: Fri Apr 25 07:59:50 1986
  47. export PATH; PATH=/bin:$PATH
  48. echo shar: extracting "'Makefile.tc'" '(1064 characters)'
  49. if test -f 'Makefile.tc'
  50. then
  51.     echo shar: will not over-write existing file "'Makefile.tc'"
  52. else
  53. cat << \SHAR_EOF > 'Makefile.tc'
  54. # Makefile for MicroEMACS.
  55. # Is there a better way to do the rebuilds, other than using
  56. # the links?
  57.  
  58. SYS    = ultrix
  59. TTY    = termcap
  60. LIBS    = -ltermcap
  61. CFLAGS    = -O
  62. DEST    = /u/paul/bin/m
  63.  
  64. OBJ =    basic.o \
  65.     buffer.o \
  66.     cinfo.o \
  67.     display.o \
  68.     echo.o \
  69.     extend.o \
  70.     file.o \
  71.     kbd.o \
  72.     line.o \
  73.     main.o \
  74.     random.o \
  75.     region.o \
  76.     search.o \
  77.     symbol.o \
  78.     version.o \
  79.     window.o \
  80.     word.o \
  81.     fileio.o \
  82.     spawn.o \
  83.     ttyio.o \
  84.     tty.o \
  85.     ttykbd.o
  86.  
  87. xemacs:        $(OBJ)
  88.     cc -o xemacs $(OBJ) $(LIBS)
  89.  
  90. $(OBJ):        def.h sysdef.h ttydef.h
  91.  
  92. sysdef.h:    sys/$(SYS)/sysdef.h    # Update links, if needed.
  93.     rm -f sysdef.h
  94.     ln sys/$(SYS)/sysdef.h .
  95.  
  96. ttydef.h:    tty/$(TTY)/ttydef.h
  97.     rm -f ttydef.h
  98.     ln tty/$(TTY)/ttydef.h .
  99.  
  100. fileio.c:    sys/$(SYS)/fileio.c
  101.     rm -f fileio.c
  102.     ln sys/$(SYS)/fileio.c .
  103.  
  104. spawn.c:    sys/$(SYS)/spawn.c
  105.     rm -f spawn.c
  106.     ln sys/$(SYS)/spawn.c .
  107.  
  108. tty.c:        tty/$(TTY)/tty.c
  109.     rm -f tty.c
  110.     ln tty/$(TTY)/tty.c .
  111.  
  112. ttyio.c:    sys/$(SYS)/ttyio.c
  113.     rm -f ttyio.c
  114.     ln sys/$(SYS)/ttyio.c .
  115.  
  116. ttykbd.c:    tty/$(TTY)/ttykbd.c
  117.     rm -f ttykbd.c
  118.     ln tty/$(TTY)/ttykbd.c .
  119.  
  120. install: xemacs
  121.     cp xemacs $(DEST)
  122. SHAR_EOF
  123. if test 1064 -ne "`wc -c < 'Makefile.tc'`"
  124. then
  125.     echo shar: error transmitting "'Makefile.tc'" '(should have been 1064 characters)'
  126. fi
  127. fi
  128. if test ! -d 'sys'
  129. then
  130.     echo shar: creating directory "'sys'"
  131.     mkdir 'sys'
  132. fi
  133. if test ! -d 'sys/ultrix'
  134. then
  135.     echo shar: creating directory "'sys/ultrix'"
  136.     mkdir 'sys/ultrix'
  137. fi
  138. echo shar: extracting "'sys/ultrix/ttyio.diff'" '(4313 characters)'
  139. if test -f 'sys/ultrix/ttyio.diff'
  140. then
  141.     echo shar: will not over-write existing file "'sys/ultrix/ttyio.diff'"
  142. else
  143. cat << \SHAR_EOF > 'sys/ultrix/ttyio.diff'
  144. *** ttyio.old    Tue Apr 22 17:24:48 1986
  145. --- ttyio.c    Tue Apr 22 18:11:39 1986
  146. ***************
  147. *** 1,10
  148.   /*
  149.    * Name:    MicroEMACS
  150. !  *        Ultrix-32 terminal I/O.
  151. !  * Version:    29
  152. !  * Last edit:    05-Feb-86
  153. !  * By:        rex::conroy
  154. !  *        decvax!decwrl!dec-rhea!dec-rex!conroy
  155.    *
  156.    * The functions in this file
  157.    * negotiate with the operating system for
  158.  
  159. --- 1,10 -----
  160.   /*
  161.    * Name:    MicroEMACS
  162. !  *        Ultrix-32 and Unix terminal I/O.
  163. !  * Version:    29 -- osu 2
  164. !  * Last edit:    22-Apr-86
  165. !  * By:        paul@ohio-state
  166. !  *        cbosgd!osu-eddie!paul
  167.    *
  168.    * The functions in this file
  169.    * negotiate with the operating system for
  170. ***************
  171. *** 38,44
  172.   ttopen()
  173.   {
  174.       register char    *cp;
  175. !     extern char    *getenv();
  176.   
  177.       if (ioctl(0, TIOCGETP, &oldtty) < 0)
  178.           abort();
  179.  
  180. --- 38,48 -----
  181.   ttopen()
  182.   {
  183.       register char    *cp;
  184. !         char *getenv();
  185. !         char *t, *p, *tgetstr();
  186. !         char tcbuf[1024];
  187. !         char *tv_stype;
  188. !         char err_str[72];
  189.   
  190.       if (ioctl(0, TIOCGETP, &oldtty) < 0)
  191.           abort();
  192. ***************
  193. *** 48,53
  194.       newtty.sg_kill   = oldtty.sg_kill;
  195.       newtty.sg_flags  = oldtty.sg_flags;
  196.       newtty.sg_flags &= ~(ECHO|CRMOD);    /* Kill echo, CR=>NL.    */
  197.       newtty.sg_flags |= CBREAK;        /* Half-cooked mode.    */
  198.       if (ioctl(0, TIOCSETP, &newtty) < 0)
  199.           abort();
  200.  
  201. --- 52,58 -----
  202.       newtty.sg_kill   = oldtty.sg_kill;
  203.       newtty.sg_flags  = oldtty.sg_flags;
  204.       newtty.sg_flags &= ~(ECHO|CRMOD);    /* Kill echo, CR=>NL.    */
  205. + #if FLOWCONTROL
  206.       newtty.sg_flags |= CBREAK;        /* Half-cooked mode.    */
  207.   #else
  208.       newtty.sg_flags |= RAW|ANYP;        /* raw mode for 8 bit path.*/
  209. ***************
  210. *** 49,54
  211.       newtty.sg_flags  = oldtty.sg_flags;
  212.       newtty.sg_flags &= ~(ECHO|CRMOD);    /* Kill echo, CR=>NL.    */
  213.       newtty.sg_flags |= CBREAK;        /* Half-cooked mode.    */
  214.       if (ioctl(0, TIOCSETP, &newtty) < 0)
  215.           abort();
  216.       if (ioctl(0, TIOCGETC, &oldtchars) < 0)
  217.  
  218. --- 54,62 -----
  219.       newtty.sg_flags &= ~(ECHO|CRMOD);    /* Kill echo, CR=>NL.    */
  220.   #if FLOWCONTROL
  221.       newtty.sg_flags |= CBREAK;        /* Half-cooked mode.    */
  222. + #else
  223. +     newtty.sg_flags |= RAW|ANYP;        /* raw mode for 8 bit path.*/
  224. + #endif
  225.       if (ioctl(0, TIOCSETP, &newtty) < 0)
  226.           abort();
  227.       if (ioctl(0, TIOCGETC, &oldtchars) < 0)
  228. ***************
  229. *** 55,60
  230.           abort();
  231.       newtchars.t_intrc  = 0xFF;        /* Interrupt.        */
  232.       newtchars.t_quitc  = 0xFF;        /* Quit.        */
  233.       newtchars.t_startc = 0x11;        /* ^Q, for terminal.    */
  234.       newtchars.t_stopc  = 0x13;        /* ^S, for terminal.    */
  235.       newtchars.t_eofc   = 0xFF;
  236.  
  237. --- 63,69 -----
  238.           abort();
  239.       newtchars.t_intrc  = 0xFF;        /* Interrupt.        */
  240.       newtchars.t_quitc  = 0xFF;        /* Quit.        */
  241. + #if FLOWCONTROL
  242.       newtchars.t_startc = 0x11;        /* ^Q, for terminal.    */
  243.       newtchars.t_stopc  = 0x13;        /* ^S, for terminal.    */
  244.   #else
  245. ***************
  246. *** 57,62
  247.       newtchars.t_quitc  = 0xFF;        /* Quit.        */
  248.       newtchars.t_startc = 0x11;        /* ^Q, for terminal.    */
  249.       newtchars.t_stopc  = 0x13;        /* ^S, for terminal.    */
  250.       newtchars.t_eofc   = 0xFF;
  251.       newtchars.t_brkc   = 0xFF;
  252.       if (ioctl(0, TIOCSETC, &newtchars) < 0)
  253.  
  254. --- 66,75 -----
  255.   #if FLOWCONTROL
  256.       newtchars.t_startc = 0x11;        /* ^Q, for terminal.    */
  257.       newtchars.t_stopc  = 0x13;        /* ^S, for terminal.    */
  258. + #else
  259. +     newtchars.t_startc = 0xFF;        /* ^Q, for terminal.    */
  260. +     newtchars.t_stopc  = 0xFF;        /* ^S, for terminal.    */
  261. + #endif
  262.       newtchars.t_eofc   = 0xFF;
  263.       newtchars.t_brkc   = 0xFF;
  264.       if (ioctl(0, TIOCSETC, &newtchars) < 0)
  265. ***************
  266. *** 71,79
  267.       newltchars.t_lnextc = 0xFF;        /* Literal next.    */
  268.       if (ioctl(0, TIOCSLTC, &newltchars) < 0)
  269.           abort();
  270. !     if ((cp=getenv("TERMCAP")) == NULL
  271. !     || (nrow=getvalue(cp, "li")) <= 0
  272. !     || (ncol=getvalue(cp, "co")) <= 0) {
  273.           nrow = 24;
  274.           ncol = 80;
  275.       }
  276.  
  277. --- 84,106 -----
  278.       newltchars.t_lnextc = 0xFF;        /* Literal next.    */
  279.       if (ioctl(0, TIOCSLTC, &newltchars) < 0)
  280.           abort();
  281. ! 
  282. ! /* do this the REAL way */
  283. !         if ((tv_stype = getenv("TERM")) == NULL)
  284. !         {
  285. !                 puts("Environment variable TERM not defined!");
  286. !                 exit(1);
  287. !         }
  288. ! 
  289. !         if((tgetent(tcbuf, tv_stype)) != 1)
  290. !         {
  291. !                 sprintf(err_str, "Unknown terminal type %s!", tv_stype);
  292. !                 puts(err_str);
  293. !                 exit(1);
  294. !         }
  295. ! 
  296. !     if ((nrow=tgetnum ("li")) <= 0
  297. !     || (ncol=tgetnum ("co")) <= 0) {
  298.           nrow = 24;
  299.           ncol = 80;
  300.       }
  301. SHAR_EOF
  302. if test 4313 -ne "`wc -c < 'sys/ultrix/ttyio.diff'`"
  303. then
  304.     echo shar: error transmitting "'sys/ultrix/ttyio.diff'" '(should have been 4313 characters)'
  305. fi
  306. fi
  307. echo shar: done with directory "'sys/ultrix'"
  308. echo shar: done with directory "'sys'"
  309. if test ! -d 'tty'
  310. then
  311.     echo shar: creating directory "'tty'"
  312.     mkdir 'tty'
  313. fi
  314. if test ! -d 'tty/termcap'
  315. then
  316.     echo shar: creating directory "'tty/termcap'"
  317.     mkdir 'tty/termcap'
  318. fi
  319. echo shar: extracting "'tty/termcap/tty.c'" '(6971 characters)'
  320. if test -f 'tty/termcap/tty.c'
  321. then
  322.     echo shar: will not over-write existing file "'tty/termcap/tty.c'"
  323. else
  324. cat << \SHAR_EOF > 'tty/termcap/tty.c'
  325. /*
  326.  * Name:    MicroEMACS
  327.  *        UNIX termcap/terminfo display driver
  328.  * Version:    2
  329.  * Last edit:    16-Apr-86
  330.  * By:        paul@ohio-state
  331.  *        cbosgd!osu-eddie!paul
  332.  *
  333.  * Termcap is a terminal information database and routines to describe 
  334.  * terminals on a UNIX system.  This should be used ALLWAYS on a UNIX system
  335.  * that has it.
  336.  */
  337. #include    "def.h"
  338.  
  339. #define    BEL    0x07            /* BEL character.        */
  340. #define    ESC    0x1B            /* ESC character.        */
  341. #define    LF    0x0A            /* Line feed.            */
  342.  
  343. extern    int    ttrow;
  344. extern    int    ttcol;
  345. extern    int    tttop;
  346. extern    int    ttbot;
  347. extern    int    tthue;
  348.  
  349. int    tceeol;            /* Costs are set later */
  350. int    tcinsl;
  351. int    tcdell;
  352.  
  353. #define TCAPSLEN 315
  354.  
  355. char tcapbuf[TCAPSLEN];
  356. char    PC,
  357.         *CM,
  358.         *CL,
  359.         *CE,
  360.         *UP,
  361.     *IM,            /* insert mode */
  362.     *IC,            /* insert a single space */
  363.     *EI,            /* end insert mode */
  364.     *DC,
  365.     *AL,            /* add line */
  366.     *DL,            /* del line */
  367.     *TI,            /* term init -- start using cursor motion */
  368.     *TE,            /* term end --- end using cursor motion */
  369.     *SO,
  370.     *SE,
  371.         *CD;
  372.  
  373. /*
  374.  * Initialize the terminal when the editor
  375.  * gets started up. This is a no-op on the ANSI
  376.  * display. On the SCALD display, it turns off the
  377.  * half-screen scroll, because this appears to really
  378.  * confuse the scrolling region firmware in the
  379.  * display.
  380.  */
  381. static char tcbuf[1024];
  382.  
  383. ttinit()
  384. {
  385.         char *getenv();
  386.         char *t, *p, *tgetstr();
  387.         char *tv_stype;
  388.         char err_str[72];
  389.  
  390.         if ((tv_stype = getenv("TERM")) == NULL)
  391.         {
  392.                 puts("Environment variable TERM not defined!");
  393.                 exit(1);
  394.         }
  395.  
  396.         if((tgetent(tcbuf, tv_stype)) != 1)
  397.         {
  398.                 sprintf(err_str, "Unknown terminal type %s!", tv_stype);
  399.                 puts(err_str);
  400.                 exit(1);
  401.         }
  402.  
  403.         p = tcapbuf;
  404.         t = tgetstr("pc", &p);
  405.         if(t)
  406.                 PC = *t;
  407.  
  408.         CD = tgetstr("cd", &p);
  409.         CM = tgetstr("cm", &p);
  410.         CE = tgetstr("ce", &p);
  411.         UP = tgetstr("up", &p);
  412.     IM = tgetstr("im", &p);
  413.     IC = tgetstr("ic", &p);
  414.     EI = tgetstr("ei", &p);
  415.     DC = tgetstr("dc", &p);
  416.     AL = tgetstr("al", &p);
  417.     DL = tgetstr("dl", &p);
  418.     TI = tgetstr("ti", &p);
  419.     TE = tgetstr("te", &p);
  420.     SO = tgetstr("so", &p);
  421.     SE = tgetstr("se", &p);
  422.  
  423.         if(CD == NULL || CM == NULL || CE == NULL || UP == NULL)
  424.         {
  425.                 puts("This terminal is not powerful enough to run Micro Emacs\n");
  426.                 exit(1);
  427.         }
  428.     if (!*CE) {
  429.         tceeol = ncol;
  430.     } else {
  431.         tceeol = charcost(CE);
  432.     }
  433.     if (!*AL) {
  434.         tcinsl = nrow * ncol; /* make this cost high enough that it */
  435.                   /* won't ever happen */
  436.     } else {
  437.         tcinsl = charcost(AL);
  438.     }
  439.     if (!*DL) {
  440.         tcdell = nrow * ncol; /* make this cost high enough that it */
  441.                   /* won't ever happen */
  442.     } else {
  443.         tcdell = charcost(DL);
  444.     }
  445.  
  446.         if (p >= &tcapbuf[TCAPSLEN])
  447.         {
  448.                 puts("Terminal description too big!\n");
  449.                 exit(1);
  450.         }
  451.     if (*TI) tputs (TI);    /* init the term */
  452. }
  453.  
  454. /*
  455.  * Clean up the terminal, in anticipation of
  456.  * a return to the command interpreter. This is a no-op
  457.  * on the ANSI display. On the SCALD display, it sets the
  458.  * window back to half screen scrolling. Perhaps it should
  459.  * query the display for the increment, and put it
  460.  * back to what it was.
  461.  */
  462. tttidy()
  463. {
  464.     if (*TE) tputs (TE);    /* set the term back to normal mode */
  465. }
  466.  
  467. /*
  468.  * Move the cursor to the specified
  469.  * origin 0 row and column position. Try to
  470.  * optimize out extra moves; redisplay may
  471.  * have left the cursor in the right
  472.  * location last time!
  473.  */
  474. ttmove(row, col)
  475. {
  476.     if (ttrow!=row || ttcol!=col) {
  477.     putpad(tgoto(CM, col, row));
  478.     ttrow = row;
  479.     ttcol = col;
  480.     }
  481. }
  482.  
  483. /*
  484.  * Erase to end of line.
  485.  */
  486. tteeol()
  487. {
  488.         putpad(CE);
  489. }
  490.  
  491. /*
  492.  * Erase to end of page.
  493.  */
  494. tteeop()
  495. {
  496.         putpad(CD);
  497. }
  498.  
  499. /*
  500.  * Make a noise.
  501.  */
  502. ttbeep()
  503. {
  504.     ttputc(BEL);
  505.     ttflush();
  506. }
  507.  
  508. /*
  509.  * Insert nchunk blank line(s) onto the
  510.  * screen, scrolling the last line on the
  511.  * screen off the bottom. This is done with
  512.  * a cluster of clever insert and delete commands,
  513.  * because there are no scroll regions.
  514.  */
  515. ttinsl(row, bot, nchunk)
  516. {
  517.     register int    i;
  518.     
  519.     if (row == bot) {        /* Case of one line insert is     */
  520.     ttmove(row, 0);        /*    special            */
  521.     tteeol();
  522.     return;
  523.     }
  524.     ttmove(1+bot-nchunk, 0);
  525.     for (i=0; i<nchunk; i++) {    /* For all lines in the chunk    */
  526.     putpad(DL);
  527.     }
  528.     ttmove(row, 0);
  529.     for (i=0; i<nchunk; i++) {    /* For all lines in the chunk    */
  530.     putpad(AL);
  531.     }
  532.     ttrow = row;            /* End up on current line    */
  533.     ttcol = 0;
  534. }
  535.  
  536. /*
  537.  * Delete nchunk line(s) "row", replacing the
  538.  * bottom line on the screen with a blank
  539.  * line. This is done with a crafty sequences
  540.  * of insert and delete line; We assume that the terminal
  541.  * is like the Heath (ie no scrolling region). The presence of the
  542.  * echo area makes a boundry condition
  543.  * go away.
  544.  */
  545. ttdell(row, bot, nchunk)
  546. {
  547.     register int    i;
  548.     
  549.     if (row == bot) {        /* One line special case    */
  550.     ttmove(row, 0);
  551.     tteeol();
  552.     return;
  553.     }
  554.     ttmove(row, 0);
  555.     for (i=0; i<nchunk; i++) {    /* For all lines in chunk    */
  556.     putpad(DL);
  557.     }
  558.     ttmove(1+bot-nchunk,0);
  559.     for (i=0; i<nchunk; i++) {    /* For all lines in chunk    */
  560.     putpad(AL);
  561.     }
  562.     ttrow = bot-nchunk;
  563.     ttcol = 0;
  564. }
  565.  
  566. /*
  567.  * No-op.
  568.  */
  569. ttwindow(top, bot)
  570. {
  571. }
  572.  
  573. /*
  574.  * No-op.
  575.  */
  576. ttnowindow()
  577. {
  578. }
  579.  
  580. /*
  581.  * Set the current writing color to the
  582.  * specified color. Watch for color changes that are
  583.  * not going to do anything (the color is already right)
  584.  * and don't send anything to the display.
  585.  * The rainbow version does this in putline.s on a
  586.  * line by line basis, so don't bother sending
  587.  * out the color shift.
  588.  */
  589. ttcolor(color)
  590. register int    color;
  591. {
  592.     if (color != tthue) {
  593.     if (color == CTEXT) {        /* Normal video.    */
  594.         putpad(SE);
  595.     } else if (color == CMODE) {    /* Reverse video.    */
  596.         putpad(SO);
  597.     }
  598.     tthue = color;            /* Save the color.    */
  599.     }
  600. }
  601.  
  602. /*
  603.  * This routine is called by the
  604.  * "refresh the screen" command to try and resize
  605.  * the display. The new size, which must be deadstopped
  606.  * to not exceed the NROW and NCOL limits, it stored
  607.  * back into "nrow" and "ncol". Display can always deal
  608.  * with a screen NROW by NCOL. Look in "window.c" to
  609.  * see how the caller deals with a change.
  610.  */
  611. ttresize()
  612. {
  613.     register int    c;
  614.     register int    newnrow;
  615.     register int    newncol;
  616.  
  617.     newnrow = tgetnum("li"); /* on a Sun, this returns the NEW size */
  618.     newncol = tgetnum("co"); /* on anything else, returns same old size */
  619.  
  620.     if (newnrow < 1)            /* Check limits.    */
  621.         newnrow = 1;
  622.     else if (newnrow > NROW)
  623.         newnrow = NROW;
  624.     if (newncol < 1)
  625.         newncol = 1;
  626.     else if (newncol > NCOL)
  627.         newncol = NCOL;
  628.     nrow = newnrow;
  629.     ncol = newncol;
  630. }
  631.  
  632. static int cci;
  633.  
  634. static
  635. fakec(c)            /* fake char output for charcost() */
  636. char c;
  637. {
  638.     cci++;
  639. }
  640.  
  641. charcost (s)            /* calculate the cost of doing string s */
  642. char *s;
  643. {
  644.     cci = 0;
  645.  
  646.     tputs(s, nrow, fakec);
  647.     return cci;
  648. }
  649.  
  650. putpad(str)
  651. char    *str;
  652. {
  653.         tputs(str, 1, ttputc);
  654. }
  655.  
  656.  
  657. SHAR_EOF
  658. if test 6971 -ne "`wc -c < 'tty/termcap/tty.c'`"
  659. then
  660.     echo shar: error transmitting "'tty/termcap/tty.c'" '(should have been 6971 characters)'
  661. fi
  662. fi
  663. echo shar: extracting "'tty/termcap/ttydef.h'" '(1285 characters)'
  664. if test -f 'tty/termcap/ttydef.h'
  665. then
  666.     echo shar: will not over-write existing file "'tty/termcap/ttydef.h'"
  667. else
  668. cat << \SHAR_EOF > 'tty/termcap/ttydef.h'
  669. /*
  670.  * Name:    MicroEMACS
  671.  *        Digital ANSI terminal header file
  672.  * Version:    29
  673.  * Last edit:    05-Feb-86
  674.  * By:        rex::conroy
  675.  *        decvax!decwrl!dec-rhea!dec-rex!conroy
  676.  */
  677. #define    GOSLING    1            /* Compile in fancy display.    */
  678. #define    MEMMAP    0            /* Not memory mapped video.    */
  679.  
  680. /*
  681.  * Yes Bob, it's wrong for you.
  682.  */
  683. #define    NROW    66            /* Rows.            */
  684. #define    NCOL    132            /* Columns.            */
  685.  
  686. /*
  687.  * Special keys, as on the LK201, which is
  688.  * a superset of the VT100. Originally I tried to keep the
  689.  * numbers in LK201 escape sequence code, but it became too much
  690.  * of a pain because of the keycodes greater than 31. 
  691.  * The codes are all just redefinitions for the standard extra
  692.  * key codes. Using the standard names ensures that the
  693.  * LK201 codes land in the right place.
  694.  */
  695. #define    KUP    K01
  696. #define    KDOWN    K02
  697. #define    KLEFT    K03
  698. #define    KRIGHT    K04
  699. #define    KFIND    K05
  700. #define    KINSERT    K06
  701. #define    KREMOVE    K07
  702. #define    KSELECT    K08
  703. #define    KPREV    K09
  704. #define    KNEXT    K0A
  705. #define    KF4    K0B
  706. #define    KF6    K0C
  707. #define    KF7    K0D
  708. #define    KF8    K0E
  709. #define    KF9    K0F
  710. #define    KF10    K10
  711. #define    KF11    K11
  712. #define    KF12    K12
  713. #define    KF13    K13
  714. #define    KF14    K14
  715. #define    KHELP    K15
  716. #define    KDO    K16
  717. #define    KF17    K17
  718. #define    KF18    K18
  719. #define    KF19    K19
  720. #define    KF20    K1A
  721. #define    KPF1    K1B
  722. #define    KPF2    K1C
  723. #define    KPF3    K1D
  724. #define    KPF4    K1E
  725. SHAR_EOF
  726. if test 1285 -ne "`wc -c < 'tty/termcap/ttydef.h'`"
  727. then
  728.     echo shar: error transmitting "'tty/termcap/ttydef.h'" '(should have been 1285 characters)'
  729. fi
  730. fi
  731. echo shar: extracting "'tty/termcap/ttykbd.c'" '(4209 characters)'
  732. if test -f 'tty/termcap/ttykbd.c'
  733. then
  734.     echo shar: will not over-write existing file "'tty/termcap/ttykbd.c'"
  735. else
  736. cat << \SHAR_EOF > 'tty/termcap/ttykbd.c'
  737. /*
  738.  * Name:    MicroEMACS
  739.  *         Digital ANSI terminal keyboard.
  740.  *        Assumes LK201, which is OK on the VT100.
  741.  * Version:    29
  742.  * Last edit:    05-Feb-86
  743.  * By:        rex::conroy
  744.  *        decvax!decwrl!dec-rhea!dec-rex!conroy
  745.  */
  746. #include    "def.h"
  747.  
  748. #define    ESC    0x1B            /* Escape, arrows et al.    */
  749. #define    AGRAVE    0x60            /* LK201 kludge.        */
  750.  
  751. /*
  752.  * The special keys on an LK201 send back
  753.  * escape sequences of the general form <ESC>[nnn~, where
  754.  * nnn is a key code number. This table is indexed by the
  755.  * nnn code to get the key code, which is used in the
  756.  * binding table. The F4 key, and the F6 through F14 keys
  757.  * have key codes. Also F17 through F20. Think of
  758.  * help and do as special.
  759.  */
  760. short    lk201map[] = {
  761.     KRANDOM,    KFIND,        KINSERT,    KREMOVE,
  762.     KSELECT,    KPREV,        KNEXT,        KRANDOM,
  763.     KRANDOM,    KRANDOM,    KRANDOM,    KRANDOM,
  764.     KRANDOM,    KRANDOM,    KF4,        KRANDOM,
  765.     KRANDOM,    KF6,        KF7,        KF8,
  766.     KF9,        KF10,        KRANDOM,    KF11,
  767.     KF12,        KF13,        KF14,        KRANDOM,
  768.     KHELP,        KDO,        KRANDOM,    KF17,
  769.     KF18,        KF19,        KF20
  770. };
  771.  
  772. /*
  773.  * Names for the keys with basic keycode
  774.  * between KFIRST and KLAST (inclusive). This is used by
  775.  * the key name routine in "kbd.c".
  776.  */
  777. char    *keystrings[] = {
  778.     NULL,        "Up",        "Down",        "Left",
  779.     "Right",    "Find",        "Insert",    "Remove",
  780.     "Select",    "Previous",    "Next",        "F4",
  781.     "F6",        "F7",        "F8",        "F9",
  782.     "F10",        "F11",        "F12",        "F13",
  783.     "F14",        "Help",        "Do",        "F17",
  784.     "F18",        "F19",        "F20",        "PF1",
  785.     "PF2",        "PF3",        "PF4",        NULL
  786. };
  787.  
  788. /*
  789.  * Read in a key, doing the low level mapping
  790.  * of ASCII code to 11 bit code. This level deals with
  791.  * mapping the special keys into their spots in the C1
  792.  * control area. The C0 controls go right through, and
  793.  * get remapped by "getkey".
  794.  */
  795. getkbd()
  796. {
  797.     register int    c;
  798.     register int    n;
  799. loop:
  800.     c = ttgetc();
  801.     if (c == ESC) {
  802.         c = ttgetc();
  803.         if (c == '[') {
  804.             c = ttgetc();
  805.             if (c == 'A')
  806.                 return (KUP);
  807.             if (c == 'B')
  808.                 return (KDOWN);
  809.             if (c == 'C')
  810.                 return (KRIGHT);
  811.             if (c == 'D')
  812.                 return (KLEFT);
  813.             if (c>='0' && c<='9') {    /* LK201 functions.    */
  814.                 n = 0;
  815.                 do {
  816.                     n = 10*n + c - '0';
  817.                     c = ttgetc();
  818.                 } while (c>='0' && c<='9');
  819.                 if (c=='~' && n<=34) {
  820.                     c = lk201map[n];
  821.                     if (c != KRANDOM)
  822.                         return (c);
  823.                     goto loop;
  824.                 }
  825.             }
  826.             goto loop;
  827.         }
  828.         if (c == 'O') {    
  829.             c = ttgetc();
  830.             if (c == 'A')
  831.                 return (KUP);
  832.             if (c == 'B')
  833.                 return (KDOWN);
  834.             if (c == 'C')
  835.                 return (KRIGHT);
  836.             if (c == 'D')
  837.                 return (KLEFT);
  838.             if (c == 'P')
  839.                 return (KPF1);
  840.             if (c == 'Q')
  841.                 return (KPF2);
  842.             if (c == 'R')
  843.                 return (KPF3);
  844.             if (c == 'S')
  845.                 return (KPF4);
  846.             goto loop;
  847.         }
  848.         if (ISLOWER(c) != FALSE)    /* Copy the standard    */
  849.             c = TOUPPER(c);        /* META code.        */
  850.         if (c>=0x00 && c<=0x1F)
  851.             c = KCTRL | (c+'@');
  852.         return (KMETA | c);
  853.     }
  854. #if DO_METAKEY
  855.     if (c & 0x80)        /* if meta bit set on input */
  856.         return (KMETA | (c & 0x7f)); /* move bit from 8th to KMETA */
  857. #endif
  858.     return (c);
  859. }
  860.  
  861. /*
  862.  * Terminal specific keymap initialization.
  863.  * Attach the special keys to the appropriate built
  864.  * in functions. Bind all of the assigned graphics in the
  865.  * DEC supplimental character set to "ins-self".
  866.  * As is the case of all the keymap routines, errors
  867.  * are very fatal.
  868.  */
  869. ttykeymapinit()
  870. {
  871.     register SYMBOL    *sp;
  872.     register int    i;
  873.  
  874.     keydup(KFIND,    "search-again");
  875.     keydup(KHELP,    "help");
  876.     keydup(KINSERT, "yank");
  877.     keydup(KREMOVE, "kill-region");
  878.     keydup(KSELECT, "set-mark");
  879.     keydup(KPREV,    "back-page");
  880.     keydup(KNEXT,    "forw-page");
  881.     keydup(KDO,    "execute-macro");
  882.     keydup(KF17,    "back-window");
  883.     keydup(KF18,    "forw-window");
  884.     keydup(KF19,    "enlarge-window");
  885.     keydup(KF20,    "shrink-window");
  886.     keydup(KUP,    "back-line");
  887.     keydup(KDOWN,    "forw-line");
  888.     keydup(KRIGHT,    "forw-char");
  889.     keydup(KLEFT,    "back-char");
  890.  
  891.     /*
  892.      * Bind all GR positions that correspond
  893.      * to assigned characters in the Digital multinational
  894.      * character set to "ins-self". These characters may
  895.      * be used just like any other character.
  896.      */
  897.  
  898.     if ((sp=symlookup("ins-self")) == NULL)
  899.         abort();
  900.     for (i=0xA0; i<0xFF; ++i) {
  901.         if (i!=0xA4 && i!=0xA6 && i!=0xAC && i!=0xAD && i!=0xAE
  902.         &&  i!=0xAF && i!=0xB4 && i!=0xB8 && i!=0xBE && i!=0xF0
  903.         &&  i!=0xFE && i!=0xA0) {
  904.             if (binding[i] != NULL)
  905.                 abort();
  906.             binding[i] = sp;
  907.             ++sp->s_nkey;
  908.         }
  909.     }
  910. }
  911. SHAR_EOF
  912. if test 4209 -ne "`wc -c < 'tty/termcap/ttykbd.c'`"
  913. then
  914.     echo shar: error transmitting "'tty/termcap/ttykbd.c'" '(should have been 4209 characters)'
  915. fi
  916. fi
  917. echo shar: done with directory "'tty/termcap'"
  918. echo shar: done with directory "'tty'"
  919. exit 0
  920. #    End of shell archive
  921.