1 /* This file is part of the Project Athena Zephyr Notification System.
2 * It contains source for the ZGetSubscriptions function.
4 * Created by: Robert French
8 * Copyright (c) 1987 by the Massachusetts Institute of Technology.
9 * For copying and distribution information, see the file
14 static char rcsid_ZGetSubscriptions_c[] = "$Id$";
19 #define min(a,b) ((a)<(b)?(a):(b))
21 Code_t ZGetSubscriptions(subscription, numsubs)
22 ZSubscription_t *subscription;
27 if (!__subscriptions_list)
28 return (ZERR_NOSUBSCRIPTIONS);
30 if (__subscriptions_next == __subscriptions_num)
31 return (ZERR_NOMORESUBSCRIPTIONS);
33 for (i=0;i<min(*numsubs, __subscriptions_num-__subscriptions_next);i++)
34 subscription[i] = __subscriptions_list[i+__subscriptions_next];
36 if (__subscriptions_num-__subscriptions_next < *numsubs)
37 *numsubs = __subscriptions_num-__subscriptions_next;
39 __subscriptions_next += *numsubs;