Improve MinGW support in Readline
[external/binutils.git] / readline / examples / histexamp.c
1 /* histexamp.c - history library example program. */
2
3 /* Copyright (C) 1987-2009 Free Software Foundation, Inc.
4
5    This file is part of the GNU Readline Library (Readline), a library for
6    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 #include <stdio.h>
23
24 #ifdef READLINE_LIBRARY
25 #  include "history.h"
26 #else
27 #  include <readline/history.h>
28 #endif
29
30 #include <string.h>
31
32 main (argc, argv)
33      int argc;
34      char **argv;
35 {
36   char line[1024], *t;
37   int len, done;
38
39   line[0] = 0;
40   done = 0;
41
42   using_history ();
43   while (!done)
44     {
45       printf ("history$ ");
46       fflush (stdout);
47       t = fgets (line, sizeof (line) - 1, stdin);
48       if (t && *t)
49         {
50           len = strlen (t);
51           if (t[len - 1] == '\n')
52             t[len - 1] = '\0';
53         }
54
55       if (!t)
56         strcpy (line, "quit");
57
58       if (line[0])
59         {
60           char *expansion;
61           int result;
62
63           using_history ();
64
65           result = history_expand (line, &expansion);
66           if (result)
67             fprintf (stderr, "%s\n", expansion);
68
69           if (result < 0 || result == 2)
70             {
71               free (expansion);
72               continue;
73             }
74
75           add_history (expansion);
76           strncpy (line, expansion, sizeof (line) - 1);
77           free (expansion);
78         }
79
80       if (strcmp (line, "quit") == 0)
81         done = 1;
82       else if (strcmp (line, "save") == 0)
83         write_history ("history_file");
84       else if (strcmp (line, "read") == 0)
85         read_history ("history_file");
86       else if (strcmp (line, "list") == 0)
87         {
88           register HIST_ENTRY **the_list;
89           register int i;
90           time_t tt;
91           char timestr[128];
92
93           the_list = history_list ();
94           if (the_list)
95             for (i = 0; the_list[i]; i++)
96               {
97                 tt = history_get_time (the_list[i]);
98                 if (tt)
99                   strftime (timestr, sizeof (timestr), "%a %R", localtime(&tt));
100                 else
101                   strcpy (timestr, "??");
102                 printf ("%d: %s: %s\n", i + history_base, timestr, the_list[i]->line);
103               }
104         }
105       else if (strncmp (line, "delete", 6) == 0)
106         {
107           int which;
108           if ((sscanf (line + 6, "%d", &which)) == 1)
109             {
110               HIST_ENTRY *entry = remove_history (which);
111               if (!entry)
112                 fprintf (stderr, "No such entry %d\n", which);
113               else
114                 {
115                   free (entry->line);
116                   free (entry);
117                 }
118             }
119           else
120             {
121               fprintf (stderr, "non-numeric arg given to `delete'\n");
122             }
123         }
124     }
125 }