27 lines
497 B
Perl
27 lines
497 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
package S2;
|
||
|
|
|
||
|
|
sub error {
|
||
|
|
my ($where, $msg) = @_;
|
||
|
|
if (ref $where && ($where->isa('S2::Token') ||
|
||
|
|
$where->isa('S2::Node'))) {
|
||
|
|
$where = $where->getFilePos();
|
||
|
|
}
|
||
|
|
if (ref $where eq "S2::FilePos") {
|
||
|
|
$where = $where->locationString;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $i = 0;
|
||
|
|
my $errmsg = "$where: $msg\n";
|
||
|
|
while (my ($p, $f, $l) = caller($i++)) {
|
||
|
|
$errmsg .= " $p, $f, $l\n";
|
||
|
|
}
|
||
|
|
undef $S2::CUR_COMPILER;
|
||
|
|
die $errmsg;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|