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 |