| … | |
… | |
| 347 | inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } |
347 | inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } |
| 348 | |
348 | |
| 349 | inline SV *to_sv (UUID v) |
349 | inline SV *to_sv (UUID v) |
| 350 | { |
350 | { |
| 351 | char buf[128]; |
351 | char buf[128]; |
| 352 | snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); |
352 | snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq); |
| 353 | return newSVpv (buf, 0); |
353 | return newSVpv (buf, 0); |
| 354 | } |
354 | } |
| 355 | |
355 | |
| 356 | inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; } |
356 | inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; } |
| 357 | inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } |
357 | inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } |
