oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Generate a `destroy_' function.

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@2228 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Assar Westerlund
1997-07-13 01:08:23 +00:00
parent cc5e794af6
commit 381d64348d
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/com_err/compile_et.awk
View File

@@ -92,6 +92,17 @@ END {
print " et->next = *list;" > c_file print " et->next = *list;" > c_file
print " *list = et;" > c_file print " *list = et;" > c_file
print "}" > c_file print "}" > c_file
print "" > c_file
print "void destroy_" name "_error_table (struct error_table *list)" > c_file
print "{" > c_file
print " struct error_table *next;" > c_file
print "" > c_file
print " while(list) {" > c_file
print " next = list->next;" > c_file
print " free(list);" > c_file
print " list = next;" > c_file
print " }" > c_file
print "}" > c_file
close(c_file) close(c_file)
print "\t" name "_num_errors = " number > h_file print "\t" name "_num_errors = " number > h_file

11
lib/error/compile_et.awk
View File

@@ -92,6 +92,17 @@ END {
print " et->next = *list;" > c_file print " et->next = *list;" > c_file
print " *list = et;" > c_file print " *list = et;" > c_file
print "}" > c_file print "}" > c_file
print "" > c_file
print "void destroy_" name "_error_table (struct error_table *list)" > c_file
print "{" > c_file
print " struct error_table *next;" > c_file
print "" > c_file
print " while(list) {" > c_file
print " next = list->next;" > c_file
print " free(list);" > c_file
print " list = next;" > c_file
print " }" > c_file
print "}" > c_file
close(c_file) close(c_file)
print "\t" name "_num_errors = " number > h_file print "\t" name "_num_errors = " number > h_file