Initial revision

1 files changed, 42 insertions, 0 deletions

diff --git a/lib/ZGetSubs.c b/lib/ZGetSubs.c
new file mode 100644
index 0000000..002a473
--- /dev/null
+++ b/lib/ZGetSubs.c
@@ -0,0 +1,42 @@
+/* This file is part of the Project Athena Zephyr Notification System.
+ * It contains source for the ZGetSubscriptions function.
+ *
+ *	Created by:	Robert French
+ *
+ *	$Source$
+ *	$Author$
+ *
+ *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
+ *	For copying and distribution information, see the file
+ *	"mit-copyright.h". 
+ */
+/* $Header$ */
+
+#include <zephyr/mit-copyright.h>
+
+#include <zephyr/zephyr_internal.h>
+
+#define min(a,b) ((a)<(b)?(a):(b))
+	
+Code_t ZGetSubscriptions(subscription,numsubs)
+	ZSubscription_t *subscription;
+	int *numsubs;
+{
+	int i;
+	
+	if (!__subscriptions_list)
+		return (ZERR_NOSUBSCRIPTIONS);
+
+	if (__subscriptions_next == __subscriptions_num)
+		return (ZERR_NOMORESUBSCRIPTIONS);
+	
+	for (i=0;i<min(*numsubs,__subscriptions_num-__subscriptions_next);i++)
+		subscription[i] = __subscriptions_list[i+__subscriptions_next];
+
+	if (__subscriptions_num-__subscriptions_next < *numsubs)
+		*numsubs = __subscriptions_num-__subscriptions_next;
+
+	__subscriptions_next += *numsubs;
+	
+	return (ZERR_NONE);
+}