Mercurial > dwindows
annotate os2/svnrev.cmd @ 1620:32b5fba0b00a
Must convert from UTF8 for the raw HTML on Windows regardless of the
ANSI/UNICODE mode. This fixes incorrect encoding on raw HTML widgets.
Also need to use the ANSI version of GetModuleFileName when converting
the command line parameters, or maybe convert to UTF8?
author | bsmith@81767d24-ef19-dc11-ae90-00e081727c95 |
---|---|
date | Tue, 27 Mar 2012 15:09:52 +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 |