1 /* $NetBSD: eln.c,v 1.28 2016/02/28 23:02:24 christos Exp $ */
4 * Copyright (c) 2009 The NetBSD Foundation, Inc.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
17 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
18 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
19 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
20 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
25 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
26 * POSSIBILITY OF SUCH DAMAGE.
29 #if !defined(lint) && !defined(SCCSID)
30 __RCSID("$NetBSD: eln.c,v 1.28 2016/02/28 23:02:24 christos Exp $");
31 #endif /* not lint && not SCCSID */
32 #include <sys/cdefs.h>
33 __FBSDID("$FreeBSD$");
43 el_getc(EditLine *el, char *cp)
48 num_read = el_wgetc(el, &wc);
52 num_read = ct_wctob(wc);
53 if (num_read == EOF) {
65 el_push(EditLine *el, const char *str)
67 /* Using multibyte->wide string decoding works fine under single-byte
68 * character sets too, and Does The Right Thing. */
69 el_wpush(el, ct_decode_string(str, &el->el_lgcyconv));
74 el_gets(EditLine *el, int *nread)
78 tmp = el_wgets(el, nread);
83 for (i = 0; i < *nread; i++)
84 nwread += ct_enc_width(tmp[i]);
87 return ct_encode_string(tmp, &el->el_lgcyconv);
92 el_parse(EditLine *el, int argc, const char *argv[])
95 const wchar_t **wargv;
97 wargv = (const wchar_t **)
98 ct_decode_argv(argc, argv, &el->el_lgcyconv);
101 ret = el_wparse(el, argc, wargv);
109 el_set(EditLine *el, int op, ...)
119 case EL_PROMPT: /* el_pfunc_t */
121 el_pfunc_t p = va_arg(ap, el_pfunc_t);
122 ret = prompt_set(el, p, 0, op, 0);
127 el_zfunc_t p = va_arg(ap, el_zfunc_t);
128 void *arg = va_arg(ap, void *);
129 ret = ch_resizefun(el, p, arg);
133 case EL_ALIAS_TEXT: {
134 el_afunc_t p = va_arg(ap, el_afunc_t);
135 void *arg = va_arg(ap, void *);
136 ret = ch_aliasfun(el, p, arg);
141 case EL_RPROMPT_ESC: {
142 el_pfunc_t p = va_arg(ap, el_pfunc_t);
143 int c = va_arg(ap, int);
145 ret = prompt_set(el, p, c, op, 0);
149 case EL_TERMINAL: /* const char * */
150 ret = el_wset(el, op, va_arg(ap, char *));
153 case EL_EDITOR: /* const wchar_t * */
154 ret = el_wset(el, op, ct_decode_string(va_arg(ap, char *),
158 case EL_SIGNAL: /* int */
162 ret = el_wset(el, op, va_arg(ap, int));
165 case EL_BIND: /* const char * list -> const wchar_t * list */
170 const char *argv[20];
172 const wchar_t **wargv;
173 for (i = 1; i < (int)__arraycount(argv) - 1; ++i)
174 if ((argv[i] = va_arg(ap, const char *)) == NULL)
176 argv[0] = argv[i] = NULL;
177 wargv = (const wchar_t **)
178 ct_decode_argv(i + 1, argv, &el->el_lgcyconv);
184 * AFAIK we can't portably pass through our new wargv to
185 * el_wset(), so we have to reimplement the body of
186 * el_wset() for these ops.
190 wargv[0] = STR("bind");
191 ret = map_bind(el, i, wargv);
194 wargv[0] = STR("telltc");
195 ret = terminal_telltc(el, i, wargv);
198 wargv[0] = STR("settc");
199 ret = terminal_settc(el, i, wargv);
202 wargv[0] = STR("echotc");
203 ret = terminal_echotc(el, i, wargv);
206 wargv[0] = STR("setty");
207 ret = tty_stty(el, i, wargv);
216 /* XXX: do we need to change el_func_t too? */
217 case EL_ADDFN: { /* const char *, const char *, el_func_t */
222 args[0] = va_arg(ap, const char *);
223 args[1] = va_arg(ap, const char *);
224 func = va_arg(ap, el_func_t);
226 wargv = ct_decode_argv(2, args, &el->el_lgcyconv);
231 /* XXX: The two strdup's leak */
232 ret = map_addfunc(el, Strdup(wargv[0]), Strdup(wargv[1]),
237 case EL_HIST: { /* hist_fun_t, const char * */
238 hist_fun_t fun = va_arg(ap, hist_fun_t);
239 void *ptr = va_arg(ap, void *);
240 ret = hist_set(el, fun, ptr);
241 el->el_flags |= NARROW_HISTORY;
245 case EL_GETCFN: /* el_rfunc_t */
246 ret = el_wset(el, op, va_arg(ap, el_rfunc_t));
249 case EL_CLIENTDATA: /* void * */
250 ret = el_wset(el, op, va_arg(ap, void *));
253 case EL_SETFP: { /* int, FILE * */
254 int what = va_arg(ap, int);
255 FILE *fp = va_arg(ap, FILE *);
256 ret = el_wset(el, op, what, fp);
261 re_clear_display(el);
279 el_get(EditLine *el, int op, ...)
290 case EL_PROMPT: /* el_pfunc_t * */
292 el_pfunc_t *p = va_arg(ap, el_pfunc_t *);
293 ret = prompt_get(el, p, 0, op);
297 case EL_PROMPT_ESC: /* el_pfunc_t *, char **/
298 case EL_RPROMPT_ESC: {
299 el_pfunc_t *p = va_arg(ap, el_pfunc_t *);
300 char *c = va_arg(ap, char *);
302 ret = prompt_get(el, p, &wc, op);
308 const char **p = va_arg(ap, const char **);
310 ret = el_wget(el, op, &pw);
311 *p = ct_encode_string(pw, &el->el_lgcyconv);
312 if (!el->el_lgcyconv.csize)
317 case EL_TERMINAL: /* const char ** */
318 ret = el_wget(el, op, va_arg(ap, const char **));
321 case EL_SIGNAL: /* int * */
325 ret = el_wget(el, op, va_arg(ap, int *));
330 static char gettc[] = "gettc";
332 for (i = 1; i < (int)__arraycount(argv); ++i)
333 if ((argv[i] = va_arg(ap, char *)) == NULL)
336 ret = terminal_gettc(el, i, argv);
340 case EL_GETCFN: /* el_rfunc_t */
341 ret = el_wget(el, op, va_arg(ap, el_rfunc_t *));
344 case EL_CLIENTDATA: /* void ** */
345 ret = el_wget(el, op, va_arg(ap, void **));
348 case EL_GETFP: { /* int, FILE ** */
349 int what = va_arg(ap, int);
350 FILE **fpp = va_arg(ap, FILE **);
351 ret = el_wget(el, op, what, fpp);
366 el_line(EditLine *el)
368 const LineInfoW *winfo = el_wline(el);
369 LineInfo *info = &el->el_lgcylinfo;
373 info->buffer = ct_encode_string(winfo->buffer, &el->el_lgcyconv);
376 for (p = winfo->buffer; p < winfo->cursor; p++)
377 offset += ct_enc_width(*p);
378 info->cursor = info->buffer + offset;
381 for (p = winfo->buffer; p < winfo->lastchar; p++)
382 offset += ct_enc_width(*p);
383 info->lastchar = info->buffer + offset;
390 el_insertstr(EditLine *el, const char *str)
392 return el_winsertstr(el, ct_decode_string(str, &el->el_lgcyconv));
394 #endif /* WIDECHAR */