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 
    Copyright 2016, 2018 Anton Krotov
 2 
    Copyright 2016, 2018 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
Line 37... Line 37...
37 
 
 37 
 
38 
PROCEDURE Set*(F: File.FS; VAR x: SET): BOOLEAN;
 38 
PROCEDURE Set*(F: File.FS; VAR x: SET): BOOLEAN;
39 
  RETURN File.Read(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
 39 
  RETURN File.Read(F, sys.ADR(x), sys.SIZE(SET)) = sys.SIZE(SET)
Line 40... Line 40...
40 
END Set;
 40 
END Set;
41 
 
 41 
 
42 
PROCEDURE Card16*(F: File.FS; VAR x: sys.CARD16): BOOLEAN;
 42 
PROCEDURE WChar*(F: File.FS; VAR x: WCHAR): BOOLEAN;
Line 43... Line 43...
43 
  RETURN File.Read(F, sys.ADR(x), sys.SIZE(sys.CARD16)) = sys.SIZE(sys.CARD16)
 43 
  RETURN File.Read(F, sys.ADR(x), sys.SIZE(WCHAR)) = sys.SIZE(WCHAR)
44 
END Card16;
 44 
END WChar;