From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from localhost (fantadrom.bsd.lv [local]);
	by fantadrom.bsd.lv (OpenSMTPD) with ESMTPA id 800da026;
	for <source@mdocml.bsd.lv>;
	Sat, 14 Feb 2015 10:35:10 -0500 (EST)
Date: Sat, 14 Feb 2015 10:35:10 -0500 (EST)
Message-Id: <11026834253588787371.enqueue@fantadrom.bsd.lv>
X-Mailinglist: mdocml-source
Reply-To: source@mdocml.bsd.lv
MIME-Version: 1.0
From: schwarze@mdocml.bsd.lv
To: source@mdocml.bsd.lv
Subject: pod2mdoc: support -d Mdocdate
X-Mailer: activitymail 1.26, http://search.cpan.org/dist/activitymail/
Content-Type: text/plain; charset=utf-8

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