blackbox-linux-console/BlackBox/Init-Interp.txt

MODULE Init;

	IMPORT
		LinConsole,

		HostFonts (* Fonts.SetHook; required for Texts *),
		HostWindows (* Windows.SetHook *),
		HostDates (* Dates.SetHook *),
		HostDialog (* Dialog.SetShowHook *),
		StdInterpreter, (* Dialog.SetCallHook *)
		StdDialog (* Views.SetViewHook *),
		(* StdLog, *)

		Converters (* .odc *),
		Dialog;

	PROCEDURE Init;
		VAR res: INTEGER;
	BEGIN
		(* StdLog.Open; *)
		Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
		(* Converters.Register("StdETHConv.ImportETHDoc", "", "TextViews.View", "eth", {Converters.importAll}); *)
		Dialog.Call("ConsInterp.Run", " ", res)
	END Init;

BEGIN
	Init
END Init.