From c124a222ae71441d0933af25cf011307f7da215d Mon Sep 17 00:00:00 2001
From: Matthias Kramm <kramm@quiss.org>
Date: Sat, 7 Feb 2009 20:52:32 +0100
Subject: [PATCH] fixed a few mem leaks, enter_file now doesn't do an implicit
 find_file anymore

---
 lib/as3/files.c |   79 +++++++++++++++++++++++++++++++------------------------
 lib/as3/files.h |    5 ++--
 2 files changed, 47 insertions(+), 37 deletions(-)

diff --git a/lib/as3/files.c b/lib/as3/files.c
index cf6145b..580c9db 100644
--- a/lib/as3/files.c
+++ b/lib/as3/files.c
@@ -74,11 +74,23 @@ void add_include_dir(char*dir)
 {
     include_dir_t*d = malloc(sizeof(include_dir_t));
     memset(d , 0, sizeof(include_dir_t));
-    d->path = dir;
+    d->path = strdup(dir);
     d->next = current_include_dirs;
     current_include_dirs = d;
 }
-char*get_path(char*file)
+
+void del_include_dirs(include_dir_t*d, include_dir_t*d2)
+{
+    while(d && d!=d2) {
+        include_dir_t*next = d->next;
+        free(d->path);d->path=0;
+        d->next = 0;
+        free(d);
+        d = next;
+    }
+}
+
+char*get_path(const char*file)
 {
     char*path = strdup(file);
     char*r1 = strrchr(path, '/');
@@ -121,6 +133,7 @@ char is_absolute(char*filename)
         return 1;
     return 0;
 }
+
 char*find_file(char*filename)
 {
     include_dir_t*i = current_include_dirs;
@@ -131,70 +144,65 @@ char*find_file(char*filename)
             fclose(fi);
             return strdup(filename);
         }
-        return 0;
-    }
-    if(!i) {
-        as3_warning("Include directory stack is empty, while looking for file %s", filename);
+    } else {
+        if(!i) {
+            as3_warning("Include directory stack is empty, while looking for file %s", filename);
+        }
+        while(i) {
+            char*p = concat_paths(i->path, filename);
+            fi = fopen(p, "rb");
+            if(fi) {
+                fclose(fi);
+                return p;
+            }
+            i = i->next;
+        }
     }
+
+    as3_error("Couldn't find file %s", filename);
+    i = current_include_dirs;
     while(i) {
-        char*p = concat_paths(i->path, filename);
-        fi = fopen(p, "rb");
-        if(fi) {
-            fclose(fi);
-            return p;
-        }
+        fprintf(stderr, "include dir: %s\n", i->path);
         i = i->next;
     }
     return 0;
 }
 
-char*enter_file(char*filename, void*state)
+void enter_file(const char*name, const char*filename, void*state)
 {
-    filename = strdup(filename);
-
     if(include_stack_ptr >= MAX_INCLUDE_DEPTH) {
     	as3_error("Includes nested too deeply");
 	exit(1);
     }
-    char*fullfilename = find_file(filename);
-    if(!fullfilename) {
-    	as3_error("Couldn't find file %s", filename);
-        include_dir_t*i = current_include_dirs;
-        while(i) {
-            fprintf(stderr, "include dir: %s\n", i->path);
-            i = i->next;
-        }
-	exit(1);
-    }
     include_stack[include_stack_ptr] = state;
     line_stack[include_stack_ptr] = current_line;
     column_stack[include_stack_ptr] = current_column;
     shortfilename_stack[include_stack_ptr] = current_filename_short;
     filename_stack[include_stack_ptr] = current_filename;
     includedir_stack[include_stack_ptr] = current_include_dirs;
-    add_include_dir(get_path(fullfilename));
+    char*dir = get_path(filename);
+    add_include_dir(dir);
+    free(dir);
     include_stack_ptr++;
     
-    dbg("entering file %s", fullfilename);
+    dbg("entering file %s", filename);
 
     current_line=1;
     current_column=0;
-    current_filename = fullfilename;
-    current_filename_short = filename;
-    return fullfilename;
+    current_filename = strdup(filename);
+    current_filename_short = strdup(name);
 }
 
-FILE*enter_file2(char*filename, void*state)
+FILE*enter_file2(const char*name, const char*filename, void*state)
 {
-    char*fullfilename = enter_file(filename, state);
-    FILE*fi = fopen(fullfilename, "rb");
+    enter_file(name, filename, state);
+    FILE*fi = fopen(filename, "rb");
     if(!fi) {
-	as3_error("Couldn't find file %s: %s", fullfilename, strerror(errno));
+	as3_error("Couldn't find file %s: %s", filename, strerror(errno));
     }
     return fi;
 }
 
-
 void* leave_file()
 {
     dbg("leaving file %s", current_filename);
@@ -205,6 +213,7 @@ void* leave_file()
         free(current_filename_short);current_filename_short = shortfilename_stack[include_stack_ptr];
         current_column = column_stack[include_stack_ptr];
         current_line = line_stack[include_stack_ptr];
+        del_include_dirs(includedir_stack[include_stack_ptr], current_include_dirs);
         current_include_dirs = includedir_stack[include_stack_ptr];
         return include_stack[include_stack_ptr];
     }
diff --git a/lib/as3/files.h b/lib/as3/files.h
index 70fbb54..5d6420b 100644
--- a/lib/as3/files.h
+++ b/lib/as3/files.h
@@ -29,8 +29,9 @@ extern char* current_filename_short;
 
 void add_include_dir(char*dir);
 
-char* enter_file(char*filename, void*state);
-FILE* enter_file2(char*filename, void*state);
+char*find_file(char*filename);
+void enter_file(const char*name, const char*filename, void*state);
+FILE* enter_file2(const char*name, const char*filename, void*state);
 void* leave_file();
 
 #endif
-- 
1.7.10.4