home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume8 / gnuplot1.10A / part07 / help / free_list.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-09-09  |  634 b   |  41 lines
  1. /*
  2.  * Program    : help
  3.  * Module    : free_list.c
  4.  * Programmer    : R. Stolfa
  5.  *
  6.  * Purpose :    To return to system memory a list of LIST structures
  7.  *
  8.  * Modification History:
  9.  *   08/27/87    Created
  10.  *   08/31/87    Changed default exit to be a call to "catch()"
  11.  */
  12.  
  13. #include    "global.h"
  14.  
  15. free_list (type)
  16. int    type;
  17. {
  18.     struct    LIST    *q;
  19.  
  20.     /*
  21.      * Check for valid type
  22.      */
  23.     if ((type < 0) || (type >= 3)) {
  24.         printf ("free_list:  error in type parameter %d\n", type);
  25.         catch ();
  26.         /* NOT REACHED */
  27.     }
  28.  
  29.     /*
  30.      * Clear the header
  31.      */
  32.     q = _list[type];
  33.     _list[type] = NULL;
  34.  
  35.     /*
  36.      * Clear the list
  37.      */
  38.     for ( ; q != NULL; q = q->prev)
  39.         free (q);
  40. }
  41.