Subversion Repositories Kolibri OS

Rev

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

Rev 7597 Rev 7696
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-2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 40... Line 40...
40 
 
 40 
 
Line 41... Line 41...
41 
    OFSTRUCT = RECORD
 41 
    OFSTRUCT = RECORD
42 
 
 42 
 
43 
        cBytes:         CHAR;
 43 
        cBytes:         CHAR;
44 
        fFixedDisk:     CHAR;
 44 
        fFixedDisk:     CHAR;
45 
        nErrCode:       SYSTEM.CARD16;
 45 
        nErrCode:       WCHAR;
46 
        Reserved1:      SYSTEM.CARD16;
 46 
        Reserved1:      WCHAR;
Line 47... Line 47...
47 
        Reserved2:      SYSTEM.CARD16;
 47 
        Reserved2:      WCHAR;
Line 48... Line 48...
48 
        szPathName:     ARRAY OFS_MAXPATHNAME OF CHAR
 48 
        szPathName:     ARRAY OFS_MAXPATHNAME OF CHAR
Line 209... Line 209...
209 
    END;
 209 
    END;
210 
    s[j] := 0X
 210 
    s[j] := 0X
211 
END GetArg;
 211 
END GetArg;
Line 212... Line 212...
212 
 
 212 
 
213 
 
 213 
 
214 
PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
 214 
PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF CHAR; bytes: INTEGER): INTEGER;
Line 215... Line 215...
215 
VAR
 215 
VAR
216 
    res, n: INTEGER;
 216 
    res, n: INTEGER;