-open IN, "Recipe" or die "unable to open Recipe file\n";
+open IN, "Recipe" or do {
+ # We want to deal correctly with being run from one of the
+ # subdirs in the source tree. So if we can't find Recipe here,
+ # try one level up.
+ chdir "..";
+ open IN, "Recipe" or die "unable to open Recipe file\n";
+};
# HACK: One of the source files in `charset' is auto-generated by
# sbcsgen.pl. We need to generate that _now_, before attempting
# HACK: One of the source files in `charset' is auto-generated by
# sbcsgen.pl. We need to generate that _now_, before attempting
LinkOptions_68K = {LinkOptions} -br 68k -model far -compact
LinkOptions_CFM68K = {LinkOptions} -br 020 -model cfmseg -compact
LinkOptions_PPC = {LinkOptions}
LinkOptions_68K = {LinkOptions} -br 68k -model far -compact
LinkOptions_CFM68K = {LinkOptions} -br 020 -model cfmseg -compact
LinkOptions_PPC = {LinkOptions}
foreach $p (&prognames("M")) {
($prog, $type) = split ",", $p;
foreach $p (&prognames("M")) {
($prog, $type) = split ",", $p;
undef, "\xb6"), "\n\n";
$rsrc = &objects($p, "", "X.rsrc", undef);
undef, "\xb6"), "\n\n";
$rsrc = &objects($p, "", "X.rsrc", undef);
$objstr = &objects($p, "X.\L$arch\E.o", "", undef);
print &splitline("$prog.\L$arch\E \xc4 $objstr $rsrc", undef, "\xb6");
print "\n";
print &splitline("\tDuplicate -y $rsrc {Targ}", 69, "\xb6"), "\n";
$objstr = &objects($p, "X.\L$arch\E.o", "", undef);
print &splitline("$prog.\L$arch\E \xc4 $objstr $rsrc", undef, "\xb6");
print "\n";
print &splitline("\tDuplicate -y $rsrc {Targ}", 69, "\xb6"), "\n";
$objstr . " {Libs_$arch}", 69, "\xb6"), "\n";
print &splitline("\tSetFile -a BMi {Targ}", 69, "\xb6"), "\n\n";
}
$objstr . " {Libs_$arch}", 69, "\xb6"), "\n";
print &splitline("\tSetFile -a BMi {Targ}", 69, "\xb6"), "\n\n";
}
foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
next unless $d->{obj};
print &splitline(sprintf("%s \xc4 %s", $d->{obj},
foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
next unless $d->{obj};
print &splitline(sprintf("%s \xc4 %s", $d->{obj},
foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
next unless $d->{obj};
print &splitline(sprintf("%s \xc4 %s", $d->{obj},
foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
next unless $d->{obj};
print &splitline(sprintf("%s \xc4 %s", $d->{obj},