Сделать IMMEDIATE class-method и method

[Alex Lulin]

Сделать IMMEDIATE class-method и method.

Пример:

FieldOffset class-method FieldOffset // - этод метод можно сделать КОМПИЛИРУЕМЫМ Literal IN aFieldName

%SUMMARY 'Вычисляет смещение поля класса' ; STRING VAR l_FieldName aFieldName |N >>> l_FieldName l_FieldName MakeFieldOffsetName >>> l_FieldName

TtfwWord VAR l_FieldVAR Self %% l_FieldName >>> l_FieldVAR

l_FieldVAR IsNil ?FAIL [ 'Поле ' l_FieldName ' на классе ' Self .ClassName ' не определено' ] l_FieldVAR DO >>> Result

class-method-end // FieldOffset