pod2mdoc: in the SYNOPSIS, render preprocessor lines with .Fd

pod2mdoc: in the SYNOPSIS, render preprocessor lines with .Fd

[schwarze]

Log Message:
-----------
in the SYNOPSIS, render preprocessor lines with .Fd

Modified Files:
--------------
    pod2mdoc:
        pod2mdoc.1
        pod2mdoc.c

Revision Data
-------------
Index: pod2mdoc.c
===================================================================
RCS file: /home/cvs/mdocml/pod2mdoc/pod2mdoc.c,v
retrieving revision 1.40
retrieving revision 1.41
diff -Lpod2mdoc.c -Lpod2mdoc.c -u -p -r1.40 -r1.41
--- pod2mdoc.c
+++ pod2mdoc.c
@@ -1093,9 +1093,19 @@ again:
 				start++;
 			if (start < end && '\n' == buf[start])
 				start++;
-			if (start < end) 
-				goto again;
-			return;
+			goto again;
+		}
+
+		/* Other preprocessor directives. */
+		if ('#' == buf[i]) {
+			fputs(".Fd ", stdout);
+			start = i;
+			while(start < end && '\n' != buf[start])
+				putchar(buf[start++]);
+			putchar('\n');
+			if (start < end && '\n' == buf[start])
+				start++;
+			goto again;
 		}
 
 		/* Parse function declaration. */
Index: pod2mdoc.1
===================================================================
RCS file: /home/cvs/mdocml/pod2mdoc/pod2mdoc.1,v
retrieving revision 1.15
retrieving revision 1.16
diff -Lpod2mdoc.1 -Lpod2mdoc.1 -u -p -r1.15 -r1.16
--- pod2mdoc.1
+++ pod2mdoc.1
@@ -107,6 +107,11 @@ lines are found at the start of a verbat
 with
 .Sq \&In .
 .It
+Other lines starting with
+.Sq #
+are rendered with
+.Sq \&Fd .
+.It
 An initial
 .Li B<>
 format code is rendered as
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv