X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=sub_op.h;h=45ece3f999666aa510275bd54cd57aac785c1f80;hb=0eb003f3bbeeada878cab10f7dabc020c775b666;hp=77c899fcc4ac71c2a1fec859d86cf93a0ef6233d;hpb=a0c0873977f66d8024a988b8dbd8e1c092927189;p=perl%2Fmodules%2FSub-Op.git

diff --git a/sub_op.h b/sub_op.h
index 77c899f..45ece3f 100644
--- a/sub_op.h
+++ b/sub_op.h
@@ -9,11 +9,19 @@ typedef OP *(*sub_op_check_t)(pTHX_ OP *, void *);
 typedef struct {
  const char    *name;
  STRLEN         namelen;
- Perl_ppaddr_t  pp;
+ const char    *proto;
+ STRLEN         protolen;
  sub_op_check_t check;
+ sub_op_check_t ref;
  void          *ud;
 } sub_op_config_t;
 
-void sub_op_register(pTHX_ const sub_op_config_t *c);
+#define SUB_OP_REGISTER_STEAL 1
+
+void             sub_op_init    (sub_op_config_t *c);
+void             sub_op_register(pTHX_ const sub_op_config_t *c, U32 flags);
+sub_op_config_t *sub_op_dup     (pTHX_ const sub_op_config_t *c);
+void             sub_op_free    (pTHX_ sub_op_config_t *c);
+OP *             sub_op_study   (const OP *o, OP **last_arg_p, OP **rv2cv_p);
 
 #endif /* SUB_OP_H */