diff options
Diffstat (limited to 'Tests/RunCMake/UseSWIG')
-rw-r--r-- | Tests/RunCMake/UseSWIG/BasicConfiguration.cmake | 67 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/BasicPerl.cmake | 18 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/BasicPython.cmake | 9 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/CMakeLists.txt | 3 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/LegacyConfiguration.cmake | 60 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/LegacyPerl.cmake | 18 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/LegacyPython.cmake | 9 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/MultipleModules.cmake | 30 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/MultiplePython.cmake | 26 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/RunCMakeTest.cmake | 27 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/example.cxx | 33 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/example.h | 37 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/example.i | 9 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.php4 | 58 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.pike | 53 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.pl | 56 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.py | 52 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.rb | 49 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme.tcl | 49 | ||||
-rw-r--r-- | Tests/RunCMake/UseSWIG/runme2.tcl | 69 |
20 files changed, 0 insertions, 732 deletions
diff --git a/Tests/RunCMake/UseSWIG/BasicConfiguration.cmake b/Tests/RunCMake/UseSWIG/BasicConfiguration.cmake deleted file mode 100644 index 2f46d63..0000000 --- a/Tests/RunCMake/UseSWIG/BasicConfiguration.cmake +++ /dev/null @@ -1,67 +0,0 @@ - -find_package(SWIG REQUIRED) -include(${SWIG_USE_FILE}) - -unset(SWIG_LANG_TYPE) -unset(SWIG_LANG_INCLUDE_DIRECTORIES) -unset(SWIG_LANG_DEFINITIONS) -unset(SWIG_LANG_OPTIONS) -unset(SWIG_LANG_LIBRARIES) - -if(${language} MATCHES python) - find_package(Python REQUIRED COMPONENTS Interpreter Development) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${Python_INCLUDE_DIRS}) - set(SWIG_LANG_LIBRARIES ${Python_LIBRARIES}) -endif() -if(${language} MATCHES perl) - find_package(Perl REQUIRED) - find_package(PerlLibs REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${PERL_INCLUDE_PATH}) - separate_arguments(c_flags UNIX_COMMAND "${PERL_EXTRA_C_FLAGS}") - set(SWIG_LANG_OPTIONS ${c_flags}) - set(SWIG_LANG_LIBRARIES ${PERL_LIBRARY}) -endif() -if(${language} MATCHES tcl) - find_package(TCL REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${TCL_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${TCL_LIBRARY}) -endif() -if(${language} MATCHES ruby) - find_package(Ruby REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${RUBY_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${RUBY_LIBRARY}) -endif() -if(${language} MATCHES php4) - find_package(PHP4 REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${PHP4_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${PHP4_LIBRARY}) -endif() -if(${language} MATCHES pike) - find_package(Pike REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${PIKE_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${PIKE_LIBRARY}) -endif() -if(${language} MATCHES lua) - find_package(Lua REQUIRED) - set(SWIG_LANG_INCLUDE_DIRECTORIES ${LUA_INCLUDE_DIR}) - set(SWIG_LANG_TYPE TYPE SHARED) - set(SWIG_LANG_LIBRARIES ${LUA_LIBRARIES}) -endif() - -unset(CMAKE_SWIG_FLAGS) - -set (CMAKE_INCLUDE_CURRENT_DIR ON) - -set_property(SOURCE example.i PROPERTY CPLUSPLUS ON) -set_property(SOURCE example.i PROPERTY COMPILE_OPTIONS -includeall) - -set_property(SOURCE example.i PROPERTY GENERATED_INCLUDE_DIRECTORIES ${SWIG_LANG_INCLUDE_DIRECTORIES}) -set_property(SOURCE example.i PROPERTY GENERATED_COMPILE_DEFINITIONS ${SWIG_LANG_DEFINITIONS}) -set_property(SOURCE example.i PROPERTY GENERATED_COMPILE_OPTIONS ${SWIG_LANG_OPTIONS}) - - -SWIG_ADD_LIBRARY(example - LANGUAGE "${language}" - ${SWIG_LANG_TYPE} - SOURCES example.i example.cxx) -TARGET_LINK_LIBRARIES(example PRIVATE ${SWIG_LANG_LIBRARIES}) diff --git a/Tests/RunCMake/UseSWIG/BasicPerl.cmake b/Tests/RunCMake/UseSWIG/BasicPerl.cmake deleted file mode 100644 index 67ad6bc..0000000 --- a/Tests/RunCMake/UseSWIG/BasicPerl.cmake +++ /dev/null @@ -1,18 +0,0 @@ - -set(language "perl") - -include (BasicConfiguration.cmake) - -if (WIN32) - file (TO_CMAKE_PATH "$ENV{PATH}" perl_path) - string (REPLACE ";" "$<SEMICOLON>" perl_path "${perl_path}") - set (perl_env "PATH=$<TARGET_FILE_DIR:example>$<SEMICOLON>${perl_path}") -else() - set (perl_env "LD_LIBRARY_PATH=$<TARGET_FILE_DIR:example>") -endif() - -add_custom_target (RunTest - COMMAND "${CMAKE_COMMAND}" -E env "${perl_env}" - "${PERL_EXECUTABLE}" "-I$<TARGET_FILE_DIR:example>" - "${CMAKE_CURRENT_SOURCE_DIR}/runme.pl" - DEPENDS example) diff --git a/Tests/RunCMake/UseSWIG/BasicPython.cmake b/Tests/RunCMake/UseSWIG/BasicPython.cmake deleted file mode 100644 index 873dbe9..0000000 --- a/Tests/RunCMake/UseSWIG/BasicPython.cmake +++ /dev/null @@ -1,9 +0,0 @@ - -set(language "python") - -include (BasicConfiguration.cmake) - -add_custom_target (RunTest - COMMAND "${CMAKE_COMMAND}" -E env "PYTHONPATH=$<TARGET_FILE_DIR:example>" - "${Python_EXECUTABLE}" "${CMAKE_CURRENT_SOURCE_DIR}/runme.py" - DEPENDS example) diff --git a/Tests/RunCMake/UseSWIG/CMakeLists.txt b/Tests/RunCMake/UseSWIG/CMakeLists.txt deleted file mode 100644 index 2d75985..0000000 --- a/Tests/RunCMake/UseSWIG/CMakeLists.txt +++ /dev/null @@ -1,3 +0,0 @@ -cmake_minimum_required(VERSION 3.1) -project(${RunCMake_TEST} CXX) -include(${RunCMake_TEST}.cmake) diff --git a/Tests/RunCMake/UseSWIG/LegacyConfiguration.cmake b/Tests/RunCMake/UseSWIG/LegacyConfiguration.cmake deleted file mode 100644 index 3ce0790..0000000 --- a/Tests/RunCMake/UseSWIG/LegacyConfiguration.cmake +++ /dev/null @@ -1,60 +0,0 @@ - -# Prevent deprecated warnings from new UseSWIG module -set (CMAKE_WARN_DEPRECATED FALSE) - -find_package(SWIG REQUIRED) -include(${SWIG_USE_FILE}) - -unset(SWIG_LANG_TYPE) -if(${language} MATCHES python) - find_package(PythonInterp REQUIRED) - find_package(PythonLibs REQUIRED) - include_directories(${PYTHON_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${PYTHON_LIBRARIES}) -endif() -if(${language} MATCHES perl) - find_package(Perl REQUIRED) - find_package(PerlLibs REQUIRED) - include_directories(${PERL_INCLUDE_PATH}) - separate_arguments(c_flags UNIX_COMMAND "${PERL_EXTRA_C_FLAGS}") - add_compile_options(${c_flags}) - set(SWIG_LANG_LIBRARIES ${PERL_LIBRARY}) -endif() -if(${language} MATCHES tcl) - find_package(TCL REQUIRED) - include_directories(${TCL_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${TCL_LIBRARY}) -endif() -if(${language} MATCHES ruby) - find_package(Ruby REQUIRED) - include_directories(${RUBY_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${RUBY_LIBRARY}) -endif() -if(${language} MATCHES php4) - find_package(PHP4 REQUIRED) - include_directories(${PHP4_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${PHP4_LIBRARY}) -endif() -if(${language} MATCHES pike) - find_package(Pike REQUIRED) - include_directories(${PIKE_INCLUDE_PATH}) - set(SWIG_LANG_LIBRARIES ${PIKE_LIBRARY}) -endif() -if(${language} MATCHES lua) - find_package(Lua REQUIRED) - include_directories(${LUA_INCLUDE_DIR}) - set(SWIG_LANG_TYPE TYPE SHARED) - set(SWIG_LANG_LIBRARIES ${LUA_LIBRARIES}) -endif() - -unset(CMAKE_SWIG_FLAGS) - -include_directories(${CMAKE_CURRENT_LIST_DIR}) - -set_source_files_properties(example.i PROPERTIES CPLUSPLUS ON) -set_source_files_properties(example.i PROPERTIES SWIG_FLAGS "-includeall") -SWIG_ADD_LIBRARY(example - LANGUAGE "${language}" - ${SWIG_LANG_TYPE} - SOURCES example.i example.cxx) -SWIG_LINK_LIBRARIES(example ${SWIG_LANG_LIBRARIES}) diff --git a/Tests/RunCMake/UseSWIG/LegacyPerl.cmake b/Tests/RunCMake/UseSWIG/LegacyPerl.cmake deleted file mode 100644 index 3428c46..0000000 --- a/Tests/RunCMake/UseSWIG/LegacyPerl.cmake +++ /dev/null @@ -1,18 +0,0 @@ - -set(language "perl") - -include (LegacyConfiguration.cmake) - -if (WIN32) - file (TO_CMAKE_PATH "$ENV{PATH}" perl_path) - string (REPLACE ";" "$<SEMICOLON>" perl_path "${perl_path}") - set (perl_env "PATH=$<TARGET_FILE_DIR:${SWIG_MODULE_example_REAL_NAME}>$<SEMICOLON>${perl_path}") -else() - set (perl_env "LD_LIBRARY_PATH=$<TARGET_FILE_DIR:${SWIG_MODULE_example_REAL_NAME}>") -endif() - -add_custom_target (RunTest - COMMAND "${CMAKE_COMMAND}" -E env "${perl_env}" - "${PERL_EXECUTABLE}" "-I$<TARGET_FILE_DIR:${SWIG_MODULE_example_REAL_NAME}>" - "${CMAKE_CURRENT_SOURCE_DIR}/runme.pl" - DEPENDS ${SWIG_MODULE_example_REAL_NAME}) diff --git a/Tests/RunCMake/UseSWIG/LegacyPython.cmake b/Tests/RunCMake/UseSWIG/LegacyPython.cmake deleted file mode 100644 index 8b47aa2..0000000 --- a/Tests/RunCMake/UseSWIG/LegacyPython.cmake +++ /dev/null @@ -1,9 +0,0 @@ - -set(language "python") - -include (LegacyConfiguration.cmake) - -add_custom_target (RunTest - COMMAND "${CMAKE_COMMAND}" -E env "PYTHONPATH=$<TARGET_FILE_DIR:${SWIG_MODULE_example_REAL_NAME}>" - "${PYTHON_EXECUTABLE}" "${CMAKE_CURRENT_SOURCE_DIR}/runme.py" - DEPENDS ${SWIG_MODULE_example_REAL_NAME}) diff --git a/Tests/RunCMake/UseSWIG/MultipleModules.cmake b/Tests/RunCMake/UseSWIG/MultipleModules.cmake deleted file mode 100644 index e3d579f..0000000 --- a/Tests/RunCMake/UseSWIG/MultipleModules.cmake +++ /dev/null @@ -1,30 +0,0 @@ - -find_package(SWIG REQUIRED) -include(${SWIG_USE_FILE}) - -find_package(PythonLibs REQUIRED) -find_package(PerlLibs REQUIRED) - -unset(CMAKE_SWIG_FLAGS) - -set (CMAKE_INCLUDE_CURRENT_DIR ON) - -set_property(SOURCE example.i PROPERTY CPLUSPLUS ON) -set_property(SOURCE example.i PROPERTY COMPILE_OPTIONS -includeall) - -set_property(SOURCE example.i PROPERTY GENERATED_INCLUDE_DIRECTORIES ${PYTHON_INCLUDE_PATH}) - -swig_add_library(example1 - LANGUAGE python - SOURCES example.i example.cxx) -target_link_libraries(example1 PRIVATE ${PYTHON_LIBRARIES}) - -# re-use sample interface file for another plugin -set_property(SOURCE example.i PROPERTY GENERATED_INCLUDE_DIRECTORIES ${PERL_INCLUDE_PATH}) -separate_arguments(c_flags UNIX_COMMAND "${PERL_EXTRA_C_FLAGS}") -set_property(SOURCE example.i PROPERTY GENERATED_COMPILE_OPTIONS ${c_flags}) - -swig_add_library(example2 - LANGUAGE perl - SOURCES example.i example.cxx) -target_link_libraries(example2 PRIVATE ${PERL_LIBRARY}) diff --git a/Tests/RunCMake/UseSWIG/MultiplePython.cmake b/Tests/RunCMake/UseSWIG/MultiplePython.cmake deleted file mode 100644 index 3804bdd..0000000 --- a/Tests/RunCMake/UseSWIG/MultiplePython.cmake +++ /dev/null @@ -1,26 +0,0 @@ - -find_package(SWIG REQUIRED) -include(${SWIG_USE_FILE}) - -find_package(Python2 REQUIRED COMPONENTS Development) -find_package(Python3 REQUIRED COMPONENTS Development) - -unset(CMAKE_SWIG_FLAGS) - -set (CMAKE_INCLUDE_CURRENT_DIR ON) - -set_property(SOURCE example.i PROPERTY CPLUSPLUS ON) -set_property(SOURCE example.i PROPERTY COMPILE_OPTIONS -includeall) - -swig_add_library(example1 - LANGUAGE python - OUTPUT_DIR "${CMAKE_CURRENT_BINARY_DIR}/Python2" - SOURCES example.i example.cxx) -target_link_libraries(example1 PRIVATE Python2::Python) - -# re-use sample interface file for another plugin -swig_add_library(example2 - LANGUAGE python - OUTPUT_DIR "${CMAKE_CURRENT_BINARY_DIR}/Python3" - SOURCES example.i example.cxx) -target_link_libraries(example2 PRIVATE Python3::Python) diff --git a/Tests/RunCMake/UseSWIG/RunCMakeTest.cmake b/Tests/RunCMake/UseSWIG/RunCMakeTest.cmake deleted file mode 100644 index cded22f..0000000 --- a/Tests/RunCMake/UseSWIG/RunCMakeTest.cmake +++ /dev/null @@ -1,27 +0,0 @@ -include(RunCMake) - -function(run_SWIG test) - cmake_parse_arguments(_SWIG_TEST "" "TARGET" "" ${ARGN}) - if (_SWIG_TEST_TARGET) - list (INSERT _SWIG_TEST_TARGET 0 --target) - endif() - - set(RunCMake_TEST_BINARY_DIR ${RunCMake_BINARY_DIR}/${test}-build) - set(RunCMake_TEST_NO_CLEAN 1) - file(REMOVE_RECURSE "${RunCMake_TEST_BINARY_DIR}") - file(MAKE_DIRECTORY "${RunCMake_TEST_BINARY_DIR}") - if (NOT RunCMake_GENERATOR_IS_MULTI_CONFIG) - set (RunCMake_TEST_OPTIONS -DCMAKE_BUILD_TYPE=Release) - endif() - run_cmake(${test}) - run_cmake_command(${test}-test ${CMAKE_COMMAND} --build ${RunCMake_TEST_BINARY_DIR} --config Release ${_SWIG_TEST_TARGET}) -endfunction() - -run_SWIG(LegacyPython TARGET RunTest) -run_SWIG(LegacyPerl TARGET RunTest) - -run_SWIG(BasicPython TARGET RunTest) -run_SWIG(BasicPerl TARGET RunTest) - -run_SWIG(MultipleModules) -run_SWIG(MultiplePython) diff --git a/Tests/RunCMake/UseSWIG/example.cxx b/Tests/RunCMake/UseSWIG/example.cxx deleted file mode 100644 index 961d6dd..0000000 --- a/Tests/RunCMake/UseSWIG/example.cxx +++ /dev/null @@ -1,33 +0,0 @@ -/* File : example.c */ - -#include "example.h" -#define M_PI 3.14159265358979323846 - -/* Move the shape to a new location */ -void Shape::move(double dx, double dy) -{ - x += dx; - y += dy; -} - -int Shape::nshapes = 0; - -double Circle::area(void) -{ - return M_PI * radius * radius; -} - -double Circle::perimeter(void) -{ - return 2 * M_PI * radius; -} - -double Square::area(void) -{ - return width * width; -} - -double Square::perimeter(void) -{ - return 4 * width; -} diff --git a/Tests/RunCMake/UseSWIG/example.h b/Tests/RunCMake/UseSWIG/example.h deleted file mode 100644 index 366deb0..0000000 --- a/Tests/RunCMake/UseSWIG/example.h +++ /dev/null @@ -1,37 +0,0 @@ -/* File : example.h */ - -class Shape -{ -public: - Shape() { nshapes++; } - virtual ~Shape() { nshapes--; }; - double x, y; - void move(double dx, double dy); - virtual double area(void) = 0; - virtual double perimeter(void) = 0; - static int nshapes; -}; - -class Circle : public Shape -{ -private: - double radius; - -public: - Circle(double r) - : radius(r){}; - virtual double area(void); - virtual double perimeter(void); -}; - -class Square : public Shape -{ -private: - double width; - -public: - Square(double w) - : width(w){}; - virtual double area(void); - virtual double perimeter(void); -}; diff --git a/Tests/RunCMake/UseSWIG/example.i b/Tests/RunCMake/UseSWIG/example.i deleted file mode 100644 index fbdf724..0000000 --- a/Tests/RunCMake/UseSWIG/example.i +++ /dev/null @@ -1,9 +0,0 @@ -/* File : example.i */ -%module example - -%{ -#include "example.h" -%} - -/* Let's just grab the original header file here */ -%include "example.h" diff --git a/Tests/RunCMake/UseSWIG/runme.php4 b/Tests/RunCMake/UseSWIG/runme.php4 deleted file mode 100644 index 653ced2..0000000 --- a/Tests/RunCMake/UseSWIG/runme.php4 +++ /dev/null @@ -1,58 +0,0 @@ -<?php - -# This file illustrates the low-level C++ interface -# created by SWIG. In this case, all of our C++ classes -# get converted into function calls. - -require("example.php"); - -# ----- Object creation ----- - -print "Creating some objects:\n"; -$c = new_Circle(10); -print " Created circle $c\n"; -$s = new_Square(10); -print " Created square $s\n"; - -# ----- Access a static member ----- - -print "\nA total of " . nshapes() . " shapes were created\n"; - -# ----- Member data access ----- - -# Set the location of the object. -# Note: methods in the base class Shape are used since -# x and y are defined there. - -Shape_x_set($c, 20); -Shape_y_set($c, 30); -Shape_x_set($s,-10); -Shape_y_set($s,5); - -print "\nHere is their current position:\n"; -print " Circle = (" . Shape_x_get($c) . "," . Shape_y_get($c) . ")\n"; -print " Square = (" . Shape_x_get($s) . "," . Shape_y_get($s) . ")\n"; - -# ----- Call some methods ----- - -print "\nHere are some properties of the shapes:\n"; -foreach (array($c,$s) as $o) { - print " $o\n"; - print " area = " . Shape_area($o) . "\n"; - print " perimeter = " . Shape_perimeter($o) . "\n"; - } -# Notice how the Shape_area() and Shape_perimeter() functions really -# invoke the appropriate virtual method on each object. - -# ----- Delete everything ----- - -print "\nGuess I'll clean up now\n"; - -# Note: this invokes the virtual destructor -delete_Shape($c); -delete_Shape($s); - -print nshapes() . " shapes remain\n"; -print "Goodbye\n"; - -?> diff --git a/Tests/RunCMake/UseSWIG/runme.pike b/Tests/RunCMake/UseSWIG/runme.pike deleted file mode 100644 index ec28dd7..0000000 --- a/Tests/RunCMake/UseSWIG/runme.pike +++ /dev/null @@ -1,53 +0,0 @@ -import .example; - -int main() -{ - // ----- Object creation ----- - - write("Creating some objects:\n"); - Circle c = Circle(10.0); - write(" Created circle.\n"); - Square s = Square(10.0); - write(" Created square.\n"); - - // ----- Access a static member ----- - - write("\nA total of " + Shape_nshapes_get() + " shapes were created\n"); - - // ----- Member data access ----- - - // Set the location of the object - - c->x_set(20.0); - c->y_set(30.0); - - s->x_set(-10.0); - s->y_set(5.0); - - write("\nHere is their current position:\n"); - write(" Circle = (%f, %f)\n", c->x_get(), c->y_get()); - write(" Square = (%f, %f)\n", s->x_get(), s->y_get()); - - // ----- Call some methods ----- - - write("\nHere are some properties of the shapes:\n"); - write(" The circle:\n"); - write(" area = %f.\n", c->area()); - write(" perimeter = %f.\n", c->perimeter()); - write(" The square:\n"); - write(" area = %f.\n", s->area()); - write(" perimeter = %f.\n", s->perimeter()); - - write("\nGuess I'll clean up now\n"); - - /* See if we can force 's' to be garbage-collected */ - s = 0; - - /* Now we should be down to only 1 shape */ - write("%d shapes remain\n", Shape_nshapes_get()); - - /* Done */ - write("Goodbye\n"); - - return 0; -} diff --git a/Tests/RunCMake/UseSWIG/runme.pl b/Tests/RunCMake/UseSWIG/runme.pl deleted file mode 100644 index 965e063..0000000 --- a/Tests/RunCMake/UseSWIG/runme.pl +++ /dev/null @@ -1,56 +0,0 @@ -# file: runme.pl - -# This file illustrates the low-level C++ interface -# created by SWIG. In this case, all of our C++ classes -# get converted into function calls. - -use example; - -# ----- Object creation ----- - -print "Creating some objects:\n"; -$c = examplec::new_Circle(10); -print " Created circle $c\n"; -$s = examplec::new_Square(10); -print " Created square $s\n"; - -# ----- Access a static member ----- - -print "\nA total of $examplec::Shape_nshapes shapes were created\n"; - -# ----- Member data access ----- - -# Set the location of the object. -# Note: methods in the base class Shape are used since -# x and y are defined there. - -examplec::Shape_x_set($c, 20); -examplec::Shape_y_set($c, 30); -examplec::Shape_x_set($s,-10); -examplec::Shape_y_set($s,5); - -print "\nHere is their current position:\n"; -print " Circle = (",examplec::Shape_x_get($c),",", examplec::Shape_y_get($c),")\n"; -print " Square = (",examplec::Shape_x_get($s),",", examplec::Shape_y_get($s),")\n"; - -# ----- Call some methods ----- - -print "\nHere are some properties of the shapes:\n"; -foreach $o ($c,$s) { - print " $o\n"; - print " area = ", examplec::Shape_area($o), "\n"; - print " perimeter = ", examplec::Shape_perimeter($o), "\n"; - } -# Notice how the Shape_area() and Shape_perimeter() functions really -# invoke the appropriate virtual method on each object. - -# ----- Delete everything ----- - -print "\nGuess I'll clean up now\n"; - -# Note: this invokes the virtual destructor -examplec::delete_Shape($c); -examplec::delete_Shape($s); - -print $examplec::Shape_nshapes," shapes remain\n"; -print "Goodbye\n"; diff --git a/Tests/RunCMake/UseSWIG/runme.py b/Tests/RunCMake/UseSWIG/runme.py deleted file mode 100644 index af5e07d..0000000 --- a/Tests/RunCMake/UseSWIG/runme.py +++ /dev/null @@ -1,52 +0,0 @@ -# file: runme.py - -# This file illustrates the shadow-class C++ interface generated -# by SWIG. - -from __future__ import print_function - -import example - -# ----- Object creation ----- - -print ("Creating some objects:") -c = example.Circle(10) -print (" Created circle", c) -s = example.Square(10) -print (" Created square", s) - -# ----- Access a static member ----- - -print ("\nA total of", example.cvar.Shape_nshapes,"shapes were created") - -# ----- Member data access ----- - -# Set the location of the object - -c.x = 20 -c.y = 30 - -s.x = -10 -s.y = 5 - -print ("\nHere is their current position:") -print (" Circle = (%f, %f)" % (c.x,c.y)) -print (" Square = (%f, %f)" % (s.x,s.y)) - -# ----- Call some methods ----- - -print ("\nHere are some properties of the shapes:") -for o in [c,s]: - print (" ", o) - print (" area = ", o.area()) - print (" perimeter = ", o.perimeter()) - -print ("\nGuess I'll clean up now") - -# Note: this invokes the virtual destructor -del c -del s - -s = 3 -print (example.cvar.Shape_nshapes,"shapes remain") -print ("Goodbye") diff --git a/Tests/RunCMake/UseSWIG/runme.rb b/Tests/RunCMake/UseSWIG/runme.rb deleted file mode 100644 index de73bcd..0000000 --- a/Tests/RunCMake/UseSWIG/runme.rb +++ /dev/null @@ -1,49 +0,0 @@ -# file: runme.rb - -# This file illustrates the C++ interface created by SWIG. -# All of our C++ classes get converted into Ruby classes. - -require 'example' - -# ----- Object creation ----- - -print "Creating some objects:\n" -c = Example::Circle.new(10) -print " Created circle #{c}\n" -s = Example::Square.new(10) -print " Created square #{s}\n" - -# ----- Access a static member ----- - -print "\nA total of #{Example::Shape.nshapes} shapes were created\n" - -# ----- Member data access ----- - -# Set the location of the object - -# Notice how we can do this using functions specific to -# the 'Circle' class. -c.x = 20 -c.y = 30 - -# Now use the same functions in the base class -s.x = -10 -s.y = 5 - -print "\nHere is their current position:\n" -print " Circle = (", c.x, ",", c.y, ")\n" -print " Square = (", s.x, ",", s.y, ")\n" - -# ----- Call some methods ----- - -print "\nHere are some properties of the shapes:\n" -for o in [c, s] - print " #{o}\n" - print " area = ", o.area, "\n" - print " perimeter = ", o.perimeter, "\n" -end -# Notice how the Shape#area() and Shape#perimeter() functions really -# invoke the appropriate virtual method on each object. - -print "\n", Example::Shape.nshapes," shapes remain\n" -print "Goodbye\n" diff --git a/Tests/RunCMake/UseSWIG/runme.tcl b/Tests/RunCMake/UseSWIG/runme.tcl deleted file mode 100644 index 6055cf6..0000000 --- a/Tests/RunCMake/UseSWIG/runme.tcl +++ /dev/null @@ -1,49 +0,0 @@ -# file: runme.tcl - -# This file illustrates the high level C++ interface. -# In this case C++ classes work kind of like Tk widgets - -catch { load ./example[info sharedlibextension] example} - -# ----- Object creation ----- - -puts "Creating some objects:" -Circle c 10 -puts " Created circle [c cget -this]" -Square s 10 -puts " Created square [s cget -this]" - -# ----- Access a static member ----- - -puts "\nA total of $Shape_nshapes shapes were created" - -# ----- Member data access ----- - -# Set the location of the object - -c configure -x 20 -y 30 -s configure -x -10 -y 5 - -puts "\nHere is their current position:" -puts " Circle = ([c cget -x], [c cget -y])" -puts " Square = ([s cget -x], [s cget -y])" - -# ----- Call some methods ----- - -puts "\nHere are some properties of the shapes:" -foreach o "c s" { - puts " [$o cget -this]" - puts " area = [$o area]" - puts " perimeter = [$o perimeter]" -} - -# ----- Delete everything ----- - -puts "\nGuess I'll clean up now" - -# Note: this invokes the virtual destructor -rename c "" -rename s "" - -puts "$Shape_nshapes shapes remain" -puts "Goodbye" diff --git a/Tests/RunCMake/UseSWIG/runme2.tcl b/Tests/RunCMake/UseSWIG/runme2.tcl deleted file mode 100644 index d0b5c21..0000000 --- a/Tests/RunCMake/UseSWIG/runme2.tcl +++ /dev/null @@ -1,69 +0,0 @@ -# file: runme2.tcl - -# This file illustrates the low-level C++ interface -# created by SWIG. In this case, all of our C++ classes -# get converted into function calls. - -catch { load ./example[info sharedlibextension] example} - -# ----- Object creation ----- - -puts "Creating some objects:" -set c [new_Circle 10] -puts " Created circle $c" -set s [new_Square 10] -puts " Created square $s" - -# ----- Access a static member ----- - -puts "\nA total of $Shape_nshapes shapes were created" - -# ----- Member data access ----- - -# Set the location of the object -# Note: the base class must be used since that's where x and y -# were declared. - -Shape_x_set $c 20 -Shape_y_set $c 30 -Shape_x_set $s -10 -Shape_y_set $s 5 - -puts "\nHere is their current position:" -puts " Circle = ([Shape_x_get $c], [Shape_y_get $c])" -puts " Square = ([Shape_x_get $s], [Shape_y_get $s])" - -# ----- Call some methods ----- - -puts "\nHere are some properties of the shapes:" -foreach o "$c $s" { - puts " $o" - puts " area = [Shape_area $o]" - puts " perimeter = [Shape_perimeter $o]" -} -# Notice how the Shape_area() and Shape_perimeter() functions really -# invoke the appropriate virtual method on each object. - -# ----- Try to cause a type error ----- - -puts "\nI'm going to try and break the type system" - -if { [catch { - # Bad script! - Square_area $c # Try to invoke Square method on a Circle - puts " Bad bad SWIG!" - -}]} { - puts " Well, it didn't work. Good SWIG." -} - -# ----- Delete everything ----- - -puts "\nGuess I'll clean up now" - -# Note: this invokes the virtual destructor -delete_Shape $c -delete_Shape $s - -puts "$Shape_nshapes shapes remain" -puts "Goodbye" |