Imager-File-TIFF

 view release on metacpan or  search on metacpan

TIFF.xs  view on Meta::CPAN

	       int     allow_incomplete
               int     page

void
i_readtiff_multi_wiol(ig)
        Imager::IO     ig
      PREINIT:
        i_img **imgs;
        int count;
        int i;
      PPCODE:
        imgs = i_readtiff_multi_wiol(ig, &count);
        if (imgs) {
          EXTEND(SP, count);
          for (i = 0; i < count; ++i) {
            SV *sv = sv_newmortal();
            sv_setref_pv(sv, "Imager::ImgRaw", (void *)imgs[i]);
            PUSHs(sv);
          }
          myfree(imgs);
        }

TIFF.xs  view on Meta::CPAN

const char *
i_tiff_buildversion(...)
  C_ARGS:

const char *
i_tiff_libversion(...)
  C_ARGS:

void
i_tiff_codecs(class)
    PPCODE:
      size_t count;
      i_tiff_codec *codecs = i_tiff_get_codecs(&count);
      EXTEND(SP, count);
      for (int i = 0; i < count; ++i) {
        i_tiff_codec *codec = codecs + i;
        HV *hv = newHV();
        hv_stores(hv, "description", newSVpvn(codec->description, strlen(codec->description)));
        hv_stores(hv, "name",        newSVpv(codec->name, 0));
        hv_stores(hv, "code",        newSViv(codec->code));
        SV *rv = newRV_noinc((SV*)hv);



( run in 1.377 second using v1.01-cache-2.11-cpan-5511b514fd6 )