macros for COP.cop_filegv access

[p5sagit/p5-mst-13.2.git] / cop.h

diff --git a/cop.h b/cop.h
index ea846ab..238c677 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -20,6 +20,14 @@ struct cop {
 
 #define Nullcop Null(COP*)
 
+#define CopFILEGV(c)           (c)->cop_filegv
+#define CopFILEGV_set(c,gv)    ((c)->cop_filegv = gv)
+#define CopFILESV(c)           (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
+#define CopFILEAV(c)           (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
+#define CopFILE(c)             (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
+#define CopLINE(c)             ((c)->cop_line)
+#define CopLINE_set(c,l)       ((c)->cop_line = (l))
+
 /*
  * Here we have some enormously heavy (or at least ponderous) wizardry.
  */