diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-01 17:09:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-01 17:09:44 +0000 |
| commit | cc49e20bd7575d1d37e92731860d63daa4d52ecc (patch) | |
| tree | 1b460232564e19658a102bc3cd67d08e537a5c8f /cop.h | |
| parent | 625a29bd030689ee3f060be950e2f2ffc93c94c9 (diff) | |
| download | perl-cc49e20bd7575d1d37e92731860d63daa4d52ecc.tar.gz | |
macros for COP.cop_filegv access
p4raw-id: //depot/perl@4505
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -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. */ |