view release on metacpan or  search on metacpan

xs/Apache/DAV/Resource/Resource.pm  view on Meta::CPAN

use Apache::DAV::LockDB;
use Apache::DAV::Error;

use vars qw{@obj} ;

sub print_tag
    {
    my ($e) = @_ ;

    print '<', $e -> name, '>', "\n" ;
    my $t = $e -> first_cdata ;
    if ($t)
        {
        my $txt = $t -> first ;
        while ($txt)
            { 
            print $txt -> text, "\n" ;
            $txt = $txt -> next ;
            }
        }

xs/Apache/DAV/Resource/Resource.pm  view on Meta::CPAN

        foreach (keys %$set)
            {
            my ($ns, $name) ;
            ($ns, $name) = ('DAV:', $_) if (!(($ns, $name) = /^(.*):(.*?)$/)) ;
            $ns   = 'DAV:' if ($ns eq 'DAV' || !$ns) ;
            $name = '???' if (!$name) ;
            $namespaces{$ns} = $nsid++ if (!exists $namespaces{$ns}) ;
        
            my $text   = Apache::DAV::Text -> new ({ text => $set -> {$_} });
            my $elem   = Apache::DAV::XMLElem -> new ({name => $name, ns => $namespaces{$ns},}) ; 
            my $header = $elem -> first_cdata;
            $header->first($text);
            $header->last ($text);
            $set[-1] -> next($elem) if (@set) ;
            $elem->parent($setprop);
            push @set, $elem ;
            push @obj, $elem, $text ;
            }            
        $setprop -> first_child($set[0]) ;
        $setprop -> last_child($set[-1]) ;
        $setelem  = Apache::DAV::XMLElem -> new ({name        => 'set', 

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

    if (items > 1) {
        obj->lang = (const char *)strdup(val);
    }
  OUTPUT:
    RETVAL

MODULE = Apache::DAV::XMLElem    PACKAGE = Apache::DAV::XMLElem 

Apache::DAV::TextHeader
first_cdata(obj, val=NULL)
    Apache::DAV::XMLElem obj
    Apache::DAV::TextHeader val
  PREINIT:
    /*nada*/

  CODE:
    RETVAL = (Apache__DAV__TextHeader) & obj->first_cdata;
    if (items > 1) {
         croak ("first_cdata is read only") ;
    }
  OUTPUT:
    RETVAL

MODULE = Apache::DAV::XMLElem    PACKAGE = Apache::DAV::XMLElem 

Apache::DAV::TextHeader
following_cdata(obj, val=NULL)
    Apache::DAV::XMLElem obj
    Apache::DAV::TextHeader val
  PREINIT:
    /*nada*/

  CODE:
    RETVAL = (Apache__DAV__TextHeader) & obj->following_cdata;
    if (items > 1) {
         croak ("following_cdata is read only") ;
    }
  OUTPUT:
    RETVAL

MODULE = Apache::DAV::XMLElem    PACKAGE = Apache::DAV::XMLElem 

Apache::DAV::XMLElem
parent(obj, val=NULL)
    Apache::DAV::XMLElem obj
    Apache::DAV::XMLElem val