Модули

Паскаль обеспечивает доступ к большому числу встроенных констант, типов данных, переменных, процедур и функций. Их количество велико, однако, в своей программе мы редко используете их все сразу. Поэтому они разделены на связанные группы, называемые модулями. В этом случае Вы можете использовать только те модули, которые необходимы в программе.

Модуль представляет собой набор констант, типов данных, переменных, процедур и функций. Каждый модуль аналогичен отдельной программе на Паскале: он может иметь основное тело, которое вызывается перед запуском Вашей программы и осуществляет необходимую инициализацию. Таким образом, модуль представляет собой библиотеку описаний, которую можно вставить в свою программу и которая позволит разбить программу на части, компилируемые отдельно.

Структура модуля

Модуль обеспечивает набор средств благодаря процедурам и функциям при поддержке констант, типов данных и переменных, однако действительная реализация этих средств скрыта в силу того, что модуль разделен на две секции: интерфейса и реализации. Если программа использует модуль, то все описания модуля становятся доступными этой программе, как если бы они были определены в ней самой.

Структура модуля аналогична структуре программы, однако есть несколько существенных различий. Например, рассмотрим модуль:

unit идентификатор;

interface

uses список модулей; {Необязательный}

implementation {открытые описания}

begin {закрытые описания процедуры и функции }

end.{код инициализации }

Заголовок модуля начинается зарезервированным словом unit, за которым следует имя модуля (идентификатор) аналогично, как и в случае имени программы.

Следующим элементом в модуле является ключевое слово interface. Обозначает начало секции интерфейса модуля — секции, видимой всем другим модулям или программам, в которых модуль используется.

Модуль может подключать другие модули, для этого они определяются в предложении uses. Предложение uses, если имеет место, то следует сразу после ключевого слова interface.

Отметим, что здесь выполняется общее правило использования предложения uses: если модуль, имя которого указано в предложении uses, использует другие модули, то имена этих модулей также должны быть указаны в предложении uses, причем до того, как они будут использованы.

Стандартные модули Turbo Pascal

Стандартные модули Free Pascal

Написание собственных модулей Turbo Pascal

Предположим мы написали модуль IntLib, записали его в файл с именем Int.pas и оттранслировали на диск; получившийся в результате код находится в файле INTLIВ.ТРU. Для использования этого модуля в программе необходимо включить в нее оператор uses, указывающий компилятору, какой модуль используется. Наша программа может выглядеть следующим образом:

program MyProg;
uses IntLib;

Отметим, что Паскаль предполагает, что файл, в котором находится модуль, имеет такое же имя, что и сам модуль. Если имя Вашего модуля МyUtilities, то Паскаль будет искать файл с именем МYUTILIТ.PAS.

Компиляция модуля в Turbo Pascal

Модуль компилируется точно так же, как компилируется программа: он создается с помощью редактора, а затем вызывается команда Соmpile/Соmpile (Компилировать/ Компилировать) (или нажимаются клавиши Аlt-С). Однако, вместо файла с расширением .ЕХЕ Турбо-Паскаль создает файл с расширением .ТРU (Turbо Раscal Unit — модуль Турбо-Паскаля). После этого Вы можете оставить этот файл как есть или же вставить его в ТURВО.TPL с помощью TPUMOVER.ЕХЕ.

В любом случае имеет смысл переслать файлы с расширением *.ТРU (вместе с исходными файлами) в каталог модулей, который определен с помощью команды О/D/Unit directories (Каталоги модулей). В одном исходном файле может находиться только один модуль, поскольку компиляция прекращается, как только обнаружен завершающий оператор end.

Пример:

Напишем небольшой модуль. Назовем его IntLib и вставим в него две простые подпрограммы для целых чисел — процедуру и функцию:

unit IntLib;

interface

procedure ISwap(var I,J: integer);

function IMax(I,J: integer): integer;

implementation

procedure ISwap;

var

Temp: integer;

begin

Temp:=I;

I:=J;

J:=Temp

end; {конец процедуры ISwap }

function IMax;

begin

if I > J then IMax:=I else IMax:=J

end; {конец функции IMax }

end. {конец модуля IntLib }

Введем эту подпрограмму, запишем ее в файл INTLIВ.PAS, а затем оттранслируем на диск. В результате получим код модуля в файле INTLIВ.ТРU. Перешлем его в каталог модулей. Следующая программа использует модуль IntLib:

program IntTest;

uses IntLib;

var

A,B: integer;

begin

Write('Введите два целочисленных значения: ');

Readln(A,B);

ISwap(A,B);

Writeln('A=',A,' B=',B);

Writeln('Максимальное значение равно ',IMax(A,B));

end. {конец программы IntTest }

Все описания внутри модуля связаны друг с другом. Например, модуль Crt содержит все описания, необходимые для подпрограмм работы с экраном на Вашем персональном компьютере.

Компиляция модуля в Free Pascal

Компиляция модуля выполняется почти также, как и компиляция программы. Отличие заключается только в том, что при компиляции модуля не вызывается компоновщик. Для компиляции модуля, который находится (например) в файле foo.pp, просто напечатайте:

fpc foo

Если всё правильно, то вы получите два файла модуля:

1. foo.ppu – это файл с описанием откомпилированного вами модуля.
2. foo.o – это файл, содержащий актуальный код модуля. Этот файл и является конечным продуктом компиляции.

Оба файла необходимы, если вы планируете использовать модуль в нескольких программах. Если вам нужен модуль для распространения, вы должны предоставлять оба файла – .ppu и .o.