A2OS/source/StdIOShell.Mod

MODULE StdIOShell; (** AUTHOR "Felix Friedrich"; PURPOSE "Command shell for standalone Oberon/A2 Applications"; *)

IMPORT StdIO, Commands, Modules, Trace;

PROCEDURE Activate(context: Commands.Context; CONST cmd: ARRAY OF CHAR): BOOLEAN;
VAR msg: ARRAY 256 OF CHAR;  res: LONGINT; 
BEGIN
	Commands.Activate(cmd, context, {Commands.Wait}, res, msg);
	IF res # 0 THEN context.error.String(msg); context.error.Ln; RETURN FALSE END;
	RETURN TRUE;
END Activate;

PROCEDURE Execute(context: Commands.Context);
VAR str: ARRAY 256 OF CHAR;  b: BOOLEAN;
BEGIN
	IF ~context.arg.GetString(str) THEN  
		context.out.String("Critical error: no arg"); 
		RETURN 
	END;
	IF ~context.arg.GetString(str) THEN 
		str := "Shell.Start";
	ELSIF str = "compile" THEN str := "Compiler.Compile"
	ELSIF str="link" THEN str := "StaticLinker.Link"
	ELSIF (str="i") OR (str = "interpreter") THEN str := "InterpreterShell.Start"
	ELSIF (str = "execute") OR (str="e") THEN str := "SystemTools.DoFile";
	ELSIF (str = "run") OR (str="r") THEN 
		IF ~Activate(context, "SystemTools.DoFile") THEN RETURN END;
		str := "Shell.Start";
	END;
	
	b := Activate(context, str);
END Execute;

TYPE 
	(* excute the shell and termination in separate thread with proper process data structure *)
	Executor=OBJECT
	VAR done: BOOLEAN;

		PROCEDURE Wait;
		BEGIN{EXCLUSIVE}
			AWAIT(done);
		END Wait;
		
	BEGIN{ACTIVE}
		Execute(StdIO.env);
	FINALLY
		Trace.String("Closing Shell"); Trace.Ln;
		Modules.Shutdown(Modules.PowerDown);
		done := TRUE
	END Executor;

VAR execute: Executor;

(* do not add commands here -- the module loader does not finish here and they will not become available *)
BEGIN	
	NEW(execute); (* execute shell and termination in separate thread *)
	execute.Wait; (* will actually never return *)
END StdIOShell.

Linking a command line shell:

Command line shell: (Windows):
StaticLinker.Link  --fileFormat=PE32CUI --fileName=oberon.exe --extension=GofW --displacement=401000H Runtime Trace Kernel32 Machine Heaps Modules Objects Kernel KernelLog Streams Commands Files  WinFS Clock Dates Reals Strings Diagnostics BitSets StringPool ObjectFile GenericLinker Reflection GenericLoader WinTrace StdIO  Traps RelativeFileSystem WMDefaultFont SystemTools StdIOShell ~

Command line shell: (Linux):
StaticLinker.Link -p=Linux32G Runtime Trace Glue Unix Machine Heaps Modules Objects Kernel KernelLog  Streams Commands Pipes StdIO TrapWriters Reflection Traps Files UnixFiles Clock Dates Reals Strings Diagnostics BitSets StringPool ObjectFile GenericLinker   GenericLoader  Shell SystemTools StdIOShell ~