PostgreSQL Source Code git master
api.c
Go to the documentation of this file.
1#include "header.h"
2
3extern struct SN_env * SN_create_env(int S_size, int I_size)
4{
5 struct SN_env * z = (struct SN_env *) calloc(1, sizeof(struct SN_env));
6 if (z == NULL) return NULL;
7 z->p = create_s();
8 if (z->p == NULL) goto error;
9 if (S_size)
10 {
11 int i;
12 z->S = (symbol * *) calloc(S_size, sizeof(symbol *));
13 if (z->S == NULL) goto error;
14
15 for (i = 0; i < S_size; i++)
16 {
17 z->S[i] = create_s();
18 if (z->S[i] == NULL) goto error;
19 }
20 }
21
22 if (I_size)
23 {
24 z->I = (int *) calloc(I_size, sizeof(int));
25 if (z->I == NULL) goto error;
26 }
27
28 return z;
29error:
30 SN_close_env(z, S_size);
31 return NULL;
32}
33
34extern void SN_close_env(struct SN_env * z, int S_size)
35{
36 if (z == NULL) return;
37 if (z->S)
38 {
39 int i;
40 for (i = 0; i < S_size; i++)
41 {
42 lose_s(z->S[i]);
43 }
44 free(z->S);
45 }
46 free(z->I);
47 if (z->p) lose_s(z->p);
48 free(z);
49}
50
51extern int SN_set_current(struct SN_env * z, int size, const symbol * s)
52{
53 int err = replace_s(z, 0, z->l, size, s, NULL);
54 z->c = 0;
55 return err;
56}
int SN_set_current(struct SN_env *z, int size, const symbol *s)
Definition: api.c:51
void SN_close_env(struct SN_env *z, int S_size)
Definition: api.c:34
struct SN_env * SN_create_env(int S_size, int I_size)
Definition: api.c:3
unsigned char symbol
Definition: api.h:2
void err(int eval, const char *fmt,...)
Definition: err.c:43
#define calloc(a, b)
Definition: header.h:55
#define free(a)
Definition: header.h:65
int i
Definition: isn.c:74
static void error(void)
Definition: sql-dyntest.c:147
Definition: api.h:14
symbol * p
Definition: api.h:15
int * I
Definition: api.h:18
int c
Definition: api.h:16
int l
Definition: api.h:16
symbol ** S
Definition: api.h:17
int replace_s(struct SN_env *z, int c_bra, int c_ket, int s_size, const symbol *s, int *adjptr)
Definition: utilities.c:374
void lose_s(symbol *p)
Definition: utilities.c:15
symbol * create_s(void)
Definition: utilities.c:5