File: | src/gnu/usr.bin/texinfo/info/m-x.c |
Warning: | line 154, column 7 Use of memory after it is freed |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* m-x.c -- Meta-x minibuffer reader. | |||
2 | $Id: m-x.c,v 1.5 2006/07/17 16:12:36 espie Exp $ | |||
3 | ||||
4 | Copyright (C) 1993, 1997, 1998, 2001, 2002, 2004 Free Software | |||
5 | Foundation, Inc. | |||
6 | ||||
7 | This program is free software; you can redistribute it and/or modify | |||
8 | it under the terms of the GNU General Public License as published by | |||
9 | the Free Software Foundation; either version 2, or (at your option) | |||
10 | any later version. | |||
11 | ||||
12 | This program is distributed in the hope that it will be useful, | |||
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |||
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
15 | GNU General Public License for more details. | |||
16 | ||||
17 | You should have received a copy of the GNU General Public License | |||
18 | along with this program; if not, write to the Free Software | |||
19 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |||
20 | ||||
21 | Originally written by Brian Fox (bfox@ai.mit.edu). */ | |||
22 | ||||
23 | #include "info.h" | |||
24 | #include "funs.h" | |||
25 | ||||
26 | /* **************************************************************** */ | |||
27 | /* */ | |||
28 | /* Reading Named Commands */ | |||
29 | /* */ | |||
30 | /* **************************************************************** */ | |||
31 | ||||
32 | /* Read the name of an Info function in the echo area and return the | |||
33 | name. A return value of NULL indicates that no function name could | |||
34 | be read. */ | |||
35 | char * | |||
36 | read_function_name (char *prompt, WINDOW *window) | |||
37 | { | |||
38 | register int i; | |||
39 | char *line; | |||
40 | REFERENCE **array = (REFERENCE **)NULL((void *)0); | |||
41 | int array_index = 0, array_slots = 0; | |||
42 | ||||
43 | /* Make an array of REFERENCE which actually contains the names of | |||
44 | the functions available in Info. */ | |||
45 | for (i = 0; function_doc_array[i].func; i++) | |||
46 | { | |||
47 | REFERENCE *entry; | |||
48 | ||||
49 | entry = (REFERENCE *)xmalloc (sizeof (REFERENCE)); | |||
50 | entry->label = xstrdup (function_doc_array[i].func_name); | |||
51 | entry->nodename = (char *)NULL((void *)0); | |||
52 | entry->filename = (char *)NULL((void *)0); | |||
53 | ||||
54 | add_pointer_to_arraydo { if (array_index + 2 >= array_slots) array = (REFERENCE * *)(xrealloc (array, (array_slots += 200) * sizeof (REFERENCE *))); array[array_index++] = (REFERENCE *)entry; array[array_index ] = (REFERENCE *)((void *)0); } while (0) | |||
55 | (entry, array_index, array, array_slots, 200, REFERENCE *)do { if (array_index + 2 >= array_slots) array = (REFERENCE * *)(xrealloc (array, (array_slots += 200) * sizeof (REFERENCE *))); array[array_index++] = (REFERENCE *)entry; array[array_index ] = (REFERENCE *)((void *)0); } while (0); | |||
56 | } | |||
57 | ||||
58 | line = info_read_completing_in_echo_area (window, prompt, array); | |||
59 | ||||
60 | info_free_references (array); | |||
61 | ||||
62 | if (!echo_area_is_active) | |||
63 | window_clear_echo_area (); | |||
64 | ||||
65 | return (line); | |||
66 | } | |||
67 | ||||
68 | DECLARE_INFO_COMMAND (describe_command,void describe_command (WINDOW *window, int count, unsigned char key) | |||
69 | _("Read the name of an Info command and describe it"))void describe_command (WINDOW *window, int count, unsigned char key) | |||
70 | { | |||
71 | char *line; | |||
72 | ||||
73 | line = read_function_name ((char *) _("Describe command: ")((const char *) ("Describe command: ")), window); | |||
74 | ||||
75 | if (!line) | |||
76 | { | |||
77 | info_abort_key (active_window, count, key); | |||
78 | return; | |||
79 | } | |||
80 | ||||
81 | /* Describe the function named in "LINE". */ | |||
82 | if (*line) | |||
83 | { | |||
84 | InfoCommand *cmd = named_function (line); | |||
85 | ||||
86 | if (!cmd) | |||
87 | return; | |||
88 | ||||
89 | window_message_in_echo_area ("%s: %s.", | |||
90 | line, function_documentation (cmd)); | |||
91 | } | |||
92 | free (line); | |||
93 | } | |||
94 | ||||
95 | DECLARE_INFO_COMMAND (info_execute_command,void info_execute_command (WINDOW *window, int count, unsigned char key) | |||
96 | _("Read a command name in the echo area and execute it"))void info_execute_command (WINDOW *window, int count, unsigned char key) | |||
97 | { | |||
98 | char *line; | |||
99 | char *keys; | |||
100 | char *prompt; | |||
101 | ||||
102 | prompt = (char *)xmalloc (20); | |||
103 | ||||
104 | keys = where_is (info_keymap, InfoCmd(info_execute_command)(&function_doc_array[101])); | |||
105 | /* If the where_is () function thinks that this command doesn't exist, | |||
106 | there's something very wrong! */ | |||
107 | if (!keys) | |||
| ||||
108 | abort(); | |||
109 | ||||
110 | if (info_explicit_arg || count != 1) | |||
111 | sprintf (prompt, "%d %s ", count, keys); | |||
112 | else | |||
113 | sprintf (prompt, "%s ", keys); | |||
114 | ||||
115 | /* Ask the completer to read a reference for us. */ | |||
116 | line = read_function_name (prompt, window); | |||
117 | ||||
118 | /* User aborted? */ | |||
119 | if (!line) | |||
120 | { | |||
121 | info_abort_key (active_window, count, key); | |||
122 | return; | |||
123 | } | |||
124 | ||||
125 | /* User accepted "default"? (There is none.) */ | |||
126 | if (!*line) | |||
127 | { | |||
128 | free (line); | |||
129 | return; | |||
130 | } | |||
131 | ||||
132 | /* User wants to execute a named command. Do it. */ | |||
133 | { | |||
134 | InfoCommand *command; | |||
135 | ||||
136 | if ((active_window != the_echo_area) && | |||
137 | (strncmp (line, "echo-area-", 10) == 0)) | |||
138 | { | |||
139 | free (line); | |||
140 | info_error ((char *) _("Cannot execute an `echo-area' command here.")((const char *) ("Cannot execute an `echo-area' command here." )), | |||
141 | NULL((void *)0), NULL((void *)0)); | |||
142 | return; | |||
143 | } | |||
144 | ||||
145 | command = named_function (line); | |||
146 | free (line); | |||
147 | ||||
148 | if (!command) | |||
149 | return; | |||
150 | ||||
151 | if (InfoFunction(command)((command) ? (command)->func : (VFunction *) ((void *)0))) | |||
152 | (*InfoFunction(command)((command) ? (command)->func : (VFunction *) ((void *)0))) (active_window, count, 0); | |||
153 | else | |||
154 | info_error ((char *) _("Undefined command: %s")((const char *) ("Undefined command: %s")), line, NULL((void *)0)); | |||
| ||||
155 | } | |||
156 | } | |||
157 | ||||
158 | /* Okay, now that we have M-x, let the user set the screen height. */ | |||
159 | DECLARE_INFO_COMMAND (set_screen_height,void set_screen_height (WINDOW *window, int count, unsigned char key) | |||
160 | _("Set the height of the displayed window"))void set_screen_height (WINDOW *window, int count, unsigned char key) | |||
161 | { | |||
162 | int new_height, old_height = screenheight; | |||
163 | ||||
164 | if (info_explicit_arg || count != 1) | |||
165 | new_height = count; | |||
166 | else | |||
167 | { | |||
168 | char prompt[80]; | |||
169 | char *line; | |||
170 | ||||
171 | new_height = screenheight; | |||
172 | ||||
173 | sprintf (prompt, _("Set screen height to (%d): ")((const char *) ("Set screen height to (%d): ")), new_height); | |||
174 | ||||
175 | line = info_read_in_echo_area (window, prompt); | |||
176 | ||||
177 | /* If the user aborted, do that now. */ | |||
178 | if (!line) | |||
179 | { | |||
180 | info_abort_key (active_window, count, 0); | |||
181 | return; | |||
182 | } | |||
183 | ||||
184 | /* Find out what the new height is supposed to be. */ | |||
185 | if (*line) | |||
186 | new_height = atoi (line); | |||
187 | ||||
188 | /* Clear the echo area if it isn't active. */ | |||
189 | if (!echo_area_is_active) | |||
190 | window_clear_echo_area (); | |||
191 | ||||
192 | free (line); | |||
193 | } | |||
194 | ||||
195 | terminal_clear_screen (); | |||
196 | display_clear_display (the_display); | |||
197 | screenheight = new_height; | |||
198 | #ifdef SET_SCREEN_SIZE_HELPER | |||
199 | SET_SCREEN_SIZE_HELPER; | |||
200 | #endif | |||
201 | if (screenheight == old_height) | |||
202 | { | |||
203 | /* Display dimensions didn't actually change, so | |||
204 | window_new_screen_size won't do anything, but we've | |||
205 | already cleared the display above. Undo the damage. */ | |||
206 | window_mark_chain (windows, W_UpdateWindow0x01); | |||
207 | display_update_display (windows); | |||
208 | } | |||
209 | else | |||
210 | { | |||
211 | display_initialize_display (screenwidth, screenheight); | |||
212 | window_new_screen_size (screenwidth, screenheight); | |||
213 | } | |||
214 | } |