view release on metacpan or  search on metacpan

gen/perl_callout.c  view on Meta::CPAN

#if 0
EXTERN_C int zopen_out (const char *p, int *ret);
EXTERN_C int zopen_in (const char *p, int *ret);
EXTERN_C int zwrite (int fd, ZARRAYP a);
EXTERN_C int zread (int fd, ZARRAYP a);
EXTERN_C int zclose (int fd, ZARRAYP ret);
EXTERN_C int zsetkey (int fd, ZARRAYP p);
EXTERN_C int zerror (int i, int j);
EXTERN_C int zfilecheck (const char *p, ZARRAYP ret);
EXTERN_C int zstat(const char *p, int *ret);
EXTERN_C int zunlink(const char *p, int *ret);
EXTERN_C int zrmdir(const char *p, int *ret);
EXTERN_C int zmkdir(const char *p, int *ret);
EXTERN_C int zrename(const char *old, const char *neu, int *ret);
EXTERN_C int zreaddir(const char *dirname, ZARRAYP out);
EXTERN_C int zcryptv(ZARRAYP out);
EXTERN_C int zcompressv(ZARRAYP out);
#ifdef OPENSSL
EXTERN_C int zopensslv(ZARRAYP out);
#endif

gen/perl_callout.c  view on Meta::CPAN

          p++;
        } while(!_findnext(hdl, &fd));
        _findclose(hdl);
        if(p != out->data)
          --p;
	out->len = p - out->data;
        return 0;
}
  
#endif
int zstat(const char *p, int *ret)
{
	struct stat b;
        int rc;
        int x = 0;

	rc = stat(p, &b);
        if(!rc) {
          if(S_ISLNK(b.st_mode))
		x = 'L';
          if(S_ISREG(b.st_mode))
            	x = 'F';
          if(S_ISDIR(b.st_mode))
            	x = 'D';
          if(S_ISCHR(b.st_mode))
            	x = 'C';
          if(S_ISBLK(b.st_mode))