2
0

Libc.txt 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785
  1. MODULE LinLibc ["libc.so.66.0"];
  2. (*
  3. A. V. Shiryaev, 2012.09
  4. Based on Linux' LinLibc (OpenBUGS Lin/Mod/Libc.odc)
  5. OpenBSD 5.2
  6. 32-bit
  7. *)
  8. IMPORT SYSTEM;
  9. CONST
  10. NULL* = 0H;
  11. TRUE* = 1;
  12. FALSE* = 0;
  13. (* file constants *)
  14. SEEK_SET* = 0;
  15. SEEK_CUR* = 1;
  16. SEEK_END* = 2;
  17. NAME_MAX* = 255; (* OpenBSD /usr/include/sys/syslimits.h *)
  18. (* The value of CLOCKS_PER_SEC is required to be 1 million on all XSI-conformant systems.*)
  19. CLOCKS_PER_SEC* = 100; (* OpenBSD 5.2 /usr/include/time.h CLOCKS_PER_SEC *)
  20. (* temp directory defined in stdio.h *)
  21. P_tmpdir* = "/tmp";
  22. (* signal constants *) (* Fake signal functions. *)
  23. (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  24. SIG_ERR* = -1; (* Error return. *)
  25. SIG_DFL* = 0; (* Default action. *)
  26. SIG_IGN* = 1; (* Ignore signal. *)
  27. SIG_HOLD* = 3; (* Add signal to hold mask. *) (* OpenBSD 5.2 /usr/include/sys/signalvar.h *)
  28. (* Signals. *)
  29. (* OpenBSD /usr/include/sys/signal.h *)
  30. _NSIG* = 33; (* counting 0 (mask is 1-32) *)
  31. SIGHUP* = 1; (* hangup *)
  32. SIGINT* = 2; (* interrupt *)
  33. SIGQUIT* = 3; (* quit *)
  34. SIGILL* = 4; (* illegal instruction (not reset when caught) *)
  35. SIGTRAP* = 5; (* trace trap (not reset when caught) *)
  36. SIGABRT* = 6; (* abort() *)
  37. SIGFPE* = 8; (* floating point exception *)
  38. SIGKILL* = 9; (* kill (cannot be caught or ignored) *)
  39. SIGBUS* = 10; (* bus error *)
  40. SIGSEGV* = 11; (* segmentation violation *)
  41. SIGSYS* = 12; (* bad argument to system call *)
  42. SIGPIPE* = 13; (* write on a pipe with no one to read it *)
  43. SIGALRM* = 14; (* alarm clock *)
  44. SIGTERM* = 15; (* software termination signal from kill *)
  45. SIGURG* = 16; (* urgent condition on IO channel *)
  46. SIGSTOP* = 17; (* sendable stop signal not from tty *)
  47. SIGTSTP* = 18; (* stop signal from tty *)
  48. SIGCONT* = 19; (* continue a stopped process *)
  49. SIGCHLD* = 20; (* to parent on child stop or exit *)
  50. SIGTTIN* = 21; (* to readers pgrp upon background tty read *)
  51. SIGTTOU* = 22; (* like TTIN for output if (tp->t_local&LTOSTOP) *)
  52. SIGXCPU* = 24; (* exceeded CPU time limit *)
  53. SIGXFSZ* = 25; (* exceeded file size limit *)
  54. SIGVTALRM* = 26; (* virtual time alarm *)
  55. SIGPROF* = 27; (* profiling time alarm *)
  56. SIGUSR1* = 30; (* user defined signal 1 *)
  57. SIGUSR2* = 31; (* user defined signal 2 *)
  58. SIGWINCH* = 28; (* window size changes *)
  59. SIGTHR* = 32; (* thread library AST *)
  60. (* Bits in `sa_flags'. *)
  61. SA_NOCLDSTOP* = {3}; (* = 1 Don't send SIGCHLD when children stop. *) (* OpenBSD *)
  62. SA_NOCLDWAIT* = {5}; (* = 2 Don't create zombie on child death. *) (* OpenBSD *)
  63. SA_SIGINFO* = {6}; (* = 4 Invoke signal-catching function wth three arguments instead of one. *) (* OpenBSD *)
  64. SA_ONSTACK* = {0}; (* = 0x08000000 Use signal stack by using `sa_restorer'. *) (* OpenBSD *)
  65. SA_RESTART* = {1}; (* = 0x10000000 Restart syscall on signal return. *) (* OpenBSD *)
  66. SA_NODEFER* = {4}; (* = 0x40000000 Don't automatically block the signal when its handler is being executed. *) (* OpenBSD *)
  67. SA_RESETHAND* = {2}; (* = 0x80000000 Reset to SIG_DFL on entry to handler. *) (* OpenBSD *)
  68. (* SA_INTERRUPT* = {29}; (* = 0x20000000 Historical no-op. *) *) (* OpenBSD *)
  69. (* Some aliases for the SA_ constants. *)
  70. SA_NOMASK* = SA_NODEFER;
  71. SA_ONESHOT* = SA_RESETHAND;
  72. SA_STACK* = SA_ONSTACK;
  73. (* code values for siginfo_t.si_code *)
  74. (* OpenBSD /usr/include/sys/siginfo.h *)
  75. FPE_INTDIV* = 1; (* integer divide by zero *)
  76. FPE_INTOVF* = 2; (* integer overflow *)
  77. FPE_FLTDIV* = 3; (* floating point divide by zero *)
  78. FPE_FLTOVF* = 4; (* floating point overflow *)
  79. FPE_FLTUND* = 5; (* floating point underflow *)
  80. FPE_FLTRES* = 6; (* floating point inexact result *)
  81. FPE_FLTINV* = 7; (* invalid floating point operation *)
  82. FPE_FLTSUB* = 8; (* subscript out of range *)
  83. ILL_ILLOPC* = 1; (* illegal opcode *)
  84. ILL_ILLOPN* = 2; (* illegal operand *)
  85. ILL_ILLADR* = 3; (* illegal addressing mode *)
  86. ILL_ILLTRP* = 4; (* illegal trap *)
  87. ILL_PRVOPC* = 5; (* privileged opcode *)
  88. ILL_PRVREG* = 6; (* privileged register *)
  89. ILL_COPROC* = 7; (* co-processor *)
  90. ILL_BADSTK* = 8; (* bad stack *)
  91. SEGV_MAPERR* = 1; (* address not mapped to object *)
  92. SEGV_ACCERR* = 2; (* invalid permissions *)
  93. BUS_ADRALN* = 1; (* invalid address alignment *)
  94. BUS_ADRERR* = 2; (* non-existent physical address *)
  95. BUS_OBJERR* = 3; (* object specific hardware error *)
  96. (* possible error constants for errno *)
  97. (* OpenBSD /usr/include/sys/errno.h *)
  98. EPERM* = 1; (* Operation not permitted *)
  99. ENOENT* = 2; (* No such file or directory *)
  100. ESRCH* = 3; (* No such process *)
  101. EINTR* = 4; (* Interrupted system call *)
  102. EIO* = 5; (* Input/output error *)
  103. ENXIO* = 6; (* Device not configured *)
  104. E2BIG* = 7; (* Argument list too long *)
  105. ENOEXEC* = 8; (* Exec format error *)
  106. EBADF* = 9; (* Bad file descriptor *)
  107. ECHILD* = 10; (* No child processes *)
  108. EDEADLK* = 11; (* Resource deadlock avoided *)
  109. ENOMEM* = 12; (* Cannot allocate memory *)
  110. EACCES* = 13; (* Permission denied *)
  111. EFAULT* = 14; (* Bad address *)
  112. EBUSY* = 16; (* Device busy *)
  113. EEXIST* = 17; (* File exists *)
  114. EXDEV* = 18; (* Cross-device link *)
  115. ENODEV* = 19; (* Operation not supported by device *)
  116. ENOTDIR* = 20; (* Not a directory *)
  117. EISDIR* = 21; (* Is a directory *)
  118. EINVAL* = 22; (* Invalid argument *)
  119. ENFILE* = 23; (* Too many open files in system *)
  120. EMFILE* = 24; (* Too many open files *)
  121. ENOTTY* = 25; (* Inappropriate ioctl for device *)
  122. ETXTBSY* = 26; (* Text file busy *)
  123. EFBIG* = 27; (* File too large *)
  124. ENOSPC* = 28; (* No space left on device *)
  125. ESPIPE* = 29; (* Illegal seek *)
  126. EROFS* = 30; (* Read-only file system *)
  127. EMLINK* = 31; (* Too many links *)
  128. EPIPE* = 32; (* Broken pipe *)
  129. EDOM* = 33; (* Numerical argument out of domain *)
  130. ERANGE* = 34; (* Result too large *)
  131. EAGAIN* = 35; (* Resource temporarily unavailable *)
  132. EWOULDBLOCK* = EAGAIN; (* Operation would block *)
  133. EINPROGRESS* = 36; (* Operation now in progress *)
  134. EALREADY* = 37; (* Operation already in progress *)
  135. ENOTSOCK* = 38; (* Socket operation on non-socket *)
  136. EDESTADDRREQ* = 39; (* Destination address required *)
  137. EMSGSIZE* = 40; (* Message too long *)
  138. EPROTOTYPE* = 41; (* Protocol wrong type for socket *)
  139. ENOPROTOOPT* = 42; (* Protocol not available *)
  140. EPROTONOSUPPORT* = 43; (* Protocol not supported *)
  141. EOPNOTSUPP* = 45; (* Operation not supported *)
  142. EAFNOSUPPORT* = 47; (* Address family not supported by protocol family *)
  143. EADDRINUSE* = 48; (* Address already in use *)
  144. EADDRNOTAVAIL* = 49; (* Can't assign requested address *)
  145. ENETDOWN* = 50; (* Network is down *)
  146. ENETUNREACH* = 51; (* Network is unreachable *)
  147. ENETRESET* = 52; (* Network dropped connection on reset *)
  148. ECONNABORTED* = 53; (* Software caused connection abort *)
  149. ECONNRESET* = 54; (* Connection reset by peer *)
  150. ENOBUFS* = 55; (* No buffer space available *)
  151. EISCONN* = 56; (* Socket is already connected *)
  152. ENOTCONN* = 57; (* Socket is not connected *)
  153. ETIMEDOUT* = 60; (* Operation timed out *)
  154. ECONNREFUSED* = 61; (* Connection refused *)
  155. ELOOP* = 62; (* Too many levels of symbolic links *)
  156. ENAMETOOLONG* = 63; (* File name too long *)
  157. ENOTEMPTY* = 66; (* Directory not empty *)
  158. EDQUOT* = 69; (* Disk quota exceeded *)
  159. ESTALE* = 70; (* Stale NFS file handle *)
  160. ENOLCK* = 77; (* No locks available *)
  161. ENOSYS* = 78; (* Function not implemented *)
  162. EILSEQ* = 84; (* Illegal byte sequence *)
  163. EIDRM* = 89; (* Identifier removed *)
  164. ENOMSG* = 90; (* No message of desired type *)
  165. ENOTSUP* = 91; (* Not supported *)
  166. (* OpenBSD 5.2 /usr/include/i386/setjmp.h *)
  167. _JBLEN = 10;
  168. (* OpenBSD 5.2 /usr/include/sys/mman.h *)
  169. PROT_NONE* = {}; (* no permission *)
  170. PROT_READ* = {0}; (* pages can be read *)
  171. PROT_WRITE* = {1}; (* pages can be written *)
  172. PROT_EXEC* = {2}; (* pages can be executed *)
  173. (* OpenBSD 5.2 /usr/include/sys/mman.h *)
  174. MAP_FILE* = {}; (* map from file (default) *)
  175. MAP_ANON* = {12}; (* allocated from memory, swap space *)
  176. MAP_FIXED* = {4}; (* map addr must be exactly as requested *)
  177. MAP_HASSEMAPHORE* = {9}; (* region may contain semaphores *)
  178. MAP_INHERIT* = {7}; (* region is retained after exec *)
  179. MAP_PRIVATE* = {1}; (* changes are private *)
  180. MAP_SHARED* = {0}; (* share changes *)
  181. MAP_TRYFIXED* = {10}; (* attempt hint address, even within heap *)
  182. MAP_COPY* = {2}; (* "copy" region at mmap time *)
  183. MAP_FAILED* = -1;
  184. (* OpenBSD 5.2 /usr/include/i386/param.h *)
  185. PAGE_SHIFT* = 12;
  186. PAGE_SIZE* = 4096; (* LSL(1, PAGE_SHIFT) *)
  187. PAGE_MASK* = PAGE_SIZE - 1;
  188. (* OpenBSD 5.2: /usr/include/fcntl.h *)
  189. O_RDONLY* = {};
  190. O_WRONLY* = {0};
  191. O_RDWR* = {1};
  192. O_ACCMODE* = {0,1};
  193. O_NONBLOCK* = {2}; (* Do not block on open or for data to become available *)
  194. O_APPEND* = {3}; (* Append on each write *)
  195. O_CREAT* = {9}; (* Create file if it does not exist *)
  196. O_TRUNC* = {10}; (* Truncate size to 0 *)
  197. O_EXCL* = {11}; (* Error if create and file exists *)
  198. O_SYNC* = {7}; (* Perform synchronous I/O operations *)
  199. O_SHLOCK* = {4}; (* Atomically obtain a shared lock *)
  200. O_EXLOCK* = {5}; (* Atomically obtain an exclusive lock *)
  201. O_NOFOLLOW* = {8}; (* If last path element is a symlink, don't follow it *)
  202. O_CLOEXEC* = {16}; (* Set FD_CLOEXEC on the new file descriptor *)
  203. O_DIRECTORY* = {17}; (* Error if path does not name a directory *)
  204. (* OpenBSD 5.2 /usr/include/unistd.h *)
  205. _SC_ARG_MAX* = 1;
  206. _SC_CHILD_MAX* = 2;
  207. _SC_CLK_TCK* = 3;
  208. _SC_NGROUPS_MAX* = 4;
  209. _SC_OPEN_MAX* = 5;
  210. _SC_JOB_CONTROL* = 6;
  211. _SC_SAVED_IDS* = 7;
  212. _SC_VERSION* = 8;
  213. _SC_BC_BASE_MAX* = 9;
  214. _SC_BC_DIM_MAX* = 10;
  215. _SC_BC_SCALE_MAX* = 11;
  216. _SC_BC_STRING_MAX* = 12;
  217. _SC_COLL_WEIGHTS_MAX* = 13;
  218. _SC_EXPR_NEST_MAX* = 14;
  219. _SC_LINE_MAX* = 15;
  220. _SC_RE_DUP_MAX* = 16;
  221. _SC_2_VERSION* = 17;
  222. _SC_2_C_BIND* = 18;
  223. _SC_2_C_DEV* = 19;
  224. _SC_2_CHAR_TERM* = 20;
  225. _SC_2_FORT_DEV* = 21;
  226. _SC_2_FORT_RUN* = 22;
  227. _SC_2_LOCALEDEF* = 23;
  228. _SC_2_SW_DEV* = 24;
  229. _SC_2_UPE* = 25;
  230. _SC_STREAM_MAX* = 26;
  231. _SC_TZNAME_MAX* = 27;
  232. _SC_PAGESIZE* = 28;
  233. _SC_PAGE_SIZE* = _SC_PAGESIZE; (* 1170 compatibility *)
  234. _SC_FSYNC* = 29;
  235. _SC_XOPEN_SHM* = 30;
  236. _SC_SEM_NSEMS_MAX* = 31;
  237. _SC_SEM_VALUE_MAX* = 32;
  238. _SC_HOST_NAME_MAX* = 33;
  239. _SC_MONOTONIC_CLOCK* = 34;
  240. _SC_2_PBS* = 35;
  241. _SC_2_PBS_ACCOUNTING* = 36;
  242. _SC_2_PBS_CHECKPOINT* = 37;
  243. _SC_2_PBS_LOCATE* = 38;
  244. _SC_2_PBS_MESSAGE* = 39;
  245. _SC_2_PBS_TRACK* = 40;
  246. _SC_ADVISORY_INFO* = 41;
  247. _SC_AIO_LISTIO_MAX* = 42;
  248. _SC_AIO_MAX* = 43;
  249. _SC_AIO_PRIO_DELTA_MAX* = 44;
  250. _SC_ASYNCHRONOUS_IO* = 45;
  251. _SC_ATEXIT_MAX* = 46;
  252. _SC_BARRIERS* = 47;
  253. _SC_CLOCK_SELECTION* = 48;
  254. _SC_CPUTIME* = 49;
  255. _SC_DELAYTIMER_MAX* = 50;
  256. _SC_IOV_MAX* = 51;
  257. _SC_IPV6* = 52;
  258. _SC_MAPPED_FILES* = 53;
  259. _SC_MEMLOCK* = 54;
  260. _SC_MEMLOCK_RANGE* = 55;
  261. _SC_MEMORY_PROTECTION* = 56;
  262. _SC_MESSAGE_PASSING* = 57;
  263. _SC_MQ_OPEN_MAX* = 58;
  264. _SC_MQ_PRIO_MAX* = 59;
  265. _SC_PRIORITIZED_IO* = 60;
  266. _SC_PRIORITY_SCHEDULING* = 61;
  267. _SC_RAW_SOCKETS* = 62;
  268. _SC_READER_WRITER_LOCKS* = 63;
  269. _SC_REALTIME_SIGNALS* = 64;
  270. _SC_REGEXP* = 65;
  271. _SC_RTSIG_MAX* = 66;
  272. _SC_SEMAPHORES* = 67;
  273. _SC_SHARED_MEMORY_OBJECTS* = 68;
  274. _SC_SHELL* = 69;
  275. _SC_SIGQUEUE_MAX* = 70;
  276. _SC_SPAWN* = 71;
  277. _SC_SPIN_LOCKS* = 72;
  278. _SC_SPORADIC_SERVER* = 73;
  279. _SC_SS_REPL_MAX* = 74;
  280. _SC_SYNCHRONIZED_IO* = 75;
  281. _SC_SYMLOOP_MAX* = 76;
  282. _SC_THREAD_ATTR_STACKADDR* = 77;
  283. _SC_THREAD_ATTR_STACKSIZE* = 78;
  284. _SC_THREAD_CPUTIME* = 79;
  285. _SC_THREAD_DESTRUCTOR_ITERATIONS* = 80;
  286. _SC_THREAD_KEYS_MAX* = 81;
  287. _SC_THREAD_PRIO_INHERIT* = 82;
  288. _SC_THREAD_PRIO_PROTECT* = 83;
  289. _SC_THREAD_PRIORITY_SCHEDULING* = 84;
  290. _SC_THREAD_PROCESS_SHARED* = 85;
  291. _SC_THREAD_ROBUST_PRIO_INHERIT* = 86;
  292. _SC_THREAD_ROBUST_PRIO_PROTECT* = 87;
  293. _SC_THREAD_SPORADIC_SERVER* = 88;
  294. _SC_THREAD_STACK_MIN* = 89;
  295. _SC_THREAD_THREADS_MAX* = 90;
  296. _SC_THREADS* = 91;
  297. _SC_TIMEOUTS* = 92;
  298. _SC_TIMER_MAX* = 93;
  299. _SC_TIMERS* = 94;
  300. _SC_TRACE* = 95;
  301. _SC_TRACE_EVENT_FILTER* = 96;
  302. _SC_TRACE_EVENT_NAME_MAX* = 97;
  303. _SC_TRACE_INHERIT* = 98;
  304. _SC_TRACE_LOG* = 99;
  305. _SC_GETGR_R_SIZE_MAX* = 100;
  306. _SC_GETPW_R_SIZE_MAX* = 101;
  307. _SC_LOGIN_NAME_MAX* = 102;
  308. _SC_THREAD_SAFE_FUNCTIONS* = 103;
  309. _SC_TRACE_NAME_MAX* = 104;
  310. _SC_TRACE_SYS_MAX* = 105;
  311. _SC_TRACE_USER_EVENT_MAX* = 106;
  312. _SC_TTY_NAME_MAX* = 107;
  313. _SC_TYPED_MEMORY_OBJECTS* = 108;
  314. _SC_V6_ILP32_OFF32* = 109;
  315. _SC_V6_ILP32_OFFBIG* = 110;
  316. _SC_V6_LP64_OFF64* = 111;
  317. _SC_V6_LPBIG_OFFBIG* = 112;
  318. _SC_V7_ILP32_OFF32* = 113;
  319. _SC_V7_ILP32_OFFBIG* = 114;
  320. _SC_V7_LP64_OFF64* = 115;
  321. _SC_V7_LPBIG_OFFBIG* = 116;
  322. _SC_XOPEN_CRYPT* = 117;
  323. _SC_XOPEN_ENH_I18N* = 118;
  324. _SC_XOPEN_LEGACY* = 119;
  325. _SC_XOPEN_REALTIME* = 120;
  326. _SC_XOPEN_REALTIME_THREADS* = 121;
  327. _SC_XOPEN_STREAMS* = 122;
  328. _SC_XOPEN_UNIX* = 123;
  329. _SC_XOPEN_UUCP* = 124;
  330. _SC_XOPEN_VERSION* = 125;
  331. _SC_PHYS_PAGES* = 500;
  332. _SC_AVPHYS_PAGES* = 501;
  333. _SC_NPROCESSORS_CONF* = 502;
  334. _SC_NPROCESSORS_ONLN* = 503;
  335. (* OpenBSD 5.2 /usr/include/sys/mman.h *)
  336. POSIX_MADV_NORMAL* = 0; (* no further special treatment *)
  337. POSIX_MADV_RANDOM* = 1; (* expect random page references *)
  338. POSIX_MADV_SEQUENTIAL* = 2; (* expect sequential page references *)
  339. POSIX_MADV_WILLNEED* = 3; (* will need these pages *)
  340. POSIX_MADV_DONTNEED* = 4; (* don't need these pages *)
  341. MADV_SPACEAVAIL* = 5; (* insure that resources are reserved *)
  342. MADV_FREE* = 6; (* pages are empty, free them *)
  343. MADV_NORMAL* = POSIX_MADV_NORMAL;
  344. MADV_RANDOM* = POSIX_MADV_RANDOM;
  345. MADV_SEQUENTIAL* = POSIX_MADV_SEQUENTIAL;
  346. MADV_WILLNEED* = POSIX_MADV_WILLNEED;
  347. MADV_DONTNEED* = POSIX_MADV_DONTNEED;
  348. (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  349. MINSIGSTKSZ* = 8192; (* minimum allowable stack *)
  350. SIGSTKSZ* = MINSIGSTKSZ + 32768; (* recommended stack size *)
  351. (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  352. SIG_BLOCK* = 1; (* block specified signal set *)
  353. SIG_UNBLOCK* = 2; (* unblock specified signal set *)
  354. SIG_SETMASK* = 3; (* set specified signal set *)
  355. TYPE
  356. (* OpenBSD OK *)
  357. __ftw_func_t* = PROCEDURE (fileName: PtrSTR; VAR [nil] stat: stat_t; flag: INTEGER): INTEGER; (* OpenBSD 5.2: OK *)
  358. PtrVoid* = INTEGER;
  359. PtrSTR* = POINTER TO ARRAY [untagged] OF SHORTCHAR;
  360. (* PtrWSTR* = POINTER TO ARRAY [untagged] OF CHAR; *)
  361. PtrInt* = INTEGER;
  362. StrArray* = POINTER TO ARRAY [untagged] OF PtrSTR;
  363. PtrFILE* = INTEGER;
  364. PtrDIR* = INTEGER;
  365. PtrProc* = INTEGER;
  366. clock_t* = INTEGER; (* OpenBSD 5.2 /usr/include/i386/_types.h: 32-bit *)
  367. (* jmp_buf* = ARRAY [untagged] 6 OF INTEGER; (* bx, si, di, bp, sp, pc *) *)
  368. jmp_buf* = ARRAY [untagged] _JBLEN OF INTEGER; (* OpenBSD 5.2 *)
  369. mode_t* = SET; (* OpenBSD 5.2: 32-bit *)
  370. off_t* = LONGINT; (* OpenBSD 5.2: 64-bit *)
  371. SelectorFunc* = PROCEDURE (dirent: Dirent): INTEGER; (* OpenBSD 5.2: OK *)
  372. CmpFunc* = PROCEDURE (VAR [nil] dirent1, dirent2: PtrDirent): INTEGER; (* OpenBSD 5.2: OK *)
  373. size_t* = INTEGER; (* should be unsigned int *) (* OpenBSD 5.2: /usr/include/i386/_types.h: 32-bit *)
  374. ssize_t* = INTEGER; (* signed int *) (* OpenBSD 5.2: /usr/include/i386/_types.h: 32-bit *)
  375. sigjmp_buf* = RECORD [untagged] (* OpenBSD 5.2 *)
  376. buf*: jmp_buf;
  377. (* mask_was_saved*: INTEGER;
  378. saved_mask*: sigset_t; *) (* OpenBSD *)
  379. xxx: INTEGER;
  380. END;
  381. PtrDirent* = POINTER TO Dirent;
  382. PtrDirentArray* = POINTER TO ARRAY [untagged] OF Dirent;
  383. Dirent* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/sys/dirent.h *)
  384. (*
  385. d_ino*: INTEGER; (* inode number *)
  386. d_off*: off_t; (* offset to this dirent *)
  387. d_reclen*: SHORTINT; (* length of this d_name *)
  388. d_type*: BYTE;
  389. d_name*: ARRAY[untagged] NAME_MAX+1 OF SHORTCHAR; (* file name (null-terminated) *)
  390. *)
  391. d_fileno*: INTEGER;
  392. d_reclen*: SHORTINT;
  393. d_type*: BYTE;
  394. d_namlen*: BYTE;
  395. d_name*: ARRAY [untagged] NAME_MAX + 1 (* 256 *) OF SHORTCHAR;
  396. END;
  397. pid_t* = INTEGER; (* OpenBSD 5.2: 32-bit *)
  398. uid_t* = INTEGER; (* OpenBSD 5.2: 32-bit *)
  399. sigval_t* = INTEGER; (* OpenBSD: 32-bit (union sigval) *)
  400. siginfo_t* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/sys/siginfo.h *)
  401. si_signo*: INTEGER; (* Signal number *) (* OpenBSD: 32-bit *)
  402. si_code*: INTEGER; (* Signal code *) (* OpenBSD: 32-bit *)
  403. si_errno*: INTEGER; (* An errno value *) (* OpenBSD: 32-bit *)
  404. (* OpenBSD 5.2: 29 * 4 B below *)
  405. si_pid*: pid_t; (* Sending process ID *)
  406. si_uid*: uid_t; (* Real user ID of sending process *)
  407. si_status*: INTEGER; (* Exit value or signal *) (* OpenBSD 5.2: 32-bit *)
  408. (* si_utime*: clock_t; (* User time consumed *) *) (* OpenBSD: XXX *)
  409. si_stime*: clock_t; (* System time consumed *)
  410. (* si_value*: sigval_t; (* Signal value *) *) (* OpenBSD: XXX *)
  411. (* si_int*: INTEGER; (* POSIX.1b signal *) *) (* OpenBSD: XXX *)
  412. (* si_ptr*: PtrVoid; (* POSIX.1b signal *) *) (* OpenBSD: XXX *)
  413. (* si_addr*: PtrVoid; (* Memory location which caused fault *) *) (* OpenBSD: XXX *)
  414. (* si_band*: INTEGER; (* Band event *) *) (* OpenBSD: XXX *)
  415. (* si_fd*: INTEGER; (* File descriptor *) *) (* OpenBSD: XXX *)
  416. xxx: ARRAY [untagged] 25 OF INTEGER; (* OpenBSD *)
  417. END;
  418. Ptrsiginfo_t* = POINTER TO siginfo_t;
  419. (* sigset_t* = ARRAY [untagged] 128 OF BYTE; *)
  420. (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  421. (* sigset_t* = ARRAY [untagged] 4 OF BYTE; *)
  422. sigset_t* = SET;
  423. Ptrsigset_t* = INTEGER;
  424. sigaction_t* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  425. sa_sigaction*: PROCEDURE [ccall] (sig: INTEGER; siginfo: Ptrsiginfo_t; ptr: Ptrucontext_t); (* union with sa_handler*: PtrProc;*)
  426. sa_mask*: sigset_t;
  427. sa_flags*: SET;
  428. (* sa_restorer*: LONGINT; *) (* OpenBSD *)
  429. END;
  430. stack_t* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/sys/signal.h *)
  431. ss_sp*: PtrVoid;
  432. ss_size*: size_t; (* OpenBSD *)
  433. ss_flags*: INTEGER; (* OpenBSD *)
  434. END;
  435. dev_t* = INTEGER; (* OpenBSD: 32-bit *)
  436. gid_t* = INTEGER; (* OpenBSD: 32-bit *)
  437. stat_t* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/sys/stat.h *)
  438. st_dev*: dev_t; (* device *) (* OpenBSD: 32-bit *)
  439. (* __pad1: SHORTINT; *) (* OpenBSD *)
  440. st_ino*: INTEGER; (* 64? inode *) (* OpenBSD: 32-bit *)
  441. st_mode*: mode_t; (* protection *) (* OpenBSD: 32-bit *)
  442. st_nlink*: INTEGER; (* number of hard links *) (* OpenBSD: 32-bit *)
  443. st_uid*: uid_t; (* user ID of owner *) (* OpenBSD: 32-bit *)
  444. st_gid*: gid_t; (* group ID of owner *) (* OpenBSD: 32-bit *)
  445. st_rdev*: dev_t; (* device type (if inode device) *) (* OpenBSD: 32-bit *)
  446. st_lspare0*: INTEGER; (* OpenBSD *)
  447. (* __pad2: SHORTINT; *) (* OpenBSD *)
  448. (* OpenBSD *)
  449. st_atime*: time_t;
  450. st_atimensec*: INTEGER;
  451. st_mtime*: time_t;
  452. st_mtimensec*: INTEGER;
  453. st_ctime*: time_t;
  454. st_ctimensec*: INTEGER;
  455. st_size*: off_t; (* 64? total size, in bytes *) (* OpenBSD *)
  456. st_blocks*: LONGINT; (* OpenBSD: 64-bit *)
  457. st_blksize*: INTEGER; (* blocksize for filesystem I/O *)
  458. (* st_blocks*: INTEGER; (* 64? number of blocks allocated *) *) (* OpenBSD *)
  459. st_flags*: INTEGER; (* OpenBSD: 32-bit *)
  460. st_gen*: INTEGER; (* OpenBSD: 32-bit *)
  461. st_lspare1*: INTEGER; (* OpenBSD: 32-bit *)
  462. (* OpenBSD
  463. st_atime*: INTEGER; (* time of last access *)
  464. __unused1: INTEGER;
  465. st_mtime*: INTEGER; (* time of last modification *)
  466. __unused2: INTEGER;
  467. st_ctime*: INTEGER; (* time of last change *)
  468. __unused3: INTEGER;
  469. __unused4: INTEGER;
  470. __unused5: INTEGER;
  471. *)
  472. (* OpenBSD *)
  473. __st_birthtime*: time_t;
  474. __st_birthtimensec*: INTEGER;
  475. st_qspare*: ARRAY [untagged] 2 OF LONGINT;
  476. END;
  477. (* OpenBSD
  478. fpreg* = RECORD [untagged]
  479. significand*: ARRAY [untagged] 4 OF CHAR;
  480. exponent*: CHAR;
  481. END;
  482. *)
  483. (* OpenBSD *)
  484. (*
  485. fpstate* = RECORD [untagged]
  486. cw*: INTEGER; (* unsigned long int *)
  487. sw*: INTEGER; (* unsigned long int *)
  488. tag*: INTEGER; (* unsigned long int *)
  489. ipoff*: INTEGER; (* unsigned long int *)
  490. cssel*: INTEGER; (* unsigned long int *)
  491. dataoff*: INTEGER; (* unsigned long int *)
  492. datasel*: INTEGER; (* unsigned long int *)
  493. _st: ARRAY [untagged] 8 OF fpreg;
  494. status*: INTEGER; (* unsigned long int *)
  495. END;
  496. *)
  497. envxmm* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/i386/npx.h *)
  498. (*0*)
  499. en_cw*: SHORTINT; (* FPU Control Word *)
  500. en_sw*: SHORTINT; (* FPU Status Word *)
  501. en_tw*: BYTE; (* FPU Tag Word (abridged) *)
  502. en_rsvd0*: BYTE;
  503. en_opcode*: SHORTINT; (* FPU Opcode *)
  504. en_fip*: INTEGER; (* FPU Instruction Pointer *)
  505. en_fcs*: SHORTINT; (* FPU IP selector *)
  506. en_rsvd1*: SHORTINT;
  507. (*16*)
  508. en_foo*: INTEGER; (* FPU Data pointer *)
  509. en_fos*: SHORTINT; (* FPU Data pointer selector *)
  510. en_rsvd2*: SHORTINT;
  511. en_mxcsr*: INTEGER; (* MXCSR Register State *)
  512. en_mxcsr_mask*: INTEGER; (* Mask for valid MXCSR bits (may be 0) *)
  513. END;
  514. (* FPU regsters in the extended save format. *)
  515. fpaccxmm* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/i386/npx.h *)
  516. fp_bytes*: ARRAY [untagged] 10 OF BYTE;
  517. fp_rsvd*: ARRAY [untagged] 6 OF BYTE;
  518. END;
  519. (* SSE/SSE2 registers. *)
  520. xmmreg* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/i386/npx.h *)
  521. sse_bytes*: ARRAY [untagged] 16 OF BYTE;
  522. END;
  523. fpstate* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/i386/npx.h savefpu.savexmm *)
  524. sv_env*: envxmm; (* control/status context *)
  525. sv_ac*: ARRAY [untagged] 8 OF fpaccxmm; (* ST/MM regs *)
  526. sv_xmmregs*: ARRAY [untagged] 8 OF xmmreg; (* XMM regs *)
  527. sv_rsvd*: ARRAY [untagged] 16 * 14 OF BYTE;
  528. (* 512-bytes --- end of hardware portion of save area *)
  529. sv_ex_sw*: INTEGER; (* saved SW from last exception *)
  530. sv_ex_tw*: INTEGER; (* saved TW from last exception *)
  531. END;
  532. (* OpenBSD
  533. gregset_t* = ARRAY [untagged] 19 OF INTEGER;
  534. *)
  535. fpregset_t* = POINTER TO fpstate;
  536. (* OpenBSD
  537. mcontext_t* = RECORD [untagged]
  538. gregs*: gregset_t;
  539. fpregs*: fpregset_t;
  540. oldmask*: INTEGER; (* unsigned long int *)
  541. cr2*: INTEGER; (* unsigned long int *)
  542. END;
  543. *)
  544. Ptrucontext_t* = POINTER TO ucontext_t;
  545. ucontext_t* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/i386/signal.h struct sigcontext *)
  546. (*
  547. uc_flags*: INTEGER; (* unsigned long int *)
  548. uc_link*: Ptrucontext_t;
  549. uc_stack*: stack_t;
  550. uc_mcontext*: mcontext_t;
  551. uc_sigmask: sigset_t;
  552. __fpregs_mem*: fpstate;
  553. *)
  554. sc_gs*: INTEGER;
  555. sc_fs*: INTEGER;
  556. sc_es*: INTEGER;
  557. sc_ds*: INTEGER;
  558. sc_edi*: INTEGER;
  559. sc_esi*: INTEGER;
  560. sc_ebp*: INTEGER;
  561. sc_ebx*: INTEGER;
  562. sc_edx*: INTEGER;
  563. sc_ecx*: INTEGER;
  564. sc_eax*: INTEGER;
  565. (* XXX *)
  566. sc_eip*: INTEGER;
  567. sc_cs*: INTEGER;
  568. sc_eflags*: INTEGER;
  569. sc_esp*: INTEGER;
  570. sc_ss*: INTEGER;
  571. sc_onstack*: INTEGER; (* sigstack state to restore *)
  572. sc_mask*: INTEGER; (* signal mask to restore *)
  573. sc_trapno*: INTEGER; (* XXX should be above *)
  574. sc_err*: INTEGER;
  575. sc_fpstate*: fpregset_t; (* POINTER TO savefpu *)
  576. END;
  577. (* Times and Dates *)
  578. tm* = POINTER TO tmDesc;
  579. tmDesc* = RECORD [untagged] (* OpenBSD 5.2 /usr/include/time.h *)
  580. tm_sec*: INTEGER; (* seconds *)
  581. tm_min*: INTEGER; (* minutes *)
  582. tm_hour*: INTEGER; (* hours *)
  583. tm_mday*: INTEGER; (* day of the month *)
  584. tm_mon*: INTEGER; (* month *)
  585. tm_year*: INTEGER; (* year *)
  586. tm_wday*: INTEGER; (* day of the week *)
  587. tm_yday*: INTEGER; (* day in the year *)
  588. tm_isdst*: INTEGER; (* daylight saving time *)
  589. tm_gmtoff*: INTEGER; (* OpenBSD *)
  590. tm_zone*: PtrSTR; (* OpenBSD *)
  591. END;
  592. time_t* = INTEGER; (* OpenBSD 5.2 /usr/include/i386/_types.h: 32-bit *)
  593. FILE = ARRAY [untagged] 88 OF BYTE; (* OpenBSD 5.2 /usr/include/stdio.h *)
  594. wchar_t* = INTEGER; (* OpenBSD 5.2: 32-bit *)
  595. PtrWSTR* = POINTER TO ARRAY [untagged] OF wchar_t;
  596. (* OpenBSD 5.2 *)
  597. sigaltstack_t* = RECORD [untagged]
  598. ss_sp*: PtrVoid;
  599. ss_size*: size_t;
  600. ss_flags*: INTEGER;
  601. END;
  602. VAR
  603. (* timezone*: INTEGER; (* seconds from GMT *) *) (* OpenBSD: not present *)
  604. (* stdin*, stdout*, stderr* : PtrFILE; (* OpenBSD: not present *) *)
  605. (* OpenBSD: stdin, stdout, stderr *)
  606. __sF*: ARRAY [untagged] 3 OF FILE; (* OpenBSD 5.2 /usr/include/stdio.h *)
  607. (*
  608. stdin = SYSTEM.ADR(__sF[0])
  609. stdout = SYSTEM.ADR(__sF[1])
  610. stderr = SYSTEM.ADR(__sF[2])
  611. *)
  612. PROCEDURE [ccall] calloc* (nmemb, size: size_t): PtrVoid;
  613. PROCEDURE [ccall] clock* (): clock_t;
  614. PROCEDURE [ccall] closedir* (dir: PtrDIR): INTEGER;
  615. PROCEDURE [ccall] chmod* (path: PtrSTR; mode: mode_t);
  616. PROCEDURE [ccall] exit* (status: INTEGER);
  617. PROCEDURE [ccall] fclose* (fp: PtrFILE): INTEGER;
  618. PROCEDURE [ccall] fflush* (fp: PtrFILE): INTEGER;
  619. PROCEDURE [ccall] fopen* (filename, mode: PtrSTR): PtrFILE;
  620. PROCEDURE [ccall] feof* (fp: PtrFILE): INTEGER;
  621. PROCEDURE [ccall] fread* (ptr: PtrVoid; size, nmemb: size_t; stream: PtrFILE): size_t;
  622. PROCEDURE [ccall] fseek* (stream: PtrFILE; offset, origin: INTEGER): INTEGER;
  623. PROCEDURE [ccall] free* (p: PtrVoid);
  624. PROCEDURE [ccall] ftell* (stream: PtrFILE): (* LONGINT; *) INTEGER; (* OpenBSD 5.2 *)
  625. PROCEDURE [ccall] ftw* (filename: PtrSTR; func: __ftw_func_t; maxfds: INTEGER): INTEGER;
  626. PROCEDURE [ccall] fwrite* (ptr: PtrVoid; size, nmemb: size_t; stream: PtrFILE): size_t;
  627. PROCEDURE [ccall] getcwd* (buf: PtrSTR; size: size_t): PtrSTR;
  628. (* PROCEDURE [ccall] getcontext* (ucontext_t: Ptrucontext_t): INTEGER; *) (* OpenBSD *)
  629. (* PROCEDURE [ccall] gets* (s: PtrSTR); *)
  630. PROCEDURE [ccall] gets* (s: PtrSTR): PtrSTR; (* OpenBSD 5.2 *)
  631. PROCEDURE [ccall] fgets* (s: PtrSTR; n: INTEGER; fp: PtrFILE): PtrSTR;
  632. PROCEDURE [ccall] gmtime* (VAR timep: time_t): tm;
  633. PROCEDURE [ccall] kill* (pid: pid_t; sig: INTEGER): INTEGER;
  634. PROCEDURE [ccall] localtime* (VAR timep: time_t): tm;
  635. PROCEDURE [ccall] malloc* (size: size_t): PtrVoid;
  636. PROCEDURE [ccall] mkdir* (path: PtrSTR; mode: mode_t): INTEGER;
  637. PROCEDURE [ccall] mktime* (timeptr: tm): time_t;
  638. PROCEDURE [ccall] opendir* (filename: PtrSTR): PtrDIR;
  639. PROCEDURE [ccall] printf* (s: PtrSTR): INTEGER;
  640. PROCEDURE [ccall] readdir* (dir: PtrDIR): PtrDirent;
  641. PROCEDURE [ccall] remove* (path: PtrSTR): INTEGER;
  642. PROCEDURE [ccall] rename* (from, to: PtrSTR): INTEGER;
  643. PROCEDURE [ccall] scandir* (dir: PtrDIR; namelist: PtrDirentArray; selector: SelectorFunc; cmp: CmpFunc): INTEGER;
  644. (* PROCEDURE [ccall] setcontext* (ucontext_t: Ptrucontext_t): INTEGER; *) (* OpenBSD *)
  645. PROCEDURE [ccall] setjmp* (VAR env: jmp_buf): INTEGER;
  646. PROCEDURE [ccall] sigaction* (sig_num: INTEGER; VAR [nil] act: sigaction_t; VAR [nil] oldact: sigaction_t): INTEGER;
  647. PROCEDURE [ccall] sigaddset* (set: Ptrsigset_t; sig: INTEGER): INTEGER;
  648. PROCEDURE [ccall] sigdelset* (set: Ptrsigset_t; sig: INTEGER): INTEGER;
  649. PROCEDURE [ccall] sigemptyset* (set: Ptrsigset_t): INTEGER;
  650. PROCEDURE [ccall] sigfillset* (set: Ptrsigset_t): INTEGER;
  651. PROCEDURE [ccall] sigismemeber* (set: Ptrsigset_t; sig: INTEGER): INTEGER;
  652. PROCEDURE [ccall] siglongjmp* (VAR env: sigjmp_buf; val: INTEGER);
  653. PROCEDURE [ccall] signal* (sig_num: INTEGER; sighandler: PtrProc): PtrProc;
  654. (* PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: INTEGER): INTEGER; *)
  655. PROCEDURE [ccall] sigsetjmp* (VAR env: sigjmp_buf; savemask: INTEGER): INTEGER; (* OpenBSD *)
  656. (* OpenBSD *)
  657. PROCEDURE [ccall] stat* (filename: PtrSTR; VAR buf: stat_t): INTEGER; (* stat is a macro and expands to __xstat(3, filename, buf) *)
  658. (* OpenBSD: __xstat not present
  659. PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER;
  660. *)
  661. PROCEDURE [ccall] strftime* (s: PtrSTR; max: size_t; format: PtrSTR; ptm: tm): size_t;
  662. PROCEDURE [ccall] time* (VAR [nil] t: time_t): time_t;
  663. (* PROCEDURE [ccall] __errno_location*(): INTEGER; *)
  664. PROCEDURE [ccall] __errno_location* ["__errno"] (): INTEGER; (* OpenBSD *)
  665. PROCEDURE [ccall] open* (path: PtrSTR; flags: SET; mode: mode_t): INTEGER;
  666. PROCEDURE [ccall] close* (d: INTEGER): INTEGER;
  667. PROCEDURE [ccall] read* (d: INTEGER; buf: PtrVoid; nbytes: size_t): ssize_t;
  668. PROCEDURE [ccall] write* (d: INTEGER; buf: PtrVoid; nBytes: size_t): ssize_t;
  669. (* OpenBSD *)
  670. PROCEDURE [ccall] mprotect* (addr: PtrVoid; len: size_t; prot: SET): INTEGER;
  671. (* OpenBSD 5.2 *)
  672. PROCEDURE [ccall] madvise* (addr: PtrVoid; len: size_t; behav: INTEGER): INTEGER;
  673. PROCEDURE [ccall] mmap* (addr: PtrVoid; len: size_t; prot: SET; flags: SET; fd: INTEGER; offset: off_t): PtrVoid;
  674. PROCEDURE [ccall] munmap* (addr: PtrVoid; len: size_t): INTEGER;
  675. PROCEDURE [ccall] getenv* (name: PtrSTR): PtrSTR;
  676. (* OpenBSD 5.2: Ok *)
  677. PROCEDURE [ccall] wctomb* (s: PtrSTR; wchar: wchar_t): INTEGER;
  678. PROCEDURE [ccall] wcstombs* (s: PtrSTR; pwcs: PtrWSTR; n: size_t): size_t;
  679. PROCEDURE [ccall] mbtowc* (pwc: PtrWSTR; s: PtrSTR; n: size_t): INTEGER;
  680. PROCEDURE [ccall] mbstowcs* (pwcs: PtrWSTR; s: PtrSTR; n: size_t): size_t;
  681. (* OpenBSD 5.2 *)
  682. PROCEDURE [ccall] sysconf* (name: INTEGER): INTEGER;
  683. PROCEDURE [ccall] sigaltstack* (VAR [nil] ss: sigaltstack_t; VAR [nil] oss: sigaltstack_t): INTEGER;
  684. PROCEDURE [ccall] sigreturn* (ucontext_t: Ptrucontext_t): INTEGER;
  685. PROCEDURE [ccall] sigprocmask* (how: INTEGER; VAR [nil] set: sigset_t; VAR [nil] oset: sigset_t): INTEGER;
  686. END LinLibc.