annotate os2/svnrev.cmd @ 2961:b9bd130f438a

C++: Step 3 of the std::string transition. Convert the class overrides to use std::string instead of char*. Implement functions that take arrays of strings to std::vector<std::string>. Begin converting dwtestoo to use std::string instead of C style strings. Temporarily rename C style Connect functions to have a C at the end. It isn't clear to me why, but clang is telling me they are ambiguous. Even though the lambda explicitly specifies std::string it can't decide between the std::string or char* versions of the functions.
author bsmith@81767d24-ef19-dc11-ae90-00e081727c95
date Thu, 23 Feb 2023 15:24:36 +0000
parents 31a78c16c306
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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