X-Git-Url: http://git.chise.org/gitweb/?p=m17n%2Fm17n-docs.git;a=blobdiff_plain;f=utils%2Fimdoc.c;fp=utils%2Fimdoc.c;h=346da2f0e774afbb6e4d16fe91cfbeebdd73384e;hp=3226417e3e2596f4461d1a9c46f7ab28a829f98e;hb=26da46c8e150370680a7c07f24d8142f514bdac1;hpb=b04a71c4af2de44c379e6a0ce8cc2025348c4216

diff --git a/utils/imdoc.c b/utils/imdoc.c
index 3226417..346da2f 100644
--- a/utils/imdoc.c
+++ b/utils/imdoc.c
@@ -1,8 +1,22 @@
 #include <stdio.h>
 #include <string.h>
 #include <locale.h>
+#include <libgen.h>
 #include <m17n.h>
 
+struct CommentList
+{
+  char line[256];
+  struct CommentList *next;
+};
+
+void
+invalid_file (char *filename)
+{
+  fprintf (stderr, "Invalid input method file: %s\n", filename);
+  exit (1);
+}
+
 int
 main (int argc, char **argv)
 {
@@ -10,20 +24,55 @@ main (int argc, char **argv)
   MPlist *plist;
   MSymbol language, name;
   MText *mt;
+  FILE *fp;
+  char buf[256];
+  struct CommentList *head_comment = NULL, *cur_comment = NULL;
+  MSymbol Minput_method, Mutf8;
 
   setlocale (LC_ALL, "");
   M17N_INIT ();
+  Minput_method = msymbol ("input-method");
+  Mutf8 = msymbol ("utf-8");
 
-  if (argc < 3)
+  if (argc < 2)
+    {
+      fprintf (stderr, "Usage: imdoc FILE\n");
+      exit (1);
+    }
+  fp = fopen (argv[1], "r");
+  if (! fp)
     {
-      fprintf (stderr, "Usage: imdoc FILE (input-method LANG NAME [EXTRA])\n");
+      fprintf (stderr, "Usage: imdoc FILE\n");
       exit (1);
     }
-  file = argv[1];
-  mt = mtext_from_data (argv[2], strlen (argv[2]), MTEXT_FORMAT_US_ASCII);
+  while (fgets (buf, 256, fp)
+	 && buf[0] != '(')
+    {
+      if (buf[0] == ';' && buf[1] == ';' && buf[2] == ';')
+	{
+	  if (! head_comment)
+	    {
+	      cur_comment = head_comment = alloca (sizeof (struct CommentList));
+	    }
+	  else
+	    {
+	      cur_comment->next = alloca (sizeof (struct CommentList));
+	      cur_comment = cur_comment->next;
+	    }
+	  strcpy (cur_comment->line, buf + 4);
+	  cur_comment->next = NULL;
+	}
+    }
+  if (! buf[0])
+    invalid_file (argv[1]);
+  mt = mtext_from_data (buf, strlen (buf), MTEXT_FORMAT_US_ASCII);
   plist = mplist_deserialize (mt);
   m17n_object_unref (mt);
+  if (! plist)
+    invalid_file (argv[1]);
   plist = mplist_value (plist);
+  if (mplist_value (plist) != Minput_method)
+    invalid_file (argv[1]);
   plist = mplist_next (plist);
   language = mplist_value (plist);
   plist = mplist_next (plist);
@@ -32,26 +81,92 @@ main (int argc, char **argv)
   if (mplist_key (plist) != Mnil)
     language = mplist_value (plist), name = Mnil;
   m17n_object_unref (plist);
+
+  file = basename (strdup (argv[1]));
+
+  if (name != Mnil)
+    {
+      MPlist *plist;
+
+      printf ("*/\n/***ja\n<li> %s (language:", file);
+      if (language == Mt)
+	printf ("generic name:%s", msymbol_name (name));
+      else
+	printf ("%s name:%s", msymbol_name (language), msymbol_name (name));
+      printf (")*/\n/***en\n<li> %s (language:", file);
+      if (language == Mt)
+	printf ("generic name:%s", msymbol_name (name));
+      else
+	printf ("%s name:%s", msymbol_name (language), msymbol_name (name));
+      plist = minput_get_title_icon (language, name);
+      if (plist)
+	{
+	  MText *title = mplist_value (plist);
+	  
+	  printf ("@htmlonly\n title:\"");
+	  plist = mplist_next (plist);
+	  mconv_encode_stream (Mutf8, title, stdout);
+	  printf ("\"");
+	  if (mplist_key (plist) != Mnil)
+	    {
+	      MText *icon = mplist_value (plist);
+	      char *iconfile = mtext_data (icon, MTEXT_FORMAT_US_ASCII,
+					   NULL, NULL, NULL);
+	      char *base;
+	      char cmd[1024];
+
+	      base = basename (strdup (iconfile));
+	      sprintf (cmd, "convert -resize 50%% %s images/icon-%s",
+		       iconfile, base);
+	      system (cmd);
+	      printf (" icon:<img src=\"icon-%s\" border=\"1\" style=\"vertical-align:middle;\">\n", base);
+	    }
+	  else
+	    printf (" icon:none\n");
+	  printf ("@endhtmlonly\n");
+	}
+      printf (")*/\n/***\n");
+    }
+  else
+    printf ("<li> %s (extra-name:%s, only for inclusion)\n", file,
+	    msymbol_name (name));
+
   mt = minput_get_description (language, name);
   if (! mt)
     {
-      fprintf (stderr, "Invalid IM name: %s %s\n", argv[1] ,argv[2]);
-      exit (1);
+      printf ("Not yet officially released.\n");
+      exit (0);
     }
-#if 0
-  if (argc < 5)
+  else if (head_comment)
     {
-      if (language == Mt)
-	printf ("<li> %s (language:generic name:%s)\n", file, argv[3]);
-      else
-	printf ("<li> %s (language:%s name:%s)\n", file, argv[2], argv[3]);
+      for (; head_comment; head_comment = head_comment->next)
+	{
+	  char *p = head_comment->line;
+
+	  if (p[0] == '|' && p[1] == '|')
+	    printf ("<tr><td align=\"center\">"), p += 2;
+	  while (*p)
+	    {
+	      if (p[0] == '|')
+		{
+		  if (p[1] == '|')
+		    printf ("</td></tr>"), p += 2;
+		  else
+		    printf ("</td><td align=\"center\">"), p++;
+		}
+	      else
+		putchar (*p), p++;
+	    }
+	}
     }
   else
-    printf ("<li> %s (extra-name:%s, only for inclusion)\n", file, argv[4]);
-#endif
-  printf ("@verbatim\n");
-  mconv_encode_stream (msymbol ("utf-8"), mt, stdout);
-  printf ("\n@endverbatim\n");
+    {
+      printf ("@verbatim\n");
+      mconv_encode_stream (msymbol ("utf-8"), mt, stdout);
+      if (mtext_ref_char (mt, mtext_len (mt) - 1) != '\n')
+	printf ("\n");
+      printf ("@endverbatim\n");
+    }
 
   M17N_FINI ();
   exit (0);