From: <mie...@us...> - 2008-09-10 04:08:15
|
Revision: 3256 http://oorexx.svn.sourceforge.net/oorexx/?rev=3256&view=rev Author: miesfeld Date: 2008-09-10 04:08:25 +0000 (Wed, 10 Sep 2008) Log Message: ----------- sandbox ooTest - An altenative approach / layout for the native API tests Added Paths: ----------- sandbox/mark/ooTest.4.0/bin/ sandbox/mark/ooTest.4.0/bin/LINUX/ sandbox/mark/ooTest.4.0/bin/WINDOWS/ sandbox/mark/ooTest.4.0/external/ sandbox/mark/ooTest.4.0/external/API/ sandbox/mark/ooTest.4.0/external/API/Makefile sandbox/mark/ooTest.4.0/external/API/Makefile.win sandbox/mark/ooTest.4.0/external/API/orxfunction.cpp sandbox/mark/ooTest.4.0/external/API/orxfunction.def sandbox/mark/ooTest.4.0/external/API/orxmethod.cpp sandbox/mark/ooTest.4.0/external/API/orxmethod.def Removed Paths: ------------- sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile.win sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.cpp sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.def sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxmethod.cpp sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxmethod.def Copied: sandbox/mark/ooTest.4.0/external/API/Makefile (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/Makefile (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/Makefile 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,84 @@ +#/*----------------------------------------------------------------------------*/ +#/* */ +#/* Copyright (c) 2008 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: */ +#/* http://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. */ +#/* */ +#/*----------------------------------------------------------------------------*/ + + +# Setup +ORXLFLAGS = --export-dynamic -shared -nostartfiles +ORXCFLAGS = -fPIC +COMMON_SRC_DEPS = +FUNCTION_SRC_DEPS = $(COMMON_SRC_DEPS) +METHOD_SRC_DEPS = $(COMMON_SRC_DEPS) + +ifdef REXX_BUILD_HOME +REXX_INCLUDES = -I $(REXX_BUILD_HOME)/api -I $(REXX_BUILD_HOME)/api/platform/unix +REXX_LIBS = -L$(REXX_BUILD_HOME)/.libs +endif + +# The destination for libraries +BIN_DIR = ../../bin/LINUX + +# Build the libraries +all: $(BIN_DIR)/liborxfunction.so $(BIN_DIR)/liborxmethod.so + + +# Build the shared library +liborxfunction.so: orxfunction.o + gcc $(ORXLFLAGS) $(REXX_LIBS) -lrexx -lrexxapi -o liborxfunction.so orxfunction.o + +# Build the objects +orxfunction.o: orxfunction.cpp $(FUNCTION_SRC_DEPS) + gcc -c $(ORXCFLAGS) $(REXX_INCLUDES) orxfunction.cpp + + +# Build the shared library +liborxmethod.so: orxmethod.o + gcc $(ORXLFLAGS) $(REXX_LIBS) -lrexx -lrexxapi -o liborxmethod.so orxmethod.o + +# Build the objects +orxmethod.o: orxmethod.cpp $(METHOD_SRC_DEPS) + gcc -c $(ORXCFLAGS) $(REXX_INCLUDES) orxmethod.cpp + +$(BIN_DIR)/orxfunction.so: orxfunction.so + cp orxfunction.dll $(BIN_DIR) + +$(BIN_DIR)/orxmethod.so: orxmethod.so + cp orxmethod.so $(BIN_DIR) + + +clean: + rm *.so *.o + Property changes on: sandbox/mark/ooTest.4.0/external/API/Makefile ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/Makefile:3053-3057,3061 Copied: sandbox/mark/ooTest.4.0/external/API/Makefile.win (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile.win) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/Makefile.win (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/Makefile.win 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,92 @@ +#/*----------------------------------------------------------------------------*/ +#/* */ +#/* Copyright (c) 2008 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: */ +#/* http://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. */ +#/* */ +#/*----------------------------------------------------------------------------*/ + + +# Setup +!IF DEFINED(REXX_BUILD_HOME) +API_LIB = $(REXX_BUILD_HOME)\Win32Dbg +API_INCLUDE = $(REXX_BUILD_HOME)\api +!ELSE IF DEFINED(REXX_HOME) +API_LIB = $(REXX_HOME)\api +API_INCLUDE = $(API_LIB) +!ELSE +!ERROR You must define REXX_HOME or REXX_BUILD_HOME +!ENDIF + +REXX_LIBS = $(API_LIB)\rexx.lib $(API_LIB)\rexxapi.lib +REXX_INCLUDES = /I$(API_INCLUDE) /I$(API_INCLUDE)\platform\windows + +# May need to add Windows libs - but it doesn't seem like it +LIBS = $(REXX_LIBS) +WARNINGFLAGS = /W3 /Wp64 /D_CRT_SECURE_NO_DEPRECATE /D_CRT_NONSTDC_NO_DEPRECATE + +ORXLFLAGS = /NOLOGO /DEBUG -debugtype:cv /SUBSYSTEM:Windows $(LIBS) /DLL + +ORXCFLAGS = /nologo /EHsc /Zi /Od /Gr /MTd $(WARNINGFLAG) $(REXX_INCLUDES) /c + +BIN_DIR = ..\..\bin\WINDOWS + +# Build the libraries +all: $(BIN_DIR)\orxfunction.dll $(BIN_DIR)\orxmethod.dll + + +# Build the shared library +orxfunction.dll: orxfunction.obj + link $(ORXLFLAGS) /def:orxfunction.def orxfunction.obj + +# Build the objects +orxfunction.obj: orxfunction.cpp + cl $(ORXCFLAGS) orxfunction.cpp + + +# Build the shared library +orxmethod.dll: orxmethod.obj + link $(ORXLFLAGS) /def:orxmethod.def orxmethod.obj + +# Build the objects +orxmethod.obj: orxmethod.cpp + cl $(ORXCFLAGS) orxmethod.cpp + +$(BIN_DIR)\orxfunction.dll: orxfunction.dll + copy orxfunction.dll $(BIN_DIR) + +$(BIN_DIR)\orxmethod.dll: orxmethod.dll + copy orxmethod.dll $(BIN_DIR) + +clean: + rm *.dll *.obj *.ilk *.pdb *.lib *.exp + Property changes on: sandbox/mark/ooTest.4.0/external/API/Makefile.win ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/Makefile.win:3053-3057,3061 Added: svn:eol-style + native Copied: sandbox/mark/ooTest.4.0/external/API/orxfunction.cpp (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.cpp) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/orxfunction.cpp (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/orxfunction.cpp 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,329 @@ +/*----------------------------------------------------------------------------*/ +/* */ +/* Copyright (c) 2008 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: */ +/* http://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. */ +/* */ +/*----------------------------------------------------------------------------*/ + +#include <oorexxapi.h> + + +RexxRoutine0(int, // Return type + TstArgs000) // Function routine name +{ + return 0; +} + +RexxRoutine1(int, // Return type + TstArgs001, // Function routine name + int, arg1) // Argument +{ + return 1; +} + +RexxRoutine2(int, // Return type + TstArgs002, // Function routine name + int, arg1, // Argument + int, arg2) // Argument +{ + return 2; +} + +RexxRoutine3(int, // Return type + TstArgs003, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3) // Argument +{ + return 3; +} + +RexxRoutine4(int, // Return type + TstArgs004, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4) // Argument +{ + return 4; +} + +RexxRoutine5(int, // Return type + TstArgs005, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5) // Argument +{ + return 5; +} + +RexxRoutine6(int, // Return type + TstArgs006, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6) // Argument +{ + return 6; +} + +RexxRoutine7(int, // Return type + TstArgs007, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7) // Argument +{ + return 7; +} + +RexxRoutine8(int, // Return type + TstArgs008, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8) // Argument +{ + return 8; +} + +RexxRoutine9(int, // Return type + TstArgs009, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8, // Argument + int, arg9) // Argument +{ + return 9; +} + +RexxRoutine10(int, // Return type + TstArgs010, // Function routine name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8, // Argument + int, arg9, // Argument + int, arg10) // Argument +{ + return 10; +} + +RexxRoutine1(int, // Return type + TstArgs011, // Function routine name + int, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(int32_t, // Return type + TstArgs012, // Function routine name + int32_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(uint32_t, // Return type + TstArgs013, // Function routine name + uint32_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(int8_t, // Return type + TstArgs014, // Function routine name + int8_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(uint8_t, // Return type + TstArgs015, // Function routine name + uint8_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(int16_t, // Return type + TstArgs016, // Function routine name + int16_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(uint16_t, // Return type + TstArgs017, // Function routine name + uint16_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(int64_t, // Return type + TstArgs018, // Function routine name + int64_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(uint64_t, // Return type + TstArgs019, // Function routine name + uint64_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(wholenumber_t, // Return type + TstArgs020, // Function routine name + wholenumber_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(logical_t, // Return type + TstArgs021, // Function routine name + logical_t, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(float, // Return type + TstArgs022, // Function routine name + float, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(double, // Return type + TstArgs023, // Function routine name + double, arg1) // Argument +{ + return arg1; +} + +RexxRoutine1(CSTRING, // Return type + TstArgs024, // Function routine name + CSTRING, arg1) // Argument +{ + return arg1; +} + +RexxRoutine0(POINTER, // Return type + TstArgs025a) // Function routine name +{ + return (void *)TstArgs025a; +} + +RexxRoutine1(logical_t, // Return type + TstArgs025b, // Function routine name + POINTER, arg1) // Argument +{ + if (arg1 == TstArgs025a) { + return 1; + } + return 0; +} + +RexxRoutine0(POINTER, // Return type + TstArgs025c) // Function routine name +{ + return NULL; +} + + +RexxRoutineEntry orxtest_funcs[] = { + REXX_TYPED_ROUTINE(TstArgs000, TstArgs000), + REXX_TYPED_ROUTINE(TstArgs001, TstArgs001), + REXX_TYPED_ROUTINE(TstArgs002, TstArgs002), + REXX_TYPED_ROUTINE(TstArgs003, TstArgs003), + REXX_TYPED_ROUTINE(TstArgs004, TstArgs004), + REXX_TYPED_ROUTINE(TstArgs005, TstArgs005), + REXX_TYPED_ROUTINE(TstArgs006, TstArgs006), + REXX_TYPED_ROUTINE(TstArgs007, TstArgs007), + REXX_TYPED_ROUTINE(TstArgs008, TstArgs008), + REXX_TYPED_ROUTINE(TstArgs009, TstArgs009), + REXX_TYPED_ROUTINE(TstArgs010, TstArgs010), + REXX_TYPED_ROUTINE(TstArgs011, TstArgs011), + REXX_TYPED_ROUTINE(TstArgs012, TstArgs012), + REXX_TYPED_ROUTINE(TstArgs013, TstArgs013), + REXX_TYPED_ROUTINE(TstArgs014, TstArgs014), + REXX_TYPED_ROUTINE(TstArgs015, TstArgs015), + REXX_TYPED_ROUTINE(TstArgs016, TstArgs016), + REXX_TYPED_ROUTINE(TstArgs017, TstArgs017), + REXX_TYPED_ROUTINE(TstArgs018, TstArgs018), + REXX_TYPED_ROUTINE(TstArgs019, TstArgs019), + REXX_TYPED_ROUTINE(TstArgs020, TstArgs020), + REXX_TYPED_ROUTINE(TstArgs021, TstArgs021), + REXX_TYPED_ROUTINE(TstArgs022, TstArgs022), + REXX_TYPED_ROUTINE(TstArgs023, TstArgs023), + REXX_TYPED_ROUTINE(TstArgs024, TstArgs024), + REXX_TYPED_ROUTINE(TstArgs025a, TstArgs025a), + REXX_TYPED_ROUTINE(TstArgs025b, TstArgs025b), + REXX_TYPED_ROUTINE(TstArgs025c, TstArgs025c), + REXX_LAST_ROUTINE() +}; + + +RexxPackageEntry UnitTest_package_entry = { + STANDARD_PACKAGE_HEADER + REXX_INTERPRETER_4_0_0, // anything after 4.0.0 will work + "UnitTest", // name of the package + "1.0.0", // package information + NULL, // no load/unload functions + NULL, + orxtest_funcs, // the exported routines + NULL // the exported methods +}; + +// package loading stub. +OOREXX_GET_PACKAGE(UnitTest); + Property changes on: sandbox/mark/ooTest.4.0/external/API/orxfunction.cpp ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/orxfunction.cpp:3053-3057,3061 Added: svn:eol-style + native Copied: sandbox/mark/ooTest.4.0/external/API/orxfunction.def (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.def) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/orxfunction.def (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/orxfunction.def 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,46 @@ +;/*----------------------------------------------------------------------------*/ +;/* */ +;/* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. */ +;/* Copyright (c) 2005-2006 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: */ +;/* http://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. */ +;/* */ +;/*----------------------------------------------------------------------------*/ +LIBRARY orxfunction + + +EXPORTS + RexxGetPackage + + + + Property changes on: sandbox/mark/ooTest.4.0/external/API/orxfunction.def ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/orxfunction.def:3053-3057,3061 Added: svn:eol-style + native Copied: sandbox/mark/ooTest.4.0/external/API/orxmethod.cpp (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxmethod.cpp) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/orxmethod.cpp (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/orxmethod.cpp 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,329 @@ +/*----------------------------------------------------------------------------*/ +/* */ +/* Copyright (c) 2008 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: */ +/* http://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. */ +/* */ +/*----------------------------------------------------------------------------*/ + +#include <oorexxapi.h> + + +RexxMethod0(int, // Return type + TstArgs000) // Object_method name +{ + return 0; +} + +RexxMethod1(int, // Return type + TstArgs001, // Object_method name + int, arg1) // Argument +{ + return 1; +} + +RexxMethod2(int, // Return type + TstArgs002, // Object_method name + int, arg1, // Argument + int, arg2) // Argument +{ + return 2; +} + +RexxMethod3(int, // Return type + TstArgs003, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3) // Argument +{ + return 3; +} + +RexxMethod4(int, // Return type + TstArgs004, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4) // Argument +{ + return 4; +} + +RexxMethod5(int, // Return type + TstArgs005, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5) // Argument +{ + return 5; +} + +RexxMethod6(int, // Return type + TstArgs006, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6) // Argument +{ + return 6; +} + +RexxMethod7(int, // Return type + TstArgs007, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7) // Argument +{ + return 7; +} + +RexxMethod8(int, // Return type + TstArgs008, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8) // Argument +{ + return 8; +} + +RexxMethod9(int, // Return type + TstArgs009, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8, // Argument + int, arg9) // Argument +{ + return 9; +} + +RexxMethod10(int, // Return type + TstArgs010, // Object_method name + int, arg1, // Argument + int, arg2, // Argument + int, arg3, // Argument + int, arg4, // Argument + int, arg5, // Argument + int, arg6, // Argument + int, arg7, // Argument + int, arg8, // Argument + int, arg9, // Argument + int, arg10) // Argument +{ + return 10; +} + +RexxMethod1(int, // Return type + TstArgs011, // Object_method name + int, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(int32_t, // Return type + TstArgs012, // Function routine name + int32_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(uint32_t, // Return type + TstArgs013, // Function routine name + uint32_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(int8_t, // Return type + TstArgs014, // Function routine name + int8_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(uint8_t, // Return type + TstArgs015, // Function routine name + uint8_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(int16_t, // Return type + TstArgs016, // Function routine name + int16_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(uint16_t, // Return type + TstArgs017, // Function routine name + uint16_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(int64_t, // Return type + TstArgs018, // Function routine name + int64_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(uint64_t, // Return type + TstArgs019, // Function routine name + uint64_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(wholenumber_t, // Return type + TstArgs020, // Function routine name + wholenumber_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(logical_t, // Return type + TstArgs021, // Function routine name + logical_t, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(float, // Return type + TstArgs022, // Function routine name + float, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(double, // Return type + TstArgs023, // Function routine name + double, arg1) // Argument +{ + return arg1; +} + +RexxMethod1(CSTRING, // Return type + TstArgs024, // Function routine name + CSTRING, arg1) // Argument +{ + return arg1; +} + +RexxMethod0(POINTER, // Return type + TstArgs025a) // Function routine name +{ + return (void *)TstArgs025a; +} + +RexxMethod1(logical_t, // Return type + TstArgs025b, // Function routine name + POINTER, arg1) // Argument +{ + if (arg1 == TstArgs025a) { + return 1; + } + return 0; +} + +RexxMethod0(POINTER, // Return type + TstArgs025c) // Function routine name +{ + return NULL; +} + + +RexxMethodEntry orxtest_methods[] = { + REXX_METHOD(TstArgs000, TstArgs000), + REXX_METHOD(TstArgs001, TstArgs001), + REXX_METHOD(TstArgs002, TstArgs002), + REXX_METHOD(TstArgs003, TstArgs003), + REXX_METHOD(TstArgs004, TstArgs004), + REXX_METHOD(TstArgs005, TstArgs005), + REXX_METHOD(TstArgs006, TstArgs006), + REXX_METHOD(TstArgs007, TstArgs007), + REXX_METHOD(TstArgs008, TstArgs008), + REXX_METHOD(TstArgs009, TstArgs009), + REXX_METHOD(TstArgs010, TstArgs010), + REXX_METHOD(TstArgs011, TstArgs011), + REXX_METHOD(TstArgs012, TstArgs012), + REXX_METHOD(TstArgs013, TstArgs013), + REXX_METHOD(TstArgs014, TstArgs014), + REXX_METHOD(TstArgs015, TstArgs015), + REXX_METHOD(TstArgs016, TstArgs016), + REXX_METHOD(TstArgs017, TstArgs017), + REXX_METHOD(TstArgs018, TstArgs018), + REXX_METHOD(TstArgs019, TstArgs019), + REXX_METHOD(TstArgs020, TstArgs020), + REXX_METHOD(TstArgs021, TstArgs021), + REXX_METHOD(TstArgs022, TstArgs022), + REXX_METHOD(TstArgs023, TstArgs023), + REXX_METHOD(TstArgs024, TstArgs024), + REXX_METHOD(TstArgs025a, TstArgs025a), + REXX_METHOD(TstArgs025b, TstArgs025b), + REXX_METHOD(TstArgs025c, TstArgs025c), + REXX_LAST_METHOD() +}; + + +RexxPackageEntry UnitTest_package_entry = { + STANDARD_PACKAGE_HEADER + REXX_INTERPRETER_4_0_0, // anything after 4.0.0 will work + "UnitTest", // name of the package + "1.0.0", // package information + NULL, // no load/unload functions + NULL, + NULL, // the exported routines + orxtest_methods // the exported methods +}; + +// package loading stub. +OOREXX_GET_PACKAGE(UnitTest); + Property changes on: sandbox/mark/ooTest.4.0/external/API/orxmethod.cpp ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/orxmethod.cpp:3053-3057,3061 Added: svn:eol-style + native Copied: sandbox/mark/ooTest.4.0/external/API/orxmethod.def (from rev 3255, sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxmethod.def) =================================================================== --- sandbox/mark/ooTest.4.0/external/API/orxmethod.def (rev 0) +++ sandbox/mark/ooTest.4.0/external/API/orxmethod.def 2008-09-10 04:08:25 UTC (rev 3256) @@ -0,0 +1,46 @@ +;/*----------------------------------------------------------------------------*/ +;/* */ +;/* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. */ +;/* Copyright (c) 2005-2006 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: */ +;/* http://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. */ +;/* */ +;/*----------------------------------------------------------------------------*/ +LIBRARY orxmethod + + +EXPORTS + RexxGetPackage + + + + Property changes on: sandbox/mark/ooTest.4.0/external/API/orxmethod.def ___________________________________________________________________ Added: svn:mergeinfo + /test/branches/test.3.2.0/ooRexx/API/oo/orxmethod.def:3053-3057,3061 Added: svn:eol-style + native Deleted: sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile =================================================================== --- sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile 2008-09-10 02:57:17 UTC (rev 3255) +++ sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile 2008-09-10 04:08:25 UTC (rev 3256) @@ -1,72 +0,0 @@ -#/*----------------------------------------------------------------------------*/ -#/* */ -#/* Copyright (c) 2008 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: */ -#/* http://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. */ -#/* */ -#/*----------------------------------------------------------------------------*/ - - -# Setup -ORXLFLAGS = --export-dynamic -shared -nostartfiles -ORXCFLAGS = -fPIC -COMMON_SRC_DEPS = -FUNCTION_SRC_DEPS = $(COMMON_SRC_DEPS) -METHOD_SRC_DEPS = $(COMMON_SRC_DEPS) - - -# Build the libraries -all: liborxfunction.so liborxmethod.so - - -# Build the shared library -liborxfunction.so: orxfunction.o - gcc $(ORXLFLAGS) -lrexx -lrexxapi -o liborxfunction.so orxfunction.o - -# Build the objects -orxfunction.o: orxfunction.cpp $(FUNCTION_SRC_DEPS) - gcc -c $(ORXCFLAGS) orxfunction.cpp - - -# Build the shared library -liborxmethod.so: orxmethod.o - gcc $(ORXLFLAGS) -lrexx -lrexxapi -o liborxmethod.so orxmethod.o - -# Build the objects -orxmethod.o: orxmethod.cpp $(METHOD_SRC_DEPS) - gcc -c $(ORXCFLAGS) orxmethod.cpp - - - -clean: - rm *.so *.o - Deleted: sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile.win =================================================================== --- sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile.win 2008-09-10 02:57:17 UTC (rev 3255) +++ sandbox/mark/ooTest.4.0/ooRexx/API/oo/Makefile.win 2008-09-10 04:08:25 UTC (rev 3256) @@ -1,86 +0,0 @@ -#/*----------------------------------------------------------------------------*/ -#/* */ -#/* Copyright (c) 2008 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: */ -#/* http://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. */ -#/* */ -#/*----------------------------------------------------------------------------*/ - - -# Setup -!IF DEFINED(REXX_HOME) -API_LIB = $(REXX_HOME)\api -API_INCLUDE = $(API_LIB) -!ELSE IF DEFINED(REXX_BUILD_HOME) -API_LIB = $(REXX_BUILD_HOME)\Win32Dbg -API_INCLUDE = $(REXX_BUILD_HOME)\api -!ELSE -!ERROR You must define REXX_HOME or REXX_BUILD_HOME -!ENDIF - -REXX_LIBS = $(API_LIB)\rexx.lib $(API_LIB)\rexxapi.lib -REXX_INCLUDES = /I$(API_INCLUDE) - -# May need to add Windows libs - but it doesn't seem like it -LIBS = $(REXX_LIBS) -WARNINGFLAGS = /W3 /Wp64 /D_CRT_SECURE_NO_DEPRECATE /D_CRT_NONSTDC_NO_DEPRECATE - -ORXLFLAGS = /NOLOGO /DEBUG -debugtype:cv /SUBSYSTEM:Windows $(LIBS) /DLL - -ORXCFLAGS = /nologo /EHsc /Zi /Od /Gr /MTd $(WARNINGFLAG) $(REXX_INCLUDES) /c - - -# Build the libraries -all: orxfunction.dll orxmethod.dll - - -# Build the shared library -orxfunction.dll: orxfunction.obj - link $(ORXLFLAGS) /def:orxfunction.def orxfunction.obj - -# Build the objects -orxfunction.obj: orxfunction.cpp - cl $(ORXCFLAGS) orxfunction.cpp - - -# Build the shared library -orxmethod.dll: orxmethod.obj - link $(ORXLFLAGS) /def:orxmethod.def orxmethod.obj - -# Build the objects -orxmethod.obj: orxmethod.cpp - cl $(ORXCFLAGS) orxmethod.cpp - - -clean: - rm *.dll *.obj *.ilk *.pdb *.lib *.exp - Deleted: sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.cpp =================================================================== --- sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.cpp 2008-09-10 02:57:17 UTC (rev 3255) +++ sandbox/mark/ooTest.4.0/ooRexx/API/oo/orxfunction.cpp 2008-09-10 04:08:25 UTC (rev 3256) @@ -1,329 +0,0 @@ -/*----------------------------------------------------------------------------*/ -/* */ -/* Copyright (c) 2008 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: */ -/* http://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. */ -/* */ -/*----------------------------------------------------------------------------*/ - -#include <oorexxapi.h> - - -RexxRoutine0(int, // Return type - TstArgs000) // Function routine name -{ - return 0; -} - -RexxRoutine1(int, // Return type - TstArgs001, // Function routine name - int, arg1) // Argument -{ - return 1; -} - -RexxRoutine2(int, // Return type - TstArgs002, // Function routine name - int, arg1, // Argument - int, arg2) // Argument -{ - return 2; -} - -RexxRoutine3(int, // Return type - TstArgs003, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3) // Argument -{ - return 3; -} - -RexxRoutine4(int, // Return type - TstArgs004, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4) // Argument -{ - return 4; -} - -RexxRoutine5(int, // Return type - TstArgs005, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4, // Argument - int, arg5) // Argument -{ - return 5; -} - -RexxRoutine6(int, // Return type - TstArgs006, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4, // Argument - int, arg5, // Argument - int, arg6) // Argument -{ - return 6; -} - -RexxRoutine7(int, // Return type - TstArgs007, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4, // Argument - int, arg5, // Argument - int, arg6, // Argument - int, arg7) // Argument -{ - return 7; -} - -RexxRoutine8(int, // Return type - TstArgs008, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4, // Argument - int, arg5, // Argument - int, arg6, // Argument - int, arg7, // Argument - int, arg8) // Argument -{ - return 8; -} - -RexxRoutine9(int, // Return type - TstArgs009, // Function routine name - int, arg1, // Argument - int, arg2, // Argument - int, arg3, // Argument - int, arg4, // Argument - int, arg5, // Argument - ... [truncated message content] |