Trurl-based/__Interp/System/Mod/Init.txt

   1 MODULE Init;
   2
   3         IMPORT
   4                 HostConsole, (* Console.SetHook *)
   5
   6                 HostFonts (* Fonts.SetHook; required for Texts *),
   7                 HostWindows (* Windows.SetHook *),
   8                 HostDates (* Dates.SetHook *),
   9                 HostDialog (* Dialog.SetShowHook *),
  10                 StdInterpreter, (* Dialog.SetCallHook *)
  11                 StdDialog (* Views.SetViewHook *),
  12
  13                 StdLog, ConsLog, (* Log.Hook *)
  14
  15                 Converters (* .odc *),
  16                 Dialog;
  17
  18         PROCEDURE Init;
  19                 VAR res: INTEGER;
  20         BEGIN
  21                 Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
  22                 Dialog.Call("Config.Setup", " ", res);
  23                 Dialog.Call("ConsInterp.Run", " ", res)
  24         END Init;
  25
  26 BEGIN
  27         Init
  28 END Init.