* wrong file commited by Michael corrected

rtl/os2/filutil.inc

@@ -17,221 +17,136 @@
 
 Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
 
-Var LinuxFlags : longint;
-    
-BEGIN
-  LinuxFlags:=0;
-  Case (Mode and 3) of
-    0 : LinuxFlags:=LinuxFlags or Open_RdOnly;
-    1 : LinuxFlags:=LinuxFlags or Open_WrOnly;
-    2 : LinuxFlags:=LinuxFlags or Open_RdWr;
-  end;
-  FileOpen:=fdOpen (FileName,LinuxFlags);
-  //!! We need to set locking based on Mode !! 
+Begin
+  //!! Needs implementing    
 end;
 
 
 Function FileCreate (Const FileName : String) : Longint;
 
 begin
-  FileCreate:=FileOpen (FileName,Open_RdWr or Open_Creat);
+  //!! Needs implementing    
 end;
 
 
 Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
 
 begin
-  FileRead:=fdRead (Handle,Buffer,Count);
+  //!! Needs implementing    
 end;
 
 
 Function FileWrite (Handle : Longint; Var Buffer; Count : Longint) : Longint;
 
 begin
-  FileWrite:=fdWrite (Handle,Buffer,Count);
+  //!! Needs implementing    
 end;
 
 
 Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
 
 begin
-  FileSeek:=fdSeek (Handle,Offset,Origin);
+  //!! Needs implementing    
 end;
 
 
 Procedure FileClose (Handle : Longint);
 
 begin
-  fdclose(Handle);
+  //!! Needs implementing    
 end;
 
 
 Function FileAge (Const FileName : String): Longint;
 
-Var Info : Stat;
-
 begin
-  If not fstat (FileName,Info) then
-    exit(-1)
-  else
-    Exit (Info.mtime);
+  //!! Needs implementing    
 end;
 
 
 Function FileExists (Const FileName : String) : Boolean;
 
-Var Info : Stat;
-
-begin
-  FileExists:=fstat(filename,Info);
-end;
-
-Function LinuxToWinAttr (FN : Char; Const Info : Stat) : Longint;
-
 begin
-  Result:=0;  
-  If FN='.' then 
-    Result:=Result or faHidden;
-  If (Info.Mode and STAT_IFDIR)=STAT_IFDIR then 
-    Result:=Result or faDirectory;
-  If (Info.Mode and STAT_IWUSR)=0 Then 
-     Result:=Result or faReadOnly;
+  //!! Needs implementing    
 end;
 
-{
- GlobToSearch takes a glob entry, stats the file.
- The glob entry is removed. 
- If FileAttributes match, the entry is reused
-}
-
-Function GlobToTSearchRec (Info : TSearchRec) : Boolean;
-
-Var SInfo : Stat;
-    p     : Pglob;
-    TAttr : Longint;
-    
-begin
-  P:=pglob(Info.FindHandle);
-  Result:=Fstat(p^.name,SInfo);
-  Info.FindHandle:=Longint(P^.Next);
-  P^.Next:=Nil;
-  GlobFree(P);
-  If Result then
-    begin
-    Info.Attr:=LinuxToWinAttr(p^.name[0],SInfo);
-    Result:=(Info.ExcludeAttr and TAttr)<>0 ;
-    If Result Then
-       With Info do
-         begin
-         Attr:=Info.Attr;
-         Name:=strpas(p^.name);
-         Time:=Sinfo.mtime;
-         Size:=Sinfo.Size;
-         end;
-    end;
-end;
-
-Function DoFind(Var Rslt : TSearchRec) : Longint;
-
-begin
-  If Rslt.FindHandle<>0 then
-    While (Rslt.FindHandle<>0) and GlobToTSearchRec(Rslt) do;
-  If Rslt.FindHandle=0 Then 
-    Result:=-1
-  else
-    Result:=0;
-end;
-
-
 
 Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
 
 begin
-  Rslt.ExcludeAttr:=Attr; //!! Not correct !!
-  Rslt.FindHandle:=Longint(Glob(Path));
-  Result:=DoFind (Rslt);
+  //!! Needs implementing    
 end;
 
 
 Function FindNext (Var Rslt : TSearchRec) : Longint;
 
 begin
-  Result:=DoFind (Rslt);
+  //!! Needs implementing    
 end;
 
 
 Procedure FindClose (Var F : TSearchrec);
 
 begin
-  GlobFree (PGlob(F.FindHandle));
+  //!! Needs implementing    
 end;
 
 
 Function FileGetDate (Handle : Longint) : Longint;
 
-Var Info : Stat;
-
 begin
-  If Not(FStat(Handle,Info)) then
-    Result:=-1
-  else
-    Result:=Info.Mtime;
+  //!! Needs implementing    
 end;
 
 
 Function FileSetDate (Handle,Age : Longint) : Longint;
 
 begin
-  // Impossible under Linux from FileHandle !!
-  FileSetDate:=-1;
+  //!! Needs implementing    
 end;
 
 
 Function FileGetAttr (Const FileName : String) : Longint;
 
-Var Info : Stat;
-
 begin
-  If Not FStat (FileName,Info) then
-    Result:=-1
-  Else
-    Result:=LinuxToWinAttr(FileName[1],Info);    
+  //!! Needs implementing    
 end;
 
 
 Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
 
 begin
-  //!! Still Needs doing
+  //!! Needs implementing    
 end;
 
 
 Function DeleteFile (Const FileName : String) : Boolean;
 
 begin
-  Result:=UnLink (FileName);
+  //!! Needs implementing    
 end;
 
 
 Function RenameFile (Const OldName, NewName : String) : Boolean;
 
-Var P1,P2 : String;
-     
 begin
-  RenameFile:=Linux.Rename(OldNAme,NewName);
+  //!! Needs implementing    
 end;
 
 
 Function FileSearch (Const Name, DirList : String) : String;
 
 begin
-  FileSearch:=Linux.FSearch(Name,Dirlist);
+  //!! Needs implementing    
 end;
 
 
 {
   $Log$
-  Revision 1.1  1998-10-11 12:21:01  michael
+  Revision 1.2  1998-10-12 08:35:22  pierre
+   * wrong file commited by Michael corrected
+
+  Revision 1.1  1998/10/11 12:21:01  michael
   Added file calls. Implemented for linux only
 
 }