view libpurple/protocols/zephyr/ZFlsLocs.c @ 24887:df6d3c3574ce

Make Purple::PluginPref->get_bounds be more perl-like. It no longer expects to be called as: $ppref->get_bounds($min, $max) or $ppref->get_bounds(\$min, \$max) (I'm not even sure which one of those was intended to be correct, but apparently they both crash.) It now expects to be called like this: my ($min, $max) = $ppref->get_bounds();

/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZFlushLocations 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 ZFlushLocations()
{
	int i;
	
	if (!__locate_list)
		return (ZERR_NONE);

	for (i=0;i<__locate_num;i++) {
		free(__locate_list[i].host);
		free(__locate_list[i].time);
		free(__locate_list[i].tty);
	}
	
	free((char *)__locate_list);

	__locate_list = 0;
	__locate_num = 0;

	return (ZERR_NONE);
}