xref: /dragonfly/contrib/gdb-7/readline/keymaps.c (revision 548a3528)
1 /* keymaps.c -- Functions and keymaps for the GNU Readline library. */
2 
3 /* Copyright (C) 1988,1989-2009 Free Software Foundation, Inc.
4 
5    This file is part of the GNU Readline Library (Readline), a library
6    for reading lines of text with interactive input and history editing.
7 
8    Readline is free software: you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation, either version 3 of the License, or
11    (at your option) any later version.
12 
13    Readline is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17 
18    You should have received a copy of the GNU General Public License
19    along with Readline.  If not, see <http://www.gnu.org/licenses/>.
20 */
21 
22 #define READLINE_LIBRARY
23 
24 #if defined (HAVE_CONFIG_H)
25 #  include <config.h>
26 #endif
27 
28 #if defined (HAVE_STDLIB_H)
29 #  include <stdlib.h>
30 #else
31 #  include "ansi_stdlib.h"
32 #endif /* HAVE_STDLIB_H */
33 
34 #include <stdio.h>	/* for FILE * definition for readline.h */
35 
36 #include "readline.h"
37 #include "rlconf.h"
38 
39 #include "emacs_keymap.c"
40 
41 #if defined (VI_MODE)
42 #include "vi_keymap.c"
43 #endif
44 
45 #include "xmalloc.h"
46 
47 /* **************************************************************** */
48 /*								    */
49 /*		      Functions for manipulating Keymaps.	    */
50 /*								    */
51 /* **************************************************************** */
52 
53 
54 /* Return a new, empty keymap.
55    Free it with free() when you are done. */
56 Keymap
57 rl_make_bare_keymap ()
58 {
59   register int i;
60   Keymap keymap;
61 
62   keymap = (Keymap)xmalloc (KEYMAP_SIZE * sizeof (KEYMAP_ENTRY));
63   for (i = 0; i < KEYMAP_SIZE; i++)
64     {
65       keymap[i].type = ISFUNC;
66       keymap[i].function = (rl_command_func_t *)NULL;
67     }
68 
69 #if 0
70   for (i = 'A'; i < ('Z' + 1); i++)
71     {
72       keymap[i].type = ISFUNC;
73       keymap[i].function = rl_do_lowercase_version;
74     }
75 #endif
76 
77   return (keymap);
78 }
79 
80 /* Return a new keymap which is a copy of MAP.  Just copies pointers, does
81    not copy text of macros or descend into child keymaps. */
82 Keymap
83 rl_copy_keymap (map)
84      Keymap map;
85 {
86   register int i;
87   Keymap temp;
88 
89   temp = rl_make_bare_keymap ();
90   for (i = 0; i < KEYMAP_SIZE; i++)
91     {
92       temp[i].type = map[i].type;
93       temp[i].function = map[i].function;
94     }
95   return (temp);
96 }
97 
98 /* Return a new keymap with the printing characters bound to rl_insert,
99    the uppercase Meta characters bound to run their lowercase equivalents,
100    and the Meta digits bound to produce numeric arguments. */
101 Keymap
102 rl_make_keymap ()
103 {
104   register int i;
105   Keymap newmap;
106 
107   newmap = rl_make_bare_keymap ();
108 
109   /* All ASCII printing characters are self-inserting. */
110   for (i = ' '; i < 127; i++)
111     newmap[i].function = rl_insert;
112 
113   newmap[TAB].function = rl_insert;
114   newmap[RUBOUT].function = rl_rubout;	/* RUBOUT == 127 */
115   newmap[CTRL('H')].function = rl_rubout;
116 
117 #if KEYMAP_SIZE > 128
118   /* Printing characters in ISO Latin-1 and some 8-bit character sets. */
119   for (i = 128; i < 256; i++)
120     newmap[i].function = rl_insert;
121 #endif /* KEYMAP_SIZE > 128 */
122 
123   return (newmap);
124 }
125 
126 /* Free the storage associated with MAP. */
127 void
128 rl_discard_keymap (map)
129      Keymap map;
130 {
131   int i;
132 
133   if (map == 0)
134     return;
135 
136   for (i = 0; i < KEYMAP_SIZE; i++)
137     {
138       switch (map[i].type)
139 	{
140 	case ISFUNC:
141 	  break;
142 
143 	case ISKMAP:
144 	  rl_discard_keymap ((Keymap)map[i].function);
145 	  xfree ((char *)map[i].function);
146 	  break;
147 
148 	case ISMACR:
149 	  xfree ((char *)map[i].function);
150 	  break;
151 	}
152     }
153 }
154 
155 /* Convenience function that discards, then frees, MAP. */
156 void
157 rl_free_keymap (map)
158      Keymap map;
159 {
160   rl_discard_keymap (map);
161   xfree ((char *)map);
162 }
163