Oberon
Oberon is an actively used programming language created in 1986. Oberon is a general-purpose programming language created in 1986 by Niklaus Wirth and the latest member of the Wirthian family of ALGOL-like languages (Euler, Algol-W, Pascal, Modula, and Modula-2). Oberon was the result of a concentrated effort to increase the power of Modula-2, the direct successor of Pascal, and simultaneously to reduce its complexity. Its principal new feature is the concept of type extension of record types: It permits the construction of new data types on the basis of existing ones and to relate them, deviating from the dogma of strictly static data typing. Read more on Wikipedia...
| 34Years Old | 527Users | ?Jobs |
- Oberon ranks in the top 5% of languages
- the Oberon website
- the Oberon wikipedia page
- Oberon first appeared in 1986
- Oberon was created by Niklaus Wirth
- See also: modula-2, oberon-2, zonnon, go, nim, algol, euler, pascal, modula, ada, linux, solaris, lex, yacc, x86-isa, obliq, visual-studio-editor
- Have a question about Oberon not answered here? Email me and let me know how I can help.
Example code from Wikipedia:
MODULE Rectangles;
IMPORT Figures;
TYPE
Rectangle* = POINTER TO RectangleDesc;
RectangleDesc* = RECORD
(Figures.FigureDesc)
x, y, w, h : INTEGER;
END;
PROCEDURE Draw* (r : Rectangle);
BEGIN
(* ... *)
END Draw;
(* Other procedures here *)
PROCEDURE Handle* (f: Figure; VAR msg: Figures.Message);
VAR
r : Rectangle;
BEGIN
r := f(Rectangle);
IF msg IS Figures.DrawMsg THEN Draw(r)
ELSIF msg IS Figures.MarkMsg THEN Mark(r)
ELSIF msg IS Figures.MoveMsg THEN Move(r, msg(Figures.MoveMsg).dx, msg(Figures.MoveMsg).dy)
ELSE (* ignore *)
END
END Handle;
PROCEDURE New* (VAR r : Rectangle);
BEGIN
NEW(r);
Figures.Init(r, Handle);
END New;
END Rectangles.
Last updated August 9th, 2020