--- psiconv/trunk/lib/psiconv/data.c	2001/01/22 20:36:50	97
+++ psiconv/trunk/lib/psiconv/data.c	2001/01/30 21:37:19	99
@@ -34,6 +34,7 @@
 static void psiconv_free_paragraph_aux(void * paragraph);
 static void psiconv_free_paint_data_section_aux(void * section);
 static void psiconv_free_clipart_section_aux(void * section);
+static void psiconv_free_formula_aux(void *data);
 
 static psiconv_word_styles_section psiconv_empty_word_styles_section(void);
 static psiconv_text_and_layout psiconv_empty_text_and_layout(void);
@@ -43,7 +44,7 @@
 static psiconv_word_status_section psiconv_empty_word_status_section(void);
 static psiconv_word_f psiconv_empty_word_f(void);
 static psiconv_sheet_status_section psiconv_empty_sheet_status_section(void);
-static psiconv_sheet_formula_list psiconv_empty_sheet_formula_list(void);
+static psiconv_formula_list psiconv_empty_formula_list(void);
 static psiconv_sheet_workbook_section 
                                   psiconv_empty_sheet_workbook_section(void);
 static psiconv_sheet_f psiconv_empty_sheet_f(void);
@@ -547,22 +548,43 @@
     free(section);
 }
 
-void psiconv_free_sheet_formula(psiconv_sheet_formula formula)
+void psiconv_free_formula_aux(void *data)
 {
-  if (formula)
+  psiconv_formula formula;
+  formula = data;
+  if (formula->type == psiconv_formula_dat_string) 
+    free(formula->data.dat_string);
+  else if ((formula->type != psiconv_formula_dat_int) &&
+           (formula->type != psiconv_formula_dat_var) &&
+           (formula->type != psiconv_formula_dat_float) &&
+           (formula->type != psiconv_formula_dat_cellref) &&
+           (formula->type != psiconv_formula_dat_cellblock) &&
+           (formula->type != psiconv_formula_dat_vcellblock) &&
+           (formula->type != psiconv_formula_mark_opsep) &&
+           (formula->type != psiconv_formula_mark_opend) &&
+           (formula->type != psiconv_formula_mark_eof)  &&
+           (formula->type != psiconv_formula_unknown)) 
+    psiconv_free_formula_list(formula->data.fun_operands);
+}
+
+void psiconv_free_formula(psiconv_formula formula)
+{
+  if (formula) {
+    psiconv_free_formula_aux(formula);
     free(formula);
+  }
 }
 
-void psiconv_free_sheet_formula_list(psiconv_sheet_formula_list list)
+void psiconv_free_formula_list(psiconv_formula_list list)
 {
-  if (list)
-    psiconv_list_free(list);
+  if (list) 
+    psiconv_list_free_el(list,psiconv_free_formula_aux);
 }
 
 void psiconv_free_sheet_workbook_section(psiconv_sheet_workbook_section section)
 {
   if (section) {
-    psiconv_free_sheet_formula_list(section->formulas);
+    psiconv_free_formula_list(section->formulas);
     free(section);
   }
 }
@@ -979,9 +1001,9 @@
   return result;
 }
 
-psiconv_sheet_formula_list psiconv_empty_sheet_formula_list(void)
+psiconv_formula_list psiconv_empty_formula_list(void)
 {
-  return psiconv_list_new(sizeof(struct psiconv_sheet_formula_s));
+  return psiconv_list_new(sizeof(struct psiconv_formula_s));
 }
 
 psiconv_sheet_workbook_section psiconv_empty_sheet_workbook_section(void)
@@ -989,7 +1011,7 @@
   psiconv_sheet_workbook_section result;
   if (!(result = malloc(sizeof(*result))))
     goto ERROR1;
-  if (!(result->formulas = psiconv_empty_sheet_formula_list()))
+  if (!(result->formulas = psiconv_empty_formula_list()))
     goto ERROR2;
   return result;
 ERROR2: