development/compilers/freepascal/rtl/go32v1/filutil.inc

   1 {
   2     $Id$
   3     This file is part of the Free Pascal run time library.
   4     Copyright (c) 1999-2000 by the Free Pascal development team
   5
   6     File utility calls
   7
   8     See the file COPYING.FPC, included in this distribution,
   9     for details about the copyright.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  **********************************************************************}
  16
  17
  18 Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
  19
  20 Begin
  21   //!! Needs implementing
  22 end;
  23
  24
  25 Function FileCreate (Const FileName : String) : Longint;
  26
  27 begin
  28   //!! Needs implementing
  29 end;
  30
  31
  32 Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
  33
  34 begin
  35   //!! Needs implementing
  36 end;
  37
  38
  39 Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint;
  40
  41 begin
  42   //!! Needs implementing
  43 end;
  44
  45
  46 Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
  47
  48 begin
  49   //!! Needs implementing
  50 end;
  51
  52
  53 Procedure FileClose (Handle : Longint);
  54
  55 begin
  56   //!! Needs implementing
  57 end;
  58
  59
  60 Function FileAge (Const FileName : String): Longint;
  61
  62 begin
  63   //!! Needs implementing
  64 end;
  65
  66
  67 Function FileExists (Const FileName : String) : Boolean;
  68
  69 begin
  70   //!! Needs implementing
  71 end;
  72
  73
  74 Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
  75
  76 begin
  77   //!! Needs implementing
  78 end;
  79
  80
  81 Function FindNext (Var Rslt : TSearchRec) : Longint;
  82
  83 begin
  84   //!! Needs implementing
  85 end;
  86
  87
  88 Procedure FindClose (Var F : TSearchrec);
  89
  90 begin
  91   //!! Needs implementing
  92 end;
  93
  94
  95 Function FileTruncate (Handle,Size: Longint) : boolean;
  96 begin
  97   //!! Needs implementing
  98 end;
  99
 100
 101 Function FileGetDate (Handle : Longint) : Longint;
 102
 103 begin
 104   //!! Needs implementing
 105 end;
 106
 107
 108 Function FileSetDate (Handle,Age : Longint) : Longint;
 109
 110 begin
 111   //!! Needs implementing
 112 end;
 113
 114
 115 Function FileGetAttr (Const FileName : String) : Longint;
 116
 117 begin
 118   //!! Needs implementing
 119 end;
 120
 121
 122 Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
 123
 124 begin
 125   //!! Needs implementing
 126 end;
 127
 128
 129 Function DeleteFile (Const FileName : String) : Boolean;
 130
 131 begin
 132   //!! Needs implementing
 133 end;
 134
 135
 136 Function RenameFile (Const OldName, NewName : String) : Boolean;
 137
 138 begin
 139   //!! Needs implementing
 140 end;
 141
 142
 143 Function FileSearch (Const Name, DirList : String) : String;
 144
 145 begin
 146   //!! Needs implementing
 147 end;
 148
 149
 150 Procedure GetLocalTime(var SystemTime: TSystemTime);
 151 begin
 152 end ;
 153
 154
 155 { ---------------------------------------------------------------------
 156     Internationalization settings
 157   ---------------------------------------------------------------------}
 158
 159 procedure InitAnsi;
 160 begin
 161 end;
 162
 163 Procedure InitInternational;
 164 begin
 165 end;
 166
 167
 168 {
 169   $Log$
 170   Revision 1.1  2002/02/19 08:25:03  sasu
 171   Initial revision
 172
 173   Revision 1.1  2000/07/13 06:30:34  michael
 174   + Initial import
 175
 176   Revision 1.5  2000/06/04 14:22:26  hajny
 177     * FileSeek parameter name changed
 178
 179   Revision 1.4  2000/02/17 22:16:05  sg
 180   * Changed the second argument of FileWrite from "var buffer" to
 181     "const buffer", like in Delphi.
 182
 183   Revision 1.3  2000/01/07 16:41:30  daniel
 184     * copyright 2000
 185
 186   Revision 1.2  1999/04/08 12:22:54  peter
 187     * removed os.inc
 188
 189 }