That's not the way to do this. The proper way to set the linends is via an
SVN property that causes them to be checked out with native linends.
Rick
---------- Forwarded message ---------
From: orexx--- via Oorexx-svn <oorexx-...@lists.sourceforge.net>
Date: Fri, Nov 26, 2021 at 1:16 PM
Subject: [Oorexx-svn] SF.net SVN: oorexx-code-0:[12319]
main/trunk/samples/api/c++/external
To: <oorexx-...@lists.sourceforge.net>
Cc: <or...@users.sf.net>
Revision: 12319
http://sourceforge.net/p/oorexx/code-0/12319
Author: orexx
Date: 2021-11-26 18:16:12 +0000 (Fri, 26 Nov 2021)
Log Message:
-----------
20211126 Change line-ends to Unix style.
Modified Paths:
--------------
main/trunk/samples/api/c++/external/useExternalMethods.rex
main/trunk/samples/api/c++/external/useExternalMethodsRoutines.rex
main/trunk/samples/api/c++/external/useExternalRoutines.rex
main/trunk/samples/api/c++/external/useExternalRoutines2.rex
Modified: main/trunk/samples/api/c++/external/useExternalMethods.rex
===================================================================
--- main/trunk/samples/api/c++/external/useExternalMethods.rex 2021-11-26
12:43:46 UTC (rev 12318)
+++ main/trunk/samples/api/c++/external/useExternalMethods.rex 2021-11-26
18:16:12 UTC (rev 12319)
@@ -1,77 +1,77 @@
-/*----------------------------------------------------------------------------*/
-/*
*/
-/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
-/*
*/
-/* This program and the accompanying materials are made available under
*/
-/* the terms of the Common Public License v1.0 which accompanies this
*/
-/* distribution. A copy is also available at the following address:
*/
-/* https://www.oorexx.org/license.html
*/
-/*
*/
-/* Redistribution and use in source and binary forms, with or
*/
-/* without modification, are permitted provided that the following
*/
-/* conditions are met:
*/
-/*
*/
-/* Redistributions of source code must retain the above copyright
*/
-/* notice, this list of conditions and the following disclaimer.
*/
-/* Redistributions in binary form must reproduce the above copyright
*/
-/* notice, this list of conditions and the following disclaimer in
*/
-/* the documentation and/or other materials provided with the
distribution. */
-/*
*/
-/* Neither the name of Rexx Language Association nor the names
*/
-/* of its contributors may be used to endorse or promote products
*/
-/* derived from this software without specific prior written permission.
*/
-/*
*/
-/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
-/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
-/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
-/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
-/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
-/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
-/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
-/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
-/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
-/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
-/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
-/*
*/
-/*----------------------------------------------------------------------------*/
-
-o=.test~new -- create object
-o~hello
-say "---"
-say "o~NoArgMethodReturn123() :" pp(o~NoArgMethodReturn123)
-say
-say "invoking a method that returns nothing:"
-o~NoArgMethodVoid
-say
-say "o~OneArgMethodReturnArg(1) :" pp(o~OneArgMethodReturnArg(1))
-say "o~OneArgMethodReturnArg( ) :" pp(o~OneArgMethodReturnArg( ))
-say
-say "invoking another method that returns nothing:"
-o~OneArgMethodVoid(2)
-say
-say "o~TwoIntArgAdder(4, 5) :" pp(o~TwoIntArgAdder(4, 5))
-say "o~TwoDoubleArgAdder(6 , 8 ):" pp(o~TwoDoubleArgAdder(6 , 8 ))
-say "o~TwoDoubleArgAdder(6.7, 8.9):" pp(o~TwoDoubleArgAdder(6.7, 8.9))
-say "---"
-say "invoking a method that natively will send 'hello' to its object:"
-o~OneArgInvokeOrxMethod(-123)
-say "---"
-
-say "Invoking an external method with wrong arguments:"
-say "o~TwoIntArgAdder(9.8, 7.6) :" pp(o~TwoIntArgAdder(9.8, 7.6))
-
-
-::routine pp -- return string value enclosed in square brackets
- return "["arg(1)"]"
-
-::class test -- define class and native methods for it
-::method NoArgMethodReturn123 external "LIBRARY external_methods
NoArgMethodReturn123 "
-::method NoArgMethodVoid external "LIBRARY external_methods
NoArgMethodVoid "
-::method OneArgMethodReturnArg external "LIBRARY external_methods
OneArgMethodReturnArg"
-::method OneArgMethodVoid external "LIBRARY external_methods
OneArgMethodVoid "
-::method TwoIntArgAdder external "LIBRARY external_methods
TwoIntArgAdder "
-::method TwoDoubleArgAdder external "LIBRARY external_methods
TwoDoubleArgAdder "
-::method OneArgInvokeOrxMethod external "LIBRARY external_methods
OneArgInvokeOrxMethod"
-
-::method hello
- say "hello from" pp(self) "self~identityHash:" pp(self~identityHash)
+/*----------------------------------------------------------------------------*/
+/*
*/
+/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
+/*
*/
+/* This program and the accompanying materials are made available under
*/
+/* the terms of the Common Public License v1.0 which accompanies this
*/
+/* distribution. A copy is also available at the following address:
*/
+/* https://www.oorexx.org/license.html
*/
+/*
*/
+/* Redistribution and use in source and binary forms, with or
*/
+/* without modification, are permitted provided that the following
*/
+/* conditions are met:
*/
+/*
*/
+/* Redistributions of source code must retain the above copyright
*/
+/* notice, this list of conditions and the following disclaimer.
*/
+/* Redistributions in binary form must reproduce the above copyright
*/
+/* notice, this list of conditions and the following disclaimer in
*/
+/* the documentation and/or other materials provided with the
distribution. */
+/*
*/
+/* Neither the name of Rexx Language Association nor the names
*/
+/* of its contributors may be used to endorse or promote products
*/
+/* derived from this software without specific prior written permission.
*/
+/*
*/
+/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
+/*
*/
+/*----------------------------------------------------------------------------*/
+
+o=.test~new -- create object
+o~hello
+say "---"
+say "o~NoArgMethodReturn123() :" pp(o~NoArgMethodReturn123)
+say
+say "invoking a method that returns nothing:"
+o~NoArgMethodVoid
+say
+say "o~OneArgMethodReturnArg(1) :" pp(o~OneArgMethodReturnArg(1))
+say "o~OneArgMethodReturnArg( ) :" pp(o~OneArgMethodReturnArg( ))
+say
+say "invoking another method that returns nothing:"
+o~OneArgMethodVoid(2)
+say
+say "o~TwoIntArgAdder(4, 5) :" pp(o~TwoIntArgAdder(4, 5))
+say "o~TwoDoubleArgAdder(6 , 8 ):" pp(o~TwoDoubleArgAdder(6 , 8 ))
+say "o~TwoDoubleArgAdder(6.7, 8.9):" pp(o~TwoDoubleArgAdder(6.7, 8.9))
+say "---"
+say "invoking a method that natively will send 'hello' to its object:"
+o~OneArgInvokeOrxMethod(-123)
+say "---"
+
+say "Invoking an external method with wrong arguments:"
+say "o~TwoIntArgAdder(9.8, 7.6) :" pp(o~TwoIntArgAdder(9.8, 7.6))
+
+
+::routine pp -- return string value enclosed in square brackets
+ return "["arg(1)"]"
+
+::class test -- define class and native methods for it
+::method NoArgMethodReturn123 external "LIBRARY external_methods
NoArgMethodReturn123 "
+::method NoArgMethodVoid external "LIBRARY external_methods
NoArgMethodVoid "
+::method OneArgMethodReturnArg external "LIBRARY external_methods
OneArgMethodReturnArg"
+::method OneArgMethodVoid external "LIBRARY external_methods
OneArgMethodVoid "
+::method TwoIntArgAdder external "LIBRARY external_methods
TwoIntArgAdder "
+::method TwoDoubleArgAdder external "LIBRARY external_methods
TwoDoubleArgAdder "
+::method OneArgInvokeOrxMethod external "LIBRARY external_methods
OneArgInvokeOrxMethod"
+
+::method hello
+ say "hello from" pp(self) "self~identityHash:" pp(self~identityHash)
Modified: main/trunk/samples/api/c++/external/useExternalMethodsRoutines.rex
===================================================================
--- main/trunk/samples/api/c++/external/useExternalMethodsRoutines.rex
2021-11-26 12:43:46 UTC (rev 12318)
+++ main/trunk/samples/api/c++/external/useExternalMethodsRoutines.rex
2021-11-26 18:16:12 UTC (rev 12319)
@@ -1,47 +1,47 @@
-/*----------------------------------------------------------------------------*/
-/*
*/
-/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
-/*
*/
-/* This program and the accompanying materials are made available under
*/
-/* the terms of the Common Public License v1.0 which accompanies this
*/
-/* distribution. A copy is also available at the following address:
*/
-/* https://www.oorexx.org/license.html
*/
-/*
*/
-/* Redistribution and use in source and binary forms, with or
*/
-/* without modification, are permitted provided that the following
*/
-/* conditions are met:
*/
-/*
*/
-/* Redistributions of source code must retain the above copyright
*/
-/* notice, this list of conditions and the following disclaimer.
*/
-/* Redistributions in binary form must reproduce the above copyright
*/
-/* notice, this list of conditions and the following disclaimer in
*/
-/* the documentation and/or other materials provided with the
distribution. */
-/*
*/
-/* Neither the name of Rexx Language Association nor the names
*/
-/* of its contributors may be used to endorse or promote products
*/
-/* derived from this software without specific prior written permission.
*/
-/*
*/
-/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
-/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
-/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
-/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
-/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
-/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
-/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
-/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
-/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
-/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
-/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
-/*
*/
-/*----------------------------------------------------------------------------*/
-
-say "NoArgRoutineReturn123():" NoArgRoutineReturn123()
-
-o=.test~new -- create object
-say "o~NoArgMethodReturn123 :" o~NoArgMethodReturn123
-
-::routine NoArgRoutineReturn123 external "library
external_methods_routines NoArgRoutineReturn123"
-
-::class test -- define class and native methods for it
-::method NoArgMethodReturn123 external "LIBRARY
external_methods_routines NoArgMethodReturn123 "
-
+/*----------------------------------------------------------------------------*/
+/*
*/
+/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
+/*
*/
+/* This program and the accompanying materials are made available under
*/
+/* the terms of the Common Public License v1.0 which accompanies this
*/
+/* distribution. A copy is also available at the following address:
*/
+/* https://www.oorexx.org/license.html
*/
+/*
*/
+/* Redistribution and use in source and binary forms, with or
*/
+/* without modification, are permitted provided that the following
*/
+/* conditions are met:
*/
+/*
*/
+/* Redistributions of source code must retain the above copyright
*/
+/* notice, this list of conditions and the following disclaimer.
*/
+/* Redistributions in binary form must reproduce the above copyright
*/
+/* notice, this list of conditions and the following disclaimer in
*/
+/* the documentation and/or other materials provided with the
distribution. */
+/*
*/
+/* Neither the name of Rexx Language Association nor the names
*/
+/* of its contributors may be used to endorse or promote products
*/
+/* derived from this software without specific prior written permission.
*/
+/*
*/
+/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
+/*
*/
+/*----------------------------------------------------------------------------*/
+
+say "NoArgRoutineReturn123():" NoArgRoutineReturn123()
+
+o=.test~new -- create object
+say "o~NoArgMethodReturn123 :" o~NoArgMethodReturn123
+
+::routine NoArgRoutineReturn123 external "library
external_methods_routines NoArgRoutineReturn123"
+
+::class test -- define class and native methods for it
+::method NoArgMethodReturn123 external "LIBRARY
external_methods_routines NoArgMethodReturn123 "
+
Modified: main/trunk/samples/api/c++/external/useExternalRoutines.rex
===================================================================
--- main/trunk/samples/api/c++/external/useExternalRoutines.rex 2021-11-26
12:43:46 UTC (rev 12318)
+++ main/trunk/samples/api/c++/external/useExternalRoutines.rex 2021-11-26
18:16:12 UTC (rev 12319)
@@ -1,64 +1,64 @@
-/*----------------------------------------------------------------------------*/
-/*
*/
-/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
-/*
*/
-/* This program and the accompanying materials are made available under
*/
-/* the terms of the Common Public License v1.0 which accompanies this
*/
-/* distribution. A copy is also available at the following address:
*/
-/* https://www.oorexx.org/license.html
*/
-/*
*/
-/* Redistribution and use in source and binary forms, with or
*/
-/* without modification, are permitted provided that the following
*/
-/* conditions are met:
*/
-/*
*/
-/* Redistributions of source code must retain the above copyright
*/
-/* notice, this list of conditions and the following disclaimer.
*/
-/* Redistributions in binary form must reproduce the above copyright
*/
-/* notice, this list of conditions and the following disclaimer in
*/
-/* the documentation and/or other materials provided with the
distribution. */
-/*
*/
-/* Neither the name of Rexx Language Association nor the names
*/
-/* of its contributors may be used to endorse or promote products
*/
-/* derived from this software without specific prior written permission.
*/
-/*
*/
-/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
-/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
-/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
-/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
-/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
-/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
-/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
-/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
-/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
-/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
-/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
-/*
*/
-/*----------------------------------------------------------------------------*/
-
-say "NoArgRoutineReturn123() :" pp(NoArgRoutineReturn123())
-say
-say "calling a routine that returns nothing:"
-call NoArgRoutineVoid
-say
-say "OneArgRoutineReturnArg(1) :" pp(OneArgRoutineReturnArg(1))
-say "OneArgRoutineReturnArg( ) :" pp(OneArgRoutineReturnArg())
-say
-say "calling another routine that returns nothing:"
-call OneArgRoutineVoid 2
-say
-say "TwoIntArgAdder(4, 5) :" pp(TwoIntArgAdder(4, 5))
-say "TwoDoubleArgAdder(6 , 8 ):" pp(TwoDoubleArgAdder(6 , 8 ))
-say "TwoDoubleArgAdder(6.7, 8.9):" pp(TwoDoubleArgAdder(6.7, 8.9))
-say "---"
-
-say "Invoking an external routine with wrong arguments:"
-say "TwoIntArgAdder(9.8, 7.6) :" pp(TwoIntArgAdder(9.8, 7.6))
-
-::routine pp -- return string value enclosed in square brackets
- return "["arg(1)"]"
-
-::routine NoArgRoutineReturn123 external "library external_routines
NoArgRoutineReturn123"
-::routine NoArgRoutineVoid external "library external_routines
NoArgRoutineVoid"
-::routine OneArgRoutineReturnArg external "library external_routines
OneArgRoutineReturnArg"
-::routine OneArgRoutineVoid external "library external_routines
OneArgRoutineVoid"
-::routine TwoDoubleArgAdder external "library external_routines
TwoDoubleArgAdder"
+/*----------------------------------------------------------------------------*/
+/*
*/
+/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
+/*
*/
+/* This program and the accompanying materials are made available under
*/
+/* the terms of the Common Public License v1.0 which accompanies this
*/
+/* distribution. A copy is also available at the following address:
*/
+/* https://www.oorexx.org/license.html
*/
+/*
*/
+/* Redistribution and use in source and binary forms, with or
*/
+/* without modification, are permitted provided that the following
*/
+/* conditions are met:
*/
+/*
*/
+/* Redistributions of source code must retain the above copyright
*/
+/* notice, this list of conditions and the following disclaimer.
*/
+/* Redistributions in binary form must reproduce the above copyright
*/
+/* notice, this list of conditions and the following disclaimer in
*/
+/* the documentation and/or other materials provided with the
distribution. */
+/*
*/
+/* Neither the name of Rexx Language Association nor the names
*/
+/* of its contributors may be used to endorse or promote products
*/
+/* derived from this software without specific prior written permission.
*/
+/*
*/
+/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
+/*
*/
+/*----------------------------------------------------------------------------*/
+
+say "NoArgRoutineReturn123() :" pp(NoArgRoutineReturn123())
+say
+say "calling a routine that returns nothing:"
+call NoArgRoutineVoid
+say
+say "OneArgRoutineReturnArg(1) :" pp(OneArgRoutineReturnArg(1))
+say "OneArgRoutineReturnArg( ) :" pp(OneArgRoutineReturnArg())
+say
+say "calling another routine that returns nothing:"
+call OneArgRoutineVoid 2
+say
+say "TwoIntArgAdder(4, 5) :" pp(TwoIntArgAdder(4, 5))
+say "TwoDoubleArgAdder(6 , 8 ):" pp(TwoDoubleArgAdder(6 , 8 ))
+say "TwoDoubleArgAdder(6.7, 8.9):" pp(TwoDoubleArgAdder(6.7, 8.9))
+say "---"
+
+say "Invoking an external routine with wrong arguments:"
+say "TwoIntArgAdder(9.8, 7.6) :" pp(TwoIntArgAdder(9.8, 7.6))
+
+::routine pp -- return string value enclosed in square brackets
+ return "["arg(1)"]"
+
+::routine NoArgRoutineReturn123 external "library external_routines
NoArgRoutineReturn123"
+::routine NoArgRoutineVoid external "library external_routines
NoArgRoutineVoid"
+::routine OneArgRoutineReturnArg external "library external_routines
OneArgRoutineReturnArg"
+::routine OneArgRoutineVoid external "library external_routines
OneArgRoutineVoid"
+::routine TwoDoubleArgAdder external "library external_routines
TwoDoubleArgAdder"
Modified: main/trunk/samples/api/c++/external/useExternalRoutines2.rex
===================================================================
--- main/trunk/samples/api/c++/external/useExternalRoutines2.rex
2021-11-26 12:43:46 UTC (rev 12318)
+++ main/trunk/samples/api/c++/external/useExternalRoutines2.rex
2021-11-26 18:16:12 UTC (rev 12319)
@@ -1,60 +1,60 @@
-/*----------------------------------------------------------------------------*/
-/*
*/
-/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
-/*
*/
-/* This program and the accompanying materials are made available under
*/
-/* the terms of the Common Public License v1.0 which accompanies this
*/
-/* distribution. A copy is also available at the following address:
*/
-/* https://www.oorexx.org/license.html
*/
-/*
*/
-/* Redistribution and use in source and binary forms, with or
*/
-/* without modification, are permitted provided that the following
*/
-/* conditions are met:
*/
-/*
*/
-/* Redistributions of source code must retain the above copyright
*/
-/* notice, this list of conditions and the following disclaimer.
*/
-/* Redistributions in binary form must reproduce the above copyright
*/
-/* notice, this list of conditions and the following disclaimer in
*/
-/* the documentation and/or other materials provided with the
distribution. */
-/*
*/
-/* Neither the name of Rexx Language Association nor the names
*/
-/* of its contributors may be used to endorse or promote products
*/
-/* derived from this software without specific prior written permission.
*/
-/*
*/
-/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
-/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
-/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
-/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
-/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
-/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
-/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
-/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
-/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
-/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
-/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
-/*
*/
-/*----------------------------------------------------------------------------*/
-
-say "NoArgRoutineReturn123() :" pp(NoArgRoutineReturn123())
-say
-say "calling a routine that returns nothing:"
-call NoArgRoutineVoid
-say
-say "OneArgRoutineReturnArg(1) :" pp(OneArgRoutineReturnArg(1))
-say "OneArgRoutineReturnArg( ) :" pp(OneArgRoutineReturnArg())
-say
-say "calling another routine that returns nothing:"
-call OneArgRoutineVoid 2
-say
-say "TwoIntArgAdder(4, 5) :" pp(TwoIntArgAdder(4, 5))
-say "TwoDoubleArgAdder(6 , 8 ):" pp(TwoDoubleArgAdder(6 , 8 ))
-say "TwoDoubleArgAdder(6.7, 8.9):" pp(TwoDoubleArgAdder(6.7, 8.9))
-say "---"
-
-say "Invoking an external routine with wrong arguments:"
-say "TwoIntArgAdder(9.8, 7.6) :" pp(TwoIntArgAdder(9.8, 7.6))
-
-::requires "external_routines" library
-
-::routine pp -- return string value enclosed in square brackets
- return "["arg(1)"]"
+/*----------------------------------------------------------------------------*/
+/*
*/
+/* Copyright (c) 2021 Rexx Language Association. All rights reserved.
*/
+/*
*/
+/* This program and the accompanying materials are made available under
*/
+/* the terms of the Common Public License v1.0 which accompanies this
*/
+/* distribution. A copy is also available at the following address:
*/
+/* https://www.oorexx.org/license.html
*/
+/*
*/
+/* Redistribution and use in source and binary forms, with or
*/
+/* without modification, are permitted provided that the following
*/
+/* conditions are met:
*/
+/*
*/
+/* Redistributions of source code must retain the above copyright
*/
+/* notice, this list of conditions and the following disclaimer.
*/
+/* Redistributions in binary form must reproduce the above copyright
*/
+/* notice, this list of conditions and the following disclaimer in
*/
+/* the documentation and/or other materials provided with the
distribution. */
+/*
*/
+/* Neither the name of Rexx Language Association nor the names
*/
+/* of its contributors may be used to endorse or promote products
*/
+/* derived from this software without specific prior written permission.
*/
+/*
*/
+/* THIS SOFTWARE IS PROVIDED BY THE COPYright HOLDERS AND CONTRIBUTORS
*/
+/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
*/
+/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
*/
+/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
COPYright */
+/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
*/
+/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED */
+/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
*/
+/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
*/
+/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING */
+/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
*/
+/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
+/*
*/
+/*----------------------------------------------------------------------------*/
+
+say "NoArgRoutineReturn123() :" pp(NoArgRoutineReturn123())
+say
+say "calling a routine that returns nothing:"
+call NoArgRoutineVoid
+say
+say "OneArgRoutineReturnArg(1) :" pp(OneArgRoutineReturnArg(1))
+say "OneArgRoutineReturnArg( ) :" pp(OneArgRoutineReturnArg())
+say
+say "calling another routine that returns nothing:"
+call OneArgRoutineVoid 2
+say
+say "TwoIntArgAdder(4, 5) :" pp(TwoIntArgAdder(4, 5))
+say "TwoDoubleArgAdder(6 , 8 ):" pp(TwoDoubleArgAdder(6 , 8 ))
+say "TwoDoubleArgAdder(6.7, 8.9):" pp(TwoDoubleArgAdder(6.7, 8.9))
+say "---"
+
+say "Invoking an external routine with wrong arguments:"
+say "TwoIntArgAdder(9.8, 7.6) :" pp(TwoIntArgAdder(9.8, 7.6))
+
+::requires "external_routines" library
+
+::routine pp -- return string value enclosed in square brackets
+ return "["arg(1)"]"
_______________________________________________
Oorexx-svn mailing list
oorexx-...@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-svn
_______________________________________________
Oorexx-devel mailing list
Oorexx-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-devel
