🚀 go-pugleaf

Followup-To: comp.text
Distribution: 
Organization: Interactive Systems Corp., Santa Monica, CA
Keywords: 

In article <279@serval.ukc.ac.uk> iau@ukc.ac.uk (I.A.Utting) writes:
>Wonderful stuff.
>
>In a similar vein, did anyone keep the troff fragment which split mm/dd/yy
>into mm, dd and yy in separate number (string?) registers? Having enjoyed it
>then thrown it away, I've now got a real need for it! I know I could do it
>with .pi, but that's got no style.
>
>Ian.

I don't know if this is the same one or not, but this is one of the 
variations I use when for documentation with RCS headers.  

.de DT\" get the date out of the RCS Header line
.if !"\\$7"Locked" \{\
.tr / 
.de NR
.br
.nr yr \\\\$1
.nr mo \\\\$2
\\..
.di X
\\!.NR \\$4
.di
.X
.rm X NR
.tr //
.\}
..
.\" setup the date
.DT $Header: rr,v 1.4 90/03/23 16:43:47 jeff Exp $
.ie \n(mo-11 \*TDecember, 19\n(yr
.el .ie \n(mo-10 \*TNovember, 19\n(yr
.el .ie \n(mo-9  \*TOctober, 19\n(yr
.el .ie \n(mo-8  \*TSeptember, 19\n(yr
.el .ie \n(mo-7  \*TAugust, 19\n(yr
.el .ie \n(mo-6  \*TJuly, 19\n(yr
.el .ie \n(mo-5  \*TJune, 19\n(yr
.el .ie \n(mo-4  \*TMay, 19\n(yr
.el .ie \n(mo-3  \*TApril, 19\n(yr
.el .ie \n(mo-2  \*TMarch, 19\n(yr
.el .ie \n(mo-1  \*TFebruary, 19\n(yr
.el \*TJanuary, 19\n(yr

So, if the file is locked, the DT macro does nothing, else it sets
the mo and yr number registers, which are later used to print the date.
If the file *is* locked, mo and yr have the values set on startup, which
are the current month and year.