Mercurial > dwindows
annotate os2/svnrev.cmd @ 1178:0a48149e93b9
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 |
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 |