diff plugins/zephyr/ZGetLocs.c @ 1700:1e0fa7e130d0

[gaim-migrate @ 1710] Zephyr. committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/zephyr/ZGetLocs.c	Thu Apr 12 09:21:16 2001 +0000
@@ -0,0 +1,44 @@
+/* This file is part of the Project Athena Zephyr Notification System.
+ * It contains source for the ZGetLocations function.
+ *
+ *	Created by:	Robert French
+ *
+ *	$Source$
+ *	$Author: warmenhoven $
+ *
+ *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
+ *	For copying and distribution information, see the file
+ *	"mit-copyright.h". 
+ */
+/* $Header$ */
+
+#ifndef lint
+static char rcsid_ZGetLocations_c[] = "$Header$";
+#endif
+
+#include <internal.h>
+
+#define min(a,b) ((a)<(b)?(a):(b))
+	
+Code_t ZGetLocations(location, numlocs)
+    ZLocations_t *location;
+    int *numlocs;
+{
+    int i;
+	
+    if (!__locate_list)
+	return (ZERR_NOLOCATIONS);
+
+    if (__locate_next == __locate_num)
+	return (ZERR_NOMORELOCS);
+	
+    for (i=0;i<min(*numlocs, __locate_num-__locate_next);i++)
+	location[i] = __locate_list[i+__locate_next];
+
+    if (__locate_num-__locate_next < *numlocs)
+	*numlocs = __locate_num-__locate_next;
+
+    __locate_next += *numlocs;
+	
+    return (ZERR_NONE);
+}