close.ch

Close any open input files before exiting.
Otherwise they will be closed automatically,
which may result to "Segmentation fault" on
old systems (due to the glibc bug in handling
wide-character streams).

@x
  return reset_OK(*f);
@y
  if (f->f != NULL) list_add(f->f);
  return reset_OK(*f);
@z

@x
{@+close((*f));
@y
{ list_delete(f->f); close(*f);
@z

@x
initialize(); /*set global variables to their starting values*/ 
@y
atexit(list_close);
initialize(); /*set global variables to their starting values*/ 
@z

===== Definitions of list_add, list_delete and list_close: =====

@x
@ Appendix: Replacement of the string pool file.
@y
@<Compiler directives@>=
struct node {
   void *f;
   struct node *n;
};
typedef struct node * node;
node list_head = NULL;

void list_add(void *f)
{
   if (f == NULL) return;
   node e = (node) malloc(sizeof (struct node));
   e->f = f, e->n = list_head, list_head = e;
}

void list_delete(void *f)
{
  node c = list_head;
  node p = NULL;
  if (list_head == NULL) return;
  while (c->f != f)
    if (c->n == NULL) return;
    else p = c, c = c->n;
  if (c == list_head) list_head = list_head->n;
  else p->n = c->n;
  free(c);
}

void list_close(void)
{
  for (node c = list_head; c != NULL; c = c->n) fclose(c->f);
}

@ Appendix: Replacement of the string pool file.
@z