bgirgis/cpp-thirdparty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update swig on windows

Browse Source
This commit is contained in:
Bassem Girgis
2019-08-04 21:38:19 -05:00
parent 8414b7136b
commit 76ad52be58
5943 changed files with 91790 additions and 71892 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
winx64/bin/swigwin-4.0.0/Examples/perl5/constants/Makefile Normal file
View File

@@ -0,0 +1,23 @@
TOP = ../..
SWIGEXE = $(TOP)/../swig
SWIG_LIB_DIR = $(TOP)/../$(TOP_BUILDDIR_TO_TOP_SRCDIR)Lib
SRCS =
TARGET = example
INTERFACE = example.i
SWIGOPT =
check: build
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' perl5_run
build:
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \
SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \
SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' perl5
static:
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \
SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \
SWIGOPT='$(SWIGOPT)' TARGET='myperl' INTERFACE='$(INTERFACE)' perl5_static
clean:
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' perl5_clean

27
winx64/bin/swigwin-4.0.0/Examples/perl5/constants/example.i Normal file
View File

@@ -0,0 +1,27 @@
/* File : example.i */
%module example
/* A few preprocessor macros */
#define ICONST 42
#define FCONST 2.1828
#define CCONST 'x'
#define CCONST2 '\n'
#define SCONST "Hello World"
#define SCONST2 "\"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 directives also produce constants */
%constant int iconst = 37;
%constant double fconst = 3.14;

53
winx64/bin/swigwin-4.0.0/Examples/perl5/constants/index.html Normal file
View File

@@ -0,0 +1,53 @@
<html>
<head>
<title>SWIG:Examples:perl5:constants</title>
</head>
<body bgcolor="#ffffff">
<tt>SWIG/Examples/perl5/constants/</tt>
<hr>
<H2>Wrapping C Constants</H2>
<p>
When SWIG encounters C preprocessor macros and C declarations that look like constants,
it creates Perl5 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 Perl</h2>
Click <a href="runme.pl">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 Perl constants.
<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 Perl strings.
<li>C string literals such as "Hello World" are converted into Perl 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 Perl constants.
<p>
<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).
</ul>
<hr>
</body>
</html>

29
winx64/bin/swigwin-4.0.0/Examples/perl5/constants/runme.pl Normal file
View File

@@ -0,0 +1,29 @@
# file: runme.pl
use example;
print "ICONST = ", $example::ICONST, " (should be 42)\n";
print "FCONST = ", $example::FCONST, " (should be 2.1828)\n";
print "CCONST = ", $example::CCONST, " (should be 'x')\n";
print "CCONST2 = ", $example::CCONST2," (this should be on a new line)\n";
print "SCONST = ", $example::SCONST, " (should be 'Hello World')\n";
print "SCONST2 = ", $example::SCONST2, " (should be '\"Hello World\"')\n";
print "EXPR = ", $example::EXPR, " (should be 48.5484)\n";
print "iconst = ", $example::iconst, " (should be 37)\n";
print "fconst = ", $example::fconst, " (should be 3.14)\n";
if ($example::EXTERN) {
print "EXTERN = ", example.EXTERN, " (Arg! This shouldn't print anything)\n";
} else {
print "EXTERN isn't defined (good)\n";
}
if ($example::FOO) {
print "FOO = ", example.FOO, "(Arg! This shouldn't print anything)\n";
} else {
print "FOO isn't defined (good)\n";
}