X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=obcl%2Fobcl.c;h=408a67ce19162db2df5bc5d911ad576d4b8eef34;hb=4b421dc811d01d7eb0b40edae5513ebdef9da440;hp=b4d9aeee157bbbe2f3c84633aecb2cbdbb5998a2;hpb=7aae14e9b83242c2778e57c069fb8f299b8172f3;p=chaz%2Fopenbox

diff --git a/obcl/obcl.c b/obcl/obcl.c
index b4d9aeee..408a67ce 100644
--- a/obcl/obcl.c
+++ b/obcl/obcl.c
@@ -1,22 +1,49 @@
 #include "obcl.h"
 
-void free_cl_tree(GList *tree)
+void cl_tree_free(GList *tree)
 {
+    CLNode *tmp;
+
+    if (!tree) return;
 
+    for (; tree; tree = tree->next) {
+        tmp = (CLNode*)tree->data;
+        switch(tmp->type) {
+        case CL_ID:
+        case CL_STR:
+            g_free(tmp->u.str);
+            break;
+        case CL_LIST:
+        case CL_BLOCK:
+        case CL_LISTBLOCK:
+            g_free(tmp->u.lb.id);
+            cl_tree_free(tmp->u.lb.list);
+            cl_tree_free(tmp->u.lb.block);
+            break;
+        default:
+            break;
+        }
+        g_free(tmp);
+    }
+    g_list_free(tree);
 }
 
 GList *cl_parse(gchar *file)
 {
     FILE *fh = fopen(file, "r");
-    if (fh)
-        return cl_parse_fh(fh);
-    else {
-        printf("can't open file %s\n", file);
-        return 0;
+    GList *ret = NULL;
+
+    if (fh) {
+        ret = cl_parse_fh(fh);
+        fclose(fh);
+    } else {
+        perror(file);
     }
+
+    return ret;
 }
 
-void cl_print_tree(GList *tree, int depth)
+void cl_tree_print(GList *tree, int depth)
 {
     CLNode *tmp;
     int tmpd = depth;
@@ -30,27 +57,27 @@ void cl_print_tree(GList *tree, int depth)
 
         switch(tmp->type) {
         case CL_ID:
-            printf("--ID-- %s\n", tmp->u.str);
+            printf("[ID] '%s'\n", tmp->u.str);
             break;
         case CL_STR:
-            printf("--STR-- %s\n", tmp->u.str);
+            printf("[STR] '%s'\n", tmp->u.str);
             break;
         case CL_NUM:
-            printf("--NUM-- %.2f\n", tmp->u.num);
+            printf("[NUM] %.2f\n", tmp->u.num);
             break;
         case CL_LIST:
-            printf("--LIST-- %s\n", tmp->u.lb.id);
-            cl_print_tree(tmp->u.lb.list, depth+2);
+            printf("[LIST] '%s'\n", tmp->u.lb.id);
+            cl_tree_print(tmp->u.lb.list, depth+2);
             break;
         case CL_BLOCK:
-            printf("--BLOCK-- %s\n", tmp->u.lb.id);
-            cl_print_tree(tmp->u.lb.block, depth+2);
+            printf("[BLOCK] '%s'\n", tmp->u.lb.id);
+            cl_tree_print(tmp->u.lb.block, depth+2);
             break;
         case CL_LISTBLOCK:
-            printf("--LISTBLOCK-- %s\n", tmp->u.lb.id);
-            cl_print_tree(tmp->u.lb.list, depth+2);
+            printf("[LISTBLOCK] %s\n", tmp->u.lb.id);
+            cl_tree_print(tmp->u.lb.list, depth+2);
             printf("\n");
-            cl_print_tree(tmp->u.lb.block, depth+2);
+            cl_tree_print(tmp->u.lb.block, depth+2);
             break;
         }
     }