четверг, 30 января 2014 г.

О моих скриптах. Ещё один "финт ушами"

У меня есть "эмуляция вызова классовых методов".

Выглядит примерно так:

CLASS SomeClass
 VAR X
 X := 10
 PROCEDURE INC_X
  X := X + 1
 ; // INC_X
; // SomeClass

SomeClass VAR Instance1
Instance1 .INC_X
Instance1 .X WriteLn
// - будет напечатано 11

SomeClass VAR Instance2
Instance2 .X := 20
Instance2 .INC_X
Instance2 .X WriteLn
// - будет напечатано 21

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

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