1 /* macro.c -- keyboard macros for readline. */
3 /* Copyright (C) 1994 Free Software Foundation, Inc.
5 This file is part of the GNU Readline Library, a library for
6 reading lines of text with interactive input and history editing.
8 The GNU Readline Library is free software; you can redistribute it
9 and/or modify it under the terms of the GNU General Public License
10 as published by the Free Software Foundation; either version 2, or
11 (at your option) any later version.
13 The GNU Readline Library is distributed in the hope that it will be
14 useful, but WITHOUT ANY WARRANTY; without even the implied warranty
15 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 The GNU General Public License is often shipped with GNU software, and
19 is generally kept in a file called COPYING or LICENSE. If you do not
20 have a copy of the license, write to the Free Software Foundation,
21 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
22 #define READLINE_LIBRARY
24 #if defined (HAVE_CONFIG_H)
28 #include <sys/types.h>
30 #if defined (HAVE_UNISTD_H)
31 # include <unistd.h> /* for _POSIX_VERSION */
32 #endif /* HAVE_UNISTD_H */
34 #if defined (HAVE_STDLIB_H)
37 # include "ansi_stdlib.h"
38 #endif /* HAVE_STDLIB_H */
42 /* System-specific feature definitions and include files. */
45 /* Some standard library routines. */
49 #include "rlprivate.h"
52 /* **************************************************************** */
54 /* Hacking Keyboard Macros */
56 /* **************************************************************** */
58 /* The currently executing macro string. If this is non-zero,
59 then it is a malloc ()'ed string where input is coming from. */
60 char *rl_executing_macro
= (char *)NULL
;
62 /* The offset in the above string to the next character to be read. */
63 static int executing_macro_index
;
65 /* The current macro string being built. Characters get stuffed
66 in here by add_macro_char (). */
67 static char *current_macro
= (char *)NULL
;
69 /* The size of the buffer allocated to current_macro. */
70 static int current_macro_size
;
72 /* The index at which characters are being added to current_macro. */
73 static int current_macro_index
;
75 /* A structure used to save nested macro strings.
76 It is a linked list of string/index for each saved macro. */
78 struct saved_macro
*next
;
83 /* The list of saved macros. */
84 static struct saved_macro
*macro_list
= (struct saved_macro
*)NULL
;
86 /* Set up to read subsequent input from STRING.
87 STRING is free ()'ed when we are done with it. */
89 _rl_with_macro_input (string
)
92 _rl_push_executing_macro ();
93 rl_executing_macro
= string
;
94 executing_macro_index
= 0;
95 RL_SETSTATE(RL_STATE_MACROINPUT
);
98 /* Return the next character available from a macro, or 0 if
99 there are no macro characters. */
101 _rl_next_macro_key ()
103 if (rl_executing_macro
== 0)
106 if (rl_executing_macro
[executing_macro_index
] == 0)
108 _rl_pop_executing_macro ();
109 return (_rl_next_macro_key ());
112 return (rl_executing_macro
[executing_macro_index
++]);
115 /* Save the currently executing macro on a stack of saved macros. */
117 _rl_push_executing_macro ()
119 struct saved_macro
*saver
;
121 saver
= (struct saved_macro
*)xmalloc (sizeof (struct saved_macro
));
122 saver
->next
= macro_list
;
123 saver
->sindex
= executing_macro_index
;
124 saver
->string
= rl_executing_macro
;
129 /* Discard the current macro, replacing it with the one
130 on the top of the stack of saved macros. */
132 _rl_pop_executing_macro ()
134 struct saved_macro
*macro
;
136 FREE (rl_executing_macro
);
137 rl_executing_macro
= (char *)NULL
;
138 executing_macro_index
= 0;
143 rl_executing_macro
= macro_list
->string
;
144 executing_macro_index
= macro_list
->sindex
;
145 macro_list
= macro_list
->next
;
149 if (rl_executing_macro
== 0)
150 RL_UNSETSTATE(RL_STATE_MACROINPUT
);
153 /* Add a character to the macro being built. */
155 _rl_add_macro_char (c
)
158 if (current_macro_index
+ 1 >= current_macro_size
)
160 if (current_macro
== 0)
161 current_macro
= (char *)xmalloc (current_macro_size
= 25);
163 current_macro
= (char *)xrealloc (current_macro
, current_macro_size
+= 25);
166 current_macro
[current_macro_index
++] = c
;
167 current_macro
[current_macro_index
] = '\0';
171 _rl_kill_kbd_macro ()
175 free (current_macro
);
176 current_macro
= (char *) NULL
;
178 current_macro_size
= current_macro_index
= 0;
180 FREE (rl_executing_macro
);
181 rl_executing_macro
= (char *) NULL
;
182 executing_macro_index
= 0;
184 RL_UNSETSTATE(RL_STATE_MACRODEF
);
187 /* Begin defining a keyboard macro.
188 Keystrokes are recorded as they are executed.
189 End the definition with rl_end_kbd_macro ().
190 If a numeric argument was explicitly typed, then append this
191 definition to the end of the existing macro, and start by
192 re-executing the existing macro. */
194 rl_start_kbd_macro (ignore1
, ignore2
)
195 int ignore1
, ignore2
;
197 if (RL_ISSTATE (RL_STATE_MACRODEF
))
199 _rl_abort_internal ();
206 _rl_with_macro_input (savestring (current_macro
));
209 current_macro_index
= 0;
211 RL_SETSTATE(RL_STATE_MACRODEF
);
215 /* Stop defining a keyboard macro.
216 A numeric argument says to execute the macro right now,
217 that many times, counting the definition as the first time. */
219 rl_end_kbd_macro (count
, ignore
)
222 if (RL_ISSTATE (RL_STATE_MACRODEF
) == 0)
224 _rl_abort_internal ();
228 current_macro_index
-= rl_key_sequence_length
- 1;
229 current_macro
[current_macro_index
] = '\0';
231 RL_UNSETSTATE(RL_STATE_MACRODEF
);
233 return (rl_call_last_kbd_macro (--count
, 0));
236 /* Execute the most recently defined keyboard macro.
237 COUNT says how many times to execute it. */
239 rl_call_last_kbd_macro (count
, ignore
)
242 if (current_macro
== 0)
243 _rl_abort_internal ();
245 if (RL_ISSTATE (RL_STATE_MACRODEF
))
247 rl_ding (); /* no recursive macros */
248 current_macro
[--current_macro_index
] = '\0'; /* erase this char */
253 _rl_with_macro_input (savestring (current_macro
));
258 rl_push_macro_input (macro
)
261 _rl_with_macro_input (macro
);
This page took 0.034248 seconds and 4 git commands to generate.