====== Экспорт ======
Чтобы константой, переменной или процедурой было возможно воспользоваться в другом модуле, который его импортирует, необходимо поставить отметку об экспорте ''*''.
MODULE ExamplesExport;
IMPORT SYSTEM, MCU := MicroSTM32F10xxD;
CONST defaultValue* = 9600;
VAR globalVar*: INTEGER;
PROCEDURE Add* (value: INTEGER);
BEGIN
globalVar := globalVar + value
END Add;
END ExamplesExport.
Такой модуль возможно будет использовать после импорта следующим образом:
MODULE ExamplesUse;
IMPORT ExamplesExport;
VAR currentValue: INTEGER;
PROCEDURE Do*;
BEGIN
ExamplesExport.SetVar(ExamplesExport.defaultValue);
currentValue := ExamplesExport.defaultValue
END Do;
Do* - ???
слабо раскрыто - не понял
END ExamplesUse.
Глобальные переменные другого модуля доступны только для чтения. Из значение возможно изменять только через процедуры.