Subversion Repositories Kolibri OS

Rev

Rev 9896 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9896 Rev 9898
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2019 Anton Krotov
 2 
    Copyright 2016, 2019, 2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 250... Line 250...
250 
    res := -1
 250 
    res := -1
251 
  END
 251 
  END
252 
  RETURN res = 0
 252 
  RETURN res = 0
253 
END DeleteDir;
 253 
END DeleteDir;
Line -... Line 254...
- 
 
 254 
 
- 
 
 255 
 
- 
 
 256 
PROCEDURE ReadChar* (F: FS; VAR x: CHAR): BOOLEAN;
- 
 
 257 
	RETURN Read(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
- 
 
 258 
END ReadChar;
- 
 
 259 
 
- 
 
 260 
 
- 
 
 261 
PROCEDURE ReadInt* (F: FS; VAR x: INTEGER): BOOLEAN;
- 
 
 262 
	RETURN Read(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
- 
 
 263 
END ReadInt;
- 
 
 264 
 
- 
 
 265 
 
- 
 
 266 
PROCEDURE ReadBool* (F: FS; VAR x: BOOLEAN): BOOLEAN;
- 
 
 267 
	RETURN Read(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
- 
 
 268 
END ReadBool;
- 
 
 269 
 
- 
 
 270 
 
- 
 
 271 
PROCEDURE WriteChar*(F: FS; x: CHAR): BOOLEAN;
- 
 
 272 
	RETURN Write(F, sys.ADR(x), sys.SIZE(CHAR)) = sys.SIZE(CHAR)
- 
 
 273 
END WriteChar;
- 
 
 274 
 
- 
 
 275 
 
- 
 
 276 
PROCEDURE WriteInt*(F: FS; x: INTEGER): BOOLEAN;
- 
 
 277 
	RETURN Write(F, sys.ADR(x), sys.SIZE(INTEGER)) = sys.SIZE(INTEGER)
- 
 
 278 
END WriteInt;
- 
 
 279 
 
- 
 
 280 
 
- 
 
 281 
PROCEDURE WriteBool*(F: FS; x: BOOLEAN): BOOLEAN;
- 
 
 282 
	RETURN Write(F, sys.ADR(x), sys.SIZE(BOOLEAN)) = sys.SIZE(BOOLEAN)
- 
 
 283 
END WriteBool;
- 
 
 284 
 
254 
 
 285