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

vt100 and crt units, some changes in Unix.Mod

Browse source 
Former-commit-id: 7f11185f6a
This commit is contained in:
Norayr Chilingarian 2014-04-11 21:41:49 +04:00
parent 8603eeef82
commit 98bfa994fa
20 changed files with 388 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -332,7 +332,7 @@ from man gettimeofday
PROCEDURE -includeUio()
"#include <sys/uio.h>";
(* for getpid(), lseek(), close(), fsync(), ftruncate(), read() *)
(* for getpid(), lseek(), close(), fsync(), ftruncate(), read(), sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
@ -482,6 +482,11 @@ from man gettimeofday
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : INTEGER): INTEGER
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): INTEGER
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/clang/armv6j/Unix.Mod
View file

@ -234,6 +234,22 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +383,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/clang/armv6j_hardfp/Unix.Mod
View file

@ -234,6 +234,22 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +383,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/clang/armv7a_hardfp/Unix.Mod
View file

@ -234,6 +234,22 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +383,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/clang/powerpc/Unix.Mod
View file

@ -234,6 +234,22 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +383,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/clang/x86/Unix.Mod
View file

@ -234,6 +234,22 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +383,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

15
src/lib/system/linux/clang/x86_64/Unix.Mod
View file

@ -313,7 +313,7 @@ from man gettimeofday
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() *)
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
@ -321,6 +321,14 @@ from man gettimeofday
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -455,6 +463,11 @@ from man gettimeofday
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : INTEGER): INTEGER
"(INTEGER)sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): INTEGER
"(INTEGER)nanosleep(req, rem)";
(* TCP/IP networking *)

22
src/lib/system/linux/gnuc/armv6j/Unix.Mod
View file

@ -234,6 +234,23 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
(* commented, doesn't compile on 32bit GNU/Linux platforms
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
*)
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +384,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

22
src/lib/system/linux/gnuc/armv6j_hardfp/Unix.Mod
View file

@ -234,6 +234,23 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
(* commented, doesn't compile on 32bit GNU/Linux platforms
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
*)
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +384,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

22
src/lib/system/linux/gnuc/armv7a_hardfp/Unix.Mod
View file

@ -234,6 +234,23 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
(* commented, doesn't compile on 32bit GNU/Linux platforms
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
*)
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +384,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

22
src/lib/system/linux/gnuc/powerpc/Unix.Mod
View file

@ -234,6 +234,23 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
(* commented, doesn't compile on 32bit GNU/Linux platforms
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
*)
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +384,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

22
src/lib/system/linux/gnuc/x86/Unix.Mod
View file

@ -234,6 +234,23 @@ TYPE
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
(* commented, doesn't compile on 32bit GNU/Linux platforms
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
*)
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -367,6 +384,11 @@ TYPE
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : LONGINT): LONGINT
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): LONGINT
"nanosleep(req, rem)";
(* TCP/IP networking *)

21
src/lib/system/linux/gnuc/x86_64/Unix.Mod
View file

@ -313,6 +313,22 @@ from man gettimeofday
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() and sleep() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
(* for nanosleep() *)
PROCEDURE -includeTime()
"#include <time.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
PROCEDURE -err(): LONGINT
"errno";
@ -447,6 +463,11 @@ from man gettimeofday
PROCEDURE -Sigsetmask*(mask: LONGINT): LONGINT
"sigsetmask(mask)";
PROCEDURE -Sleep*(ms : INTEGER): INTEGER
"sleep(ms)";
PROCEDURE -Nanosleep*(VAR req : Timeval; VAR rem : Timeval): INTEGER
"nanosleep(req, rem)";
(* TCP/IP networking *)