pod2mdoc: support -d Mdocdate

[schwarze@mdocml.bsd.lv]

Log Message:
-----------
support -d Mdocdate

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

Revision Data
-------------
Index: pod2mdoc.c
===================================================================
RCS file: /home/cvs/mdocml/pod2mdoc/pod2mdoc.c,v
retrieving revision 1.45
retrieving revision 1.46
diff -Lpod2mdoc.c -Lpod2mdoc.c -u -p -r1.45 -r1.46
--- pod2mdoc.c
+++ pod2mdoc.c
@@ -1585,7 +1585,7 @@ dofile(const struct args *args, const ch
 {
 	char		 datebuf[64];
 	struct state	 st;
-	const char	*fbase, *fext, *section, *date;
+	const char	*fbase, *fext, *section, *date, *format;
 	char		*title, *cp;
 	size_t		 sup, end, i, cur = 0;
 
@@ -1630,8 +1630,12 @@ dofile(const struct args *args, const ch
 
 	/* Date.  Or the given "tm" if not supplied. */
 
-	if (NULL == (date = args->date)) {
-		strftime(datebuf, sizeof(datebuf), "%B %d, %Y", tm);
+	date = args->date;
+	format = (NULL == date) ? "%B %d, %Y" :
+	    strcmp(date, "Mdocdate") ? NULL : "$Mdocdate$";
+
+	if (NULL != format) {
+		strftime(datebuf, sizeof(datebuf), format, tm);
 		date = datebuf;
 	}
 
Index: pod2mdoc.1
===================================================================
RCS file: /home/cvs/mdocml/pod2mdoc/pod2mdoc.1,v
retrieving revision 1.16
retrieving revision 1.17
diff -Lpod2mdoc.1 -Lpod2mdoc.1 -u -p -r1.16 -r1.17
--- pod2mdoc.1
+++ pod2mdoc.1
@@ -58,10 +58,23 @@ preferrably in
 .Qq Month Day, Year
 format
 .Pc .
-If unspecified,
+If unspecified or if
+.Ar date
+is the literal string
+.Cm Mdocdate ,
 .Nm
 uses the file modification date or the current date if reading from
 standard input.
+If
+.Ar date
+is the literal string
+.Cm Mdocdate ,
+.Nm
+prepends
+.Qq $Mdocdate:
+to the date and appends a dollar sign, producing the format used by
+.Ox
+.Xr cvs 1 .
 .It Fl n Ar title
 Set the document title
 .Pq Sq \&Dt
--
 To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv