OberonCore

MODULE CtlT2;
   
   IMPORT
      SYSTEM, COM, WinApi, WinOle, WinOleAut, Dates, CtlT;

   PROCEDURE AllocSysString (IN s: ARRAY OF CHAR): WinOle.BSTR;
   BEGIN
      RETURN WinOleAut.SysAllocString(s);
   END AllocSysString;
   
   PROCEDURE AllocString (s: WinOle.BSTR): CtlT.Strg;
      VAR i, n: INTEGER; str: CtlT.Strg;
   BEGIN
      IF s # NIL THEN
         n := WinOleAut.SysStringLen(s);
         NEW(str, n + 1); str^ := s$
      ELSE
         NEW(str, 1); str[0] := 0X
      END;
      RETURN str
   END AllocString;
   
   PROCEDURE ToInt* (x: CtlT.Any; OUT y: INTEGER; OUT ok: BOOLEAN);
      VAR   res: COM.RESULT; s: WinOle.BSTR;
   BEGIN
      ok := FALSE;
      IF x # NIL THEN
         WITH x: CtlT.Integer DO
            y := x.val; ok := TRUE
         | x: CtlT.String DO
            s := AllocSysString(x.val^);
            res := WinOleAut.VarI4FromStr(s^, CtlT.lcid, {}, y);
            ok := res >= 0;
            WinOleAut.SysFreeString(s);
         END
      END
   END ToInt;

END CtlT2.