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) 2019, Anton Krotov
4
    Copyright (c) 2019, Anton Krotov
5
    All rights reserved.
5
    All rights reserved.
Line 66... Line 66...
66
    END;
66
    END;
67
    path[n + 1] := 0X
67
    path[n + 1] := 0X
68
END GetCurrentDirectory;
68
END GetCurrentDirectory;
Line 69... Line -...
69
 
-
 
70
 
-
 
71
PROCEDURE ReadFile (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
-
 
72
    RETURN API.fread(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
-
 
73
END ReadFile;
-
 
74
 
-
 
75
 
-
 
76
PROCEDURE WriteFile (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
-
 
77
    RETURN API.fwrite(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
-
 
78
END WriteFile;
-
 
79
 
69
 
80
 
70
 
81
PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
71
PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF CHAR; bytes: INTEGER): INTEGER;
Line 82... Line 72...
82
VAR
72
VAR
83
    res: INTEGER;
73
    res: INTEGER;
84
 
74
 
85
BEGIN
75
BEGIN
86
    res := ReadFile(F, Buffer, bytes);
76
    res := API.fread(SYSTEM.ADR(Buffer[0]), 1, bytes, F);
Line 87... Line 77...
87
    IF res <= 0 THEN
77
    IF res <= 0 THEN
Line 95... Line 85...
95
PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
85
PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
96
VAR
86
VAR
97
    res: INTEGER;
87
    res: INTEGER;
Line 98... Line 88...
98
 
88
 
99
BEGIN
89
BEGIN
100
    res := WriteFile(F, Buffer, bytes);
90
    res := API.fwrite(SYSTEM.ADR(Buffer[0]), 1, bytes, F);
101
    IF res <= 0 THEN
91
    IF res <= 0 THEN
102
        res := -1
92
        res := -1
Line 103... Line 93...
103
    END
93
    END