Tcl patches. Use [info sharedlibextension] to get file extension rather than hard-coding it]

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5301 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/tcl/class/example1.tcl

@@ -4,8 +4,7 @@
 # created by SWIG.  In this case, all of our C++ classes
 # get converted into function calls.
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----
 

SWIG/Examples/tcl/class/example2.tcl

@@ -3,8 +3,7 @@
 # This file illustrates the high level C++ interface.
 # In this case C++ classes work kind of like Tk widgets
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----
 

SWIG/Examples/tcl/constants/example.tcl

@@ -1,7 +1,6 @@
 # file: example.tcl
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 puts "ICONST  = $ICONST (should be 42)"
 puts "FCONST  = $FCONST (should be 2.1828)"

SWIG/Examples/tcl/enum/example.tcl

@@ -1,8 +1,6 @@
 # file: example.tcl
 
-
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----
 

SWIG/Examples/tcl/funcptr/example.tcl

@@ -1,7 +1,6 @@
 # file: example.tcl
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 set a 37
 set b 42

SWIG/Examples/tcl/import/runme.tcl

@@ -2,17 +2,10 @@
 # Test various properties of classes defined in separate modules
 
 puts "Testing the %import directive"
-catch { load ./base.so base}
-catch { load ./base.dll base}    ;# Windows
-
-catch { load ./foo.so foo}
-catch { load ./foo.dll foo}    ;# Windows
-
-catch { load ./bar.so bar}
-catch { load ./bar.dll bar}    ;# Windows
-
-catch { load ./spam.so spam}
-catch { load ./spam.dll spam}    ;# Windows
+catch { load ./base[info sharedlibextension] base}
+catch { load ./foo[info sharedlibextension] foo}
+catch { load ./bar[info sharedlibextension] bar}
+catch { load ./spam[info sharedlibextension] spam}
 
 # Create some objects
 

SWIG/Examples/tcl/multimap/example.tcl

@@ -1,8 +1,7 @@
 # file: example.tcl
 # Try to load as a dynamic module.
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # Call our gcd() function
 set x 42

SWIG/Examples/tcl/operator/runme.tcl

@@ -1,7 +1,6 @@
 # Operator overloading example
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 set a [Complex -args 2 3]
 set b [Complex -args -5 10]

SWIG/Examples/tcl/pointer/example.tcl

@@ -1,7 +1,6 @@
 # file: example.tcl
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # First create some objects using the pointer library.
 puts "Testing the pointer library"

SWIG/Examples/tcl/reference/example.tcl

@@ -2,8 +2,7 @@
 
 # This file illustrates the manipulation of C++ references in Tcl
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----
 

SWIG/Examples/tcl/simple/example.i

@@ -3,4 +3,3 @@
 
 extern int    gcd(int x, int y);
 extern double Foo;
-	

SWIG/Examples/tcl/simple/example.tcl

@@ -1,8 +1,7 @@
 # file: example.tcl
 # Try to load as a dynamic module.
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # Call our gcd() function
 set x 42

SWIG/Examples/tcl/value/example.tcl

@@ -1,8 +1,7 @@
 # file: example.py
 # Try to load as a dynamic module.
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # Create a couple of a vectors
 

SWIG/Examples/tcl/variables/example.tcl

@@ -1,7 +1,6 @@
 # file: example.tcl
 
-catch { load ./example.so example}     ;# Unix
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # Try to set the values of some global variables