Mercurial > dwindows
view os2/svnrev.cmd @ 2260:cb24daa675a2
GTK3: Hopefully the last commit of the CSS font code changes.
Clean up the code, so the CSS doesn't have any extra text or spaces.
Also add some fonts with combinations of Italic and Bold for testing.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Wed, 27 Jan 2021 09:15:45 +0000 |
parents | 31a78c16c306 |
children |
line wrap: on
line source
/* REXX script to get the svn revision and display it. */ Trace o fn = 'SVN.REV' 'svnversion . | rxqueue > nul:' /* default version to 0, if svnversion doesn't exist or no .svn here */ ver = 0 If Queued() \= 0 Then Do /* Using PARSE PULL preserves case */ /* If it is a double value get the first value only */ Parse Pull sval ver ':' . If Strip( ver ) = '' Then ver = sval If ver = 'exported' Then ver = 0 If Datatype( Right( ver, 1 ) ) \= 'NUM' Then ver = Substr( ver, 1, Length( ver) - 1 ) End Call Stream fn, 'C', 'OPEN' Call Lineout fn,'VERREV='ver Call Stream fn, 'C', 'CLOSE' Exit 0