workbench/libs/commodities/freebrokerlist.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include "cxintern.h"
  14 #include "proto/exec.h"
  15
  16     AROS_LH1(VOID, FreeBrokerList,
  17
  18 /*  SYNOPSIS */
  19
  20         AROS_LHA(struct List *, brokerList, A0),
  21
  22 /*  LOCATION */
  23
  24         struct Library *, CxBase, 32, Commodities)
  25
  26 /*  FUNCTION
  27
  28     Free the list of brokers obtained by calling GetBrokerList.
  29
  30     INPUTS
  31
  32     brokerList  --  List of commodity brokers (a list of struct BrokerCopy
  33                     nodes).
  34
  35     RESULT
  36
  37     NOTES
  38
  39     This function is present in AmigaOS too, but undocumented.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     cxintern.h
  48
  49     INTERNALS
  50
  51     Private function.
  52
  53     HISTORY
  54
  55 ******************************************************************************/
  56
  57 {
  58     AROS_LIBFUNC_INIT
  59
  60     struct BrokerCopy *brokerCopy;
  61
  62     while ((brokerCopy = (struct BrokerCopy *)RemHead(brokerList)) != NULL)
  63     {
  64         FreeVec(brokerCopy);
  65     }
  66
  67     AROS_LIBFUNC_EXIT
  68 } /* FreeBrokerList */