distrib/sources/beh/beh/beh_frebeaux.c

   1
   2 /* ###--------------------------------------------------------------### */
   3 /*                                                                      */
   4 /* file         : beh_frebeaux.c                                        */
   5 /* date         : Sep  3 1993                                           */
   6 /* version      : v106                                                  */
   7 /* authors      : Pirouz BAZARGAN SABET                                 */
   8 /* content      : low-level function                                    */
   9 /*                                                                      */
  10 /* ###--------------------------------------------------------------### */
  11
  12 #include <stdio.h>
  13 #include MUT_H
  14 #include LOG_H
  15 #include BEH_H
  16
  17 /* ###--------------------------------------------------------------### */
  18 /* function     : beh_frebeaux                                          */
  19 /* description  : delete a list of BEAUX structures and all objects     */
  20 /*                pointed by any os BEAUXs in the list                  */
  21 /* called func. : mbkfree                                               */
  22 /* ###--------------------------------------------------------------### */
  23
  24 void beh_frebeaux (listbeaux)
  25
  26 struct beaux *listbeaux;        /* list of beaux to be deleted          */
  27
  28   {
  29   struct beaux *ptbeaux;
  30
  31         /* ###------------------------------------------------------### */
  32         /*    for each object of the list, first delete pointed objects */
  33         /* then, delete the object itself                               */
  34         /* ###------------------------------------------------------### */
  35
  36   while (listbeaux != NULL)
  37     {
  38     freeExpr (listbeaux->ABL);
  39
  40     ptbeaux   = listbeaux;
  41     listbeaux = listbeaux->NEXT;
  42     mbkfree (ptbeaux);
  43     }
  44
  45   }