Mercurial > dwindows

annotate os2/svnrev.cmd @ 1173:38e925147a60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert to using a file as the source for SVN revision number.
author mhessling@81767d24-ef19-dc11-ae90-00e081727c95
date Mon, 19 Sep 2011 09:52:45 +0000
parents 5ff264b41985
children 31a78c16c306
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1172
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
1 /* REXX script to get the svn revision and display it. */
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
2 Trace o
1173
38e925147a60 Revert to using a file as the source for SVN revision number.
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1172
diff changeset
3 fn = 'SVN.REV'
1172
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
4 Address System 'svnversion . | rxqueue > nul:'
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
5 /* default version to 0, if svnversion doesn't exist or no .svn here */
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
6 ver = 0
1173
38e925147a60 Revert to using a file as the source for SVN revision number.
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1172
diff changeset
7 If Queued() \= 0 Then
1172
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
8 Do
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
9 /* Using PARSE PULL preserves case */
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
10 /* If it is a double value get the first value only */
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
11 Parse Pull sval ver ':' .
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
12 If Strip( ver ) = '' Then ver = sval
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
13 If ver = 'exported' Then ver = 0
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
14 If Datatype( Right( ver, 1 ) ) \= 'NUM' Then ver = Substr( ver, 1, Length( ver) - 1 )
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
15 End
1173
38e925147a60 Revert to using a file as the source for SVN revision number.
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1172
diff changeset
16 Call Stream fn, 'C', 'OPEN'
38e925147a60 Revert to using a file as the source for SVN revision number.
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1172
diff changeset
17 Call Lineout fn,'VERREV='ver
38e925147a60 Revert to using a file as the source for SVN revision number.
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1172
diff changeset
18 Call Stream fn, 'C', 'CLOSE'
1172
5ff264b41985 Change to method of obtaining SVN revision number
mhessling@81767d24-ef19-dc11-ae90-00e081727c95
parents: 1166
diff changeset
19 Exit 0