home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-bin.lha / lib / perl5 / m68k-amigaos / 5.003 / CORE / hv.h < prev    next >
C/C++ Source or Header  |  1996-10-09  |  2KB  |  61 lines
  1. /*    hv.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. typedef struct he HE;
  11.  
  12. struct he {
  13.     HE        *hent_next;
  14.     char    *hent_key;
  15.     SV        *hent_val;
  16.     U32        hent_hash;
  17.     I32        hent_klen;
  18. };
  19.  
  20. struct xpvhv {
  21.     char *    xhv_array;    /* pointer to malloced string */
  22.     STRLEN    xhv_fill;    /* how full xhv_array currently is */
  23.     STRLEN    xhv_max;    /* subscript of last element of xhv_array */
  24.     I32        xhv_keys;    /* how many elements in the array */
  25.     double    xnv_nv;        /* numeric value, if any */
  26.     MAGIC*    xmg_magic;    /* magic for scalar array */
  27.     HV*        xmg_stash;    /* class package */
  28.  
  29.     I32        xhv_riter;    /* current root of iterator */
  30.     HE        *xhv_eiter;    /* current entry of iterator */
  31.     PMOP    *xhv_pmroot;    /* list of pm's for this package */
  32.     char    *xhv_name;    /* name, if a symbol table */
  33. };
  34.  
  35. #define Nullhv Null(HV*)
  36. #define HvARRAY(hv)    ((HE**)((XPVHV*)  SvANY(hv))->xhv_array)
  37. #define HvFILL(hv)    ((XPVHV*)  SvANY(hv))->xhv_fill
  38. #define HvMAX(hv)    ((XPVHV*)  SvANY(hv))->xhv_max
  39. #define HvKEYS(hv)    ((XPVHV*)  SvANY(hv))->xhv_keys
  40. #define HvRITER(hv)    ((XPVHV*)  SvANY(hv))->xhv_riter
  41. #define HvEITER(hv)    ((XPVHV*)  SvANY(hv))->xhv_eiter
  42. #define HvPMROOT(hv)    ((XPVHV*)  SvANY(hv))->xhv_pmroot
  43. #define HvNAME(hv)    ((XPVHV*)  SvANY(hv))->xhv_name
  44.  
  45. #ifdef OVERLOAD
  46.  
  47. /* Maybe amagical: */
  48. /* #define HV_AMAGICmb(hv)      (SvFLAGS(hv) & (SVpgv_badAM | SVpgv_AM)) */
  49.  
  50. #define HV_AMAGIC(hv)        (SvFLAGS(hv) &   SVpgv_AM)
  51. #define HV_AMAGIC_on(hv)     (SvFLAGS(hv) |=  SVpgv_AM)
  52. #define HV_AMAGIC_off(hv)    (SvFLAGS(hv) &= ~SVpgv_AM)
  53.  
  54. /*
  55. #define HV_AMAGICbad(hv)     (SvFLAGS(hv) & SVpgv_badAM)
  56. #define HV_badAMAGIC_on(hv)  (SvFLAGS(hv) |= SVpgv_badAM)
  57. #define HV_badAMAGIC_off(hv) (SvFLAGS(hv) &= ~SVpgv_badAM)
  58. */
  59.  
  60. #endif /* OVERLOAD */
  61.