pidgin/pidgin

Bump the versions and add checks for tcl/tk 8.6/8.7
release-2.x.y v2.13.0
2018-03-08, Gary Kramlich
0462a04774f8
Bump the versions and add checks for tcl/tk 8.6/8.7
/* This file is part of the Project Athena Zephyr Notification System.
* It contains source for the ZPeekIfNotice function.
*
* Created by: Robert French
*
* Copyright (c) 1987,1988 by the Massachusetts Institute of Technology.
* For copying and distribution information, see the file
* "mit-copyright.h".
*/
#include "internal.h"
#if 0
Code_t ZPeekIfNotice(notice, from, predicate, args)
ZNotice_t *notice;
struct sockaddr_in *from;
int (*predicate)();
char *args;
{
ZNotice_t tmpnotice;
Code_t retval;
char *buffer;
struct _Z_InputQ *qptr;
if ((retval = Z_WaitForComplete()) != ZERR_NONE)
return (retval);
for (;;) {
qptr = Z_GetFirstComplete();
while (qptr) {
if ((retval = ZParseNotice(qptr->packet, qptr->packet_len,
&tmpnotice)) != ZERR_NONE)
return (retval);
if ((*predicate)(&tmpnotice, args)) {
if (!(buffer = (char *) malloc((unsigned) qptr->packet_len)))
return (ENOMEM);
(void) memcpy(buffer, qptr->packet, qptr->packet_len);
if (from)
*from = qptr->from;
if ((retval = ZParseNotice(buffer, qptr->packet_len,
notice)) != ZERR_NONE) {
free(buffer);
return (retval);
}
return (ZERR_NONE);
}
qptr = Z_GetNextComplete(qptr);
}
if ((retval = Z_ReadWait()) != ZERR_NONE)
return (retval);
}
}
#endif