Mercurial > dwindows
changeset 1184:31a78c16c306
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 +