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

Added the option [no]swig-lisp which turns on/off generation

Browse source 
of code for helper lisp macro, functions, etc.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9053 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Surendra Singhi 2006-04-13 18:07:28 +00:00
commit 09d99d882b
2 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
SWIG/CHANGES.current
View file

@ -1,6 +1,12 @@
Version 1.3.29 (March 21, 2006)
===============================
04/13/2006: efuzzyone
[cffi]
Fixed the generation of wrappers for global variables.
Added the option [no]swig-lisp which turns on/off generation
of code for helper lisp macro, functions, etc.
04/05/2006: mutandiz
[allegrocl]
Fix output typemap of char so it produces a character instead

23
SWIG/Source/Modules/cffi.cxx
View file

@ -49,6 +49,7 @@ private:
String* strip_parens(String *string);
int extern_all_flag;
int generate_typedef_flag;
bool no_swig_lisp;
};
void CFFI :: main(int argc, char *argv[]) {
@ -58,6 +59,7 @@ void CFFI :: main(int argc, char *argv[]) {
SWIG_config_file("cffi.swg");
generate_typedef_flag = 0;
extern_all_flag=0;
no_swig_lisp = false;
CWrap = false;
for(i=1; i<argc; i++) {
if (!Strcmp(argv[i], "-help")) {
@ -65,14 +67,17 @@ void CFFI :: main(int argc, char *argv[]) {
Printf(stdout,
" -extern-all\n"
"\t If this option is given then cffi definitions for all the functions\n"
"and global variables will be created otherwise only definitions for \n"
"externed functions and variables are created.\n"
"will be created otherwise only definitions for externed functions are created.\n"
" -generate-typedef\n"
"\t If this option is given then defctype will be used to generate shortcuts\n"
"according to the typedefs in the input.\n"
" -[no]cwrap\n"
"\tTurn on or turn off generation of an intermediate C file when\n"
"\tcreating a C interface. By default this is only done for C++ code.\n"
" -[no]swig-lisp\n"
"\tTurns on or off generation of code for helper lisp macro, functions,\n"
"\tetc. which SWIG uses while generating wrappers. These macros, functions\n"
"\tmay still be used by generated wrapper code.\n"
);
}
else if ( (Strcmp(argv[i],"-extern-all") == 0)) {
@ -90,7 +95,14 @@ void CFFI :: main(int argc, char *argv[]) {
else if (!strcmp(argv[i], "-nocwrap")) {
CWrap = false;
Swig_mark_arg(i);
} else if (!strcmp(argv[i], "-swig-lisp")) {
no_swig_lisp = false;
Swig_mark_arg(i);
} else if (!strcmp(argv[i], "-noswig-lisp")) {
no_swig_lisp = true;
Swig_mark_arg(i);
}
}
f_clhead = NewString("");
f_clwrap = NewString("");
@ -98,6 +110,7 @@ void CFFI :: main(int argc, char *argv[]) {
}
int CFFI :: top(Node *n) {
File *f_null=NewString("");
module=Getattr(n, "name");
String *cxx_filename=Getattr(n, "outfile");
@ -128,7 +141,10 @@ int CFFI :: top(Node *n) {
Swig_register_filebyname("wrapper",f_cxx_wrapper);
Swig_register_filebyname("runtime",f_cxx);
Swig_register_filebyname("lisphead", f_clhead);
Swig_register_filebyname("swiglisp", f_cl);
if(!no_swig_lisp)
Swig_register_filebyname("swiglisp", f_cl);
else
Swig_register_filebyname("swiglisp", f_null);
Language::top(n);
Printf(f_lisp, "%s\n", f_clhead);
@ -144,6 +160,7 @@ int CFFI :: top(Node *n) {
Close(f_cxx);
Delete(f_cxx);
Delete(f_cxx_wrapper);
Delete(f_null);
return SWIG_OK;
}