view release on metacpan or  search on metacpan

W32.xs  view on Meta::CPAN

i_wf_bbox(face, size, text_sv, utf8=0)
	const char *face
	i_img_dim size
	SV *text_sv
	int utf8
      PREINIT:
	i_img_dim cords[BOUNDING_BOX_COUNT];
        int rc, i;
	char const *text;
         STRLEN text_len;
      PPCODE:
        text = SvPV(text_sv, text_len);
#ifdef SvUTF8
        if (SvUTF8(text_sv))
          utf8 = 1;
#endif
        if (rc = i_wf_bbox(face, size, text, text_len, cords, utf8)) {
          EXTEND(SP, rc);  
          for (i = 0; i < rc; ++i) 
            PUSHs(sv_2mortal(newSViv(cords[i])));
        }