Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
blib	[ DIR ]	drwxr-xr-x	2016-10-10 17:38
fallback	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
private	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
zlib-src	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
Makefile	30.43 KB	-rw-r--r--	2016-10-10 17:38
Makefile.PL	10.77 KB	-r--r--r--	2014-12-27 11:48
Zlib.bs	0 B	-rw-r--r--	2016-10-10 17:41
Zlib.c	102.49 KB	-rw-r--r--	2016-10-10 17:38
Zlib.o	100.38 KB	-rw-r--r--	2016-10-10 17:38
Zlib.xs	51.02 KB	-r--r--r--	2014-12-27 11:49
adler32.c	4.77 KB	-rw-r--r--	2016-10-10 17:38
adler32.o	2.59 KB	-rw-r--r--	2016-10-10 17:38
compress.c	2.39 KB	-rw-r--r--	2016-10-10 17:38
compress.o	2.1 KB	-rw-r--r--	2016-10-10 17:38
config.in	554 B	-r--r--r--	2014-12-27 11:48
constants.h	13.43 KB	-rw-r--r--	2016-10-10 17:38
constants.xs	2.5 KB	-rw-r--r--	2016-10-10 17:38
crc32.c	12.74 KB	-rw-r--r--	2016-10-10 17:38
crc32.o	4.6 KB	-rw-r--r--	2016-10-10 17:38
deflate.c	69.27 KB	-rw-r--r--	2016-10-10 17:38
deflate.o	18.32 KB	-rw-r--r--	2016-10-10 17:38
infback.c	22.13 KB	-rw-r--r--	2016-10-10 17:38
infback.o	11.05 KB	-rw-r--r--	2016-10-10 17:38
inffast.c	13.08 KB	-rw-r--r--	2016-10-10 17:38
inffast.o	3.03 KB	-rw-r--r--	2016-10-10 17:38
inflate.c	52.14 KB	-rw-r--r--	2016-10-10 17:38
inflate.o	19.11 KB	-rw-r--r--	2016-10-10 17:38
inftrees.c	12.71 KB	-rw-r--r--	2016-10-10 17:38
inftrees.o	3.35 KB	-rw-r--r--	2016-10-10 17:38
pm_to_blib	0 B	-rw-r--r--	2016-10-10 17:38
trees.c	41.98 KB	-rw-r--r--	2016-10-10 17:38
trees.o	14.21 KB	-rw-r--r--	2016-10-10 17:38
typemap	1.34 KB	-r--r--r--	2014-12-27 11:48
uncompr.c	1.92 KB	-rw-r--r--	2016-10-10 17:38
uncompr.o	1.9 KB	-rw-r--r--	2016-10-10 17:38
zutil.c	7.23 KB	-rw-r--r--	2016-10-10 17:38
zutil.o	2.74 KB	-rw-r--r--	2016-10-10 17:38

Rename

void
constant(sv)
    PREINIT:
#ifdef dXSTARG
	dXSTARG; /* Faster if we have it.  */
#else
	dTARGET;
#endif
	STRLEN		len;
        int		type;
	IV		iv;
	/* NV		nv;	Uncomment this if you need to return NVs */
	const char	*pv;
    INPUT:
	SV *		sv;
        const char *	s = SvPV(sv, len);
    PPCODE:
        /* Change this to constant(aTHX_ s, len, &iv, &nv);
           if you need to return both NVs and IVs */
	type = constant(aTHX_ s, len, &iv, &pv);
      /* Return 1 or 2 items. First is error message, or undef if no error.
           Second, if present, is found value */
        switch (type) {
        case PERL_constant_NOTFOUND:
          sv =
	    sv_2mortal(newSVpvf("%s is not a valid Zlib macro", s));
          PUSHs(sv);
          break;
        case PERL_constant_NOTDEF:
          sv = sv_2mortal(newSVpvf(
	    "Your vendor has not defined Zlib macro %s, used",
				   s));
          PUSHs(sv);
          break;
        case PERL_constant_ISIV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHi(iv);
          break;
	/* Uncomment this if you need to return NOs
        case PERL_constant_ISNO:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(&PL_sv_no);
          break; */
	/* Uncomment this if you need to return NVs
        case PERL_constant_ISNV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHn(nv);
          break; */
        case PERL_constant_ISPV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHp(pv, strlen(pv));
          break;
	/* Uncomment this if you need to return PVNs
        case PERL_constant_ISPVN:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHp(pv, iv);
          break; */
	/* Uncomment this if you need to return SVs
        case PERL_constant_ISSV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(sv);
          break; */
	/* Uncomment this if you need to return UNDEFs
        case PERL_constant_ISUNDEF:
          break; */
	/* Uncomment this if you need to return UVs
        case PERL_constant_ISUV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHu((UV)iv);
          break; */
	/* Uncomment this if you need to return YESs
        case PERL_constant_ISYES:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(&PL_sv_yes);
          break; */
        default:
          sv = sv_2mortal(newSVpvf(
	    "Unexpected return type %d while processing Zlib macro %s, used",
               type, s));
          PUSHs(sv);
        }