Mercurial > dwindows
view os2/svnrev.cmd @ 2255:66d0f1df4b34
Win: Cleanup after testing the last commit... Remove _dw_default_charformat.
After testing on many versions of Windows, CHARFORMAT2 szFaceName is empty and
yHeight is 180 (9 point) so don't bother saving it during MLE creation...
Also the MLE Word Wrap feature test was broken, it always reported unsupported.
Now it will report enabled when Rich Edit MLE is enabled, otherwise unsupported.
Word Wrap feature is not configurable, but Rich Edit MLE is, so use that if needed.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Mon, 25 Jan 2021 21:14:13 +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