projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
BSD 4_2 release
[unix-history] / usr / src / games / cribbage / io.c
diff --git a/usr/src/games/cribbage/io.c b/usr/src/games/cribbage/io.c
index 1f85651..b88c99c 100644 (file)
--- a/usr/src/games/cribbage/io.c
+++ b/usr/src/games/cribbage/io.c
@@ -1,349 +1,564 @@
-static char sccsid[] = "       io.c    1.1     82/05/12        ";
+static char    *sccsid = "@(#)io.c     1.13 (Berkeley) 9/26/83";
 
 
+# include      <curses.h>
+# include      <ctype.h>
+# include      <signal.h>
+# include      "deck.h"
+# include      "cribbage.h"
+# include      "cribcur.h"
 
 
-#include       <stdio.h>
-#include       "deck.h"
+# define       LINESIZE                128
 
 
-#define                LINESIZE                128
+# ifdef CTRL
+# undef CTRL
+# endif
+# define       CTRL(X)                 ('X' - 'A' + 1)
+
+# ifndef       attron
+#      define  erasechar()     _tty.sg_erase
+#      define  killchar()      _tty.sg_kill
+# endif                attron
 
 char           linebuf[ LINESIZE ];
 
 char           *rankname[ RANKS ]      = { "ACE", "TWO", "THREE", "FOUR",
 
 char           linebuf[ LINESIZE ];
 
 char           *rankname[ RANKS ]      = { "ACE", "TWO", "THREE", "FOUR",
-                                           "FIVE", "SIX", "SEVEN", "EIGHT",
-                                            "NINE", "TEN", "JACK", "QUEEN",
-                                            "KING" };
+                                           "FIVE", "SIX", "SEVEN", "EIGHT",
+                                           "NINE", "TEN", "JACK", "QUEEN",
+                                           "KING" };
 
 char            *rankchar[ RANKS ]      = { "A", "2", "3", "4", "5", "6", "7",
 
 char            *rankchar[ RANKS ]      = { "A", "2", "3", "4", "5", "6", "7",
-                                            "8", "9", "T", "J", "Q", "K" };
+                                           "8", "9", "T", "J", "Q", "K" };
 
 char            *suitname[ SUITS ]      = { "SPADES", "HEARTS", "DIAMONDS",
 
 char            *suitname[ SUITS ]      = { "SPADES", "HEARTS", "DIAMONDS",
-                                            "CLUBS" };
+                                           "CLUBS" };
 
 char            *suitchar[ SUITS ]      = { "S", "H", "D", "C" };
 
 
 
 /*
 
 char            *suitchar[ SUITS ]      = { "S", "H", "D", "C" };
 
 
 
 /*
- * call prcard in one of two forms
+ * msgcard:
+ *     Call msgcrd in one of two forms
  */
  */
-
-printcard( c, brief )
-
-    CARD                c;
-    BOOLEAN             brief;
+msgcard(c, brief)
+CARD           c;
+BOOLEAN                brief;
 {
 {
-        if( brief )  return(  prcard( c, TRUE, (char *) NULL, TRUE )  );
-        else         return(  prcard( c, FALSE, " of ", FALSE )  );
+       if (brief)
+               return msgcrd(c, TRUE, (char *) NULL, TRUE);
+       else
+               return msgcrd(c, FALSE, " of ", FALSE);
 }
 
 
 
 /*
 }
 
 
 
 /*
- * print the value of a card in ascii
+ * msgcrd:
+ *     Print the value of a card in ascii
  */
  */
-
-prcard( c, brfrank, mid, brfsuit )
-
-    CARD                c;
-    char                *mid;
-    BOOLEAN             brfrank,  brfsuit;
+msgcrd(c, brfrank, mid, brfsuit)
+CARD           c;
+char           *mid;
+BOOLEAN                brfrank,  brfsuit;
 {
 {
-        if(  c.rank == -1  ||  c.suit == -1  )  return( FALSE );
-        if( brfrank )  {
-            printf( "%1.1s",  rankchar[ c.rank ] );
-        }
-        else  {
-            printf( "%s",  rankname[ c.rank ] );
-        }
-        if( mid != NULL )  printf( "%s", mid );
-        if( brfsuit )  {
-            printf( "%1.1s",  suitchar[ c.suit ] );
-        }
-        else  {
-            printf( "%s",  suitname[ c.suit ] );
-        }
-        return( TRUE );
+       if (c.rank == EMPTY || c.suit == EMPTY)
+           return FALSE;
+       if (brfrank)
+           addmsg("%1.1s", rankchar[c.rank]);
+       else
+           addmsg(rankname[c.rank]);
+       if (mid != NULL)
+           addmsg(mid);
+       if (brfsuit)
+           addmsg("%1.1s", suitchar[c.suit]);
+       else
+           addmsg(suitname[c.suit]);
+       return TRUE;
 }
 
 }
 
-
-
 /*
 /*
- * prhand prints a hand of n cards
+ * printcard:
+ *     Print out a card.
  */
  */
+printcard(win, cardno, c, blank)
+WINDOW         *win;
+int            cardno;
+CARD           c;
+BOOLEAN                blank;
+{
+       prcard(win, cardno * 2, cardno, c, blank);
+}
 
 
-prhand( h, n, brief )
+/*
+ * prcard:
+ *     Print out a card on the window at the specified location
+ */
+prcard(win, y, x, c, blank)
+WINDOW         *win;
+int            y, x;
+CARD           c;
+BOOLEAN                blank;
+{
+       if (c.rank == EMPTY)
+           return;
+       mvwaddstr(win, y + 0, x, "+-----+");
+       mvwaddstr(win, y + 1, x, "|     |");
+       mvwaddstr(win, y + 2, x, "|     |");
+       mvwaddstr(win, y + 3, x, "|     |");
+       mvwaddstr(win, y + 4, x, "+-----+");
+       if (!blank) {
+               mvwaddch(win, y + 1, x + 1, rankchar[c.rank][0]);
+               waddch(win, suitchar[c.suit][0]);
+               mvwaddch(win, y + 3, x + 4, rankchar[c.rank][0]);
+               waddch(win, suitchar[c.suit][0]);
+       }
+}
 
 
-    CARD                h[];
-    int                 n;
-    BOOLEAN             brief;
+/*
+ * prhand:
+ *     Print a hand of n cards
+ */
+prhand(h, n, win, blank)
+CARD           h[];
+int            n;
+WINDOW         *win;
+BOOLEAN                blank;
 {
 {
-        register  int           i;
-
-        --n;
-        for( i = 0; i < n; i++ )  {
-            if(  printcard( h[i], brief )  )  {
-                if( brief )  printf( ", " );
-                else     printf( "\n" );
-            }
-        }
-        printcard( h[i], brief );
+       register int    i;
+
+       werase(win);
+       for (i = 0; i < n; i++)
+           printcard(win, i, *h++, blank);
+       wrefresh(win);
 }
 
 
 
 /*
 }
 
 
 
 /*
- * infrom reads a card, supposedly in hand, accepting unambigous brief input
- * returns the index of the card found...
+ * infrom:
+ *     reads a card, supposedly in hand, accepting unambigous brief
+ *     input, returns the index of the card found...
  */
  */
-
-infrom( hand, n )
-
-    CARD                hand[];
-    int                 n;
+infrom(hand, n, prompt)
+CARD           hand[];
+int            n;
+char           *prompt;
 {
 {
-        register  int           i, j;
-        CARD                    crd;
-
-        if(  n < 1  )  {
-            printf( "\nINFROM: %d = n < 1!!\n", n );
-            exit( 74 );
-        }
-        do  {
-            if(  incard( &crd )  )  {           /* if card is full card */
-                if(  !isone( crd, hand, n )  )  {
-                    printf( "That's not in your hand.  Play one of ( " );
-                    prhand( hand, n, TRUE );
-                    printf( " ): " );
-                }
-                else  {
-                    for( i = 0; i < n; i++ )  {
-                        if(  hand[i].rank == crd.rank  &&
-                             hand[i].suit == crd.suit      )  break;
-                    }
-                    if(  i >= n  )  {
-                        printf( "\nINFROM: isone or something messed up\n" );
-                        exit( 77 );
-                    }
-                    return( i );
-                }
-            }
-            else  {                             /* if not full card... */
-                if(  crd.rank  !=  -1  )  {
-                    for( i = 0; i < n; i++ )  {
-                        if(  hand[i].rank == crd.rank  )  break;
-                    }
-                    if(  i >= n  )  {
-                        printf( "No such rank in your hand.  Play one of ( " );
-                        prhand( hand, n, TRUE );
-                        printf( " ): " );
-                    }
-                    else  {
-                        for( j = i + 1; j < n; j++ )  {
-                            if(  hand[j].rank == crd.rank  )  break;
-                        }
-                        if(  j < n  )  {
-                            printf( "Ambiguous rank.  Play one of ( " );
-                            prhand( hand, n, TRUE );
-                            printf( " ): " );
-                        }
-                        else  {
-                            return( i );
-                        }
-                    }
-                }
-                else  {
-                    printf( "Sorry, I missed that.  Play one of ( " );
-                    prhand( hand, n, TRUE );
-                    printf( " ): " );
-                }
-            }
-        }  while( TRUE );
-       return( 0 );   /*  Useless:  keeps lint quiet  */
+       register int           i, j;
+       CARD                    crd;
+
+       if (n < 1) {
+           printf("\nINFROM: %d = n < 1!!\n", n);
+           exit(74);
+       }
+       for (;;) {
+           msg(prompt);
+           if (incard(&crd)) {                 /* if card is full card */
+               if (!isone(crd, hand, n))
+                   msg("That's not in your hand");
+               else {
+                   for (i = 0; i < n; i++)
+                       if (hand[i].rank == crd.rank &&
+                           hand[i].suit == crd.suit)
+                               break;
+                   if (i >= n) {
+                       printf("\nINFROM: isone or something messed up\n");
+                       exit(77);
+                   }
+                   return i;
+               }
+           }
+           else                                /* if not full card... */
+               if (crd.rank != EMPTY) {
+                   for (i = 0; i < n; i++)
+                       if (hand[i].rank == crd.rank)
+                               break;
+                   if (i >= n)
+                       msg("No such rank in your hand");
+                   else {
+                       for (j = i + 1; j < n; j++)
+                           if (hand[j].rank == crd.rank)
+                               break;
+                       if (j < n)
+                           msg("Ambiguous rank");
+                       else
+                           return i;
+                   }
+               }
+               else
+                   msg("Sorry, I missed that");
+       }
+       /* NOTREACHED */
 }
 
 
 
 /*
 }
 
 
 
 /*
- * incard inputs a card in any format
- * it reads a line ending with a CR and then parses it
+ * incard:
+ *     Inputs a card in any format.  It reads a line ending with a CR
+ *     and then parses it.
  */
  */
-
-incard( crd )
-
-    CARD                *crd;
+incard(crd)
+CARD           *crd;
 {
 {
-        char                    *getline();
-        register  int           i;
-        int                     rnk, sut;
-        char                    *line, *p, *p1;
-        BOOLEAN                 retval;
-
-        retval = FALSE;
-        rnk = sut = -1;
-        if(  !( line = getline() )  )  goto  gotit;
-        p = p1 = line;
-        while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
-        *p1++ = NULL;
-        if(  *p == NULL  )  goto  gotit;
-                        /* IMPORTANT: no real card has 2 char first name */
-        if(  strlen(p) == 2  )  {               /* check for short form */
-            rnk = -1;
-            for( i = 0; i < RANKS; i++ )  {
-                if(  *p == *rankchar[i]  )  {
-                    rnk = i;
-                    break;
-                }
-            }
-            if(  rnk == -1  )  goto  gotit;     /* it's nothing... */
-            ++p;                                /* advance to next char */
-            sut = -1;
-            for( i = 0; i < SUITS; i++ )  {
-                if(  *p == *suitchar[i]  )  {
-                    sut = i;
-                    break;
-                }
-            }
-            if(  sut != -1  )  retval = TRUE;
-            goto  gotit;
-        }
-        rnk = -1;
-        for( i = 0; i < RANKS; i++ )  {
-            if(  !strcmp( p, rankname[i] )  ||  !strcmp( p, rankchar[i] )  )  {
-                rnk = i;
-                break;
-            }
-        }
-        if(  rnk == -1  )  goto  gotit;
-        p = p1;
-        while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
-        *p1++ = NULL;
-        if(  *p == NULL  )  goto  gotit;
-        if(  !strcmp( "OF", p )  )  {
-            p = p1;
-            while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
-            *p1++ = NULL;
-            if(  *p == NULL  )  goto  gotit;
-        }
-        sut = -1;
-        for( i = 0; i < SUITS; i++ )  {
-            if(  !strcmp( p, suitname[i] )  ||  !strcmp( p, suitchar[i] )  )  {
-                sut = i;
-                break;
-            }
-        }
-        if(  sut != -1  )  retval = TRUE;
+       char            *getline();
+       register int    i;
+       int             rnk, sut;
+       char            *line, *p, *p1;
+       BOOLEAN         retval;
+
+       retval = FALSE;
+       rnk = sut = EMPTY;
+       if (!(line = getline()))
+               goto gotit;
+       p = p1 = line;
+       while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
+       *p1++ = NULL;
+       if(  *p == NULL  )  goto  gotit;
+                       /* IMPORTANT: no real card has 2 char first name */
+       if(  strlen(p) == 2  )  {               /* check for short form */
+           rnk = EMPTY;
+           for( i = 0; i < RANKS; i++ )  {
+               if(  *p == *rankchar[i]  )  {
+                   rnk = i;
+                   break;
+               }
+           }
+           if(  rnk == EMPTY  )  goto  gotit;     /* it's nothing... */
+           ++p;                                /* advance to next char */
+           sut = EMPTY;
+           for( i = 0; i < SUITS; i++ )  {
+               if(  *p == *suitchar[i]  )  {
+                   sut = i;
+                   break;
+               }
+           }
+           if(  sut != EMPTY  )  retval = TRUE;
+           goto  gotit;
+       }
+       rnk = EMPTY;
+       for( i = 0; i < RANKS; i++ )  {
+           if(  !strcmp( p, rankname[i] )  ||  !strcmp( p, rankchar[i] )  )  {
+               rnk = i;
+               break;
+           }
+       }
+       if(  rnk == EMPTY  )  goto  gotit;
+       p = p1;
+       while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
+       *p1++ = NULL;
+       if(  *p == NULL  )  goto  gotit;
+       if(  !strcmp( "OF", p )  )  {
+           p = p1;
+           while(  *p1 != ' '  &&  *p1 != NULL  )  ++p1;
+           *p1++ = NULL;
+           if(  *p == NULL  )  goto  gotit;
+       }
+       sut = EMPTY;
+       for( i = 0; i < SUITS; i++ )  {
+           if(  !strcmp( p, suitname[i] )  ||  !strcmp( p, suitchar[i] )  )  {
+               sut = i;
+               break;
+           }
+       }
+       if(  sut != EMPTY  )  retval = TRUE;
 gotit:
 gotit:
-        (*crd).rank = rnk;
-        (*crd).suit = sut;
-        return( retval );
+       (*crd).rank = rnk;
+       (*crd).suit = sut;
+       return( retval );
 }
 
 
 
 /*
 }
 
 
 
 /*
- * getuchar reads and converts to upper case
+ * getuchar:
+ *     Reads and converts to upper case
  */
  */
-
 getuchar()
 {
 getuchar()
 {
-        register  int           c;
+       register int            c;
 
 
-        c = getchar();
-        if(  c < 'a'  ||  c > 'z'  )  return( c );
-        else                          return(  c + ('A' - 'a')  );
+       c = readchar();
+       if (islower(c))
+           c = toupper(c);
+       waddch(Msgwin, c);
+       return c;
 }
 
 }
 
-
+/*
+ * number:
+ *     Reads in a decimal number and makes sure it is between "lo" and
+ *     "hi" inclusive.
+ */
+number(lo, hi, prompt)
+int            lo, hi;
+char           *prompt;
+{
+       char                    *getline();
+       register char           *p;
+       register int            sum;
+
+       sum = 0;
+       for (;;) {
+           msg(prompt);
+           if(!(p = getline()) || *p == NULL) {
+               msg(quiet ? "Not a number" : "That doesn't look like a number");
+               continue;
+           }
+           sum = 0;
+
+           if (!isdigit(*p))
+               sum = lo - 1;
+           else
+               while (isdigit(*p)) {
+                   sum = 10 * sum + (*p - '0');
+                   ++p;
+               }
+
+           if (*p != ' ' && *p != '\t' && *p != NULL)
+               sum = lo - 1;
+           if (sum >= lo && sum <= hi)
+               return sum;
+           if (sum == lo - 1)
+               msg("that doesn't look like a number, try again --> ");
+           else
+               msg("%d is not between %d and %d inclusive, try again --> ",
+                                                               sum, lo, hi);
+       }
+}
 
 /*
 
 /*
- * number reads in a decimal number and makes sure it is between
- * lo and hi inclusive
- * a cr counts as lo
+ * msg:
+ *     Display a message at the top of the screen.
  */
  */
+char           Msgbuf[BUFSIZ] = { '\0' };
 
 
-number( lo, hi )
+int            Mpos = 0;
 
 
-    int         lo, hi;
+static int     Newpos = 0;
+
+/* VARARGS1 */
+msg(fmt, args)
+char   *fmt;
+int    args;
 {
 {
-        char                    *getline();
-        register  char          *p;
-        register  int            sum;
-
-        sum = 0;
-        do  {
-            if(  !( p = getline() )  )  return( lo );   /* no line = lo */
-            if(  *p == NULL  )  return( lo );
-            sum = 0;
-            while(  *p == ' '  ||  *p == '\t'  )  ++p;
-            if(  *p < '0'  ||  *p > '9'  )  {
-                sum = lo - 1;
-            }
-            else  {
-                do  {
-                    sum = 10*sum + (*p - '0');
-                    ++p;
-                }  while(  '0' <= *p  &&  *p <= '9'  );
-            }
-            if(  *p != ' '  &&  *p != '\t'  &&  *p != NULL  )  sum = lo - 1;
-            if(  sum >= lo  &&  sum <= hi  )  break;
-            if(  sum == lo - 1  )  {
-                printf( "that doesn't look like a number, try again --> " );
-            }
-            else  {
-                printf( "%d is not between %d and %d inclusive, try again --> ",
-                                                                sum, lo, hi );
-            }
-        }  while( TRUE );
-        return( sum );
+    doadd(fmt, &args);
+    endmsg();
 }
 
 }
 
+/*
+ * addmsg:
+ *     Add things to the current message
+ */
+/* VARARGS1 */
+addmsg(fmt, args)
+char   *fmt;
+int    args;
+{
+    doadd(fmt, &args);
+}
 
 
+/*
+ * endmsg:
+ *     Display a new msg.
+ */
+
+int    Lineno = 0;
+
+endmsg()
+{
+    register int       len;
+    register char      *mp, *omp;
+    static int         lastline = 0;
+
+    /*
+     * All messages should start with uppercase
+     */
+    mvaddch(lastline + Y_MSG_START, SCORE_X, ' ');
+    if (islower(Msgbuf[0]) && Msgbuf[1] != ')')
+       Msgbuf[0] = toupper(Msgbuf[0]);
+    mp = Msgbuf;
+    len = strlen(mp);
+    if (len / MSG_X + Lineno >= MSG_Y) {
+       while (Lineno < MSG_Y) {
+           wmove(Msgwin, Lineno++, 0);
+           wclrtoeol(Msgwin);
+       }
+       Lineno = 0;
+    }
+    mvaddch(Lineno + Y_MSG_START, SCORE_X, '*');
+    lastline = Lineno;
+    do {
+       mvwaddstr(Msgwin, Lineno, 0, mp);
+       if ((len = strlen(mp)) > MSG_X) {
+           omp = mp;
+           for (mp = &mp[MSG_X-1]; *mp != ' '; mp--)
+               continue;
+           while (*mp == ' ')
+               mp--;
+           mp++;
+           wmove(Msgwin, Lineno, mp - omp);
+           wclrtoeol(Msgwin);
+       }
+       if (++Lineno >= MSG_Y)
+           Lineno = 0;
+    } while (len > MSG_X);
+    wclrtoeol(Msgwin);
+    Mpos = len;
+    Newpos = 0;
+    wrefresh(Msgwin);
+    refresh();
+    wrefresh(Msgwin);
+}
 
 /*
 
 /*
- * getline reads the next line up to '\n' or EOF
- * multiple spaces are compressed to one space
- * a space is inserted before a ','
+ * doadd:
+ *     Perform an add onto the message buffer
  */
  */
+doadd(fmt, args)
+char   *fmt;
+int    *args;
+{
+    static FILE        junk;
+
+    /*
+     * Do the printf into Msgbuf
+     */
+    junk._flag = _IOWRT + _IOSTRG;
+    junk._ptr = &Msgbuf[Newpos];
+    junk._cnt = 32767;
+    _doprnt(fmt, args, &junk);
+    putc('\0', &junk);
+    Newpos = strlen(Msgbuf);
+}
 
 
-char  *getline()
+/*
+ * do_wait:
+ *     Wait for the user to type ' ' before doing anything else
+ */
+do_wait()
 {
 {
-        register  char                  c, *p;
-
-        do  {
-            c = getuchar();
-            if(  c < 0  )  return( NULL );
-        }  while(  c == ' '  ||  c == '\t'  );
-        if(  c == '\n'  )  {
-            linebuf[0] = NULL;
-            return( linebuf );
-        }
-        p = linebuf;
-        *p = c;                                         /* first non-blank */
-        while(  ( c = getuchar() )  >= 0  )  {          /* read one line */
-            if(  c == '\n'  )  break;
-            if(  c == ','  )  if(  *p != ' '  )  *++p = ' ';
-            if(  *p == ' '  )  {                        /* compress spaces */
-                if(  c == ' '  ||  c == '\t'  )  continue;
-                else  *++p = c;
-            }
-            else  {
-                if(  c == ' '  ||  c == '\t'  )  *++p = ' ';
-                else  *++p = c;
-            }
-            if(  p - linebuf  >=  (LINESIZE - 2)  )  {
-                do  {
-                    c = getuchar();
-                    if(  c < 0  )  return( NULL );
-                }  while(  c != '\n'  );
-                break;
-            }
-        }
-        if(  c < 0  )  return( NULL );
-        *++p = NULL;
-        *++p = NULL;
-        return( linebuf );
+    register int line;
+    static char prompt[] = { '-', '-', 'M', 'o', 'r', 'e', '-', '-', '\0' };
+
+    if (Mpos + sizeof prompt < MSG_X)
+       wmove(Msgwin, Lineno > 0 ? Lineno - 1 : MSG_Y - 1, Mpos);
+    else {
+       mvwaddch(Msgwin, Lineno, 0, ' ');
+       wclrtoeol(Msgwin);
+       if (++Lineno >= MSG_Y)
+           Lineno = 0;
+    }
+    waddstr(Msgwin, prompt);
+    wrefresh(Msgwin);
+    wait_for(' ');
 }
 
 }
 
+/*
+ * wait_for
+ *     Sit around until the guy types the right key
+ */
+wait_for(ch)
+register char  ch;
+{
+    register char      c;
+
+    if (ch == '\n')
+       while ((c = readchar()) != '\n')
+           continue;
+    else
+       while (readchar() != ch)
+           continue;
+}
 
 
+/*
+ * readchar:
+ *     Reads and returns a character, checking for gross input errors
+ */
+readchar()
+{
+    register int       cnt, y, x;
+    auto char          c;
+
+over:
+    cnt = 0;
+    while (read(0, &c, 1) <= 0)
+       if (cnt++ > 100)        /* if we are getting infinite EOFs */
+           bye();              /* quit the game */
+    if (c == CTRL(L)) {
+       wrefresh(curscr);
+       goto over;
+    }
+    if (c == '\r')
+       return '\n';
+    else
+       return c;
+}
 
 
+/*
+ * getline:
+ *      Reads the next line up to '\n' or EOF.  Multiple spaces are
+ *     compressed to one space; a space is inserted before a ','
+ */
+char *
+getline()
+{
+    register char      *sp;
+    register int       c, oy, ox;
+    register WINDOW    *oscr;
+
+    oscr = stdscr;
+    stdscr = Msgwin;
+    getyx(stdscr, oy, ox);
+    refresh();
+    /*
+     * loop reading in the string, and put it in a temporary buffer
+     */
+    for (sp = linebuf; (c = readchar()) != '\n'; clrtoeol(), refresh()) {
+       if (c == -1)
+           continue;
+       else if (c == erasechar()) {    /* process erase character */
+           if (sp > linebuf) {
+               register int i;
+
+               sp--;
+               for (i = strlen(unctrl(*sp)); i; i--)
+                   addch('\b');
+           }
+           continue;
+       }
+       else if (c == killchar()) {     /* process kill character */
+           sp = linebuf;
+           move(oy, ox);
+           continue;
+       }
+       else if (sp == linebuf && c == ' ')
+           continue;
+       if (sp >= &linebuf[LINESIZE-1] || !(isprint(c) || c == ' '))
+           putchar(CTRL(G));
+       else {
+           if (islower(c))
+               c = toupper(c);
+           *sp++ = c;
+           addstr(unctrl(c));
+           Mpos++;
+       }
+    }
+    *sp = '\0';
+    stdscr = oscr;
+    return linebuf;
+}
 
 
+/*
+ * bye:
+ *     Leave the program, cleaning things up as we go.
+ */
+bye()
+{
+       signal(SIGINT, SIG_IGN);
+       mvcur(0, COLS - 1, LINES - 1, 0);
+       fflush(stdout);
+       endwin();
+       putchar('\n');
+       exit(1);
+}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.