OberonCore

PROCEDURE Do*(IN Путь:ARRAY OF CHAR);

Профайлер.Do("C:\Documents and Settings\5097\Рабочий стол\GAME.PAS");

PROCEDURE Do*(AFileName:ARRAY OF CHAR);
VAR c:CHAR;i:INTEGER;
BEGIN
  StdLog.Clear;
 TabCount:=0;
 IF ~connect(AFileName) THEN
  StdLog.String("Неудача");
  RETURN;
 END;
...

(*Открывает файл и готовит к работе*)
PROCEDURE connect(a:ARRAY OF CHAR):BOOLEAN;
VAR ask:BOOLEAN; 
  loc:Files.Locator;
  FileName:Files.Name;  conv:Converters.Converter;
BEGIN
 conv:=NIL;
 IF a='' THEN
  loc:=NIL;
  obj.v:=Views.Old(TRUE,loc,FileName,conv);
 ELSE
  loc:=Files.dir.This(a$);
  FileName:=a$;
  obj.v:=Views.Old(FALSE,loc,FileName,conv);
 END;

 IF (obj.v#NIL)&(obj.v IS TextViews.View) THEN
  obj.m:=obj.v(TextViews.View).ThisModel();
  scan.ConnectTo(obj.m);
  scan.type:=TextMappers.string;
  RETURN TRUE;
 ELSE
  IF loc.res#0 THEN
   StdLog.String("Неверный локатор");StdLog.Tab;
   StdLog.Int(loc.res);StdLog.Ln; END;
  RETURN FALSE;
 END;
END connect;

  loc:=Files.dir.This(a$);
  FileName:=a$;
  obj.v:=Views.Old(FALSE,loc,FileName,conv);