view release on metacpan or  search on metacpan

support.c  view on Meta::CPAN

		}
	
		ret = newRV_noinc((SV *) array);
	}
	return ret;
}

SV *
perl_ARFieldValueStruct( ARControlStruct *ctrl, ARFieldValueStruct *p ){
	SV *ret;
	{
		HV *hash;
	
		hash = newHV();
	
		{
			SV *val;
			val = perl_ARValueStruct( ctrl, &(p->value) );
			ret = val;
		}
		hv_store( hash, "value", 5, ret, 0 );
	
		{
			SV *val;
			val = newSViv( p->fieldId );
			ret = val;
		}
		hv_store( hash, "fieldId", 7, ret, 0 );
	
		ret = newRV_noinc((SV *) hash);
	}
	return ret;
}


#if AR_CURRENT_API_VERSION >= 12
SV *
perl_ARAuditInfoStruct( ARControlStruct *ctrl, ARAuditInfoStruct *p ){
	SV *ret;
	{
		HV *hash;
	
		hash = newHV();
	
		{
			SV *val;
			val = newSViv( p->enable );
			ret = val;
		}
		hv_store( hash, "enable", 6, ret, 0 );
	
		{
			SV *val;
			val = newRV_noinc( (SV *) perl_qualifier(ctrl,&(p->query)) );
			ret = val;
		}
		hv_store( hash, "query", 5, ret, 0 );
	
		{
			SV *val;
			val = newSViv( p->style );
			ret = val;
		}
		hv_store( hash, "style", 5, ret, 0 );
	
		{
			SV *val;
			val = newSVpv( p->formName, 0 );
			ret = val;
		}
		hv_store( hash, "formName", 8, ret, 0 );
	
		ret = newRV_noinc((SV *) hash);
	}
	return ret;
}
#endif

#if AR_CURRENT_API_VERSION >= 11
SV *
perl_ARBulkEntryReturn( ARControlStruct *ctrl, ARBulkEntryReturn *p ){
	SV *ret;
	{
//		SV *val;
	
		switch( p->entryCallType ){
		case AR_BULK_ENTRY_XMLCREATE:
		{
			HV *hash;
			hash = newHV();
		
			{
				SV *val;
				val = perl_ARXMLEntryReturn( ctrl, &(p->u.xmlCreateEntryReturn) );
				ret = val;
			}
			hv_store( hash, "xmlCreateEntryReturn", 20, ret, 0 );
		
			ret = newRV_noinc((SV *) hash);
		}
			break;
		case AR_BULK_ENTRY_SET:
		{
			HV *hash;
			hash = newHV();
		
			{
				SV *val;
				val = perl_ARStatusList( ctrl, &(p->u.setEntryReturn) );
				ret = val;
			}
			hv_store( hash, "setEntryReturn", 14, ret, 0 );
		
			ret = newRV_noinc((SV *) hash);
		}
			break;
		case AR_BULK_ENTRY_XMLSET:
		{
			HV *hash;
			hash = newHV();
		
			{
				SV *val;
				val = perl_ARXMLEntryReturn( ctrl, &(p->u.xmlSetEntryReturn) );