Subversion Repositories Kolibri OS

Rev

Rev 9448 | Rev 9522 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9448 Rev 9452
Line 36... Line 36...
36 
        modified*, saved*, temp, label*: BOOLEAN;
 36 
        modified*, saved*, temp, label*: BOOLEAN;
37 
        cin*, cout*, pos*: INTEGER
 37 
        cin*, cout*, pos*: INTEGER
38 
    END;
 38 
    END;
Line 39... Line 39...
39 
 
 39 
 
40 
    PmovInt = PROCEDURE (VAR v: INTEGER; x: INTEGER);
 40 
    PmovInt = PROCEDURE (VAR v: INTEGER; x: INTEGER);
41 
    PmovBool = PROCEDURE (VAR v: BOOLEAN; x: BOOLEAN);
 41 
    PmovBool = PROCEDURE (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
Line 42... Line 42...
42 
    PmovPtr = PROCEDURE (VAR v: List.tItem; x: List.tItem);
 42 
    PmovPtr = PROCEDURE (VAR v: List.tItem; x: List.tItem);
43 
 
 43 
 
Line 61... Line 61...
61 
BEGIN
 61 
BEGIN
62 
    _movInt(v, x)
 62 
    _movInt(v, x)
63 
END movInt;
 63 
END movInt;
Line 64... Line 64...
64 
 
 64 
 
65 
 
 65 
 
66 
PROCEDURE movBool (VAR v: BOOLEAN; x: BOOLEAN);
 66 
PROCEDURE movBool (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
67 
BEGIN
 67 
BEGIN
Line 68... Line 68...
68 
    _movBool(v, x)
 68 
    _movBool(line, v, x)
69 
END movBool;
 69 
END movBool;
70 
 
 70 
 
71 
 
 71 
 
Line 72... Line 72...
72 
PROCEDURE movBool2 (VAR v: BOOLEAN; x: BOOLEAN);
 72 
PROCEDURE movBool2 (line: tLine; VAR v: BOOLEAN; x: BOOLEAN);
73 
BEGIN
 73 
BEGIN
Line 144... Line 144...
144 
    END;
 144 
    END;
145 
    line.temp := temp;
 145 
    line.temp := temp;
146 
    line.modified := FALSE;
 146 
    line.modified := FALSE;
147 
    line.saved := FALSE;
 147 
    line.saved := FALSE;
148 
    IF ~temp THEN
 148 
    IF ~temp THEN
149 
        movBool(line.modified, FALSE);
 149 
        movBool(line, line.modified, FALSE);
150 
        movBool(line.saved, FALSE)
 150 
        movBool(line, line.saved, FALSE)
151 
    END;
 151 
    END;
152 
    line.cin := 0;
 152 
    line.cin := 0;
153 
    line.cout := 0;
 153 
    line.cout := 0;
154 
    line.pos := 0
 154 
    line.pos := 0
155 
    RETURN line
 155 
    RETURN line
Line 192... Line 192...
192 
 
 192 
 
193 
 
 193 
 
194 
PROCEDURE save* (line: tLine);
 194 
PROCEDURE save* (line: tLine);
195 
BEGIN
 195 
BEGIN
196 
    IF ~line.temp THEN
 196 
    IF ~line.temp THEN
197 
        movBool2(line.saved, TRUE);
 197 
        movBool2(line, line.saved, TRUE);
198 
        movBool2(line.modified, FALSE)
 198 
        movBool2(line, line.modified, FALSE)
199 
    END;
 199 
    END;
200 
    line.modified := FALSE;
 200 
    line.modified := FALSE;
Line 382... Line 382...
382 
 
 382 
 
383 
 
 383 
 
384 
PROCEDURE modify* (line: tLine);
 384 
PROCEDURE modify* (line: tLine);
385 
BEGIN
 385 
BEGIN
386 
    IF ~line.temp THEN
 386 
    IF ~line.temp THEN
387 
        movBool(line.modified, TRUE);
 387 
        movBool(line, line.modified, TRUE);
388 
        movBool(line.saved, FALSE)
 388 
        movBool(line, line.saved, FALSE)
389 
    END;
 389 
    END;
390 
    line.modified := TRUE;
 390 
    line.modified := TRUE;
391 
    line.saved := FALSE;
 391 
    line.saved := FALSE;