This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix typos; avoid use constant for lowercase constants (produces
[perl5.git] / perlapi.h
CommitLineData
51371543
GS
1/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
3 perlvars.h and thrdvar.h. Any changes made here will be lost!
4*/
5
51371543
GS
6/* declare accessor functions for Perl variables */
7
c5be433b
GS
8#if defined(PERL_OBJECT) || defined (PERL_CAPI)
9
10#if defined(PERL_OBJECT)
11# undef aTHXo
12# define aTHXo pPerl
13# undef aTHXo_
14# define aTHXo_ aTHXo,
c5be433b
GS
15#endif /* PERL_OBJECT */
16
51371543
GS
17START_EXTERN_C
18
19#undef PERLVAR
20#undef PERLVARA
21#undef PERLVARI
22#undef PERLVARIC
c5be433b 23#define PERLVAR(v,t) EXTERN_C t* Perl_##v##_ptr(pTHXo);
51371543 24#define PERLVARA(v,n,t) typedef t PL_##v##_t[n]; \
c5be433b 25 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHXo);
51371543 26#define PERLVARI(v,t,i) PERLVAR(v,t)
c5be433b 27#define PERLVARIC(v,t,i) PERLVAR(v, const t)
51371543
GS
28
29#include "thrdvar.h"
30#include "intrpvar.h"
31#include "perlvars.h"
32
33#undef PERLVAR
34#undef PERLVARA
35#undef PERLVARI
36#undef PERLVARIC
37
38END_EXTERN_C
39
c5be433b 40#endif /* PERL_OBJECT || PERL_CAPI */
51371543 41