view release on metacpan or  search on metacpan

Pasteboard.xs  view on Meta::CPAN

#ifdef MACOS_MONTEREY
	RETVAL = 1;
#else
	RETVAL = 0;
#endif
    OUTPUT:
	RETVAL

void
xs_pbl_create (SV * input_name)
    PPCODE:
#ifdef USE_PBL_BACKEND
	char *cname;
	char *created_name;
	void *pbref;
	long status;
	if (SvOK (input_name)) {
	    cname = my_SvPVbyte_nolen (input_name);
	} else {
	    cname = NULL;
	}

Pasteboard.xs  view on Meta::CPAN

		cf_flavor, pbdata, ( PasteboardFlavorFlags ) flags );
	if ( cf_flavor != NULL ) CFRelease( cf_flavor );
	if ( pbdata != NULL ) CFRelease( pbdata );
	RETVAL = ( long ) status;
#endif	/* def USE_PBL_BACKEND */
    OUTPUT:
	RETVAL

long
xs_pbl_paste( void *pbref, SV *id, SV *sv_flavor )
    PPCODE:
#ifdef USE_PBL_BACKEND
	unsigned char *data;
	size_t size;
	long status;
	unsigned long cid;
	int any;
	char *cflavor;
	PB_FLAVOR_FLAGS flags;
	if (SvOK (id)) {
	    any = 0;

Pasteboard.xs  view on Meta::CPAN

	cleanup:
	if ( cf_tag != NULL )
	    CFRelease( cf_tag );
#endif	/* def USE_PBL_BACKEND */
	RETVAL = tags_h;
    OUTPUT:
	RETVAL

void
xs_pbl_all( void *pbref, SV *sv_id, int want_data, SV *sv_conforms_to )
    PPCODE:
#ifdef USE_PBL_BACKEND
	pbl_rqst_t rqst;
	pbl_resp_t *resp;
	size_t num_resp;
	long status;
	size_t inx;
	if (SvOK (sv_id)) {
	    rqst.all = 0;
	    rqst.id = SvUV (sv_id);
	} else {