Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9903 → Rev 9904

/programs/develop/cedit/SRC/Lines.ob07
1,5 → 1,5
(*
Copyright 2021, 2022 Anton Krotov
Copyright 2021-2023 Anton Krotov
 
This file is part of CEdit.
 
39,7 → 39,7
END;
 
PmovInt = PROCEDURE (VAR v: INTEGER; x: INTEGER);
PmovBool = PROCEDURE (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
PmovBool = PROCEDURE (save: BOOLEAN; VAR v1: BOOLEAN; x1: BOOLEAN; VAR v2: BOOLEAN; x2: BOOLEAN);
PmovPtr = PROCEDURE (VAR v: List.tItem; x: List.tItem);
 
PTypedPtr = PROCEDURE (p: List.tItem);
57,7 → 57,7
VAR
 
_movInt: PmovInt;
_movBool, _movBool2: PmovBool;
_movBool: PmovBool;
_movPtr: PmovPtr;
_typedPtr: PTypedPtr;
_untypedPtr: PUntypedPtr;
123,18 → 123,6
END movInt;
 
 
PROCEDURE movBool (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
BEGIN
_movBool(line, v, x)
END movBool;
 
 
PROCEDURE movBool2 (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
BEGIN
_movBool2(line, v, x)
END movBool2;
 
 
PROCEDURE movPtr (VAR v: List.tItem; x: List.tItem);
BEGIN
_movPtr(v, x)
206,8 → 194,7
line.modified := FALSE;
line.saved := FALSE;
IF ~temp THEN
movBool(line, line.modified, FALSE);
movBool(line, line.saved, FALSE)
_movBool(FALSE, line.modified, FALSE, line.saved, FALSE)
END;
line.cin := 0;
line.cout := 0;
272,8 → 259,7
PROCEDURE save* (line: tLine);
BEGIN
IF ~line.temp THEN
movBool2(line, line.saved, TRUE);
movBool2(line, line.modified, FALSE)
_movBool(TRUE, line.modified, FALSE, line.saved, TRUE)
END;
line.modified := FALSE;
line.saved := TRUE
451,8 → 437,7
PROCEDURE modify* (line: tLine);
BEGIN
IF ~line.temp THEN
movBool(line, line.modified, TRUE);
movBool(line, line.saved, FALSE)
_movBool(FALSE, line.modified, TRUE, line.saved, FALSE)
END;
line.modified := TRUE;
line.saved := FALSE;
532,12 → 517,11
END convert;
 
 
PROCEDURE init* (movInt: PmovInt; movPtr: PmovPtr; movBool, movBool2: PmovBool; typedPtr: PTypedPtr; untypedPtr: PUntypedPtr);
PROCEDURE init* (movInt: PmovInt; movPtr: PmovPtr; movBool: PmovBool; typedPtr: PTypedPtr; untypedPtr: PUntypedPtr);
BEGIN
_movInt := movInt;
_movPtr := movPtr;
_movBool := movBool;
_movBool2 := movBool2;
_typedPtr := typedPtr;
_untypedPtr := untypedPtr;
END init;