Mercurial > dwindows
view os2/svnrev.cmd @ 1967:22c96cd42eb8
Mac: Another attempt at fixing the drawRect issue, the last fix resulted in
more needsDisplay exceptions in other applications. This fix is not
perfect, but it results in correct display and no exceptions. However in
the test app, the one render does not always update until you stop moving
the scroll bar. Will leave this implementation until a better fix is found.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Wed, 31 Jul 2019 22:22:58 +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