Lines Matching refs:label
168 # label management
169 $lbdecor="L"; # local label decoration, set by package
170 $label="000";
172 sub ::islabel # see is argument is a known label
174 foreach $i (values %label) { return $i if ($i eq $_[0]); }
175 $label{$_[0]}; # can be undef
178 sub ::label # instantiate a function-scope label
179 { if (!defined($label{$_[0]}))
180 { $label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++; }
181 $label{$_[0]};
184 sub ::LABEL # instantiate a file-scope label
185 { $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));
186 $label{$_[0]};
193 { my $label=&::label($_[0]);
195 &::set_label_B($label);
196 $label;
200 { foreach $i (keys %label)
201 { delete $label{$i} if ($label{$i} =~ /^\Q${lbdecor}\E[0-9]{3}/); }