# HG changeset patch # User bsmith@81767d24-ef19-dc11-ae90-00e081727c95 # Date 1316563440 0 # Node ID 31a78c16c306632f89a94a119a46d46b54a750d7 # Parent 0f85796c6988928db16e0cf27d7725170310b5d1 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. diff -r 0f85796c6988 -r 31a78c16c306 os2/svnrev.cmd --- 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 +