Druckversion | Impressum | Datenschutz

Oberon (Programmiersprache)

Aus LexiDict

Oberon, 2000 offiziell in ETH Oberon umbenannt, ist eine von Niklaus Wirth und Jürg Gutknecht entwickelte, objektorientierte, streng strukturierte Programmiersprache. Sie ist den ebenfalls von Wirth entworfenen Vorgängern Pascal und Modula-2 recht ähnlich, allerdings strukturierter als Pascal und mächtiger, gleichzeitig aber erheblich weniger umfangreich als Modula-2. Das ETH Oberon System ist ein eigenständiges Betriebssystem der ETH Zürich, das in der Sprache Oberon implementiert ist, als Entwicklungsgrundlage für die Sprache diente und ebenso wie der Compiler kostenlos erhältlich ist.

Oberon wurde - wie sein Vorgänger Modula-2 - parallel zu einer Workstation (Ceres) entwickelt.

Oberon fand nach seiner Veröffentlichung recht schnell unter anderem zu Bildungszwecken in Schulen und Universitäten Verwendung. Es existieren inzwischen allerdings auch auf Oberon basierende, ebenfalls kostenlos verfügbare Werkzeuge, die auch kommerziell eingesetzt werden, wie zum Beispiel die Programmiersprache Component Pascal und die Entwicklungsumgebung BlackBox Component Builder.

Die Vorteile von Oberon liegen besonders im modularen Aufbau, der großen Sicherheit und in der Einfachheit der Sprache, die eindeutig und vergleichsweise kurz definiert werden kann (siehe auch EBNF). Mit Oberon ist es besonders leicht und sicher, das Programmieren auf verschiedene Personen aufzuteilen und die Arbeit später zusammenzufügen.

Der Quelltext zum Compiler ist frei verfügbar. Es gibt verschiedene Programm-Entwicklungsumgebungen, genannt werden kann zum Beispiel auch POW!. Neben dem Einsatz als Programmiersprache ist auch die Nutzung als Betriebssystem (Native Oberon) möglich.

Hello World im Ulmer OBERON-System:

 MODULE HelloWorld;
 
 IMPORT Write;
 
 BEGIN
 
   Write.Line("Hello World");
 
 END HelloWorld.

Anders als bei anderen vollwertigen, objektorientierten Programmiersprachen wird der Quelltext nicht interpretiert (zum Beispiel Smalltalk) oder in Bytecode übersetzt (zum Beispiel Java), sondern in der Regel in einem einzigen Compilerdurchlauf sehr schnell in Maschinensprache übersetzt. Der compilierte Code ist typsicher, und Speicherbereichsprüfungen sind obligatorisch. Die Verwendung von Laufzeitdebuggern und von Programmanweisungen zur Deallokation von Zeigervariablen ist obsolet. Es ist allerdings möglich, Haltepunkte zu setzen (Anweisung HALT) und auch alle lokalen Variablen nach dem Abbruch des Programms zu analysieren. Globale Variablen können im Laufzeitsystem jederzeit analysiert werden. Die Entwicklungszeiten mit Oberon sind daher sehr kurz, und der Maschinencode ist dennoch sehr effizient und robust. Auch Echtzeitanwendungen können mit Oberon implementiert werden.

Die Programmiersprache Oberon zeichnet sich dadurch aus, dass sie die objektorientierte Architektur im Gegensatz zum Beispiel zu C++ unter anderem mit einem integrierten Laufzeitsystem Oberon System und einer Automatischen Speicherbereinigung (garbage collection) vollständig unterstützt. Auf Mehrfachvererbung wurde bewusst verzichtet, um den Compiler von komplexen Verwaltungsaufgaben zu entlasten und den Programmierer vor unerwarteten Ergebnissen im Zusammenhang mit dem Diamond-Problem zu bewahren.

Die objektorientierte Programmierung wird mit erweiterten Datenverbünden vom Datentyp RECORD erreicht. Die Definition von Methoden wird durch typengebundene Prozeduren, und die Definition von Sichtbarkeiten wird durch Exportmarken ("*" für Schreibzugriff und "-" für Lesezugriff) erwirkt. Beispiel:

MODULE Vererbung1;

TYPE

   GraphischesObjekt* = POINTER TO GraphischesObjektBeschreibung;
   GraphischesObjektBeschreibung = RECORD farbe*: LONGINT; END;

   Punkt* = POINTER TO PunktBeschreibung;
   PunktBeschreibung = RECORD (GraphischesObjekt) x*, y*: LONGINT; END;

   Linie* = POINTER TO LinienBeschreibung;
   LinienBeschreibung= RECORD (GraphischesObjekt) xStart*, yStart*, xEnde*, yEnde*: LONGINT; END;

PROCEDURE (punkt: Punkt) Zeichne*; 
BEGIN
   ...
END Zeichne; 

PROCEDURE (linie: Linie) Zeichne*; 
BEGIN
   ...
END Zeichne; 

VAR

   punkt1: Punkt;
   linie1: Linie;

BEGIN

   NEW (punkt1);
   punkt1.x := 1;
   punkt1.y := 1;
   punkt1.Zeichne ();

   NEW (linie1);
   linie1.xStart := 1;
   linie1.yStart := 1;
   linie1.xEnde  := 2;
   linie1.yEnde  := 2;
   linie1.Zeichne ();

END Vererbung1.

Attribute, die nur einen Lesezugriff haben, können durch typengebundene Prozeduren (Methoden) verändert werden. Beispiel:

MODULE Vererbung2;

TYPE

   Objekt* = POINTER TO Objektbeschreibung;
   Objektbeschreibung = RECORD x-: INTEGER; END;

PROCEDURE (objekt: Objekt) SetzeX* (wert: INTEGER); 
BEGIN
   objekt.x := wert;
END SetzeX; 

VAR

   objekt1: Objekt;
   int: INTEGER;

BEGIN

   NEW (objekt1);
   objekt1.SetzeX (1);
   int := objekt1.x;

END Vererbung2.

Dieser Artikel basiert auf dem Artikel Oberon (Programmiersprache) aus der freien Enzyklopädie Wikipedia und steht unter der GNU-Lizenz für freie Dokumentation. In der Wikipedia ist eine Liste der Autoren verfügbar.