view release on metacpan or  search on metacpan

IBM390.xs  view on Meta::CPAN

 /*---- End of tables ----*/

#ifdef OLD_INTERNAL
   #define UNDEF_PTR &sv_undef
#else
   #define UNDEF_PTR &PL_sv_undef
#endif

 /* 36KB may seem small, but on MVS most records are 32KB or less. */
#define OUTSTRING_MEM 36864
 /* Macro: catenate a string to the end of an existing string
  * and move the pointer up. */
#define memcat(target,offset,source,len) \
	memcpy((target+offset), source, len); \
	offset += len;

#ifndef min
#define min(x,y)            (((x) < (y)) ? (x) : (y))
#endif

static int