/src/openssl/providers/implementations/ciphers/ciphercommon_gcm.inc

Source
/*
 * Copyright 2025 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the Apache License 2.0 (the \"License\").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */



/* Machine generated by util/perl/OpenSSL/paramnames.pm */
#ifndef ossl_cipher_gcm_get_ctx_params_list
static const OSSL_PARAM ossl_cipher_gcm_get_ctx_params_list[] = {
    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_KEYLEN, NULL),
    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_IVLEN, NULL),
    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_TAGLEN, NULL),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_IV, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_UPDATED_IV, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TAG, NULL, 0),
    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_TLS1_AAD_PAD, NULL),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_GET_IV_GEN, NULL, 0),
    OSSL_PARAM_uint(OSSL_CIPHER_PARAM_AEAD_IV_GENERATED, NULL),
    OSSL_PARAM_END
};
#endif

#ifndef ossl_cipher_gcm_get_ctx_params_st
struct ossl_cipher_gcm_get_ctx_params_st {
    OSSL_PARAM *gen;
    OSSL_PARAM *iv;
    OSSL_PARAM *ivgen;
    OSSL_PARAM *ivlen;
    OSSL_PARAM *keylen;
    OSSL_PARAM *pad;
    OSSL_PARAM *tag;
    OSSL_PARAM *taglen;
    OSSL_PARAM *updiv;
};
#endif

#ifndef ossl_cipher_gcm_get_ctx_params_decoder
static int ossl_cipher_gcm_get_ctx_params_decoder
    (const OSSL_PARAM *p, struct ossl_cipher_gcm_get_ctx_params_st *r)
{
    const char *s;

    memset(r, 0, sizeof(*r));
    if (p != NULL)
        for (; (s = p->key) != NULL; p++)
            switch(s[0]) {
            default:
                break;
            case 'i':
                switch(s[1]) {
                default:
                    break;
                case 'v':
                    switch(s[2]) {
                    default:
                        break;
                    case '-':
                        if (ossl_likely(strcmp("generated", s + 3) == 0)) {
                            /* OSSL_CIPHER_PARAM_AEAD_IV_GENERATED */
                            if (ossl_unlikely(r->gen != NULL)) {
                                ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                               "param %s is repeated", s);
                                return 0;
                            }
                            r->gen = (OSSL_PARAM *)p;
                        }
                        break;
                    case 'l':
                        if (ossl_likely(strcmp("en", s + 3) == 0)) {
                            /* OSSL_CIPHER_PARAM_IVLEN */
                            if (ossl_unlikely(r->ivlen != NULL)) {
                                ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                               "param %s is repeated", s);
                                return 0;
                            }
                            r->ivlen = (OSSL_PARAM *)p;
                        }
                        break;
                    case '\0':
                        if (ossl_unlikely(r->iv != NULL)) {
                            ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                           "param %s is repeated", s);
                            return 0;
                        }
                        r->iv = (OSSL_PARAM *)p;
                    }
                }
                break;
            case 'k':
                if (ossl_likely(strcmp("eylen", s + 1) == 0)) {
                    /* OSSL_CIPHER_PARAM_KEYLEN */
                    if (ossl_unlikely(r->keylen != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->keylen = (OSSL_PARAM *)p;
                }
                break;
            case 't':
                switch(s[1]) {
                default:
                    break;
                case 'a':
                    switch(s[2]) {
                    default:
                        break;
                    case 'g':
                        switch(s[3]) {
                        default:
                            break;
                        case 'l':
                            if (ossl_likely(strcmp("en", s + 4) == 0)) {
                                /* OSSL_CIPHER_PARAM_AEAD_TAGLEN */
                                if (ossl_unlikely(r->taglen != NULL)) {
                                    ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                   "param %s is repeated", s);
                                    return 0;
                                }
                                r->taglen = (OSSL_PARAM *)p;
                            }
                            break;
                        case '\0':
                            if (ossl_unlikely(r->tag != NULL)) {
                                ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                               "param %s is repeated", s);
                                return 0;
                            }
                            r->tag = (OSSL_PARAM *)p;
                        }
                    }
                    break;
                case 'l':
                    switch(s[2]) {
                    default:
                        break;
                    case 's':
                        switch(s[3]) {
                        default:
                            break;
                        case 'a':
                            if (ossl_likely(strcmp("adpad", s + 4) == 0)) {
                                /* OSSL_CIPHER_PARAM_AEAD_TLS1_AAD_PAD */
                                if (ossl_unlikely(r->pad != NULL)) {
                                    ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                   "param %s is repeated", s);
                                    return 0;
                                }
                                r->pad = (OSSL_PARAM *)p;
                            }
                            break;
                        case 'i':
                            if (ossl_likely(strcmp("vgen", s + 4) == 0)) {
                                /* OSSL_CIPHER_PARAM_AEAD_TLS1_GET_IV_GEN */
                                if (ossl_unlikely(r->ivgen != NULL)) {
                                    ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                   "param %s is repeated", s);
                                    return 0;
                                }
                                r->ivgen = (OSSL_PARAM *)p;
                            }
                        }
                    }
                }
                break;
            case 'u':
                if (ossl_likely(strcmp("pdated-iv", s + 1) == 0)) {
                    /* OSSL_CIPHER_PARAM_UPDATED_IV */
                    if (ossl_unlikely(r->updiv != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->updiv = (OSSL_PARAM *)p;
                }
            }
    return 1;
}
#endif
/* End of machine generated */

/* Machine generated by util/perl/OpenSSL/paramnames.pm */
#ifndef ossl_cipher_gcm_set_ctx_params_list
static const OSSL_PARAM ossl_cipher_gcm_set_ctx_params_list[] = {
    OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_IVLEN, NULL),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TAG, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_AAD, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_IV_FIXED, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_SET_IV_INV, NULL, 0),
    OSSL_PARAM_END
};
#endif

#ifndef ossl_cipher_gcm_set_ctx_params_st
struct ossl_cipher_gcm_set_ctx_params_st {
    OSSL_PARAM *aad;
    OSSL_PARAM *fixed;
    OSSL_PARAM *inviv;
    OSSL_PARAM *ivlen;
    OSSL_PARAM *tag;
};
#endif

#ifndef ossl_cipher_gcm_set_ctx_params_decoder
static int ossl_cipher_gcm_set_ctx_params_decoder
    (const OSSL_PARAM *p, struct ossl_cipher_gcm_set_ctx_params_st *r)
{
    const char *s;

    memset(r, 0, sizeof(*r));
    if (p != NULL)
        for (; (s = p->key) != NULL; p++)
            switch(s[0]) {
            default:
                break;
            case 'i':
                if (ossl_likely(strcmp("vlen", s + 1) == 0)) {
                    /* OSSL_CIPHER_PARAM_AEAD_IVLEN */
                    if (ossl_unlikely(r->ivlen != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->ivlen = (OSSL_PARAM *)p;
                }
                break;
            case 't':
                switch(s[1]) {
                default:
                    break;
                case 'a':
                    if (ossl_likely(strcmp("g", s + 2) == 0)) {
                        /* OSSL_CIPHER_PARAM_AEAD_TAG */
                        if (ossl_unlikely(r->tag != NULL)) {
                            ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                           "param %s is repeated", s);
                            return 0;
                        }
                        r->tag = (OSSL_PARAM *)p;
                    }
                    break;
                case 'l':
                    switch(s[2]) {
                    default:
                        break;
                    case 's':
                        switch(s[3]) {
                        default:
                            break;
                        case 'a':
                            if (ossl_likely(strcmp("ad", s + 4) == 0)) {
                                /* OSSL_CIPHER_PARAM_AEAD_TLS1_AAD */
                                if (ossl_unlikely(r->aad != NULL)) {
                                    ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                   "param %s is repeated", s);
                                    return 0;
                                }
                                r->aad = (OSSL_PARAM *)p;
                            }
                            break;
                        case 'i':
                            switch(s[4]) {
                            default:
                                break;
                            case 'v':
                                switch(s[5]) {
                                default:
                                    break;
                                case 'f':
                                    if (ossl_likely(strcmp("ixed", s + 6) == 0)) {
                                        /* OSSL_CIPHER_PARAM_AEAD_TLS1_IV_FIXED */
                                        if (ossl_unlikely(r->fixed != NULL)) {
                                            ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                           "param %s is repeated", s);
                                            return 0;
                                        }
                                        r->fixed = (OSSL_PARAM *)p;
                                    }
                                    break;
                                case 'i':
                                    if (ossl_likely(strcmp("nv", s + 6) == 0)) {
                                        /* OSSL_CIPHER_PARAM_AEAD_TLS1_SET_IV_INV */
                                        if (ossl_unlikely(r->inviv != NULL)) {
                                            ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                                           "param %s is repeated", s);
                                            return 0;
                                        }
                                        r->inviv = (OSSL_PARAM *)p;
                                    }
                                }
                            }
                        }
                    }
                }
            }
    return 1;
}
#endif
/* End of machine generated */

Coverage Report

Created: 2025-11-07 06:36

Line	Count	Source
1		/*
2		* Copyright 2025 The OpenSSL Project Authors. All Rights Reserved.
3		*
4		* Licensed under the Apache License 2.0 (the \"License\"). You may not use
5		* this file except in compliance with the License. You can obtain a copy
6		* in the file LICENSE in the source distribution or at
7		* https://www.openssl.org/source/license.html
8		*/
9
10
11
12		/* Machine generated by util/perl/OpenSSL/paramnames.pm */
13		#ifndef ossl_cipher_gcm_get_ctx_params_list
14		static const OSSL_PARAM ossl_cipher_gcm_get_ctx_params_list[] = {
15		OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_KEYLEN, NULL),
16		OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_IVLEN, NULL),
17		OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_TAGLEN, NULL),
18		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_IV, NULL, 0),
19		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_UPDATED_IV, NULL, 0),
20		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TAG, NULL, 0),
21		OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_TLS1_AAD_PAD, NULL),
22		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_GET_IV_GEN, NULL, 0),
23		OSSL_PARAM_uint(OSSL_CIPHER_PARAM_AEAD_IV_GENERATED, NULL),
24		OSSL_PARAM_END
25		};
26		#endif
27
28		#ifndef ossl_cipher_gcm_get_ctx_params_st
29		struct ossl_cipher_gcm_get_ctx_params_st {
30		OSSL_PARAM *gen;
31		OSSL_PARAM *iv;
32		OSSL_PARAM *ivgen;
33		OSSL_PARAM *ivlen;
34		OSSL_PARAM *keylen;
35		OSSL_PARAM *pad;
36		OSSL_PARAM *tag;
37		OSSL_PARAM *taglen;
38		OSSL_PARAM *updiv;
39		};
40		#endif
41
42		#ifndef ossl_cipher_gcm_get_ctx_params_decoder
43		static int ossl_cipher_gcm_get_ctx_params_decoder
44		(const OSSL_PARAM p, struct ossl_cipher_gcm_get_ctx_params_st r)
45	0	{
46	0	const char *s;
47
48	0	memset(r, 0, sizeof(*r));
49	0	if (p != NULL)
50	0	for (; (s = p->key) != NULL; p++)
51	0	switch(s[0]) {
52	0	default:
53	0	break;
54	0	case 'i':
55	0	switch(s[1]) {
56	0	default:
57	0	break;
58	0	case 'v':
59	0	switch(s[2]) {
60	0	default:
61	0	break;
62	0	case '-':
63	0	if (ossl_likely(strcmp("generated", s + 3) == 0)) {
64		/* OSSL_CIPHER_PARAM_AEAD_IV_GENERATED */
65	0	if (ossl_unlikely(r->gen != NULL)) {
66	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
67	0	"param %s is repeated", s);
68	0	return 0;
69	0	}
70	0	r->gen = (OSSL_PARAM *)p;
71	0	}
72	0	break;
73	0	case 'l':
74	0	if (ossl_likely(strcmp("en", s + 3) == 0)) {
75		/* OSSL_CIPHER_PARAM_IVLEN */
76	0	if (ossl_unlikely(r->ivlen != NULL)) {
77	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
78	0	"param %s is repeated", s);
79	0	return 0;
80	0	}
81	0	r->ivlen = (OSSL_PARAM *)p;
82	0	}
83	0	break;
84	0	case '\0':
85	0	if (ossl_unlikely(r->iv != NULL)) {
86	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
87	0	"param %s is repeated", s);
88	0	return 0;
89	0	}
90	0	r->iv = (OSSL_PARAM *)p;
91	0	}
92	0	}
93	0	break;
94	0	case 'k':
95	0	if (ossl_likely(strcmp("eylen", s + 1) == 0)) {
96		/* OSSL_CIPHER_PARAM_KEYLEN */
97	0	if (ossl_unlikely(r->keylen != NULL)) {
98	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
99	0	"param %s is repeated", s);
100	0	return 0;
101	0	}
102	0	r->keylen = (OSSL_PARAM *)p;
103	0	}
104	0	break;
105	0	case 't':
106	0	switch(s[1]) {
107	0	default:
108	0	break;
109	0	case 'a':
110	0	switch(s[2]) {
111	0	default:
112	0	break;
113	0	case 'g':
114	0	switch(s[3]) {
115	0	default:
116	0	break;
117	0	case 'l':
118	0	if (ossl_likely(strcmp("en", s + 4) == 0)) {
119		/* OSSL_CIPHER_PARAM_AEAD_TAGLEN */
120	0	if (ossl_unlikely(r->taglen != NULL)) {
121	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
122	0	"param %s is repeated", s);
123	0	return 0;
124	0	}
125	0	r->taglen = (OSSL_PARAM *)p;
126	0	}
127	0	break;
128	0	case '\0':
129	0	if (ossl_unlikely(r->tag != NULL)) {
130	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
131	0	"param %s is repeated", s);
132	0	return 0;
133	0	}
134	0	r->tag = (OSSL_PARAM *)p;
135	0	}
136	0	}
137	0	break;
138	0	case 'l':
139	0	switch(s[2]) {
140	0	default:
141	0	break;
142	0	case 's':
143	0	switch(s[3]) {
144	0	default:
145	0	break;
146	0	case 'a':
147	0	if (ossl_likely(strcmp("adpad", s + 4) == 0)) {
148		/* OSSL_CIPHER_PARAM_AEAD_TLS1_AAD_PAD */
149	0	if (ossl_unlikely(r->pad != NULL)) {
150	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
151	0	"param %s is repeated", s);
152	0	return 0;
153	0	}
154	0	r->pad = (OSSL_PARAM *)p;
155	0	}
156	0	break;
157	0	case 'i':
158	0	if (ossl_likely(strcmp("vgen", s + 4) == 0)) {
159		/* OSSL_CIPHER_PARAM_AEAD_TLS1_GET_IV_GEN */
160	0	if (ossl_unlikely(r->ivgen != NULL)) {
161	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
162	0	"param %s is repeated", s);
163	0	return 0;
164	0	}
165	0	r->ivgen = (OSSL_PARAM *)p;
166	0	}
167	0	}
168	0	}
169	0	}
170	0	break;
171	0	case 'u':
172	0	if (ossl_likely(strcmp("pdated-iv", s + 1) == 0)) {
173		/* OSSL_CIPHER_PARAM_UPDATED_IV */
174	0	if (ossl_unlikely(r->updiv != NULL)) {
175	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
176	0	"param %s is repeated", s);
177	0	return 0;
178	0	}
179	0	r->updiv = (OSSL_PARAM *)p;
180	0	}
181	0	}
182	0	return 1;
183	0	}
184		#endif
185		/* End of machine generated */
186
187		/* Machine generated by util/perl/OpenSSL/paramnames.pm */
188		#ifndef ossl_cipher_gcm_set_ctx_params_list
189		static const OSSL_PARAM ossl_cipher_gcm_set_ctx_params_list[] = {
190		OSSL_PARAM_size_t(OSSL_CIPHER_PARAM_AEAD_IVLEN, NULL),
191		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TAG, NULL, 0),
192		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_AAD, NULL, 0),
193		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_IV_FIXED, NULL, 0),
194		OSSL_PARAM_octet_string(OSSL_CIPHER_PARAM_AEAD_TLS1_SET_IV_INV, NULL, 0),
195		OSSL_PARAM_END
196		};
197		#endif
198
199		#ifndef ossl_cipher_gcm_set_ctx_params_st
200		struct ossl_cipher_gcm_set_ctx_params_st {
201		OSSL_PARAM *aad;
202		OSSL_PARAM *fixed;
203		OSSL_PARAM *inviv;
204		OSSL_PARAM *ivlen;
205		OSSL_PARAM *tag;
206		};
207		#endif
208
209		#ifndef ossl_cipher_gcm_set_ctx_params_decoder
210		static int ossl_cipher_gcm_set_ctx_params_decoder
211		(const OSSL_PARAM p, struct ossl_cipher_gcm_set_ctx_params_st r)
212	0	{
213	0	const char *s;
214
215	0	memset(r, 0, sizeof(*r));
216	0	if (p != NULL)
217	0	for (; (s = p->key) != NULL; p++)
218	0	switch(s[0]) {
219	0	default:
220	0	break;
221	0	case 'i':
222	0	if (ossl_likely(strcmp("vlen", s + 1) == 0)) {
223		/* OSSL_CIPHER_PARAM_AEAD_IVLEN */
224	0	if (ossl_unlikely(r->ivlen != NULL)) {
225	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
226	0	"param %s is repeated", s);
227	0	return 0;
228	0	}
229	0	r->ivlen = (OSSL_PARAM *)p;
230	0	}
231	0	break;
232	0	case 't':
233	0	switch(s[1]) {
234	0	default:
235	0	break;
236	0	case 'a':
237	0	if (ossl_likely(strcmp("g", s + 2) == 0)) {
238		/* OSSL_CIPHER_PARAM_AEAD_TAG */
239	0	if (ossl_unlikely(r->tag != NULL)) {
240	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
241	0	"param %s is repeated", s);
242	0	return 0;
243	0	}
244	0	r->tag = (OSSL_PARAM *)p;
245	0	}
246	0	break;
247	0	case 'l':
248	0	switch(s[2]) {
249	0	default:
250	0	break;
251	0	case 's':
252	0	switch(s[3]) {
253	0	default:
254	0	break;
255	0	case 'a':
256	0	if (ossl_likely(strcmp("ad", s + 4) == 0)) {
257		/* OSSL_CIPHER_PARAM_AEAD_TLS1_AAD */
258	0	if (ossl_unlikely(r->aad != NULL)) {
259	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
260	0	"param %s is repeated", s);
261	0	return 0;
262	0	}
263	0	r->aad = (OSSL_PARAM *)p;
264	0	}
265	0	break;
266	0	case 'i':
267	0	switch(s[4]) {
268	0	default:
269	0	break;
270	0	case 'v':
271	0	switch(s[5]) {
272	0	default:
273	0	break;
274	0	case 'f':
275	0	if (ossl_likely(strcmp("ixed", s + 6) == 0)) {
276		/* OSSL_CIPHER_PARAM_AEAD_TLS1_IV_FIXED */
277	0	if (ossl_unlikely(r->fixed != NULL)) {
278	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
279	0	"param %s is repeated", s);
280	0	return 0;
281	0	}
282	0	r->fixed = (OSSL_PARAM *)p;
283	0	}
284	0	break;
285	0	case 'i':
286	0	if (ossl_likely(strcmp("nv", s + 6) == 0)) {
287		/* OSSL_CIPHER_PARAM_AEAD_TLS1_SET_IV_INV */
288	0	if (ossl_unlikely(r->inviv != NULL)) {
289	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
290	0	"param %s is repeated", s);
291	0	return 0;
292	0	}
293	0	r->inviv = (OSSL_PARAM *)p;
294	0	}
295	0	}
296	0	}
297	0	}
298	0	}
299	0	}
300	0	}
301	0	return 1;
302	0	}
303		#endif
304		/* End of machine generated */