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@490 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-06-17 21:41:01 +00:00
commit 0598f16228
22 changed files with 745 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

19
SWIG/Examples/tcl/constants/Makefile Normal file
View file

@ -0,0 +1,19 @@
TOP = ../..
SWIG = $(TOP)/../swig
SRCS =
TARGET = my_tclsh
DLTARGET = example
INTERFACE = example.i
all::
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
TARGET='$(DLTARGET)' INTERFACE='$(INTERFACE)' tcl
static::
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' tclsh
clean::
rm -f *_wrap* *.o my_tclsh *~ .~* core *.so *.sl

24
SWIG/Examples/tcl/constants/example.i Normal file
View file

@ -0,0 +1,24 @@
/* File : example.i */
%module example
/* A few preprocessor macros */
#define ICONST 42
#define FCONST 2.1828
#define CCONST 'x'
#define SCONST "Hello World"
/* This should work just fine */
#define EXPR ICONST + 3*(FCONST)
/* This shouldn't do anything */
#define EXTERN extern
/* Neither should this (BAR isn't defined) */
#define FOO (ICONST + BAR)
/* The following statements also produce constants */
const int iconst = 37;
const double fconst = 3.14;

25
SWIG/Examples/tcl/constants/example.tcl Normal file
View file

@ -0,0 +1,25 @@
# file: example.tcl
catch { load ./example.so example}
catch { load ./example.dll example} ;# Windows
puts "ICONST = $ICONST (should be 42)"
puts "FCONST = $FCONST (should be 2.1828)"
puts "CCONST = $CCONST (should be 'x')"
puts "SCONST = $SCONST (should be 'Hello World')"
puts "EXPR = $EXPR (should be 48.5484)"
puts "iconst = $iconst (should be 37)"
puts "fconst = $fconst (should be 3.14)"
if { [catch {
puts "EXTERN = $EXTERN (Arg! This shouldn't print anything)"
}]} {
puts "EXTERN isn't defined (good)"
}
if { [catch {
puts "FOO = $FOO (Arg! This shouldn't print anything)"
}]} {
puts "FOO isn't defined (good)"
}

63
SWIG/Examples/tcl/constants/index.html Normal file
View file

@ -0,0 +1,63 @@
<html>
<head>
<title>SWIG:Examples:tcl:constants</title>
</head>
<body bgcolor="#ffffff">
<tt>SWIG/Examples/tcl/constants/</tt>
<hr>
<H2>Wrapping C Constants</H2>
<tt>$Header$</tt><br>
<p>
When SWIG encounters C preprocessor macros and C declarations that look like constants,
it creates Tcl variables with an identical value. Click <a href="example.i">here</a>
to see a SWIG interface with some constant declarations in it.
<h2>Accessing Constants from Tcl</h2>
Click <a href="example.tcl">here</a> to see a script that prints out the values
of the constants contained in the above file.
<h2>Key points</h2>
<ul>
<li>The values of preprocessor macros are converted into Tcl read-only variables.
<li>Types are inferred by syntax (e.g., "3" is an integer and "3.5" is a float).
<li>Character constants such as 'x' are converted into strings.
<li>C string literals such as "Hello World" are converted into strings.
<li>Macros that are not fully defined are simply ignored. For example:
<blockquote>
<pre>
#define EXTERN extern
</pre>
</blockquote>
is ignored because SWIG has no idea what type of variable this would be.
<p>
<li>Expressions are allowed provided that all of their components are defined. Otherwise, the constant is ignored.
<li>Certain C declarations involving 'const' are also turned into Tcl constants.
<li>The constants that appear in a SWIG interface file do not have to appear in any sort
of matching C source file since the creation of a constant does not require linkage
to a stored value (i.e., a value held in a C global variable or memory location).
<li>Since constants are turned into Tcl variables, you have to use the global
statement when accessing from a procedure. For example:
<blockquote>
<pre>
proc foo {} {
global ICONST # Some C constant
puts $ICONST
}
</pre>
</blockquote>
</ul>
<hr>
</body>
</html>