Mercurial > dwindows
annotate os2/svnrev.cmd @ 1177:c38ec904b6d3
Fixed dw_pixmap_bitblt() on printing context pixmaps in GTK3.
Implemented dw_pixmap_bitblt() for cairo surfaces in GTK2.
Which also fixes bitblt for priting on GTK2 as well.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Mon, 19 Sep 2011 21:09:58 +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 |