add fedex_plus/express memory cleanup function; SCL git f5d0cc5

Nicholas Reed · Nicholas Reed · commit 205debf1ba18 · 2012-06-19T15:53:06.000Z
diff --git a/include/express/dict.h b/include/express/dict.h
@@ -98,6 +98,7 @@ extern SCL_EXPRESS_EXPORT char DICT_type;  /**< set as a side-effect of DICT loo
 /***********************/
 
 extern SCL_EXPRESS_EXPORT void     DICTinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void     DICTcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT int      DICTdefine PROTO( ( Dictionary, char *, Generic, Symbol *, char ) );
 extern SCL_EXPRESS_EXPORT int      DICT_define PROTO( ( Dictionary, char *, Generic, Symbol *, char ) );
 extern SCL_EXPRESS_EXPORT void     DICTundefine PROTO( ( Dictionary, char * ) );
diff --git a/include/express/error.h b/include/express/error.h
@@ -172,10 +172,12 @@ static_inline void ERRORflush_messages( void ) {
 
 extern SCL_EXPRESS_EXPORT void ERRORinitialize PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void ERRORinitialize_after_LIST PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void ERRORcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void ERRORnospace PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void ERRORabort PROTO( ( int ) );
 extern SCL_EXPRESS_EXPORT Error    ERRORcreate PROTO( ( char *, Severity ) );
 extern SCL_EXPRESS_EXPORT void ERRORreport PROTO( ( Error, ... ) );
+extern SCL_EXPRESS_EXPORT void ERRORdestroy PROTO( ( Error ) );
 
 struct Symbol_; /* mention Symbol to avoid warning on following line */
 extern SCL_EXPRESS_EXPORT void ERRORreport_with_symbol PROTO( ( Error, struct Symbol_ *, ... ) );
diff --git a/include/express/expr.h b/include/express/expr.h
@@ -268,6 +268,7 @@ extern SCL_EXPRESS_EXPORT Expression   BIN_EXPcreate PROTO( ( Op_Code, Expressio
 extern SCL_EXPRESS_EXPORT Expression   TERN_EXPcreate PROTO( ( Op_Code, Expression, Expression, Expression ) );
 extern SCL_EXPRESS_EXPORT Expression   QUERYcreate PROTO( ( Symbol *, Expression ) );
 extern SCL_EXPRESS_EXPORT void     EXPinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void     EXPcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT Type     EXPtype PROTO( ( Expression, struct Scope_ * ) );
 extern SCL_EXPRESS_EXPORT int      EXPget_integer_value PROTO( ( Expression ) );
 
diff --git a/include/express/express.h b/include/express/express.h
@@ -248,8 +248,10 @@ extern SCL_EXPRESS_EXPORT char * KW_XOR;
 /***********************/
 
 extern SCL_EXPRESS_EXPORT Express  EXPRESScreate PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void     EXPRESSdestroy PROTO( ( Express ) );
 extern SCL_EXPRESS_EXPORT void     EXPRESSparse PROTO( ( Express, FILE *, char * ) );
 extern SCL_EXPRESS_EXPORT void     EXPRESSinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void     EXPRESScleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void     EXPRESSresolve PROTO( ( Express ) );
 extern SCL_EXPRESS_EXPORT char  *  EXPRESSversion PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT int      EXPRESS_fail PROTO( ( Express ) );
diff --git a/include/express/linklist.h b/include/express/linklist.h
@@ -131,6 +131,7 @@ extern SCL_EXPRESS_EXPORT Linked_List LINK__l;  /* for LISTcreate_with macro - u
 /***********************/
 
 extern SCL_EXPRESS_EXPORT void LISTinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void LISTcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT Linked_List LISTcreate PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT Linked_List LISTcopy PROTO( ( Linked_List ) );
 extern SCL_EXPRESS_EXPORT Generic  LISTadd_first PROTO( ( Linked_List, Generic ) );
diff --git a/include/express/object.h b/include/express/object.h
@@ -99,6 +99,7 @@ extern SCL_EXPRESS_EXPORT struct Object * OBJ;
 /***********************/
 
 extern SCL_EXPRESS_EXPORT void OBJinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void OBJcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void OBJcreate PROTO( ( char, struct Symbol_ * ( * )( Generic ), char *, int ) );
 extern SCL_EXPRESS_EXPORT Symbol * UNK_get_symbol PROTO( ( Generic x ) );
 
diff --git a/include/express/resolve.h b/include/express/resolve.h
@@ -72,6 +72,7 @@ extern SCL_EXPRESS_EXPORT Error ERROR_ambiguous_group;
 /***********************/
 
 extern SCL_EXPRESS_EXPORT void RESOLVEinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void RESOLVEcleanup PROTO( ( void ) );
 extern SCL_EXPRESS_EXPORT void SCOPEresolve_expressions_statements PROTO( ( Scope ) );
 extern SCL_EXPRESS_EXPORT void SCOPEresolve_subsupers PROTO( ( Scope ) );
 extern SCL_EXPRESS_EXPORT void SCOPEresolve_types PROTO( ( Scope ) );
diff --git a/include/express/schema.h b/include/express/schema.h
@@ -155,6 +155,7 @@ extern SCL_EXPRESS_EXPORT Generic  SCHEMAfind PROTO( ( Schema, char * name, int
 extern SCL_EXPRESS_EXPORT Scope    SCOPEcreate PROTO( ( char ) );
 extern SCL_EXPRESS_EXPORT Scope    SCOPEcreate_tiny PROTO( ( char ) );
 extern SCL_EXPRESS_EXPORT Scope    SCOPEcreate_nostab PROTO( ( char ) );
+extern SCL_EXPRESS_EXPORT void     SCOPEdestroy PROTO( ( Scope ) );
 extern SCL_EXPRESS_EXPORT Linked_List SCHEMAget_entities_use PROTO( ( Scope ) );
 extern SCL_EXPRESS_EXPORT Linked_List SCHEMAget_entities_ref PROTO( ( Scope ) );
 
diff --git a/include/express/type.h b/include/express/type.h
@@ -309,6 +309,7 @@ extern SCL_EXPRESS_EXPORT Type TYPEcreate_name PROTO( ( struct Symbol_ * ) );
 extern SCL_EXPRESS_EXPORT Type TYPEcreate_nostab PROTO( ( struct Symbol_ *, Scope, char ) );
 extern SCL_EXPRESS_EXPORT TypeBody TYPEBODYcreate PROTO( ( enum type_enum ) );
 extern SCL_EXPRESS_EXPORT void TYPEinitialize PROTO( ( void ) );
+extern SCL_EXPRESS_EXPORT void TYPEcleanup PROTO( ( void ) );
 
 extern SCL_EXPRESS_EXPORT bool TYPEinherits_from PROTO( ( Type, enum type_enum ) );
 extern SCL_EXPRESS_EXPORT Type TYPEget_nonaggregate_base_type PROTO( ( Type ) );
diff --git a/src/express/dict.c b/src/express/dict.c
@@ -65,6 +65,12 @@ void DICTinitialize( void ) {
                                          "Redeclaration of %s.  Previous declaration was on line %d in file %s.", SEVERITY_ERROR );
 }
 
+/** Clean up the Dictionary module */
+void DICTcleanup( void ) {
+    ERRORdestroy( ERROR_duplicate_decl );
+    ERRORdestroy( ERROR_duplicate_decl_diff_file );
+}
+
 /**
  * Define anything in a dictionary.  Generates an
  * error directly if there is a duplicate value.
diff --git a/src/express/error.c b/src/express/error.c
@@ -142,6 +142,14 @@ void ERRORinitialize( void ) {
 #endif
 }
 
+/** Clean up the Error module */
+void ERRORcleanup( void ) {
+    ERRORdestroy( ERROR_subordinate_failed );
+    ERRORdestroy( ERROR_syntax_expecting );
+
+    scl_free( ERROR_string_base );
+}
+
 /** Need the LIST routines to complete ERROR initialization */
 void ERRORinitialize_after_LIST( void ) {
     ERRORwarnings = LISTcreate();
@@ -436,6 +444,10 @@ Error ERRORcreate( char * message, Severity severity ) {
     return n;
 }
 
+void ERRORdestroy( Error error ) {
+    scl_free( error );
+}
+
 /** \fn ERRORbuffer_messages
 ** \param flag    - to buffer or not to buffer
 ** Selects buffering of error messages
diff --git a/src/express/expr.c b/src/express/expr.c
@@ -232,6 +232,20 @@ void EXPinitialize( void ) {
     EXPop_init();
 }
 
+void EXPcleanup( void ) {
+    ERRORdestroy( ERROR_integer_expression_expected );
+    ERRORdestroy( ERROR_internal_unrecognized_op_in_EXPresolve );
+    ERRORdestroy( ERROR_attribute_reference_on_aggregate );
+    ERRORdestroy( ERROR_attribute_ref_from_nonentity );
+    ERRORdestroy( ERROR_indexing_illegal );
+    ERRORdestroy( ERROR_warn_indexing_mixed );
+    ERRORdestroy( ERROR_enum_no_such_item );
+    ERRORdestroy( ERROR_group_ref_no_such_entity );
+    ERRORdestroy( ERROR_group_ref_unexpected_type );
+    ERRORdestroy( ERROR_implicit_downcast );
+    ERRORdestroy( ERROR_ambig_implicit_downcast );
+}
+
 /**
  * \param s_id the search id, a parameter to avoid colliding with ENTITYfind...
  * there will be no ambiguities, since we're looking at (and marking)
diff --git a/src/express/express.c b/src/express/express.c
@@ -279,6 +279,15 @@ Express EXPRESScreate() {
     return model;
 }
 
+void EXPRESSdestroy( Express model ) {
+    if ( model->u.express->basename )
+        scl_free( model->u.express->basename );
+    if ( model->u.express->filename )
+        scl_free( model->u.express->filename );
+    scl_free( model->u.express );
+    SCOPEdestroy( model );
+}
+
 #define MAX_SCHEMA_FILENAME_SIZE    256
 typedef struct Dir {
     char full[MAX_SCHEMA_FILENAME_SIZE];
@@ -356,6 +365,13 @@ static void EXPRESS_PATHinit() {
     }
 }
 
+static void EXPRESS_PATHfree( void ) {
+    LISTdo( EXPRESS_path, dir, Dir * )
+        scl_free( dir );
+    LISTod
+    LISTfree( EXPRESS_path );
+}
+
 /** inform object system about bit representation for handling pass diagnostics */
 void PASSinitialize() {
     OBJcreate( OBJ_PASS, UNK_get_symbol, "pass", OBJ_PASS_BITS );
@@ -483,6 +499,30 @@ void EXPRESSinitialize( void ) {
     EXPRESS_PATHinit(); /* note, must follow defn of errors it needs! */
 }
 
+/** Clean up the EXPRESS package. */
+void EXPRESScleanup( void ) {
+    EXPRESS_PATHfree();
+
+    ERRORdestroy( ERROR_bail_out );
+    ERRORdestroy( ERROR_syntax );
+    ERRORdestroy( ERROR_ref_nonexistent );
+    ERRORdestroy( ERROR_tilde_expansion_failed );
+    ERRORdestroy( ERROR_schema_not_in_own_schema_file );
+    ERRORdestroy( ERROR_unlabelled_param_type );
+    ERRORdestroy( ERROR_file_unreadable );
+    ERRORdestroy( ERROR_file_unwriteable );
+    ERRORdestroy( ERROR_warn_unsupported_lang_feat );
+
+    DICTcleanup();
+    OBJcleanup();
+    ERRORcleanup();
+    RESOLVEcleanup();
+    TYPEcleanup();
+    EXPcleanup();
+    SCANcleanup();
+    LISTcleanup();
+}
+
 /**
 ** \param file  - Express source file to parse
 ** \return resulting Working Form model
diff --git a/src/express/fedex.c b/src/express/fedex.c
@@ -124,13 +124,13 @@ static void usage( void ) {
     exit( 2 );
 }
 
-int
-main( int argc, char ** argv ) {
+int main( int argc, char ** argv ) {
     int c;
     int rc;
     char * cp;
     int no_warnings = 1;
     int resolve = 1;
+    int result;
     int no_need_to_work = 0;/* TRUE if we can exit gracefully without */
     /* doing any work */
 
@@ -239,6 +239,7 @@ main( int argc, char ** argv ) {
     if( !filename ) {
         filename = argv[optind];
         if( !filename ) {
+            EXPRESScleanup();
             if( no_need_to_work ) {
                 return( 0 );
             } else {
@@ -259,7 +260,10 @@ main( int argc, char ** argv ) {
     model = EXPRESScreate();
     EXPRESSparse( model, ( FILE * )0, filename );
     if( ERRORoccurred ) {
-        return( EXPRESS_fail( model ) );
+        result = EXPRESS_fail( model );
+        EXPRESScleanup();
+        EXPRESSdestroy( model );
+        return result;
     }
 
 #ifdef debugging
@@ -272,7 +276,10 @@ main( int argc, char ** argv ) {
     if( resolve ) {
         EXPRESSresolve( model );
         if( ERRORoccurred ) {
-            return( EXPRESS_fail( model ) );
+            result = EXPRESS_fail( model ); 
+            EXPRESScleanup();
+            EXPRESSdestroy( model );
+            return result;
         }
     }
 
@@ -281,8 +288,14 @@ main( int argc, char ** argv ) {
     }
 
     if( ERRORoccurred ) {
-        return( EXPRESS_fail( model ) );
+        result = EXPRESS_fail( model );
+        EXPRESScleanup();
+        EXPRESSdestroy( model );
+        return result;
     }
 
-    return( EXPRESS_succeed( model ) );
+    result = EXPRESS_succeed( model ); 
+    EXPRESScleanup();
+    EXPRESSdestroy( model );
+    return result;
 }
diff --git a/src/express/lexact.c b/src/express/lexact.c
@@ -283,6 +283,19 @@ SCANinitialize( void ) {
     }
 }
 
+/** Clean up the Scan module */
+void SCANcleanup( void ) {
+    ERRORdestroy( ERROR_include_file );
+    ERRORdestroy( ERROR_unmatched_close_comment );
+    ERRORdestroy( ERROR_unmatched_open_comment );
+    ERRORdestroy( ERROR_unterminated_string );
+    ERRORdestroy( ERROR_encoded_string_bad_digit );
+    ERRORdestroy( ERROR_encoded_string_bad_count );
+    ERRORdestroy( ERROR_bad_identifier );
+    ERRORdestroy( ERROR_unexpected_character );
+    ERRORdestroy( ERROR_nonascii_char );
+}
+
 int
 SCANprocess_real_literal( const char * yytext ) {
     sscanf( yytext, "%lf", &( yylval.rVal ) );
diff --git a/src/express/linklist.c b/src/express/linklist.c
@@ -39,6 +39,10 @@ LISTinitialize( void ) {
 
 }
 
+void LISTcleanup( void ) {
+    ERRORdestroy( ERROR_empty_list );
+}
+
 Linked_List
 LISTcreate() {
     Linked_List list = LIST_new();
diff --git a/src/express/object.c b/src/express/object.c
@@ -45,6 +45,11 @@ void OBJinitialize() {
     }
 }
 
+/** Clean up the Object module */
+void OBJcleanup() {
+    scl_free( OBJ );
+}
+
 void OBJcreate( char type, struct Symbol_ * ( *get_symbol )( Generic ), char * printable_type, int bits ) {
     OBJ[type].get_symbol = get_symbol;
     OBJ[type].type = printable_type;
diff --git a/src/express/resolve.c b/src/express/resolve.c
@@ -238,6 +238,53 @@ void RESOLVEinitialize( void ) {
 #endif
 }
 
+/** Clean up the Fed-X second pass */
+void RESOLVEcleanup( void ) {
+    ERRORdestroy( ERROR_undefined );
+    ERRORdestroy( ERROR_undefined_attribute );
+    ERRORdestroy( ERROR_undefined_type );
+    ERRORdestroy( ERROR_undefined_schema );
+    ERRORdestroy( ERROR_unknown_attr_in_entity );
+    ERRORdestroy( ERROR_unknown_subtype );
+    ERRORdestroy( ERROR_unknown_supertype );
+    ERRORdestroy( ERROR_circular_reference );
+    ERRORdestroy( ERROR_subsuper_loop );
+    ERRORdestroy( ERROR_subsuper_continuation );
+    ERRORdestroy( ERROR_select_loop );
+    ERRORdestroy( ERROR_select_continuation );
+    ERRORdestroy( ERROR_supertype_resolve );
+    ERRORdestroy( ERROR_subtype_resolve );
+    ERRORdestroy( ERROR_not_a_type );
+    ERRORdestroy( ERROR_funcall_not_a_function );
+    ERRORdestroy( ERROR_undefined_func );
+    ERRORdestroy( ERROR_expected_proc );
+    ERRORdestroy( ERROR_no_such_procedure );
+    ERRORdestroy( ERROR_wrong_arg_count );
+    ERRORdestroy( ERROR_query_requires_aggregate );
+    ERRORdestroy( ERROR_self_is_unknown );
+    ERRORdestroy( ERROR_inverse_bad_entity );
+    ERRORdestroy( ERROR_inverse_bad_attribute );
+    ERRORdestroy( ERROR_missing_supertype );
+    ERRORdestroy( ERROR_type_is_entity );
+    ERRORdestroy( ERROR_ambiguous_attribute );
+    ERRORdestroy( ERROR_ambiguous_group );
+    ERRORdestroy( ERROR_overloaded_attribute );
+    ERRORdestroy( ERROR_redecl_no_such_attribute );
+    ERRORdestroy( ERROR_redecl_no_such_supertype );
+    ERRORdestroy( ERROR_missing_self );
+
+    #if 0
+    ERRORdestroy( ERROR_undefined_object );
+    ERRORdestroy( ERROR_undefined_entity );
+    ERRORdestroy( ERROR_inappropriate_use );
+    ERRORdestroy( ERROR_overshadowed_reference );
+    ERRORdestroy( ERROR_overloaded_reference );
+    ERRORdestroy( ERROR_missing_subtype );
+    ERRORdestroy( ERROR_shadow_decl );
+    ERRORdestroy( ERROR_group_reference_syntax );
+    #endif
+}
+
 /**
 ** Retrieve the aggregate type from the underlying types of the select type t_select
 ** \param t_select the select type to retrieve the aggregate type from
diff --git a/src/express/schema.c b/src/express/schema.c
@@ -83,6 +83,10 @@ Scope SCOPEcreate_tiny( char type ) {
     return d;
 }
 
+void SCOPEdestroy( Scope scope ) {
+    SCOPE_destroy( scope );
+}
+
 /**
  * create a scope without a symbol table
  * used for simple types
diff --git a/src/express/type.c b/src/express/type.c
@@ -422,6 +422,12 @@ void TYPEinitialize() {
         ERRORcreate( "Undefined type tag %s", SEVERITY_ERROR );
 }
 
+/** Clean up the Type module */
+void TYPEcleanup( void ) {
+    ERRORdestroy( ERROR_corrupted_type );
+    ERRORdestroy( ERROR_undefined_tag );
+}
+
 /**
  * \param t type to examine
  * \return the base type of the aggregate type
