|
|
@@ -1,135 +0,0 @@
|
|
|
-{
|
|
|
- $Id$
|
|
|
- This file is part of the Free Pascal run time library.
|
|
|
- Copyright (c) 1999-2000 by Michael Van Canneyt,
|
|
|
- member of the Free Pascal development team.
|
|
|
-
|
|
|
- See the file COPYING.FPC, included in this distribution,
|
|
|
- for details about the copyright.
|
|
|
-
|
|
|
- This program is distributed in the hope that it will be useful,
|
|
|
- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
-
|
|
|
- **********************************************************************}
|
|
|
-type
|
|
|
-
|
|
|
-{
|
|
|
- Linux system calls take arguments as follows :
|
|
|
-
|
|
|
- i386/ppc:
|
|
|
-
|
|
|
- %eax/%d0 : System call number
|
|
|
- %ebx/%d1 : first argument
|
|
|
- %ecx/%d2 : second argument
|
|
|
- %edx/%d3 : third argumens
|
|
|
- %esi/%d3 : fourth argument
|
|
|
- %edi/%d4 : fifth argument
|
|
|
-
|
|
|
- That is why we define a special type, with only these arguments
|
|
|
- To make it processor independent, we don't give any system dependent
|
|
|
- names, but the rather abstract reg1,reg2 etc;
|
|
|
-}
|
|
|
-
|
|
|
- SysCallRegs=record
|
|
|
- reg1,reg2,reg3,reg4,reg5,reg6,reg7,reg8 : longint;
|
|
|
- end;
|
|
|
- PSysCallRegs=^SysCallRegs;
|
|
|
- TSysCallRegs=SysCallRegs;
|
|
|
-
|
|
|
- dev_t = CARDINAL;
|
|
|
-
|
|
|
-
|
|
|
-{$packrecords C}
|
|
|
- Stat =record {BSD version}
|
|
|
- dev : dev_t; { inode's device }
|
|
|
- ino : cardinal; { inode's number }
|
|
|
- mode, { inode protection mode }
|
|
|
- nlink : word; { number of hard links }
|
|
|
- uid, { user ID of the file's owner }
|
|
|
- gid, { group ID of the file's group }
|
|
|
- dev_t : cardinal; { device type }
|
|
|
- atime, { time of last access }
|
|
|
- atime_nsec, { nsec of last access }
|
|
|
- mtime, { time of last data modification }
|
|
|
- mtime_nsec, { nsec of last data modification }
|
|
|
- ctime, { time of last file status change }
|
|
|
- ctime_nsec : longint; { nsec of last file status change }
|
|
|
- size, { file size, in bytes }
|
|
|
- blocks : Int64; { blocks allocated for file }
|
|
|
- blksze, { optimal blocksize for I/O }
|
|
|
- flags, { user defined flags for file }
|
|
|
- filegen : cardinal; { file generation number }
|
|
|
- lspare : longint;
|
|
|
- qspare : array[0..1] of int64;
|
|
|
- end;
|
|
|
-
|
|
|
- PStat=^Stat;
|
|
|
- TStat=Stat;
|
|
|
-
|
|
|
- TStatfs = packed record
|
|
|
- spare2, { place holder}
|
|
|
- bsize, { fundamental block size}
|
|
|
- iosize, { optimal block size }
|
|
|
- blocks, { total blocks}
|
|
|
- bfree, { blocks free}
|
|
|
- bavail, { block available for mortal users}
|
|
|
- files, { Total file nodes}
|
|
|
- ffree : longint; { file nodes free}
|
|
|
- fsid : array[0..1] of longint;
|
|
|
- fowner : longint; {mounter uid}
|
|
|
- ftype : longint;
|
|
|
- fflags : longint; {copy of mount flags}
|
|
|
- spare : array [0..1] of longint; { For later use }
|
|
|
- fstypename : array[0..15] of char;
|
|
|
- mountpoint : array[0..89] of char;
|
|
|
- mnfromname : array[0..89] of char;
|
|
|
- end;
|
|
|
- PStatFS=^TStatFS;
|
|
|
-
|
|
|
- fdSet=array[0..7] of longint;{=256 bits}
|
|
|
- pfdset=^fdset;
|
|
|
- TFDSet=fdset;
|
|
|
-
|
|
|
- timeval = packed record
|
|
|
- sec,usec:longint;
|
|
|
- end;
|
|
|
- ptimeval=^timeval;
|
|
|
- TTimeVal=timeval;
|
|
|
-
|
|
|
- timespec = packed record
|
|
|
- tv_sec,tv_nsec:{longint or int64 ?}longint;
|
|
|
- end;
|
|
|
-
|
|
|
- timezone = packed record
|
|
|
- minuteswest,dsttime:longint;
|
|
|
- end;
|
|
|
- ptimezone =^timezone;
|
|
|
- TTimeZone = timezone;
|
|
|
-
|
|
|
- utsname = packed record
|
|
|
- sysname,
|
|
|
- nodename,
|
|
|
- release,
|
|
|
- version,
|
|
|
- machine,
|
|
|
- domainname : Array[0..64] of char;
|
|
|
- end;
|
|
|
- PUTSName=^UTSName;
|
|
|
- TUTSName=UTSName;
|
|
|
-
|
|
|
- ITimerVal= Record
|
|
|
- It_Interval,
|
|
|
- It_Value : TimeVal;
|
|
|
- end;
|
|
|
-
|
|
|
-{
|
|
|
- $Log$
|
|
|
- Revision 1.2 2002-09-07 16:01:17 peter
|
|
|
- * old logs removed and tabs fixed
|
|
|
-
|
|
|
- Revision 1.1 2002/09/06 18:35:59 jonas
|
|
|
- * implemented most syscalls, except readdir because the getdents
|
|
|
- syscall is declared obsolete in Darwin...
|
|
|
-
|
|
|
-}
|
Jonas Maebe