jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated some examples

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@490 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-06-17 21:41:01 +00:00
commit b3e124ac21
22 changed files with 745 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Examples/tcl/simple/README
View file

@ -1,10 +0,0 @@
This is a simple Tcl example. Type 'make' to
compile a dynamically loadable extension.
'make tcl8' creates a dynamically loadable Tcl 8.x
extension.
'make static' creates a statically linked 'tclsh' executable.
'make static8' create a statically linked 'tclsh8.0' executable.

31
Examples/tcl/simple/example.c
View file

@ -1,25 +1,18 @@
/* Simple example from documentation */
/* File : example.c */
#ifdef SWIG
%module example
#endif
/* A global variable */
double Foo = 3.0;
#include <time.h>
double My_variable = 3.0;
int fact(int n) {
if (n <= 1) return 1;
else return n*fact(n-1);
/* Compute the greatest common divisor of positive integers */
int gcd(int x, int y) {
int g;
g = y;
while (x > 0) {
g = x;
x = y % x;
y = g;
}
return g;
}
int mod(int n, int m) {
return (n % m);
}
char *get_time() {
long ltime;
time(&ltime);
return ctime(&ltime);
}

12
Examples/tcl/simple/example.i
View file

@ -1,13 +1,5 @@
/* File : example.i */
%module example
%{
/* Put headers and other declarations here */
%}
extern double My_variable;
extern int fact(int);
extern int mod(int n, int m);
extern char *get_time();
extern int gcd(int x, int y);
extern double Foo;

33
Examples/tcl/simple/example.tcl
View file

@ -1,26 +1,23 @@
#
# Tcl script for testing simple example
# file: example.tcl
# Try to load as a dynamic module. If not, we'll just assume
# that it was statically linked in.
catch { load ./example.so example}
catch { load ./example.dll example} ;# Windows
puts [get_time]
set tcl_precision 17
puts "My Variable = $My_variable"
for {set i 0} {$i < 14} {incr i 1} {
set n [fact $i];
puts "$i factorial is $n"
}
# Call our gcd() function
set x 42
set y 105
set g [gcd $x $y]
puts "The gcd of $x and $y is $g"
for {set i 1} {$i < 250} {incr i 1} {
for {set j 1} {$j < 250} {incr j 1} {
set n [mod $i $j]
set My_variable [expr {$My_variable + $n}]
}
}
# Manipulate the Foo global variable
puts "My_variable = $My_variable"
# Output its current value
puts "Foo = $Foo"
# Change its value
set Foo 3.1415926
# See if the change took effect
puts "Foo = $Foo"

99
Examples/tcl/simple/index.html Normal file
View file

@ -0,0 +1,99 @@
<html>
<head>
<title>SWIG:Examples:tcl:simple</title>
</head>
<body bgcolor="#ffffff">
<tt>SWIG/Examples/tcl/simple/</tt>
<hr>
<H2>Simple Tcl Example</H2>
<tt>$Header$</tt><br>
<p>
This example illustrates how you can hook Tcl to a very simple C program containing
a function and a global variable.
<h2>The C Code</h2>
Suppose you have the following C code:
<blockquote>
<pre>
/* File : example.c */
/* A global variable */
double Foo = 3.0;
/* Compute the greatest common divisor of positive integers */
int gcd(int x, int y) {
int g;
g = y;
while (x > 0) {
g = x;
x = y % x;
y = g;
}
return g;
}
</pre>
</blockquote>
<h2>The SWIG interface</h2>
Here is a simple SWIG interface file:
<blockquote>
<pre>
/* File: example.i */
%module example
extern int gcd(int x, int y);
extern double Foo;
</pre>
</blockquote>
<h2>Compilation</h2>
<ol>
<li><tt>swig -tcl <a href="example.i">example.i</a></tt>
<p>
<li>Compile <tt><a href="example_wrap.c">example_wrap.c</a></tt> and <tt><a href="example.c">example.c</a></tt>
to create the extension <tt>example.so</tt>.
</ol>
<h2>Using the extension</h2>
Click <a href="example.tcl">here</a> to see a script that calls our C functions from Tcl.
<h2>Key points</h2>
<ul>
<li>Use the <tt>load</tt> statement to load your extension module into Tcl. For example:
<blockquote>
<pre>
load ./example.so
</pre>
</blockquote>
<li>C functions work just like Tcl functions. For example:
<blockquote>
<pre>
set g [gcd 42 105]
</pre>
</blockquote>
<li>C global variables are accessed as Tcl variables. For example:
<blockquote>
<pre>
set a $Foo
set Foo $newvalue
</pre>
</blockquote>
</ul>
<hr>
</body>
</html>