|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 445 (0x1bd)
Types: TextFile
Names: »grind4-8b.py«
└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
└─⟦eba4602b1⟧ »./isode-5.0.tar.Z«
└─⟦d3ac74d73⟧
└─⟦this⟧ »isode-5.0/doc/manual/grind4-8b.py«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z«
└─⟦de7628f85⟧
└─⟦this⟧ »isode-6.0/doc/manual/grind4-8b.py«
...
Date ::=
[APPLICATION 3]
IMPLICIT IA5String -- YYYYMMDD --
[[s Date]]
%{
int year, month, day;
static char buffer[BUFSIZ];
if (sscanf (Date, "%4d%2d%2d", &year, &month, &day) != 3
|| year < 1900 || month < 1 || month > 12
|| day < 1 || day > 31)
adios (NULLCP, "bad date format: %s", Date);
(void) sprintf (buffer, "%02d %s %4d", day,
months[month - 1], year);
Date = buffer;
%}
END
...