vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 16:52:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

darwin unix.mod update -- noch

Browse source 
Former-commit-id: 749d45d439
This commit is contained in:
Norayr Chilingarian 2015-02-19 18:12:00 +04:00
parent f2e15511a0
commit 50d44e7b62
1 changed files with 50 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

100
src/lib/system/darwin/clang/x86_64/Unix.Mod
View file

@ -348,79 +348,79 @@ from man gettimeofday
PROCEDURE -includeFcntl() PROCEDURE -includeFcntl()
"#include <fcntl.h>"; "#include <fcntl.h>";
PROCEDURE -err(): LONGINT PROCEDURE -err(): INTEGER
"errno"; "errno";
PROCEDURE errno*(): LONGINT; PROCEDURE errno*(): INTEGER;
BEGIN BEGIN
RETURN err() RETURN err()
END errno; END errno;
PROCEDURE -Exit*(n: LONGINT) PROCEDURE -Exit*(n: INTEGER)
"exit(n)"; "exit(n)";
PROCEDURE -Fork*(): LONGINT PROCEDURE -Fork*(): INTEGER
"fork()"; "fork()";
PROCEDURE -Wait*(VAR status: LONGINT): LONGINT PROCEDURE -Wait*(VAR status: INTEGER): INTEGER
"wait(status)"; "wait(status)";
PROCEDURE -Select*(width: LONGINT; VAR readfds, writefds, exceptfds: FdSet; VAR timeout: Timeval): LONGINT PROCEDURE -Select*(width: INTEGER; VAR readfds, writefds, exceptfds: FdSet; VAR timeout: Timeval): INTEGER
"select(width, readfds, writefds, exceptfds, timeout)"; "select(width, readfds, writefds, exceptfds, timeout)";
PROCEDURE -Gettimeofday* (VAR tv: Timeval; VAR tz: Timezone) : LONGINT PROCEDURE -Gettimeofday* (VAR tv: Timeval; VAR tz: Timezone) : INTEGER
"gettimeofday(tv, tz)"; "gettimeofday(tv, tz)";
PROCEDURE -Read* (fd, buf, nbyte: LONGINT): LONGINT PROCEDURE -Read* (fd: INTEGER; buf, nbyte: LONGINT): LONGINT
"read(fd, buf, nbyte)"; "read(fd, buf, nbyte)";
PROCEDURE -ReadBlk* (fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT PROCEDURE -ReadBlk* (fd: INTEGER; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT
"read(fd, buf, buf__len)"; "read(fd, buf, buf__len)";
PROCEDURE -Write* (fd, buf, nbyte: LONGINT): LONGINT PROCEDURE -Write* (fd: INTEGER; buf, nbyte: LONGINT): LONGINT
"write(fd, buf, nbyte)"; "write(fd, buf, nbyte)";
PROCEDURE -WriteBlk* (fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT PROCEDURE -WriteBlk* (fd: INTEGER; VAR buf: ARRAY OF SYSTEM.BYTE): LONGINT
"write(fd, buf, buf__len)"; "write(fd, buf, buf__len)";
PROCEDURE -Dup*(fd: LONGINT): LONGINT PROCEDURE -Dup*(fd: INTEGER): INTEGER
"dup(fd)"; "dup(fd)";
PROCEDURE -Dup2*(fd1, fd2: LONGINT): LONGINT PROCEDURE -Dup2*(fd1, fd2: INTEGER): INTEGER
"dup(fd1, fd2)"; "dup(fd1, fd2)";
PROCEDURE -Pipe*(fds : LONGINT): LONGINT PROCEDURE -Pipe*(fds : LONGINT): INTEGER
"pipe(fds)"; "pipe(fds)";
PROCEDURE -Getpid*(): LONGINT PROCEDURE -Getpid*(): INTEGER
"getpid()"; "getpid()";
PROCEDURE -Getuid*(): LONGINT PROCEDURE -Getuid*(): INTEGER
"getuid()"; "getuid()";
PROCEDURE -Geteuid*(): LONGINT PROCEDURE -Geteuid*(): INTEGER
"geteuid()"; "geteuid()";
PROCEDURE -Getgid*(): LONGINT PROCEDURE -Getgid*(): INTEGER
"getgid()"; "getgid()";
PROCEDURE -Getegid*(): LONGINT PROCEDURE -Getegid*(): INTEGER
"getegid()"; "getegid()";
PROCEDURE -Unlink*(name: Name): LONGINT PROCEDURE -Unlink*(name: Name): INTEGER
"unlink(name)"; "unlink(name)";
PROCEDURE -Open*(name: Name; flag, mode: SET): LONGINT PROCEDURE -Open*(name: Name; flag: INTEGER; mode: LONGINT): INTEGER
"open(name, flag, mode)"; "open(name, flag, mode)";
PROCEDURE -Close*(fd: LONGINT): LONGINT PROCEDURE -Close*(fd: INTEGER): INTEGER
"close(fd)"; "close(fd)";
PROCEDURE -stat(name: Name; VAR statbuf: Status): LONGINT PROCEDURE -stat(name: Name; VAR statbuf: Status): INTEGER
"stat((const char*)name, (struct stat*)statbuf)"; "stat((const char*)name, (struct stat*)statbuf)";
PROCEDURE Stat*(name: Name; VAR statbuf: Status): LONGINT; PROCEDURE Stat*(name: Name; VAR statbuf: Status): INTEGER;
VAR res: LONGINT; VAR res: INTEGER;
BEGIN BEGIN
res := stat(name, statbuf); res := stat(name, statbuf);
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *) (* make the first 4 bytes as unique as possible (used in module Files for caching!) *)
@ -430,11 +430,11 @@ from man gettimeofday
RETURN res; RETURN res;
END Stat; END Stat;
PROCEDURE -fstat(fd: LONGINT; VAR statbuf: Status): LONGINT PROCEDURE -fstat(fd: INTEGER; VAR statbuf: Status): INTEGER
"fstat(fd, (struct stat*)statbuf)"; "fstat(fd, (struct stat*)statbuf)";
PROCEDURE Fstat*(fd: LONGINT; VAR statbuf: Status): LONGINT; PROCEDURE Fstat*(fd: INTEGER; VAR statbuf: Status): INTEGER;
VAR res: LONGINT; VAR res: INTEGER;
BEGIN BEGIN
res := fstat(fd, statbuf); res := fstat(fd, statbuf);
(* make the first 4 bytes as unique as possible (used in module Files for caching!) *) (* make the first 4 bytes as unique as possible (used in module Files for caching!) *)
@ -443,43 +443,43 @@ from man gettimeofday
RETURN res; RETURN res;
END Fstat; END Fstat;
PROCEDURE -Fchmod*(fd, mode: LONGINT): LONGINT PROCEDURE -Fchmod*(fd, mode: INTEGER): INTEGER
"fchmod(fd, mode)"; "fchmod(fd, mode)";
PROCEDURE -Chmod*(path: Name; mode: LONGINT): LONGINT PROCEDURE -Chmod*(path: Name; mode: INTEGER): INTEGER
"chmod(path, mode)"; "chmod(path, mode)";
PROCEDURE -Lseek*(fd, offset, origin: LONGINT): LONGINT PROCEDURE -Lseek*(fd: INTEGER; offset: LONGINT; origin: INTEGER): LONGINT
"lseek(fd, offset, origin)"; "lseek(fd, offset, origin)";
PROCEDURE -Fsync*(fd: LONGINT): LONGINT PROCEDURE -Fsync*(fd: INTEGER): INTEGER
"fsync(fd)"; "fsync(fd)";
PROCEDURE -Fcntl*(fd, cmd, arg: LONGINT ): LONGINT PROCEDURE -Fcntl*(fd: INTEGER; cmd: INTEGER; arg: LONGINT ): INTEGER
"fcntl(fd, cmd, arg)"; "fcntl(fd, cmd, arg)";
PROCEDURE -Flock*(fd, operation: LONGINT): LONGINT PROCEDURE -Flock*(fd, operation: INTEGER): INTEGER
"flock(fd, operation)"; "flock(fd, operation)";
PROCEDURE -Ftruncate*(fd, length: LONGINT): LONGINT PROCEDURE -Ftruncate*(fd: INTEGER; length: LONGINT): INTEGER
"ftruncate(fd, length)"; "ftruncate(fd, length)";
PROCEDURE -Readblk*(fd: LONGINT; VAR buf: ARRAY OF SYSTEM.BYTE; len: LONGINT): LONGINT PROCEDURE -Readblk*(fd: INTEGER; VAR buf: ARRAY OF SYSTEM.BYTE; len: LONGINT): LONGINT
"read(fd, buf, len)"; "read(fd, buf, len)";
PROCEDURE -Rename*(old, new: Name): LONGINT PROCEDURE -Rename*(old, new: Name): INTEGER
"rename(old, new)"; "rename(old, new)";
PROCEDURE -Chdir*(path: Name): LONGINT PROCEDURE -Chdir*(path: Name): INTEGER
"chdir(path)"; "chdir(path)";
PROCEDURE -Ioctl*(fd, request, arg: LONGINT): LONGINT PROCEDURE -Ioctl*(fd: INTEGER; request, arg: LONGINT): LONGINT
"ioctl(fd, request, arg)"; "ioctl(fd, request, arg)";
PROCEDURE -Kill*(pid, sig: LONGINT): LONGINT PROCEDURE -Kill*(pid, sig: INTEGER): INTEGER
"kill(pid, sig)"; "kill(pid, sig)";
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT PROCEDURE -Sigsetmask*(mask: INTEGER): INTEGER
"sigsetmask(mask)"; "sigsetmask(mask)";
PROCEDURE -Sleep*(ms : INTEGER): INTEGER PROCEDURE -Sleep*(ms : INTEGER): INTEGER
@ -493,31 +493,31 @@ from man gettimeofday
PROCEDURE -Gethostbyname*(name: Name): HostEntry PROCEDURE -Gethostbyname*(name: Name): HostEntry
"(Unix_HostEntry)gethostbyname(name)"; "(Unix_HostEntry)gethostbyname(name)";
PROCEDURE -Gethostname*(VAR name: Name): LONGINT PROCEDURE -Gethostname*(VAR name: Name): INTEGER
"gethostname(name, name__len)"; "gethostname(name, name__len)";
PROCEDURE -Socket*(af, type, protocol: LONGINT): LONGINT PROCEDURE -Socket*(af, type, protocol: INTEGER): INTEGER
"socket(af, type, protocol)"; "socket(af, type, protocol)";
PROCEDURE -Connect*(socket: LONGINT; name: Sockaddr; namelen: LONGINT): LONGINT PROCEDURE -Connect*(socket: INTEGER; name: Sockaddr; namelen: INTEGER): INTEGER
"connect(socket, &(name), namelen)"; "connect(socket, &(name), namelen)";
PROCEDURE -Getsockname*(socket: LONGINT; VAR name: Sockaddr; VAR namelen: LONGINT): LONGINT PROCEDURE -Getsockname*(socket: INTEGER; VAR name: Sockaddr; VAR namelen: INTEGER): INTEGER
"getsockname(socket, name, namelen)"; "getsockname(socket, name, namelen)";
PROCEDURE -Bind*(socket: LONGINT; name: Sockaddr; namelen: LONGINT): LONGINT PROCEDURE -Bind*(socket: INTEGER; name: Sockaddr; namelen: INTEGER): INTEGER
"bind(socket, &(name), namelen)"; "bind(socket, &(name), namelen)";
PROCEDURE -Listen*(socket, backlog: LONGINT): LONGINT PROCEDURE -Listen*(socket, backlog: INTEGER): INTEGER
"listen(socket, backlog)"; "listen(socket, backlog)";
PROCEDURE -Accept*(socket: LONGINT; VAR addr: Sockaddr; VAR addrlen: LONGINT): LONGINT PROCEDURE -Accept*(socket: INTEGER; VAR addr: Sockaddr; VAR addrlen: INTEGER): LONGINT
"accept(socket, addr, addrlen)"; "accept(socket, addr, addrlen)";
PROCEDURE -Recv*(socket, bufadr, buflen, flags: LONGINT): LONGINT PROCEDURE -Recv*(socket: INTEGER; bufadr, buflen: LONGINT; flags: INTEGER): LONGINT
"recv(socket, bufadr, buflen, flags)"; "recv(socket, bufadr, buflen, flags)";
PROCEDURE -Send*(socket, bufadr, buflen, flags: LONGINT): LONGINT PROCEDURE -Send*(socket: INTEGER; bufadr, buflen: LONGINT; flags: INTEGER): LONGINT
"send(socket, bufadr, buflen, flags)"; "send(socket, bufadr, buflen, flags)";
PROCEDURE -sys(str: ARRAY OF CHAR): INTEGER (* need this to call external tools like gcc or gas; noch *) PROCEDURE -sys(str: ARRAY OF CHAR): INTEGER (* need this to call external tools like gcc or gas; noch *)