X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=sub_op.h;h=6a5d9ed2e821ec431b195838f2025209e711bd78;hb=302bf09fbd4b673e199bdd22b330ebbdbec4e1fe;hp=c7fc83f0e9240e1c3fa8e5e3650bfd9e703c0e4b;hpb=0661466030b3dd0fb805da10aaed883fbe931093;p=perl%2Fmodules%2FSub-Op.git

diff --git a/sub_op.h b/sub_op.h
index c7fc83f..6a5d9ed 100644
--- a/sub_op.h
+++ b/sub_op.h
@@ -8,12 +8,20 @@ typedef OP *(*sub_op_check_t)(pTHX_ OP *, void *);
 
 typedef struct {
  const char    *name;
- STRLEN         len;
+ STRLEN         namelen;
+ const char    *proto;
+ STRLEN         protolen;
  Perl_ppaddr_t  pp;
  sub_op_check_t check;
+ sub_op_check_t ref;
  void          *ud;
-} sub_op_keyword;
+} sub_op_config_t;
 
-void sub_op_register(pTHX_ const sub_op_keyword *k);
+#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);
 
 #endif /* SUB_OP_H */