# 1 "<stdin>"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "<stdin>"
# 1 "toke.c"
# 1 "EXTERN.h" 1
# 2 "toke.c" 2

# 1 "perl.h" 1
# 37 "perl.h"
# 1 "config.h" 1
# 38 "perl.h" 2
# 380 "perl.h"
# 1 "SDK:clib2/include/sys/types.h" 1 3 4
# 49 "SDK:clib2/include/sys/types.h" 3 4
typedef char * caddr_t;
typedef unsigned int comp_t;
typedef unsigned long dev_t;
typedef unsigned int gid_t;
typedef unsigned int ino_t;
typedef unsigned int mode_t;
typedef unsigned int nlink_t;
typedef long int off_t;
typedef int pid_t;
typedef unsigned int rlim_t;
typedef int ssize_t;
typedef unsigned int uid_t;




# 1 "SDK:clib2/include/time.h" 1 3 4
# 46 "SDK:clib2/include/time.h" 3 4
# 1 "SDK:clib2/include/stddef.h" 1 3 4
# 55 "SDK:clib2/include/stddef.h" 3 4
typedef int ptrdiff_t;
typedef unsigned int size_t;
typedef unsigned short wchar_t;
# 47 "SDK:clib2/include/time.h" 2 3 4
# 59 "SDK:clib2/include/time.h" 3 4
typedef unsigned long clock_t;
typedef unsigned long time_t;



struct tm
{
 int tm_sec;
 int tm_min;
 int tm_hour;
 int tm_mday;
 int tm_mon;
 int tm_year;
 int tm_wday;
 int tm_yday;
 int tm_isdst;
};



extern clock_t clock(void);
extern time_t time(time_t * t);
extern char *asctime(const struct tm *tm);
extern char *ctime(const time_t *t);
extern struct tm *gmtime(const time_t *t);
extern struct tm *localtime(const time_t *t);
extern time_t mktime(struct tm *tm);



extern double difftime(time_t t1,time_t t0);



extern size_t strftime(char *s, size_t maxsize, const char *format,
 const struct tm *tm);







extern char * asctime_r(const struct tm *tm,char * buffer);
extern char * ctime_r(const time_t *tptr,char * buffer);
extern struct tm * gmtime_r(const time_t *t,struct tm * tm_ptr);
extern struct tm * localtime_r(const time_t *t,struct tm * tm_ptr);
# 66 "SDK:clib2/include/sys/types.h" 2 3 4
# 381 "perl.h" 2
# 391 "perl.h"
# 1 "SDK:clib2/include/stdarg.h" 1 3 4
# 76 "SDK:clib2/include/stdarg.h" 3 4
# 1 "Work:SDK/gcc/bin/../lib/gcc/ppc-amigaos/3.4.4/include/stdarg.h" 1 3 4
# 43 "Work:SDK/gcc/bin/../lib/gcc/ppc-amigaos/3.4.4/include/stdarg.h" 3 4
typedef __builtin_va_list __gnuc_va_list;
# 105 "Work:SDK/gcc/bin/../lib/gcc/ppc-amigaos/3.4.4/include/stdarg.h" 3 4
typedef __gnuc_va_list va_list;
# 77 "SDK:clib2/include/stdarg.h" 2 3 4

# 1 "SDK:clib2/include/sys/amigaos-va.h" 1 3 4
# 79 "SDK:clib2/include/stdarg.h" 2 3 4
# 392 "perl.h" 2
# 411 "perl.h"
# 1 "SDK:clib2/include/ctype.h" 1 3 4
# 45 "SDK:clib2/include/ctype.h" 3 4
extern int isalnum(int c);
extern int isalpha(int c);
extern int iscntrl(int c);

extern int isdigit(int c);
extern int isxdigit(int c);

extern int isgraph(int c);
extern int ispunct(int c);
extern int isprint(int c);

extern int islower(int c);
extern int isupper(int c);

extern int isspace(int c);
extern int isblank(int c);

extern int tolower(int c);
extern int toupper(int c);
# 412 "perl.h" 2
# 423 "perl.h"
# 1 "SDK:clib2/include/locale.h" 1 3 4
# 55 "SDK:clib2/include/locale.h" 3 4
struct lconv
{
 char * decimal_point;
 char * thousands_sep;

 char * grouping;
 char * int_curr_symbol;


 char * currency_symbol;

 char * mon_decimal_point;

 char * mon_thousands_sep;

 char * mon_grouping;
 char * positive_sign;

 char * negative_sign;

 char int_frac_digits;


 char frac_digits;

 char p_cs_precedes;


 char p_sep_by_space;



 char n_cs_precedes;


 char n_sep_by_space;



 char p_sign_posn;


 char n_sign_posn;


};



extern char *setlocale(int category, const char *locale);
extern struct lconv *localeconv(void);
# 424 "perl.h" 2
# 440 "perl.h"
# 1 "SDK:clib2/include/setjmp.h" 1 3 4
# 57 "SDK:clib2/include/setjmp.h" 3 4
struct __jmp_buf
{
 void * jb_ReturnAddress;
 unsigned long jb_CondCode;
 void * jb_StackPointer;
 unsigned long jb_GPR[19];
 double jb_FPR[18];
};





typedef struct __jmp_buf jmp_buf[1];



extern int setjmp(jmp_buf env);
extern void longjmp(jmp_buf env,int status);
# 441 "perl.h" 2
# 451 "perl.h"
# 1 "SDK:clib2/include/stdlib.h" 1 3 4
# 68 "SDK:clib2/include/stdlib.h" 3 4
typedef struct { int quot; int rem; } div_t;
typedef struct { long quot; long rem; } ldiv_t;



extern int mblen(const char *s, size_t n);
extern int mbtowc(wchar_t *pwc, const char *s, size_t n);
extern int wctomb(char *s, wchar_t wchar);
extern size_t mbstowcs(wchar_t *pwcs, const char *s, size_t n);
extern size_t wcstombs(char *s, const wchar_t *pwcs, size_t n);



extern void *malloc(size_t size);
extern void *calloc(size_t num_elements,size_t element_size);
extern void free(void *ptr);
extern void *realloc(void *ptr,size_t size);
# 100 "SDK:clib2/include/stdlib.h" 3 4
extern int abs(int x);
extern long labs(long x);
extern div_t div(int n,int d);
extern ldiv_t ldiv(long n,long d);



extern int rand(void);
extern void srand(unsigned seed);



extern int system(const char *command);



extern void exit(int status);
extern void abort(void);



extern int atexit(void (*)(void));



extern char * getenv(const char *name);



extern void * bsearch(const void *key, const void *base, size_t count, size_t size,
 int (*compare)(const void * key,const void * value));
extern void qsort(void *base,size_t count,size_t size,
 int (*compare)(const void * element1,const void * element2));



extern double strtod(const char *str, char ** ptr);
extern long strtol(const char *str, char **ptr, int base);
extern unsigned long strtoul(const char *str, char **ptr, int base);



extern double atof(const char *str);
extern int atoi(const char *str);
extern long atol(const char *str);







extern int rand_r(unsigned int * seed);
# 171 "SDK:clib2/include/stdlib.h" 3 4
extern int setenv(const char *name, const char *value, int overwrite);
extern int putenv(const char *string);
extern void unsetenv(const char *name);
extern char * mktemp(char * name_template);
extern int mkstemp(char *name_template);
extern char * mkdtemp(char *name_template);
# 189 "SDK:clib2/include/stdlib.h" 3 4
extern long long strtoll(const char *str, char **ptr, int base);
extern unsigned long long strtoull(const char *str, char **ptr, int base);
extern long long atoll(const char *str);



typedef struct { long long quot; long long rem; } lldiv_t;



extern long long llabs(long long x);
extern lldiv_t lldiv(long long n,long long d);







extern float strtof(const char *str, char ** ptr);



extern void _Exit(int status);
# 452 "perl.h" 2







# 1 "SDK:include/netinclude/netinet/in.h" 1 3 4
# 55 "SDK:include/netinclude/netinet/in.h" 3 4
# 1 "SDK:include/include_h/exec/types.h" 1 3 4
# 19 "SDK:include/include_h/exec/types.h" 3 4
# 1 "SDK:include/include_h/amiga_compiler.h" 1 3 4
# 20 "SDK:include/include_h/exec/types.h" 2 3 4
# 60 "SDK:include/include_h/exec/types.h" 3 4
typedef void * APTR;
# 83 "SDK:include/include_h/exec/types.h" 3 4
typedef unsigned char uint8;
typedef signed char int8;

typedef unsigned short uint16;
typedef signed short int16;

typedef unsigned long uint32;
typedef signed long int32;


typedef unsigned long long uint64;
typedef signed long long int64;





typedef uint8 UBYTE;
typedef int8 BYTE;
typedef uint8 BYTEBITS;
typedef uint16 UWORD;
typedef int16 WORD;
typedef uint16 WORDBITS;
typedef uint32 ULONG;
typedef int32 LONG;
typedef uint32 LONGBITS;
typedef uint16 RPTR;






typedef char * STRPTR;







typedef const void * CONST_APTR;

typedef const char * CONST_STRPTR;







typedef short SHORT;
typedef unsigned short USHORT;
typedef short COUNT;
typedef unsigned short UCOUNT;
typedef ULONG CPTR;
# 153 "SDK:include/include_h/exec/types.h" 3 4
typedef float float32;
typedef double float64;
# 163 "SDK:include/include_h/exec/types.h" 3 4
typedef short BOOL;


typedef char TEXT;
# 56 "SDK:include/netinclude/netinet/in.h" 2 3 4





# 1 "SDK:include/netinclude/sys/socket.h" 1 3 4
# 64 "SDK:include/netinclude/sys/socket.h" 3 4
# 1 "SDK:clib2/include/string.h" 1 3 4
# 51 "SDK:clib2/include/string.h" 3 4
extern char *strerror(int error_number);
extern char *strcat(char *dest, const char *src);
extern char *strncat(char *dest, const char *src, size_t n);
extern int strcmp(const char *s1, const char * s2);
extern int strncmp(const char *s1, const char *s2, size_t n);
extern char *strcpy(char *dest, const char *src);
extern char *strncpy(char *dest, const char *src, size_t n);
extern size_t strlen(const char *s);
extern char *strchr(const char *s, int c);
extern char *strrchr(const char *s, int c);
extern size_t strspn(const char *s, const char *set);
extern size_t strcspn(const char *s, const char *set);
extern char *strpbrk(const char *s, const char *set);
extern char *strtok(char *str, const char *set);
extern char *strstr(const char *src, const char *sub);



extern int strcoll(const char *s1, const char *s2);
extern size_t strxfrm(char *dest, const char *src, size_t len);



extern void *memmove(void *dest, const void * src, size_t len);
extern void *memchr(const void * ptr, int val, size_t len);
# 85 "SDK:clib2/include/string.h" 3 4
extern int memcmp(const void *ptr1, const void *ptr2, size_t len);
extern void *memcpy(void *dest, const void *src, size_t len);
extern void *memset(void *ptr, int val, size_t len);
# 97 "SDK:clib2/include/string.h" 3 4
# 1 "SDK:clib2/include/strings.h" 1 3 4
# 56 "SDK:clib2/include/strings.h" 3 4
extern int strcasecmp(const char *s1, const char *s2);
extern int strncasecmp(const char *s1, const char *s2, size_t len);
extern int ffs(int i);
# 98 "SDK:clib2/include/string.h" 2 3 4




extern char * index(const char *s, int c);
extern char * rindex(const char *s, int c);



extern char * strdup(const char *s);
# 117 "SDK:clib2/include/string.h" 3 4
extern void bcopy(const void *from,void *to,size_t len);
extern void bzero(void *m,size_t len);
extern int bcmp(const void *a,const void *b,size_t len);



extern size_t strlcpy(char *dst, const char *src, size_t siz);
extern size_t strlcat(char *dst, const char *src, size_t siz);



extern char * strtok_r(char *str, const char *separator_set,char ** state_ptr);
# 65 "SDK:include/netinclude/sys/socket.h" 2 3 4






# 1 "SDK:clib2/include/sys/uio.h" 1 3 4
# 65 "SDK:clib2/include/sys/uio.h" 3 4
typedef struct iovec
{
 void * iov_base;
 size_t iov_len;
} iovec_t;



extern ssize_t readv(int file_descriptor,const struct iovec *iov,int vec_count);
extern ssize_t writev(int file_descriptor,const struct iovec *iov,int vec_count);
# 72 "SDK:include/netinclude/sys/socket.h" 2 3 4
# 84 "SDK:include/netinclude/sys/socket.h" 3 4
#pragma pack(2)
# 99 "SDK:include/netinclude/sys/socket.h" 3 4
typedef unsigned char sa_family_t;
typedef unsigned long socklen_t;
# 146 "SDK:include/netinclude/sys/socket.h" 3 4
struct linger {
 LONG l_onoff;
 LONG l_linger;
};
# 194 "SDK:include/netinclude/sys/socket.h" 3 4
struct sockaddr {
 UBYTE sa_len;
 sa_family_t sa_family;
 UBYTE sa_data[14];
};





struct sockproto {
 UWORD sp_family;
 UWORD sp_protocol;
};
# 275 "SDK:include/netinclude/sys/socket.h" 3 4
struct msghdr {
 APTR msg_name;
 socklen_t msg_namelen;
 struct iovec *msg_iov;
 ULONG msg_iovlen;
 APTR msg_control;
 socklen_t msg_controllen;
 LONG msg_flags;
};
# 300 "SDK:include/netinclude/sys/socket.h" 3 4
struct cmsghdr {
 socklen_t cmsg_len;
 LONG cmsg_level;
 LONG cmsg_type;

};
# 350 "SDK:include/netinclude/sys/socket.h" 3 4
typedef LONG fd_mask;






typedef struct fd_set {
 fd_mask fds_bits[(((256) + (((sizeof(fd_mask) * 8)) - 1)) / ((sizeof(fd_mask) * 8)))];
} fd_set;
# 373 "SDK:include/netinclude/sys/socket.h" 3 4
#pragma pack()
# 393 "SDK:include/netinclude/sys/socket.h" 3 4
# 1 "SDK:include/include_h/devices/timer.h" 1 3 4
# 18 "SDK:include/include_h/devices/timer.h" 3 4
# 1 "SDK:include/include_h/exec/io.h" 1 3 4
# 14 "SDK:include/include_h/exec/io.h" 3 4
# 1 "SDK:include/include_h/exec/ports.h" 1 3 4
# 14 "SDK:include/include_h/exec/ports.h" 3 4
# 1 "SDK:include/include_h/exec/nodes.h" 1 3 4
# 27 "SDK:include/include_h/exec/nodes.h" 3 4
#pragma pack(2)
# 39 "SDK:include/include_h/exec/nodes.h" 3 4
struct Node {
 struct Node * ln_Succ;
 struct Node * ln_Pred;
 UBYTE ln_Type;
 BYTE ln_Pri;
 char * ln_Name;
};


struct MinNode
{
 struct MinNode *mln_Succ;
 struct MinNode *mln_Pred;
};
# 61 "SDK:include/include_h/exec/nodes.h" 3 4
enum enNodeTypes
{
 NT_UNKNOWN = 0,
 NT_TASK = 1,
 NT_INTERRUPT = 2,
 NT_DEVICE = 3,
 NT_MSGPORT = 4,
 NT_MESSAGE = 5,
 NT_FREEMSG = 6,
 NT_REPLYMSG = 7,
 NT_RESOURCE = 8,
 NT_LIBRARY = 9,
 NT_MEMORY = 10,
 NT_SOFTINT = 11,
 NT_FONT = 12,
 NT_PROCESS = 13,
 NT_SEMAPHORE = 14,
 NT_SIGNALSEM = 15,
 NT_BOOTNODE = 16,
 NT_KICKMEM = 17,
 NT_GRAPHICS = 18,
 NT_DEATHMESSAGE = 19,


 NT_EXTINTERRUPT = 20,
 NT_EXTSOFTINT = 21,
 NT_VMAREA = 22,
 NT_VMAREA_PROXY = 23,
 NT_CLASS = 24,
 NT_INTERFACE = 25,


 NT_KMEMCACHE = 26,

 NT_USER = 254,
 NT_EXTENDED = 255
};





#pragma pack()
# 15 "SDK:include/include_h/exec/ports.h" 2 3 4



# 1 "SDK:include/include_h/exec/lists.h" 1 3 4
# 27 "SDK:include/include_h/exec/lists.h" 3 4
#pragma pack(2)
# 38 "SDK:include/include_h/exec/lists.h" 3 4
struct List
{
 struct Node * lh_Head;
 struct Node * lh_Tail;
 struct Node * lh_TailPred;
 UBYTE lh_Type;
 UBYTE l_pad;
};




struct MinList
{
 struct MinNode * mlh_Head;
 struct MinNode * mlh_Tail;
 struct MinNode * mlh_TailPred;
};
# 117 "SDK:include/include_h/exec/lists.h" 3 4
#pragma pack()
# 19 "SDK:include/include_h/exec/ports.h" 2 3 4
# 31 "SDK:include/include_h/exec/ports.h" 3 4
#pragma pack(2)







struct MsgPort
{
 struct Node mp_Node;
 UBYTE mp_Flags;
 UBYTE mp_SigBit;
 APTR mp_SigTask;
 struct List mp_MsgList;
};




enum enMsgPortFlags
{
 PF_ACTION = 3,
 PF_SIGALLOC = (1<<7)
};

enum enMsgPortActions
{
 PA_SIGNAL = 0,
 PA_SOFTINT = 1,
 PA_IGNORE = 2
};



struct Message
{
 struct Node mn_Node;
 struct MsgPort * mn_ReplyPort;
 UWORD mn_Length;


};





#pragma pack()
# 15 "SDK:include/include_h/exec/io.h" 2 3 4
# 27 "SDK:include/include_h/exec/io.h" 3 4
#pragma pack(2)







struct IORequest
{
 struct Message io_Message;
 struct Device * io_Device;
 struct Unit * io_Unit;
 UWORD io_Command;
 UBYTE io_Flags;
 BYTE io_Error;
};

struct IOStdReq
{
 struct Message io_Message;
 struct Device * io_Device;
 struct Unit * io_Unit;
 UWORD io_Command;
 UBYTE io_Flags;
 BYTE io_Error;
 ULONG io_Actual;
 ULONG io_Length;
 APTR io_Data;
 ULONG io_Offset;
};


enum enDeviceLibraryReserved
{
 DEV_BEGINIO = (-30),
 DEV_ABORTIO = (-36)
};





enum enDefaultDeviceCommands
{
 CMD_INVALID = 0,
 CMD_RESET = 1,
 CMD_READ = 2,
 CMD_WRITE = 3,
 CMD_UPDATE = 4,
 CMD_CLEAR = 5,
 CMD_STOP = 6,
 CMD_START = 7,
 CMD_FLUSH = 8,

 CMD_NONSTD = 9
};





#pragma pack()
# 19 "SDK:include/include_h/devices/timer.h" 2 3 4
# 29 "SDK:include/include_h/devices/timer.h" 3 4
#pragma pack(2)
# 38 "SDK:include/include_h/devices/timer.h" 3 4
enum enTimerUnits
{
 UNIT_MICROHZ = 0,
 UNIT_VBLANK = 1,
 UNIT_ECLOCK = 2,
 UNIT_WAITUNTIL = 3,
 UNIT_WAITECLOCK = 4,

 UNIT_ENTROPY = 5,
};
# 61 "SDK:include/include_h/devices/timer.h" 3 4
struct timeval
{
 ULONG tv_secs;
 ULONG tv_micro;
};






struct EClockVal
{
 ULONG ev_hi;
 ULONG ev_lo;
};



struct timerequest
{
 struct IORequest tr_node;
 struct timeval tr_time;
};



enum enTimerCmd
{
 TR_ADDREQUEST = CMD_NONSTD,
 TR_GETSYSTIME = (CMD_NONSTD+1),
 TR_SETSYSTIME = (CMD_NONSTD+2),
 TR_READENTROPY = (CMD_NONSTD+3)
};





#pragma pack()
# 394 "SDK:include/netinclude/sys/socket.h" 2 3 4
# 62 "SDK:include/netinclude/netinet/in.h" 2 3 4
# 74 "SDK:include/netinclude/netinet/in.h" 3 4
#pragma pack(2)
# 90 "SDK:include/netinclude/netinet/in.h" 3 4
typedef unsigned long in_addr_t;
typedef unsigned short in_port_t;
# 126 "SDK:include/netinclude/netinet/in.h" 3 4
struct in_addr {
 in_addr_t s_addr;
};
# 174 "SDK:include/netinclude/netinet/in.h" 3 4
struct sockaddr_in {
 UBYTE sin_len;
 sa_family_t sin_family;
 in_port_t sin_port;
 struct in_addr sin_addr;
 UBYTE sin_zero[8];
};
# 189 "SDK:include/netinclude/netinet/in.h" 3 4
struct ip_opts {
 struct in_addr ip_dst;
 UBYTE ip_options[40];
};
# 222 "SDK:include/netinclude/netinet/in.h" 3 4
struct ip_mreq {
 struct in_addr imr_multiaddr;
 struct in_addr imr_interface;
};
# 265 "SDK:include/netinclude/netinet/in.h" 3 4
#pragma pack()
# 460 "perl.h" 2


# 1 "SDK:clib2/include/unistd.h" 1 3 4
# 50 "SDK:clib2/include/unistd.h" 3 4
# 1 "SDK:clib2/include/fcntl.h" 1 3 4
# 89 "SDK:clib2/include/fcntl.h" 3 4
struct flock
{
 short l_type;
 short l_whence;
 off_t l_start;
 off_t l_len;
 pid_t l_pid;
};
# 108 "SDK:clib2/include/fcntl.h" 3 4
extern int open(const char *path_name, int open_flag, ... );
extern int creat(const char * path_name, mode_t mode);
extern int close(int file_descriptor);
extern off_t lseek(int file_descriptor, off_t offset, int mode);
extern ssize_t read(int file_descriptor, void * buffer, size_t num_bytes);
extern ssize_t write(int file_descriptor, const void * buffer, size_t num_bytes);
extern int fcntl(int file_descriptor, int cmd, ... );
# 51 "SDK:clib2/include/unistd.h" 2 3 4
# 75 "SDK:clib2/include/unistd.h" 3 4
extern int opterr;
extern int optind;
extern int optopt;
extern char * optarg;



extern int isatty(int file_descriptor);
extern int dup(int file_descriptor);
extern int dup2(int file_descriptor1, int file_descriptor2);
extern int access(const char * path_name, int mode);
extern int chown(const char * path_name, uid_t owner, gid_t group);
extern int fchown(int file_descriptor, uid_t owner, gid_t group);
extern int lchown(const char * path_name, uid_t owner, gid_t group);
extern int truncate(const char * path_name, off_t length);
extern int ftruncate(int file_descriptor, off_t length);
extern int link(const char * existing_path,const char * new_path);
extern int unlink(const char * path_name);
extern int symlink(const char * actual_path, const char * symbolic_path);
extern int readlink(const char * path_name, char * buffer, int buffer_size);
extern int chdir(const char * path_name);
extern unsigned int sleep(unsigned int seconds);
extern void usleep(unsigned long microseconds);
extern int getopt(int argc, char * argv[], char *opts);
extern pid_t getpid(void);
extern char *realpath(const char *file_name, char *resolved_name);
extern int fsync(int file_descriptor);
extern int fdatasync(int file_descriptor);
extern char *ttyname(int);
extern int ttyname_r(int file_descriptor,char *name,size_t buflen);
extern int ttyname_t(int,char *,size_t);

extern int profil(unsigned short *buffer, size_t bufSize, size_t offset, unsigned int scale);



extern char * getcwd(char * buffer, size_t buffer_size);
# 463 "perl.h" 2
# 481 "perl.h"
# 1 "embed.h" 1
# 482 "perl.h" 2
# 647 "perl.h"
# 1 "SDK:include/netinclude/arpa/inet.h" 1 3 4
# 648 "perl.h" 2
# 657 "perl.h"
# 1 "SDK:clib2/include/sys/stat.h" 1 3 4
# 111 "SDK:clib2/include/sys/stat.h" 3 4
struct stat
{
 mode_t st_mode;
 ino_t st_ino;
 dev_t st_dev;
 dev_t st_rdev;
 nlink_t st_nlink;
 uid_t st_uid;
 gid_t st_gid;
 off_t st_size;
 time_t st_atime;
 time_t st_mtime;
 time_t st_ctime;
 long st_blksize;
 long st_blocks;
};



extern int stat(const char * path_name, struct stat * buffer);
extern int fstat(int file_descriptor, struct stat * buffer);
extern int lstat(const char * path_name, struct stat * buffer);
extern int chmod(const char * path_name, mode_t mode);
extern int fchmod(int file_descriptor, mode_t mode);
extern int mkdir(const char * path_name, mode_t mode);
extern int rmdir(const char * path_name);
extern mode_t umask(mode_t new_mask);
# 658 "perl.h" 2
# 686 "perl.h"
# 1 "SDK:clib2/include/sys/time.h" 1 3 4
# 126 "SDK:clib2/include/sys/time.h" 3 4
struct timezone
{
 int tz_minuteswest;
 int tz_dsttime;
};



int gettimeofday(struct timeval *tp, struct timezone *tzp);
# 687 "perl.h" 2
# 700 "perl.h"
# 1 "SDK:clib2/include/errno.h" 1 3 4
# 45 "SDK:clib2/include/errno.h" 3 4
extern int errno;
# 701 "perl.h" 2
# 742 "perl.h"
# 1 "SDK:include/netinclude/netdb.h" 1 3 4
# 84 "SDK:include/netinclude/netdb.h" 3 4
# 1 "SDK:include/netinclude/sys/errno.h" 1 3 4
# 59 "SDK:include/netinclude/sys/errno.h" 3 4
extern int errno;
# 85 "SDK:include/netinclude/netdb.h" 2 3 4
# 101 "SDK:include/netinclude/netdb.h" 3 4
#pragma pack(2)
# 117 "SDK:include/netinclude/netdb.h" 3 4
struct hostent
{
 STRPTR h_name;
 STRPTR * h_aliases;
 LONG h_addrtype;
 LONG h_length;
 BYTE ** h_addr_list;

};





struct netent
{
 STRPTR n_name;
 STRPTR * n_aliases;
 LONG n_addrtype;
 in_addr_t n_net;
};

struct servent
{
 STRPTR s_name;
 STRPTR * s_aliases;
 LONG s_port;
 STRPTR s_proto;
};

struct protoent
{
 STRPTR p_name;
 STRPTR * p_aliases;
 LONG p_proto;
};
# 171 "SDK:include/netinclude/netdb.h" 3 4
#pragma pack()
# 743 "perl.h" 2
# 813 "perl.h"
 extern int errno;
# 825 "perl.h"
 char *strerror (int);
# 844 "perl.h"
# 1 "SDK:include/netinclude/sys/ioctl.h" 1 3 4
# 60 "SDK:include/netinclude/sys/ioctl.h" 3 4
# 1 "SDK:include/netinclude/sys/filio.h" 1 3 4
# 60 "SDK:include/netinclude/sys/filio.h" 3 4
# 1 "SDK:include/netinclude/sys/ioccom.h" 1 3 4
# 62 "SDK:include/netinclude/sys/ioccom.h" 3 4
#pragma pack(2)
# 104 "SDK:include/netinclude/sys/ioccom.h" 3 4
#pragma pack()
# 61 "SDK:include/netinclude/sys/filio.h" 2 3 4
# 73 "SDK:include/netinclude/sys/filio.h" 3 4
#pragma pack(2)
# 94 "SDK:include/netinclude/sys/filio.h" 3 4
#pragma pack()
# 61 "SDK:include/netinclude/sys/ioctl.h" 2 3 4



# 1 "SDK:include/netinclude/sys/sockio.h" 1 3 4
# 59 "SDK:include/netinclude/sys/sockio.h" 3 4
# 1 "SDK:include/netinclude/net/if.h" 1 3 4
# 99 "SDK:include/netinclude/net/if.h" 3 4
#pragma pack(2)
# 120 "SDK:include/netinclude/net/if.h" 3 4
struct if_data {

 UBYTE ifi_type;
 UBYTE ifi_addrlen;
 UBYTE ifi_hdrlen;
 ULONG ifi_mtu;
 ULONG ifi_metric;
 ULONG ifi_baudrate;

 ULONG ifi_ipackets;
 ULONG ifi_ierrors;
 ULONG ifi_opackets;
 ULONG ifi_oerrors;
 ULONG ifi_collisions;
 ULONG ifi_ibytes;
 ULONG ifi_obytes;
 ULONG ifi_imcasts;
 ULONG ifi_omcasts;
 ULONG ifi_iqdrops;
 ULONG ifi_noproto;
 struct timeval ifi_lastchange;
};

struct ifqueue {
 APTR ifq_head;
 APTR ifq_tail;
 LONG ifq_len;
 LONG ifq_maxlen;
 LONG ifq_drops;
};

struct ifnet {
 STRPTR if_name;
 struct ifnet *if_next;
 struct ifaddr *if_addrlist;
        LONG if_pcount;
 APTR if_bpf;
 UWORD if_index;
 WORD if_unit;
 WORD if_timer;
 UWORD if_flags;
 struct if_data if_data;

 APTR if_init;
 APTR if_output;
 APTR if_start;
 APTR if_done;
 APTR if_ioctl;
 APTR if_reset;
 APTR if_watchdog;
 struct ifqueue if_snd;
};
# 219 "SDK:include/netinclude/net/if.h" 3 4
struct ifaddr {
 struct sockaddr *ifa_addr;
 struct sockaddr *ifa_dstaddr;

 struct sockaddr *ifa_netmask;
 struct ifnet *ifa_ifp;
 struct ifaddr *ifa_next;
 APTR ifa_rtrequest;
 UWORD ifa_flags;
 WORD ifa_refcnt;
 LONG ifa_metric;
};






struct if_msghdr {
 UWORD ifm_msglen;
 UBYTE ifm_version;
 UBYTE ifm_type;
 LONG ifm_addrs;
 LONG ifm_flags;
 UWORD ifm_index;
 struct if_data ifm_data;
};





struct ifa_msghdr {
 UWORD ifam_msglen;
 UBYTE ifam_version;
 UBYTE ifam_type;
 LONG ifam_addrs;
 LONG ifam_flags;
 UWORD ifam_index;
 LONG ifam_metric;
};







struct ifreq {

 UBYTE ifr_name[16];
 union {
  struct sockaddr ifru_addr;
  struct sockaddr ifru_dstaddr;
  struct sockaddr ifru_broadaddr;
  WORD ifru_flags;
  LONG ifru_metric;
  APTR ifru_data;
 } ifr_ifru;






};

struct ifaliasreq {
 UBYTE ifra_name[16];
 struct sockaddr ifra_addr;
 struct sockaddr ifra_broadaddr;
 struct sockaddr ifra_mask;
};







struct ifconf {
 LONG ifc_len;
 union {
  APTR ifcu_buf;
  struct ifreq *ifcu_req;
 } ifc_ifcu;


};





#pragma pack()
# 328 "SDK:include/netinclude/net/if.h" 3 4
# 1 "SDK:include/netinclude/net/if_arp.h" 1 3 4
# 72 "SDK:include/netinclude/net/if_arp.h" 3 4
#pragma pack(2)
# 90 "SDK:include/netinclude/net/if_arp.h" 3 4
struct arphdr {
 UWORD ar_hrd;


 UWORD ar_pro;
 UBYTE ar_hln;
 UBYTE ar_pln;
 UWORD ar_op;
# 114 "SDK:include/netinclude/net/if_arp.h" 3 4
};




struct arpreq {
 struct sockaddr arp_pa;
 struct sockaddr arp_ha;
 LONG arp_flags;
};
# 135 "SDK:include/netinclude/net/if_arp.h" 3 4
#pragma pack()
# 329 "SDK:include/netinclude/net/if.h" 2 3 4
# 60 "SDK:include/netinclude/sys/sockio.h" 2 3 4



# 1 "SDK:include/netinclude/net/route.h" 1 3 4
# 63 "SDK:include/netinclude/net/route.h" 3 4
# 1 "SDK:include/netinclude/netinet/tcp_timer.h" 1 3 4
# 64 "SDK:include/netinclude/net/route.h" 2 3 4







# 1 "SDK:include/netinclude/net/radix.h" 1 3 4
# 68 "SDK:include/netinclude/net/radix.h" 3 4
#pragma pack(2)
# 80 "SDK:include/netinclude/net/radix.h" 3 4
struct radix_node {
 struct radix_mask *rn_mklist;
 struct radix_node *rn_p;
 WORD rn_b;
 UBYTE rn_bmask;
 UBYTE rn_flags;



 union {
  struct {
   APTR rn_Key;
   APTR rn_Mask;
   struct radix_node *rn_Dupedkey;
  } rn_leaf;
  struct {
   LONG rn_Off;
   struct radix_node *rn_L;
   struct radix_node *rn_R;
  } rn_node;
 } rn_u;
};
# 114 "SDK:include/netinclude/net/radix.h" 3 4
struct radix_mask {
 WORD rm_b;
 UBYTE rm_unused;
 UBYTE rm_flags;
 struct radix_mask *rm_mklist;
 union {
  APTR rmu_mask;
  struct radix_node *rmu_leaf;
 } rm_rmu;
 LONG rm_refs;
};




struct radix_node_head {
 struct radix_node *rnh_treetop;
 LONG rnh_addrsize;
 LONG rnh_pktsize;
 APTR rnh_addaddr;
 APTR rnh_addpkt;
 APTR rnh_deladdr;
 APTR rnh_delpkt;
 APTR rnh_matchaddr;
 APTR rnh_lookup;
 APTR rnh_matchpkt;
 APTR rnh_walktree;
 struct radix_node rnh_nodes[3];
};





#pragma pack()
# 72 "SDK:include/netinclude/net/route.h" 2 3 4
# 84 "SDK:include/netinclude/net/route.h" 3 4
#pragma pack(2)
# 104 "SDK:include/netinclude/net/route.h" 3 4
struct route {
 struct rtentry *ro_rt;
 struct sockaddr ro_dst;
};





struct rt_metrics {
 ULONG rmx_locks;
 ULONG rmx_mtu;
 ULONG rmx_hopcount;
 ULONG rmx_expire;
 ULONG rmx_recvpipe;
 ULONG rmx_sendpipe;
 ULONG rmx_ssthresh;
 ULONG rmx_rtt;
 ULONG rmx_rttvar;
 ULONG rmx_pksent;
};
# 143 "SDK:include/netinclude/net/route.h" 3 4
struct rtentry {
 struct radix_node rt_nodes[2];


 struct sockaddr *rt_gateway;
 WORD rt_flags;
 WORD rt_refcnt;
 ULONG rt_use;
 struct ifnet *rt_ifp;
 struct ifaddr *rt_ifa;
 struct sockaddr *rt_genmask;
 APTR rt_llinfo;
 struct rt_metrics rt_rmx;
 struct rtentry *rt_gwroute;
};





struct ortentry {
 ULONG rt_hash;
 struct sockaddr rt_dst;
 struct sockaddr rt_gateway;
 WORD rt_flags;
 WORD rt_refcnt;
 ULONG rt_use;
 struct ifnet *rt_ifp;
};
# 193 "SDK:include/netinclude/net/route.h" 3 4
struct rtstat {
 WORD rts_badredirect;
 WORD rts_dynamic;
 WORD rts_newgateway;
 WORD rts_unreach;
 WORD rts_wildcard;
};



struct rt_msghdr {
 UWORD rtm_msglen;
 UBYTE rtm_version;
 UBYTE rtm_type;
 UWORD rtm_index;
 LONG rtm_flags;
 LONG rtm_addrs;
 LONG rtm_pid;
 LONG rtm_seq;
 LONG rtm_errno;
 LONG rtm_use;
 ULONG rtm_inits;
 struct rt_metrics rtm_rmx;
};
# 269 "SDK:include/netinclude/net/route.h" 3 4
struct rt_addrinfo {
 LONG rti_addrs;
 struct sockaddr *rti_info[8];
};

struct route_cb {
 LONG ip_count;
 LONG ns_count;
 LONG iso_count;
 LONG any_count;
};





#pragma pack()
# 64 "SDK:include/netinclude/sys/sockio.h" 2 3 4
# 76 "SDK:include/netinclude/sys/sockio.h" 3 4
#pragma pack(2)
# 124 "SDK:include/netinclude/sys/sockio.h" 3 4
#pragma pack()
# 65 "SDK:include/netinclude/sys/ioctl.h" 2 3 4
# 845 "perl.h" 2
# 873 "perl.h"
# 1 "SDK:clib2/include/dirent.h" 1 3 4
# 54 "SDK:clib2/include/dirent.h" 3 4
# 1 "SDK:clib2/include/stdio.h" 1 3 4
# 105 "SDK:clib2/include/stdio.h" 3 4
typedef long long fpos_t;
# 117 "SDK:clib2/include/stdio.h" 3 4
typedef struct
{
 unsigned long flags;


 unsigned char * buffer;

 long size;

 long position;


 long num_read_bytes;

 long num_write_bytes;




} FILE;
# 162 "SDK:clib2/include/stdio.h" 3 4
extern struct iob ** __iob;
# 173 "SDK:clib2/include/stdio.h" 3 4
extern void perror(const char * s);



extern FILE *fopen(const char *filename, const char *mode);
extern int fclose(FILE *stream);
extern int fflush(FILE *stream);
extern FILE *freopen(const char *filename, const char *mode, FILE *stream);
extern int setvbuf(FILE *stream,char *buf,int bufmode,size_t size);
extern void setbuf(FILE *stream, char *buf);



extern int fseek(FILE *stream, long int offset, int wherefrom);
extern long int ftell(FILE *stream);
extern void rewind(FILE *stream);
extern int fgetpos(FILE *stream, fpos_t *pos);
extern int fsetpos(FILE *stream, fpos_t *pos);



extern int fgetc(FILE *stream);
extern int getc(FILE *stream);
extern int getchar(void);
extern int ungetc(int c,FILE *stream);



extern int fputc(int c,FILE *stream);
extern int putc(int c,FILE *stream);
extern int putchar(int c);



extern char *fgets(char *s,int n,FILE *stream);
extern char *gets(char *s);



extern int fscanf(FILE *stream, const char *format, ...);
extern int scanf(const char *format, ...);
extern int sscanf(const char *s,const char *format, ...);



extern int fputs(const char *s, FILE *stream);
extern int puts(const char *s);



extern int fprintf(FILE *stream,const char *format,...);
extern int printf(const char *format, ...);
extern int sprintf(char *s, const char *format, ...);



extern int vfprintf(FILE *stream,const char *format,va_list arg);
extern int vprintf(const char *format,va_list arg);
extern int vsprintf(char *s, const char *format,va_list arg);



extern size_t fread(void *ptr,size_t element_size,size_t count,FILE *stream);
extern size_t fwrite(const void *ptr,size_t element_size,size_t count,FILE *stream);



extern int feof(FILE *stream);
extern int ferror(FILE *stream);
extern void clearerr(FILE *stream);



extern int rename(const char *oldname,const char *newname);
extern int remove(const char *filename);



extern FILE *tmpfile(void);
extern char *tmpnam(char *buf);
# 353 "SDK:clib2/include/stdio.h" 3 4
extern char *ctermid(char *);
# 362 "SDK:clib2/include/stdio.h" 3 4
extern int __flush(FILE *stream);







extern int __unlockfile(FILE *stream,int c);



extern int getc_unlocked(FILE *stream);
extern int getchar_unlocked(void);
extern int putc_unlocked(int c,FILE *stream);
extern int putchar_unlocked(int c);
# 389 "SDK:clib2/include/stdio.h" 3 4
extern FILE * fdopen(int file_descriptor, const char * type);
extern int fileno(FILE * file);
extern int asprintf(char **ret, const char *format, ...);
extern int vsnprintf(char *s,size_t size,const char *format,va_list arg);
extern int pclose(FILE *stream);
extern FILE * popen(const char *command, const char *type);
extern int fseeko(FILE *stream, off_t offset, int wherefrom);
extern off_t ftello(FILE *stream);
# 424 "SDK:clib2/include/stdio.h" 3 4
extern int vasprintf(char **ret,const char *format,va_list arg);
# 439 "SDK:clib2/include/stdio.h" 3 4
extern int vfscanf(FILE *stream, const char *format, va_list arg);
extern int vsscanf(const char *s, const char *format, va_list arg);
extern int vscanf(const char *format,va_list arg);
extern int snprintf(char *s,size_t size,const char *format,...);
# 55 "SDK:clib2/include/dirent.h" 2 3 4
# 63 "SDK:clib2/include/dirent.h" 3 4
typedef long DIR;



struct dirent
{
 ino_t d_ino;
 char d_name[256 +1];
};



extern DIR * opendir(const char * path_name);
extern struct dirent * readdir(DIR * directory_pointer);
extern void rewinddir(DIR * directory_pointer);
extern int closedir(DIR * directory_pointer);
# 874 "perl.h" 2
# 1084 "perl.h"
typedef long IV;
typedef unsigned long UV;
# 1202 "perl.h"
# 1 "SDK:clib2/include/limits.h" 1 3 4
# 1203 "perl.h" 2


# 1 "SDK:clib2/include/float.h" 1 3 4
# 1206 "perl.h" 2
# 1277 "perl.h"
typedef double NV;
# 1755 "perl.h"
struct RExC_state_t;

typedef size_t STRLEN;

typedef struct op OP;
typedef struct cop COP;
typedef struct unop UNOP;
typedef struct binop BINOP;
typedef struct listop LISTOP;
typedef struct logop LOGOP;
typedef struct pmop PMOP;
typedef struct svop SVOP;
typedef struct padop PADOP;
typedef struct pvop PVOP;
typedef struct loop LOOP;

typedef struct interpreter PerlInterpreter;
# 1780 "perl.h"
typedef struct sv SV;
typedef struct av AV;
typedef struct hv HV;
typedef struct cv CV;
typedef struct regexp REGEXP;
typedef struct gp GP;
typedef struct gv GV;
typedef struct io IO;
typedef struct context PERL_CONTEXT;
typedef struct block BLOCK;

typedef struct magic MAGIC;
typedef struct xrv XRV;
typedef struct xpv XPV;
typedef struct xpviv XPVIV;
typedef struct xpvuv XPVUV;
typedef struct xpvnv XPVNV;
typedef struct xpvmg XPVMG;
typedef struct xpvlv XPVLV;
typedef struct xpvav XPVAV;
typedef struct xpvhv XPVHV;
typedef struct xpvgv XPVGV;
typedef struct xpvcv XPVCV;
typedef struct xpvbm XPVBM;
typedef struct xpvfm XPVFM;
typedef struct xpvio XPVIO;
typedef struct mgvtbl MGVTBL;
typedef union any ANY;
typedef struct ptr_tbl_ent PTR_TBL_ENT_t;
typedef struct ptr_tbl PTR_TBL_t;
typedef struct clone_params CLONE_PARAMS;

# 1 "handy.h" 1
# 121 "handy.h"
# 1 "SDK:clib2/include/inttypes.h" 1 3 4
# 48 "SDK:clib2/include/inttypes.h" 3 4
# 1 "SDK:clib2/include/stdint.h" 1 3 4
# 55 "SDK:clib2/include/stdint.h" 3 4
typedef signed char int8_t;
typedef signed short int16_t;
typedef signed int int32_t;
typedef unsigned char uint8_t;
typedef unsigned short uint16_t;
typedef unsigned int uint32_t;

typedef signed char int_least8_t;
typedef signed short int_least16_t;
typedef signed int int_least32_t;
typedef unsigned char uint_least8_t;
typedef unsigned short uint_least16_t;
typedef unsigned int uint_least32_t;


typedef signed char int_fast8_t;
typedef signed int int_fast16_t;
typedef signed int int_fast32_t;
typedef unsigned char uint_fast8_t;
typedef unsigned int uint_fast16_t;
typedef unsigned int uint_fast32_t;

typedef signed long intptr_t;
typedef unsigned long uintptr_t;


typedef signed long long int64_t;
typedef unsigned long long uint64_t;
typedef signed long long int_least64_t;
typedef unsigned long long uint_least64_t;
typedef signed long long int_fast64_t;
typedef unsigned long long uint_fast64_t;
typedef signed long long intmax_t;
typedef unsigned long long uintmax_t;
# 49 "SDK:clib2/include/inttypes.h" 2 3 4
# 296 "SDK:clib2/include/inttypes.h" 3 4
typedef struct { long long quot; long long rem; } imaxdiv_t;






extern intmax_t imaxabs(intmax_t x);
extern imaxdiv_t imaxdiv(intmax_t n,intmax_t d);



extern intmax_t strtoimax(const char *str, char **ptr, int base);
extern uintmax_t strtoumax(const char *str, char **ptr, int base);



extern intmax_t wcstoimax(const wchar_t *str, char **ptr, int base);
extern uintmax_t wcstoumax(const wchar_t *str, char **ptr, int base);
# 122 "handy.h" 2
# 132 "handy.h"
typedef char I8;
typedef unsigned char U8;
typedef short I16;
typedef unsigned short U16;
typedef long I32;
typedef unsigned long U32;
# 516 "handy.h"
typedef U32 line_t;
# 1813 "perl.h" 2
# 1976 "perl.h"
# 1 "unixish.h" 1
# 106 "unixish.h"
# 1 "SDK:clib2/include/signal.h" 1 3 4
# 60 "SDK:clib2/include/signal.h" 3 4
extern void (*signal(int sig, void (*)(int)))(int);
extern int raise(int sig);
# 70 "SDK:clib2/include/signal.h" 3 4
typedef int sig_atomic_t;
# 84 "SDK:clib2/include/signal.h" 3 4
typedef void (*sig_t)(int);



typedef int sigset_t;
# 98 "SDK:clib2/include/signal.h" 3 4
extern int sigmask(int signum);
extern int sigblock(int signal_mask);
extern int sigsetmask(int signal_mask);
extern int sigprocmask(int how, const sigset_t *set, sigset_t *oset);
extern int sigemptyset(sigset_t * set);
extern int sigaddset(sigset_t * set,int sig);
extern int kill(pid_t pid, int signal_number);
# 107 "unixish.h" 2
# 134 "unixish.h"
void amigaos4_fork_init_array(void);





void amigaos4_dispose_fork_array(void);
# 1977 "perl.h" 2
# 1985 "perl.h"
# 1 "amigaos.h" 1
# 12 "amigaos.h"
int execve(const char *path, char *const argv[], char *const env[]);
int execvp(const char *filename, char *const argv[]);
int execv(const char *path, char *const argv[]);
int execl(const char *path,...);

int pipe(int filedes[2]);
# 1986 "perl.h" 2
# 2082 "perl.h"
# 1 "SDK:local/common/include/pthread.h" 1 3 4
# 26 "SDK:local/common/include/pthread.h" 3 4
enum enShedParam
{
 SCHED_OTHER = 0,
 SCHED_FIFO = 1,
 SCHED_RR = 2
};

struct sched_param
{
 int sched_priority;
};

struct timespec
{
 uint32 tv_secs;
 uint32 tv_nsec;
};







typedef uint32 pthread_t;


typedef struct
{
 BOOL Initialized;
 void* StackAddr;
 uint32 StackSize;
 uint32 DetachState;
 int InheritSched;
 int SchedPolicy;
 struct sched_param SchedParam;
} pthread_attr_t;


typedef struct
{
 uint32 Initialized;
 uint32 Run;
} pthread_once_t;




typedef uint32 pthread_key_t;


typedef struct
{
 BOOL Initialized;
 uint32 Type;
 uint32 ProcessShared;
} pthread_mutexattr_t;

typedef struct
{
 uint32 Initialized;
 pthread_mutexattr_t Attr;
 uint32 Lock;
 uint32 Count;
 void *Owner;
 struct MinList BlockList;
} pthread_mutex_t;
# 101 "SDK:local/common/include/pthread.h" 3 4
typedef struct
{
 BOOL Initialized;
 uint32 ProcessShared;
} pthread_condattr_t;


typedef struct
{
 uint32 Initialized;
 uint32 Lock;
 pthread_condattr_t Attr;
 pthread_mutex_t *mutex;
 struct MinList BlockList;
} pthread_cond_t;
# 125 "SDK:local/common/include/pthread.h" 3 4
enum enPThreadConst
{
 PTHREAD_CREATE_JOINABLE = 0,
 PTHREAD_CREATE_DETACHED,
 PTHREAD_EXPLICIT_SCHED,
 PTHREAD_INHERIT_SCHED,
 PTHREAD_SCOPE_PROCESS,
 PTHREAD_SCOPE_SYSTEM,
 PTHREAD_CANCEL_ASYNCHRONOUS,
 PTHREAD_CANCEL_ENABLE,
 PTHREAD_CANCEL_DEFERRED,
 PTHREAD_CANCEL_DISABLE,
 PTHREAD_MUTEX_ERRORCHECK,
 PTHREAD_MUTEX_NORMAL,
 PTHREAD_MUTEX_RECURSIVE,
 PTHREAD_PROCESS_SHARED,
 PTHREAD_PROCESS_PRIVATE,

 PTHREAD_STACK_MIN = 65536,
 PTHREAD_CANCELED = -1,
};



extern struct ThreadsIFace *IThreads;

int pthread_create(pthread_t*, const pthread_attr_t *,
        void *(*)(void *), void *);
void pthread_exit(void *);
pthread_t pthread_self(void);
int pthread_equal(pthread_t, pthread_t);
int pthread_join(pthread_t, void **);
int pthread_detach(pthread_t);
int pthread_attr_destroy(pthread_attr_t *);
int pthread_attr_getdetachstate(const pthread_attr_t *, int *);
int pthread_attr_getguardsize(const pthread_attr_t *, size_t *);
int pthread_attr_getinheritsched(const pthread_attr_t *, int *);
int pthread_attr_getschedparam(const pthread_attr_t *, struct sched_param *);
int pthread_attr_getschedpolicy(const pthread_attr_t *, int *);
int pthread_attr_getscope(const pthread_attr_t *, int *);
int pthread_attr_getstackaddr(const pthread_attr_t *, void **);
int pthread_attr_getstacksize(const pthread_attr_t *, size_t *);
int pthread_attr_init(pthread_attr_t *);
int pthread_attr_setdetachstate(pthread_attr_t *, int);
int pthread_attr_setguardsize(pthread_attr_t *, size_t);
int pthread_attr_setinheritsched(pthread_attr_t *, int);
int pthread_attr_setschedparam(pthread_attr_t *, const struct sched_param *);
int pthread_attr_setschedpolicy(pthread_attr_t *, int);
int pthread_attr_setscope(pthread_attr_t *, int);
int pthread_attr_setstackaddr(pthread_attr_t *, void *);
int pthread_attr_setstacksize(pthread_attr_t *, size_t);
int pthread_cancel(pthread_t);
void pthread_cleanup_push(void(*)(void *), void *);
void pthread_cleanup_pop(int);
int pthread_setcancelstate(int, int *);
int pthread_setcanceltype(int, int *);
void pthread_testcancel(void);
int pthread_once(pthread_once_t *, void (*)(void));
int pthread_setconcurrency(int);
int pthread_setschedparam(pthread_t, int , const struct sched_param *);
int pthread_getconcurrency(void);
int pthread_getschedparam(pthread_t, int *, struct sched_param *);
int pthread_key_create(pthread_key_t *, void (*)(void *));
int pthread_key_delete(pthread_key_t);
void * pthread_getspecific(pthread_key_t);
int pthread_setspecific(pthread_key_t, const void *);
int pthread_mutex_destroy(pthread_mutex_t *);
int pthread_mutex_getprioceiling(const pthread_mutex_t *, int *);
int pthread_mutex_init(pthread_mutex_t *, const pthread_mutexattr_t *);
int pthread_mutex_lock(pthread_mutex_t *);
int pthread_mutex_setprioceiling(pthread_mutex_t *, int, int *);
int pthread_mutex_trylock(pthread_mutex_t *);
int pthread_mutex_unlock(pthread_mutex_t *);
int pthread_mutexattr_destroy(pthread_mutexattr_t *);
int pthread_mutexattr_getprioceiling(const pthread_mutexattr_t *, int *);
int pthread_mutexattr_getprotocol(const pthread_mutexattr_t *, int *);
int pthread_mutexattr_getpshared(const pthread_mutexattr_t *, int *);
int pthread_mutexattr_gettype(const pthread_mutexattr_t *, int *);
int pthread_mutexattr_init(pthread_mutexattr_t *);
int pthread_mutexattr_setprioceiling(pthread_mutexattr_t *, int);
int pthread_mutexattr_setprotocol(pthread_mutexattr_t *, int);
int pthread_mutexattr_setpshared(pthread_mutexattr_t *, int);
int pthread_mutexattr_settype(pthread_mutexattr_t *, int);
int pthread_cond_broadcast(pthread_cond_t *);
int pthread_cond_destroy(pthread_cond_t *);
int pthread_cond_init(pthread_cond_t *, const pthread_condattr_t *);
int pthread_cond_signal(pthread_cond_t *);
int pthread_cond_timedwait(pthread_cond_t *, pthread_mutex_t *, const struct timespec *);
int pthread_cond_wait(pthread_cond_t *, pthread_mutex_t *);
int pthread_condattr_destroy(pthread_condattr_t *);
int pthread_condattr_getpshared(const pthread_condattr_t *, int *);
int pthread_condattr_init(pthread_condattr_t *);
int pthread_condattr_setpshared(pthread_condattr_t *, int);
# 2083 "perl.h" 2

typedef pthread_t perl_os_thread;
typedef pthread_mutex_t perl_mutex;
typedef pthread_cond_t perl_cond;
typedef pthread_key_t perl_key;
# 2294 "perl.h"
union any {
    void* any_ptr;
    I32 any_i32;
    IV any_iv;
    long any_long;
    char any_bool;
    void (*any_dptr) (void*);
    void (*any_dxptr) (register PerlInterpreter *my_perl __attribute__((unused)), void*);
};
# 2311 "perl.h"
typedef I32 (*filter_t) (register PerlInterpreter *my_perl __attribute__((unused)), int, SV *, int);
# 2334 "perl.h"
# 1 "iperlsys.h" 1
# 51 "iperlsys.h"
# 1 "perlio.h" 1
# 99 "perlio.h"
typedef struct _PerlIO PerlIOl;
typedef struct _PerlIO_funcs PerlIO_funcs;
typedef PerlIOl *PerlIO;



extern void PerlIO_define_layer(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO_funcs *tab);
extern PerlIO_funcs *PerlIO_find_layer(register PerlInterpreter *my_perl __attribute__((unused)), const char *name, STRLEN len,
           int load);
extern PerlIO *PerlIO_push(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *f, PerlIO_funcs *tab,
      const char *mode, SV *arg);
extern void PerlIO_pop(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *f);
extern AV* PerlIO_get_layers(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *f);
extern void PerlIO_clone(register PerlInterpreter *my_perl __attribute__((unused)), PerlInterpreter *proto, CLONE_PARAMS *param);
# 197 "perlio.h"

# 214 "perlio.h"
extern void PerlIO_init(register PerlInterpreter *my_perl __attribute__((unused)));


extern int PerlIO_stdoutf(const char *, ...)
    ;


extern int PerlIO_puts(PerlIO *, const char *);


extern PerlIO *PerlIO_open(const char *, const char *);


extern PerlIO *PerlIO_openn(register PerlInterpreter *my_perl __attribute__((unused)), const char *layers, const char *mode,
       int fd, int imode, int perm, PerlIO *old,
       int narg, SV **arg);
# 241 "perlio.h"
extern int PerlIO_getc(PerlIO *);


extern int PerlIO_putc(PerlIO *, int);


extern int PerlIO_ungetc(PerlIO *, int);


extern PerlIO *PerlIO_fdopen(int, const char *);


extern PerlIO *PerlIO_importFILE(FILE *, const char *);


extern FILE *PerlIO_exportFILE(PerlIO *, const char *);


extern FILE *PerlIO_findFILE(PerlIO *);


extern void PerlIO_releaseFILE(PerlIO *, FILE *);
# 277 "perlio.h"
extern int PerlIO_printf(PerlIO *, const char *, ...)
    ;


extern int PerlIO_sprintf(char *, int, const char *, ...)
    ;


extern int PerlIO_vprintf(PerlIO *, const char *, va_list);
# 294 "perlio.h"
extern void PerlIO_rewind(PerlIO *);


extern int PerlIO_has_base(PerlIO *);


extern int PerlIO_has_cntptr(PerlIO *);


extern int PerlIO_fast_gets(PerlIO *);


extern int PerlIO_canset_cnt(PerlIO *);
# 327 "perlio.h"
extern PerlIO *PerlIO_tmpfile(void);
# 339 "perlio.h"
extern int PerlIO_getpos(PerlIO *, SV *);


extern int PerlIO_setpos(PerlIO *, SV *);


extern PerlIO *PerlIO_fdupopen(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, CLONE_PARAMS *, int);


extern char *PerlIO_modestr(PerlIO *, char *buf);


extern int PerlIO_isutf8(PerlIO *);


extern int PerlIO_apply_layers(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *f, const char *mode,
          const char *names);


extern int PerlIO_binmode(register PerlInterpreter *my_perl __attribute__((unused)), PerlIO *f, int iotype, int omode,
     const char *names);


extern char *PerlIO_getname(PerlIO *, char *);


extern void PerlIO_destruct(register PerlInterpreter *my_perl __attribute__((unused)));

extern int PerlIO_intmode2str(int rawmode, char *mode, int *writing);


extern void PerlIO_cleanup(register PerlInterpreter *my_perl __attribute__((unused)));

extern void PerlIO_debug(const char *fmt, ...);
typedef struct PerlIO_list_s PerlIO_list_t;





# 52 "iperlsys.h" 2


typedef void (*Sighandler_t) (int);
# 1124 "iperlsys.h"
typedef unsigned long u_long;
typedef unsigned short u_short;
typedef long SOCKET;
# 2335 "perl.h" 2
# 2347 "perl.h"
# 1 "regexp.h" 1
# 19 "regexp.h"
struct regnode {
    U8 flags;
    U8 type;
    U16 next_off;
};

typedef struct regnode regnode;

struct reg_substr_data;

struct reg_data;

typedef struct regexp {
 I32 *startp;
 I32 *endp;
 regnode *regstclass;
        struct reg_substr_data *substrs;
 char *precomp;
        struct reg_data *data;
 char *subbeg;

        U32 *offsets;
 I32 sublen;
 I32 refcnt;
 I32 minlen;
 I32 prelen;
 U32 nparens;
 U32 lastparen;
 U32 lastcloseparen;
 U32 reganch;

 regnode program[1];
} regexp;
# 129 "regexp.h"
struct re_scream_pos_data_s;
# 2348 "perl.h" 2
# 1 "sv.h" 1
# 46 "sv.h"
typedef enum {
 SVt_NULL,
 SVt_IV,
 SVt_NV,
 SVt_RV,
 SVt_PV,
 SVt_PVIV,
 SVt_PVNV,
 SVt_PVMG,
 SVt_PVBM,
 SVt_PVLV,
 SVt_PVAV,
 SVt_PVHV,
 SVt_PVCV,
 SVt_PVGV,
 SVt_PVFM,
 SVt_PVIO
} svtype;



struct sv {
    void* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct gv {
    XPVGV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct cv {
    XPVCV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct av {
    XPVAV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct hv {
    XPVHV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct io {
    XPVIO* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};
# 244 "sv.h"
struct xrv {
    SV * xrv_rv;
};

struct xpv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
};

struct xpviv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
};

struct xpvuv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    UV xuv_uv;
};

struct xpvnv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
};


struct xpvmg {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;
};

struct xpvlv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    STRLEN xlv_targoff;
    STRLEN xlv_targlen;
    SV* xlv_targ;
    char xlv_type;

};

struct xpvgv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    GP* xgv_gp;
    char* xgv_name;
    STRLEN xgv_namelen;
    HV* xgv_stash;
    U8 xgv_flags;
};

struct xpvbm {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    I32 xbm_useful;
    U16 xbm_previous;
    U8 xbm_rare;
};



typedef U16 cv_flags_t;

struct xpvfm {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    HV * xcv_stash;
    OP * xcv_start;
    OP * xcv_root;
    void (*xcv_xsub)(register PerlInterpreter *my_perl __attribute__((unused)), CV*);
    ANY xcv_xsubany;
    GV * xcv_gv;
    char * xcv_file;
    long xcv_depth;
    AV * xcv_padlist;
    CV * xcv_outside;




    cv_flags_t xcv_flags;
    U32 xcv_outside_seq;


    IV xfm_lines;
};

struct xpvio {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    PerlIO * xio_ifp;
    PerlIO * xio_ofp;
# 387 "sv.h"
    union {
 DIR * xiou_dirp;
 void * xiou_any;
    } xio_dirpu;
    IV xio_lines;
    IV xio_page;
    IV xio_page_len;
    IV xio_lines_left;
    char * xio_top_name;
    GV * xio_top_gv;
    char * xio_fmt_name;
    GV * xio_fmt_gv;
    char * xio_bottom_name;
    GV * xio_bottom_gv;
    short xio_subprocess;
    char xio_type;
    char xio_flags;
};
# 1253 "sv.h"
struct clone_params {
  AV* stashes;
  UV flags;
  PerlInterpreter *proto_perl;
};
# 2349 "perl.h" 2
# 1 "util.h" 1
# 2350 "perl.h" 2
# 1 "form.h" 1
# 2351 "perl.h" 2
# 1 "gv.h" 1
# 11 "gv.h"
struct gp {
    SV * gp_sv;
    U32 gp_refcnt;
    struct io * gp_io;
    CV * gp_form;
    AV * gp_av;
    HV * gp_hv;
    GV * gp_egv;
    CV * gp_cv;
    U32 gp_cvgen;
    U32 gp_flags;
    line_t gp_line;
    char * gp_file;
};
# 2352 "perl.h" 2
# 1 "pad.h" 1
# 19 "pad.h"
typedef AV PADLIST;
typedef AV PAD;





typedef unsigned long PADOFFSET;
# 43 "pad.h"
typedef enum {
 padtidy_SUB,
 padtidy_SUBCLONE,
 padtidy_FORMAT
} padtidy_type;
# 2353 "perl.h" 2
# 1 "cv.h" 1
# 14 "cv.h"
struct xpvcv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xof_off;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    HV * xcv_stash;
    OP * xcv_start;
    OP * xcv_root;
    void (*xcv_xsub) (register PerlInterpreter *my_perl __attribute__((unused)), CV*);
    ANY xcv_xsubany;
    GV * xcv_gv;
    char * xcv_file;
    long xcv_depth;
    PADLIST * xcv_padlist;
    CV * xcv_outside;




    cv_flags_t xcv_flags;
    U32 xcv_outside_seq;


};
# 2354 "perl.h" 2
# 1 "opnames.h" 1
# 15 "opnames.h"
typedef enum opcode {
 OP_NULL,
 OP_STUB,
 OP_SCALAR,
 OP_PUSHMARK,
 OP_WANTARRAY,
 OP_CONST,
 OP_GVSV,
 OP_GV,
 OP_GELEM,
 OP_PADSV,
 OP_PADAV,
 OP_PADHV,
 OP_PADANY,
 OP_PUSHRE,
 OP_RV2GV,
 OP_RV2SV,
 OP_AV2ARYLEN,
 OP_RV2CV,
 OP_ANONCODE,
 OP_PROTOTYPE,
 OP_REFGEN,
 OP_SREFGEN,
 OP_REF,
 OP_BLESS,
 OP_BACKTICK,
 OP_GLOB,
 OP_READLINE,
 OP_RCATLINE,
 OP_REGCMAYBE,
 OP_REGCRESET,
 OP_REGCOMP,
 OP_MATCH,
 OP_QR,
 OP_SUBST,
 OP_SUBSTCONT,
 OP_TRANS,
 OP_SASSIGN,
 OP_AASSIGN,
 OP_CHOP,
 OP_SCHOP,
 OP_CHOMP,
 OP_SCHOMP,
 OP_DEFINED,
 OP_UNDEF,
 OP_STUDY,
 OP_POS,
 OP_PREINC,
 OP_I_PREINC,
 OP_PREDEC,
 OP_I_PREDEC,
 OP_POSTINC,
 OP_I_POSTINC,
 OP_POSTDEC,
 OP_I_POSTDEC,
 OP_POW,
 OP_MULTIPLY,
 OP_I_MULTIPLY,
 OP_DIVIDE,
 OP_I_DIVIDE,
 OP_MODULO,
 OP_I_MODULO,
 OP_REPEAT,
 OP_ADD,
 OP_I_ADD,
 OP_SUBTRACT,
 OP_I_SUBTRACT,
 OP_CONCAT,
 OP_STRINGIFY,
 OP_LEFT_SHIFT,
 OP_RIGHT_SHIFT,
 OP_LT,
 OP_I_LT,
 OP_GT,
 OP_I_GT,
 OP_LE,
 OP_I_LE,
 OP_GE,
 OP_I_GE,
 OP_EQ,
 OP_I_EQ,
 OP_NE,
 OP_I_NE,
 OP_NCMP,
 OP_I_NCMP,
 OP_SLT,
 OP_SGT,
 OP_SLE,
 OP_SGE,
 OP_SEQ,
 OP_SNE,
 OP_SCMP,
 OP_BIT_AND,
 OP_BIT_XOR,
 OP_BIT_OR,
 OP_NEGATE,
 OP_I_NEGATE,
 OP_NOT,
 OP_COMPLEMENT,
 OP_ATAN2,
 OP_SIN,
 OP_COS,
 OP_RAND,
 OP_SRAND,
 OP_EXP,
 OP_LOG,
 OP_SQRT,
 OP_INT,
 OP_HEX,
 OP_OCT,
 OP_ABS,
 OP_LENGTH,
 OP_SUBSTR,
 OP_VEC,
 OP_INDEX,
 OP_RINDEX,
 OP_SPRINTF,
 OP_FORMLINE,
 OP_ORD,
 OP_CHR,
 OP_CRYPT,
 OP_UCFIRST,
 OP_LCFIRST,
 OP_UC,
 OP_LC,
 OP_QUOTEMETA,
 OP_RV2AV,
 OP_AELEMFAST,
 OP_AELEM,
 OP_ASLICE,
 OP_EACH,
 OP_VALUES,
 OP_KEYS,
 OP_DELETE,
 OP_EXISTS,
 OP_RV2HV,
 OP_HELEM,
 OP_HSLICE,
 OP_UNPACK,
 OP_PACK,
 OP_SPLIT,
 OP_JOIN,
 OP_LIST,
 OP_LSLICE,
 OP_ANONLIST,
 OP_ANONHASH,
 OP_SPLICE,
 OP_PUSH,
 OP_POP,
 OP_SHIFT,
 OP_UNSHIFT,
 OP_SORT,
 OP_REVERSE,
 OP_GREPSTART,
 OP_GREPWHILE,
 OP_MAPSTART,
 OP_MAPWHILE,
 OP_RANGE,
 OP_FLIP,
 OP_FLOP,
 OP_AND,
 OP_OR,
 OP_XOR,
 OP_COND_EXPR,
 OP_ANDASSIGN,
 OP_ORASSIGN,
 OP_METHOD,
 OP_ENTERSUB,
 OP_LEAVESUB,
 OP_LEAVESUBLV,
 OP_CALLER,
 OP_WARN,
 OP_DIE,
 OP_RESET,
 OP_LINESEQ,
 OP_NEXTSTATE,
 OP_DBSTATE,
 OP_UNSTACK,
 OP_ENTER,
 OP_LEAVE,
 OP_SCOPE,
 OP_ENTERITER,
 OP_ITER,
 OP_ENTERLOOP,
 OP_LEAVELOOP,
 OP_RETURN,
 OP_LAST,
 OP_NEXT,
 OP_REDO,
 OP_DUMP,
 OP_GOTO,
 OP_EXIT,
 OP_OPEN,
 OP_CLOSE,
 OP_PIPE_OP,
 OP_FILENO,
 OP_UMASK,
 OP_BINMODE,
 OP_TIE,
 OP_UNTIE,
 OP_TIED,
 OP_DBMOPEN,
 OP_DBMCLOSE,
 OP_SSELECT,
 OP_SELECT,
 OP_GETC,
 OP_READ,
 OP_ENTERWRITE,
 OP_LEAVEWRITE,
 OP_PRTF,
 OP_PRINT,
 OP_SYSOPEN,
 OP_SYSSEEK,
 OP_SYSREAD,
 OP_SYSWRITE,
 OP_SEND,
 OP_RECV,
 OP_EOF,
 OP_TELL,
 OP_SEEK,
 OP_TRUNCATE,
 OP_FCNTL,
 OP_IOCTL,
 OP_FLOCK,
 OP_SOCKET,
 OP_SOCKPAIR,
 OP_BIND,
 OP_CONNECT,
 OP_LISTEN,
 OP_ACCEPT,
 OP_SHUTDOWN,
 OP_GSOCKOPT,
 OP_SSOCKOPT,
 OP_GETSOCKNAME,
 OP_GETPEERNAME,
 OP_LSTAT,
 OP_STAT,
 OP_FTRREAD,
 OP_FTRWRITE,
 OP_FTREXEC,
 OP_FTEREAD,
 OP_FTEWRITE,
 OP_FTEEXEC,
 OP_FTIS,
 OP_FTEOWNED,
 OP_FTROWNED,
 OP_FTZERO,
 OP_FTSIZE,
 OP_FTMTIME,
 OP_FTATIME,
 OP_FTCTIME,
 OP_FTSOCK,
 OP_FTCHR,
 OP_FTBLK,
 OP_FTFILE,
 OP_FTDIR,
 OP_FTPIPE,
 OP_FTLINK,
 OP_FTSUID,
 OP_FTSGID,
 OP_FTSVTX,
 OP_FTTTY,
 OP_FTTEXT,
 OP_FTBINARY,
 OP_CHDIR,
 OP_CHOWN,
 OP_CHROOT,
 OP_UNLINK,
 OP_CHMOD,
 OP_UTIME,
 OP_RENAME,
 OP_LINK,
 OP_SYMLINK,
 OP_READLINK,
 OP_MKDIR,
 OP_RMDIR,
 OP_OPEN_DIR,
 OP_READDIR,
 OP_TELLDIR,
 OP_SEEKDIR,
 OP_REWINDDIR,
 OP_CLOSEDIR,
 OP_FORK,
 OP_WAIT,
 OP_WAITPID,
 OP_SYSTEM,
 OP_EXEC,
 OP_KILL,
 OP_GETPPID,
 OP_GETPGRP,
 OP_SETPGRP,
 OP_GETPRIORITY,
 OP_SETPRIORITY,
 OP_TIME,
 OP_TMS,
 OP_LOCALTIME,
 OP_GMTIME,
 OP_ALARM,
 OP_SLEEP,
 OP_SHMGET,
 OP_SHMCTL,
 OP_SHMREAD,
 OP_SHMWRITE,
 OP_MSGGET,
 OP_MSGCTL,
 OP_MSGSND,
 OP_MSGRCV,
 OP_SEMGET,
 OP_SEMCTL,
 OP_SEMOP,
 OP_REQUIRE,
 OP_DOFILE,
 OP_ENTEREVAL,
 OP_LEAVEEVAL,
 OP_ENTERTRY,
 OP_LEAVETRY,
 OP_GHBYNAME,
 OP_GHBYADDR,
 OP_GHOSTENT,
 OP_GNBYNAME,
 OP_GNBYADDR,
 OP_GNETENT,
 OP_GPBYNAME,
 OP_GPBYNUMBER,
 OP_GPROTOENT,
 OP_GSBYNAME,
 OP_GSBYPORT,
 OP_GSERVENT,
 OP_SHOSTENT,
 OP_SNETENT,
 OP_SPROTOENT,
 OP_SSERVENT,
 OP_EHOSTENT,
 OP_ENETENT,
 OP_EPROTOENT,
 OP_ESERVENT,
 OP_GPWNAM,
 OP_GPWUID,
 OP_GPWENT,
 OP_SPWENT,
 OP_EPWENT,
 OP_GGRNAM,
 OP_GGRGID,
 OP_GGRENT,
 OP_SGRENT,
 OP_EGRENT,
 OP_GETLOGIN,
 OP_SYSCALL,
 OP_LOCK,
 OP_THREADSV,
 OP_SETSTATE,
 OP_METHOD_NAMED,
 OP_CUSTOM,
 OP_max
} opcode;
# 2355 "perl.h" 2
# 1 "op.h" 1
# 222 "op.h"
struct op {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
};

struct unop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
};

struct binop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
};

struct logop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_other;
};

struct listop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
};

struct pmop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
    OP * op_pmreplroot;
    OP * op_pmreplstart;
    PMOP * op_pmnext;

    IV op_pmoffset;



    U32 op_pmflags;
    U32 op_pmpermflags;
    U8 op_pmdynflags;

    char * op_pmstashpv;



};
# 328 "op.h"
struct svop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    SV * op_sv;
};

struct padop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    PADOFFSET op_padix;
};

struct pvop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    char * op_pv;
};

struct loop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
    OP * op_redoop;
    OP * op_nextop;
    OP * op_lastop;
};
# 487 "op.h"
# 1 "reentr.h" 1
# 71 "reentr.h"
# 1 "SDK:clib2/include/pwd.h" 1 3 4
# 55 "SDK:clib2/include/pwd.h" 3 4
struct passwd
{
 char * pw_name;
 char * pw_passwd;
 uid_t pw_uid;
 gid_t pw_gid;
 char * pw_gecos;
 char * pw_dir;
 char * pw_shell;
};
# 72 "reentr.h" 2


# 1 "SDK:clib2/include/grp.h" 1 3 4
# 55 "SDK:clib2/include/grp.h" 3 4
struct group
{
 char * gr_name;
 char * gr_passwd;
 gid_t gr_gid;
 char ** gr_mem;
};
# 75 "reentr.h" 2
# 602 "reentr.h"
typedef struct {
# 778 "reentr.h"
    int dummy;
} REENTR;
# 488 "op.h" 2
# 2356 "perl.h" 2
# 1 "cop.h" 1
# 16 "cop.h"
struct cop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl __attribute__((unused))); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    char * cop_label;

    char * cop_stashpv;
    char * cop_file;




    U32 cop_seq;
    I32 cop_arybase;
    line_t cop_line;
    SV * cop_warnings;
    SV * cop_io;
};
# 112 "cop.h"
struct block_sub {
    CV * cv;
    GV * gv;
    GV * dfoutgv;

    AV * savearray;

    AV * argarray;
    long olddepth;
    U8 hasargs;
    U8 lval;
    PAD *oldcomppad;
};
# 211 "cop.h"
struct block_eval {
    I32 old_in_eval;
    I32 old_op_type;
    SV * old_namesv;
    OP * old_eval_root;
    SV * cur_text;
    CV * cv;
};
# 240 "cop.h"
struct block_loop {
    char * label;
    I32 resetsp;
    OP * redo_op;
    OP * next_op;
    OP * last_op;

    void * iterdata;
    PAD *oldcomppad;



    SV * itersave;
    SV * iterlval;
    AV * iterary;
    IV iterix;
    IV itermax;
};
# 304 "cop.h"
struct block {
    I32 blku_oldsp;
    COP * blku_oldcop;
    I32 blku_oldretsp;
    I32 blku_oldmarksp;
    I32 blku_oldscopesp;
    PMOP * blku_oldpm;
    U8 blku_gimme;

    union {
 struct block_sub blku_sub;
 struct block_eval blku_eval;
 struct block_loop blku_loop;
    } blk_u;
};
# 366 "cop.h"
struct subst {
    I32 sbu_iters;
    I32 sbu_maxiters;
    I32 sbu_rflags;
    I32 sbu_oldsave;
    char sbu_once;
    char sbu_rxtainted;
    char * sbu_orig;
    SV * sbu_dstr;
    SV * sbu_targ;
    char * sbu_s;
    char * sbu_m;
    char * sbu_strend;
    void * sbu_rxres;
    REGEXP * sbu_rx;
};
# 418 "cop.h"
struct context {
    U32 cx_type;
    union {
 struct block cx_blk;
 struct subst cx_subst;
    } cx_u;
};
# 524 "cop.h"
struct stackinfo {
    AV * si_stack;
    PERL_CONTEXT * si_cxstack;
    I32 si_cxix;
    I32 si_cxmax;
    I32 si_type;
    struct stackinfo * si_prev;
    struct stackinfo * si_next;
    I32 si_markoff;


};

typedef struct stackinfo PERL_SI;
# 2357 "perl.h" 2
# 1 "av.h" 1
# 11 "av.h"
struct xpvav {
    char* xav_array;
    ssize_t xav_fill;
    ssize_t xav_max;
    IV xof_off;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    SV** xav_alloc;
    SV* xav_arylen;
    U8 xav_flags;
};
# 2358 "perl.h" 2
# 1 "hv.h" 1
# 12 "hv.h"
typedef struct he HE;
typedef struct hek HEK;


struct he {
    HE *hent_next;
    HEK *hent_hek;
    SV *hent_val;
};


struct hek {
    U32 hek_hash;
    I32 hek_len;
    char hek_key[1];



};



struct xpvhv {
    char * xhv_array;
    STRLEN xhv_fill;
    STRLEN xhv_max;
    IV xhv_keys;
    NV xnv_nv;

    MAGIC* xmg_magic;
    HV* xmg_stash;

    I32 xhv_riter;
    HE *xhv_eiter;
    PMOP *xhv_pmroot;
    char *xhv_name;
};
# 2359 "perl.h" 2
# 1 "mg.h" 1
# 14 "mg.h"
struct mgvtbl {
    int (*svt_get) (register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg);
    int (*svt_set) (register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg);
    U32 (*svt_len) (register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg);
    int (*svt_clear)(register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg);
    int (*svt_free) (register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg);
    int (*svt_copy) (register PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC* mg,
         SV *nsv, const char *name, int namlen);
    int (*svt_dup) (register PerlInterpreter *my_perl __attribute__((unused)), MAGIC *mg, CLONE_PARAMS *param);
};


struct magic {
    MAGIC* mg_moremagic;
    MGVTBL* mg_virtual;
    U16 mg_private;
    char mg_type;
    U8 mg_flags;
    SV* mg_obj;
    char* mg_ptr;
    I32 mg_len;
};
# 2360 "perl.h" 2
# 1 "scope.h" 1
# 219 "scope.h"
struct jmpenv {
    struct jmpenv * je_prev;
    jmp_buf je_buf;
    int je_ret;
    char je_mustcatch;




};

typedef struct jmpenv JMPENV;
# 2361 "perl.h" 2
# 1 "warnings.h" 1
# 2362 "perl.h" 2
# 1 "utf8.h" 1
# 26 "utf8.h"

# 41 "utf8.h"
extern const unsigned char PL_utf8skip[];



# 2363 "perl.h" 2


typedef struct curcur CURCUR;
struct curcur {
    int parenfloor;
    int cur;
    int min;
    int max;
    int minmod;
    regnode * scan;
    regnode * next;
    char * lastloc;
    CURCUR * oldcc;
};

typedef struct _sublex_info SUBLEXINFO;
struct _sublex_info {
    I32 super_state;
    I32 sub_inwhat;
    OP *sub_op;
    char *super_bufptr;
    char *super_bufend;
};

typedef struct magic_state MGS;

struct scan_data_t;
struct regnode_charclass_class;

typedef I32 CHECKPOINT;

struct ptr_tbl_ent {
    struct ptr_tbl_ent* next;
    void* oldval;
    void* newval;
};

struct ptr_tbl {
    struct ptr_tbl_ent** tbl_ary;
    UV tbl_max;
    UV tbl_items;
};
# 2532 "perl.h"
uid_t getuid (void);
uid_t geteuid (void);
gid_t getgid (void);
gid_t getegid (void);
# 2797 "perl.h"
struct ufuncs {
    I32 (*uf_val)(register PerlInterpreter *my_perl __attribute__((unused)), IV, SV*);
    I32 (*uf_set)(register PerlInterpreter *my_perl __attribute__((unused)), IV, SV*);
    IV uf_index;
};
# 2827 "perl.h"
char *mktemp (char*);

double atof (const char*);
# 2848 "perl.h"
# 1 "SDK:clib2/include/math.h" 1 3 4
# 51 "SDK:clib2/include/math.h" 3 4
extern double __huge_val;







extern double acos(double x);
extern double asin(double x);
extern double atan(double x);
extern double atan2(double y,double x);
extern double ceil(double x);
extern double cos(double x);
extern double cosh(double x);
extern double exp(double x);
extern double fabs(double x);
extern double floor(double x);
extern double fmod(double x,double y);
extern double frexp(double x,int *nptr);
extern double ldexp(double x,int n);
extern double log(double x);
extern double log10(double x);
extern double modf(double x,double *nptr);
extern double pow(double x,double y);
extern double sin(double x);
extern double sinh(double x);
extern double sqrt(double x);
extern double tan(double x);
extern double tanh(double x);
# 117 "SDK:clib2/include/math.h" 3 4
extern float __huge_val_float;







extern float __infinity;
extern float __nan;
# 144 "SDK:clib2/include/math.h" 3 4
extern int __fpclassify_float(float x);
extern int __fpclassify_double(double x);
extern int __isfinite_float(float x);
extern int __isfinite_double(double x);
extern int __signbit_float(float x);
extern int __signbit_double(double x);
# 188 "SDK:clib2/include/math.h" 3 4
extern int __isunordered_float(float x,float y);
extern int __isunordered_float_double(float x,double y);
extern int __isunordered_double(double x,double y);
# 220 "SDK:clib2/include/math.h" 3 4
extern float acosf(float x);
extern float asinf(float x);
extern float atanf(float x);
extern float atan2f(float y, float x);
extern float ceilf(float x);
extern float cosf(float x);
extern float coshf(float x);
extern float expf(float x);
extern float fabsf(float x);
extern float floorf(float x);
extern float fmodf(float x, float y);
extern float frexpf(float x, int *eptr);
extern float ldexpf(float x,int exp);
extern float logf(float x);
extern float log10f(float x);
extern float modff(float x, float *iptr);
extern float powf(float x, float y);
extern float sinf(float x);
extern float sinhf(float x);
extern float sqrtf(float x);
extern float tanf(float x);
extern float tanhf(float x);



extern float acoshf(float x);
extern float asinhf(float x);
extern float cbrtf(float x);
extern float copysignf(float x, float y);
extern float erfcf(float x);
extern float erff(float x);
extern float expm1f(float x);
extern float fdimf(float x,float y);
extern float fmaxf(float x,float y);
extern float fminf(float x,float y);
extern float hypotf(float x, float y);
extern float lgammaf(float x);
extern float log1pf(float x);
extern float logbf(float x);
extern float nanf(const char *tagp);
extern float nextafterf(float x,float y);
extern float remainderf(float x, float p);
extern float rintf(float x);
extern float scalbnf (float x, int n);
extern int ilogbf(float x);



extern double acosh(double x);
extern double asinh(double x);
extern double cbrt(double x);
extern double copysign(double x, double y);
extern double erf(double x);
extern double erfc(double x);
extern double expm1(double x);
extern double fdim(double x,double y);
extern double fmax(double x,double y);
extern double fmin(double x,double y);
extern double hypot(double x,double y);
extern double lgamma(double x);
extern double log1p(double x);
extern double logb(double x);
extern double nan(const char *tagp);
extern double nextafter(double x,double y);
extern double remainder(double x, double p);
extern double rint(double x);
extern double scalbn (double x, int n);
extern int ilogb(double x);



extern float exp2f(float x);
extern double exp2(double x);

extern double log2(double x);
extern float log2f(float x);







typedef float float_t;
typedef double double_t;
# 2849 "perl.h" 2
# 2920 "perl.h"
char *crypt (const char*, const char*);





char *getenv (const char*);
# 2937 "perl.h"
char *getlogin (void);
# 2975 "perl.h"
typedef Sighandler_t Sigsave_t;
# 3014 "perl.h"
typedef int (*runops_proc_t) ( PerlInterpreter *my_perl __attribute__((unused)));
typedef void (*share_proc_t) ( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
typedef int (*thrhook_proc_t) ( PerlInterpreter *my_perl __attribute__((unused)));
typedef OP* (*PPADDR_t[]) ( PerlInterpreter *my_perl __attribute__((unused)));
# 3042 "perl.h"
extern char ** environ;







extern const char PL_warn_uninit[]
  ;
extern const char PL_warn_nosemi[]
  ;
extern const char PL_warn_reserved[]
  ;
extern const char PL_warn_nl[]
  ;
extern const char PL_no_wrongref[]
  ;
extern const char PL_no_symref[]
  ;
extern const char PL_no_usym[]
  ;
extern const char PL_no_aelem[]
  ;
extern const char PL_no_helem[]
  ;
extern const char PL_no_modify[]
  ;
extern const char PL_no_mem[]
  ;
extern const char PL_no_security[]
  ;
extern const char PL_no_sock_func[]
  ;
extern const char PL_no_dir_func[]
  ;
extern const char PL_no_func[]
  ;
extern const char PL_no_myglob[]
  ;
extern const char PL_no_localize_ref[]
  ;





extern const char PL_uuemap[65]
  ;






extern char *PL_sig_name[];
extern int PL_sig_num[];
# 3176 "perl.h"
extern const unsigned char PL_fold[];
# 3215 "perl.h"
extern unsigned char PL_fold_locale[];
# 3291 "perl.h"
extern const unsigned char PL_freq[];
# 3305 "perl.h"
extern const char* PL_block_type[];




# 3331 "perl.h"
# 1 "perly.h" 1
# 65 "perly.h"
typedef union {
    I32 ival;
    char *pval;
    OP *opval;
    GV *gvval;
} YYSTYPE;
# 3332 "perl.h" 2



typedef enum {
    XOPERATOR,
    XTERM,
    XREF,
    XSTATE,
    XBLOCK,
    XATTRBLOCK,
    XATTRTERM,
    XTERMBLOCK
} expectation;

enum {
    want_vtbl_sv,
    want_vtbl_env,
    want_vtbl_envelem,
    want_vtbl_sig,
    want_vtbl_sigelem,
    want_vtbl_pack,
    want_vtbl_packelem,
    want_vtbl_dbline,
    want_vtbl_isa,
    want_vtbl_isaelem,
    want_vtbl_arylen,
    want_vtbl_glob,
    want_vtbl_mglob,
    want_vtbl_nkeys,
    want_vtbl_taint,
    want_vtbl_substr,
    want_vtbl_vec,
    want_vtbl_pos,
    want_vtbl_bm,
    want_vtbl_fm,
    want_vtbl_uvar,
    want_vtbl_defelem,
    want_vtbl_regexp,
    want_vtbl_collxfrm,
    want_vtbl_amagic,
    want_vtbl_amagicelem,



    want_vtbl_regdata,
    want_vtbl_regdatum,
    want_vtbl_backref,
    want_vtbl_utf8
};
# 3427 "perl.h"
struct perl_debug_pad {
  SV pad[3];
};





typedef void (*peep_t)( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
typedef regexp*(*regcomp_t) ( PerlInterpreter *my_perl __attribute__((unused)), char* exp, char* xend, PMOP* pm);
typedef I32 (*regexec_t) ( PerlInterpreter *my_perl __attribute__((unused)), regexp* prog, char* stringarg,
          char* strend, char* strbeg, I32 minend,
          SV* screamer, void* data, U32 flags);
typedef char* (*re_intuit_start_t) ( PerlInterpreter *my_perl __attribute__((unused)), regexp *prog, SV *sv,
      char *strpos, char *strend,
      U32 flags,
      struct re_scream_pos_data_s *d);
typedef SV* (*re_intuit_string_t) ( PerlInterpreter *my_perl __attribute__((unused)), regexp *prog);
typedef void (*regfree_t) ( PerlInterpreter *my_perl __attribute__((unused)), struct regexp* r);

typedef void (*DESTRUCTORFUNC_NOCONTEXT_t) (void*);
typedef void (*DESTRUCTORFUNC_t) ( PerlInterpreter *my_perl __attribute__((unused)), void*);
typedef void (*SVFUNC_t) ( PerlInterpreter *my_perl __attribute__((unused)), SV*);
typedef I32 (*SVCOMPARE_t) ( PerlInterpreter *my_perl __attribute__((unused)), SV*, SV*);
typedef void (*XSINIT_t) ( PerlInterpreter *my_perl __attribute__((unused)));
typedef void (*ATEXIT_t) ( PerlInterpreter *my_perl __attribute__((unused)), void*);
typedef void (*XSUBADDR_t) ( PerlInterpreter *my_perl __attribute__((unused)), CV *);
# 3462 "perl.h"
typedef struct exitlistentry {
    void (*fn) ( PerlInterpreter *my_perl __attribute__((unused)), void*);
    void *ptr;
} PerlExitListEntry;
# 3492 "perl.h"
struct interpreter {

# 1 "thrdvar.h" 1
# 34 "thrdvar.h"
SV ** Tstack_sp;



OP * Top;

SV ** Tcurpad;

SV ** Tstack_base;
SV ** Tstack_max;

I32 * Tscopestack;
I32 Tscopestack_ix;
I32 Tscopestack_max;

ANY * Tsavestack;

I32 Tsavestack_ix;
I32 Tsavestack_max;

SV ** Ttmps_stack;
I32 Ttmps_ix;
I32 Ttmps_floor;
I32 Ttmps_max;

I32 * Tmarkstack;
I32 * Tmarkstack_ptr;
I32 * Tmarkstack_max;

OP ** Tretstack;
I32 Tretstack_ix;
I32 Tretstack_max;

SV * TSv;
XPV * TXpv;
# 81 "thrdvar.h"
STRLEN Tna;



struct stat Tstatbuf;
struct stat Tstatcache;
GV * Tstatgv;
SV * Tstatname;






char Ttainted;
PMOP * Tcurpm;
SV * Tnrs;
# 115 "thrdvar.h"
SV * Trs;
GV * Tlast_in_gv;
SV * Tofs_sv;
GV * Tdefoutgv;
char * Tchopset;
SV * Tformtarget;
SV * Tbodytarget;
SV * Ttoptarget;


HV * Tdefstash;
HV * Tcurstash;

OP * Trestartop;
COP * volatile Tcurcop;
volatile int Tin_eval;
int Tdelaymagic;
char Tdirty;
int Tlocalizing;

AV * Tcurstack;
PERL_SI * Tcurstackinfo;
AV * Tmainstack;

JMPENV * Ttop_env;
JMPENV Tstart_env;



SV * Terrors;


SV * Tav_fetch_sv;
SV * Thv_fetch_sv;
HE* Thv_fetch_ent_mh;

I32 Tmodcount;

OP* Tlastgotoprobe;
I32 Tdumpindent;


OP * Tsortcop;
HV * Tsortstash;
GV * Tfirstgv;
GV * Tsecondgv;
I32 Tsortcxix;


char* Tefloatbuf;
STRLEN Tefloatsize;



I32 * Tscreamfirst;
I32 * Tscreamnext;
I32 Tmaxscream;
SV * Tlastscream;

regnode Tregdummy;
char* Tregcomp_parse;
char* Tregxend;
regnode* Tregcode;
I32 Tregnaughty;
I32 Tregsawback;
char * Tregprecomp;
I32 Tregnpar;
I32 Tregsize;
U32 Tregflags;
U32 Tregseen;
I32 Tseen_zerolen;
I32 Tseen_evals;
regexp * Tregcomp_rx;
I32 Textralen;
int Tcolorset;
char * Tcolors[6];
I32 Treg_whilem_seen;
char * Treginput;
char * Tregbol;
char * Tregeol;
I32 * Tregstartp;
I32 * Tregendp;
U32 * Treglastparen;
U32 * Treglastcloseparen;
char * Tregtill;
char Tregcompat1;
char ** Treg_start_tmp;
U32 Treg_start_tmpl;
struct reg_data * Tregdata;

char * Tbostr;
U32 Treg_flags;
I32 Treg_eval_set;
I32 Tregnarrate;
regnode * Tregprogram;
int Tregindent;
CURCUR * Tregcc;
struct re_cc_state * Treg_call_cc;
regexp * Treg_re;
char * Treg_ganch;
SV * Treg_sv;
MAGIC * Treg_magic;
I32 Treg_oldpos;
PMOP* Treg_oldcurpm;
PMOP* Treg_curpm;
char* Treg_oldsaved;
STRLEN Treg_oldsavedlen;
I32 Treg_maxiter;
I32 Treg_leftiter;
char * Treg_poscache;
STRLEN Treg_poscache_size;

peep_t Tpeepp;

regcomp_t Tregcompp;

regexec_t Tregexecp;

re_intuit_start_t Tregint_start;

re_intuit_string_t Tregint_string;

regfree_t Tregfree;


int Treginterp_cnt;

char * Treg_starttry;
char ** Twatchaddr;
char * Twatchok;
# 275 "thrdvar.h"
char Treg_match_utf8;

AV * Tcomppad;
# 3495 "perl.h" 2

# 1 "intrpvar.h" 1
# 20 "intrpvar.h"
int Iorigargc;
char ** Iorigargv;
GV * Ienvgv;
GV * Iincgv;
GV * Ihintgv;
char * Iorigfilename;
SV * Idiehook;
SV * Iwarnhook;


char Iminus_c;
SV * Ipatchlevel;
char ** Ilocalpatches;
char * Isplitstr;
char Ipreprocess;
char Iminus_n;
char Iminus_p;
char Iminus_l;
char Iminus_a;
char Iminus_F;
char Idoswitches;
# 52 "intrpvar.h"
U8 Idowarn;
char Iwidesyscalls;
char Idoextract;
char Isawampersand;
char Iunsafe;
char * Iinplace;
SV * Ie_script;
U32 Iperldb;



int Iperl_destruct_level;


long Ibasetime;
SV * Iformfeed;


I32 Imaxsysfd;

int Imultiline;
I32 Istatusvalue;
U8 Iexit_flags;





GV * Istdingv;
GV * Istderrgv;
GV * Idefgv;
GV * Iargvgv;
GV * Iargvoutgv;
AV * Iargvout_stack;




GV * Ireplgv;


GV * Ierrgv;


GV * IDBgv;
GV * IDBline;
# 121 "intrpvar.h"
GV * IDBsub;
SV * IDBsingle;
SV * IDBtrace;
SV * IDBsignal;
AV * Ilineary;
AV * Idbargs;


HV * Idebstash;
HV * Iglobalstash;
SV * Icurstname;
AV * Ibeginav;
AV * Iendav;
AV * Icheckav;
AV * Iinitav;
HV * Istrtab;
U32 Isub_generation;


I32 Isv_count;
I32 Isv_objcount;
SV* Isv_root;
SV* Isv_arenaroot;


int Iforkprocess;


AV * Ifdpid;


char Itainting;
char * Iop_mask;


CV * Imain_cv;
OP * Imain_root;
OP * Imain_start;
OP * Ieval_root;
OP * Ieval_start;


COP * Icurcopdb;
line_t Icopline;


int Ifilemode;
int Ilastfd;
char * Ioldname;
char ** IArgv;
char * ICmd;
I32 Igensym;
char Ipreambled;
AV * Ipreambleav;
int Ilaststatval;
I32 Ilaststype;
SV * Imess_sv;


SV * Iors_sv;
char * Iofmt;


PerlExitListEntry * Iexitlist;

I32 Iexitlistlen;
# 200 "intrpvar.h"
HV * Imodglobal;


U32 * Iprofiledata;
PerlIO * volatile Irsfp;
AV * Irsfp_filters;

COP Icompiling;

CV * Icompcv;
AV * IBINCOMPAT0;
AV * Icomppad_name;
I32 Icomppad_name_fill;
I32 Icomppad_name_floor;







int Igeneration;
CV * IDBcv;

char Iin_clean_objs;
char Iin_clean_all;

char * Ilinestart;
char Ipending_ident;
SUBLEXINFO Isublex_info;







uid_t Iuid;
uid_t Ieuid;
gid_t Igid;
gid_t Iegid;
char Inomemok;
U32 Ian;
U32 Icop_seqmax;
U16 Iop_seqmax;
U32 Ievalseq;
char ** Iorigenviron;
U32 Iorigalen;
HV * Ipidstatus;
int Imaxo;
char * Iosname;


char * Ish_path_compat;

Sighandler_t Isighandlerp;

XPV* Ixiv_arenaroot;
IV * Ixiv_root;
NV * Ixnv_root;
XRV * Ixrv_root;
XPV * Ixpv_root;
XPVIV * Ixpviv_root;
XPVNV * Ixpvnv_root;
XPVCV * Ixpvcv_root;
XPVAV * Ixpvav_root;
XPVHV * Ixpvhv_root;
XPVMG * Ixpvmg_root;
XPVLV * Ixpvlv_root;
XPVBM * Ixpvbm_root;
HE * Ihe_root;
char * Inice_chunk;
U32 Inice_chunk_size;

runops_proc_t Irunops;

char Itokenbuf[256];
# 293 "intrpvar.h"
SV Isv_undef;
SV Isv_no;
SV Isv_yes;






U32 Ilex_state;
U32 Ilex_defer;
int Ilex_expect;
I32 Ilex_brackets;
I32 Ilex_formbrack;
I32 Ilex_casemods;
I32 Ilex_dojoin;
I32 Ilex_starts;
SV * Ilex_stuff;
SV * Ilex_repl;
OP * Ilex_op;
OP * Ilex_inpat;
I32 Ilex_inwhat;
char * Ilex_brackstack;
char * Ilex_casestack;


YYSTYPE Inextval[5];
I32 Inexttype[5];
I32 Inexttoke;

SV * Ilinestr;
char * Ibufptr;
char * Ioldbufptr;
char * Ioldoldbufptr;
char * Ibufend;
int Iexpect;

I32 Imulti_start;
I32 Imulti_end;
I32 Imulti_open;
I32 Imulti_close;

I32 Ierror_count;
I32 Isubline;
SV * Isubname;

I32 Imin_intro_pending;
I32 Imax_intro_pending;
I32 Ipadix;
I32 Ipadix_floor;
I32 Ipad_reset_pending;

char * Ilast_uni;
char * Ilast_lop;
U16 Ilast_lop_op;
I32 Iin_my;
HV * Iin_my_stash;




U32 Ihints;

volatile U32 Idebug;

long Iamagic_generation;


U32 Icollation_ix;
char * Icollation_name;
char Icollation_standard;

size_t Icollxfrm_base;
size_t Icollxfrm_mult;




char * Inumeric_name;
char Inumeric_standard;

char Inumeric_local;


char Inumeric_compat1;




SV * Iutf8_alnum;
SV * Iutf8_alnumc;
SV * Iutf8_ascii;
SV * Iutf8_alpha;
SV * Iutf8_space;
SV * Iutf8_cntrl;
SV * Iutf8_graph;
SV * Iutf8_digit;
SV * Iutf8_upper;
SV * Iutf8_lower;
SV * Iutf8_print;
SV * Iutf8_punct;
SV * Iutf8_xdigit;
SV * Iutf8_mark;
SV * Iutf8_toupper;
SV * Iutf8_totitle;
SV * Iutf8_tolower;
SV * Iutf8_tofold;
HV * Ilast_swash_hv;
U32 Ilast_swash_klen;
U8 Ilast_swash_key[10];
U8 * Ilast_swash_tmps;
STRLEN Ilast_swash_slen;


int Iyydebug;
int Iyynerrs;
int Iyyerrflag;
int Iyychar;
YYSTYPE Iyyval;
YYSTYPE Iyylval;

int Iglob_index;
char Isrand_called;
char Iuudmap[256];
char * Ibitcount;
# 439 "intrpvar.h"
SV** Ipsig_ptr;
SV** Ipsig_name;
# 455 "intrpvar.h"
PTR_TBL_t* Iptr_table;

AV* Ibeginav_save;






HV * Inullstash;

XPV* Ixnv_arenaroot;
XPV* Ixrv_arenaroot;
XPV* Ixpv_arenaroot;
XPVIV* Ixpviv_arenaroot;
XPVNV* Ixpvnv_arenaroot;
XPVCV* Ixpvcv_arenaroot;
XPVAV* Ixpvav_arenaroot;
XPVHV* Ixpvhv_arenaroot;
XPVMG* Ixpvmg_arenaroot;
XPVLV* Ixpvlv_arenaroot;
XPVBM* Ixpvbm_arenaroot;
XPV* Ihe_arenaroot;



int * Ipsig_pend;
int Isig_pending;



SV * Inumeric_radix_sv;




SV** Iregex_pad;
AV* Iregex_padav;




REENTR* Ireentrant_buffer;


char Isavebegin;

HV* Icustom_op_names;
HV* Icustom_op_descs;


PerlIO * Iperlio;
PerlIO_list_t * Iknown_layers;
PerlIO_list_t * Idef_layerlist;


SV* Iencoding;

struct perl_debug_pad Idebug_pad;

char Itaint_warn;







char Iutf8locale;

SV * Iutf8_idstart;
SV * Iutf8_idcont;

SVCOMPARE_t Isort_RealCmp;

AV* Icheckav_save;

long Iclocktick;

int Iin_load_module;

U32 Iunicode;

U32 Isignals;

HV * Istashcache;

int Ireentrant_retint;


share_proc_t Isharehook;
share_proc_t Ilockhook;
share_proc_t Iunlockhook;
thrhook_proc_t Ithreadhook;


runops_proc_t Irunops_std;
runops_proc_t Irunops_dbg;






UV Ihash_seed;

char Ihash_seed_set;

UV Irehash_seed;

char Irehash_seed_set;




int Ifdscript;
int Isuidscript;
# 3497 "perl.h" 2




char object_compatibility[30];
};
# 3523 "perl.h"
typedef void *Thread;
# 3533 "perl.h"
typedef enum {
  e_no_len,
  e_number,
  e_star
} howlen_t;

typedef struct {
  char* patptr;
  char* patend;
  char* grpbeg;
  char* grpend;
  I32 code;
  I32 length;
  howlen_t howlen;
  int level;
  U32 flags;
} tempsym_t;

# 1 "thread.h" 1
# 3552 "perl.h" 2
# 1 "pp.h" 1
# 3553 "perl.h" 2
# 3572 "perl.h"
# 1 "proto.h" 1
# 18 "proto.h"





 PerlInterpreter* perl_alloc(void);
 void perl_construct(PerlInterpreter* interp);
 int perl_destruct(PerlInterpreter* interp);
 void perl_free(PerlInterpreter* interp);
 int perl_run(PerlInterpreter* interp);
 int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env);
 char Perl_doing_taint(int argc, char** argv, char** env);

 PerlInterpreter* perl_clone(PerlInterpreter* interp, UV flags);






 void * Perl_malloc(size_t nbytes);
 void * Perl_calloc(size_t elements, size_t size);
 void * Perl_realloc(void * where, size_t nbytes);
 void Perl_mfree(void * where);




 void* Perl_get_context(void);
 void Perl_set_context(void *thx);





# 1 "pp_proto.h" 1





OP *Perl_ck_anoncode ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_bitop ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_concat ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_defined ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_delete ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_die ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_eof ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_eval ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_exec ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_exists ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_exit ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_ftst ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_fun ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_glob ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_grep ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_index ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_join ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_lengthconst ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_lfun ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_listiob ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_match ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_method ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_null ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_open ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_repeat ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_require ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_return ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_rfun ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_rvconst ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_sassign ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_select ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_shift ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_sort ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_spair ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_split ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_subr ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_substr ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_svconst ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);
OP *Perl_ck_trunc ( PerlInterpreter *my_perl __attribute__((unused)), OP *o);


OP *Perl_pp_null ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_stub ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_scalar ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pushmark ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_wantarray ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_const ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gvsv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gelem ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_padsv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_padav ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_padhv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_padany ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pushre ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rv2gv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rv2sv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_av2arylen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rv2cv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_anoncode ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_prototype ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_refgen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_srefgen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ref ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_bless ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_backtick ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_glob ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_readline ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rcatline ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_regcmaybe ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_regcreset ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_regcomp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_match ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_qr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_subst ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_substcont ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_trans ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sassign ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_aassign ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_schop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chomp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_schomp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_defined ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_undef ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_study ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pos ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_preinc ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_predec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_postinc ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_postdec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pow ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_multiply ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_multiply ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_divide ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_divide ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_modulo ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_modulo ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_repeat ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_add ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_add ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_subtract ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_subtract ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_concat ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_stringify ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_left_shift ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_right_shift ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_lt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_gt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_le ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_le ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ge ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_ge ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_eq ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_eq ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ne ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_ne ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ncmp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_ncmp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_slt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sgt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sle ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sge ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_seq ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sne ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_scmp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_bit_and ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_bit_xor ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_bit_or ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_negate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_i_negate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_not ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_complement ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_atan2 ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sin ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_cos ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rand ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_srand ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_exp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_log ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sqrt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_int ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_hex ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_oct ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_abs ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_length ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_substr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_vec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_index ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rindex ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sprintf ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_formline ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ord ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_crypt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ucfirst ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lcfirst ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_uc ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lc ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_quotemeta ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rv2av ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_aelemfast ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_aelem ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_aslice ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_each ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_values ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_keys ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_delete ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_exists ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rv2hv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_helem ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_hslice ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_unpack ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pack ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_split ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_join ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_list ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lslice ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_anonlist ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_anonhash ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_splice ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_push ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shift ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_unshift ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sort ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_reverse ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_grepstart ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_grepwhile ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_mapstart ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_mapwhile ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_range ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_flip ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_flop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_and ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_or ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_xor ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_cond_expr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_andassign ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_orassign ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_method ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_entersub ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leavesub ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leavesublv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_caller ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_warn ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_die ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_reset ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lineseq ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_nextstate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_dbstate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_unstack ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_enter ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leave ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_scope ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_enteriter ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_iter ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_enterloop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leaveloop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_return ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_last ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_next ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_redo ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_dump ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_goto ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_exit ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_open ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_close ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_pipe_op ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fileno ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_umask ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_binmode ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_tie ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_untie ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_tied ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_dbmopen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_dbmclose ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sselect ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_select ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getc ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_read ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_enterwrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leavewrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_prtf ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_print ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sysopen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sysseek ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sysread ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_syswrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_send ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_recv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_eof ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_tell ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_seek ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_truncate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fcntl ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ioctl ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_flock ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_socket ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sockpair ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_bind ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_connect ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_listen ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_accept ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shutdown ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gsockopt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ssockopt ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getsockname ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getpeername ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lstat ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_stat ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftrread ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftrwrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftrexec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fteread ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftewrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fteexec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftis ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fteowned ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftrowned ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftzero ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftsize ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftmtime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftatime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftctime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftsock ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftchr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftblk ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftfile ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftpipe ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftlink ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftsuid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftsgid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftsvtx ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fttty ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fttext ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ftbinary ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chown ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chroot ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_unlink ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_chmod ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_utime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rename ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_link ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_symlink ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_readlink ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_mkdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rmdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_open_dir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_readdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_telldir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_seekdir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_rewinddir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_closedir ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_fork ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_wait ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_waitpid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_system ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_exec ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_kill ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getppid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getpgrp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_setpgrp ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getpriority ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_setpriority ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_time ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_tms ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_localtime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gmtime ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_alarm ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sleep ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shmget ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shmctl ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shmread ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shmwrite ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_msgget ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_msgctl ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_msgsnd ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_msgrcv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_semget ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_semctl ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_semop ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_require ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_dofile ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_entereval ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leaveeval ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_entertry ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_leavetry ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ghbyname ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ghbyaddr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ghostent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gnbyname ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gnbyaddr ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gnetent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gpbyname ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gpbynumber ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gprotoent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gsbyname ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gsbyport ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gservent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_shostent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_snetent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sprotoent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sservent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ehostent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_enetent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_eprotoent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_eservent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gpwnam ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gpwuid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_gpwent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_spwent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_epwent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ggrnam ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ggrgid ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_ggrent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_sgrent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_egrent ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_getlogin ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_syscall ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_lock ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_threadsv ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_setstate ( PerlInterpreter *my_perl __attribute__((unused)));
OP *Perl_pp_method_named ( PerlInterpreter *my_perl __attribute__((unused)));
# 54 "proto.h" 2
 SV* Perl_amagic_call( PerlInterpreter *my_perl __attribute__((unused)), SV* left, SV* right, int method, int dir);
 char Perl_Gv_AMupdate( PerlInterpreter *my_perl __attribute__((unused)), HV* stash);
 CV* Perl_gv_handler( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, I32 id);
 OP* Perl_append_elem( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, OP* head, OP* tail);
 OP* Perl_append_list( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, LISTOP* first, LISTOP* last);
 I32 Perl_apply( PerlInterpreter *my_perl __attribute__((unused)), I32 type, SV** mark, SV** sp);
 void Perl_apply_attrs_string( PerlInterpreter *my_perl __attribute__((unused)), char *stashpv, CV *cv, char *attrstr, STRLEN len);
 SV* Perl_avhv_delete_ent( PerlInterpreter *my_perl __attribute__((unused)), AV *ar, SV* keysv, I32 flags, U32 hash);
 char Perl_avhv_exists_ent( PerlInterpreter *my_perl __attribute__((unused)), AV *ar, SV* keysv, U32 hash);
 SV** Perl_avhv_fetch_ent( PerlInterpreter *my_perl __attribute__((unused)), AV *ar, SV* keysv, I32 lval, U32 hash);
 SV** Perl_avhv_store_ent( PerlInterpreter *my_perl __attribute__((unused)), AV *ar, SV* keysv, SV* val, U32 hash);
 HE* Perl_avhv_iternext( PerlInterpreter *my_perl __attribute__((unused)), AV *ar);
 SV* Perl_avhv_iterval( PerlInterpreter *my_perl __attribute__((unused)), AV *ar, HE* entry);
 HV* Perl_avhv_keys( PerlInterpreter *my_perl __attribute__((unused)), AV *ar);
 void Perl_av_clear( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 SV* Perl_av_delete( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 key, I32 flags);
 char Perl_av_exists( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 key);
 void Perl_av_extend( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 key);
 AV* Perl_av_fake( PerlInterpreter *my_perl __attribute__((unused)), I32 size, SV** svp);
 SV** Perl_av_fetch( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 key, I32 lval);
 void Perl_av_fill( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 fill);
 I32 Perl_av_len( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 AV* Perl_av_make( PerlInterpreter *my_perl __attribute__((unused)), I32 size, SV** svp);
 SV* Perl_av_pop( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 void Perl_av_push( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, SV* val);
 void Perl_av_reify( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 SV* Perl_av_shift( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 SV** Perl_av_store( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 key, SV* val);
 void Perl_av_undef( PerlInterpreter *my_perl __attribute__((unused)), AV* ar);
 void Perl_av_unshift( PerlInterpreter *my_perl __attribute__((unused)), AV* ar, I32 num);
 OP* Perl_bind_match( PerlInterpreter *my_perl __attribute__((unused)), I32 type, OP* left, OP* pat);
 OP* Perl_block_end( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP* seq);
 I32 Perl_block_gimme( PerlInterpreter *my_perl __attribute__((unused)));
 int Perl_block_start( PerlInterpreter *my_perl __attribute__((unused)), int full);
 void Perl_boot_core_UNIVERSAL( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_boot_core_PerlIO( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_call_list( PerlInterpreter *my_perl __attribute__((unused)), I32 oldscope, AV* av_list);
 char Perl_cando( PerlInterpreter *my_perl __attribute__((unused)), mode_t mode, uid_t effective, struct stat* statbufp);
 U32 Perl_cast_ulong( PerlInterpreter *my_perl __attribute__((unused)), NV f);
 I32 Perl_cast_i32( PerlInterpreter *my_perl __attribute__((unused)), NV f);
 IV Perl_cast_iv( PerlInterpreter *my_perl __attribute__((unused)), NV f);
 UV Perl_cast_uv( PerlInterpreter *my_perl __attribute__((unused)), NV f);






 OP* Perl_convert( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, I32 flags, OP* o);
 void Perl_croak( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...) __attribute__((noreturn))
        ;
 void Perl_vcroak( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((noreturn));

 void Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn))
        ;
 OP* Perl_die_nocontext(const char* pat, ...)
        ;
 void Perl_deb_nocontext(const char* pat, ...)
        ;
 char* Perl_form_nocontext(const char* pat, ...)
        ;
 void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...);
 SV* Perl_mess_nocontext(const char* pat, ...)
        ;
 void Perl_warn_nocontext(const char* pat, ...)
        ;
 void Perl_warner_nocontext(U32 err, const char* pat, ...)
        ;
 SV* Perl_newSVpvf_nocontext(const char* pat, ...)
        ;
 void Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
        ;
 void Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
        ;
 void Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
        ;
 void Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
        ;
 int Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...)
        ;
 int Perl_printf_nocontext(const char* fmt, ...)
        ;

 void Perl_cv_ckproto( PerlInterpreter *my_perl __attribute__((unused)), CV* cv, GV* gv, char* p);
 CV* Perl_cv_clone( PerlInterpreter *my_perl __attribute__((unused)), CV* proto);
 SV* Perl_cv_const_sv( PerlInterpreter *my_perl __attribute__((unused)), CV* cv);
 SV* Perl_op_const_sv( PerlInterpreter *my_perl __attribute__((unused)), OP* o, CV* cv);
 void Perl_cv_undef( PerlInterpreter *my_perl __attribute__((unused)), CV* cv);
 void Perl_cx_dump( PerlInterpreter *my_perl __attribute__((unused)), PERL_CONTEXT* cs);
 SV* Perl_filter_add( PerlInterpreter *my_perl __attribute__((unused)), filter_t funcp, SV* datasv);
 void Perl_filter_del( PerlInterpreter *my_perl __attribute__((unused)), filter_t funcp);
 I32 Perl_filter_read( PerlInterpreter *my_perl __attribute__((unused)), int idx, SV* buffer, int maxlen);
 char** Perl_get_op_descs( PerlInterpreter *my_perl __attribute__((unused)));
 char** Perl_get_op_names( PerlInterpreter *my_perl __attribute__((unused)));
 char* Perl_get_no_modify( PerlInterpreter *my_perl __attribute__((unused)));
 U32* Perl_get_opargs( PerlInterpreter *my_perl __attribute__((unused)));
 PPADDR_t* Perl_get_ppaddr( PerlInterpreter *my_perl __attribute__((unused)));
 I32 Perl_cxinc( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_deb( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 void Perl_vdeb( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 void Perl_debprofdump( PerlInterpreter *my_perl __attribute__((unused)));
 I32 Perl_debop( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 I32 Perl_debstack( PerlInterpreter *my_perl __attribute__((unused)));
 I32 Perl_debstackptrs( PerlInterpreter *my_perl __attribute__((unused)));
 char* Perl_delimcpy( PerlInterpreter *my_perl __attribute__((unused)), char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
 void Perl_deprecate( PerlInterpreter *my_perl __attribute__((unused)), char* s);
 void Perl_deprecate_old( PerlInterpreter *my_perl __attribute__((unused)), char* s);
 OP* Perl_die( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 OP* Perl_vdie( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 OP* Perl_die_where( PerlInterpreter *my_perl __attribute__((unused)), char* message, STRLEN msglen);
 void Perl_dounwind( PerlInterpreter *my_perl __attribute__((unused)), I32 cxix);

 I32 Perl_do_aexec( PerlInterpreter *my_perl __attribute__((unused)), SV* really, SV** mark, SV** sp);
 I32 Perl_do_aexec5( PerlInterpreter *my_perl __attribute__((unused)), SV* really, SV** mark, SV** sp, int fd, int flag);




 int Perl_do_binmode( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *fp, int iotype, int mode);
 void Perl_do_chop( PerlInterpreter *my_perl __attribute__((unused)), SV* asv, SV* sv);
 char Perl_do_close( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, char not_implicit);
 char Perl_do_eof( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);

 I32 Perl_do_exec( PerlInterpreter *my_perl __attribute__((unused)), char* cmd);
# 190 "proto.h"
 I32 Perl_do_exec3( PerlInterpreter *my_perl __attribute__((unused)), char* cmd, int fd, int flag);




 void Perl_do_execfree( PerlInterpreter *my_perl __attribute__((unused)));
# 204 "proto.h"
 void Perl_do_join( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV* del, SV** mark, SV** sp);
 OP* Perl_do_kv( PerlInterpreter *my_perl __attribute__((unused)));
 char Perl_do_open( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp);
 char Perl_do_open9( PerlInterpreter *my_perl __attribute__((unused)), GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num);
 char Perl_do_openn( PerlInterpreter *my_perl __attribute__((unused)), GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num);
 void Perl_do_pipe( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* rgv, GV* wgv);
 char Perl_do_print( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, PerlIO* fp);
 OP* Perl_do_readline( PerlInterpreter *my_perl __attribute__((unused)));
 I32 Perl_do_chomp( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char Perl_do_seek( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, off_t pos, int whence);
 void Perl_do_sprintf( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32 len, SV** sarg);
 off_t Perl_do_sysseek( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, off_t pos, int whence);
 off_t Perl_do_tell( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 I32 Perl_do_trans( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 UV Perl_do_vecget( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32 offset, I32 size);
 void Perl_do_vecset( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_do_vop( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, SV* sv, SV* left, SV* right);
 OP* Perl_dofile( PerlInterpreter *my_perl __attribute__((unused)), OP* term);
 I32 Perl_dowantarray( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_dump_all( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_dump_eval( PerlInterpreter *my_perl __attribute__((unused)));



 void Perl_dump_form( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_gv_dump( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_op_dump( PerlInterpreter *my_perl __attribute__((unused)), OP* arg);
 void Perl_pmop_dump( PerlInterpreter *my_perl __attribute__((unused)), PMOP* pm);
 void Perl_dump_packsubs( PerlInterpreter *my_perl __attribute__((unused)), HV* stash);
 void Perl_dump_sub( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_fbm_compile( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, U32 flags);
 char* Perl_fbm_instr( PerlInterpreter *my_perl __attribute__((unused)), unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
 char* Perl_find_script( PerlInterpreter *my_perl __attribute__((unused)), char *scriptname, char dosearch, char **search_ext, I32 flags);



 OP* Perl_force_list( PerlInterpreter *my_perl __attribute__((unused)), OP* arg);
 OP* Perl_fold_constants( PerlInterpreter *my_perl __attribute__((unused)), OP* arg);
 char* Perl_form( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 char* Perl_vform( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 void Perl_free_tmps( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_gen_constant_list( PerlInterpreter *my_perl __attribute__((unused)), OP* o);

 char* Perl_getenv_len( PerlInterpreter *my_perl __attribute__((unused)), const char* key, unsigned long *len);

 void Perl_gp_free( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 GP* Perl_gp_ref( PerlInterpreter *my_perl __attribute__((unused)), GP* gp);
 GV* Perl_gv_AVadd( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 GV* Perl_gv_HVadd( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 GV* Perl_gv_IOadd( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 GV* Perl_gv_autoload4( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 method);
 void Perl_gv_check( PerlInterpreter *my_perl __attribute__((unused)), HV* stash);
 void Perl_gv_efullname( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv);
 void Perl_gv_efullname3( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv, const char* prefix);
 void Perl_gv_efullname4( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv, const char* prefix, char keepmain);
 GV* Perl_gv_fetchfile( PerlInterpreter *my_perl __attribute__((unused)), const char* name);
 GV* Perl_gv_fetchmeth( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 level);
 GV* Perl_gv_fetchmeth_autoload( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 level);
 GV* Perl_gv_fetchmethod( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, const char* name);
 GV* Perl_gv_fetchmethod_autoload( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, const char* name, I32 autoload);
 GV* Perl_gv_fetchpv( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 add, I32 sv_type);
 void Perl_gv_fullname( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv);
 void Perl_gv_fullname3( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv, const char* prefix);
 void Perl_gv_fullname4( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, GV* gv, const char* prefix, char keepmain);
 void Perl_gv_init( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, HV* stash, const char* name, STRLEN len, int multi);
 HV* Perl_gv_stashpv( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 create);
 HV* Perl_gv_stashpvn( PerlInterpreter *my_perl __attribute__((unused)), const char* name, U32 namelen, I32 create);
 HV* Perl_gv_stashsv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32 create);
 void Perl_hv_clear( PerlInterpreter *my_perl __attribute__((unused)), HV* tb);
 void Perl_hv_delayfree_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, HE* entry);
 SV* Perl_hv_delete( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, const char* key, I32 klen, I32 flags);
 SV* Perl_hv_delete_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, SV* key, I32 flags, U32 hash);
 char Perl_hv_exists( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, const char* key, I32 klen);
 char Perl_hv_exists_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, SV* key, U32 hash);
 SV** Perl_hv_fetch( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, const char* key, I32 klen, I32 lval);
 HE* Perl_hv_fetch_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, SV* key, I32 lval, U32 hash);
 void Perl_hv_free_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, HE* entry);
 I32 Perl_hv_iterinit( PerlInterpreter *my_perl __attribute__((unused)), HV* tb);
 char* Perl_hv_iterkey( PerlInterpreter *my_perl __attribute__((unused)), HE* entry, I32* retlen);
 SV* Perl_hv_iterkeysv( PerlInterpreter *my_perl __attribute__((unused)), HE* entry);
 HE* Perl_hv_iternext( PerlInterpreter *my_perl __attribute__((unused)), HV* tb);
 SV* Perl_hv_iternextsv( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, char** key, I32* retlen);
 HE* Perl_hv_iternext_flags( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, I32 flags);
 SV* Perl_hv_iterval( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, HE* entry);
 void Perl_hv_ksplit( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, IV newmax);
 void Perl_hv_magic( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, GV* gv, int how);
 SV** Perl_hv_store( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, const char* key, I32 klen, SV* val, U32 hash);
 HE* Perl_hv_store_ent( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, SV* key, SV* val, U32 hash);
 SV** Perl_hv_store_flags( PerlInterpreter *my_perl __attribute__((unused)), HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags);
 void Perl_hv_undef( PerlInterpreter *my_perl __attribute__((unused)), HV* tb);
 I32 Perl_ibcmp( PerlInterpreter *my_perl __attribute__((unused)), const char* a, const char* b, I32 len);
 I32 Perl_ibcmp_locale( PerlInterpreter *my_perl __attribute__((unused)), const char* a, const char* b, I32 len);
 I32 Perl_ibcmp_utf8( PerlInterpreter *my_perl __attribute__((unused)), const char* a, char **pe1, UV l1, char u1, const char* b, char **pe2, UV l2, char u2);
 char Perl_ingroup( PerlInterpreter *my_perl __attribute__((unused)), gid_t testgid, uid_t effective);
 void Perl_init_argv_symbols( PerlInterpreter *my_perl __attribute__((unused)), int, char **);
 void Perl_init_debugger( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_init_stacks( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_init_tm( PerlInterpreter *my_perl __attribute__((unused)), struct tm *ptm);
 U32 Perl_intro_my( PerlInterpreter *my_perl __attribute__((unused)));
 char* Perl_instr( PerlInterpreter *my_perl __attribute__((unused)), const char* big, const char* little);
 char Perl_io_close( PerlInterpreter *my_perl __attribute__((unused)), IO* io, char not_implicit);
 OP* Perl_invert( PerlInterpreter *my_perl __attribute__((unused)), OP* cmd);
 char Perl_is_gv_magical( PerlInterpreter *my_perl __attribute__((unused)), char *name, STRLEN len, U32 flags);
 I32 Perl_is_lvalue_sub( PerlInterpreter *my_perl __attribute__((unused)));
 U32 Perl_to_uni_upper_lc( PerlInterpreter *my_perl __attribute__((unused)), U32 c);
 U32 Perl_to_uni_title_lc( PerlInterpreter *my_perl __attribute__((unused)), U32 c);
 U32 Perl_to_uni_lower_lc( PerlInterpreter *my_perl __attribute__((unused)), U32 c);
 char Perl_is_uni_alnum( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_alnumc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_idfirst( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_alpha( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_ascii( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_space( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_cntrl( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_graph( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_digit( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_upper( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_lower( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_print( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_punct( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_xdigit( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 UV Perl_to_uni_upper( PerlInterpreter *my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp);
 UV Perl_to_uni_title( PerlInterpreter *my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp);
 UV Perl_to_uni_lower( PerlInterpreter *my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp);
 UV Perl_to_uni_fold( PerlInterpreter *my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp);
 char Perl_is_uni_alnum_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_alnumc_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_idfirst_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_alpha_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_ascii_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_space_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_cntrl_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_graph_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_digit_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_upper_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_lower_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_print_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_punct_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 char Perl_is_uni_xdigit_lc( PerlInterpreter *my_perl __attribute__((unused)), UV c);
 STRLEN Perl_is_utf8_char( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_string( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN len);
 char Perl_is_utf8_string_loc( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN len, U8 **p);
 char Perl_is_utf8_alnum( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_alnumc( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_idfirst( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_idcont( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_alpha( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_ascii( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_space( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_cntrl( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_digit( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_graph( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_upper( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_lower( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_print( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_punct( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_xdigit( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 char Perl_is_utf8_mark( PerlInterpreter *my_perl __attribute__((unused)), U8 *p);
 OP* Perl_jmaybe( PerlInterpreter *my_perl __attribute__((unused)), OP* arg);
 I32 Perl_keyword( PerlInterpreter *my_perl __attribute__((unused)), char* d, I32 len);
 void Perl_leave_scope( PerlInterpreter *my_perl __attribute__((unused)), I32 base);
 void Perl_lex_end( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_lex_start( PerlInterpreter *my_perl __attribute__((unused)), SV* line);
 void Perl_op_null( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_op_clear( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_linklist( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_list( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_listkids( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_load_module( PerlInterpreter *my_perl __attribute__((unused)), U32 flags, SV* name, SV* ver, ...);
 void Perl_vload_module( PerlInterpreter *my_perl __attribute__((unused)), U32 flags, SV* name, SV* ver, va_list* args);
 OP* Perl_localize( PerlInterpreter *my_perl __attribute__((unused)), OP* arg, I32 lexical);
 I32 Perl_looks_like_number( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 UV Perl_grok_bin( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN* len, I32* flags, NV *result);
 UV Perl_grok_hex( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN* len, I32* flags, NV *result);
 int Perl_grok_number( PerlInterpreter *my_perl __attribute__((unused)), const char *pv, STRLEN len, UV *valuep);
 char Perl_grok_numeric_radix( PerlInterpreter *my_perl __attribute__((unused)), const char **sp, const char *send);
 UV Perl_grok_oct( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN* len, I32* flags, NV *result);
 int Perl_magic_clearenv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_clear_all_env( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_clearpack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_clearsig( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_existspack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_freeregexp( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_freeovrld( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_get( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getarylen( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getdefelem( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getglob( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getnkeys( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getpack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getpos( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getsig( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getsubstr( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_gettaint( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getuvar( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_getvec( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 U32 Perl_magic_len( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);



 int Perl_magic_nextpack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg, SV* key);
 U32 Perl_magic_regdata_cnt( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_regdatum_get( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_regdatum_set( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_set( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setamagic( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setarylen( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setbm( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setdbline( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);

 int Perl_magic_setcollxfrm( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);

 int Perl_magic_setdefelem( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setenv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setfm( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setisa( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setglob( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setmglob( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setnkeys( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setpack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setpos( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setregexp( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setsig( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setsubstr( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_settaint( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setuvar( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setvec( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_setutf8( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_set_all_env( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 U32 Perl_magic_sizepack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 int Perl_magic_wipepack( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, MAGIC* mg);
 void Perl_magicname( PerlInterpreter *my_perl __attribute__((unused)), char* sym, char* name, I32 namlen);
 void Perl_markstack_grow( PerlInterpreter *my_perl __attribute__((unused)));

 char* Perl_mem_collxfrm( PerlInterpreter *my_perl __attribute__((unused)), const char* s, STRLEN len, STRLEN* xlen);

 SV* Perl_mess( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 SV* Perl_vmess( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 void Perl_qerror( PerlInterpreter *my_perl __attribute__((unused)), SV* err);
 void Perl_sortsv( PerlInterpreter *my_perl __attribute__((unused)), SV ** array, size_t num_elts, SVCOMPARE_t cmp);
 int Perl_mg_clear( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 int Perl_mg_copy( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV* nsv, const char* key, I32 klen);
 MAGIC* Perl_mg_find( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, int type);
 int Perl_mg_free( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 int Perl_mg_get( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 U32 Perl_mg_length( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_mg_magical( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 int Perl_mg_set( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 I32 Perl_mg_size( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_mini_mktime( PerlInterpreter *my_perl __attribute__((unused)), struct tm *pm);
 OP* Perl_mod( PerlInterpreter *my_perl __attribute__((unused)), OP* o, I32 type);
 int Perl_mode_from_discipline( PerlInterpreter *my_perl __attribute__((unused)), SV* discp);
 char* Perl_moreswitches( PerlInterpreter *my_perl __attribute__((unused)), char* s);
 OP* Perl_my( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 NV Perl_my_atof( PerlInterpreter *my_perl __attribute__((unused)), const char *s);






 void Perl_my_exit( PerlInterpreter *my_perl __attribute__((unused)), U32 status) __attribute__((noreturn));
 void Perl_my_failure_exit( PerlInterpreter *my_perl __attribute__((unused))) __attribute__((noreturn));
 I32 Perl_my_fflush_all( PerlInterpreter *my_perl __attribute__((unused)));
 pid_t Perl_my_fork(void);
 void Perl_atfork_lock(void);
 void Perl_atfork_unlock(void);
 I32 Perl_my_lstat( PerlInterpreter *my_perl __attribute__((unused)));






 I32 Perl_my_pclose( PerlInterpreter *my_perl __attribute__((unused)), PerlIO* ptr);
 PerlIO* Perl_my_popen( PerlInterpreter *my_perl __attribute__((unused)), char* cmd, char* mode);
 PerlIO* Perl_my_popen_list( PerlInterpreter *my_perl __attribute__((unused)), char* mode, int n, SV ** args);
 void Perl_my_setenv( PerlInterpreter *my_perl __attribute__((unused)), char* nam, char* val);
 I32 Perl_my_stat( PerlInterpreter *my_perl __attribute__((unused)));
 char * Perl_my_strftime( PerlInterpreter *my_perl __attribute__((unused)), char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst);





 void Perl_my_unexec( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_newANONLIST( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_newANONHASH( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_newANONSUB( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP* proto, OP* block);
 OP* Perl_newASSIGNOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, OP* left, I32 optype, OP* right);
 OP* Perl_newCONDOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, OP* expr, OP* trueop, OP* falseop);
 CV* Perl_newCONSTSUB( PerlInterpreter *my_perl __attribute__((unused)), HV* stash, char* name, SV* sv);
 void Perl_newFORM( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP* o, OP* block);
 OP* Perl_newFOROP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont);
 OP* Perl_newLOGOP( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, I32 flags, OP* left, OP* right);
 OP* Perl_newLOOPEX( PerlInterpreter *my_perl __attribute__((unused)), I32 type, OP* label);
 OP* Perl_newLOOPOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, I32 debuggable, OP* expr, OP* block);
 OP* Perl_newNULLLIST( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_newOP( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, I32 flags);
 void Perl_newPROG( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_newRANGE( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, OP* left, OP* right);
 OP* Perl_newSLICEOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, OP* subscript, OP* listop);
 OP* Perl_newSTATEOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, char* label, OP* o);
 CV* Perl_newSUB( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP* o, OP* proto, OP* block);
 CV* Perl_newXS( PerlInterpreter *my_perl __attribute__((unused)), char* name, XSUBADDR_t f, char* filename);
 AV* Perl_newAV( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_newAVREF( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_newBINOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, OP* first, OP* last);
 OP* Perl_newCVREF( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, OP* o);
 OP* Perl_newGVOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, GV* gv);
 GV* Perl_newGVgen( PerlInterpreter *my_perl __attribute__((unused)), char* pack);
 OP* Perl_newGVREF( PerlInterpreter *my_perl __attribute__((unused)), I32 type, OP* o);
 OP* Perl_newHVREF( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 HV* Perl_newHV( PerlInterpreter *my_perl __attribute__((unused)));
 HV* Perl_newHVhv( PerlInterpreter *my_perl __attribute__((unused)), HV* hv);
 IO* Perl_newIO( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_newLISTOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, OP* first, OP* last);
 OP* Perl_newPADOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, SV* sv);
 OP* Perl_newPMOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags);
 OP* Perl_newPVOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, char* pv);
 SV* Perl_newRV( PerlInterpreter *my_perl __attribute__((unused)), SV* pref);
 SV* Perl_newRV_noinc( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 SV* Perl_newSV( PerlInterpreter *my_perl __attribute__((unused)), STRLEN len);
 OP* Perl_newSVREF( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_newSVOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, SV* sv);
 SV* Perl_newSViv( PerlInterpreter *my_perl __attribute__((unused)), IV i);
 SV* Perl_newSVuv( PerlInterpreter *my_perl __attribute__((unused)), UV u);
 SV* Perl_newSVnv( PerlInterpreter *my_perl __attribute__((unused)), NV n);
 SV* Perl_newSVpv( PerlInterpreter *my_perl __attribute__((unused)), const char* s, STRLEN len);
 SV* Perl_newSVpvn( PerlInterpreter *my_perl __attribute__((unused)), const char* s, STRLEN len);
 SV* Perl_newSVpvn_share( PerlInterpreter *my_perl __attribute__((unused)), const char* s, I32 len, U32 hash);
 SV* Perl_newSVpvf( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 SV* Perl_vnewSVpvf( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 SV* Perl_newSVrv( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname);
 SV* Perl_newSVsv( PerlInterpreter *my_perl __attribute__((unused)), SV* old);
 OP* Perl_newUNOP( PerlInterpreter *my_perl __attribute__((unused)), I32 type, I32 flags, OP* first);
 OP* Perl_newWHILEOP( PerlInterpreter *my_perl __attribute__((unused)), I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);

 PERL_SI* Perl_new_stackinfo( PerlInterpreter *my_perl __attribute__((unused)), I32 stitems, I32 cxitems);
 char* Perl_scan_vstring( PerlInterpreter *my_perl __attribute__((unused)), char *vstr, SV *sv);
 PerlIO* Perl_nextargv( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 char* Perl_ninstr( PerlInterpreter *my_perl __attribute__((unused)), const char* big, const char* bigend, const char* little, const char* lend);
 OP* Perl_oopsCV( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_op_free( PerlInterpreter *my_perl __attribute__((unused)), OP* arg);
 void Perl_package( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 PADOFFSET Perl_pad_alloc( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, U32 tmptype);
 PADOFFSET Perl_allocmy( PerlInterpreter *my_perl __attribute__((unused)), char* name);
 PADOFFSET Perl_pad_findmy( PerlInterpreter *my_perl __attribute__((unused)), char* name);
 OP* Perl_oopsAV( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_oopsHV( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_pad_leavemy( PerlInterpreter *my_perl __attribute__((unused)));
 SV* Perl_pad_sv( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET po);
 void Perl_pad_free( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET po);
 void Perl_pad_reset( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_pad_swipe( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET po, char refadjust);
 void Perl_peep( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 PerlIO* Perl_start_glob( PerlInterpreter *my_perl __attribute__((unused)), SV* pattern, IO *io);




 void Perl_reentrant_size( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_reentrant_init( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_reentrant_free( PerlInterpreter *my_perl __attribute__((unused)));
 void* Perl_reentrant_retry(const char*, ...);

 void Perl_call_atexit( PerlInterpreter *my_perl __attribute__((unused)), ATEXIT_t fn, void *ptr);
 I32 Perl_call_argv( PerlInterpreter *my_perl __attribute__((unused)), const char* sub_name, I32 flags, char** argv);
 I32 Perl_call_method( PerlInterpreter *my_perl __attribute__((unused)), const char* methname, I32 flags);
 I32 Perl_call_pv( PerlInterpreter *my_perl __attribute__((unused)), const char* sub_name, I32 flags);
 I32 Perl_call_sv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32 flags);
 void Perl_despatch_signals( PerlInterpreter *my_perl __attribute__((unused)));
 SV* Perl_eval_pv( PerlInterpreter *my_perl __attribute__((unused)), const char* p, I32 croak_on_error);
 I32 Perl_eval_sv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32 flags);
 SV* Perl_get_sv( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 create);
 AV* Perl_get_av( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 create);
 HV* Perl_get_hv( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 create);
 CV* Perl_get_cv( PerlInterpreter *my_perl __attribute__((unused)), const char* name, I32 create);
 int Perl_init_i18nl10n( PerlInterpreter *my_perl __attribute__((unused)), int printwarn);
 int Perl_init_i18nl14n( PerlInterpreter *my_perl __attribute__((unused)), int printwarn);
 void Perl_new_collate( PerlInterpreter *my_perl __attribute__((unused)), char* newcoll);
 void Perl_new_ctype( PerlInterpreter *my_perl __attribute__((unused)), char* newctype);
 void Perl_new_numeric( PerlInterpreter *my_perl __attribute__((unused)), char* newcoll);
 void Perl_set_numeric_local( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_set_numeric_radix( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_set_numeric_standard( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_require_pv( PerlInterpreter *my_perl __attribute__((unused)), const char* pv);
 void Perl_pack_cat( PerlInterpreter *my_perl __attribute__((unused)), SV *cat, char *pat, char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags);
 void Perl_packlist( PerlInterpreter *my_perl __attribute__((unused)), SV *cat, char *pat, char *patend, SV **beglist, SV **endlist);
 void Perl_pidgone( PerlInterpreter *my_perl __attribute__((unused)), pid_t pid, int status);
 void Perl_pmflag( PerlInterpreter *my_perl __attribute__((unused)), U32* pmfl, int ch);
 OP* Perl_pmruntime( PerlInterpreter *my_perl __attribute__((unused)), OP* pm, OP* expr, OP* repl);
 OP* Perl_pmtrans( PerlInterpreter *my_perl __attribute__((unused)), OP* o, OP* expr, OP* repl);
 OP* Perl_pop_return( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_pop_scope( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_prepend_elem( PerlInterpreter *my_perl __attribute__((unused)), I32 optype, OP* head, OP* tail);
 void Perl_push_return( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_push_scope( PerlInterpreter *my_perl __attribute__((unused)));
 OP* Perl_ref( PerlInterpreter *my_perl __attribute__((unused)), OP* o, I32 type);
 OP* Perl_refkids( PerlInterpreter *my_perl __attribute__((unused)), OP* o, I32 type);
 void Perl_regdump( PerlInterpreter *my_perl __attribute__((unused)), regexp* r);
 SV* Perl_regclass_swash( PerlInterpreter *my_perl __attribute__((unused)), struct regnode *n, char doinit, SV **listsvp, SV **altsvp);
 I32 Perl_pregexec( PerlInterpreter *my_perl __attribute__((unused)), regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
 void Perl_pregfree( PerlInterpreter *my_perl __attribute__((unused)), struct regexp* r);
 regexp* Perl_pregcomp( PerlInterpreter *my_perl __attribute__((unused)), char* exp, char* xend, PMOP* pm);
 char* Perl_re_intuit_start( PerlInterpreter *my_perl __attribute__((unused)), regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
 SV* Perl_re_intuit_string( PerlInterpreter *my_perl __attribute__((unused)), regexp* prog);
 I32 Perl_regexec_flags( PerlInterpreter *my_perl __attribute__((unused)), regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
 regnode* Perl_regnext( PerlInterpreter *my_perl __attribute__((unused)), regnode* p);
 void Perl_regprop( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, regnode* o);
 void Perl_repeatcpy( PerlInterpreter *my_perl __attribute__((unused)), char* to, const char* from, I32 len, I32 count);
 char* Perl_rninstr( PerlInterpreter *my_perl __attribute__((unused)), const char* big, const char* bigend, const char* little, const char* lend);
 Sighandler_t Perl_rsignal( PerlInterpreter *my_perl __attribute__((unused)), int i, Sighandler_t t);
 int Perl_rsignal_restore( PerlInterpreter *my_perl __attribute__((unused)), int i, Sigsave_t* t);
 int Perl_rsignal_save( PerlInterpreter *my_perl __attribute__((unused)), int i, Sighandler_t t1, Sigsave_t* t2);
 Sighandler_t Perl_rsignal_state( PerlInterpreter *my_perl __attribute__((unused)), int i);
 void Perl_rxres_free( PerlInterpreter *my_perl __attribute__((unused)), void** rsp);
 void Perl_rxres_restore( PerlInterpreter *my_perl __attribute__((unused)), void** rsp, REGEXP* prx);
 void Perl_rxres_save( PerlInterpreter *my_perl __attribute__((unused)), void** rsp, REGEXP* prx);



 char* Perl_savepv( PerlInterpreter *my_perl __attribute__((unused)), const char* pv);
 char* Perl_savesharedpv( PerlInterpreter *my_perl __attribute__((unused)), const char* pv);
 char* Perl_savepvn( PerlInterpreter *my_perl __attribute__((unused)), const char* pv, I32 len);
 void Perl_savestack_grow( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_savestack_grow_cnt( PerlInterpreter *my_perl __attribute__((unused)), I32 need);
 void Perl_save_aelem( PerlInterpreter *my_perl __attribute__((unused)), AV* av, I32 idx, SV **sptr);
 I32 Perl_save_alloc( PerlInterpreter *my_perl __attribute__((unused)), I32 size, I32 pad);
 void Perl_save_aptr( PerlInterpreter *my_perl __attribute__((unused)), AV** aptr);
 AV* Perl_save_ary( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_save_bool( PerlInterpreter *my_perl __attribute__((unused)), char* boolp);
 void Perl_save_clearsv( PerlInterpreter *my_perl __attribute__((unused)), SV** svp);
 void Perl_save_delete( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, char* key, I32 klen);
 void Perl_save_destructor( PerlInterpreter *my_perl __attribute__((unused)), DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
 void Perl_save_destructor_x( PerlInterpreter *my_perl __attribute__((unused)), DESTRUCTORFUNC_t f, void* p);
 void Perl_save_freesv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_save_freeop( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 void Perl_save_freepv( PerlInterpreter *my_perl __attribute__((unused)), char* pv);
 void Perl_save_generic_svref( PerlInterpreter *my_perl __attribute__((unused)), SV** sptr);
 void Perl_save_generic_pvref( PerlInterpreter *my_perl __attribute__((unused)), char** str);
 void Perl_save_shared_pvref( PerlInterpreter *my_perl __attribute__((unused)), char** str);
 void Perl_save_gp( PerlInterpreter *my_perl __attribute__((unused)), GV* gv, I32 empty);
 HV* Perl_save_hash( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_save_helem( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, SV *key, SV **sptr);
 void Perl_save_hints( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_save_hptr( PerlInterpreter *my_perl __attribute__((unused)), HV** hptr);
 void Perl_save_I16( PerlInterpreter *my_perl __attribute__((unused)), I16* intp);
 void Perl_save_I32( PerlInterpreter *my_perl __attribute__((unused)), I32* intp);
 void Perl_save_I8( PerlInterpreter *my_perl __attribute__((unused)), I8* bytep);
 void Perl_save_int( PerlInterpreter *my_perl __attribute__((unused)), int* intp);
 void Perl_save_item( PerlInterpreter *my_perl __attribute__((unused)), SV* item);
 void Perl_save_iv( PerlInterpreter *my_perl __attribute__((unused)), IV* iv);
 void Perl_save_list( PerlInterpreter *my_perl __attribute__((unused)), SV** sarg, I32 maxsarg);
 void Perl_save_long( PerlInterpreter *my_perl __attribute__((unused)), long* longp);
 void Perl_save_mortalizesv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_save_nogv( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_save_op( PerlInterpreter *my_perl __attribute__((unused)));
 SV* Perl_save_scalar( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 void Perl_save_pptr( PerlInterpreter *my_perl __attribute__((unused)), char** pptr);
 void Perl_save_vptr( PerlInterpreter *my_perl __attribute__((unused)), void* pptr);
 void Perl_save_re_context( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_save_padsv( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET off);
 void Perl_save_sptr( PerlInterpreter *my_perl __attribute__((unused)), SV** sptr);
 SV* Perl_save_svref( PerlInterpreter *my_perl __attribute__((unused)), SV** sptr);
 SV** Perl_save_threadsv( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET i);
 OP* Perl_sawparens( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_scalar( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_scalarkids( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_scalarseq( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 OP* Perl_scalarvoid( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 NV Perl_scan_bin( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN len, STRLEN* retlen);
 NV Perl_scan_hex( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN len, STRLEN* retlen);
 char* Perl_scan_num( PerlInterpreter *my_perl __attribute__((unused)), char* s, YYSTYPE *lvalp);
 NV Perl_scan_oct( PerlInterpreter *my_perl __attribute__((unused)), char* start, STRLEN len, STRLEN* retlen);
 OP* Perl_scope( PerlInterpreter *my_perl __attribute__((unused)), OP* o);
 char* Perl_screaminstr( PerlInterpreter *my_perl __attribute__((unused)), SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);

 I32 Perl_setenv_getix( PerlInterpreter *my_perl __attribute__((unused)), char* nam);

 void Perl_setdefout( PerlInterpreter *my_perl __attribute__((unused)), GV* gv);
 HEK* Perl_share_hek( PerlInterpreter *my_perl __attribute__((unused)), const char* sv, I32 len, U32 hash);
 void Perl_sighandler(int sig);
 void Perl_csighandler(int sig);
 SV** Perl_stack_grow( PerlInterpreter *my_perl __attribute__((unused)), SV** sp, SV**p, int n);
 I32 Perl_start_subparse( PerlInterpreter *my_perl __attribute__((unused)), I32 is_format, U32 flags);
 void Perl_sub_crush_depth( PerlInterpreter *my_perl __attribute__((unused)), CV* cv);
 char Perl_sv_2bool( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 CV* Perl_sv_2cv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, HV** st, GV** gvp, I32 lref);
 IO* Perl_sv_2io( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 IV Perl_sv_2iv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 SV* Perl_sv_2mortal( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 NV Perl_sv_2nv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);

 char* Perl_sv_2pvutf8( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp);
 char* Perl_sv_2pvbyte( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp);
 char* Perl_sv_pvn_nomg( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp);
 UV Perl_sv_2uv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 IV Perl_sv_iv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 UV Perl_sv_uv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 NV Perl_sv_nv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char* Perl_sv_pvn( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, STRLEN *len);
 char* Perl_sv_pvutf8n( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, STRLEN *len);
 char* Perl_sv_pvbyten( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, STRLEN *len);
 I32 Perl_sv_true( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 void Perl_sv_add_arena( PerlInterpreter *my_perl __attribute__((unused)), char* ptr, U32 size, U32 flags);
 int Perl_sv_backoff( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 SV* Perl_sv_bless( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, HV* stash);
 void Perl_sv_catpvf( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, ...)
        ;
 void Perl_sv_vcatpvf( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, va_list* args);
 void Perl_sv_catpv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* ptr);


 void Perl_sv_chop( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, char* ptr);
 I32 Perl_sv_clean_all( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_sv_clean_objs( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_sv_clear( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 I32 Perl_sv_cmp( PerlInterpreter *my_perl __attribute__((unused)), SV* sv1, SV* sv2);
 I32 Perl_sv_cmp_locale( PerlInterpreter *my_perl __attribute__((unused)), SV* sv1, SV* sv2);

 char* Perl_sv_collxfrm( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* nxp);

 OP* Perl_sv_compile_2op( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, OP** startp, char* code, PAD** padp);
 int Perl_getcwd_sv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_dec( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_dump( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char Perl_sv_derived_from( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* name);
 I32 Perl_sv_eq( PerlInterpreter *my_perl __attribute__((unused)), SV* sv1, SV* sv2);
 void Perl_sv_free( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_free_arenas( PerlInterpreter *my_perl __attribute__((unused)));
 char* Perl_sv_gets( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, PerlIO* fp, I32 append);
 char* Perl_sv_grow( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN newlen);
 void Perl_sv_inc( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_insert( PerlInterpreter *my_perl __attribute__((unused)), SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
 int Perl_sv_isa( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* name);
 int Perl_sv_isobject( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 STRLEN Perl_sv_len( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 STRLEN Perl_sv_len_utf8( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_magic( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV* obj, int how, const char* name, I32 namlen);
 MAGIC * Perl_sv_magicext( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV* obj, int how, MGVTBL *vtbl, const char* name, I32 namlen );
 SV* Perl_sv_mortalcopy( PerlInterpreter *my_perl __attribute__((unused)), SV* oldsv);
 SV* Perl_sv_newmortal( PerlInterpreter *my_perl __attribute__((unused)));
 SV* Perl_sv_newref( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char* Perl_sv_peek( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_pos_u2b( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32* offsetp, I32* lenp);
 void Perl_sv_pos_b2u( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, I32* offsetp);

 char* Perl_sv_pvutf8n_force( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp);
 char* Perl_sv_pvbyten_force( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp);
 char* Perl_sv_recode_to_utf8( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV *encoding);
 char Perl_sv_cat_decode( PerlInterpreter *my_perl __attribute__((unused)), SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen);
 char* Perl_sv_reftype( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, int ob);
 void Perl_sv_replace( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, SV* nsv);
 void Perl_sv_report_used( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_sv_reset( PerlInterpreter *my_perl __attribute__((unused)), char* s, HV* stash);
 void Perl_sv_setpvf( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, ...)
        ;
 void Perl_sv_vsetpvf( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, va_list* args);
 void Perl_sv_setiv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, IV num);
 void Perl_sv_setpviv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, IV num);
 void Perl_sv_setuv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, UV num);
 void Perl_sv_setnv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, NV num);
 SV* Perl_sv_setref_iv( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname, IV iv);
 SV* Perl_sv_setref_uv( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname, UV uv);
 SV* Perl_sv_setref_nv( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname, NV nv);
 SV* Perl_sv_setref_pv( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname, void* pv);
 SV* Perl_sv_setref_pvn( PerlInterpreter *my_perl __attribute__((unused)), SV* rv, const char* classname, char* pv, STRLEN n);
 void Perl_sv_setpv( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* ptr);
 void Perl_sv_setpvn( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* ptr, STRLEN len);

 void Perl_sv_taint( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char Perl_sv_tainted( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 int Perl_sv_unmagic( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, int type);
 void Perl_sv_unref( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_sv_unref_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, U32 flags);
 void Perl_sv_untaint( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char Perl_sv_upgrade( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, U32 mt);
 void Perl_sv_usepvn( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, char* ptr, STRLEN len);
 void Perl_sv_vcatpvfn( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, char *maybe_tainted);
 void Perl_sv_vsetpvfn( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, char *maybe_tainted);
 NV Perl_str_to_version( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 SV* Perl_swash_init( PerlInterpreter *my_perl __attribute__((unused)), char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
 UV Perl_swash_fetch( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, U8 *ptr, char do_utf8);
 void Perl_taint_env( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_taint_proper( PerlInterpreter *my_perl __attribute__((unused)), const char* f, const char* s);
 UV Perl_to_utf8_case( PerlInterpreter *my_perl __attribute__((unused)), U8 *p, U8* ustrp, STRLEN *lenp, SV **swash, char *normal, char *special);
 UV Perl_to_utf8_lower( PerlInterpreter *my_perl __attribute__((unused)), U8 *p, U8* ustrp, STRLEN *lenp);
 UV Perl_to_utf8_upper( PerlInterpreter *my_perl __attribute__((unused)), U8 *p, U8* ustrp, STRLEN *lenp);
 UV Perl_to_utf8_title( PerlInterpreter *my_perl __attribute__((unused)), U8 *p, U8* ustrp, STRLEN *lenp);
 UV Perl_to_utf8_fold( PerlInterpreter *my_perl __attribute__((unused)), U8 *p, U8* ustrp, STRLEN *lenp);






 I32 Perl_unpack_str( PerlInterpreter *my_perl __attribute__((unused)), char *pat, char *patend, char *s, char *strbeg, char *strend, char **new_s, I32 ocnt, U32 flags);
 I32 Perl_unpackstring( PerlInterpreter *my_perl __attribute__((unused)), char *pat, char *patend, char *s, char *strend, U32 flags);
 void Perl_unsharepvn( PerlInterpreter *my_perl __attribute__((unused)), const char* sv, I32 len, U32 hash);
 void Perl_unshare_hek( PerlInterpreter *my_perl __attribute__((unused)), HEK* hek);
 void Perl_utilize( PerlInterpreter *my_perl __attribute__((unused)), int aver, I32 floor, OP* version, OP* idop, OP* arg);
 U8* Perl_utf16_to_utf8( PerlInterpreter *my_perl __attribute__((unused)), U8* p, U8 *d, I32 bytelen, I32 *newlen);
 U8* Perl_utf16_to_utf8_reversed( PerlInterpreter *my_perl __attribute__((unused)), U8* p, U8 *d, I32 bytelen, I32 *newlen);
 STRLEN Perl_utf8_length( PerlInterpreter *my_perl __attribute__((unused)), U8* s, U8 *e);
 IV Perl_utf8_distance( PerlInterpreter *my_perl __attribute__((unused)), U8 *a, U8 *b);
 U8* Perl_utf8_hop( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, I32 off);
 U8* Perl_utf8_to_bytes( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN *len);
 U8* Perl_bytes_from_utf8( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN *len, char *is_utf8);
 U8* Perl_bytes_to_utf8( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN *len);
 UV Perl_utf8_to_uvchr( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN* retlen);
 UV Perl_utf8_to_uvuni( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN* retlen);
 UV Perl_utf8n_to_uvuni( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
 UV Perl_utf8n_to_uvuni( PerlInterpreter *my_perl __attribute__((unused)), U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
 U8* Perl_uvuni_to_utf8( PerlInterpreter *my_perl __attribute__((unused)), U8 *d, UV uv);
 U8* Perl_uvuni_to_utf8( PerlInterpreter *my_perl __attribute__((unused)), U8 *d, UV uv);
 U8* Perl_uvchr_to_utf8_flags( PerlInterpreter *my_perl __attribute__((unused)), U8 *d, UV uv, UV flags);
 U8* Perl_uvuni_to_utf8_flags( PerlInterpreter *my_perl __attribute__((unused)), U8 *d, UV uv, UV flags);
 char* Perl_pv_uni_display( PerlInterpreter *my_perl __attribute__((unused)), SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags);
 char* Perl_sv_uni_display( PerlInterpreter *my_perl __attribute__((unused)), SV *dsv, SV *ssv, STRLEN pvlim, UV flags);
 void Perl_vivify_defelem( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 void Perl_vivify_ref( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, U32 to_what);
 I32 Perl_wait4pid( PerlInterpreter *my_perl __attribute__((unused)), pid_t pid, int* statusp, int flags);
 U32 Perl_parse_unicode_opts( PerlInterpreter *my_perl __attribute__((unused)), char **popt);
 U32 Perl_seed( PerlInterpreter *my_perl __attribute__((unused)));
 UV Perl_get_hash_seed( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_report_evil_fh( PerlInterpreter *my_perl __attribute__((unused)), GV *gv, IO *io, I32 op);
 void Perl_report_uninit( PerlInterpreter *my_perl __attribute__((unused)));
 void Perl_warn( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, ...)
        ;
 void Perl_vwarn( PerlInterpreter *my_perl __attribute__((unused)), const char* pat, va_list* args);
 void Perl_warner( PerlInterpreter *my_perl __attribute__((unused)), U32 err, const char* pat, ...)
        ;
 void Perl_vwarner( PerlInterpreter *my_perl __attribute__((unused)), U32 err, const char* pat, va_list* args);
 void Perl_watch( PerlInterpreter *my_perl __attribute__((unused)), char** addr);
 I32 Perl_whichsig( PerlInterpreter *my_perl __attribute__((unused)), char* sig);
 void Perl_write_to_stderr( PerlInterpreter *my_perl __attribute__((unused)), const char* message, int msglen);
 int Perl_yyerror( PerlInterpreter *my_perl __attribute__((unused)), char* s);



 int Perl_yylex( PerlInterpreter *my_perl __attribute__((unused)));
 int Perl_yyparse( PerlInterpreter *my_perl __attribute__((unused)));
 int Perl_yywarn( PerlInterpreter *my_perl __attribute__((unused)), char* s);




 void * Perl_safesysmalloc(size_t nbytes);
 void * Perl_safesyscalloc(size_t elements, size_t size);
 void * Perl_safesysrealloc(void * where, size_t nbytes);
 void Perl_safesysfree(void * where);



 int Perl_runops_standard( PerlInterpreter *my_perl __attribute__((unused)));
 int Perl_runops_debug( PerlInterpreter *my_perl __attribute__((unused)));



 void Perl_sv_catpvf_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char* pat, ...)
        ;
 void Perl_sv_vcatpvf_mg( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, va_list* args);
 void Perl_sv_catpv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char *ptr);
 void Perl_sv_catpvn_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char *ptr, STRLEN len);
 void Perl_sv_catsv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *dstr, SV *sstr);
 void Perl_sv_setpvf_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char* pat, ...)
        ;
 void Perl_sv_vsetpvf_mg( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* pat, va_list* args);
 void Perl_sv_setiv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, IV i);
 void Perl_sv_setpviv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, IV iv);
 void Perl_sv_setuv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, UV u);
 void Perl_sv_setnv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, NV num);
 void Perl_sv_setpv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char *ptr);
 void Perl_sv_setpvn_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, const char *ptr, STRLEN len);
 void Perl_sv_setsv_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *dstr, SV *sstr);
 void Perl_sv_usepvn_mg( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, char *ptr, STRLEN len);
 MGVTBL* Perl_get_vtbl( PerlInterpreter *my_perl __attribute__((unused)), int vtbl_id);
 char* Perl_pv_display( PerlInterpreter *my_perl __attribute__((unused)), SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
 void Perl_dump_indent( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, const char* pat, ...)
        ;
 void Perl_dump_vindent( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, const char* pat, va_list *args);
 void Perl_do_gv_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, char *name, GV *sv);
 void Perl_do_gvgv_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, char *name, GV *sv);
 void Perl_do_hv_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, char *name, HV *sv);
 void Perl_do_magic_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim);
 void Perl_do_op_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, OP *o);
 void Perl_do_pmop_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, PMOP *pm);
 void Perl_do_sv_dump( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim);
 void Perl_magic_dump( PerlInterpreter *my_perl __attribute__((unused)), MAGIC *mg);




 void Perl_reginitcolors( PerlInterpreter *my_perl __attribute__((unused)));
 char* Perl_sv_2pv_nolen( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char* Perl_sv_2pvutf8_nolen( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);
 char* Perl_sv_2pvbyte_nolen( PerlInterpreter *my_perl __attribute__((unused)), SV* sv);




 char Perl_sv_utf8_downgrade( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, char fail_ok);
 void Perl_sv_utf8_encode( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 char Perl_sv_utf8_decode( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 void Perl_sv_force_normal( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 void Perl_sv_force_normal_flags( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, U32 flags);
 void Perl_tmps_grow( PerlInterpreter *my_perl __attribute__((unused)), I32 n);
 SV* Perl_sv_rvweaken( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
 int Perl_magic_killbackrefs( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, MAGIC *mg);
 OP* Perl_newANONATTRSUB( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP *proto, OP *attrs, OP *block);
 CV* Perl_newATTRSUB( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
 void Perl_newMYSUB( PerlInterpreter *my_perl __attribute__((unused)), I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
 OP * Perl_my_attrs( PerlInterpreter *my_perl __attribute__((unused)), OP *o, OP *attrs);
 void Perl_boot_core_xsutils( PerlInterpreter *my_perl __attribute__((unused)));

 PERL_CONTEXT* Perl_cx_dup( PerlInterpreter *my_perl __attribute__((unused)), PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param);
 PERL_SI* Perl_si_dup( PerlInterpreter *my_perl __attribute__((unused)), PERL_SI* si, CLONE_PARAMS* param);
 ANY* Perl_ss_dup( PerlInterpreter *my_perl __attribute__((unused)), PerlInterpreter* proto_perl, CLONE_PARAMS* param);
 void* Perl_any_dup( PerlInterpreter *my_perl __attribute__((unused)), void* v, PerlInterpreter* proto_perl);
 HE* Perl_he_dup( PerlInterpreter *my_perl __attribute__((unused)), HE* e, char shared, CLONE_PARAMS* param);
 REGEXP* Perl_re_dup( PerlInterpreter *my_perl __attribute__((unused)), REGEXP* r, CLONE_PARAMS* param);
 PerlIO* Perl_fp_dup( PerlInterpreter *my_perl __attribute__((unused)), PerlIO* fp, char type, CLONE_PARAMS* param);
 DIR* Perl_dirp_dup( PerlInterpreter *my_perl __attribute__((unused)), DIR* dp);
 GP* Perl_gp_dup( PerlInterpreter *my_perl __attribute__((unused)), GP* gp, CLONE_PARAMS* param);
 MAGIC* Perl_mg_dup( PerlInterpreter *my_perl __attribute__((unused)), MAGIC* mg, CLONE_PARAMS* param);
 SV* Perl_sv_dup( PerlInterpreter *my_perl __attribute__((unused)), SV* sstr, CLONE_PARAMS* param);



 PTR_TBL_t* Perl_ptr_table_new( PerlInterpreter *my_perl __attribute__((unused)));
 void* Perl_ptr_table_fetch( PerlInterpreter *my_perl __attribute__((unused)), PTR_TBL_t *tbl, void *sv);
 void Perl_ptr_table_store( PerlInterpreter *my_perl __attribute__((unused)), PTR_TBL_t *tbl, void *oldsv, void *newsv);
 void Perl_ptr_table_split( PerlInterpreter *my_perl __attribute__((unused)), PTR_TBL_t *tbl);
 void Perl_ptr_table_clear( PerlInterpreter *my_perl __attribute__((unused)), PTR_TBL_t *tbl);
 void Perl_ptr_table_free( PerlInterpreter *my_perl __attribute__((unused)), PTR_TBL_t *tbl);






 char * Perl_custom_op_name( PerlInterpreter *my_perl __attribute__((unused)), OP* op);
 char * Perl_custom_op_desc( PerlInterpreter *my_perl __attribute__((unused)), OP* op);

 void Perl_sv_nosharing( PerlInterpreter *my_perl __attribute__((unused)), SV *);
 void Perl_sv_nolocking( PerlInterpreter *my_perl __attribute__((unused)), SV *);
 void Perl_sv_nounlocking( PerlInterpreter *my_perl __attribute__((unused)), SV *);
 int Perl_nothreadhook( PerlInterpreter *my_perl __attribute__((unused)));


# 1231 "proto.h"
static void S_check_uni( PerlInterpreter *my_perl __attribute__((unused)));
static void S_force_next( PerlInterpreter *my_perl __attribute__((unused)), I32 type);
static char* S_force_version( PerlInterpreter *my_perl __attribute__((unused)), char *start, int guessing);
static char* S_force_word( PerlInterpreter *my_perl __attribute__((unused)), char *start, int token, int check_keyword, int allow_pack, int allow_tick);
static SV* S_tokeq( PerlInterpreter *my_perl __attribute__((unused)), SV *sv);
static int S_pending_ident( PerlInterpreter *my_perl __attribute__((unused)));
static char* S_scan_const( PerlInterpreter *my_perl __attribute__((unused)), char *start);
static char* S_scan_formline( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static char* S_scan_heredoc( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static char* S_scan_ident( PerlInterpreter *my_perl __attribute__((unused)), char *s, char *send, char *dest, STRLEN destlen, I32 ck_uni);
static char* S_scan_inputsymbol( PerlInterpreter *my_perl __attribute__((unused)), char *start);
static char* S_scan_pat( PerlInterpreter *my_perl __attribute__((unused)), char *start, I32 type);
static char* S_scan_str( PerlInterpreter *my_perl __attribute__((unused)), char *start, int keep_quoted, int keep_delims);
static char* S_scan_subst( PerlInterpreter *my_perl __attribute__((unused)), char *start);
static char* S_scan_trans( PerlInterpreter *my_perl __attribute__((unused)), char *start);
static char* S_scan_word( PerlInterpreter *my_perl __attribute__((unused)), char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp);
static char* S_skipspace( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static char* S_swallow_bom( PerlInterpreter *my_perl __attribute__((unused)), U8 *s);
static void S_checkcomma( PerlInterpreter *my_perl __attribute__((unused)), char *s, char *name, char *what);
static void S_force_ident( PerlInterpreter *my_perl __attribute__((unused)), char *s, int kind);
static void S_incline( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static int S_intuit_method( PerlInterpreter *my_perl __attribute__((unused)), char *s, GV *gv);
static int S_intuit_more( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static I32 S_lop( PerlInterpreter *my_perl __attribute__((unused)), I32 f, int x, char *s);
static void S_missingterm( PerlInterpreter *my_perl __attribute__((unused)), char *s);
static void S_no_op( PerlInterpreter *my_perl __attribute__((unused)), char *what, char *s);
static void S_set_csh( PerlInterpreter *my_perl __attribute__((unused)));
static I32 S_sublex_done( PerlInterpreter *my_perl __attribute__((unused)));
static I32 S_sublex_push( PerlInterpreter *my_perl __attribute__((unused)));
static I32 S_sublex_start( PerlInterpreter *my_perl __attribute__((unused)));
static char * S_filter_gets( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, PerlIO *fp, STRLEN append);
static HV * S_find_in_my_stash( PerlInterpreter *my_perl __attribute__((unused)), char *pkgname, I32 len);
static SV* S_new_constant( PerlInterpreter *my_perl __attribute__((unused)), char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type);

static void S_tokereport( PerlInterpreter *my_perl __attribute__((unused)), char *thing, char *s, I32 rv);

static int S_ao( PerlInterpreter *my_perl __attribute__((unused)), int toketype);
static void S_depcom( PerlInterpreter *my_perl __attribute__((unused)));
static char* S_incl_perldb( PerlInterpreter *my_perl __attribute__((unused)));
# 1296 "proto.h"


 void Perl_sv_setsv_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* dsv, SV* ssv, I32 flags);
 void Perl_sv_catpvn_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, const char* ptr, STRLEN len, I32 flags);
 void Perl_sv_catsv_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* dsv, SV* ssv, I32 flags);
 STRLEN Perl_sv_utf8_upgrade_flags( PerlInterpreter *my_perl __attribute__((unused)), SV *sv, I32 flags);
 char* Perl_sv_pvn_force_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp, I32 flags);
 char* Perl_sv_2pv_flags( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, STRLEN* lp, I32 flags);
 void Perl_sv_copypv( PerlInterpreter *my_perl __attribute__((unused)), SV* dsv, SV* ssv);
 char* Perl_my_atof2( PerlInterpreter *my_perl __attribute__((unused)), const char *s, NV* value);
 int Perl_my_socketpair(int family, int type, int protocol, int fd[2]);


 int Perl_PerlIO_close( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_fill( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_fileno( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_eof( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_error( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_flush( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 void Perl_PerlIO_clearerr( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 void Perl_PerlIO_set_cnt( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, int);
 void Perl_PerlIO_set_ptrcnt( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, char *, int);
 void Perl_PerlIO_setlinebuf( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 ssize_t Perl_PerlIO_read( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, void *, size_t);
 ssize_t Perl_PerlIO_write( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, const void *, size_t);
 ssize_t Perl_PerlIO_unread( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, const void *, size_t);
 off_t Perl_PerlIO_tell( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_seek( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *, off_t, int);

 char * Perl_PerlIO_get_base( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 char * Perl_PerlIO_get_ptr( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_get_bufsiz( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);
 int Perl_PerlIO_get_cnt( PerlInterpreter *my_perl __attribute__((unused)), PerlIO *);

 PerlIO * Perl_PerlIO_stdin( PerlInterpreter *my_perl __attribute__((unused)));
 PerlIO * Perl_PerlIO_stdout( PerlInterpreter *my_perl __attribute__((unused)));
 PerlIO * Perl_PerlIO_stderr( PerlInterpreter *my_perl __attribute__((unused)));


 void Perl_deb_stack_all( PerlInterpreter *my_perl __attribute__((unused)));




 PADLIST* Perl_pad_new( PerlInterpreter *my_perl __attribute__((unused)), int flags);
 void Perl_pad_undef( PerlInterpreter *my_perl __attribute__((unused)), CV* cv);
 PADOFFSET Perl_pad_add_name( PerlInterpreter *my_perl __attribute__((unused)), char *name, HV* typestash, HV* ourstash, char clone);
 PADOFFSET Perl_pad_add_anon( PerlInterpreter *my_perl __attribute__((unused)), SV* sv, U16 op_type);
 void Perl_pad_check_dup( PerlInterpreter *my_perl __attribute__((unused)), char* name, char is_our, HV* ourstash);

 void Perl_pad_setsv( PerlInterpreter *my_perl __attribute__((unused)), PADOFFSET po, SV* sv);

 void Perl_pad_block_start( PerlInterpreter *my_perl __attribute__((unused)), int full);
 void Perl_pad_tidy( PerlInterpreter *my_perl __attribute__((unused)), padtidy_type type);
 void Perl_do_dump_pad( PerlInterpreter *my_perl __attribute__((unused)), I32 level, PerlIO *file, PADLIST *padlist, int full);
 void Perl_pad_fixup_inner_anons( PerlInterpreter *my_perl __attribute__((unused)), PADLIST *padlist, CV *old_cv, CV *new_cv);

 void Perl_pad_push( PerlInterpreter *my_perl __attribute__((unused)), PADLIST *padlist, int depth, int has_args);
# 1362 "proto.h"
 CV* Perl_find_runcv( PerlInterpreter *my_perl __attribute__((unused)), U32 *db_seqp);
 void Perl_free_tied_hv_pool( PerlInterpreter *my_perl __attribute__((unused)));

 int Perl_get_debug_opts( PerlInterpreter *my_perl __attribute__((unused)), char **s);





 void Perl_hv_clear_placeholders( PerlInterpreter *my_perl __attribute__((unused)), HV* hb);





 SV* Perl_hv_scalar( PerlInterpreter *my_perl __attribute__((unused)), HV* hv);
 SV* Perl_magic_scalarpack( PerlInterpreter *my_perl __attribute__((unused)), HV* hv, MAGIC* mg);


# 3573 "perl.h" 2


# 1 "opcode.h" 1
# 21 "opcode.h"

# 30 "opcode.h"
extern char *PL_op_name[];
# 389 "opcode.h"
extern char *PL_op_desc[];
# 747 "opcode.h"






extern OP * (*PL_ppaddr[])( PerlInterpreter *my_perl __attribute__((unused)));
# 1111 "opcode.h"
extern OP * (*PL_check[]) ( PerlInterpreter *my_perl __attribute__((unused)), OP *op);
# 1470 "opcode.h"
extern U32 PL_opargs[];
# 1828 "opcode.h"

# 3576 "perl.h" 2




# 1 "embedvar.h" 1
# 3581 "perl.h" 2
# 3608 "perl.h"


# 1 "perlvars.h" 1
# 26 "perlvars.h"
extern PerlInterpreter * PL_curinterp;




extern perl_key PL_thr_key;



extern const char * PL_Yes ;
extern const char * PL_No ;
extern const char * PL_hexdigit ;
extern const char * PL_patleave ;


extern char PL_do_undump ;






extern perl_mutex PL_op_mutex;



extern perl_mutex PL_dollarzero_mutex;



extern char * PL_sh_path ;




extern Sighandler_t PL_sigfpe_saved;




extern SV PL_sv_placeholder;


extern Sighandler_t PL_csighandlerp ;
# 3611 "perl.h" 2




# 1 "reentr.inc" 1
# 3616 "perl.h" 2







# 3726 "perl.h"
extern MGVTBL PL_vtbl_sv;
extern MGVTBL PL_vtbl_env;
extern MGVTBL PL_vtbl_envelem;
extern MGVTBL PL_vtbl_sig;
extern MGVTBL PL_vtbl_sigelem;
extern MGVTBL PL_vtbl_pack;
extern MGVTBL PL_vtbl_packelem;
extern MGVTBL PL_vtbl_dbline;
extern MGVTBL PL_vtbl_isa;
extern MGVTBL PL_vtbl_isaelem;
extern MGVTBL PL_vtbl_arylen;
extern MGVTBL PL_vtbl_glob;
extern MGVTBL PL_vtbl_mglob;
extern MGVTBL PL_vtbl_nkeys;
extern MGVTBL PL_vtbl_taint;
extern MGVTBL PL_vtbl_substr;
extern MGVTBL PL_vtbl_vec;
extern MGVTBL PL_vtbl_pos;
extern MGVTBL PL_vtbl_bm;
extern MGVTBL PL_vtbl_fm;
extern MGVTBL PL_vtbl_uvar;
extern MGVTBL PL_vtbl_ovrld;





extern MGVTBL PL_vtbl_defelem;
extern MGVTBL PL_vtbl_regexp;
extern MGVTBL PL_vtbl_regdata;
extern MGVTBL PL_vtbl_regdatum;


extern MGVTBL PL_vtbl_collxfrm;


extern MGVTBL PL_vtbl_amagic;
extern MGVTBL PL_vtbl_amagicelem;

extern MGVTBL PL_vtbl_backref;
extern MGVTBL PL_vtbl_utf8;



enum {
  fallback_amg, abs_amg,
  bool__amg, nomethod_amg,
  string_amg, numer_amg,
  add_amg, add_ass_amg,
  subtr_amg, subtr_ass_amg,
  mult_amg, mult_ass_amg,
  div_amg, div_ass_amg,
  modulo_amg, modulo_ass_amg,
  pow_amg, pow_ass_amg,
  lshift_amg, lshift_ass_amg,
  rshift_amg, rshift_ass_amg,
  band_amg, band_ass_amg,
  bor_amg, bor_ass_amg,
  bxor_amg, bxor_ass_amg,
  lt_amg, le_amg,
  gt_amg, ge_amg,
  eq_amg, ne_amg,
  ncmp_amg, scmp_amg,
  slt_amg, sle_amg,
  sgt_amg, sge_amg,
  seq_amg, sne_amg,
  not_amg, compl_amg,
  inc_amg, dec_amg,
  atan2_amg, cos_amg,
  sin_amg, exp_amg,
  log_amg, sqrt_amg,
  repeat_amg, repeat_ass_amg,
  concat_amg, concat_ass_amg,
  copy_amg, neg_amg,
  to_sv_amg, to_av_amg,
  to_hv_amg, to_gv_amg,
  to_cv_amg, iter_amg,
  int_amg, DESTROY_amg,
  max_amg_code

};
# 3853 "perl.h"
extern const char * PL_AMG_names[max_amg_code];




struct am_table {
  U32 was_ok_sub;
  long was_ok_am;
  U32 flags;
  CV* table[max_amg_code];
  long fallback;
};
struct am_table_short {
  U32 was_ok_sub;
  long was_ok_am;
  U32 flags;
};
typedef struct am_table AMT;
typedef struct am_table_short AMTS;
# 4489 "perl.h"
# 1 "patchlevel.h" 1
# 4490 "perl.h" 2
# 4 "toke.c" 2
# 47 "toke.c"
# 1 "keywords.h" 1
# 48 "toke.c" 2
