Trurl-based/__Interp/Host/Mod/Dialog.txt

   1 MODULE HostDialog;
   2
   3         (* for StdLog and Dialog.SetShowHook *)
   4
   5         IMPORT Dialog, Console;
   6
   7         TYPE
   8                 ShowHook = POINTER TO RECORD (Dialog.ShowHook) END;
   9
  10         PROCEDURE ShowParamMsg* (IN str, p0, p1, p2: ARRAY OF CHAR);
  11                 VAR st: ARRAY 512 OF CHAR;
  12         BEGIN
  13                 ASSERT(str # "", 20);
  14 (*
  15                 IF Dialog.showsStatus THEN
  16                         ShowParamStatus(str, p0, p1, p2)
  17                 ELSE
  18 *)
  19                         Dialog.MapParamString(str, p0, p1, p2, st);
  20                         Console.WriteStr(st); Console.WriteLn
  21 (*
  22                 END
  23 *)
  24         END ShowParamMsg;
  25
  26         PROCEDURE ShowParamStatus* (IN str, p0, p1, p2: ARRAY OF CHAR);
  27                 VAR st: ARRAY 513 OF CHAR;
  28         BEGIN
  29                 Dialog.MapParamString(str, p0, p1, p2, st);
  30                 Console.WriteStr(st); Console.WriteLn
  31         END ShowParamStatus;
  32
  33         PROCEDURE (h: ShowHook) ShowParamMsg (IN str, p0, p1, p2: ARRAY OF CHAR);
  34         BEGIN
  35                 ShowParamMsg(str, p0, p1, p2)
  36         END ShowParamMsg;
  37
  38         PROCEDURE (h: ShowHook) ShowParamStatus (IN str, p0, p1, p2: ARRAY OF CHAR);
  39         BEGIN
  40                 ShowParamStatus(str, p0, p1, p2)
  41         END ShowParamStatus;
  42
  43         PROCEDURE Init;
  44                 VAR
  45                         showHook: ShowHook;
  46         BEGIN
  47                 NEW(showHook); Dialog.SetShowHook(showHook)
  48         END Init;
  49
  50 BEGIN
  51         Init
  52 END HostDialog.