OberonCore

MODULE S;

IMPORT MtWindows, WinApi, StdLog;

PROCEDURE Open*();
BEGIN
   MtWindows.OpenBackWindow;
   
   StdLog.Int(MtWindows.backWnd);
   
   MtWindows.Close(MtWindows.backWnd);
      
END Open;

END S.

S.Open;

PROCEDURE CloseBackWindow;
  VAR res: WinApi.BOOL;
BEGIN
  res := WinApi.DestroyWindow(backWnd)
END CloseBackWindow;

 
  ELSIF (date.month = then.month) & (date.day < date.day) THEN

  ELSIF (date.month = then.month) & (date.day < then.day) THEN

PROCEDURE TimeToString* (IN t: Dates.Time; OUT res: ARRAY OF CHAR);
      VAR h, m, s: ARRAY 4 OF CHAR;
   BEGIN
      Strings.IntToString(t.hour, h);
      Strings.IntToString(t.minute, m);
      Strings.IntToString(t.second, s);
      
      IF t.hour < 10 THEN h:= "0"+h END;
      IF t.minute < 10 THEN m:= "0"+m END;
      IF t.second < 10 THEN s:= "0"+s END;
      
      res := h$ + ":" + m$ + ":" + s$
   END TimeToString;
   
   PROCEDURE DateToString* (IN date: Dates.Date; OUT res: ARRAY OF CHAR);
      VAR y, m, d: ARRAY 16 OF CHAR;
   BEGIN
      Strings.IntToString(date.day, d);
      Strings.IntToString(date.month, m);
      Strings.IntToString(date.year, y);
      
      IF date.day < 10 THEN d:= "0"+d END;
      IF date.month < 10 THEN m:= "0"+m END;
      
      res := d$ + "." + m$ + "." + y$
   END DateToString;

PROCEDURE StringToDate* (IN s: ARRAY OF CHAR; OUT d: Dates.Date; OUT res: INTEGER);
      VAR buf: ARRAY 5 OF CHAR;
            r: INTEGER;
   BEGIN
      Strings.Extract(s$, 0, 2, buf);
      Strings.StringToInt(buf, d.day, r);
      IF r = 0 THEN
         Strings.Extract(s$, 3, 2, buf);
         Strings.StringToInt(buf, d.month, r);
         IF r = 0 THEN
            Strings.Extract(s$, 6, 4, buf);
            Strings.StringToInt(buf, d.year, r)
         END
      END      
   END StringToDate;