view release on metacpan or  search on metacpan

xs/Apache/DAV/HooksLocks/HooksLocks.xs  view on Meta::CPAN

Apache::DAV::Error
lookup_resource(__self, lockdb, locktoken, start_resource)
    Apache::DAV::HooksLocks __self
    Apache::DAV::LockDB lockdb
    Apache::DAV::LockToken locktoken
    Apache::DAV::Resource start_resource
PREINIT:
    Apache__DAV__Resource resource;
PPCODE:
    RETVAL = (*__self->lookup_resource)(lockdb, locktoken, start_resource, &resource);
    XSprePUSH;
    EXTEND(SP, 2) ;
    PUSHs(davxs_Apache__DAV__Error_2obj(RETVAL)) ;
    PUSHs(davxs_Apache__DAV__Resource_2obj(resource)) ;

MODULE = Apache::DAV::HooksLocks    PACKAGE = Apache::DAV::HooksLocks 



SV *
new (class,initializer=NULL)
    char * class
    SV * initializer 
PREINIT:
    SV * svobj ;
    Apache__DAV__HooksLocks  cobj ;
    SV * tmpsv ;
CODE:
    davxs_Apache__DAV__HooksLocks_create_obj(cobj,svobj,RETVAL,malloc(sizeof(*cobj))) ;

    if (initializer) {
        if (!SvROK(initializer) || !(tmpsv = SvRV(initializer))) 
            croak ("initializer for Apache::DAV::HooksLocks::new is not a reference") ;

        if (SvTYPE(tmpsv) == SVt_PVHV || SvTYPE(tmpsv) == SVt_PVMG)  
            Apache__DAV__HooksLocks_new_init (aTHX_ cobj, tmpsv, 0) ;
        else if (SvTYPE(tmpsv) == SVt_PVAV) {
            int i ;
            SvGROW(svobj, sizeof (*cobj) * av_len((AV *)tmpsv)) ;     
            for (i = 0; i <= av_len((AV *)tmpsv); i++) {
                SV * * itemrv = av_fetch((AV *)tmpsv, i, 0) ;
                SV * item ;
                if (!itemrv || !*itemrv || !SvROK(*itemrv) || !(item = SvRV(*itemrv))) 
                    croak ("array element of initializer for Apache::DAV::HooksLocks::new is not a reference") ;
                Apache__DAV__HooksLocks_new_init (aTHX_ &cobj[i], item, 1) ;
            }
        }
        else {
             croak ("initializer for Apache::DAV::HooksLocks::new is not a hash/array/object reference") ;
        }
    }
OUTPUT:
    RETVAL 

MODULE = Apache::DAV::HooksLocks    PACKAGE = Apache::DAV::HooksLocks 



void
init_callbacks (obj)
    SV *  obj
PREINIT:
    int  n = -1 ;
    int  i ;
    Apache__DAV__HooksLocks cobj = (Apache__DAV__HooksLocks)davxs_sv2_Apache__DAV__HooksLocks(obj) ;
    SV * ref ;
    SV * perl_obj ;
CODE:

    perl_obj = SvRV(obj) ;
    ref = newRV_noinc(perl_obj) ;

    for (i=0;i < 4;i++)
        {
        if (davxs_Apache__DAV__HooksLocks_obj[i] == ref)
            {
            n = i ;
            break ;
            }
        }

    if (n < 0)
        for (i=0;i < 4;i++)
            {
            if (davxs_Apache__DAV__HooksLocks_obj[i] == NULL)
                {
                n = i ;
                break ;
                }
            }
        
    if (n < 0)
        croak ("Limit for concurrent object callbacks reached for Apache::DAV::HooksLocks. Limit is 4") ;

    davxs_Apache__DAV__HooksLocks_obj[n] = ref ;
    cobj -> get_supportedlock = davxs_davxs_cb_Apache__DAV__HooksLocks__get_supportedlock_func[n] ;
    cobj -> parse_locktoken = davxs_davxs_cb_Apache__DAV__HooksLocks__parse_locktoken_func[n] ;
    cobj -> format_locktoken = davxs_davxs_cb_Apache__DAV__HooksLocks__format_locktoken_func[n] ;
    cobj -> compare_locktoken = davxs_davxs_cb_Apache__DAV__HooksLocks__compare_locktoken_func[n] ;
    cobj -> open_lockdb = davxs_davxs_cb_Apache__DAV__HooksLocks__open_lockdb_func[n] ;
    cobj -> close_lockdb = davxs_davxs_cb_Apache__DAV__HooksLocks__close_lockdb_func[n] ;
    cobj -> remove_locknull_state = davxs_davxs_cb_Apache__DAV__HooksLocks__remove_locknull_state_func[n] ;
    cobj -> create_lock = davxs_davxs_cb_Apache__DAV__HooksLocks__create_lock_func[n] ;
    cobj -> get_locks = davxs_davxs_cb_Apache__DAV__HooksLocks__get_locks_func[n] ;
    cobj -> find_lock = davxs_davxs_cb_Apache__DAV__HooksLocks__find_lock_func[n] ;
    cobj -> append_locks = davxs_davxs_cb_Apache__DAV__HooksLocks__append_locks_func[n] ;
    cobj -> remove_lock = davxs_davxs_cb_Apache__DAV__HooksLocks__remove_lock_func[n] ;
    cobj -> refresh_locks = davxs_davxs_cb_Apache__DAV__HooksLocks__refresh_locks_func[n] ;
    cobj -> lookup_resource = davxs_davxs_cb_Apache__DAV__HooksLocks__lookup_resource_func[n] ;
    

PROTOTYPES: disabled

BOOT:
    items = items; /* -Wall */