1 /* makedb -- create simple DB database from textual input.
2 Copyright (C) 1996 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License as
8 published by the Free Software Foundation; either version 2 of the
9 License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with the GNU C Library; see the file COPYING.LIB. If
18 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
32 /* Get libc version number. */
33 #include "../version.h"
37 static const struct option long_options
[] =
39 { "help", no_argument
, NULL
, 'h' },
40 { "fold-case", no_argument
, NULL
, 'f' },
41 { "output", required_argument
, NULL
, 'o' },
42 { "undo", no_argument
, NULL
, 'u' },
43 { "version", no_argument
, NULL
, 'V' },
47 /* Prototypes for local functions. */
48 static void usage
__P ((int status
)) __attribute__ ((noreturn
));
49 static int process_input
__P ((FILE *input
, const char *inname
, DB
*output
,
51 static int print_database
__P ((DB
*db
));
59 const char *output_name
;
60 const char *input_name
;
70 /* Set locale via LC_ALL. */
71 setlocale (LC_ALL
, "");
73 /* Set the text message domain. */
74 textdomain (_libc_intl_domainname
);
76 /* Initialize local variables. */
83 while ((opt
= getopt_long (argc
, argv
, "fho:uV", long_options
, NULL
)) != EOF
)
86 case '\0': /* Long option. */
104 usage (EXIT_FAILURE
);
107 /* Version information is requested. */
109 printf ("%s - GNU %s %s\n", program_invocation_name
, "libc", VERSION
);
111 /* Help is requested. */
113 usage (EXIT_SUCCESS
);
117 /* Determine file names. */
118 if (do_undo
|| output_name
!= NULL
)
120 if (optind
+ 1 != argc
)
123 error (0, 0, gettext ("wrong number of arguments"));
124 usage (EXIT_FAILURE
);
126 input_name
= argv
[optind
];
130 if (optind
+ 2 != argc
)
131 goto wrong_arguments
;
133 input_name
= argv
[optind
++];
134 output_name
= argv
[optind
];
137 /* Special handling if we are asked to print the database. */
140 db_file
= dbopen (input_name
, O_RDONLY
, 0666, DB_BTREE
, NULL
);
142 error (EXIT_FAILURE
, 0, gettext ("cannot open database file `%s': %s"),
144 errno
== EFTYPE
? gettext ("incorrectly formatted file")
147 status
= print_database (db_file
);
149 db_file
->close (db_file
);
154 /* Open input file. */
155 if (strcmp (input_name
, "-") == 0 || strcmp (input_name
, "/dev/stdin") == 0)
159 input_file
= fopen (input_name
, "r");
160 if (input_file
== NULL
)
161 error (EXIT_FAILURE
, errno
, gettext ("cannot open input file `%s'"),
165 /* Open output file. This must not be standard output so we don't
166 handle "-" and "/dev/stdout" special. */
167 db_file
= dbopen (output_name
, O_CREAT
| O_RDWR
| O_TRUNC
, 0666,
170 error (EXIT_FAILURE
, errno
, gettext ("cannot open output file `%s'"));
172 /* Start the real work. */
173 status
= process_input (input_file
, input_name
, db_file
, to_lowercase
);
176 if (input_file
!= stdin
)
178 db_file
->close (db_file
);
188 if (status
!= EXIT_SUCCESS
)
189 fprintf (stderr
, gettext ("Try `%s --help' for more information.\n"),
190 program_invocation_name
);
193 Usage: %s [OPTION]... INPUT-FILE OUTPUT-FILE\n\
194 %s [OPTION]... -o OUTPUT-FILE INPUT-FILE\n\
195 %s [OPTION]... -u INPUT-FILE\n\
196 Mandatory arguments to long options are mandatory for short options too.\n\
197 -f, --fold-case convert key to lower case\n\
198 -h, --help display this help and exit\n\
199 -o, --output=NAME write output to file NAME\n\
200 -u, --undo print content of database file, one entry a line\n\
201 -V, --version output version information and exit\n\
202 If INPUT-FILE is -, input is read from standard input.\n"),
203 program_invocation_name
, program_invocation_name
,
204 program_invocation_name
);
211 process_input (input
, inname
, output
, to_lowercase
)
224 status
= EXIT_SUCCESS
;
227 while (!feof (input
))
234 n
= getline (&line
, &linelen
, input
);
236 /* This means end of file or some bug. */
239 /* Short read. Probably interrupted system call. */
244 if (line
[n
- 1] == '\n')
245 /* Remove trailing newline. */
249 while (isspace (*cp
))
253 /* First non-space character in line '#': it's a comment. */
257 while (*cp
!= '\0' && !isspace (*cp
))
265 /* It's an empty line. */
268 key
.size
= cp
- (char *) key
.data
;
270 while (isspace (*cp
))
274 val
.size
= &line
[n
] - cp
;
276 /* Store the value. */
277 status
= output
->put (output
, &key
, &val
, R_NOOVERWRITE
);
281 error_at_line (0, 0, inname
, linenr
, gettext ("duplicate key"));
283 error (0, errno
, gettext ("while writing data base file"));
285 status
= EXIT_FAILURE
;
293 error (0, 0, gettext ("problems while reading `%s'"));
294 status
= EXIT_FAILURE
;
309 no_more
= db
->seq (db
, &key
, &val
, R_FIRST
);
312 printf ("%.*s %.*s\n", (int) key
.size
, (char *) key
.data
, (int) val
.size
,
315 no_more
= db
->seq (db
, &key
, &val
, R_NEXT
);
320 error (0, errno
, gettext ("while reading database"));