1/****************************************************************************
2 * Copyright (c) 2000-2006,2008 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: Thomas E. Dickey                                                *
31 ****************************************************************************/
32
33#include <curses.priv.h>
34
35#include <ctype.h>
36#include <termcap.h>
37
38MODULE_ID("$Id: lib_tgoto.c,v 1.13 2008/08/16 19:29:32 tom Exp $")
39
40#if !PURE_TERMINFO
41static bool
42is_termcap(const char *string)
43{
44    bool result = TRUE;
45
46    if (string == 0 || *string == '\0') {
47	result = FALSE;		/* tparm() handles empty strings */
48    } else {
49	while ((*string != '\0') && result) {
50	    if (*string == '%') {
51		switch (*++string) {
52		case 'p':
53		    result = FALSE;
54		    break;
55		case '\0':
56		    string--;
57		    break;
58		}
59	    } else if (string[0] == '$' && string[1] == '<') {
60		result = FALSE;
61	    }
62	    string++;
63	}
64    }
65    return result;
66}
67
68static char *
69tgoto_internal(const char *string, int x, int y)
70{
71    static char *result;
72    static size_t length;
73
74    int swap_arg;
75    int param[3];
76    size_t used = 0;
77    size_t need = 10;
78    int *value = param;
79    bool need_BC = FALSE;
80
81    if (BC)
82	need += strlen(BC);
83
84    param[0] = y;
85    param[1] = x;
86    param[2] = 0;
87
88    while (*string != 0) {
89	if ((used + need) > length) {
90	    length += (used + need);
91	    if ((result = typeRealloc(char, length, result)) == 0) {
92		length = 0;
93		break;
94	    }
95	}
96	if (*string == '%') {
97	    const char *fmt = 0;
98
99	    switch (*++string) {
100	    case '\0':
101		string--;
102		break;
103	    case 'd':
104		fmt = "%d";
105		break;
106	    case '2':
107		fmt = "%02d";
108		*value %= 100;
109		break;
110	    case '3':
111		fmt = "%03d";
112		*value %= 1000;
113		break;
114	    case '+':
115		*value += UChar(*++string);
116		/* FALLTHRU */
117	    case '.':
118		/*
119		 * Guard against tputs() seeing a truncated string.  The
120		 * termcap documentation refers to a similar fixup for \n
121		 * and \r, but I don't see that it could work -TD
122		 */
123		if (*value == 0) {
124		    if (BC != 0) {
125			*value += 1;
126			need_BC = TRUE;
127		    } else {
128			*value = 0200;	/* tputs will treat this as \0 */
129		    }
130		}
131		result[used++] = (char) *value++;
132		break;
133	    case '%':
134		result[used++] = *string;
135		break;
136	    case 'r':
137		swap_arg = param[0];
138		param[0] = param[1];
139		param[1] = swap_arg;
140		break;
141	    case 'i':
142		param[0] += 1;
143		param[1] += 1;
144		break;
145	    case '>':
146		if (*value > string[1])
147		    *value += string[2];
148		string += 2;
149		break;
150	    case 'n':		/* Datamedia 2500 */
151		param[0] ^= 0140;
152		param[1] ^= 0140;
153		break;
154	    case 'B':		/* BCD */
155		*value = 16 * (*value / 10) + (*value % 10);
156		break;
157	    case 'D':		/* Reverse coding (Delta Data) */
158		*value -= 2 * (*value % 16);
159		break;
160	    }
161	    if (fmt != 0) {
162		sprintf(result + used, fmt, *value++);
163		used += strlen(result + used);
164		fmt = 0;
165	    }
166	    if (value - param > 2) {
167		value = param + 2;
168		*value = 0;
169	    }
170	} else {
171	    result[used++] = *string;
172	}
173	string++;
174    }
175    if (result != 0) {
176	if (need_BC) {
177	    strcpy(result + used, BC);
178	    used += strlen(BC);
179	}
180	result[used] = '\0';
181    }
182    return result;
183}
184#endif
185
186/*
187 * Retained solely for upward compatibility.  Note the intentional reversing of
188 * the last two arguments when invoking tparm().
189 */
190NCURSES_EXPORT(char *)
191tgoto(const char *string, int x, int y)
192{
193    char *result;
194
195    T((T_CALLED("tgoto(%s, %d, %d)"), _nc_visbuf(string), x, y));
196#if !PURE_TERMINFO
197    if (is_termcap(string))
198	result = tgoto_internal(string, x, y);
199    else
200#endif
201	result = TPARM_2((NCURSES_CONST char *) string, y, x);
202    returnPtr(result);
203}
204