1 /* Merge parameters into a termcap entry string.
2 Copyright (C) 1985, 1987, 1993, 1995, 2000-2008, 2013-2014 Free
3 Software Foundation, Inc.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
18 /* Emacs config.h may rename various library functions such as malloc. */
21 #include "lisp.h" /* for xmalloc */
24 /* Assuming STRING is the value of a termcap string entry
25 containing `%' constructs to expand parameters,
26 merge in parameter values and store result in block OUTSTRING points to.
27 LEN is the length of OUTSTRING. If more space is needed,
28 a block is allocated with `malloc'.
30 The value returned is the address of the resulting string.
31 This may be OUTSTRING or may be the address of a block got with `malloc'.
32 In the latter case, the caller must free the block.
34 The fourth and following args to tparam serve as the parameter values. */
36 static char *tparam1 (char const *string
, char *outstring
, int len
,
37 char *up
, char *left
, int *argp
);
40 tparam (const char *string
, char *outstring
, int len
,
41 int arg0
, int arg1
, int arg2
, int arg3
)
49 return tparam1 (string
, outstring
, len
, NULL
, NULL
, arg
);
55 static char tgoto_buf
[50];
58 tgoto (const char *cm
, int hpos
, int vpos
)
65 return tparam1 (cm
, tgoto_buf
, 50, UP
, BC
, args
);
69 tparam1 (const char *string
, char *outstring
, int len
,
70 char *up
, char *left
, register int *argp
)
73 register const char *p
= string
;
74 register char *op
= outstring
;
80 int *old_argp
= argp
; /* can move */
81 int *fixed_argp
= argp
; /* never moves */
82 bool explicit_param_p
= 0; /* set by %p */
85 ptrdiff_t append_len
= 0;
87 outend
= outstring
+ len
;
91 /* If the buffer might be too short, make it bigger. */
92 while (outend
- op
- append_len
<= 5)
94 ptrdiff_t offset
= op
- outstring
;
99 new = xmalloc (outlen
);
100 memcpy (new, outstring
, offset
);
104 new = xpalloc (outstring
, &outlen
, 1, -1, 1);
108 outend
= new + outlen
;
117 if (explicit_param_p
)
118 explicit_param_p
= 0;
123 case 'd': /* %d means output in decimal. */
128 case '3': /* %3 means output in decimal, 3 digits. */
131 *op
++ = tem
/ 1000 + '0';
134 *op
++ = tem
/ 100 + '0';
135 case '2': /* %2 means output in decimal, 2 digits. */
138 *op
++ = tem
/ 10 + '0';
140 *op
++ = tem
% 10 + '0';
143 case 'p': /* %pN means use param N for next subst. */
144 tem
= fixed_argp
[(*p
++) - '1'];
145 explicit_param_p
= 1;
148 /* For c-100: print quotient of value by 96, if nonzero,
155 case '+': /* %+x means add character code of char x. */
157 case '.': /* %. means output as character. */
160 /* If want to forbid output of 0 and \n and \t,
161 and this is one of them, increment it. */
162 while (tem
== 0 || tem
== '\n' || tem
== '\t')
164 ptrdiff_t append_len_incr
;
166 if (argp
== old_argp
)
167 doup
++, append_len_incr
= strlen (up
);
169 doleft
++, append_len_incr
= strlen (left
);
170 if (INT_ADD_OVERFLOW (append_len
, append_len_incr
))
171 memory_full (SIZE_MAX
);
172 append_len
+= append_len_incr
;
175 *op
++ = tem
? tem
: 0200;
176 case 'f': /* %f means discard next arg. */
180 case 'b': /* %b means back up one arg (and re-use it). */
184 case 'r': /* %r means interchange following two args. */
190 case '>': /* %>xy means if arg is > char code of x, */
191 if (argp
[0] > *p
++) /* then add char code of y to the arg, */
192 argp
[0] += *p
; /* and in any case don't output. */
193 p
++; /* Leave the arg to be output later. */
196 case 'a': /* %a means arithmetic. */
197 /* Next character says what operation.
198 Add or subtract either a constant or some other arg. */
199 /* First following character is + to add or - to subtract
201 /* Next following char is 'p' and an arg spec
202 (0100 plus position of that arg relative to this one)
203 or 'c' and a constant stored in a character. */
206 tem
= argp
[tem
- 0100];
209 else if (p
[0] == '+')
211 else if (p
[0] == '*')
213 else if (p
[0] == '/')
221 case 'i': /* %i means add one to arg, */
222 argp
[0] ++; /* and leave it to be output later. */
223 argp
[1] ++; /* Increment the following arg, too! */
226 case '%': /* %% means output %; no arg. */
229 case 'n': /* %n means xor each of next two args with 140. */
234 case 'm': /* %m means xor each of next two args with 177. */
239 case 'B': /* %B means express arg as BCD char code. */
240 argp
[0] += 6 * (tem
/ 10);
243 case 'D': /* %D means weird Delta Data transformation. */
244 argp
[0] -= 2 * (tem
% 16);
252 /* Ordinary character in the argument string. */
258 op
= stpcpy (op
, up
);
260 op
= stpcpy (op
, left
);
267 main (int argc
, char **argv
)
271 args
[0] = atoi (argv
[2]);
272 args
[1] = atoi (argv
[3]);
273 args
[2] = atoi (argv
[4]);
274 tparam1 (argv
[1], buf
, 50, "LEFT", "UP", args
);
275 printf ("%s\n", buf
);