OberonCore

MODULE PrivAction;

   IMPORT Services, Log;
   
   TYPE
      Action = POINTER TO RECORD(Services.Action)  (* определяем реализацию отложенного действия, см. документацию к модулю Services *)
         i: INTEGER; (* нужные для чего-то поля *)
         stop: BOOLEAN;
      END;
   
   VAR
      rec: RECORD
         a: Action; (* глобальный идентификатор, в принципе - необязательно хранить идентификатор, но имеет смысл, если данные для обработки будут поступать из-вне *)
      END;   
      
   PROCEDURE (a: Action) Do; (* эта процедура будет выполняться через обозначенный промежуток времени *)
   BEGIN
      Log.Int(a.i);
      INC(a.i);
      IF ~a.stop THEN Services.DoLater(a, Services.Ticks()+1000) END; (* если не stop, то назначаем ещё одно выполнение через секунду от текущего момента *)
   END Do;
   
   PROCEDURE Stop*;
   BEGIN
      IF rec.a#NIL THEN rec.a.stop:=TRUE END; (* останавливаем действие, метод 1 *)
   END Stop;
   
   PROCEDURE Cancel*;
   BEGIN
      IF rec.a#NIL THEN Services.RemoveAction(rec.a) END; (* останавливаем действие, метод 2, при этом отменяется назначенное выполнение *)
   END Cancel;
   
   PROCEDURE Start*;
   BEGIN
      NEW(rec.a); rec.a.i:=0; rec.a.stop:=FALSE; (* создаём новый экземпляр *)
      Services.DoLater(rec.a, Services.Ticks()+1000); (* назначаем выполнение через секунду от текущего момента времени *)
   END Start;

BEGIN

CLOSE
   Cancel; (* останавливаем при выгрузке модуля *)
END PrivAction.

(!)PrivAction.Start

PROCEDURE (v: View)  Restore (f: Views.Frame; l, t, r, b: INTEGER);
   ...
END Restore;
   
PROCEDURE Main*;
   VAR
      v: View;
   BEGIN
   NEW(v); Views.Deposit(v);
END;

MODULE Graphics;
   Data : POINTER TO ARRAY OF INTEGER;

   PROCEDURE Restore;
   BEGIN
      NEW(Data,1); Data[0] := 0;
      DataModel.AddValue(Data);
   END Restore;
END Graphics.

MODULE  DataModel;
   
      
   PROCEDURE AddValue* (OUT DataArray: POINTER TO ARRAY OF INTEGER);
   VAR
      old, new: INTEGER;
   BEGIN
      
      old := DataArray[LEN(DataArray)-1]; [b](*Выхожу за рамки массива здесь*)[/b]
      new := old + Rand.Int(21)-10;
      NEW(DataArray,1);
      DataArray[LEN(DataArray)-1] := -new - 2*old;
      
   END AddValue;
   

END DataModel.

MODULE M1;

TYPE

IntArr* = POINTER TO ARRAY OF INTEGER;

END M1.

MODULE M2;

PROCEDURE AddItem*(VAR arr: M1.IntArr; x: INTEGER);
VAR i, len: INTEGER; new: M1.IntArr;
BEGIN
i:=0;
len:=LEN(arr); NEW(new, len+1);
WHILE i<len DO
new[i]:=arr[i];
INC(i);
END;
new[i]:=x;
arr:=new;
END AddItem;

END M2.