Mercurial > dwindows

annotate os2/svnrev.cmd @ 1178:0a48149e93b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ok so gdk_cairo_set_source_window() is only available in GTK 2.24 and higher... So cairo window sources are not available in lower than 2.24. Also had to add support for pixmaps as sources for Cairo... which works except it currently does not support the clipping mask, so no transparency yet.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Mon, 19 Sep 2011 21:31:36 +0000
parents 38e925147a60
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