Rev 619 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
616 | bw | 1 | unit sysutils; |
2 | |||
3 | {$i _defines.inc} |
||
4 | |||
5 | interface |
||
6 | |||
7 | {$mode objfpc} |
||
8 | { force ansistrings } |
||
9 | {$h+} |
||
10 | |||
11 | {$DEFINE HAS_SLEEP} |
||
12 | {-$DEFINE HAS_OSERROR} |
||
13 | {-$DEFINE HAS_OSCONFIG} |
||
14 | {-$DEFINE HAS_CREATEGUID} |
||
15 | |||
16 | |||
17 | { Include platform independent interface part } |
||
18 | {$i sysutilh.inc} |
||
19 | |||
20 | implementation |
||
21 | |||
22 | |||
23 | uses |
||
24 | SysConst; |
||
25 | |||
26 | |||
27 | {-$define HASCREATEGUID} |
||
28 | {-$define HASEXPANDUNCFILENAME} |
||
29 | {-$DEFINE FPC_NOGENERICANSIROUTINES} |
||
30 | {-$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *) |
||
31 | {-$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *) |
||
32 | |||
33 | { Include platform independent implementation part } |
||
34 | {$i sysutils.inc} |
||
35 | |||
36 | |||
37 | {**************************************************************************** |
||
38 | File Functions |
||
39 | ****************************************************************************} |
||
40 | |||
41 | const |
||
42 | FILEHANDLEPREFIX = $4000; |
||
43 | type |
||
44 | PFileRecord = ^TFileRecord; |
||
45 | TFileRecord = record |
||
46 | Filled: Boolean; |
||
47 | F: File; |
||
48 | end; |
||
49 | var |
||
50 | FileHandles: array of TFileRecord; |
||
51 | |||
52 | function FileRecordByHandle(Handle: THandle): PFileRecord; |
||
53 | begin |
||
54 | Dec(Handle, FILEHANDLEPREFIX); |
||
55 | Result := @FileHandles[Handle]; |
||
56 | end; |
||
57 | |||
58 | function CreateFileRecord(): THandle; |
||
59 | var |
||
60 | I, C: Longword; |
||
61 | begin |
||
62 | Result := -1; |
||
63 | C := Length(FileHandles); |
||
64 | for I := 0 to C - 1 do |
||
65 | if not FileHandles[I].Filled then |
||
66 | begin |
||
67 | Result := I; |
||
68 | Break; |
||
69 | end; |
||
70 | if Result < 0 then |
||
71 | begin |
||
72 | SetLength(FileHandles, C + 1); |
||
73 | Result := C; |
||
74 | end; |
||
75 | FileHandles[Result].Filled := True; |
||
76 | FillChar(FileHandles[Result].F, SizeOf(FileRec), 0); |
||
77 | Inc(Result, FILEHANDLEPREFIX); |
||
78 | end; |
||
79 | |||
80 | procedure ReleaseFileRecord(Handle: THandle); |
||
81 | begin |
||
82 | FileRecordByHandle(Handle)^.Filled := False; |
||
83 | end; |
||
84 | |||
85 | function FileOpen(const FileName: String; Mode: Integer): THandle; |
||
86 | var |
||
87 | F: File; |
||
88 | begin |
||
89 | Filemode := Mode; |
||
90 | Assign(F, FileName); |
||
91 | Reset(F, 1); |
||
92 | if InOutRes = 0 then |
||
93 | begin |
||
94 | Result := CreateFileRecord(); |
||
95 | FileRecordByHandle(Result)^.F := F; |
||
96 | end else |
||
97 | Result := feInvalidHandle; |
||
98 | end; |
||
99 | |||
100 | function FileCreate(const FileName: String): THandle; |
||
101 | var |
||
102 | F: File; |
||
103 | begin |
||
104 | Assign(F, FileName); |
||
105 | Rewrite(F, 1); |
||
106 | if InOutRes = 0 then |
||
107 | begin |
||
108 | Result := CreateFileRecord(); |
||
109 | FileRecordByHandle(Result)^.F := F; |
||
110 | end else |
||
111 | Result := feInvalidHandle; |
||
112 | end; |
||
113 | |||
114 | function FileCreate(const FileName: String; Mode: Integer): THandle; |
||
115 | var |
||
116 | F: File; |
||
117 | begin |
||
118 | Filemode := Mode; |
||
119 | Assign(F, FileName); |
||
120 | Rewrite(F, 1); |
||
121 | if InOutRes = 0 then |
||
122 | begin |
||
123 | Result := CreateFileRecord(); |
||
124 | FileRecordByHandle(Result)^.F := F; |
||
125 | end else |
||
126 | Result := feInvalidHandle; |
||
127 | end; |
||
128 | |||
129 | function FileRead(Handle: THandle; var Buffer; Count: Longint): Longint; |
||
130 | begin |
||
131 | BlockRead(FileRecordByHandle(Handle)^.F, Buffer, Count, Result); |
||
132 | end; |
||
133 | |||
134 | function FileWrite(Handle: THandle; const Buffer; Count: Longint): Longint; |
||
135 | begin |
||
136 | BlockWrite(FileRecordByHandle(Handle)^.F, Buffer, Count, Result); |
||
137 | end; |
||
138 | |||
139 | function FileSeek(Handle: THandle; FOffset, Origin: Longint): Longint; |
||
140 | begin |
||
141 | Result := FileSeek(Handle, Int64(FOffset), Origin); |
||
142 | end; |
||
143 | |||
144 | function FileSeek(Handle: THandle; FOffset: Int64; Origin: Longint): Int64; |
||
145 | var |
||
146 | Position: Int64; |
||
147 | begin |
||
148 | case Origin of |
||
149 | fsFromBeginning: Position := FOffset; |
||
150 | fsFromCurrent: Position := FilePos(FileRecordByHandle(Handle)^.F) + FOffset; |
||
151 | fsFromEnd: Position := FileSize(FileRecordByHandle(Handle)^.F) + FOffset; |
||
152 | end; |
||
153 | {TODO: проверка соответствия [0..filesize]} |
||
154 | Seek(FileRecordByHandle(Handle)^.F, Position); |
||
155 | Result := Position; |
||
156 | end; |
||
157 | |||
158 | procedure FileClose(Handle: THandle); |
||
159 | begin |
||
160 | Close(FileRecordByHandle(Handle)^.F); |
||
161 | ReleaseFileRecord(Handle); |
||
162 | end; |
||
163 | |||
164 | function FileTruncate(Handle: THandle; Size: Longint): Boolean; |
||
165 | begin |
||
166 | Result := False; |
||
167 | end; |
||
168 | |||
169 | function FileAge(const FileName: String): Longint; |
||
170 | begin |
||
171 | Result := 0; |
||
172 | end; |
||
173 | |||
174 | function FileExists(const FileName: String): Boolean; |
||
175 | var |
||
176 | F: File; |
||
177 | begin |
||
178 | Assign(F, FileName); |
||
179 | try |
||
180 | Reset(F); |
||
181 | FileSize(F); |
||
182 | Result := True; |
||
183 | except |
||
184 | Result := False; |
||
185 | end; |
||
186 | Close(F); |
||
187 | end; |
||
188 | |||
189 | function DirectoryExists(const Directory: String): Boolean; |
||
190 | begin |
||
191 | Result := False; |
||
192 | end; |
||
193 | |||
194 | function FindMatch(var f: TSearchRec): Longint; |
||
195 | begin |
||
196 | Result := feInvalidHandle; |
||
197 | end; |
||
198 | |||
199 | function FindFirst(const Path: String; Attr: Longint; out Rslt: TSearchRec): Longint; |
||
200 | begin |
||
201 | Result := feInvalidHandle; |
||
202 | end; |
||
203 | |||
204 | function FindNext(var Rslt: TSearchRec): Longint; |
||
205 | begin |
||
206 | Result := feInvalidHandle; |
||
207 | end; |
||
208 | |||
209 | procedure FindClose(var F: TSearchrec); |
||
210 | begin |
||
211 | end; |
||
212 | |||
213 | function FileGetDate(Handle: THandle): Longint; |
||
214 | begin |
||
215 | Result := feInvalidHandle; |
||
216 | end; |
||
217 | |||
218 | function FileSetDate(Handle: THandle; Age: Longint): Longint; |
||
219 | begin |
||
220 | Result := feInvalidHandle; |
||
221 | end; |
||
222 | |||
223 | function FileGetAttr(const FileName: String): Longint; |
||
224 | begin |
||
225 | Result := feInvalidHandle; |
||
226 | end; |
||
227 | |||
228 | function FileSetAttr(const Filename: String; Attr: longint): Longint; |
||
229 | begin |
||
230 | Result := feInvalidHandle; |
||
231 | end; |
||
232 | |||
233 | function DeleteFile(const FileName: String): Boolean; |
||
234 | begin |
||
235 | Result := False; |
||
236 | end; |
||
237 | |||
238 | function RenameFile(const OldName, NewName: String): Boolean; |
||
239 | begin |
||
240 | Result := False; |
||
241 | end; |
||
242 | |||
243 | |||
244 | {**************************************************************************** |
||
245 | Disk Functions |
||
246 | ****************************************************************************} |
||
247 | |||
248 | function DiskFree(drive: Byte): Int64; |
||
249 | begin |
||
250 | Result := 0; |
||
251 | end; |
||
252 | |||
253 | function DiskSize(drive: Byte): Int64; |
||
254 | begin |
||
255 | Result := 0; |
||
256 | end; |
||
257 | |||
258 | function GetCurrentDir: String; |
||
259 | begin |
||
260 | GetDir(0, Result); |
||
261 | end; |
||
262 | |||
263 | function SetCurrentDir(const NewDir: String): Boolean; |
||
264 | var |
||
265 | Path: String; |
||
266 | begin |
||
267 | ChDir(NewDir); |
||
268 | GetDir(0, Path); |
||
269 | Result := Path = NewDir; |
||
270 | end; |
||
271 | |||
272 | function CreateDir(const NewDir: String): Boolean; |
||
273 | begin |
||
274 | Result := False; |
||
275 | end; |
||
276 | |||
277 | function RemoveDir(const Dir: String): Boolean; |
||
278 | begin |
||
279 | Result := False; |
||
280 | end; |
||
281 | |||
282 | |||
283 | {**************************************************************************** |
||
284 | Time Functions |
||
285 | ****************************************************************************} |
||
286 | |||
287 | procedure GetLocalTime(var SystemTime: TSystemTime); |
||
288 | begin |
||
289 | end; |
||
290 | |||
291 | |||
292 | {**************************************************************************** |
||
293 | Misc Functions |
||
294 | ****************************************************************************} |
||
295 | |||
296 | procedure Beep; |
||
297 | begin |
||
298 | end; |
||
299 | |||
300 | |||
301 | {**************************************************************************** |
||
302 | Locale Functions |
||
303 | ****************************************************************************} |
||
304 | |||
305 | procedure GetFormatSettings; |
||
306 | var |
||
307 | HF: String; |
||
308 | begin |
||
309 | ShortMonthNames[1] := SShortMonthNameJan; |
||
310 | ShortMonthNames[2] := SShortMonthNameFeb; |
||
311 | ShortMonthNames[3] := SShortMonthNameMar; |
||
312 | ShortMonthNames[4] := SShortMonthNameApr; |
||
313 | ShortMonthNames[5] := SShortMonthNameMay; |
||
314 | ShortMonthNames[6] := SShortMonthNameJun; |
||
315 | ShortMonthNames[7] := SShortMonthNameJul; |
||
316 | ShortMonthNames[8] := SShortMonthNameAug; |
||
317 | ShortMonthNames[9] := SShortMonthNameSep; |
||
318 | ShortMonthNames[10] := SShortMonthNameOct; |
||
319 | ShortMonthNames[11] := SShortMonthNameNov; |
||
320 | ShortMonthNames[12] := SShortMonthNameDec; |
||
321 | |||
322 | LongMonthNames[1] := SLongMonthNameJan; |
||
323 | LongMonthNames[2] := SLongMonthNameFeb; |
||
324 | LongMonthNames[3] := SLongMonthNameMar; |
||
325 | LongMonthNames[4] := SLongMonthNameApr; |
||
326 | LongMonthNames[5] := SLongMonthNameMay; |
||
327 | LongMonthNames[6] := SLongMonthNameJun; |
||
328 | LongMonthNames[7] := SLongMonthNameJul; |
||
329 | LongMonthNames[8] := SLongMonthNameAug; |
||
330 | LongMonthNames[9] := SLongMonthNameSep; |
||
331 | LongMonthNames[10] := SLongMonthNameOct; |
||
332 | LongMonthNames[11] := SLongMonthNameNov; |
||
333 | LongMonthNames[12] := SLongMonthNameDec; |
||
334 | |||
335 | ShortDayNames[1] := SShortDayNameMon; |
||
336 | ShortDayNames[2] := SShortDayNameTue; |
||
337 | ShortDayNames[3] := SShortDayNameWed; |
||
338 | ShortDayNames[4] := SShortDayNameThu; |
||
339 | ShortDayNames[5] := SShortDayNameFri; |
||
340 | ShortDayNames[6] := SShortDayNameSat; |
||
341 | ShortDayNames[7] := SShortDayNameSun; |
||
342 | |||
343 | LongDayNames[1] := SLongDayNameMon; |
||
344 | LongDayNames[2] := SLongDayNameTue; |
||
345 | LongDayNames[3] := SLongDayNameWed; |
||
346 | LongDayNames[4] := SLongDayNameThu; |
||
347 | LongDayNames[5] := SLongDayNameFri; |
||
348 | LongDayNames[6] := SLongDayNameSat; |
||
349 | LongDayNames[7] := SShortDayNameSun; |
||
350 | |||
351 | DateSeparator := '/'; |
||
352 | ShortDateFormat := 'd/mm/yy'; |
||
353 | LongDateFormat := 'd mmmm yyyy'; |
||
354 | { Time stuff } |
||
355 | TimeSeparator := ':'; |
||
356 | TimeAMString := 'AM'; |
||
357 | TimePMString := 'PM'; |
||
358 | HF := 'hh'; |
||
359 | // No support for 12 hour stuff at the moment... |
||
360 | ShortTimeFormat := HF + ':nn'; |
||
361 | LongTimeFormat := HF + ':nn:ss'; |
||
362 | { Currency stuff } |
||
363 | CurrencyString := ''; |
||
364 | CurrencyFormat := 0; |
||
365 | NegCurrFormat := 0; |
||
366 | { Number stuff } |
||
367 | ThousandSeparator := ','; |
||
368 | DecimalSeparator := '.'; |
||
369 | CurrencyDecimals := 2; |
||
370 | end; |
||
371 | |||
372 | Procedure InitInternational; |
||
373 | begin |
||
374 | InitInternationalGeneric; |
||
375 | GetFormatSettings; |
||
376 | end; |
||
377 | |||
378 | |||
379 | {**************************************************************************** |
||
380 | Target Dependent |
||
381 | ****************************************************************************} |
||
382 | |||
383 | function SysErrorMessage(ErrorCode: Integer): String; |
||
384 | const |
||
385 | MaxMsgSize = 255; |
||
386 | var |
||
387 | MsgBuffer: PChar; |
||
388 | begin |
||
389 | GetMem(MsgBuffer, MaxMsgSize); |
||
390 | FillChar(MsgBuffer^, MaxMsgSize, #0); |
||
391 | {TODO} |
||
392 | Result := StrPas(MsgBuffer); |
||
393 | FreeMem(MsgBuffer, MaxMsgSize); |
||
394 | end; |
||
395 | |||
396 | {**************************************************************************** |
||
397 | Initialization code |
||
398 | ****************************************************************************} |
||
399 | |||
400 | Function GetEnvironmentVariable(Const EnvVar: String): String; |
||
401 | begin |
||
402 | Result := ''; |
||
403 | end; |
||
404 | |||
405 | Function GetEnvironmentVariableCount: Integer; |
||
406 | begin |
||
407 | Result := 0; |
||
408 | end; |
||
409 | |||
410 | Function GetEnvironmentString(Index : Integer) : String; |
||
411 | begin |
||
412 | Result := ''; |
||
413 | end; |
||
414 | |||
415 | function ExecuteProcess(Const Path: AnsiString; Const ComLine: AnsiString): Integer; |
||
416 | begin |
||
417 | Result := 0; |
||
418 | end; |
||
419 | |||
420 | function ExecuteProcess(Const Path: AnsiString; Const ComLine: Array of AnsiString): Integer; |
||
421 | var |
||
422 | CommandLine: AnsiString; |
||
423 | i: Integer; |
||
424 | begin |
||
425 | Commandline:=''; |
||
426 | For i:=0 to high(ComLine) Do |
||
427 | Commandline:=CommandLine+' '+Comline[i]; |
||
428 | ExecuteProcess:=ExecuteProcess(Path,CommandLine); |
||
429 | end; |
||
430 | |||
431 | procedure Sleep(Milliseconds: Cardinal); |
||
432 | begin |
||
433 | kos_delay(Milliseconds div 10); |
||
434 | end; |
||
435 | |||
436 | function GetLastOSError: Integer; |
||
437 | begin |
||
438 | Result := -1; |
||
439 | end; |
||
440 | |||
441 | |||
442 | |||
443 | initialization |
||
444 | InitExceptions; |
||
445 | InitInternational; |
||
446 | finalization |
||
447 | DoneExceptions; |
||
448 | end.> |