1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/* $Id: ctxt_pop.c,v 1.1 2001/04/12 00:33:53 skaus Exp $
Pops the last added entry of the specified context tag.
It is duplicated into dynamic memory.
Returns: true on success
else displays any appropriate error message except "empty"
*/
#include "../config.h"
#include <assert.h>
#include <environ.h>
#include "../include/context.h"
#include "../include/misc.h"
#include "../err_fcts.h"
int ctxtPop(const Context_Tag tag, char ** const Xbuf)
{ ctxt_info_t *info;
char *buf;
ctxtCheckInfoTag(tag);
assert(Xbuf);
info = &CTXT_INFO_STRUCT(tag);
while(info->c_nummax > info->c_nummin)
switch(ctxtGet(1, tag, info->c_nummax--, &buf)) {
case 0: /* OK */
*Xbuf = buf;
return 1;
case 1: /* no such entry */
break; /* --> ifgnore silently */
case 2: /* out of memory */
error_out_of_memory();
return 0; /* will case "context empty" message */
}
/* Nothing in the stack ==> make sure it's consistent */
ctxtClear(tag);
return 0;
}
|
