| … | |
… | |
| 266 | } |
266 | } |
| 267 | |
267 | |
| 268 | ############################################################################# |
268 | ############################################################################# |
| 269 | |
269 | |
| 270 | sub cmd_boot { |
270 | sub cmd_boot { |
| 271 | $pm{"//boot"} = $_[0]; |
271 | $pm{"&&boot"} = $_[0]; |
| 272 | } |
272 | } |
| 273 | |
273 | |
| 274 | sub cmd_add { |
274 | sub cmd_add { |
| 275 | $_[0] =~ /^(.*)(?:\s+(\S+))$/ |
275 | $_[0] =~ /^(.*)(?:\s+(\S+))$/ |
| 276 | or die "$_[0]: cannot parse"; |
276 | or die "$_[0]: cannot parse"; |
| 277 | |
277 | |
| 278 | my $file = $1; |
278 | my $file = $1; |
| 279 | my $as = defined $2 ? $2 : "/$1"; |
279 | my $as = defined $2 ? $2 : "&$1"; |
| 280 | |
280 | |
| 281 | $pm{$as} = $file; |
281 | $pm{$as} = $file; |
| 282 | $pmbin{$as} = 1 if $_[1]; |
282 | $pmbin{$as} = 1 if $_[1]; |
| 283 | } |
283 | } |
| 284 | |
284 | |
| … | |
… | |
| 808 | $fh |
808 | $fh |
| 809 | }; |
809 | }; |
| 810 | } |
810 | } |
| 811 | '; |
811 | '; |
| 812 | |
812 | |
| 813 | $bootstrap .= "require '//boot';" |
813 | $bootstrap .= "require '&&boot';" |
| 814 | if exists $pm{"//boot"}; |
814 | if exists $pm{"&&boot"}; |
| 815 | |
815 | |
| 816 | $bootstrap =~ s/\s+/ /g; |
816 | $bootstrap =~ s/\s+/ /g; |
| 817 | $bootstrap =~ s/(\W) /$1/g; |
817 | $bootstrap =~ s/(\W) /$1/g; |
| 818 | $bootstrap =~ s/ (\W)/$1/g; |
818 | $bootstrap =~ s/ (\W)/$1/g; |
| 819 | |
819 | |
