Call AC_GNU_SOURCE and AM_GNU_GETTEXT_VERSION. Call AC_PROG_LIBTOOL

[m17n/m17n-lib.git] / example / mconv.c

diff --git a/example/mconv.c b/example/mconv.c
index 972dfbe..09a4969 100644 (file)
--- a/example/mconv.c
+++ b/example/mconv.c
@@ -1,5 +1,5 @@
 /* mconv.c -- Code converter.                          -*- coding: euc-jp; -*-
-   Copyright (C) 2003, 2004
+   Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009
      National Institute of Advanced Industrial Science and Technology (AIST)
      Registration Number H15PRO112
 
@@ -17,7 +17,7 @@
 
    You should have received a copy of the GNU Lesser General Public
    License along with the m17n library; if not, write to the Free
-   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
    02111-1307, USA.  */
 
 /***en
@@ -134,8 +134,6 @@
 #include <m17n.h>
 #include <m17n-misc.h>
 
-#define VERSION "1.3.4"
-
 /* Print all coding system names.  */
 
 int
@@ -205,6 +203,9 @@ help_exit (char *prog, int exit_code)
   exit (exit_code);
 }
 
+/* Global flags to control the behaviour.  */
+int suppress_warning;
+int continue_on_error;
 
 /* Check invalid bytes found in the last decoding.  Text property
    Mcharset of such a byte is Mcharset_binary.  */
@@ -224,14 +225,24 @@ check_invalid_bytes (MText *mt)
 
       if (charset == Mcharset_binary)
        {
-         if (first)
+         if (! suppress_warning)
+           {
+             if (first)
+               {
+                 fprintf (stderr,
+                          "Invalid bytes (at each character position);\n");
+                 first = 0;
+               }
+             for (; from < to; from++)
+               fprintf (stderr, " 0x%02X(%d)",
+                        mtext_ref_char (mt, from), from);
+           }
+         if (! continue_on_error)
            {
-             fprintf (stderr,
-                      "Invalid bytes (at each character position);\n");
-             first = 0;
+             if (! first)
+               fprintf (stderr, "\n");
+             exit (1);
            }
-         for (; from < to; from++)
-           fprintf (stderr, " 0x%02X(%d)", mtext_ref_char (mt, from), from);
        }
       else
        from = to;
@@ -258,14 +269,24 @@ check_unencoded_chars (MText *mt, int len)
 
       if (coding == Mnil)
        {
-         if (first)
+         if (! suppress_warning)
+           {
+             if (first)
+               {
+                 fprintf (stderr,
+                          "Unencoded chars (at each character position):\n");
+                 first = 0;
+               }
+             for (; from < to; from++)
+               fprintf (stderr, " 0x%02X(%d)",
+                        mtext_ref_char (mt, from), from);
+           }
+         if (! continue_on_error)
            {
-             fprintf (stderr,
-                      "Unencoded characters (at each character position):\n");
-             first = 0;
+             if (! first)
+               fprintf (stderr, "\n");
+             exit (1);
            }
-         for (; from < to; from++)
-           fprintf (stderr, " 0x%02X(%d)", mtext_ref_char (mt, from), from);
        }
       else
        from = to;
@@ -275,19 +296,32 @@ check_unencoded_chars (MText *mt, int len)
 }
 
 
+void
+unknown_encoding (char *name)
+{
+  if (! suppress_warning)
+    {
+      fprintf (stderr, "Unknown encoding: \"%s\"\n", name);
+      if (mconv_resolve_coding (msymbol ("iso-2022-jp")) == Mnil)
+       fprintf (stderr, "Perhaps the library \"m17n-db\" is missing.\n");
+    }
+  exit (1);
+}
+
 /* Format MSG by FMT and print the result to the stderr, and exit.  */
 
-#define FATAL_ERROR(fmt, arg)  \
-  do {                         \
-    fprintf (stderr, fmt, arg);        \
-    exit (1);                  \
+#define FATAL_ERROR(fmt, arg)          \
+  do {                                 \
+    if (! suppress_warning)            \
+      fprintf (stderr, fmt, arg);      \
+    exit (1);                          \
   } while (0)
 
 
 int
 main (int argc, char **argv)
 {
-  int suppress_warning, verbose, continue_on_error;
+  int verbose;
   MSymbol incode, outcode;
   FILE *in, *out;
   MText *mt;
@@ -314,8 +348,8 @@ main (int argc, char **argv)
        help_exit (argv[0], 0);
       else if (! strcmp (argv[i], "--version"))
        {
-         printf ("m17n-conv (m17n library) %s\n", VERSION);
-         printf ("Copyright (C) 2003 AIST, JAPAN\n");
+         printf ("m17n-conv (m17n library) %s\n", M17NLIB_VERSION_NAME);
+         printf ("Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009 AIST, JAPAN\n");
          exit (0);
        }
       else if (! strcmp (argv[i], "-l"))
@@ -328,13 +362,13 @@ main (int argc, char **argv)
        {
          incode = mconv_resolve_coding (msymbol (argv[++i]));
          if (incode == Mnil)
-           FATAL_ERROR ("Unknown encoding: %s\n", argv[i]);
+           unknown_encoding (argv[i]);
        }
       else if (! strcmp (argv[i], "-t"))
        {
          outcode = mconv_resolve_coding (msymbol (argv[++i]));
          if (outcode == Mnil)
-           FATAL_ERROR ("Unknown encoding: %s\n", argv[i]);
+           unknown_encoding (argv[i]);
        }
       else if (! strcmp (argv[i], "-k"))
        continue_on_error = 1;
@@ -362,12 +396,17 @@ main (int argc, char **argv)
       else
        help_exit (argv[0], 1);
     }
+  if (verbose)
+    suppress_warning = 0;
 
   /* Create an M-text to store the decoded characters.  */
   mt = mtext ();
 
   /* Create a converter for decoding.  */
   converter = mconv_stream_converter (incode, in);
+  if (! converter)
+    FATAL_ERROR ("Encoding \"%s\" requires the missing library \"m17n-db\".\n",
+                msymbol_name (incode));
   /* Instead of doing strict decoding, we decode all input bytes at
      once, and check invalid bytes later by the fuction
      check_invalid_bytes.  */
@@ -375,8 +414,7 @@ main (int argc, char **argv)
 
   mconv_decode (converter, mt);
 
-  if (! suppress_warning)
-    check_invalid_bytes (mt);
+  check_invalid_bytes (mt);
   if (verbose)
     fprintf (stderr, "%d bytes (%s) decoded into %d characters,\n",
             converter->nbytes, msymbol_name (incode), mtext_len (mt));
@@ -385,6 +423,9 @@ main (int argc, char **argv)
 
   /* Create a converter for encoding.  */
   converter = mconv_stream_converter (outcode, out);
+  if (! converter)
+    FATAL_ERROR ("Encoding \"%s\" requires the missing library \"m17n-db\".\n",
+                msymbol_name (outcode));
   /* Instead of doing strict encoding, we encode all characters at
      once, and check unencoded characters later by the fuction
      check_unencoded_chars.  */
@@ -393,8 +434,7 @@ main (int argc, char **argv)
   if (mconv_encode (converter, mt) < 0
       && ! suppress_warning)
     fprintf (stderr, "I/O error on writing\n");
-  if (! suppress_warning)
-    check_unencoded_chars (mt, converter->nchars);
+  check_unencoded_chars (mt, converter->nchars);
   if (verbose)
     fprintf (stderr, "%d characters encoded into %d bytes (%s).\n",
             converter->nchars, converter->nbytes, msymbol_name (outcode));