ncurses 5.2
[ncurses.git] / ncurses / tinfo / lib_termcap.c
1 /****************************************************************************
2  * Copyright (c) 1998,1999,2000 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 /****************************************************************************
30  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
31  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
32  ****************************************************************************/
33
34 #include <curses.priv.h>
35
36 #include <termcap.h>
37 #include <tic.h>
38
39 #define __INTERNAL_CAPS_VISIBLE
40 #include <term_entry.h>
41
42 MODULE_ID("$Id: lib_termcap.c,v 1.37 2000/09/16 20:30:16 tom Exp $")
43
44 /*
45    some of the code in here was contributed by:
46    Magnus Bengtsson, d6mbeng@dtek.chalmers.se
47 */
48
49 char *UP = 0;
50 char *BC = 0;
51
52 /***************************************************************************
53  *
54  * tgetent(bufp, term)
55  *
56  * In termcap, this function reads in the entry for terminal `term' into the
57  * buffer pointed to by bufp. It must be called before any of the functions
58  * below are called.
59  * In this terminfo emulation, tgetent() simply calls setupterm() (which
60  * does a bit more than tgetent() in termcap does), and returns its return
61  * value (1 if successful, 0 if no terminal with the given name could be
62  * found, or -1 if no terminal descriptions have been installed on the
63  * system).  The bufp argument is ignored.
64  *
65  ***************************************************************************/
66
67 int
68 tgetent(char *bufp GCC_UNUSED, const char *name)
69 {
70     int errcode;
71
72     T((T_CALLED("tgetent()")));
73
74     setupterm((NCURSES_CONST char *) name, STDOUT_FILENO, &errcode);
75
76     if (errcode == 1) {
77
78         if (cursor_left)
79             if ((backspaces_with_bs = !strcmp(cursor_left, "\b")) == 0)
80                 backspace_if_not_bs = cursor_left;
81
82         /* we're required to export these */
83         if (pad_char != NULL)
84             PC = pad_char[0];
85         if (cursor_up != NULL)
86             UP = cursor_up;
87         if (backspace_if_not_bs != NULL)
88             BC = backspace_if_not_bs;
89
90         (void) baudrate();      /* sets ospeed as a side-effect */
91
92 /* LINT_PREPRO
93 #if 0*/
94 #include <capdefaults.c>
95 /* LINT_PREPRO
96 #endif*/
97
98     }
99     returnCode(errcode);
100 }
101
102 /***************************************************************************
103  *
104  * tgetflag(str)
105  *
106  * Look up boolean termcap capability str and return its value (TRUE=1 if
107  * present, FALSE=0 if not).
108  *
109  ***************************************************************************/
110
111 int
112 tgetflag(NCURSES_CONST char *id)
113 {
114     int i;
115
116     T((T_CALLED("tgetflag(%s)"), id));
117     if (cur_term != 0) {
118         TERMTYPE *tp = &(cur_term->type);
119         for_each_boolean(i, tp) {
120             const char *capname = ExtBoolname(tp, i, boolcodes);
121             if (!strncmp(id, capname, 2)) {
122                 /* setupterm forces invalid booleans to false */
123                 returnCode(tp->Booleans[i]);
124             }
125         }
126     }
127     returnCode(0);              /* Solaris does this */
128 }
129
130 /***************************************************************************
131  *
132  * tgetnum(str)
133  *
134  * Look up numeric termcap capability str and return its value, or -1 if
135  * not given.
136  *
137  ***************************************************************************/
138
139 int
140 tgetnum(NCURSES_CONST char *id)
141 {
142     int i;
143
144     T((T_CALLED("tgetnum(%s)"), id));
145     if (cur_term != 0) {
146         TERMTYPE *tp = &(cur_term->type);
147         for_each_number(i, tp) {
148             const char *capname = ExtNumname(tp, i, numcodes);
149             if (!strncmp(id, capname, 2)) {
150                 if (!VALID_NUMERIC(tp->Numbers[i]))
151                     returnCode(ABSENT_NUMERIC);
152                 returnCode(tp->Numbers[i]);
153             }
154         }
155     }
156     returnCode(ABSENT_NUMERIC);
157 }
158
159 /***************************************************************************
160  *
161  * tgetstr(str, area)
162  *
163  * Look up string termcap capability str and return a pointer to its value,
164  * or NULL if not given.
165  *
166  ***************************************************************************/
167
168 char *
169 tgetstr(NCURSES_CONST char *id, char **area)
170 {
171     int i;
172
173     T((T_CALLED("tgetstr(%s,%p)"), id, area));
174     if (cur_term != 0) {
175         TERMTYPE *tp = &(cur_term->type);
176         for_each_string(i, tp) {
177             const char *capname = ExtStrname(tp, i, strcodes);
178             if (!strncmp(id, capname, 2)) {
179                 TR(TRACE_DATABASE,("found match : %s", _nc_visbuf(tp->Strings[i])));
180                 /* setupterm forces canceled strings to null */
181                 if (area != 0
182                     && *area != 0
183                     && VALID_STRING(tp->Strings[i])) {
184                     (void) strcpy(*area, tp->Strings[i]);
185                     *area += strlen(*area) + 1;
186                 }
187                 returnPtr(tp->Strings[i]);
188             }
189         }
190     }
191     returnPtr(NULL);
192 }