view release on metacpan or  search on metacpan

pack.h  view on Meta::CPAN

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#ifdef __cplusplus
extern "C" {
#endif


	/* Macros used to pack a C struct into Perl Hashes (from HPUX::Pstat) */

	/* pack the integer value in p->name into hash hv
	 * using key "name"
	 */
#define PACK_IV(name) \
    sv = newSViv(p->name);\
    if (hv_store(hv, #name, sizeof(#name)-1, sv, 0) == NULL) {\
    warn("__FILE__:__LINE__ failed to pack '" #name "' elem");\
    }\