File: ZFlsSubs.c

package info (click to toggle)
pidgin 2.13.0-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 56,920 kB
  • sloc: ansic: 281,868; sh: 4,572; makefile: 3,297; python: 1,253; perl: 529; cs: 209; tcl: 96; xml: 9
file content (33 lines) | stat: -rw-r--r-- 741 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZFlushSubscriptions function.
 *
 *	Created by:	Robert French
 *
 *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
 *	For copying and distribution information, see the file
 *	"mit-copyright.h".
 */

#include "internal.h"

Code_t ZFlushSubscriptions()
{
	register int i;

	if (!__subscriptions_list)
		return (ZERR_NONE);

	for (i=0;i<__subscriptions_num;i++) {
		free(__subscriptions_list[i].zsub_class);
		free(__subscriptions_list[i].zsub_classinst);
		free(__subscriptions_list[i].zsub_recipient);
	}

	free((char *)__subscriptions_list);

	__subscriptions_list = 0;
	__subscriptions_num = 0;

	return (ZERR_NONE);
}