OberonCore

MODULE OmtestHelloWorld;
   IMPORT Runner, OLog;
   
   PROCEDURE Run*;
   BEGIN
      OLog.String("Hellow, World"); OLog.Ln;
   END Run;
   
BEGIN
   Runner.SetRun(Run)
END OmtestHelloWorld.

CONST
   vTIMES = 1; vSLASH = 2; vDIV = 3; vMOD = 4;
   vTHIS_RECFN = 45; vTHIS_ARRFN = 46;

CONST
   SYS_TYPE_DESC* = 1; SYS_MOD_DESC* = 2; SYS_DIR_DESC* = 3; SYS_OBJ_DESC* = 4;

VAR
   setTypeForm-, setTypeSize-: SHORTINT;

MODULE OLog;
IMPORT Log, SYSTEM, OStrings;
TYPE
    Proc* = PROCEDURE;
    StringProc* = PROCEDURE (str: ARRAY OF CHAR);
    SStringProc* = PROCEDURE (str: ARRAY OF SHORTCHAR);
    AdrProc* = PROCEDURE (x: SYSTEM.PTR);

VAR
    Ln-: Proc;
    String-: StringProc;
    SString-: SStringProc;
    Adr-: AdrProc;

PROCEDURE SetProcs* (...);

PROCEDURE Init;
BEGIN
    SetProcs(Log.ClearBuf, Log.FlushBuf, Log.Beep, Log.Char, StdLInt, Log.Real, Log.String, StdSString,
        StdUSString, Log.Bool, Log.Set, StdLIntForm, Log.RealForm, Log.Tab, Log.Ln, StdAdr)
END Init;

MODULE OLog;
IMPORT SYSTEM, OStrings;
TYPE
    Proc* = PROCEDURE;
    StringProc* = PROCEDURE (str: ARRAY OF CHAR);
    SStringProc* = PROCEDURE (str: ARRAY OF SHORTCHAR);
    AdrProc* = PROCEDURE (x: SYSTEM.PTR);

VAR
    Ln-: Proc;
    String-: StringProc;
    SString-: SStringProc;
    Adr-: AdrProc;

PROCEDURE SetProcs* (...);

PROCEDURE \[code\] CChar (ch: CHAR)
    'putchar((int)ch)';
PROCEDURE \[code\] CLn
    "putchar((int)'\n')";
PROCEDURE \[code\] CFlush
    'fflush(stdout)';
      
PROCEDURE SpecChar (ch: CHAR);
BEGIN
    CChar(ch)
END SpecChar;
   
PROCEDURE SpecString (str: ARRAY OF CHAR);
    VAR j: INTEGER;
BEGIN
    j := 0;
    WHILE str[j] # 0X DO Char(str[j]); INC(j) END;
END SpecString;
   
PROCEDURE SpecSString (str: ARRAY OF SHORTCHAR);
    VAR j: INTEGER;
BEGIN
    j := 0;
    WHILE str[j] # 0X DO Char(str[j]); INC(j) END;
END SpecSString;

PROCEDURE Init;
BEGIN
    SetProcs(Empty, SpecFlush, StdBeep, SpecChar, StdLInt, StdReal, SpecString, SpecSString,
        StdUSString, StdBool, StdSet, StdLIntForm, StdRealForm, StdTab, SpecLn, StdAdr)
END Init;

MODULE HostConLog;

PROCEDURE \[code\] CChar (ch: CHAR)
    'putchar((int)ch)';
PROCEDURE \[code\] CConv (ca: ARRAY OF CHAR; sca: ARRAY OF SHORTCHAR)
    'CharToOemW(ca, sca)';

PROCEDURE SpecChar (ch: CHAR);
BEGIN
    cStr[0] := ch;
    scStr[1] := 0X;
    CConv(cStr, scStr);
    CChar(scStr[0]);
    IF scStr[1] # 0X THEN
   CChar(scStr[0])
    END
END SpecChar;

MODULE HostConLog;

PROCEDURE SpecChar (ch: CHAR);
    VAR tmp: INTEGER;
BEGIN
    tmp := Api.putchar(ORD(ch))
END SpecChar;