This is how to set these: svn propset svn:eol-style native filename svn commit filename
On Fri, Nov 26, 2021 at 2:24 PM Rick McGuire <object.r...@gmail.com> wrote: > 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