Lines Matching refs:descriptor

588     my $descriptor = {};
592         $descriptor->{$id} = $element->getAttribute($id);
593         die "release/platform has no attribute $id" unless defined $descriptor->{$id};
599         $descriptor->{$id} = $value if defined $value;
602     $descriptor->{'add-package-type-to-archive-name'} = 0
603         unless defined $descriptor->{'add-package-type-to-archive-name'};
604     $descriptor->{'package-types'} = [split(/;/, $descriptor->{'package-types'})];
606     return $descriptor;
623     my $descriptor = {};
628         $descriptor->{$id} = $element->getAttribute($id);
629         die "release/download has no attribute $id" unless defined $descriptor->{$id};
632     return $descriptor;
649     my $descriptor = {};
654         $descriptor->{$id} = $element->getAttribute($id);
655         die "release/package has no attribute $id" unless defined $descriptor->{$id};
656         die "release/package attribute $id is empty" unless $descriptor->{$id} !~ /^\s*$/;
662         $descriptor->{$id} = $value if defined $value;
665     return $descriptor;
682     my $descriptor = {};
687         $descriptor->{$id} = $element->getAttribute($id);
688         die "release/package has no attribute $id" unless defined $descriptor->{$id};
689         die "release/package attribute $id is empty" unless $descriptor->{$id} !~ /^\s*$/;
695         $descriptor->{$id} = $value if defined $value;
697     if (defined $descriptor->{'package-types'})
699         $descriptor->{'package-types'} = [split(/;/, $descriptor->{'package-types'})];
702     return $descriptor;
719     my $descriptor = {};
723         $descriptor->{$id} = $element->getAttribute($id);
724         die "wiki/package-ref has no attribute $id" unless defined $descriptor->{$id};
725         die "wiki/package-ref attribute $id is empty" unless $descriptor->{$id} !~ /^\s*$/;
728     $descriptor->{'language-list'} = PostprocessLanguageList(
731     $descriptor->{'platform-list'} = PostprocessPlatformList(
735     $descriptor->{'languages'} = {map{$_=>1} @{$descriptor->{'language-list'}}};
736     $descriptor->{'platforms'} = {map{$_=>1} @{$descriptor->{'platform-list'}}};
738     return $descriptor;
755     my $descriptor = {};
758         $descriptor->{$id} = $element->getAttribute($id);
759         die "wiki/language has no attribute $id" unless defined $descriptor->{$id};
762     return $descriptor;