libs: add termcap for curses

Copied from Applications/util.

diff --git a/Library/libs/termcap.c b/Library/libs/termcap.c
new file mode 100644 (file)
index 0000000..8c142f1
--- /dev/null
+++ b/Library/libs/termcap.c
@@ -0,0 +1,245 @@
+/* termcap - print termcap settings    Author: Terrence Holm */
+
+#include <termcap.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <string.h>
+
+char *capab = (char *) NULL;   /* the capability itself */
+
+#if 0
+/*  The following are not yet used.  */
+extern short ospeed;           /* output speed */
+extern char PC;                        /* padding character */
+extern char *BC;               /* back cursor movement */
+extern char *UP;               /* up cursor movement */
+#endif
+
+
+/*
+ *     tgetent - get the termcap entry for terminal name, and put it
+ *     in bp (which must be an array of 1024 chars). Returns 1 if
+ *     termcap entry found, 0 if not found, and -1 if file not found.
+ */
+
+int tgetent(char *bp, char *name)
+{
+    FILE *fp;
+    char *file;
+    char *term;
+    short len = strlen(name);
+
+    capab = bp;
+
+    /* If TERMCAP begins with a '/' then use TERMCAP as the path   */
+    /* Name of the termcap definitions file. If TERMCAP is a       */
+    /* Definition and TERM equals "name" then use TERMCAP as the   */
+    /* Definition. Otherwise use "/etc/termcap" as the path name.  */
+
+    if ((file = getenv("TERMCAP")) == (char *) NULL)
+       file = "/etc/termcap";
+    else if (*file != '/')
+       if ((term = getenv("TERM")) != (char *) NULL
+           && strcmp(term, name) == 0) {
+           *bp = '\0';
+           strncat(bp, file, 1023);
+           return (1);
+       } else
+           file = "/etc/termcap";
+
+    if ((fp = fopen(file, "r")) == (FILE *) NULL) {
+       capab = (char *) NULL;  /* no valid termcap  */
+       return (-1);
+    }
+    for (;;) {
+       /* Read in each definition */
+       int def_len = 0;
+       char *cp = bp;
+
+       do {
+           if (fgets(&bp[def_len], (unsigned int) (1024 - def_len), fp) ==
+               (char *) NULL) {
+               fclose(fp);
+               capab = (char *) NULL;  /* no valid termcap */
+               return (0);
+           }
+           def_len = strlen(bp) - 2;
+       } while (bp[def_len] == '\\');
+
+       while (isspace(*cp))
+           cp++;
+
+       /* Comment lines start with a '#'  */
+       if (*cp == '#')
+           continue;
+
+       /* See if any of the terminal names in this definition */
+       /* Match "name".                                       */
+
+       do {
+           if (strncmp(name, cp, len) == 0 &&
+               (cp[len] == '|' || cp[len] == ':')) {
+               fclose(fp);
+               return (1);
+           }
+           while ((*cp) && (*cp != '|') && (*cp != ':'))
+               cp++;
+       } while (*cp++ == '|');
+    }
+}
+
+
+/*
+ *     tgetnum - get the numeric terminal capability corresponding
+ *     to id. Returns the value, -1 if invalid.
+ */
+
+int tgetnum(char *id)
+{
+    register char *cp = capab;
+
+    if (cp == (char *) NULL || id == (char *) NULL)
+       return (-1);
+
+    for (;;) {
+       while (*cp++ != ':') {
+           if (cp[-1] == '\0')
+               return (-1);
+       }
+       while (isspace(*cp))
+           cp++;
+
+       if (strncmp(cp, id, 2) == 0 && cp[2] == '#') {
+           return (atoi(cp + 3));
+        }
+    }
+}
+
+
+/*
+ *     tgetflag - get the boolean flag corresponding to id. Returns -1
+ *     if invalid, 0 if the flag is not in termcap entry, or 1 if it is
+ *     present.
+ */
+
+int tgetflag(char *id)
+{
+    register char *cp = capab;
+
+    if (cp == (char *) NULL || id == (char *) NULL)
+       return (-1);
+
+    for (;;) {
+       while (*cp++ != ':')
+           if (cp[-1] == '\0')
+               return (0);
+
+       while (isspace(*cp))
+           cp++;
+
+       if (strncmp(cp, id, 2) == 0)
+           return (1);
+    }
+}
+
+
+/*
+ *     tgetstr - get the string capability corresponding to id and place
+ *     it in area (advancing area at same time). Expand escape sequences
+ *     etc. Returns the string, or NULL if it can't do it.
+ */
+
+char *tgetstr(char *id, char **area)
+{
+    register char *cp = capab;
+    register char *wsp = *area;        /* workspace pointer  */
+
+    if (cp == (char *) NULL || id == (char *) NULL)
+       return ((char *) NULL);
+
+    for (;;) {
+       while (*cp++ != ':')
+           if (cp[-1] == '\0')
+               return ((char *) NULL);
+
+       while (isspace(*cp))
+           cp++;
+
+       if (strncmp(cp, id, 2) == 0 && cp[2] == '=') {
+           for (cp += 3; *cp && *cp != ':'; wsp++, cp++)
+               switch (*cp) {
+               case '^':
+                   *wsp = *++cp - '@';
+                   break;
+
+               case '\\':
+                   switch (*++cp) {
+                   case 'E':
+                       *wsp = '\033';
+                       break;
+                   case 'n':
+                       *wsp = '\n';
+                       break;
+                   case 'r':
+                       *wsp = '\r';
+                       break;
+                   case 't':
+                       *wsp = '\t';
+                       break;
+                   case 'b':
+                       *wsp = '\b';
+                       break;
+                   case 'f':
+                       *wsp = '\f';
+                       break;
+                   case '0':
+                   case '1':
+                   case '2':
+                   case '3':
+                       {
+                           int i;
+                           int t = 0;
+                           for (i = 0; i < 3 && isdigit(*cp); ++i, ++cp)
+                               t = t * 8 + *cp - '0';
+                           *wsp = t;
+                           cp--;
+                           break;
+                       }
+                   default:
+                       *wsp = *cp;
+                   }
+                   break;
+
+               default:
+                   *wsp = *cp;
+               }
+
+           *wsp++ = '\0';
+
+           {
+               char *ret = *area;
+               *area = wsp;
+               return (ret);
+           }
+       }
+    }                          /* end for(;;) */
+}
+
+/*
+ *     tputs - put the string cp out onto the terminal, using the function
+ *     outc. This should do padding for the terminal, but I can't find a
+ *     terminal that needs padding at the moment...
+ */
+
+
+int tputs(register char *cp, int affcnt, void (*outc)(int ch))
+{
+    if (cp == (char *) NULL)
+       return (1);
+    /* Do any padding interpretation - left null for MINIX just now */
+    while (*cp)
+       (*outc) (*cp++);
+    return (1);
+}
+