! Set default device and directory for EVE_GET_FILE.
! If no parameter is given, report the current default in message line.
procedure tpu$local_init
	eve$default_dir := "";
	eve$arg1_default := eve$arg1_buffer;
endprocedure;

procedure eve_default (ds)
local dirspec;	! Local for argument given

dirspec := ds;
if dirspec <> eve$kt_null then
eve$default_dir := file_parse (dirspec,eve$kt_null,eve$kt_null,device) +
		file_parse (dirspec,eve$kt_null,eve$kt_null,directory);
endif;
message(fao("Default is !AS",eve$default_dir));
endprocedure;