sub_op.h

   1 /* This file is part of the Sub::Op Perl module.
   2  * See http://search.cpan.org/dist/Sub-Op/ */
   3
   4 #ifndef SUB_OP_H
   5 #define SUB_OP_H 1
   6
   7 typedef OP *(*sub_op_check_t)(pTHX_ OP *, void *);
   8
   9 typedef struct {
  10  const char    *name;
  11  STRLEN         namelen;
  12  const char    *proto;
  13  STRLEN         protolen;
  14  sub_op_check_t call;
  15  sub_op_check_t ref;
  16  void          *ud;
  17 } sub_op_config_t;
  18
  19 #define SUB_OP_REGISTER_STEAL 1
  20
  21 void             sub_op_init    (sub_op_config_t *c);
  22 void             sub_op_register(pTHX_ const sub_op_config_t *c, U32 flags);
  23 sub_op_config_t *sub_op_dup     (pTHX_ const sub_op_config_t *c);
  24 void             sub_op_free    (pTHX_ sub_op_config_t *c);
  25 OP *             sub_op_study   (const OP *o, OP **last_arg_p, OP **rv2cv_p);
  26
  27 #endif /* SUB_OP_H */