Mercurial > dwindows

view os2/svnrev.cmd @ 1955:91541efcea10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mac: Complete refactoring of the Mac code using a handful of macros. This allows using the old mutex system for thread safety pre-mojave. On Mojave and later instead we create two functions, an entrypoint and an actual code function which will get called on the main thread. This avoids Apples new artifical checks that the code is running on the main thread, since it actually is running on the main thread even though the actual caller might not be.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Wed, 24 Jul 2019 17:22:19 +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