Rev 7983 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7983 | Rev 8859 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | Copyright 2016, 2018 Anton Krotov |
2 | Copyright 2016, 2018, 2021 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 89... | Line 89... | ||
89 | 89 | ||
90 | RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0 |
90 | RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0 |
Line -... | Line 91... | ||
- | 91 | END GetFileInfo; |
|
- | 92 | ||
- | 93 | ||
- | 94 | PROCEDURE FileSize* (FName: ARRAY OF CHAR): INTEGER; |
|
- | 95 | VAR |
|
- | 96 | Info: rFD; |
|
- | 97 | res: INTEGER; |
|
- | 98 | BEGIN |
|
- | 99 | IF GetFileInfo(FName, Info) THEN |
|
- | 100 | res := Info.size |
|
- | 101 | ELSE |
|
- | 102 | res := -1 |
|
- | 103 | END |
|
- | 104 | RETURN res |
|
91 | END GetFileInfo; |
105 | END FileSize; |
92 | 106 | ||
93 | 107 | ||
94 | PROCEDURE Exists* (FName: ARRAY OF CHAR): BOOLEAN; |
108 | PROCEDURE Exists* (FName: ARRAY OF CHAR): BOOLEAN; |
95 | VAR |
109 | VAR |