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

Some memory management cleanup.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@386 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-04-05 04:21:10 +00:00
commit 72c2fe99d9
1 changed files with 147 additions and 129 deletions
Download patch file Download diff file Expand all files Collapse all files

72
SWIG/Source/Preprocessor/cpp.c
View file

@ -20,15 +20,15 @@ static char cvsroot[] = "$Header$";
#include "preprocessor.h" #include "preprocessor.h"
#include <ctype.h> #include <ctype.h>
static DOH *cpp = 0; /* C preprocessor data */ static DOHHash *cpp = 0; /* C preprocessor data */
static int include_all = 0; /* Follow all includes */ static int include_all = 1; /* Follow all includes */
static int single_include = 1; /* Only include each file once */ static int single_include = 1; /* Only include each file once */
static int silent_errors = 0; static int silent_errors = 0;
static DOH *included_files = 0; static DOHHash *included_files = 0;
/* Handle an error */ /* Handle an error */
static void cpp_error(DOH *file, int line, char *fmt, ...) { static void cpp_error(DOHString *file, int line, char *fmt, ...) {
va_list ap; va_list ap;
if (silent_errors) return; if (silent_errors) return;
va_start(ap,fmt); va_start(ap,fmt);
@ -69,7 +69,7 @@ skip_whitespace(DOH *s, DOH *out) {
/* Skip to a specified character taking line breaks into account */ /* Skip to a specified character taking line breaks into account */
static int static int
skip_tochar(DOH *s, int ch, DOH *out) { skip_tochar(DOHFile *s, int ch, DOHFile *out) {
int c; int c;
while ((c = Getc(s)) != EOF) { while ((c = Getc(s)) != EOF) {
if (out) Putc(c,out); if (out) Putc(c,out);
@ -89,8 +89,8 @@ copy_location(DOH *s1, DOH *s2) {
Setline(s2,Getline(s1)); Setline(s2,Getline(s1));
} }
static DOH *cpp_include(DOH *fn) { static DOHString *cpp_include(DOHString_or_char *fn) {
DOH *s; DOHString *s;
if (single_include) { if (single_include) {
if (Getattr(included_files,fn)) return 0; if (Getattr(included_files,fn)) return 0;
Setattr(included_files,fn,fn); Setattr(included_files,fn,fn);
@ -109,7 +109,7 @@ static DOH *cpp_include(DOH *fn) {
* void Preprocessor_cpp_init() - Initialize the preprocessor * void Preprocessor_cpp_init() - Initialize the preprocessor
* ----------------------------------------------------------------------------- */ * ----------------------------------------------------------------------------- */
void Preprocessor_init() { void Preprocessor_init() {
DOH *s; DOHHash *s;
cpp = NewHash(); cpp = NewHash();
s = NewHash(); s = NewHash();
Setattr(cpp,"symbols",s); Setattr(cpp,"symbols",s);
@ -124,15 +124,17 @@ void Preprocessor_include_all(int a) {
} }
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* DOH *Preprocessor_define(DOH *str, int swigmacro) * Preprocessor_define()
* *
* Defines a new C preprocessor symbol. swigmacro specifies whether or not the macro has * Defines a new C preprocessor symbol. swigmacro specifies whether or not the macro has
* SWIG macro semantics. * SWIG macro semantics.
* ----------------------------------------------------------------------------- */ * ----------------------------------------------------------------------------- */
DOH *Preprocessor_define(DOH *str, int swigmacro) DOHHash *Preprocessor_define(DOHString_or_char *str, int swigmacro)
{ {
DOH *macroname = 0, *argstr = 0, *macrovalue = 0, *arglist = 0, *macro = 0, *symbols = 0, *file = 0, *s, *m1; DOHString *macroname = 0, *argstr = 0, *macrovalue = 0, *file = 0, *s = 0;
DOHHash *macro = 0, *symbols = 0, *m1;
DOHList *arglist = 0;
int c, line; int c, line;
assert(cpp); assert(cpp);
@ -247,11 +249,11 @@ macro_error:
} }
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* void Preprocessor_undef(DOH *str) * Preprocessor_undef()
* *
* Undefines a macro. * Undefines a macro.
* ----------------------------------------------------------------------------- */ * ----------------------------------------------------------------------------- */
void Preprocessor_undef(DOH *str) void Preprocessor_undef(DOHString_or_char *str)
{ {
DOH *symbols; DOH *symbols;
assert(cpp); assert(cpp);
@ -260,15 +262,16 @@ void Preprocessor_undef(DOH *str)
} }
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* DOH *find_args(DOH *s) * find_args()
* *
* Isolates macro arguments and returns them in a list. For each argument, * Isolates macro arguments and returns them in a list. For each argument,
* leading and trailing whitespace is stripped (ala K&R, pg. 230). * leading and trailing whitespace is stripped (ala K&R, pg. 230).
* ----------------------------------------------------------------------------- */ * ----------------------------------------------------------------------------- */
static DOH * static DOHList *
find_args(DOH *s) find_args(DOHString *s)
{ {
DOH *args, *str; DOHList *args;
DOHString *str;
int c, level; int c, level;
/* Create a new list */ /* Create a new list */
@ -339,9 +342,9 @@ find_args(DOH *s)
* or bare. * or bare.
* ----------------------------------------------------------------------------- */ * ----------------------------------------------------------------------------- */
static DOH * static DOHString *
get_filename(DOH *str) { get_filename(DOHString *str) {
DOH *fn; DOHString *fn;
int c; int c;
skip_whitespace(str,0); skip_whitespace(str,0);
@ -362,7 +365,7 @@ get_filename(DOH *str) {
} }
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* DOH *expand_macro(DOH *name, DOH *args) * expand_macro()
* *
* Perform macro expansion and return a new string. Returns NULL if some sort * Perform macro expansion and return a new string. Returns NULL if some sort
* of error occurred. * of error occurred.
@ -370,8 +373,8 @@ get_filename(DOH *str) {
DOH *expanded_value = 0; DOH *expanded_value = 0;
static DOH * static DOHString *
expand_macro(DOH *name, DOH *args) expand_macro(DOHString_or_char *name, DOHList *args)
{ {
DOH *symbols, *ns, *macro, *margs, *mvalue, *temp, *tempa, *e; DOH *symbols, *ns, *macro, *margs, *mvalue, *temp, *tempa, *e;
DOH *Preprocessor_replace(DOH *); DOH *Preprocessor_replace(DOH *);
@ -453,16 +456,19 @@ expand_macro(DOH *name, DOH *args)
e = Preprocessor_replace(ns); e = Preprocessor_replace(ns);
Delattr(macro,"*expanded*"); Delattr(macro,"*expanded*");
if (Getattr(macro,"swigmacro")) { if (Getattr(macro,"swigmacro")) {
DOH *g; DOHString *g;
DOH *f = NewString(""); DOHString *f = NewString("");
Printf(f,"%%macro %s, \"%s\", %d {\n", name, Getfile(macro), Getline(macro)); Printf(f,"%%macro %s, \"%s\", %d {\n", name, Getfile(macro), Getline(macro));
Seek(e,0,SEEK_SET); Seek(e,0,SEEK_SET);
copy_location(macro,e); copy_location(macro,e);
g = Preprocessor_parse(e); g = Preprocessor_parse(e);
Printf(f,"%s\n", g); Printf(f,"%s\n", g);
Printf(f,"}\n"); Printf(f,"}\n");
Delete(g);
e = f; e = f;
} }
Delete(temp);
Delete(tempa);
return e; return e;
} }
@ -581,6 +587,8 @@ Preprocessor_replace(DOH *s)
if (e) { if (e) {
Printf(ns,"%s",e); Printf(ns,"%s",e);
} }
Delete(e);
Delete(args);
} else { } else {
Printf(ns,"%s",id); Printf(ns,"%s",id);
} }
@ -630,10 +638,12 @@ Preprocessor_replace(DOH *s)
} }
e = expand_macro(id,0); e = expand_macro(id,0);
Printf(ns,"%s",e); Printf(ns,"%s",e);
Delete(e);
} else { } else {
Printf(ns,"%s",id); Printf(ns,"%s",id);
} }
} }
Delete(id);
return ns; return ns;
} }
@ -744,7 +754,7 @@ Preprocessor_parse(DOH *s)
int scp; int scp;
ns = NewString(""); /* Return result */ ns = NewString(""); /* Return result */
scp = NewScope(); /* scp = NewScope(); */
decl = NewString(""); decl = NewString("");
id = NewString(""); id = NewString("");
@ -1177,7 +1187,15 @@ Preprocessor_parse(DOH *s)
add_chunk(ns,chunk,allow); add_chunk(ns,chunk,allow);
copy_location(s,chunk); copy_location(s,chunk);
DelScope(scp); /* DelScope(scp); */
Delete(decl);
Delete(id);
Delete(value);
Delete(comment);
Delete(chunk);
return ns; return ns;
} }