← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/morphos/doslibf.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/morphos/doslibf.inc
 
1
{
 
2
    $Id: doslibf.inc,v 1.5 2005/02/14 17:13:30 peter Exp $
 
3
    This file is part of the Free Pascal run time library.
 
4
 
 
5
    dos functions (V50) for MorphOS/PowerPC
 
6
    Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
 
7
 
 
8
    Free Pascal conversion
 
9
    Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
 
10
 
 
11
    See the file COPYING.FPC, included in this distribution,
 
12
    for details about the copyright.
 
13
 
 
14
    This program is distributed in the hope that it will be useful,
 
15
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
16
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
17
 
 
18
 **********************************************************************}
 
19
 
 
20
 
 
21
{ dos.library functions }
 
22
 
 
23
function Open(fname     : PChar   location 'd1';
 
24
              accessMode: LongInt location 'd2'): LongInt;
 
25
SysCall MOS_DOSBase 30;
 
26
 
 
27
function dosClose(fileh: LongInt location 'd1'): Boolean;
 
28
SysCall MOS_DOSBase 36;
 
29
 
 
30
function dosRead(fileh : LongInt location 'd1';
 
31
                 buffer: Pointer location 'd2';
 
32
                 length: LongInt location 'd3'): LongInt;
 
33
SysCall MOS_DOSBase 42;
 
34
 
 
35
function dosWrite(fileh : LongInt location 'd1';
 
36
                  buffer: Pointer location 'd2';
 
37
                  length: LongInt location 'd3'): LongInt;
 
38
SysCall MOS_DOSBase 48;
 
39
 
 
40
function dosInput: LongInt;
 
41
SysCall MOS_DOSBase 54;
 
42
 
 
43
function dosOutput: LongInt;
 
44
SysCall MOS_DOSBase 60;
 
45
 
 
46
function dosSeek(fileh   : LongInt location 'd1';
 
47
                 position: LongInt location 'd2';
 
48
                 posmode : LongInt location 'd3'): LongInt;
 
49
SysCall MOS_DOSBase 66;
 
50
 
 
51
function dosDeleteFile(fname: PChar location 'd1'): Boolean;
 
52
SysCall MOS_DOSBase 72;
 
53
 
 
54
function dosRename(oldName: PChar location 'd1';
 
55
                   newName: PChar location 'd2'): Boolean;
 
56
SysCall MOS_DOSBase 78;
 
57
 
 
58
function Lock(lname     : PChar   location 'd1';
 
59
              accessMode: LongInt location 'd2'): LongInt;
 
60
SysCall MOS_DOSBase 84;
 
61
 
 
62
procedure Unlock(lock: LongInt location 'd1');
 
63
SysCall MOS_DOSBase 90;
 
64
 
 
65
function DupLock(lock: LongInt location 'd1'): LongInt;
 
66
SysCall MOS_DOSBase 096;
 
67
 
 
68
function Examine(lock         : LongInt        location 'd1';
 
69
                 fileInfoBlock: PFileInfoBlock location 'd2'): Boolean;
 
70
SysCall MOS_DOSBase 102;
 
71
 
 
72
function ExNext(lock         : LongInt        location 'd1';
 
73
                fileInfoBlock: PFileInfoBlock location 'd2'): LongInt;
 
74
SysCall MOS_DOSBase 108;
 
75
 
 
76
function Info(lock          : LongInt   location 'd1';
 
77
              parameterBlock: PInfoData location 'd2'): Boolean;
 
78
SysCall MOS_DOSBase 114;
 
79
 
 
80
function dosCreateDir(dname: PChar location 'd1'): LongInt;
 
81
SysCall MOS_DOSBase 120;
 
82
 
 
83
function CurrentDir(lock: LongInt location 'd1'): LongInt;
 
84
SysCall MOS_DOSBase 126;
 
85
 
 
86
function IoErr: LongInt;
 
87
SysCall MOS_DOSBase 132;
 
88
 
 
89
function CreateProc(name     : PChar   location 'd1';
 
90
                    pri      : LongInt location 'd2';
 
91
                    segList  : LongInt location 'd3';
 
92
                    stackSize: LongInt location 'd4'): PMsgPort;
 
93
SysCall MOS_DOSBase 138;
 
94
 
 
95
procedure dosExit(returnCode: LongInt location 'd1');
 
96
SysCall MOS_DOSBase 144;
 
97
 
 
98
function LoadSeg(name: PChar location 'd1'): LongInt;
 
99
SysCall MOS_DOSBase 150;
 
100
 
 
101
procedure UnLoadSeg(seglist: LongInt location 'd1');
 
102
SysCall MOS_DOSBase 156;
 
103
 
 
104
function DeviceProc(name: PChar location 'd1'): PMsgPort;
 
105
SysCall MOS_DOSBase 174;
 
106
 
 
107
function SetComment(name   : PChar location 'd1';
 
108
                    comment: PChar location 'd2'): Boolean;
 
109
SysCall MOS_DOSBase 180;
 
110
 
 
111
function SetProtection(name: PChar   location 'd1';
 
112
                       mask: LongInt location 'd2'): Boolean;
 
113
SysCall MOS_DOSBase 186;
 
114
 
 
115
function DateStamp(date: PDateStamp location 'd1'): PDateStamp;
 
116
SysCall MOS_DOSBase 192;
 
117
 
 
118
procedure Delay(timeout: LongInt location 'd1');
 
119
SysCall MOS_DOSBase 198;
 
120
 
 
121
function WaitForChar(file1  : LongInt location 'd1';
 
122
                     timeout: LongInt location 'd2'): Boolean;
 
123
SysCall MOS_DOSBase 204;
 
124
 
 
125
function ParentDir(lock: LongInt location 'd1'): LongInt;
 
126
SysCall MOS_DOSBase 210;
 
127
 
 
128
function IsInteractive(file1: LongInt location 'd1'): Boolean;
 
129
SysCall MOS_DOSBase 216;
 
130
 
 
131
function Execute(string1: PChar   location 'd1';
 
132
                 file1  : LongInt location 'd2';
 
133
                 file2  : LongInt location 'd3'): Boolean;
 
134
SysCall MOS_DOSBase 222;
 
135
 
 
136
function AllocDosObject(type1: Cardinal location 'd1';
 
137
                        tags : PTagItem location 'd2'): Pointer;
 
138
SysCall MOS_DOSBase 228;
 
139
 
 
140
function AllocDosObjectTagList(type1: Cardinal location 'd1';
 
141
                               tags : PTagItem location 'd2'): Pointer;
 
142
SysCall MOS_DOSBase 228;
 
143
 
 
144
procedure FreeDosObject(type1: Cardinal location 'd1';
 
145
                        ptr  : Pointer  location 'd2');
 
146
SysCall MOS_DOSBase 234;
 
147
 
 
148
function DoPkt(port  : PMsgPort location 'd1';
 
149
               action: LongInt  location 'd2';
 
150
               arg1  : LongInt  location 'd3';
 
151
               arg2  : LongInt  location 'd4';
 
152
               arg3  : LongInt  location 'd5';
 
153
               arg4  : LongInt  location 'd6';
 
154
               arg5  : LongInt  location 'd7'): LongInt;
 
155
SysCall MOS_DOSBase 240;
 
156
 
 
157
function DoPkt0(port  : PMsgPort location 'd1';
 
158
                action: LongInt  location 'd2'): LongInt;
 
159
SysCall MOS_DOSBase 240;
 
160
 
 
161
function DoPkt1(port  : PMsgPort location 'd1';
 
162
                action: LongInt  location 'd2';
 
163
                arg1  : LongInt  location 'd3'): LongInt;
 
164
SysCall MOS_DOSBase 240;
 
165
 
 
166
function DoPkt2(port  : PMsgPort location 'd1';
 
167
                action: LongInt  location 'd2';
 
168
                arg1  : LongInt  location 'd3';
 
169
                arg2  : LongInt  location 'd4'): LongInt;
 
170
SysCall MOS_DOSBase 240;
 
171
 
 
172
function DoPkt3(port  : PMsgPort location 'd1';
 
173
                action: LongInt  location 'd2';
 
174
                arg1  : LongInt  location 'd3';
 
175
                arg2  : LongInt  location 'd4';
 
176
                arg3  : LongInt  location 'd5'): LongInt;
 
177
SysCall MOS_DOSBase 240;
 
178
 
 
179
function DoPkt4(port  : PMsgPort location 'd1';
 
180
                action: LongInt  location 'd2';
 
181
                arg1  : LongInt  location 'd3';
 
182
                arg2  : LongInt  location 'd4';
 
183
                arg3  : LongInt  location 'd5';
 
184
                arg4  : LongInt  location 'd6'): LongInt;
 
185
SysCall MOS_DOSBase 240;
 
186
 
 
187
procedure SendPkt(dp       : PDosPacket location 'd1';
 
188
                  port     : PMsgPort   location 'd2';
 
189
                  replyport: PMsgPort   location 'd3');
 
190
SysCall MOS_DOSBase 246;
 
191
 
 
192
function WaitPkt: PDosPacket;
 
193
SysCall MOS_DOSBase 252;
 
194
 
 
195
procedure ReplyPkt(dp  : PDosPacket location 'd1';
 
196
                   res1: LongInt    location 'd2';
 
197
                   res2: LongInt    location 'd3');
 
198
SysCall MOS_DOSBase 258;
 
199
 
 
200
procedure AbortPkt(port: PMsgPort   location 'd1';
 
201
                   pkt : PDosPacket location 'd2');
 
202
SysCall MOS_DOSBase 264;
 
203
 
 
204
function LockRecord(fh     : LongInt  location 'd1';
 
205
                    offset : Cardinal location 'd2';
 
206
                    length : Cardinal location 'd3';
 
207
                    mode   : Cardinal location 'd4';
 
208
                    timeout: Cardinal location 'd5'): Boolean;
 
209
SysCall MOS_DOSBase 270;
 
210
 
 
211
function LockRecords(recArray: PRecordLock location 'd1';
 
212
                     timeout : Cardinal    location 'd2'): Boolean;
 
213
SysCall MOS_DOSBase 276;
 
214
 
 
215
function UnLockRecord(fh    : LongInt  location 'd1';
 
216
                      offset: Cardinal location 'd2';
 
217
                      length: Cardinal location 'd3'): Boolean;
 
218
SysCall MOS_DOSBase 282;
 
219
 
 
220
function UnLockRecords(recArray: PRecordLock location 'd1'): Boolean;
 
221
SysCall MOS_DOSBase 288;
 
222
 
 
223
function SelectInput(fh: LongInt location 'd1'): LongInt;
 
224
SysCall MOS_DOSBase 294;
 
225
 
 
226
function SelectOutput(fh: LongInt location 'd1'): LongInt;
 
227
SysCall MOS_DOSBase 300;
 
228
 
 
229
function FGetC(fh: LongInt location 'd1'): LongInt;
 
230
SysCall MOS_DOSBase 306;
 
231
 
 
232
function FPutC(fh: LongInt location 'd1';
 
233
               ch: LongInt location 'd2'): LongInt;
 
234
SysCall MOS_DOSBase 312;
 
235
 
 
236
function UnGetC(fh       : LongInt location 'd1';
 
237
                character: LongInt location 'd2'): LongInt;
 
238
SysCall MOS_DOSBase 318;
 
239
 
 
240
function FRead(fh      : LongInt  location 'd1';
 
241
               block   : Pointer  location 'd2';
 
242
               blocklen: Cardinal location 'd3';
 
243
               number  : Cardinal location 'd4'): LongInt;
 
244
SysCall MOS_DOSBase 324;
 
245
 
 
246
function FWrite(fh      : LongInt  location 'd1';
 
247
                block   : Pointer  location 'd2';
 
248
                blocklen: Cardinal location 'd3';
 
249
                number  : Cardinal location 'd4'): LongInt;
 
250
SysCall MOS_DOSBase 330;
 
251
 
 
252
function FGets(fh    : LongInt  location 'd1';
 
253
               buf   : PChar    location 'd2';
 
254
               buflen: Cardinal location 'd3'): PChar;
 
255
SysCall MOS_DOSBase 336;
 
256
 
 
257
function FPuts(fh : LongInt location 'd1';
 
258
               str: PChar   location 'd2'): LongInt;
 
259
SysCall MOS_DOSBase 342;
 
260
 
 
261
procedure VFWritef(fh      : LongInt location 'd1';
 
262
                   format  : PChar   location 'd2';
 
263
                   argarray: Pointer location 'd3');
 
264
SysCall MOS_DOSBase 348;
 
265
 
 
266
function VFPrintf(fh      : LongInt location 'd1';
 
267
                  format  : PChar   location 'd2';
 
268
                  argarray: Pointer location 'd3'): LongInt;
 
269
SysCall MOS_DOSBase 354;
 
270
 
 
271
function dosFlush(fh: LongInt location 'd1'): LongInt;
 
272
SysCall MOS_DOSBase 360;
 
273
 
 
274
function SetVBuf(fh   : LongInt location 'd1';
 
275
                 buff : PChar   location 'd2';
 
276
                 type1: LongInt location 'd3';
 
277
                 size : LongInt location 'd4'): LongInt;
 
278
SysCall MOS_DOSBase 366;
 
279
 
 
280
function DupLockFromFH(fh: LongInt location 'd1'): LongInt;
 
281
SysCall MOS_DOSBase 372;
 
282
 
 
283
function OpenFromLock(lock: LongInt location 'd1'): LongInt;
 
284
SysCall MOS_DOSBase 378;
 
285
 
 
286
function ParentOfFH(fh: LongInt location 'd1'): LongInt;
 
287
SysCall MOS_DOSBase 384;
 
288
 
 
289
function ExamineFH(fh : LongInt        location 'd1';
 
290
                   fib: PFileInfoBlock location 'd2'): Boolean;
 
291
SysCall MOS_DOSBase 390;
 
292
 
 
293
function SetFileDate(name: PChar      location 'd1';
 
294
                     date: PDateStamp location 'd2'): Boolean;
 
295
SysCall MOS_DOSBase 396;
 
296
 
 
297
function NameFromLock(lock  : LongInt location 'd1';
 
298
                      buffer: PChar   location 'd2';
 
299
                      len   : LongInt location 'd3'): Boolean;
 
300
SysCall MOS_DOSBase 402;
 
301
 
 
302
function NameFromFH(fh    : LongInt location 'd1';
 
303
                    buffer: PChar   location 'd2';
 
304
                    len   : LongInt location 'd3'): LongInt;
 
305
SysCall MOS_DOSBase 408;
 
306
 
 
307
function SplitName(name     : PChar    location 'd1';
 
308
                   separator: Cardinal location 'd2';
 
309
                   buf      : PChar    location 'd3';
 
310
                   oldpos   : LongInt  location 'd4';
 
311
                   size     : LongInt  location 'd5'): SmallInt;
 
312
SysCall MOS_DOSBase 414;
 
313
 
 
314
function SameLock(lock1: LongInt location 'd1';
 
315
                  lock2: LongInt location 'd2'): LongInt;
 
316
SysCall MOS_DOSBase 420;
 
317
 
 
318
function SetMode(fh  : LongInt location 'd1';
 
319
                 mode: LongInt location 'd2'): LongInt;
 
320
SysCall MOS_DOSBase 426;
 
321
 
 
322
function ExAll(lock   : LongInt       location 'd1';
 
323
               buffer : PExAllData    location 'd2';
 
324
               size   : LongInt       location 'd3';
 
325
               data   : LongInt       location 'd4';
 
326
               control: PExAllControl location 'd5'): Boolean;
 
327
SysCall MOS_DOSBase 432;
 
328
 
 
329
function ReadLink(port  : PMsgPort location 'd1';
 
330
                  lock  : LongInt  location 'd2';
 
331
                  path  : PChar    location 'd3';
 
332
                  buffer: PChar    location 'd4';
 
333
                  size  : Cardinal location 'd5'): Boolean;
 
334
SysCall MOS_DOSBase 438;
 
335
 
 
336
function MakeLink(name: PChar   location 'd1';
 
337
                  dest: LongInt location 'd2';
 
338
                  soft: LongInt location 'd3'): Boolean;
 
339
SysCall MOS_DOSBase 444;
 
340
 
 
341
function ChangeMode(type1  : LongInt location 'd1';
 
342
                    fh     : LongInt location 'd2';
 
343
                    newmode: LongInt location 'd3'): Boolean;
 
344
SysCall MOS_DOSBase 450;
 
345
 
 
346
function SetFileSize(fh  : LongInt location 'd1';
 
347
                     pos : LongInt location 'd2';
 
348
                     mode: LongInt location 'd3'): LongInt;
 
349
SysCall MOS_DOSBase 456;
 
350
 
 
351
function SetIoErr(result: LongInt location 'd1'): LongInt;
 
352
SysCall MOS_DOSBase 462;
 
353
 
 
354
function Fault(code  : LongInt location 'd1';
 
355
               header: PChar   location 'd2';
 
356
               buffer: PChar   location 'd3';
 
357
               len   : LongInt location 'd4'): Boolean;
 
358
SysCall MOS_DOSBase 468;
 
359
 
 
360
function PrintFault(code  : LongInt location 'd1';
 
361
                    header: PChar   location 'd2'): Boolean;
 
362
SysCall MOS_DOSBase 474;
 
363
 
 
364
function ErrorReport(code  : LongInt  location 'd1';
 
365
                     type1 : LongInt  location 'd2';
 
366
                     arg1  : Cardinal location 'd3';
 
367
                     device: PMsgPort location 'd4'): Boolean;
 
368
SysCall MOS_DOSBase 480;
 
369
 
 
370
function Cli: PCommandLineInterface;
 
371
SysCall MOS_DOSBase 492;
 
372
 
 
373
function CreateNewProc(tags: PTagItem location 'd1'): PProcess;
 
374
SysCall MOS_DOSBase 498;
 
375
 
 
376
function CreateNewProcTagList(tags: PTagItem location 'd1'): PProcess;
 
377
SysCall MOS_DOSBase 498;
 
378
 
 
379
function RunCommand(seg     : LongInt location 'd1';
 
380
                    stack   : LongInt location 'd2';
 
381
                    paramptr: PChar   location 'd3';
 
382
                    paramlen: LongInt location 'd4'): LongInt;
 
383
SysCall MOS_DOSBase 504;
 
384
 
 
385
function GetConsoleTask: PMsgPort;
 
386
SysCall MOS_DOSBase 510;
 
387
 
 
388
function SetConsoleTask(task: PMsgPort location 'd1'): PMsgPort;
 
389
SysCall MOS_DOSBase 516;
 
390
 
 
391
function GetFileSysTask: PMsgPort;
 
392
SysCall MOS_DOSBase 522;
 
393
 
 
394
function SetFileSysTask(task: PMsgPort location 'd1'): PMsgPort;
 
395
SysCall MOS_DOSBase 528;
 
396
 
 
397
function GetArgStr: PChar;
 
398
SysCall MOS_DOSBase 534;
 
399
 
 
400
function SetArgStr(str: PChar location 'd1'): Boolean;
 
401
SysCall MOS_DOSBase 540;
 
402
 
 
403
function FindCliProc(num: Cardinal location 'd1'): PProcess;
 
404
SysCall MOS_DOSBase 546;
 
405
 
 
406
function MaxCli: Cardinal;
 
407
SysCall MOS_DOSBase 552;
 
408
 
 
409
function SetCurrentDirName(name: PChar location 'd1'): Boolean;
 
410
SysCall MOS_DOSBase 558;
 
411
 
 
412
function GetCurrentDirName(buf: PChar   location 'd1';
 
413
                           len: LongInt location 'd2'): Boolean;
 
414
SysCall MOS_DOSBase 564;
 
415
 
 
416
function SetProgramName(name: PChar location 'd1'): Boolean;
 
417
SysCall MOS_DOSBase 570;
 
418
 
 
419
function GetProgramName(buf: PChar   location 'd1';
 
420
                        len: LongInt location 'd2'): Boolean;
 
421
SysCall MOS_DOSBase 576;
 
422
 
 
423
function SetPrompt(name: PChar location 'd1'): Boolean;
 
424
SysCall MOS_DOSBase 582;
 
425
 
 
426
function GetPrompt(buf: PChar   location 'd1';
 
427
                   len: LongInt location 'd2'): Boolean;
 
428
SysCall MOS_DOSBase 588;
 
429
 
 
430
function SetProgramDir(lock: LongInt location 'd1'): LongInt;
 
431
SysCall MOS_DOSBase 594;
 
432
 
 
433
function GetProgramDir: LongInt;
 
434
SysCall MOS_DOSBase 600;
 
435
 
 
436
function SystemTagList(command: PChar    location 'd1';
 
437
                       tags   : PTagItem location 'd2'): LongInt;
 
438
SysCall MOS_DOSBase 606;
 
439
 
 
440
function dosSystem(command: PChar    location 'd1';
 
441
                   tags   : PTagItem location 'd2'): LongInt;
 
442
SysCall MOS_DOSBase 606;
 
443
 
 
444
function AssignLock(name: PChar   location 'd1';
 
445
                    lock: LongInt location 'd2'): Boolean;
 
446
SysCall MOS_DOSBase 612;
 
447
 
 
448
function AssignLate(name: PChar location 'd1';
 
449
                    path: PChar location 'd2'): Boolean;
 
450
SysCall MOS_DOSBase 618;
 
451
 
 
452
function AssignPath(name: PChar location 'd1';
 
453
                    path: PChar location 'd2'): Boolean;
 
454
SysCall MOS_DOSBase 624;
 
455
 
 
456
function AssignAdd(name: PChar   location 'd1';
 
457
                   lock: LongInt location 'd2'): Boolean;
 
458
SysCall MOS_DOSBase 630;
 
459
 
 
460
function RemAssignList(name: PChar   location 'd1';
 
461
                       lock: LongInt location 'd2'): Boolean;
 
462
SysCall MOS_DOSBase 636;
 
463
 
 
464
function GetDeviceProc(name: PChar    location 'd1';
 
465
                       dp  : PDevProc location 'd2'): PDevProc;
 
466
SysCall MOS_DOSBase 642;
 
467
 
 
468
procedure FreeDeviceProc(dp: PDevProc location 'd1');
 
469
SysCall MOS_DOSBase 648;
 
470
 
 
471
function LockDosList(flags: Cardinal location 'd1'): PDosList;
 
472
SysCall MOS_DOSBase 654;
 
473
 
 
474
procedure UnLockDosList(flags: Cardinal location 'd1');
 
475
SysCall MOS_DOSBase 660;
 
476
 
 
477
function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList;
 
478
SysCall MOS_DOSBase 666;
 
479
 
 
480
function RemDosEntry(dlist: PDosList location 'd1'): Boolean;
 
481
SysCall MOS_DOSBase 672;
 
482
 
 
483
function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
 
484
SysCall MOS_DOSBase 678;
 
485
 
 
486
function FindDosEntry(dlist: PDosList location 'd1';
 
487
                      name : PChar    location 'd2';
 
488
                      flags: Cardinal location 'd3'): PDosList;
 
489
SysCall MOS_DOSBase 684;
 
490
 
 
491
function NextDosEntry(dlist: PDosList location 'd1';
 
492
                      flags: Cardinal location 'd2'): PDosList;
 
493
SysCall MOS_DOSBase 690;
 
494
 
 
495
function MakeDosEntry(name : PChar   location 'd1';
 
496
                      type1: LongInt location 'd2'): PDosList;
 
497
SysCall MOS_DOSBase 696;
 
498
 
 
499
procedure FreeDosEntry(dlist: PDosList location 'd1');
 
500
SysCall MOS_DOSBase 702;
 
501
 
 
502
function IsFileSystem(name: PChar location 'd1'): Boolean;
 
503
SysCall MOS_DOSBase 708;
 
504
 
 
505
function Format(filesystem: PChar    location 'd1';
 
506
                volumename: PChar    location 'd2';
 
507
                dostype   : Cardinal location 'd3'): Boolean;
 
508
SysCall MOS_DOSBase 714;
 
509
 
 
510
function Relabel(drive  : PChar location 'd1';
 
511
                 newname: PChar location 'd2'): Boolean;
 
512
SysCall MOS_DOSBase 720;
 
513
 
 
514
function Inhibit(name : PChar   location 'd1';
 
515
                 onoff: LongInt location 'd2'): Boolean;
 
516
SysCall MOS_DOSBase 726;
 
517
 
 
518
function AddBuffers(name  : PChar   location 'd1';
 
519
                    number: LongInt location 'd2'): Boolean;
 
520
SysCall MOS_DOSBase 732;
 
521
 
 
522
function CompareDates(date1: PDateStamp location 'd1';
 
523
                      date2: PDateStamp location 'd2'): LongInt;
 
524
SysCall MOS_DOSBase 738;
 
525
 
 
526
function DateToStr(datetime: _PDateTime location 'd1'): Boolean;
 
527
SysCall MOS_DOSBase 744;
 
528
 
 
529
function StrToDate(datetime: _PDateTime location 'd1'): Boolean;
 
530
SysCall MOS_DOSBase 750;
 
531
 
 
532
function InternalLoadSeg(fh           : LongInt location 'd0';
 
533
                         table        : LongInt location 'a0';
 
534
                         var funcarray: LongInt location 'a1';
 
535
                         var stack    : LongInt location 'a2'): LongInt;
 
536
SysCall MOS_DOSBase 756;
 
537
 
 
538
function NewLoadSeg(file1: PChar    location 'd1';
 
539
                    tags : PTagItem location 'd2'): LongInt;
 
540
SysCall MOS_DOSBase 768;
 
541
 
 
542
function NewLoadSegTagList(file1: PChar    location 'd1';
 
543
                           tags : PTagItem location 'd2'): LongInt;
 
544
SysCall MOS_DOSBase 768;
 
545
 
 
546
function AddSegment(name  : PChar   location 'd1';
 
547
                    seg   : LongInt location 'd2';
 
548
                    system: LongInt location 'd3'): Boolean;
 
549
SysCall MOS_DOSBase 774;
 
550
 
 
551
function FindSegment(name  : PChar    location 'd1';
 
552
                     seg   : PSegment location 'd2';
 
553
                     system: LongInt  location 'd3'): PSegment;
 
554
SysCall MOS_DOSBase 780;
 
555
 
 
556
function RemSegment(seg: PSegment location 'd1'): Boolean;
 
557
SysCall MOS_DOSBase 786;
 
558
 
 
559
function CheckSignal(mask: LongInt location 'd1'): LongInt;
 
560
SysCall MOS_DOSBase 792;
 
561
 
 
562
function ReadArgs(arg_template: PChar   location 'd1';
 
563
                  var array1  : LongInt location 'd2';
 
564
                  args        : PRDArgs location 'd3'): PRDArgs;
 
565
SysCall MOS_DOSBase 798;
 
566
 
 
567
function FindArg(keyword     : PChar location 'd1';
 
568
                 arg_template: PChar location 'd2'): LongInt;
 
569
SysCall MOS_DOSBase 804;
 
570
 
 
571
function ReadItem(name    : PChar    location 'd1';
 
572
                  maxchars: LongInt  location 'd2';
 
573
                  cSource : PCSource location 'd3'): LongInt;
 
574
SysCall MOS_DOSBase 810;
 
575
 
 
576
function StrToLong(string1  : PChar   location 'd1';
 
577
                   var value: LongInt location 'd2'): LongInt;
 
578
SysCall MOS_DOSBase 816;
 
579
 
 
580
function MatchFirst(pat   : PChar       location 'd1';
 
581
                    anchor: PAnchorPath location 'd2'): LongInt;
 
582
SysCall MOS_DOSBase 822;
 
583
 
 
584
function MatchNext(anchor: PAnchorPath location 'd1'): LongInt;
 
585
SysCall MOS_DOSBase 828;
 
586
 
 
587
procedure MatchEnd(anchor: PAnchorPath location 'd1');
 
588
SysCall MOS_DOSBase 834;
 
589
 
 
590
function ParsePattern(pat   : PChar   location 'd1';
 
591
                      buf   : PChar   location 'd2';
 
592
                      buflen: LongInt location 'd3'): LongInt;
 
593
SysCall MOS_DOSBase 840;
 
594
 
 
595
function MatchPattern(pat: PChar location 'd1';
 
596
                      str: PChar location 'd2'): Boolean;
 
597
SysCall MOS_DOSBase 846;
 
598
 
 
599
procedure FreeArgs(args: pRDArgs location 'd1');
 
600
SysCall MOS_DOSBase 858;
 
601
 
 
602
function FilePart(path: PChar location 'd1'): PChar;
 
603
SysCall MOS_DOSBase 870;
 
604
 
 
605
function PathPart(path: PChar location 'd1'): PChar;
 
606
SysCall MOS_DOSBase 876;
 
607
 
 
608
function AddPart(dirname: PChar    location 'd1';
 
609
                filename: PChar    location 'd2';
 
610
                size    : Cardinal location 'd3'): Boolean;
 
611
SysCall MOS_DOSBase 882;
 
612
 
 
613
function StartNotify(notify: PNotifyRequest location 'd1'): Boolean;
 
614
SysCall MOS_DOSBase 888;
 
615
 
 
616
procedure EndNotify(notify: PNotifyRequest location 'd1');
 
617
SysCall MOS_DOSBase 894;
 
618
 
 
619
function SetVar(name  : PChar   location 'd1';
 
620
                buffer: PChar   location 'd2';
 
621
                size  : LongInt location 'd3';
 
622
                flags : LongInt location 'd4'): Boolean;
 
623
SysCall MOS_DOSBase 900;
 
624
 
 
625
function GetVar(name  : PChar   location 'd1';
 
626
                buffer: PChar   location 'd2';
 
627
                size  : LongInt location 'd3';
 
628
                flags : LongInt location 'd4'): LongInt;
 
629
SysCall MOS_DOSBase 906;
 
630
 
 
631
function DeleteVar(name : PChar    location 'd1';
 
632
                   flags: Cardinal location 'd2'): Boolean;
 
633
SysCall MOS_DOSBase 912;
 
634
 
 
635
function FindVar(name : PChar    location 'd1';
 
636
                 type1: Cardinal location 'd2'): PLocalVar;
 
637
SysCall MOS_DOSBase 918;
 
638
 
 
639
function CliInitNewcli(dp: PDosPacket location 'a0'): LongInt;
 
640
SysCall MOS_DOSBase 930;
 
641
 
 
642
function CliInitRun(dp: PDosPacket location 'a0'): LongInt;
 
643
SysCall MOS_DOSBase 936;
 
644
 
 
645
function WriteChars(buf   : PChar    location 'd1';
 
646
                    buflen: Cardinal location 'd2'): LongInt;
 
647
SysCall MOS_DOSBase 942;
 
648
 
 
649
function PutStr(str: PChar location 'd1'): LongInt;
 
650
SysCall MOS_DOSBase 948;
 
651
 
 
652
function VPrintf(format  : PChar   location 'd1';
 
653
                 argarray: Pointer location 'd2'): LongInt;
 
654
SysCall MOS_DOSBase 954;
 
655
 
 
656
function ParsePatternNoCase(pat   : PChar   location 'd1';
 
657
                            buf   : PChar   location 'd2';
 
658
                            buflen: LongInt location 'd3'): LongInt;
 
659
SysCall MOS_DOSBase 966;
 
660
 
 
661
function MatchPatternNoCase(pat: PChar location 'd1';
 
662
                            str: PChar location 'd2'): Boolean;
 
663
SysCall MOS_DOSBase 972;
 
664
 
 
665
function SameDevice(lock1: LongInt location 'd1';
 
666
                    lock2: LongInt location 'd2'): Boolean;
 
667
SysCall MOS_DOSBase 984;
 
668
 
 
669
procedure ExAllEnd(lock   : LongInt       location 'd1';
 
670
                   buffer : PExAllData    location 'd2';
 
671
                   size   : LongInt       location 'd3';
 
672
                   data   : LongInt       location 'd4';
 
673
                   control: PExAllControl location 'd5');
 
674
SysCall MOS_DOSBase 990;
 
675
 
 
676
function SetOwner(name      : PChar   location 'd1';
 
677
                  owner_info: LongInt location 'd2'): Boolean;
 
678
SysCall MOS_DOSBase 996;
 
679
 
 
680
function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;
 
681
SysCall MOS_DOSBase 1002;
 
682
 
 
683
function FindSegmentTagList(tags: PTagItem location 'a0'): PSegment;
 
684
SysCall MOS_DOSBase 1008;
 
685
 
 
686
 
 
687
 
 
688
{
 
689
  $Log: doslibf.inc,v $
 
690
  Revision 1.5  2005/02/14 17:13:30  peter
 
691
    * truncate log
 
692
 
 
693
  Revision 1.4  2005/01/12 07:59:54  karoly
 
694
    * Integers changed to SmallInt to be compatible with all modes
 
695
 
 
696
  Revision 1.3  2005/01/11 17:44:52  karoly
 
697
    * some updates for sysutils
 
698
 
 
699
}