322f7aa956db9c93fa36824a04909b48dd0e7b0b
3 * $Id: xgetline.c,v 1.10 1999/05/21 22:09:19 mdw Exp $
5 * Fetch a line of text from the user
7 * (c) 1998 Straylight/Edgeware
10 /*----- Licensing notice --------------------------------------------------*
12 * This file is part of the Edgeware X tools collection.
14 * X tools is free software; you can redistribute it and/or modify
15 * it under the terms of the GNU General Public License as published by
16 * the Free Software Foundation; either version 2 of the License, or
17 * (at your option) any later version.
19 * X tools is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 * GNU General Public License for more details.
24 * You should have received a copy of the GNU General Public License
25 * along with X tools; if not, write to the Free Software Foundation,
26 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
29 /*----- Revision history --------------------------------------------------*
31 * $Log: xgetline.c,v $
32 * Revision 1.10 1999/05/21 22:09:19 mdw
33 * Take advantage of new dynamic string macros.
35 * Revision 1.9 1999/05/05 18:54:37 mdw
36 * Keep blank lines out of the history list.
38 * Revision 1.8 1998/12/16 19:58:53 mdw
39 * Stop the dropdown list from dropping down when you press enter.
41 * Revision 1.7 1998/12/11 09:53:02 mdw
42 * Updates for mLib/mgLib. Support history files for recalling past
43 * entries, using a drop-down list.
45 * Revision 1.6 1998/12/03 00:56:29 mdw
46 * Set focus on the entry field, rather than leaving things to luck.
48 * Revision 1.5 1998/12/03 00:39:44 mdw
49 * Force focus when starting up.
51 * Revision 1.4 1998/11/30 22:36:47 mdw
52 * Tidy up tabbing in help texts very slightly.
54 * Revision 1.3 1998/11/21 22:30:20 mdw
55 * Support GNU-style long options throughout, and introduce proper help
56 * text to all programs. Update manual pages to match.
58 * Revision 1.2 1998/11/18 21:25:30 mdw
59 * Remove bogus `-h' option from the options list.
61 * Revision 1.1 1998/11/16 23:00:49 mdw
66 /*----- Header files ------------------------------------------------------*/
76 #include <gdk/gdkkeysyms.h>
78 #include <mLib/alloc.h>
79 #include <mLib/dstr.h>
80 #include <mLib/mdwopt.h>
81 #include <mLib/report.h>
82 #include <mLib/quis.h>
84 #include <mgLib/cancel.h>
85 #include <mgLib/mdwfocus.h>
87 /*----- Main code ---------------------------------------------------------*/
91 * Arguments: @GtkWidget *w@ = widget raising the signal
92 * @gpointer *p@ = pointer to integer result code
96 * Use: Sets the result code to zero (failure) and ends the loop.
99 static void quit(GtkWidget
*w
, gpointer
*p
)
108 * Arguments: @GtkWidget *w@ = widget raising the signal
109 * @gpointer *p@ = pointer to integer result code
113 * Use: Sets the result code nonzero (success) and ends the loop.
116 static void done(GtkWidget
*w
, gpointer
*p
)
123 /* --- @version@ --- *
125 * Arguments: @FILE *fp@ = output stream to print the message on
129 * Use: Spits out a version message.
132 static void version(FILE *fp
)
134 fprintf(fp
, "%s (xtoys version " VERSION
")\n", QUIS
);
139 * Arguments: @FILE *fp@ = output stream to print the message on
143 * Use: Spits out a usage message.
146 static void usage(FILE *fp
)
149 "Usage: %s [-in] [-t title] [-p prompt] [-d default]\n"
150 "\t[-l|-H file] [-m max]\n",
156 * Arguments: @int argc@ = number of command line arguments
157 * @char *argv[]@ = addresses of arguments
159 * Returns: Zero if OK, and we read a string; nonzero if the user
162 * Use: Reads a string from the user, and returns it on standard
166 int main(int argc
, char *argv
[])
168 /* --- Configuration variables --- */
172 char *title
= "Input request";
177 const char *list
= 0;
188 /* --- User interface bits --- */
195 /* --- Crank up the toolkit --- *
197 * Have to do this here: GTK snarfs some command line options which my
198 * parser would barf about.
202 gtk_init(&argc
, &argv
);
204 /* --- Parse options from command line --- */
208 /* --- Long options structure --- */
210 static struct option opt
[] = {
211 { "help", 0, 0, 'h' },
212 { "usage", 0, 0, 'u' },
213 { "version", 0, 0, 'v' },
214 { "title", required_argument
, 0, 't' },
215 { "prompt", required_argument
, 0, 'p' },
216 { "default", required_argument
, 0, 'd' },
217 { "password", 0, 0, 'i' },
218 { "invisible", 0, 0, 'i' },
219 { "history", required_argument
, 0, 'H' },
220 { "list", required_argument
, 0, 'l' },
221 { "histmax", required_argument
, 0, 'm' },
222 { "no-choice", 0, 0, 'n' },
227 /* --- Fetch an option --- */
229 i
= getopt_long(argc
, argv
, "huv t:p:d:i H:l:m:n", opt
, 0);
233 /* --- Work out what to do with it --- */
242 "Pops up a small window requesting input from a user, and echoes the\n"
243 "response to stdout, where it can be collected by a shell script.\n"
245 "Options available are:\n"
247 "-h, --help Display this help text\n"
248 "-u, --usage Display a short usage summary\n"
249 "-v, --version Display the program's version number\n"
251 "-i, --invisible\t Don't show the user's string as it's typed\n"
252 "-t, --title=TITLE Set the window's title string\n"
253 "-p, --prompt=PROMPT Set the window's prompt string\n"
254 "-d, --default=DEFAULT Set the default string already in the window\n"
256 "-l, --list=FILE Read FILE into a drop-down list\n"
257 "-n, --no-choice No free text input: must choose item from list\n"
258 "-H, --history=FILE As for `--list', but update with new string\n"
259 "-m, --histmax=MAX Maximum number of items written back to file\n",
296 histmax
= atoi(optarg
);
310 if ((f
& f_invis
) && list
) {
312 "invisible entry is dumb if you provide a list of alternatives!");
315 if ((f
& f_nochoice
) && !list
)
316 die(EXIT_FAILURE
, "nothing to restrict choice to!");
318 /* --- Create the main window --- */
320 win
= gtk_window_new(GTK_WINDOW_TOPLEVEL
);
321 gtk_window_set_title(GTK_WINDOW(win
), title
);
322 gtk_window_position(GTK_WINDOW(win
), GTK_WIN_POS_MOUSE
);
323 gtk_signal_connect(GTK_OBJECT(win
), "destroy",
324 GTK_SIGNAL_FUNC(quit
), &ok
);
326 /* --- Create the box for laying out the widgets inside --- */
328 left
= (prompt ?
1 : 0);
329 box
= gtk_table_new(left
+ 2, 1, 0);
331 /* --- Maybe create a prompt widget --- */
334 GtkWidget
*w
= gtk_label_new(prompt
);
335 gtk_table_attach(GTK_TABLE(box
), w
,
336 0, 1, 0, 1, 0, GTK_EXPAND
, 4, 2);
340 /* --- Create the entry widget --- */
343 FILE *fp
= fopen(list
, "r");
346 /* --- Read the items in from the file --- *
348 * Inability to open the file is not a disaster.
355 while (dstr_putline(&d
, fp
) != EOF
) {
356 hist
= g_list_append(hist
, xstrdup(d
.buf
));
362 /* --- Now create a combo box --- */
364 combo
= gtk_combo_new();
365 entry
= GTK_COMBO(combo
)->entry
;
367 gtk_combo_set_popdown_strings(GTK_COMBO(combo
), hist
);
369 /* --- Do other configuring --- */
371 if (f
& f_nochoice
) {
372 gtk_combo_set_value_in_list(GTK_COMBO(combo
), 1, 0);
373 gtk_entry_set_editable(GTK_ENTRY(entry
), 0);
375 gtk_combo_set_case_sensitive(GTK_COMBO(combo
), 1);
376 gtk_combo_set_use_arrows_always(GTK_COMBO(combo
), 1);
377 gtk_combo_disable_activate(GTK_COMBO(combo
));
378 if (strcmp(dfl
, "@") == 0)
379 gtk_entry_set_text(GTK_ENTRY(entry
), hist ?
(char *)hist
->data
: "");
381 gtk_entry_set_text(GTK_ENTRY(entry
), dfl
);
383 /* --- Set the widget in the right place and show it --- */
385 gtk_table_attach(GTK_TABLE(box
), combo
,
386 left
, left
+ 1, 0, 1,
387 GTK_EXPAND
| GTK_FILL
, GTK_EXPAND
, 4, 2);
388 gtk_widget_show(combo
);
390 entry
= gtk_entry_new();
391 gtk_entry_set_text(GTK_ENTRY(entry
), dfl
);
393 gtk_entry_set_visibility(GTK_ENTRY(entry
), FALSE
);
394 gtk_table_attach(GTK_TABLE(box
), entry
,
395 left
, left
+ 1, 0, 1,
396 GTK_EXPAND
| GTK_FILL
, GTK_EXPAND
, 4, 2);
397 gtk_widget_show(entry
);
400 /* --- Create the default action widget --- */
402 btn
= gtk_button_new_with_label("OK");
403 gtk_table_attach(GTK_TABLE(box
), btn
,
404 left
+ 1, left
+ 2, 0, 1, 0, GTK_EXPAND
, 2, 2);
405 GTK_WIDGET_SET_FLAGS(btn
, GTK_CAN_DEFAULT
);
406 gtk_widget_show(btn
);
408 /* --- Add the box into the main window --- */
410 gtk_container_add(GTK_CONTAINER(win
), box
);
411 gtk_widget_show(box
);
413 /* --- Last minute configuration things --- */
415 gtk_widget_grab_default(btn
);
416 gtk_signal_connect(GTK_OBJECT(btn
), "clicked",
417 GTK_SIGNAL_FUNC(done
), &ok
);
418 gtk_signal_connect_object(GTK_OBJECT(entry
), "activate",
419 GTK_SIGNAL_FUNC(gtk_widget_activate
),
421 cancel(GTK_WINDOW(win
), 0);
423 /* --- Go go go --- */
425 gtk_widget_realize(win
);
427 gtk_widget_grab_focus(entry
);
428 gtk_widget_show(win
);
431 /* --- Output the result --- */
434 char *p
= gtk_entry_get_text(GTK_ENTRY(entry
));
436 /* --- If history is enabled, output a new history file --- *
438 * If the first entry was accepted verbatim, or if the entry is a blank
439 * line, don't bother.
442 if (f
& f_history
&& *p
&& !(hist
&& strcmp(p
, hist
->data
) == 0)) {
448 if ((fd
= open(list
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0600)) < 0)
450 if ((fp
= fdopen(fd
, "w")) == 0) {
458 for (i
= 1, g
= hist
; (histmax
< 1 || i
< histmax
) && g
; g
= g
->next
) {
459 if (*(char *)g
->data
&& strcmp(g
->data
, p
) != 0) {
469 /* --- Print the result and go away --- */
474 return (ok ? EXIT_SUCCESS
: EXIT_FAILURE
);
477 /*----- That's all, folks -------------------------------------------------*/