home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / gv.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-18  |  2.5 KB  |  94 lines
  1. /*    gv.h
  2.  *
  3.  *    Copyright (c) 1991-1994, Larry Wall
  4.  *
  5.  *    You may distribute under the terms of either the GNU General Public
  6.  *    License or the Artistic License, as specified in the README file.
  7.  *
  8.  */
  9.  
  10. struct gp {
  11.     SV *    gp_sv;        /* scalar value */
  12.     U32        gp_refcnt;    /* how many globs point to this? */
  13.     struct io *    gp_io;        /* filehandle value */
  14.     CV *    gp_form;    /* format value */
  15.     AV *    gp_av;        /* array value */
  16.     HV *    gp_hv;        /* associative array value */
  17.     GV *    gp_egv;        /* effective gv, if *glob */
  18.     CV *    gp_cv;        /* subroutine value */
  19.     U32        gp_cvgen;    /* generational validity of cached gv_cv */
  20.     I32        gp_lastexpr;    /* used by nothing_in_common() */
  21.     line_t    gp_line;    /* line first declared at (for -w) */
  22.     GV *    gp_filegv;    /* file first declared in (for -w) */
  23.     char    gp_flags;
  24. };
  25.  
  26. #if defined(CRIPPLED_CC) && (defined(iAPX286) || defined(M_I286) || defined(I80286))
  27. #define MICROPORT
  28. #endif
  29.  
  30. #define GvXPVGV(gv)    ((XPVGV*)SvANY(gv))
  31.  
  32. #define GvSV(gv)    (GvGP(gv)->gp_sv)
  33. #define GvREFCNT(gv)    (GvGP(gv)->gp_refcnt)
  34. #define GvIO(gv)    ((gv) && SvTYPE((SV*)gv) == SVt_PVGV ? GvIOp(gv) : 0)
  35. #define GvIOp(gv)    (GvGP(gv)->gp_io)
  36. #define GvIOn(gv)    (GvIO(gv) ? GvIOp(gv) : GvIOp(gv_IOadd(gv)))
  37.  
  38. #define GvFORM(gv)    (GvGP(gv)->gp_form)
  39. #define GvAV(gv)    (GvGP(gv)->gp_av)
  40.  
  41. #ifdef    MICROPORT    /* Microport 2.4 hack */
  42. AV *GvAVn();
  43. #else
  44. #define GvAVn(gv)    (GvGP(gv)->gp_av ? \
  45.              GvGP(gv)->gp_av : \
  46.              GvGP(gv_AVadd(gv))->gp_av)
  47. #endif
  48. #define GvHV(gv)    ((GvGP(gv))->gp_hv)
  49.  
  50. #ifdef    MICROPORT    /* Microport 2.4 hack */
  51. HV *GvHVn();
  52. #else
  53. #define GvHVn(gv)    (GvGP(gv)->gp_hv ? \
  54.              GvGP(gv)->gp_hv : \
  55.              GvGP(gv_HVadd(gv))->gp_hv)
  56. #endif            /* Microport 2.4 hack */
  57.  
  58. #define GvCV(gv)    (GvGP(gv)->gp_cv)
  59. #define GvCVGEN(gv)    (GvGP(gv)->gp_cvgen)
  60.  
  61. #define GvLASTEXPR(gv)    (GvGP(gv)->gp_lastexpr)
  62.  
  63. #define GvLINE(gv)    (GvGP(gv)->gp_line)
  64. #define GvFILEGV(gv)    (GvGP(gv)->gp_filegv)
  65.  
  66. #define GvFLAGS(gv)    (GvGP(gv)->gp_flags)
  67.  
  68. #define GvEGV(gv)    (GvGP(gv)->gp_egv)
  69.  
  70. #define GvGP(gv)    (GvXPVGV(gv)->xgv_gp)
  71. #define GvNAME(gv)    (GvXPVGV(gv)->xgv_name)
  72. #define GvNAMELEN(gv)    (GvXPVGV(gv)->xgv_namelen)
  73. #define GvENAME(gv)    GvNAME(GvEGV(gv) ? GvEGV(gv) : gv)
  74.  
  75. #define GvSTASH(gv)    (GvXPVGV(gv)->xgv_stash)
  76. #define GvESTASH(gv)    GvSTASH(GvEGV(gv) ? GvEGV(gv) : gv)
  77.  
  78. #define Nullgv Null(GV*)
  79.  
  80. #define DM_UID   0x003
  81. #define DM_RUID   0x001
  82. #define DM_EUID   0x002
  83. #define DM_GID   0x030
  84. #define DM_RGID   0x010
  85. #define DM_EGID   0x020
  86. #define DM_DELAY 0x100
  87.  
  88. #define GVf_INTRO    0x01
  89. #define GVf_IMPORTED    0x02
  90.  
  91. #define GV_ADD        0x01
  92. #define GV_ADDMULTI    0x02
  93. #define GV_ADDWARN    0x04
  94.