distrib/sources/beh/beh/beh_frebeout.c

   1
   2 /* ###--------------------------------------------------------------### */
   3 /*                                                                      */
   4 /* file         : beh_frebeout.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_frebeout                                          */
  19 /* description  : delete a list of BEOUT structures and all objects     */
  20 /*                pointed by any os BEOUTs in the list                  */
  21 /* called func. : mbkfree                                               */
  22 /* ###--------------------------------------------------------------### */
  23
  24 void beh_frebeout (listbeout)
  25
  26 struct beout *listbeout;        /* list of beout to be deleted          */
  27
  28   {
  29   struct beout *ptbeout;
  30
  31         /* ###------------------------------------------------------### */
  32         /*    for each object of the list, first delete pointed objects */
  33         /* then, delete the object itself                               */
  34         /* ###------------------------------------------------------### */
  35
  36   while (listbeout != NULL)
  37     {
  38     freeExpr (listbeout->ABL);
  39
  40     ptbeout   = listbeout;
  41     listbeout = listbeout->NEXT;
  42     mbkfree (ptbeout);
  43     }
  44
  45   }