10.2 externe Module

Ein Modul kann auch in eine eigenen Datei ausgelagert werden, um es getrennt zu übersetzen und auch wiederzuverwenden. Die Objekte, die von dem Modul exportiert werden, werden dazu in einem Definitionsmodul aufgeführt.

DEFINITION MODULE Test;

PROCEDURE Addiere(i:INTEGER);
PROCEDURE PrintZaehler;

END Test;

Die Implementierung kommt in eine getrennten Datei.

IMPLEMENTATION MODULE Test;

FROM InOut IMPORT WriteInt;

VAR Zaehler:INTEGER;

PROCEDURE Addiere(i:INTEGER);
BEGIN
   Zaehler := Zaehler + i;
END Addiere;

PROCEDURE PrintZaehler;
BEGIN
   WriteInt(Zaehler,5);
END PrintZaehler;

BEGIN
   Zaehler :=0;
END Test;

Um die Objekte zu benutzen, müssen sie importiert werden. Zum einen kann der qualifizierte Import benutzt werden. Damit muß jedem benutzten Objekt noch der Modulname vorangestellt werden, es können aber keine Namenskonflikte auftreten.

IMPORT Test;
...
Test.Addiere(3);

Für einen nichtqualifizierte Import muß jedes Objekt, das importiert werden soll, einzeln angegeben werden.

FROM Test IMPORT Addiere;
...
Addiere(3);

English version not yet available.