Subversion Repositories Kolibri OS

Rev

Rev 8728 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8728 Rev 9073
Line 263... Line 263...
263 
 
 263 
 
264 
    RETURN F
 264 
    RETURN F
Line -... Line 265...
- 
 
 265 
END Create;
- 
 
 266 
 
- 
 
 267 
 
- 
 
 268 
PROCEDURE Copy* (From, To: ARRAY OF CHAR): BOOLEAN;
- 
 
 269 
VAR
- 
 
 270 
    buf, size: INTEGER;
- 
 
 271 
    outFile: FS;
- 
 
 272 
    res: BOOLEAN;
- 
 
 273 
BEGIN
- 
 
 274 
    res := FALSE;
- 
 
 275 
    size := FileSize(From);
- 
 
 276 
    IF size > 0 THEN
- 
 
 277 
        buf := Load(From, size)
- 
 
 278 
    ELSE
- 
 
 279 
        buf := -1;
- 
 
 280 
        size := 0
- 
 
 281 
    END;
- 
 
 282 
    IF buf # 0 THEN
- 
 
 283 
        outFile := Create(To);
- 
 
 284 
        IF outFile # NIL THEN
- 
 
 285 
            IF size # 0 THEN
- 
 
 286 
                res := Write(outFile, buf, size) = size
- 
 
 287 
            END;
- 
 
 288 
            Close(outFile)
- 
 
 289 
        END;
- 
 
 290 
        IF size # 0 THEN
- 
 
 291 
            buf := KOSAPI.free(buf)
- 
 
 292 
        END
- 
 
 293 
    END
- 
 
 294 
    RETURN res
265 
END Create;
 295 
END Copy;
266 
 
 296 
 
267 
 
 297 
 
268 
PROCEDURE DirExists* (FName: ARRAY OF CHAR): BOOLEAN;
 298 
PROCEDURE DirExists* (FName: ARRAY OF CHAR): BOOLEAN;
269 
VAR
 299 
VAR