6 MODULE = XS::APItest:Hash PACKAGE = XS::APItest::Hash
17 key = SvPV(key_sv, len);
18 RETVAL = hv_exists(hash, key, SvUTF8(key_sv) ? -len : len);
31 key = SvPV(key_sv, len);
32 /* It's already mortal, so need to increase reference count. */
33 RETVAL = SvREFCNT_inc(hv_delete(hash, key,
34 SvUTF8(key_sv) ? -len : len, 0));
39 store_ent(hash, key, value)
49 result = hv_store_ent(hash, key, copy, 0);
50 SvSetMagicSV(copy, value);
55 /* It's about to become mortal, so need to increase reference count.
57 RETVAL = SvREFCNT_inc(HeVAL(result));
63 store(hash, key_sv, value)
74 key = SvPV(key_sv, len);
76 result = hv_store(hash, key, SvUTF8(key_sv) ? -len : len, copy, 0);
77 SvSetMagicSV(copy, value);
82 /* It's about to become mortal, so need to increase reference count.
84 RETVAL = SvREFCNT_inc(*result);
99 key = SvPV(key_sv, len);
100 result = hv_fetch(hash, key, SvUTF8(key_sv) ? -len : len, 0);
105 RETVAL = newSVsv(*result);
110 sub TIEHASH { bless {}, $_[0] }
111 sub STORE { $_[0]->{$_[1]} = $_[2] }
112 sub FETCH { $_[0]->{$_[1]} }
113 sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
114 sub NEXTKEY { each %{$_[0]} }
115 sub EXISTS { exists $_[0]->{$_[1]} }
116 sub DELETE { delete $_[0]->{$_[1]} }
117 sub CLEAR { %{$_[0]} = () }
121 MODULE = XS::APItest PACKAGE = XS::APItest
129 printf("%5.3f\n",val);
134 #ifdef HAS_LONG_DOUBLE
145 #ifdef HAS_LONG_DOUBLE
146 # if defined(PERL_PRIfldbl) && (LONG_DOUBLESIZE > DOUBLESIZE)
147 long double val = 7.0;
148 printf("%5.3" PERL_PRIfldbl "\n",val);
151 printf("%5.3f\n",val);
171 printf("%5.3f\n",val);