DOS ain't dead

Oberon subtyping (was: JWlinkD updated) (Developers)

posted by Rugxulo , Usono, 20.02.2012, 20:14

> I made a small update to http://www.japheth.de/Download/JWlink/JWlinkbd.zip
> , which has the following changes:
>...
> After these fixes your sample did run, linked with jwlink.

Cool, thanks. Yes, it seems to work.

BTW, here's another silly example just to demonstrate the subtyping of Oberon:


MODULE blah;
IMPORT O := Out;

TYPE object = RECORD END;
     Tchar   = RECORD (object) c: CHAR END;
     Tstring = RECORD (object) str: ARRAY 255 OF CHAR END;
     Tinteger= RECORD (object) i: LONGINT END;

VAR name: Tstring; number: Tinteger; grade: Tchar;

PROCEDURE write(VAR o: object);
BEGIN
  IF o IS Tchar THEN O.Char(27X); O.Char(o(Tchar).c); O.Char(27X)
  ELSIF o IS Tstring THEN O.Char(22X); O.String(o(Tstring).str); O.Char(22X);
  ELSIF o IS Tinteger THEN O.Int(o(Tinteger).i,1)
  ELSE O.Ln; O.String("dunno")
  END;
  O.Ln
END write;

BEGIN (* blah *)
  grade.c := "B"; number.i := 5150H; COPY("dosuser",name.str);

  write(name); write(number); write(grade);
END blah.


Complete thread:

• OMF records - Rugxulo, 15.02.2012, 16:14 (Developers)
  • Just some research about the name "E. R. Videki" - rr, 15.02.2012, 21:09
    • Just some research about the name "E. R. Videki" - Arjay, 15.02.2012, 22:08
      • Just some research about the name "E. R. Videki" - Rugxulo, 15.02.2012, 23:19
        • Just some research about the name "E. R. Videki" - Arjay, 16.02.2012, 00:47
  • OMF records - Arjay, 15.02.2012, 22:36
    • OMF records - Rugxulo, 15.02.2012, 23:29
      • OMF records - Arjay, 16.02.2012, 01:09
        • OMF records - Rugxulo, 16.02.2012, 08:00
          • OMF records - rr, 16.02.2012, 09:51
            • OMF records - Arjay, 16.02.2012, 21:37
          • OMF records - marcov, 18.02.2012, 17:16
            • OMF records - Rugxulo, 18.02.2012, 17:32
              • OMF records - Rugxulo, 18.02.2012, 17:54
                • OMF records - marcov, 19.02.2012, 16:47
                  • OMF records - RayeR, 19.02.2012, 17:19
                    • OMF records - marcov, 20.02.2012, 10:33
                  • OMF records - Rugxulo, 19.02.2012, 21:33
                    • OMF records - marcov, 20.02.2012, 18:23
              • OMF records - marcov, 19.02.2012, 16:43
                • OMF records - Rugxulo, 19.02.2012, 21:15
                  • OMF records - marcov, 20.02.2012, 10:54
                    • OMF records - Rugxulo, 20.02.2012, 17:50
                      • OMF records - marcov, 20.02.2012, 18:54
                        • OMF records - Rugxulo, 20.02.2012, 20:09
  • OMF records - Japheth, 16.02.2012, 18:08
    • OMF records - Rugxulo, 16.02.2012, 19:48
      • OMF records - Arjay, 16.02.2012, 21:27
        • OMF records - Arjay, 16.02.2012, 21:52
          • OMF records - Rugxulo, 16.02.2012, 23:09
    • OMF records - Rugxulo, 17.02.2012, 02:15
      • OMF records - Japheth, 17.02.2012, 08:08
        • OMF records - Rugxulo, 17.02.2012, 20:21
          • OMF records - Japheth, 18.02.2012, 09:05
            • OMF records - Rugxulo, 18.02.2012, 16:39
              • OMF records - Japheth, 18.02.2012, 17:55
                • jwlinkd updated - Japheth, 20.02.2012, 14:31
                  • Oberon subtyping (was: JWlinkD updated) - Rugxulo, 20.02.2012, 20:14
                    • BEFI 3H (Oberon-M fully supported) - Rugxulo, 06.03.2012, 23:30
          • OMF records - processing SYS.OBJ with tdstrip - Arjay, 18.02.2012, 14:22
            • OMF records - processing SYS.OBJ with tdstrip - Arjay, 18.02.2012, 15:47
              • OMF records - processing SYS.OBJ with tdstrip - Rugxulo, 18.02.2012, 17:12
            • OMF records - processing SYS.OBJ with tdstrip - Rugxulo, 18.02.2012, 16:56
              • OMF records - processing SYS.OBJ with tdstrip - Arjay, 19.02.2012, 10:16
                • OMF records - processing SYS.OBJ with tdstrip - Rugxulo, 19.02.2012, 17:58
  • Oberon 1.2 OC (compiler) patch - Arjay, 18.02.2012, 23:37
    • Oberon/M 1.2 (OMF output) ... die, REGINT, die! - Rugxulo, 19.02.2012, 00:54
      • Oberon/M 1.2 (OMF output) ... die, REGINT, die! - Arjay, 19.02.2012, 10:05