+ printf("\n%s\n\n",
+ _("For more information, see the cdecl99(1) man page."));
+
+ /*
+ * TRANSLATORS: Please add *another line* indicating where users should
+ * report translation bugs.
+ */
+ printf(_("Report bugs to <%s>.\n"), PACKAGE_BUGREPORT);
+}
+
+static int do_getline(char **linebuf, size_t *n)
+{
+ int rc;
+
+ if ((rc = dx_getline(linebuf, n, stdin)) < 0) {
+ if (rc == DX_GETLINE_ENOMEM)
+ print_error("%s", _("failed to allocate memory"));
+ else
+ print_error("%s", strerror(errno));
+ return 0;
+ }
+
+ return rc;
+}
+
+static int do_readline(char **linebuf, size_t *n, bool batch)
+{
+#if !HAVE_READLINE
+ if (!batch) {
+ fputs("> ", stdout);
+ fflush(stdout);
+ }
+
+ return do_getline(linebuf, n);
+#else
+ if (batch)
+ return do_getline(linebuf, n);
+
+ free(*linebuf);
+ if (!(*linebuf = readline("> ")))
+ return 0;
+
+ do_add_history(*linebuf);
+ return 1;
+#endif
+}
+
+static int repl(bool batch)
+{
+ char *line = NULL;
+ bool fail = 0;
+ size_t n = 0;
+
+ while (do_readline(&line, &n, batch)) {
+ int rc = run_command(line, batch);
+ if (rc > 0)
+ break;
+ if (rc < 0)
+ fail = batch;
+ }
+
+ free(line);
+ return fail ? EXIT_FAILURE : 0;
+}
+
+static int repl_cmdline(unsigned count, char **commands)
+{
+ bool fail = 0;
+ unsigned i;
+
+ for (i = 0; i < count; i++) {
+ int rc = run_command(commands[i], true);
+ if (rc > 0)
+ break;
+ if (rc < 0)
+ fail = true;
+ }
+
+ return fail ? EXIT_FAILURE : 0;
+}
+
+/* Initialize gettext */
+static void init_i18n(void)
+{
+ if (!ENABLE_NLS)
+ return;
+
+ setlocale(LC_ALL, "");
+ bindtextdomain(PACKAGE, LOCALEDIR);
+ textdomain(PACKAGE);
+}
+
+enum {
+ INIT_EXIT_SUCCESS = -1,
+ INIT_EXIT_FAILURE = -2
+};
+
+static int initialize(int argc, char **argv)
+{
+ int i, opt, quiet = 0, execute = 0;
+ const char *filename = NULL;
+
+ XTRA_PACKED_LOPTS(lopts);
+
+ if (argc > 0)
+ progname = argv[0];
+
+ init_i18n();
+
+ while ((opt = getopt_long(argc, argv, SOPT_STRING, lopts, 0)) != -1) {
+ switch (opt) {
+ case 'q':
+ quiet = 1;
+ break;
+ case 'b':
+ batch_mode = true;
+ break;
+ case 'i':
+ batch_mode = false;
+ break;
+ case 'f':
+ filename = optarg;
+ break;
+ case 'e':
+ argv[execute++] = optarg;
+ break;
+ case 'V':
+ print_version();
+ return INIT_EXIT_SUCCESS;
+ case 'H':
+ print_help(lopts);
+ return INIT_EXIT_SUCCESS;
+ default:
+ print_usage(stderr);
+ return INIT_EXIT_FAILURE;
+ }
+ }
+
+ if (optind < argc) {
+ fprintf(stderr, "%s: %s", progname,
+ _("excess command-line arguments:"));
+ for (i = optind; i < argc; i++) {
+ fprintf(stderr, " %s", argv[i]);
+ }
+ fprintf(stderr, "\n");
+ print_usage(stderr);
+ return INIT_EXIT_FAILURE;
+ }
+
+ /* --filename and --execute imply --batch. */
+ if (filename || execute)
+ batch_mode = true;
+
+ /* --batch implies --quiet */
+ if (!batch_mode && !quiet)
+ print_version();
+
+ /* --execute supersedes --filename */
+ if (filename && !execute) {
+ if (!freopen(filename, "r", stdin)) {
+ print_error("failed to open %s: %s", filename,
+ strerror(errno));
+ return INIT_EXIT_FAILURE;
+ }
+ }
+
+ return execute;
+}
+
+int main(int argc, char **argv)
+{
+ int execute;
+
+ switch ((execute = initialize(argc, argv))) {
+ case INIT_EXIT_SUCCESS: return EXIT_SUCCESS;
+ case INIT_EXIT_FAILURE: return EXIT_FAILURE;