From: Faisal Abbas <90.abbasfaisal@gmail.com>
Date: Mon, 17 Aug 2015 12:35:02 +0000 (+0500)
Subject: libs: add termcap for curses
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=444f25aa45759ae65cf81f8e199391d0dd4b2b77;p=FUZIX.git

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
index 00000000..8c142f1d
--- /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);
+}
+