Mercurial > dwindows

view os2/svnrev.cmd @ 2600:0bb974e70435

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
iOS: Fix crash by retaining the UIMenu returned in the block. Hopefully the UIMenu gets released by the system after use or we may leak. Remove some the debug code to dump the responder chain. Remove probably unused identifier and replace it with nil. Container context menus now work, but the window menu isn't showing. We no longer get the error anymore however at least.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Sun, 11 Jul 2021 08:49:26 +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