OberonCore

MODULE LinLibc ["libc.so.6"];
   PROCEDURE [ccall] getchar* (): INTEGER;
   PROCEDURE [ccall] mbtowc* (OUT wc: wchar_t; s: PtrSTR;size: size_t): INTEGER;

MODULE TestinSample001;

   IMPORT Log, LinSimpleLog, LinLibc;
   
   PROCEDURE Init*;
   VAR res,i,j:INTEGER;
         ss: ARRAY 2 OF SHORTCHAR;
   BEGIN
      LinSimpleLog.Open;
      
      Log.String("Проверка ввода"); Log.Ln;

      i:=LinLibc.getchar();

      Log.String("введено"); Log.Ln;
      
      ss[0]:=SHORT(CHR(i));
      ss[1]:=0X;      
      res := LinLibc.mbtowc(j,ss, 1);

      Log.Char(CHR(j)); Log.Ln;
   END Init;

END TestinSample001.

DevElfLinker.LinkDll libBB.so := Kernel+ Kernel_so_init# Log Math Strings LinSimpleLog
TestinSample001#

#!/bin/sh

./run-dev <<DATA
compile Lin/Mod Obsd.Dl.txt
compile Lin/Mod Obsd.Libc.txt
compile Lin/Mod Obsd.KQueue.txt
compile Lin/Mod Obsd.linKernel.txt
compile System/Mod Files.txt
compile System/Mod Math.txt
compile System/Mod Strings.txt
compile Lin/Mod linHostFiles.txt
compile System/Mod Meta.txt
compile Std/Mod Loader.txt
compile System/Mod Console.txt
compile Lin/Mod Console.txt
compile Lin/Mod Kernel_so_init.txt
DATA

./run-dev <<DATA
compile Lindev/Mod CPM.txt
compile Lindev/Mod CPT.txt
compile Lindev/Mod CPS.txt
compile Lindev/Mod CPH.txt
compile Lindev/Mod CPB.txt
compile Lindev/Mod CPP.txt
compile Lindev/Mod CPE.txt
compile Lindev/Mod CPL486.txt
compile Lindev/Mod CPC486.txt
compile Lindev/Mod CPV486.txt
compile  LindevElfLinker16.txt
compile  LindevCompiler.odc
compile  Lindev.odc
DATA

./run-dev <<DATA
link libBBLindev.so := Kernel+ Kernel_so_init# Console Math Strings LinConsole Files HostFiles LindevCPM LindevCPT LindevCPS LindevCPH LindevCPB LindevCPP LindevCPE LindevCPL486 LindevCPC486 LindevCPV486 LindevCompiler LindevElfLinker Lindev#
DATA

MODULE Interp;

   (* (Std)Interpreter on (Lin)Console *)

   IMPORT Console, LinConsole (* required *), Strings, Dialog, StdInterpreter (* required (Dialog.SetCallHook) *);

   PROCEDURE WriteInt (x: INTEGER);
      VAR s: ARRAY 16 OF CHAR;
   BEGIN
      Strings.IntToString(x, s);
      Console.WriteStr(s)
   END WriteInt;

   PROCEDURE Call (VAR s: ARRAY OF CHAR): BOOLEAN;
      VAR i: INTEGER;
         res: BOOLEAN;
   BEGIN
      i := 0;
      WHILE (i < LEN(s)) & (s[i] # 0AX) & (s[i] # 0DX) & (s[i] # 0X) DO
         INC(i)
      END;
      IF (i < LEN(s)) & (s[i] # 0X) THEN
         IF (i > 0) & (s[0] # '#') THEN
            s[i] := 0X;
            Dialog.Call(s, "", i);
            IF i = 0 THEN
               res := TRUE
            ELSE
               WriteInt(i); Console.WriteLn;
               res := FALSE (* stop on Dialog.Call error *)
            END
         ELSE (* skip empty strings and comments *)
            res := TRUE
         END
      ELSE (* end of input *)
         res := FALSE
      END;
   RETURN res
   END Call;

   PROCEDURE Init*;
      VAR s: ARRAY 1024 OF CHAR;
   BEGIN
      Console.ReadLn(s);
      WHILE Call(s) DO
         Console.ReadLn(s)
      END
   END Init;

END Interp.

#!/bin/sh

./run-interp <<DATA
LindevCompiler.Compile('Lin/Mod', 'Obsd.Dl.txt')
LindevCompiler.Compile('Lin/Mod', 'Obsd.Libc.txt')
LindevCompiler.Compile('Lin/Mod', 'Obsd.KQueue.txt')
LindevCompiler.Compile('Lin/Mod', 'Obsd.linKernel.txt')
LindevCompiler.Compile('System/Mod', 'Files.txt')
LindevCompiler.Compile('System/Mod', 'Dialog.txt')
...
DATA

DevCompiler.CompileThis ....
DevElfLinker.LinkDll ...

        PROCEDURE LogMarks (r: TextModels.Reader);
                VAR v: Views.View;
        BEGIN
                r.SetPos(0);
                r.ReadView(v);
                WHILE ~r.eot DO
                        WITH v: DevMarkers.View DO
                                v.SetMode(DevMarkers.message);
                                LogStr("  pos = "); LogInt(r.Pos()); LogStr(', error = "'); LogStr(v.msg); LogStr('"'); LogLn;
                        ELSE
                        END;
                        r.ReadView(v)
                END
        END LogMarks;

        IF error THEN
                DevCPM.InsertMarks(source.Base());
                LogMarks(source)
        END

#!/bin/sh

./run-BlackBox <<DATA
DevCompiler.CompileThis ObxHello0 ObxPi
ObxHello0.Do
ObxPi.WritePi(1000)

DevElfLinker.LinkDll libBB.so := Kernel+ Files HostFiles StdLoader
DATA

compiling
compiling "ObxHello0"   32   0
compiling "ObxPi"   444   0
ok
Hello World
31415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989
compiling Obx/Mod Hello0.odc
   32   0
compiling Obx/Mod Pi.odc
   444   0
linking
$libc.so.66.0  libc.so.66.0
$libc.so.66.0  libc.so.66.0
Ok