libpurple/protocols/zephyr/ZFlsSubs.c

   1 /* This file is part of the Project Athena Zephyr Notification System.
   2  * It contains source for the ZFlushSubscriptions function.
   3  *
   4  *      Created by:     Robert French
   5  *
   6  *      Copyright (c) 1987 by the Massachusetts Institute of Technology.
   7  *      For copying and distribution information, see the file
   8  *      "mit-copyright.h".
   9  */
  10
  11 #include "internal.h"
  12
  13 Code_t ZFlushSubscriptions()
  14 {
  15         register int i;
  16
  17         if (!__subscriptions_list)
  18                 return (ZERR_NONE);
  19
  20         for (i=0;i<__subscriptions_num;i++) {
  21                 free(__subscriptions_list[i].zsub_class);
  22                 free(__subscriptions_list[i].zsub_classinst);
  23                 free(__subscriptions_list[i].zsub_recipient);
  24         }
  25
  26         free((char *)__subscriptions_list);
  27
  28         __subscriptions_list = NULL;
  29         __subscriptions_num = 0;
  30
  31         return (ZERR_NONE);
  32 }
  33