Mercurial > dwindows
annotate os2/svnrev.cmd @ 2248:4fb54b9fcf78
GTK3: Switch to using CSS syntax for specifying fonts from Pango.
Apparently the theme warnings produced on GTK3 were from using
Pango syntax for specifying fonts, instead of CSS syntax.
Can't find any information about when CSS syntax was introduced...
So hopefully it works through the entire GTK3 series.
Also fix some GCC warnings in the new dwtest code.
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Sun, 24 Jan 2021 19:27:16 +0000 |
parents | 31a78c16c306 |
children |
rev | line source |
---|---|
1184
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
1 /* REXX script to get the svn revision and display it. */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
2 Trace o |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
3 fn = 'SVN.REV' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
4 'svnversion . | rxqueue > nul:' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
5 /* default version to 0, if svnversion doesn't exist or no .svn here */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
6 ver = 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
7 If Queued() \= 0 Then |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
8 Do |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
9 /* Using PARSE PULL preserves case */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
10 /* If it is a double value get the first value only */ |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
11 Parse Pull sval ver ':' . |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
12 If Strip( ver ) = '' Then ver = sval |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
13 If ver = 'exported' Then ver = 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
14 If Datatype( Right( ver, 1 ) ) \= 'NUM' Then ver = Substr( ver, 1, Length( ver) - 1 ) |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
15 End |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
16 Call Stream fn, 'C', 'OPEN' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
17 Call Lineout fn,'VERREV='ver |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
18 Call Stream fn, 'C', 'CLOSE' |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
19 Exit 0 |
31a78c16c306
Address Sysem isn't working for me in the REXX script on OS/2.
bsmith@81767d24-ef19-dc11-ae90-00e081727c95
parents:
1173
diff
changeset
|
20 |