Lines Matching refs:LABEL
160 # label management
161 $lbdecor="L"; # local label decoration, set by package
162 $label="000";
164 sub ::islabel # see is argument is a known label
166 foreach $i (values %label) { return $i if ($i eq $_[0]); }
167 $label{$_[0]}; # can be undef
170 sub ::label # instantiate a function-scope label
171 { if (!defined($label{$_[0]}))
172 { $label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++; }
173 $label{$_[0]};
176 sub ::LABEL # instantiate a file-scope label
177 { $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));
178 $label{$_[0]};
181 sub ::static_label { &::LABEL($_[0],$lbdecor.$_[0]); }
185 { my $label=&::label($_[0]);
187 &::set_label_B($label);
188 $label;
192 { foreach $i (keys %label)
193 { delete $label{$i} if ($label{$i} =~ /^\Q${lbdecor}\E[0-9]{3}/); }