5.5.7. Объектно-ориентированное программирование на Фортране

Объектно-ориентированное программирование на Фортране связано с большими техническими трудностями в связи с отсутствием в этом языке структур (записей) и динамических объектов. Но поскольку все еще имеется много любителей Фортрана, следует хотя бы кратко рассмотреть основные принципы реализации на Фортране проекта, разработанного по объектно-ориентированной методологии.

Реализация классов с помощью массивов языка Фортран. В Фортране определен всего один структурный тип данных - массив, так что структуры (записи) тоже следует моделировать. Класс представляется как неявный набор массивов, по одному для каждого атрибута класса. Массивы должны иметь одинаковый размер, который должен быть достаточным для включения всех объектов этого класса, которые будут существовать во время выполнения программы, так как Фортран не поддерживает динамического распределения памяти. Значения индекса массивов представляют уникальный идентификатор объекта внутри соответствующего класса. При этом идентификаторы объектов разных классов будут иметь одинаковые значения, так что программист должен сам следить за тем, какому классу принадлежит объект (впрочем реализация механизма наследования, описываемая ниже, может несколько облегчить это). Все массивы одного и того же класса можно объединить в общий блок. Например, память для тысячи окон из рассматриваемого в этом разделе примера может быть организована следующим образом:

	COMMON/WINDOW/XMIN,YMIN,XMAX,YMAX,WINDOW

	REAL XMIN(1000),YMIN(1000),XMAX(1000),YMAX(1000),WINDOW(1000)

	INTEGER NWINDOW

Программист должен организовать счетчик порожденных объектов данного класса (NWINDOW), и присваивать его значения уникальным идентификаторам вновь порождаемых объектов.

В Фортране нет средств определения новых типов данных, поэтому нет возможности определить тип Length: данные этого типа должны иметь один из определенных в Фортране типов (INTEGER, REAL, COMPLEX, LOGICAL и CHARACTER).

В Стандарте Фортрана ограничена длина идентификаторов, однако большая часть компиляторов поддерживают идентификаторы в 32 и более символов. В примерах фрапгментов фортранных программ предполагается, что допустимы достаточно длинные идентификаторы, которые могут содержать символ подчеркивания ("_"). Если компилятор не поддерживает длинных имен, все идентификаторы из примеров следует заменить более короткими, что, естественно, ухудшит читаемость программ.

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

	INTEGER AWINDOW

	REAL X1

	X1 = XMIN(AWINDOW)

При передаче параметров методам объект может передаваться как соответствующий ему индекс атрибутных массивов соответствующего класса:

	SOUBROUTINE WINDOW__ADD_TO_SELECTIONS (SELF, SHAPE)

	INTEGER SELF, SHAPE

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

	FUNCTION CIRCLE__PICK(X0, Y0, RADIUS, X, Y)

	LOGICAL CIRCLE__PICK

	REAL X0, Y0, RADIUS, X, Y

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

	FUNCTION CREATE_WINDOW(X1, Y1, WIDTH, HEIGHT)

	COMMON/WINDOW/XMIN,YMIN,XMAX,YMAX,WINDOW

	REAL XMIN(1000),YMIN(1000),XMAX(1000),YMAX(1000),WINDOW(1000)

	INTEGER NWINDOW

	INTEGER CREATE_WINDOW

	REAL X1, Y1, X2, Y2

	NWINDOW = NWINDOW + 1

	XMIN(NWINDOW) = X1

	YMIN(NWINDOW) = Y1

	XMAX NWINDOW) = X1 + WIDTH

	YMAX NWINDOW) = Y1 + HEIGHT

	CREATE_WINDOW = NWINDOW

	RETURN

	END

Реализация наследования. В Фортране нет записей (структур) и тем более вариантных записей. Поэтому наследование при программировании на Фортране можно реализовать либо в виде универсальной записи, либо моделируя вариантные записи.

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

	COMMON/SHAPE/XMIN,YMIN,XMAX,YMAX,WINDOW,RADIUS,NSHAPE

	REAL XMIN(1000),YMIN(1000),XMAX(1000),YMAX(1000),WINDOW(1000)

	REAL RADIUS(1000)

	INTEGER NSHAPE

Второй способ более экономен. Он состоит в представлении класса как набора подклассов, каждый из которых реализован как самостоятельный класс со своим набором массивов и индексами объектов. Каждый класс представляется парой целых массивов: один из этих массивов содержит код подкласса, другой - индексы объектов в соответствующем массиве подкласса. В следующем примере определен класс ITEM, который имеет подклассы SHAPE (содержит не более 1000 объектов) и GROUP (содержит не более 100 объектов). Общий блок CLASSES определяет целочисленный код для каждого класса.

	COMMON/ITEM/ITEM_CLASS,ITEM_ID,NITEM

	INTEGER ITEM_CLASS(1100),ITEM_ID(1100)

	INTEGER NITEM/0/

	COMMON/CLASSES/GROUP,BOX,CIRCLE

	INTEGER GROUP/1/,BOX/2/,CIRCLE/3/

Когда создается новый объект, значение индекса должно выбираться как из суперкласса, так и из соответствующего подкласса. Например, следующий код создает новый круг (CIRCLE):

	FUNCTION CREATE_CIRCLE(X0,Y0,RADIUS0)

	COMMON/WINDOW/XMIN,YMIN,XMAX,YMAX,WINDOW

	сюда следует поместить описания общих блоков ITEM, SHAPE и CLASSES

	INTEGER CREATE_CIRCLE

	NSHAPE = NSHAPE + 1

	X(NSHAPE) = X0

	Y(NSHAPE) = Y0

	RADIUS(NSHAPE) = RADIUS0

	NITEM = NITEM + 1

	ITEM_CLASS(NITEM) = CIRCLE

	ITEM_ID(NITEM) = NSHAPE

	CREATE_CIRCLE = NITEM

	RETURN

	END

Резолюция методов. Вызовы методов для объектов, класс которых известен во время компиляции, осуществляются как непосредственные вызовы соответствующих фортранных подпрограмм. Остальные объекты должны содержать номер класса (см. выше общий блок CLASSES). Для каждой операции можно составить управляющую подпрограмму, которой в качестве параметров передаются номер класса и индекс объекта. Управляющая подпрограмма содержит оператор перехода по вычислению, который позволяет вызывать требуемый метод:

	    FUNCTION PICK(CLASS,ID,PX,PY)

	    LOGICAL PICK

	    LOGICAL GROUP_PICK,BOX_PICK,CIRCLE_PICK

	    INTEGER CLASS,ID

	    GOTO(100,200,300) CLASS

	    PICK = .FALSE.

	    RETURN

	100 PICK = GROUP_PICK(ID,PX,PY)

	    RETURN

	200 PICK = BOX_PICK(ID,PX,PY)

	    RETURN

	300 PICK = CIRCLE_PICK(ID,PX,PY)

	    RETURN

	    END

Назад | Содержание | Вперед