Subversion Repositories Kolibri OS

Rev

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

Rev 7983 Rev 8097
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018-2019, Anton Krotov
 4 
    Copyright (c) 2018-2020, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 26... Line 26...
26 
        file:         FILES.FILE;
 26 
        file:         FILES.FILE;
27 
        utf8:         BOOLEAN;
 27 
        utf8:         BOOLEAN;
28 
        CR:           BOOLEAN;
 28 
        CR:           BOOLEAN;
Line 29... Line 29...
29 
 
 29 
 
- 
 
 30 
        line*, col*:  INTEGER;
- 
 
 31 
        ifc*:         INTEGER;
30 
        line*, col*:  INTEGER;
 32 
        elsec*:       INTEGER;
31 
        eof*:         BOOLEAN;
 33 
        eof*:         BOOLEAN;
- 
 
 34 
        eol*:         BOOLEAN;
32 
        eol*:         BOOLEAN;
 35 
        skip*:        BOOLEAN;
- 
 
 36 
        peak*:        CHAR;
- 
 
 37 
        _skip*,
- 
 
 38 
        _elsif*,
- 
 
 39 
        _else*:       ARRAY 100 OF BOOLEAN;
Line 33... Line 40...
33 
        peak*:        CHAR
 40 
        fname*:       ARRAY 2048 OF CHAR
Line 34... Line 41...
34 
 
 41 
 
Line 159... Line 166...
159 
        text.CR   := FALSE;
 166 
        text.CR   := FALSE;
160 
        text.line := 1;
 167 
        text.line := 1;
161 
        text.col  := 1;
 168 
        text.col  := 1;
162 
        text.eof  := FALSE;
 169 
        text.eof  := FALSE;
163 
        text.eol  := FALSE;
 170 
        text.eol  := FALSE;
- 
 
 171 
        text.skip := FALSE;
- 
 
 172 
        text.ifc  := 0;
- 
 
 173 
        text.elsec := 0;
- 
 
 174 
        text._skip[0] := FALSE;
164 
        text.peak := 0X;
 175 
        text.peak := 0X;
165 
        text.file := FILES.open(name);
 176 
        text.file := FILES.open(name);
- 
 
 177 
        COPY(name, text.fname);
166 
        IF text.file # NIL THEN
 178 
        IF text.file # NIL THEN
167 
            load(text);
 179 
            load(text);
168 
            init(text)
 180 
            init(text)
169 
        ELSE
 181 
        ELSE
170 
            close(text)
 182 
            close(text)