Lines Matching full:subs
168 @subs = ();
170 $pushes = "push \@subs,\$&;" .
171 "push \@subs,\$1;" .
172 "push \@subs,\$2;" .
173 "push \@subs,\$3;" .
174 "push \@subs,\$4;" .
175 "push \@subs,\$5;" .
176 "push \@subs,\$6;" .
177 "push \@subs,\$7;" .
178 "push \@subs,\$8;" .
179 "push \@subs,\$9;" .
180 "push \@subs,\$10;" .
181 "push \@subs,\$11;" .
182 "push \@subs,\$12;" .
183 "push \@subs,\$13;" .
184 "push \@subs,\$14;" .
185 "push \@subs,\$15;" .
186 "push \@subs,\$16;" .
187 "push \@subs,\$'; }";
199 elsif (scalar(@subs) == 0)
208 while (scalar(@subs) != 0)
210 printf $outfile (" 0: %s\n", &pchars($subs[0]));
211 printf $outfile (" 0+ %s\n", &pchars($subs[17])) if $showrest;
215 if (defined $subs[$i])
219 printf $outfile ("%2d: %s\n", $i, &pchars($subs[$i]));
223 splice(@subs, 0, 18);
