Mergebuild-010393-lambda

1 files changed, 0 insertions, 144 deletions

diff --git a/src/core/garbage.c b/src/core/garbage.c
deleted file mode 100644
index 23c73b8..0000000
--- a/src/core/garbage.c
+++ /dev/null
@@ -1,144 +0,0 @@
-/*:*
- *: File: ./src/core/garbage.c
- *: A simple interpreter
- *: 
- *: WWW	: http://fype.buetow.org
- *: AUTHOR	: http://paul.buetow.org
- *: E-Mail	: fype at dev.buetow.org
- *: 
- *: Copyright (c) 2005 - 2009, Dipl.-Inform. (FH) Paul C. Buetow 
- *: All rights reserved.
- *: 
- *: Redistribution and use in source and binary forms, with or without modi-
- *: fication, are permitted provided that the following conditions are met:
- *:  * Redistributions of source code must retain the above copyright
- *:    notice, this list of conditions and the following disclaimer.
- *:  * Redistributions in binary form must reproduce the above copyright
- *:    notice, this list of conditions and the following disclaimer in the
- *:    documentation and/or other materials provided with the distribution.
- *:  * Neither the name of buetow.org nor the names of its contributors may 
- *:    be used to endorse or promote products derived from this software 
- *:    without specific prior written permission.
- *: 
- *: THIS SOFTWARE IS PROVIDED BY PAUL C. BUETOW AS IS'' AND ANY EXPRESS OR 
- *: IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
- *: WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- *: DISCLAIMED. IN NO EVENT SHALL PAUL C. BUETOW BE LIABLE FOR ANY DIRECT, 
- *: INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
- *: (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 
- *:  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
- *: HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
- *: STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 
- *: IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
- *: POSSIBILITY OF SUCH DAMAGE.
- *:*/
-
-#include "garbage.h"
-
-#define _GARBAGE_ERROR(m) \
-	 ERROR("%s: Garbage error", m);
-
-List *LIST_GARBAGE = NULL;
-
-typedef struct {
-   void (*p_func)(void*);
-   void (*p_print)(void*);
-   int *p_ref_count;
-   void *p_2free;
-   GarbageType type;
-} _Garbage;
-
-void
-garbage_init() {
-   LIST_GARBAGE = list_new();
-}
-
-void
-garbage_destroy() {
-   garbage_collect();
-   if (!list_empty(LIST_GARBAGE)) {
-      EPRINTF("The garbage collector still has %d registered items "
-              " which don't have a zero ref count!\n",
-              list_size(LIST_GARBAGE));
-
-      _GARBAGE_ERROR("Garbage left");
-   }
-
-   list_delete(LIST_GARBAGE);
-}
-
-int
-garbage_collect() {
-   ListIterator *p_iter = listiterator_new(LIST_GARBAGE);
-   List *p_list_garbage_new = list_new();
-   int i_count = 0;
-
-   while (listiterator_has_next(p_iter)) {
-      _Garbage *p_garbage = listiterator_next(p_iter);
-
-      if (p_garbage->p_ref_count == NULL || *p_garbage->p_ref_count <= 0) {
-#ifdef DEBUG_GC
-         printf("DEBUG::GC: Freeing ");
-         if (NULL != p_garbage->p_print)
-            (*p_garbage->p_print) (p_garbage->p_2free);
-         else
-            printf("0x%x\n", (int) p_garbage->p_2free);
-#endif /* DEBUG_GC */
-         (*p_garbage->p_func) (p_garbage->p_2free);
-         free(p_garbage);
-         ++i_count;
-
-      } else {
-         list_add_back(p_list_garbage_new, p_garbage);
-      }
-   }
-
-   listiterator_delete(p_iter);
-
-   list_delete(LIST_GARBAGE);
-   LIST_GARBAGE = p_list_garbage_new;
-#ifdef DEBUG_GC
-   printf("DEBUG::GC: Freed %d items\n", i_count);
-#endif /* DEBUG_GC */
-
-   return (i_count);
-}
-
-void
-garbage_add(void *p, GarbageType type) {
-   garbage_add2(p, free, NULL, type);
-}
-
-void
-garbage_add2(void *p,
-             void (*p_func)(void*),
-             int *p_ref_count,
-             GarbageType type) {
-   garbage_add3(p, free, p_func, NULL, type);
-}
-
-void
-garbage_add3(void *p,
-             void (*p_func)(void*),
-             void (*p_print)(void*),
-             int *p_ref_count,
-             GarbageType type) {
-
-   _Garbage *p_garbage = malloc(sizeof(_Garbage));
-
-   p_garbage->p_2free = p;
-   p_garbage->p_func = p_func;
-   p_garbage->p_print = p_print;
-   p_garbage->p_ref_count = p_ref_count;
-   p_garbage->type = type;
-
-   list_add_back(LIST_GARBAGE, p_garbage);
-}
-
-void
-garbage_add_token(Token *p_token) {
-   garbage_add3(p_token,
-                token_delete_cb,
-                token_print_cb,
-                &p_token->i_ref_count, GC_TOKEN);
-}