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

Resurrected Perl5. Needs more work though

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@668 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-08-17 21:14:10 +00:00
commit fad1c73e97
6 changed files with 339 additions and 706 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Source/Modules1.1/Makefile.in
View file

@ -13,8 +13,8 @@ AR = @AR@
RANLIB = @RANLIB@
TARGET = libmodules11.a
OBJS = swigmain.o tcl8.o python.o #perl5.o guile.o java.o mzscheme.o ruby.o
SRCS = swigmain.cxx tcl8.cxx python.cxx #perl5.cxx guile.cxx java.cxx mzscheme.cxx ruby.cxx
OBJS = swigmain.o tcl8.o python.o perl5.o #guile.o java.o mzscheme.o ruby.o
SRCS = swigmain.cxx tcl8.cxx python.cxx perl5.cxx #guile.cxx java.cxx mzscheme.cxx ruby.cxx
INCLUDE = -I$(srcdir)/../Include \
-I$(srcdir)/../SWIG1.1 \
-I$(srcdir)/../DOH/Include \

1022
SWIG/Source/Modules1.1/perl5.cxx
View file

File diff suppressed because it is too large Load diff

9
SWIG/Source/Modules1.1/perl5.h
View file

@ -21,12 +21,7 @@
class PERL5 : public Language {
private:
void get_pointer(char *iname, char *srcname, char *src, char *dest,
SwigType *t, DOHString *f, char *ret);
char *usage_var(char *, SwigType *);
char *usage_func(char *, SwigType *, ParmList *);
char *usage_const(char *, SwigType *, char *);
public :
virtual void parse_args(int, char *argv[]);
virtual void parse();
@ -34,10 +29,8 @@ public :
virtual void link_variable(char *, char *, SwigType *);
virtual void declare_const(char *, char *, SwigType *, char *);
virtual void initialize(void);
virtual void headers(void);
virtual void close(void);
virtual void set_module(char *, char **);
virtual void set_init(char *);
virtual void set_module(char *);
virtual void add_native(char *, char *, SwigType *, ParmList *);
virtual void create_command(char *, char *);

2
SWIG/Source/Modules1.1/python.cxx
View file

@ -277,7 +277,7 @@ PYTHON::get_pointer(char *src, char *dest, SwigType *t, String *f, char *ret) {
Printv(f,tab4, "if ((SWIG_ConvertPtr(", src, ",(void **) &", dest, ",", 0);
if (SwigType_type(t) == T_VOID) Printv(f, "0,1)) == -1) return ", ret, ";\n", 0);
else
Printv(f,"SWIGTYPE", SwigType_manglestr(t), ",1)) == -1) return ", ret, ";\n", 0);
Printv(f,"SWIGTYPE_", SwigType_manglestr(t), ",1)) == -1) return ", ret, ";\n", 0);
}
/* -----------------------------------------------------------------------------

6
SWIG/Source/Modules1.1/swigmain.cxx
View file

@ -29,8 +29,9 @@ static char cvsroot[] = "$Header$";
#include "tcl8.h"
#include "python.h"
#ifdef OLD
#include "perl5.h"
#ifdef OLD
#include "java.h"
#include "guile.h"
#include "mzscheme.h"
@ -81,10 +82,11 @@ int main(int argc, char **argv) {
} else if (strcmp(argv[i],"-python") == 0) {
dl = new PYTHON;
Swig_mark_arg(i);
#ifdef OLD
} else if (strcmp(argv[i],"-perl5") == 0) {
dl = new PERL5;
Swig_mark_arg(i);
#ifdef OLD
} else if (strcmp(argv[i],"-guile") == 0) {
dl = new GUILE;
Swig_mark_arg(i);

2
SWIG/Source/Modules1.1/tcl8.cxx
View file

@ -780,7 +780,7 @@ TCL8::declare_const(char *name, char *, SwigType *type, char *value) {
t = NewSwigType(T_CHAR);
SwigType_add_pointer(t);
SwigType_remember(type);
Printf(f_init,"\t SWIG_MakePtr(%s_char, (void *) %s, SWIGTYPE%s);\n",
Printf(f_init,"\t SWIG_MakePtr(%s_char, (void *) %s, SWIGTYPE_%s);\n",
var_name, var_name, SwigType_manglestr(type));
sprintf(var_name,"%s_char",var_name);
link_variable(var_name,name,t);