Beta Shell v2.0

File Manager

~ /usr/lib64/perl5/vendor_perl/B/Hooks/OP/Annotation/Install

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Files.pm	691 B	-rw-r--r--	2019-11-07 16:32:29	Edit Del
hook_op_annotation.h	857 B	-rw-r--r--	2011-04-20 02:21:20	Edit Del

Editing: hook_op_annotation.h (857 B)

#ifndef __HOOK_OP_ANNOTATION_H__
#define __HOOK_OP_ANNOTATION_H__

#include "perl.h"

START_EXTERN_C

typedef struct OPAnnotationGroupImpl *OPAnnotationGroup;
typedef  OP *(*OPAnnotationPPAddr)(pTHX);
typedef void (*OPAnnotationDtor)(pTHX_ void *data);

typedef struct {
    OPAnnotationPPAddr op_ppaddr;
    void *data;
    OPAnnotationDtor dtor;
} OPAnnotation;

OPAnnotation * op_annotation_get(OPAnnotationGroup group, OP *op);
OPAnnotation * op_annotation_new(OPAnnotationGroup group, OP *op, void *data, OPAnnotationDtor dtor);
void op_annotate(OPAnnotationGroup table, OP * op, void *data, OPAnnotationDtor dtor);
void op_annotation_delete(pTHX_ OPAnnotationGroup table, OP * annotation);

OPAnnotationGroup op_annotation_group_new();
void op_annotation_group_free(pTHX_ OPAnnotationGroup group);

END_EXTERN_C

#endif /* __HOOK_OP_ANNOTATION_H__ */