четверг, 10 декабря 2015 г.

#1152. ToDo. Заменить в Parent, Target, Name, Children etc %% на FindMember

Заменить в Parent, Target, Name, Children etc %% на FindMember. А также привести их все к "единому знаменателю". Ввести слово GetElemMember. Типа:
TtfwWord elem_func Children
 [empty] 'Children' Self GetElemMember >>> Result
; // Children

TtfwWord elem_func Target
 nil 'Target' Self GetElemMember >>> Result
; // Target

STRING elem_func Name
 if ( Self IsString ) then
 begin
  Self >>> Result
 end
 else
 begin
  '' 'Name' Self GetElemMember >>> Result
 end
; // Name


Комментариев нет:

Отправить комментарий