0
@@ -400,7 +400,185 @@
0
     }
0
 }
0
 
0
+/**********************************************************************
0
 
0
+  Functions for printing Elements as groff (mm macros)
0
+
0
+ ***********************************************************************/
0
+
0
+static bool in_list_item = false; /* True if we're parsing contents of a list item. */
0
+
0
+/* print_groff_string - print string, escaping for groff */
0
+void print_groff_string(char *str) {
0
+    while (*str != '\0') {
0
+        switch (*str) {
0
+        case '\\':
0
+            printf("\\e");
0
+            break;
0
+        default:
0
+            putchar(*str);
0
+            break;
0
+        }
0
+    str++;
0
+    }
0
+}
0
+
0
+void print_groff_mm_element(element elt, int count);
0
+
0
+/* print_groff_mm_element_list - print a list of elements as groff ms */
0
+void print_groff_mm_element_list(item *list) {
0
+    int count = 1;
0
+    while (list != NULL) {
0
+        print_groff_mm_element((*list).val, count);
0
+        list = (*list).next;
0
+        count++;
0
+    }
0
+}
0
+
0
+/* print_groff_mm_element - print an element as groff ms */
0
+void print_groff_mm_element(element elt, int count) {
0
+    int lev;
0
+    char *contents;
0
+    switch (elt.key) {
0
+    case SPACE:
0
+        printf("%s", elt.contents.str);
0
+        padded = 0;
0
+        break;
0
+    case LINEBREAK:
0
+        pad(1);
0
+        printf(".br");
0
+        padded = 0;
0
+        break;
0
+    case STR:
0
+        print_groff_string(elt.contents.str);
0
+        padded = 0;
0
+        break;
0
+    case CODE:
0
+        printf("\\fC");
0
+        print_groff_string(elt.contents.str);
0
+        printf("\\fR");
0
+        padded = 0;
0
+        break;
0
+    case HTML:
0
+        /* don't print HTML */
0
+        break;
0
+    case LINK:
0
+        print_groff_mm_element_list(elt.contents.link.label);
0
+        printf(" (%s)", elt.contents.link.url);
0
+        padded = 0;
0
+        break;
0
+    case IMAGE:
0
+        printf("[IMAGE: ");
0
+        print_groff_mm_element_list(elt.contents.link.label);
0
+        printf("]");
0
+        padded = 0;
0
+        /* not supported */
0
+        break;
0
+    case EMPH:
0
+        printf("\\fI");
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        printf("\\fR");
0
+        padded = 0;
0
+        break;
0
+    case STRONG:
0
+        printf("\\fB");
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        printf("\\fR");
0
+        padded = 0;
0
+        break;
0
+    case LIST:
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        padded = 0;
0
+        break;
0
+    case H1: case H2: case H3: case H4: case H5: case H6:
0
+        lev = elt.key - H1 + 1;
0
+        pad(1);
0
+        printf(".H %d \"", lev);
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        printf("\"");
0
+        padded = 0;
0
+        break;
0
+    case PLAIN:
0
+        pad(1);
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        padded = 0;
0
+        break;
0
+    case PARA:
0
+        pad(1);
0
+        if (!in_list_item || count != 1)
0
+            printf(".P\n");
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        padded = 0;
0
+        break;
0
+    case HRULE:
0
+        pad(1);
0
+        printf("\\l'\\n(.lu*8u/10u'");
0
+        padded = 0;
0
+        break;
0
+    case HTMLBLOCK:
0
+        /* don't print HTML block */
0
+        break;
0
+    case VERBATIM:
0
+        pad(1);
0
+        printf(".VERBON 2\n");
0
+        print_groff_string(elt.contents.str);
0
+        printf(".VERBOFF");
0
+        padded = 0;
0
+        break;
0
+    case BULLETLIST:
0
+        pad(1);
0
+        printf(".BL");
0
+        padded = 0;
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        pad(1);
0
+        printf(".LE 1");
0
+        padded = 0;
0
+        break;
0
+    case ORDEREDLIST:
0
+        pad(1);
0
+        printf(".AL");
0
+        padded = 0;
0
+        print_groff_mm_element_list(elt.contents.list);
0
+        pad(1);
0
+        printf(".LE 1");
0
+        padded = 0;
0
+        break;
0
+    case LISTITEM:
0
+        pad(1);
0
+        printf(".LI\n");
0
+        in_list_item = true;
0
+        /* \001 is used to indicate boundaries between nested lists when there
0
+         * is no blank line.  We split the string by \001 and parse
0
+         * each chunk separately. */
0
+        contents = strtok(elt.contents.str, "\001");
0
+        padded = 2;
0
+        print_groff_mm_element(markdown(contents), 1);
0
+        while ((contents = strtok(NULL, "\001"))) {
0
+            padded = 2;
0
+            print_groff_mm_element(markdown(contents), 1);
0
+        }
0
+        in_list_item = false;
0
+        break;
0
+    case BLOCKQUOTE:
0
+        pad(1);
0
+        printf(".DS I\n");
0
+        padded = 2;
0
+        print_groff_mm_element(markdown(elt.contents.str), 1);
0
+        pad(1);
0
+        printf(".DE");
0
+        padded = 0;
0
+        break;
0
+    case REFERENCE:
0
+        /* Nonprinting */
0
+        break;
0
+    default: 
0
+        fprintf(stderr, "print_groff_mm_element encountered unknown element key = %d\n", elt.key); 
0
+        exit(EXIT_FAILURE);
0
+        break;
0
+    }
0
+}
0
+
0
+
0
 /**********************************************************************
0
 
0
   Main program and auxiliary functions.
0
0
@@ -439,13 +617,10 @@
0
   printf("Usage: %s [options] [FILE]...\n"
0
          "Options:\n"
0
          "-t FORMAT or --to FORMAT    convert to FORMAT (default is html)\n"
0
+         "                            FORMAT = html|latex|groff-mm\n"
0
          "-o FILE or --output FILE    send output to FILE (default is stdout)\n"
0
          "-V or --version             print program version and exit\n"
0
-         "-h or --help                show this message and exit\n"
0
-         "\n"
0
-         "This program reads the specified FILEs (or stdin if none are given)\n"
0
-         "and converts them to FORMAT using markdown syntax conventions.\n"
0
-         "Supported FORMATs:  html latex\n",
0
+         "-h or --help                show this message and exit\n",
0
          progname);
0
 }
0
 
0
@@ -464,7 +639,14 @@
0
     /* the output filename is initially 0 (a.k.a. stdout) */
0
     char *outfilename = 0;
0
     char *format = 0;
0
-    
0
+   
0
+    /* Output formats. */
0
+    enum formats { HTML_FORMAT,
0
+                   LATEX_FORMAT,
0
+                   GROFF_MM_FORMAT
0
+                 };
0
+
0
+ 
0
     int output_format = HTML_FORMAT;
0
 
0
     char *shortopts = "Vho:t:";
0
@@ -497,6 +679,8 @@
0
                 output_format = HTML_FORMAT;
0
             else if (strcmp(format, "latex") == 0)
0
                 output_format = LATEX_FORMAT;
0
+            else if (strcmp(format, "groff-mm") == 0)
0
+                output_format = GROFF_MM_FORMAT;
0
             else {
0
                 fprintf(stderr, "%s: Unknown output format '%s'\n", progname, format);
0
                 exit(EXIT_FAILURE);
0
@@ -588,6 +772,9 @@
0
         break;
0
     case LATEX_FORMAT:
0
         print_latex_element(parsed_input);
0
+        break;
0
+    case GROFF_MM_FORMAT:
0
+        print_groff_mm_element(parsed_input, 1);
0
         break;
0
     default:
0
         fprintf(stderr, "print_element - unknown format = %d\n", output_format); 

0
@@ -48,11 +48,6 @@
0
             REFERENCE
0
           };
0
 
0
-/* Output formats. */
0
-enum formats { HTML_FORMAT,
0
-               LATEX_FORMAT
0
-             };
0
-
0
 /* Semantic value of a parsing action. */
0
 struct Element {
0
     int            key;