diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-25 14:25:06 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-25 14:25:06 +0000 |
commit | 000309e0e66c4800630d724f74a53c3fe3e8ce61 (patch) | |
tree | f053563594e0c545270fb838f6410925873333ec /mh | |
parent | 9ceac518e250a0948927ad779336dc1123d9e724 (diff) | |
download | mailutils-000309e0e66c4800630d724f74a53c3fe3e8ce61.tar.gz mailutils-000309e0e66c4800630d724f74a53c3fe3e8ce61.tar.bz2 |
New file. Source for fmtcheck command. It is
planned as a replacement for fmtdump, providing a broader
set of options for debugging user formats. Currently only
dump (listing) mode is implemented.
Diffstat (limited to 'mh')
-rw-r--r-- | mh/fmtcheck.c | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/mh/fmtcheck.c b/mh/fmtcheck.c new file mode 100644 index 000000000..996e967aa --- /dev/null +++ b/mh/fmtcheck.c @@ -0,0 +1,97 @@ +/* GNU mailutils - a suite of utilities for electronic mail + Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +/* fmtcheck */ + +#include <mh.h> + +const char *argp_program_version = "fmtcheck (" PACKAGE_STRING ")"; +static char doc[] = "GNU MH fmtcheck"; +static char args_doc[] = ""; + +/* GNU options */ +static struct argp_option options[] = { + {"form", 'F', "FILE", 0, "Read format from given file"}, + {"format", 't', "FORMAT", 0, "Use this format string"}, + {"dump", 'd', NULL, 0, "Dump the listing of compiled format code"}, + { "\nUse -help switch to obtain the list of traditional MH options. ", 0, 0, OPTION_DOC, "" }, + + { 0 } +}; + +/* Traditional MH options */ +struct mh_option mh_option[] = { + {"form", 4, 'F', MH_OPT_ARG, "formatfile"}, + {"format", 5, 't', MH_OPT_ARG, "string"}, + { 0 } +}; + +char *format_str; +static mh_format_t format; + +typedef int (*action_fp) __P((void)); + +static int +action_dump () +{ + if (!format_str) + { + mh_error ("format string not specified"); + return 1; + } + mh_format_dump (&format); + return 0; +} + +static action_fp action = action_dump; + +static int +opt_handler (int key, char *arg, void *unused) +{ + switch (key) + { + case 'F': + mh_read_formfile (arg, &format_str); + break; + + case 't': + format_str = arg; + break; + + case 'd': + action = action_dump; + break; + + default: + return 1; + } + return 0; +} + +int +main (int argc, char **argv) +{ + mh_argp_parse (argc, argv, options, mh_option, args_doc, doc, + opt_handler, NULL, NULL); + + if (format_str && mh_format_parse (format_str, &format)) + { + mh_error ("Bad format string"); + exit (1); + } + return (*action) (); +} |