# export-lex-fn.pkg
#
# Revision 1.2 2000/03/07 04:01:05 blume
# - build script now uses the new bin/build-an-executable-mythryl-heap-image script
# Compiled by:
# src/app/lex/mythryl-lex.lib### "A good workman is known by his tools."
###
### -- proverb.
package export_lex_fn: (weak) api {
lex_fn
:
(String, List(String))
->
winix::process::Status;
}
{
include trap_control_c; # trap_control_c is from src/lib/std/trap-control-c.pkg fun err msg
=
file::write
(
file::stderr,
string::cat msg
);
fun lex_fn (name, args)
=
{ fun lex_fn' ()
=
case args
#
[] => { err [name, ": missing filename\n"];
winix::process::exit 1;
};
#
files => list::apply
lex_fn::lex_fn
files;
esac;
{ catch_interrupt_signal lex_fn';
winix::process::success;
}
except
CONTROL_C_SIGNAL
=>
{ err [name, ": Interrupt\n"];
winix::process::failure;
};
any =>
{ err [ name,
": uncaught exception ",
exceptions::exception_message any,
"\n"
];
winix::process::failure;
};
end;
};
};