Lines Matching refs:self

48     my $self = {};
49     $self->{FILE} = undef;
50     $self->{MAJOR} = undef;
51     $self->{MINOR} = undef;
52     $self->{NODE_SEC_SZ} = undef;
53     $self->{NAME_SEC_SZ} = undef;
54     $self->{DATA_SEC_SZ} = undef;
55     $self->{NODES} = undef;
56     $self->{NAMES} = undef;
57     $self->{DATA} = undef;
58     bless($self, $class);
59     return $self;
63     my $self = shift;
67         $self->{NAME} = shift;
69         $self->{NAME} = '/dev/mdesc';
71     return  unless open(MD, "$self->{NAME}");
79     ($self->{MAJOR}, $self->{MINOR},
80      $self->{NODE_SEC_SZ},
81      $self->{NAME_SEC_SZ},
82      $self->{DATA_SEC_SZ}) = unpack("nnNNN", $mdhdr);
84     $size = read(MD, $self->{NODES}, $self->{NODE_SEC_SZ});
85     $size = read(MD, $self->{NAMES}, $self->{NAME_SEC_SZ});
86     $size = read(MD, $self->{DATA}, $self->{DATA_SEC_SZ});
95     my ($self, $nodeid) = @_;
99       unpack("CCx2NNN", substr($self->{NODES}, $nodeid * 16, 16));
100     $name = substr($self->{NAMES}, $nameoff, $namelen);
120     my ($self, $propid) = @_;
123     %node = $self->getnode($propid);
129 	  substr($self->{DATA}, $node{'dataoff'}, $node{'datalen'} - 1);
149     my ($self, $name) = @_;
152     for ($idx = 0; $idx < $self->{NAME_SEC_SZ}; $idx = $next + 1) {
153         $next = index($self->{NAMES}, "\0", $idx);
154 	$p = substr($self->{NAMES}, $idx, $next - $idx);
166     my ($self, $nodeid, $propname, $type) = @_;
169     %node = $self->getnode($nodeid);
172     $nameid = $self->findname($propname);
177 	%node = $self->getnode($nodeid);
191     my ($self, $nodeid, $propname, $type) = @_;
194     $propid = $self->findprop($nodeid, $propname, $type);
197     return $self->getprop($propid);
202     my ($self, $nodeid, $nameid, $arcid, $ret, $seen) = @_;
208     %node = $self->getnode($nodeid);
214 	%node = $self->getnode($nodeid);
216 	    $self->scan_node($node{'idx'}, $nameid, $arcid, $ret, $seen);
227     my ($self, $start, $nodename, $arcname) = @_;
230     $nameid = $self->findname($nodename);
231     $arcid = $self->findname($arcname);
232     $self->scan_node($start, $nameid, $arcid, \@ret, \@seen);