diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2011-04-08 16:24:33 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2011-04-08 16:24:33 +0000 |
commit | b667555541a4d65bb9dae6f0e0f240e6a05b148e (patch) | |
tree | b3ae5c92f04ae68fbf9580d6efcf1a1510851495 /readline-6.2/macro.c | |
parent | 2011-04-08 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | rtems-addon-packages-b667555541a4d65bb9dae6f0e0f240e6a05b148e.tar.bz2 |
2011-04-08 Joel Sherrill <joel.sherrill@oarcorp.com>
* RTEMS_Makefiles/Makefile.readline-6.2, readline-6.2/CHANGELOG,
readline-6.2/CHANGES, readline-6.2/COPYING, readline-6.2/INSTALL,
readline-6.2/MANIFEST, readline-6.2/Makefile.in, readline-6.2/NEWS,
readline-6.2/README, readline-6.2/USAGE, readline-6.2/aclocal.m4,
readline-6.2/ansi_stdlib.h, readline-6.2/bind.c,
readline-6.2/callback.c, readline-6.2/chardefs.h,
readline-6.2/compat.c, readline-6.2/complete.c,
readline-6.2/config.h.in, readline-6.2/configure,
readline-6.2/configure.in, readline-6.2/display.c,
readline-6.2/emacs_keymap.c, readline-6.2/funmap.c,
readline-6.2/histexpand.c, readline-6.2/histfile.c,
readline-6.2/histlib.h, readline-6.2/history.c,
readline-6.2/history.h, readline-6.2/histsearch.c,
readline-6.2/input.c, readline-6.2/isearch.c, readline-6.2/keymaps.c,
readline-6.2/keymaps.h, readline-6.2/kill.c, readline-6.2/macro.c,
readline-6.2/mbutil.c, readline-6.2/misc.c, readline-6.2/nls.c,
readline-6.2/parens.c, readline-6.2/patchlevel,
readline-6.2/posixdir.h, readline-6.2/posixjmp.h,
readline-6.2/posixselect.h, readline-6.2/posixstat.h,
readline-6.2/readline.c, readline-6.2/readline.h,
readline-6.2/rlconf.h, readline-6.2/rldefs.h,
readline-6.2/rlmbutil.h, readline-6.2/rlprivate.h,
readline-6.2/rlshell.h, readline-6.2/rlstdc.h, readline-6.2/rltty.c,
readline-6.2/rltty.h, readline-6.2/rltypedefs.h,
readline-6.2/rlwinsize.h, readline-6.2/savestring.c,
readline-6.2/search.c, readline-6.2/shell.c, readline-6.2/signals.c,
readline-6.2/tcap.h, readline-6.2/terminal.c, readline-6.2/text.c,
readline-6.2/tilde.c, readline-6.2/tilde.h, readline-6.2/undo.c,
readline-6.2/util.c, readline-6.2/vi_keymap.c,
readline-6.2/vi_mode.c, readline-6.2/xfree.c, readline-6.2/xmalloc.c,
readline-6.2/xmalloc.h, readline-6.2/doc/Makefile.in,
readline-6.2/doc/fdl.texi, readline-6.2/doc/history.0,
readline-6.2/doc/history.3, readline-6.2/doc/history.dvi,
readline-6.2/doc/history.html, readline-6.2/doc/history.info,
readline-6.2/doc/history.pdf, readline-6.2/doc/history.ps,
readline-6.2/doc/history.texi, readline-6.2/doc/history_3.ps,
readline-6.2/doc/hstech.texi, readline-6.2/doc/hsuser.texi,
readline-6.2/doc/readline.0, readline-6.2/doc/readline.3,
readline-6.2/doc/readline.dvi, readline-6.2/doc/readline.html,
readline-6.2/doc/readline.info, readline-6.2/doc/readline.pdf,
readline-6.2/doc/readline.ps, readline-6.2/doc/readline_3.ps,
readline-6.2/doc/rlman.texi, readline-6.2/doc/rltech.texi,
readline-6.2/doc/rluser.texi, readline-6.2/doc/rluserman.dvi,
readline-6.2/doc/rluserman.html, readline-6.2/doc/rluserman.info,
readline-6.2/doc/rluserman.pdf, readline-6.2/doc/rluserman.ps,
readline-6.2/doc/rluserman.texi, readline-6.2/doc/texi2dvi,
readline-6.2/doc/texi2html, readline-6.2/doc/texinfo.tex,
readline-6.2/doc/version.texi, readline-6.2/examples/Inputrc,
readline-6.2/examples/Makefile.in,
readline-6.2/examples/excallback.c, readline-6.2/examples/fileman.c,
readline-6.2/examples/histexamp.c, readline-6.2/examples/manexamp.c,
readline-6.2/examples/readlinebuf.h,
readline-6.2/examples/rl-fgets.c, readline-6.2/examples/rl.c,
readline-6.2/examples/rlcat.c, readline-6.2/examples/rlevent.c,
readline-6.2/examples/rlptytest.c, readline-6.2/examples/rltest.c,
readline-6.2/examples/rlversion.c,
readline-6.2/examples/rlwrap-0.30.tar.gz,
readline-6.2/examples/autoconf/BASH_CHECK_LIB_TERMCAP,
readline-6.2/examples/autoconf/RL_LIB_READLINE_VERSION,
readline-6.2/examples/autoconf/wi_LIB_READLINE,
readline-6.2/examples/rlfe/ChangeLog,
readline-6.2/examples/rlfe/Makefile.in,
readline-6.2/examples/rlfe/README,
readline-6.2/examples/rlfe/config.h.in,
readline-6.2/examples/rlfe/configure,
readline-6.2/examples/rlfe/configure.in,
readline-6.2/examples/rlfe/extern.h, readline-6.2/examples/rlfe/os.h,
readline-6.2/examples/rlfe/pty.c, readline-6.2/examples/rlfe/rlfe.c,
readline-6.2/examples/rlfe/screen.h, readline-6.2/shlib/Makefile.in,
readline-6.2/support/config.guess, readline-6.2/support/config.rpath,
readline-6.2/support/config.sub, readline-6.2/support/install.sh,
readline-6.2/support/mkdirs, readline-6.2/support/mkdist,
readline-6.2/support/mkinstalldirs,
readline-6.2/support/shlib-install, readline-6.2/support/shobj-conf,
readline-6.2/support/wcwidth.c: New files.
Diffstat (limited to 'readline-6.2/macro.c')
-rw-r--r-- | readline-6.2/macro.c | 271 |
1 files changed, 271 insertions, 0 deletions
diff --git a/readline-6.2/macro.c b/readline-6.2/macro.c new file mode 100644 index 0000000..c2fac8a --- /dev/null +++ b/readline-6.2/macro.c @@ -0,0 +1,271 @@ +/* macro.c -- keyboard macros for readline. */ + +/* Copyright (C) 1994-2009 Free Software Foundation, Inc. + + This file is part of the GNU Readline Library (Readline), a library + for reading lines of text with interactive input and history editing. + + Readline is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + Readline is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with Readline. If not, see <http://www.gnu.org/licenses/>. +*/ + +#define READLINE_LIBRARY + +#if defined (HAVE_CONFIG_H) +# include <config.h> +#endif + +#include <sys/types.h> + +#if defined (HAVE_UNISTD_H) +# include <unistd.h> /* for _POSIX_VERSION */ +#endif /* HAVE_UNISTD_H */ + +#if defined (HAVE_STDLIB_H) +# include <stdlib.h> +#else +# include "ansi_stdlib.h" +#endif /* HAVE_STDLIB_H */ + +#include <stdio.h> + +/* System-specific feature definitions and include files. */ +#include "rldefs.h" + +/* Some standard library routines. */ +#include "readline.h" +#include "history.h" + +#include "rlprivate.h" +#include "xmalloc.h" + +/* **************************************************************** */ +/* */ +/* Hacking Keyboard Macros */ +/* */ +/* **************************************************************** */ + +/* The currently executing macro string. If this is non-zero, + then it is a malloc ()'ed string where input is coming from. */ +char *rl_executing_macro = (char *)NULL; + +/* The offset in the above string to the next character to be read. */ +static int executing_macro_index; + +/* The current macro string being built. Characters get stuffed + in here by add_macro_char (). */ +static char *current_macro = (char *)NULL; + +/* The size of the buffer allocated to current_macro. */ +static int current_macro_size; + +/* The index at which characters are being added to current_macro. */ +static int current_macro_index; + +/* A structure used to save nested macro strings. + It is a linked list of string/index for each saved macro. */ +struct saved_macro { + struct saved_macro *next; + char *string; + int sindex; +}; + +/* The list of saved macros. */ +static struct saved_macro *macro_list = (struct saved_macro *)NULL; + +/* Set up to read subsequent input from STRING. + STRING is free ()'ed when we are done with it. */ +void +_rl_with_macro_input (string) + char *string; +{ + _rl_push_executing_macro (); + rl_executing_macro = string; + executing_macro_index = 0; + RL_SETSTATE(RL_STATE_MACROINPUT); +} + +/* Return the next character available from a macro, or 0 if + there are no macro characters. */ +int +_rl_next_macro_key () +{ + int c; + + if (rl_executing_macro == 0) + return (0); + + if (rl_executing_macro[executing_macro_index] == 0) + { + _rl_pop_executing_macro (); + return (_rl_next_macro_key ()); + } + +#if defined (READLINE_CALLBACKS) + c = rl_executing_macro[executing_macro_index++]; + if (RL_ISSTATE (RL_STATE_CALLBACK) && RL_ISSTATE (RL_STATE_READCMD|RL_STATE_MOREINPUT) && rl_executing_macro[executing_macro_index] == 0) + _rl_pop_executing_macro (); + return c; +#else + return (rl_executing_macro[executing_macro_index++]); +#endif +} + +/* Save the currently executing macro on a stack of saved macros. */ +void +_rl_push_executing_macro () +{ + struct saved_macro *saver; + + saver = (struct saved_macro *)xmalloc (sizeof (struct saved_macro)); + saver->next = macro_list; + saver->sindex = executing_macro_index; + saver->string = rl_executing_macro; + + macro_list = saver; +} + +/* Discard the current macro, replacing it with the one + on the top of the stack of saved macros. */ +void +_rl_pop_executing_macro () +{ + struct saved_macro *macro; + + FREE (rl_executing_macro); + rl_executing_macro = (char *)NULL; + executing_macro_index = 0; + + if (macro_list) + { + macro = macro_list; + rl_executing_macro = macro_list->string; + executing_macro_index = macro_list->sindex; + macro_list = macro_list->next; + xfree (macro); + } + + if (rl_executing_macro == 0) + RL_UNSETSTATE(RL_STATE_MACROINPUT); +} + +/* Add a character to the macro being built. */ +void +_rl_add_macro_char (c) + int c; +{ + if (current_macro_index + 1 >= current_macro_size) + { + if (current_macro == 0) + current_macro = (char *)xmalloc (current_macro_size = 25); + else + current_macro = (char *)xrealloc (current_macro, current_macro_size += 25); + } + + current_macro[current_macro_index++] = c; + current_macro[current_macro_index] = '\0'; +} + +void +_rl_kill_kbd_macro () +{ + if (current_macro) + { + xfree (current_macro); + current_macro = (char *) NULL; + } + current_macro_size = current_macro_index = 0; + + FREE (rl_executing_macro); + rl_executing_macro = (char *) NULL; + executing_macro_index = 0; + + RL_UNSETSTATE(RL_STATE_MACRODEF); +} + +/* Begin defining a keyboard macro. + Keystrokes are recorded as they are executed. + End the definition with rl_end_kbd_macro (). + If a numeric argument was explicitly typed, then append this + definition to the end of the existing macro, and start by + re-executing the existing macro. */ +int +rl_start_kbd_macro (ignore1, ignore2) + int ignore1, ignore2; +{ + if (RL_ISSTATE (RL_STATE_MACRODEF)) + { + _rl_abort_internal (); + return -1; + } + + if (rl_explicit_arg) + { + if (current_macro) + _rl_with_macro_input (savestring (current_macro)); + } + else + current_macro_index = 0; + + RL_SETSTATE(RL_STATE_MACRODEF); + return 0; +} + +/* Stop defining a keyboard macro. + A numeric argument says to execute the macro right now, + that many times, counting the definition as the first time. */ +int +rl_end_kbd_macro (count, ignore) + int count, ignore; +{ + if (RL_ISSTATE (RL_STATE_MACRODEF) == 0) + { + _rl_abort_internal (); + return -1; + } + + current_macro_index -= rl_key_sequence_length - 1; + current_macro[current_macro_index] = '\0'; + + RL_UNSETSTATE(RL_STATE_MACRODEF); + + return (rl_call_last_kbd_macro (--count, 0)); +} + +/* Execute the most recently defined keyboard macro. + COUNT says how many times to execute it. */ +int +rl_call_last_kbd_macro (count, ignore) + int count, ignore; +{ + if (current_macro == 0) + _rl_abort_internal (); + + if (RL_ISSTATE (RL_STATE_MACRODEF)) + { + rl_ding (); /* no recursive macros */ + current_macro[--current_macro_index] = '\0'; /* erase this char */ + return 0; + } + + while (count--) + _rl_with_macro_input (savestring (current_macro)); + return 0; +} + +void +rl_push_macro_input (macro) + char *macro; +{ + _rl_with_macro_input (macro); +} |