Mercurial > dwindows

changeset 1184:31a78c16c306

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Address Sysem isn't working for me in the REXX script on OS/2. Also the line endings were not being interpretted by CMD.EXE.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Wed, 21 Sep 2011 00:04:00 +0000
parents 0f85796c6988
children 415c25f87d57
files os2/svnrev.cmd
diffstat 1 files changed, 20 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/os2/svnrev.cmd	Wed Sep 21 00:01:06 2011 +0000
+++ b/os2/svnrev.cmd	Wed Sep 21 00:04:00 2011 +0000
@@ -1,19 +1,20 @@
-/* REXX script to get the svn revision and display it. */
-Trace o
-fn = 'SVN.REV'
-Address System '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
+/* 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
+