… | |
… | |
171 | sub cmd_boot { |
171 | sub cmd_boot { |
172 | $pm{"//boot"} = $_[0]; |
172 | $pm{"//boot"} = $_[0]; |
173 | } |
173 | } |
174 | |
174 | |
175 | sub cmd_add { |
175 | sub cmd_add { |
176 | $_[0] =~ /^(.*)(?:\s*(\S+))$/ |
176 | $_[0] =~ /^(.*)(?:\s+(\S+))$/ |
177 | or die "$_[0]: cannot parse"; |
177 | or die "$_[0]: cannot parse"; |
178 | |
178 | |
179 | my $file = $1; |
179 | my $file = $1; |
180 | my $as = defined $2 ? $2 : "/$1"; |
180 | my $as = defined $2 ? $2 : "/$1"; |
181 | |
181 | |
… | |
… | |
224 | "eval|e=s" => sub { trace_eval $_[1] }, |
224 | "eval|e=s" => sub { trace_eval $_[1] }, |
225 | "use|M=s" => sub { trace_module $_[1] }, |
225 | "use|M=s" => sub { trace_module $_[1] }, |
226 | "boot=s" => sub { cmd_boot $_[1] }, |
226 | "boot=s" => sub { cmd_boot $_[1] }, |
227 | "add=s" => sub { cmd_add $_[1] }, |
227 | "add=s" => sub { cmd_add $_[1] }, |
228 | "static" => sub { $STATIC = 1 }, |
228 | "static" => sub { $STATIC = 1 }, |
229 | "<>" => sub { cmd_file $_[1] }, |
229 | "<>" => sub { cmd_file $_[0] }, |
230 | or exit 1; |
230 | or exit 1; |
231 | |
231 | |
232 | my $data; |
232 | my $data; |
233 | my @index; |
233 | my @index; |
234 | my @order = sort { |
234 | my @order = sort { |