view release on metacpan or  search on metacpan

DataAccess.xsh  view on Meta::CPAN

LL_element *
ll_query(queryType)
	int queryType
	PROTOTYPE: $

int
ll_reset_request(object)	
	LL_element *object

LL_element *
ll_next_obj(object)	
	LL_element *object

int
ll_free_objs(object)
	LL_element *object

void
ll_deallocate(object)
	LL_element *object
     
int
ll_set_request(object,QueryFlags,ObjectFilter,DataFilter)
	LL_element *object
	int	QueryFlags
	char 	**ObjectFilter
	int	DataFilter

LL_element *
ll_get_objs(object,query_daemon,hostname,number,err)
	LL_element *object
	int	    query_daemon
	char	   *hostname
	int         number
	int         err
	PROTOTYPE: $$$$$
	CODE:
	{
	    RETVAL=ll_get_objs(object,query_daemon,hostname,&number,&err);
	}
	OUTPUT:
		number
		err
		RETVAL

void *
ll_get_data(object,Specification)
	LL_element *object
	int Specification       
	PROTOTYPE: $$

	PPCODE:
	{
		RETVAL=(void *)targ; /* bogus but spresses any unused variable error messages */
	    /*fprintf(stderr,"\nSPECIFICATION = %d\n",Specification);*/
	    switch (defs[Specification])
	    {
	        case LL_NONE:
		    	XSRETURN_UNDEF;
	        break;
	        case LL_CHAR_STAR_STAR:
			{
		    	char *pointer=NULL;
		    	int   rc;

		    	rc=ll_get_data(object,Specification,(void *)&pointer);
		    	/* fprintf(stderr,"%d = %s\n",Specification,pointer); */
		    	if (rc >= 0 && pointer != NULL)
		    	{
		    	    XPUSHs(sv_2mortal(newSVpv(pointer, 0)));
					Safefree(pointer);
					XSRETURN(1);
			    }
			    else
		    	    XSRETURN_UNDEF;
			}
			break ;
	        case LL_BOOLEAN_STAR:
	        case LL_INT_STAR:
			{
		    	int integer;
		    	int rc;

		    	rc=ll_get_data(object,Specification,(void *)&integer);
			/*	fprintf(stderr,"LLXS INTERNAL: (LL_INT_STAR)    : %d = %d ( %d )\n",Specification,integer,rc); */
		    	if (rc >= 0)
		    	{
					XPUSHs(sv_2mortal(newSViv(integer)));
					XSRETURN(1);
		    	}
		    	else
		      		XSRETURN_UNDEF;
			}
			break;
	        case  LL_TIME_T_STAR:
			{
			    time_t time;
			    int   rc;
		    
		    	rc=ll_get_data(object,Specification,(void *)&time);
			/*	fprintf(stderr,"LLXS INTERNAL: (LL_TIME_T_STAR) : %d = %ld ( %d )\n",Specification,time,rc); */
		    	/*fprintf(stderr,"%d = %ld\n",Specification,time); */
		    	if (rc >= 0)
		    	{
		    	    XPUSHs(sv_2mortal(newSViv((long)time)));
					XSRETURN(1);
		    	}
		    	else
		    	    XSRETURN_UNDEF;
			}
			break ;
	        case LL_CHAR_STAR: