paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved to unix/

Browse Source
This commit is contained in:
marco 2003-12-30 17:50:00 +00:00
parent 3ff00d31b3
commit 73abd3bd2a
1 changed files with 0 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
rtl/linux/oscdeclh.inc
View File

@ -1,56 +0,0 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2001 by Free Pascal development team
This file should become an alternative to the syscalls in due time,
to import the base calls from libc.
Be very careful though. Kernel types and libc types are often not the
same on Linux.
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.
***********************************************************************}
{ var
Errno : cint; external name 'errno';}
function FpAccess (pathname : pchar; amode : cint): cint; cdecl; external name 'access';
function FpChdir (path : pchar): cint; cdecl; external name 'chdir';
function FpClose (fd : cint): cint; cdecl; external name 'close';
function FpClosedir(var dirp : dir): cint; cdecl; external name 'closedir';
function FpDup (oldd:cint):cint; cdecl; external name 'dup';
function FpDup2 (oldd:cint;newd:cint):cint; cdecl; external name 'dup2';
function FpExecve (path : pchar; argv : ppchar; envp: ppchar): cint; cdecl; external name 'execve';
function FpFork : TPid; cdecl; external name 'fork';
function FpFstat (fd : cint; var sb : stat): cint; cdecl; external name 'fstat';
function FpFtruncate(fd : cint; flength : TOff): cint; cdecl; external name 'ftruncate';
function FpLseek (fd : cint; offset : TOff; whence : cint): TOff; cdecl; external name 'lseek';
function FpMkdir (path : pchar; mode: TMode):cint; cdecl; external name 'mkdir';
function FpOpen (path: pchar; flags : cint; mode: TMode):cint; cdecl; external name 'open';
function FpOpendir (dirname : pchar): pdir; cdecl; external name 'opendir';
function FpRead (fd: cint; buf: pchar; nbytes : TSize): TSSize; cdecl; external name 'read';
function FpReaddir (var dirp : dir) : pdirent;cdecl; external name 'readdir';
function FpRename (old : pchar; newpath: pchar): cint; cdecl;external name 'rename';
function FpRmdir (path : pchar): cint; cdecl; external name 'rmdir';
function FpSigaction(sig: cint; act : psigactionrec; oact : psigactionrec): cint; cdecl; external name 'sigaction';
function FpStat (path: pchar; var buf : stat): cint; cdecl; external name 'stat';
function FpTime (tloc:ptime_t): time_t; cdecl; external name 'time';
function FpUname (var name: utsname): cint; cdecl; external name 'uname';
function FpUnlink (path: pchar): cint; cdecl; external name 'unlink';
function FpWaitpid (pid : TPid; stat_loc : pcint; options: cint): TPid; cdecl; external name 'waitpid';
function FpWrite (fd: cint;buf:pchar; nbytes : TSize): TSSize; cdecl; external name 'write';
procedure FpExit (status : cint); cdecl; external name '_exit';
{
$Log$
Revision 1.1 2002-12-18 16:43:26 marco
* new unix rtl, linux part.....
}