| with Interfaces; | |
| with Interfaces.C; | |
| use Interfaces.C; | |
| package FILO.FS is | |
| type File_Type is (Dir, Regular, Link); | |
| type File_Length is range 0 .. int'Last; -- Should be higher, fix FILO first | |
| subtype File_Offset is File_Length; | |
| private | |
| function Part_Len return Partition_Length; | |
| function File_Max return File_Length; | |
| procedure Set_File_Max (Len : File_Length); | |
| function File_Pos return File_Offset; | |
| procedure Set_File_Pos (Off : File_Offset); | |
| end FILO.FS; |