ГОСТ Р ИСО/МЭК 8824-2-2001

ПРИЛОЖЕНИЕ D (справочное)

Примеры

D.1 Пример использования упрощенного класса OPERATION

Применим следующее упрощенное определение классов информационных объектов OPERATION и ERROR:

OPERATION : : = CLASS {

TArgumentType OPTIONAL,

TResultType OPTIONAL,

TErrors ERROR OPTIONAL,

TLinked OPERATION OPTIONAL,

TresultReturned BOOLEAN DEFAULT TRUE,

ToperationCode INTEGER UNIQUE }

WITH SYNTAX ^{

[ARGUMENT TArgumentType]

[RESULT TResultType]

[RETURN RESULT TresultReturned]

[ERRORS TErrors]

[LINKED TLinked]

CODE ToperationCode }

ERROR : : = CLASS ^{

TParameterType OPTIONAL TerrorCode INTEGER UNIQUE }

WITH SYNTAX }

[PARAMETER TParameterType]

CODE TerrorCode }

Можно определить следующее множество объектов, которое содержит два объекта OPERATION: My-Operations OPERATION : : = {operationA | operationB} operationA OPERATION : : = {

ARGUMENT INTEGER

ERRORS {{PARAMETER INTEGER CODE 1000} | {CODE 1001}}

CODE 1

BOOLEAN

{{CODE 1002} | {PARAMETER IA5String CODE 1003}} 2

Извлечение множества объектов ERROR из приведенного выше множества объектов проводят следующим

My-OperationErrors ERROR : : = {My-Operations.TErrors}

Результирующее множество объектов есть:

My-OperationErrors ERROR : : = {

{ PARAMETER INTEGER CODE 1000} |

{ CODE 1001} |

{ CODE 1002} |

{ PARAMETER IA5String CODE 1003}

Извлечение множества кодов ошибок операций проводят следующим образом: My-OperationErrorCodes INTEGER : : = {My-Operations.TErrors.TerrorCode}

22