vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 04:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

OakFiles fixed

Browse source 
Former-commit-id: 0358bfac55
This commit is contained in:
Norayr Chilingarian 2013-10-21 20:27:54 +04:00
parent d8d1c29e6f
commit de1f1076f2
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lib/v4/OakFiles.Mod
View file

@ -239,7 +239,10 @@ MODULE OakFiles; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix fil
BEGIN BEGIN
IF name # "" THEN IF name # "" THEN
IF HasDir(name) THEN dir := ""; COPY(name, path) IF HasDir(name) THEN dir := ""; COPY(name, path)
ELSE pos := 0; (*ScanPath(pos, dir);*) MakeFileName(dir, name, path); (*ScanPath(pos, dir)*) ELSE
pos := 0;
COPY(name, path); (* -- noch *)
(*ScanPath(pos, dir);*) (*MakeFileName(dir, name, path);*) (*ScanPath(pos, dir)*)
END ; END ;
LOOP LOOP
fd := Unix.Open(path, Unix.rdwr, {}); done := fd >= 0; errno := Unix.errno(); fd := Unix.Open(path, Unix.rdwr, {}); done := fd >= 0; errno := Unix.errno();
@ -270,7 +273,8 @@ END ;
RETURN f RETURN f
END END
ELSIF dir = "" THEN RETURN NIL ELSIF dir = "" THEN RETURN NIL
ELSE MakeFileName(dir, name, path); (*ScanPath(pos, dir)*) ELSE (*MakeFileName(dir, name, path);*) (*ScanPath(pos, dir)*)
RETURN NIL
END END
END END
ELSE RETURN NIL ELSE RETURN NIL