snd/libc_s7.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3 #include <string.h>
   4 #include <limits.h>
   5 #include <ctype.h>
   6 #include <errno.h>
   7 #include <float.h>
   8 #include <stdint.h>
   9 #include <locale.h>
  10 #include <stdlib.h>
  11 #include <string.h>
  12 #include <fcntl.h>
  13 #include <fenv.h>
  14 #include <stdio.h>
  15 #include <sys/utsname.h>
  16 #include <unistd.h>
  17 #include <dirent.h>
  18 #include <ftw.h>
  19 #include <sys/stat.h>
  20 #include <time.h>
  21 #include <sys/time.h>
  22 #include <utime.h>
  23 #include <termios.h>
  24 #include <grp.h>
  25 #include <pwd.h>
  26 #include <fnmatch.h>
  27 #include <glob.h>
  28 #include <signal.h>
  29 #include <sys/wait.h>
  30 #include <netdb.h>
  31 #include <sys/resource.h>
  32 #include <regex.h>
  33 #include <semaphore.h>
  34 #include <wordexp.h>
  35 #include "s7.h"
  36
  37 static s7_pointer struct_msghdr__symbol, const_struct_msghdr__symbol, const_struct_sockaddr__symbol, struct_addrinfo__symbol, protoent__symbol, servent__symbol, netent__symbol, hostent__symbol, siginfo_t__symbol, struct_rlimit__symbol, sigset_t__symbol, glob_t__symbol, wordexp_t__symbol, passwd__symbol, tm__symbol, time_t__symbol, DIR__symbol, int__symbol, fpos_t__symbol, FILE__symbol, void__symbol, fenv_t__symbol, fexcept_t__symbol;
  38
  39 static s7_pointer g_c_pointer_to_string(s7_scheme *sc, s7_pointer args)
  40                   {return(s7_make_string_with_length(sc, (const char *)s7_c_pointer(s7_car(args)), s7_integer(s7_cadr(args))));}
  41                   static s7_pointer g_string_to_c_pointer(s7_scheme *sc, s7_pointer args)
  42                   {
  43                    if (s7_is_string(s7_car(args)))
  44                      return(s7_make_c_pointer_with_type(sc, (void *)s7_string(s7_car(args)), s7_make_symbol(sc, "void*"), s7_f(sc)));
  45                    return(s7_car(args));
  46                   }
  47
  48 /* -------- isalnum -------- */
  49 static s7_pointer s7__isalnum(s7_scheme *sc, s7_pointer args)
  50 {
  51   s7_pointer p, arg;
  52   int s7__isalnum_0;
  53   p = args;
  54   arg = s7_car(p);
  55   if (s7_is_integer(arg))
  56     s7__isalnum_0 = (int)s7_integer(arg);
  57   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
  58   return(s7_make_integer(sc, (s7_int)isalnum(s7__isalnum_0)));
  59 }
  60 static s7_int isalnum_i_i(s7_int i1) {return(isalnum(i1));}
  61
  62
  63 /* -------- isalpha -------- */
  64 static s7_pointer s7__isalpha(s7_scheme *sc, s7_pointer args)
  65 {
  66   s7_pointer p, arg;
  67   int s7__isalpha_0;
  68   p = args;
  69   arg = s7_car(p);
  70   if (s7_is_integer(arg))
  71     s7__isalpha_0 = (int)s7_integer(arg);
  72   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
  73   return(s7_make_integer(sc, (s7_int)isalpha(s7__isalpha_0)));
  74 }
  75 static s7_int isalpha_i_i(s7_int i1) {return(isalpha(i1));}
  76
  77
  78 /* -------- iscntrl -------- */
  79 static s7_pointer s7__iscntrl(s7_scheme *sc, s7_pointer args)
  80 {
  81   s7_pointer p, arg;
  82   int s7__iscntrl_0;
  83   p = args;
  84   arg = s7_car(p);
  85   if (s7_is_integer(arg))
  86     s7__iscntrl_0 = (int)s7_integer(arg);
  87   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
  88   return(s7_make_integer(sc, (s7_int)iscntrl(s7__iscntrl_0)));
  89 }
  90 static s7_int iscntrl_i_i(s7_int i1) {return(iscntrl(i1));}
  91
  92
  93 /* -------- isdigit -------- */
  94 static s7_pointer s7__isdigit(s7_scheme *sc, s7_pointer args)
  95 {
  96   s7_pointer p, arg;
  97   int s7__isdigit_0;
  98   p = args;
  99   arg = s7_car(p);
 100   if (s7_is_integer(arg))
 101     s7__isdigit_0 = (int)s7_integer(arg);
 102   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 103   return(s7_make_integer(sc, (s7_int)isdigit(s7__isdigit_0)));
 104 }
 105 static s7_int isdigit_i_i(s7_int i1) {return(isdigit(i1));}
 106
 107
 108 /* -------- islower -------- */
 109 static s7_pointer s7__islower(s7_scheme *sc, s7_pointer args)
 110 {
 111   s7_pointer p, arg;
 112   int s7__islower_0;
 113   p = args;
 114   arg = s7_car(p);
 115   if (s7_is_integer(arg))
 116     s7__islower_0 = (int)s7_integer(arg);
 117   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 118   return(s7_make_integer(sc, (s7_int)islower(s7__islower_0)));
 119 }
 120 static s7_int islower_i_i(s7_int i1) {return(islower(i1));}
 121
 122
 123 /* -------- isgraph -------- */
 124 static s7_pointer s7__isgraph(s7_scheme *sc, s7_pointer args)
 125 {
 126   s7_pointer p, arg;
 127   int s7__isgraph_0;
 128   p = args;
 129   arg = s7_car(p);
 130   if (s7_is_integer(arg))
 131     s7__isgraph_0 = (int)s7_integer(arg);
 132   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 133   return(s7_make_integer(sc, (s7_int)isgraph(s7__isgraph_0)));
 134 }
 135 static s7_int isgraph_i_i(s7_int i1) {return(isgraph(i1));}
 136
 137
 138 /* -------- isprint -------- */
 139 static s7_pointer s7__isprint(s7_scheme *sc, s7_pointer args)
 140 {
 141   s7_pointer p, arg;
 142   int s7__isprint_0;
 143   p = args;
 144   arg = s7_car(p);
 145   if (s7_is_integer(arg))
 146     s7__isprint_0 = (int)s7_integer(arg);
 147   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 148   return(s7_make_integer(sc, (s7_int)isprint(s7__isprint_0)));
 149 }
 150 static s7_int isprint_i_i(s7_int i1) {return(isprint(i1));}
 151
 152
 153 /* -------- ispunct -------- */
 154 static s7_pointer s7__ispunct(s7_scheme *sc, s7_pointer args)
 155 {
 156   s7_pointer p, arg;
 157   int s7__ispunct_0;
 158   p = args;
 159   arg = s7_car(p);
 160   if (s7_is_integer(arg))
 161     s7__ispunct_0 = (int)s7_integer(arg);
 162   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 163   return(s7_make_integer(sc, (s7_int)ispunct(s7__ispunct_0)));
 164 }
 165 static s7_int ispunct_i_i(s7_int i1) {return(ispunct(i1));}
 166
 167
 168 /* -------- isspace -------- */
 169 static s7_pointer s7__isspace(s7_scheme *sc, s7_pointer args)
 170 {
 171   s7_pointer p, arg;
 172   int s7__isspace_0;
 173   p = args;
 174   arg = s7_car(p);
 175   if (s7_is_integer(arg))
 176     s7__isspace_0 = (int)s7_integer(arg);
 177   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 178   return(s7_make_integer(sc, (s7_int)isspace(s7__isspace_0)));
 179 }
 180 static s7_int isspace_i_i(s7_int i1) {return(isspace(i1));}
 181
 182
 183 /* -------- isupper -------- */
 184 static s7_pointer s7__isupper(s7_scheme *sc, s7_pointer args)
 185 {
 186   s7_pointer p, arg;
 187   int s7__isupper_0;
 188   p = args;
 189   arg = s7_car(p);
 190   if (s7_is_integer(arg))
 191     s7__isupper_0 = (int)s7_integer(arg);
 192   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 193   return(s7_make_integer(sc, (s7_int)isupper(s7__isupper_0)));
 194 }
 195 static s7_int isupper_i_i(s7_int i1) {return(isupper(i1));}
 196
 197
 198 /* -------- isxdigit -------- */
 199 static s7_pointer s7__isxdigit(s7_scheme *sc, s7_pointer args)
 200 {
 201   s7_pointer p, arg;
 202   int s7__isxdigit_0;
 203   p = args;
 204   arg = s7_car(p);
 205   if (s7_is_integer(arg))
 206     s7__isxdigit_0 = (int)s7_integer(arg);
 207   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 208   return(s7_make_integer(sc, (s7_int)isxdigit(s7__isxdigit_0)));
 209 }
 210 static s7_int isxdigit_i_i(s7_int i1) {return(isxdigit(i1));}
 211
 212
 213 /* -------- tolower -------- */
 214 static s7_pointer s7__tolower(s7_scheme *sc, s7_pointer args)
 215 {
 216   s7_pointer p, arg;
 217   int s7__tolower_0;
 218   p = args;
 219   arg = s7_car(p);
 220   if (s7_is_integer(arg))
 221     s7__tolower_0 = (int)s7_integer(arg);
 222   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 223   return(s7_make_integer(sc, (s7_int)tolower(s7__tolower_0)));
 224 }
 225 static s7_int tolower_i_i(s7_int i1) {return(tolower(i1));}
 226
 227
 228 /* -------- toupper -------- */
 229 static s7_pointer s7__toupper(s7_scheme *sc, s7_pointer args)
 230 {
 231   s7_pointer p, arg;
 232   int s7__toupper_0;
 233   p = args;
 234   arg = s7_car(p);
 235   if (s7_is_integer(arg))
 236     s7__toupper_0 = (int)s7_integer(arg);
 237   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 238   return(s7_make_integer(sc, (s7_int)toupper(s7__toupper_0)));
 239 }
 240 static s7_int toupper_i_i(s7_int i1) {return(toupper(i1));}
 241
 242
 243 /* -------- fcntl -------- */
 244 static s7_pointer s7__fcntl(s7_scheme *sc, s7_pointer args)
 245 {
 246   s7_pointer p, arg;
 247   int s7__fcntl_0;
 248   int s7__fcntl_1;
 249   p = args;
 250   arg = s7_car(p);
 251   if (s7_is_integer(arg))
 252     s7__fcntl_0 = (int)s7_integer(arg);
 253   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
 254   p = s7_cdr(p);
 255   arg = s7_car(p);
 256   if (s7_is_integer(arg))
 257     s7__fcntl_1 = (int)s7_integer(arg);
 258   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 259   return(s7_make_integer(sc, (s7_int)fcntl(s7__fcntl_0, s7__fcntl_1)));
 260 }
 261 static s7_int fcntl_i_ii(s7_int i1, s7_int i2) {return(fcntl(i1, i2));}
 262
 263 static s7_pointer g_c_open(s7_scheme *sc, s7_pointer args)
 264                   {
 265                     s7_pointer arg;
 266                     char* name;
 267                     int flags, mode;
 268                     arg = args;
 269                     if (s7_is_string(s7_car(arg)))
 270                        name = (char*)s7_string(s7_car(arg));
 271                     else return(s7_wrong_type_arg_error(sc, "open", 1, s7_car(arg), "string"));
 272                     arg = s7_cdr(arg);
 273                     if (s7_is_integer(s7_car(arg)))
 274                        flags = (int)s7_integer(s7_car(arg));
 275                     else return(s7_wrong_type_arg_error(sc, "open", 2, s7_car(arg), "integer"));
 276                     if (s7_is_pair(s7_cdr(arg)))
 277                       {
 278                         arg = s7_cdr(arg);
 279                         if (s7_is_integer(s7_car(arg)))
 280                           mode = (int)s7_integer(s7_car(arg));
 281                         else return(s7_wrong_type_arg_error(sc, "open", 3, s7_car(arg), "integer"));
 282                         return(s7_make_integer(sc, (s7_int)open(name, flags, mode)));
 283                        }
 284                      return(s7_make_integer(sc, (s7_int)open(name, flags)));
 285                     }
 286
 287 /* -------- creat -------- */
 288 static s7_pointer s7__creat(s7_scheme *sc, s7_pointer args)
 289 {
 290   s7_pointer p, arg;
 291   char* s7__creat_0;
 292   mode_t s7__creat_1;
 293   p = args;
 294   arg = s7_car(p);
 295   if (s7_is_string(arg))
 296     s7__creat_0 = (char*)s7_string(arg);
 297   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 298   p = s7_cdr(p);
 299   arg = s7_car(p);
 300   if (s7_is_integer(arg))
 301     s7__creat_1 = (mode_t)s7_integer(arg);
 302   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 303   return(s7_make_integer(sc, (s7_int)creat(s7__creat_0, s7__creat_1)));
 304 }
 305
 306
 307 /* -------- lockf -------- */
 308 static s7_pointer s7__lockf(s7_scheme *sc, s7_pointer args)
 309 {
 310   s7_pointer p, arg;
 311   int s7__lockf_0;
 312   int s7__lockf_1;
 313   int s7__lockf_2;
 314   p = args;
 315   arg = s7_car(p);
 316   if (s7_is_integer(arg))
 317     s7__lockf_0 = (int)s7_integer(arg);
 318   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
 319   p = s7_cdr(p);
 320   arg = s7_car(p);
 321   if (s7_is_integer(arg))
 322     s7__lockf_1 = (int)s7_integer(arg);
 323   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 324   p = s7_cdr(p);
 325   arg = s7_car(p);
 326   if (s7_is_integer(arg))
 327     s7__lockf_2 = (int)s7_integer(arg);
 328   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 329   return(s7_make_integer(sc, (s7_int)lockf(s7__lockf_0, s7__lockf_1, s7__lockf_2)));
 330 }
 331
 332
 333 /* -------- posix_fadvise -------- */
 334 static s7_pointer s7__posix_fadvise(s7_scheme *sc, s7_pointer args)
 335 {
 336   s7_pointer p, arg;
 337   int s7__posix_fadvise_0;
 338   int s7__posix_fadvise_1;
 339   int s7__posix_fadvise_2;
 340   int s7__posix_fadvise_3;
 341   p = args;
 342   arg = s7_car(p);
 343   if (s7_is_integer(arg))
 344     s7__posix_fadvise_0 = (int)s7_integer(arg);
 345   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
 346   p = s7_cdr(p);
 347   arg = s7_car(p);
 348   if (s7_is_integer(arg))
 349     s7__posix_fadvise_1 = (int)s7_integer(arg);
 350   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 351   p = s7_cdr(p);
 352   arg = s7_car(p);
 353   if (s7_is_integer(arg))
 354     s7__posix_fadvise_2 = (int)s7_integer(arg);
 355   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 356   p = s7_cdr(p);
 357   arg = s7_car(p);
 358   if (s7_is_integer(arg))
 359     s7__posix_fadvise_3 = (int)s7_integer(arg);
 360   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
 361   return(s7_make_integer(sc, (s7_int)posix_fadvise(s7__posix_fadvise_0, s7__posix_fadvise_1, s7__posix_fadvise_2, s7__posix_fadvise_3)));
 362 }
 363
 364
 365 /* -------- posix_fallocate -------- */
 366 static s7_pointer s7__posix_fallocate(s7_scheme *sc, s7_pointer args)
 367 {
 368   s7_pointer p, arg;
 369   int s7__posix_fallocate_0;
 370   int s7__posix_fallocate_1;
 371   int s7__posix_fallocate_2;
 372   p = args;
 373   arg = s7_car(p);
 374   if (s7_is_integer(arg))
 375     s7__posix_fallocate_0 = (int)s7_integer(arg);
 376   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
 377   p = s7_cdr(p);
 378   arg = s7_car(p);
 379   if (s7_is_integer(arg))
 380     s7__posix_fallocate_1 = (int)s7_integer(arg);
 381   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 382   p = s7_cdr(p);
 383   arg = s7_car(p);
 384   if (s7_is_integer(arg))
 385     s7__posix_fallocate_2 = (int)s7_integer(arg);
 386   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 387   return(s7_make_integer(sc, (s7_int)posix_fallocate(s7__posix_fallocate_0, s7__posix_fallocate_1, s7__posix_fallocate_2)));
 388 }
 389
 390
 391 /* -------- feclearexcept -------- */
 392 static s7_pointer s7__feclearexcept(s7_scheme *sc, s7_pointer args)
 393 {
 394   s7_pointer p, arg;
 395   int s7__feclearexcept_0;
 396   p = args;
 397   arg = s7_car(p);
 398   if (s7_is_integer(arg))
 399     s7__feclearexcept_0 = (int)s7_integer(arg);
 400   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 401   return(s7_make_integer(sc, (s7_int)feclearexcept(s7__feclearexcept_0)));
 402 }
 403 static s7_int feclearexcept_i_i(s7_int i1) {return(feclearexcept(i1));}
 404
 405
 406 /* -------- fegetexceptflag -------- */
 407 static s7_pointer s7__fegetexceptflag(s7_scheme *sc, s7_pointer args)
 408 {
 409   s7_pointer p, arg;
 410   fexcept_t* s7__fegetexceptflag_0;
 411   int s7__fegetexceptflag_1;
 412   p = args;
 413   arg = s7_car(p);
 414   s7__fegetexceptflag_0 = (fexcept_t*)s7_c_pointer_with_type(sc, arg, fexcept_t__symbol, __func__, 1);
 415   p = s7_cdr(p);
 416   arg = s7_car(p);
 417   if (s7_is_integer(arg))
 418     s7__fegetexceptflag_1 = (int)s7_integer(arg);
 419   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 420   return(s7_make_integer(sc, (s7_int)fegetexceptflag(s7__fegetexceptflag_0, s7__fegetexceptflag_1)));
 421 }
 422
 423
 424 /* -------- feraiseexcept -------- */
 425 static s7_pointer s7__feraiseexcept(s7_scheme *sc, s7_pointer args)
 426 {
 427   s7_pointer p, arg;
 428   int s7__feraiseexcept_0;
 429   p = args;
 430   arg = s7_car(p);
 431   if (s7_is_integer(arg))
 432     s7__feraiseexcept_0 = (int)s7_integer(arg);
 433   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 434   return(s7_make_integer(sc, (s7_int)feraiseexcept(s7__feraiseexcept_0)));
 435 }
 436 static s7_int feraiseexcept_i_i(s7_int i1) {return(feraiseexcept(i1));}
 437
 438
 439 /* -------- fesetexceptflag -------- */
 440 static s7_pointer s7__fesetexceptflag(s7_scheme *sc, s7_pointer args)
 441 {
 442   s7_pointer p, arg;
 443   fexcept_t* s7__fesetexceptflag_0;
 444   int s7__fesetexceptflag_1;
 445   p = args;
 446   arg = s7_car(p);
 447   s7__fesetexceptflag_0 = (fexcept_t*)s7_c_pointer_with_type(sc, arg, fexcept_t__symbol, __func__, 1);
 448   p = s7_cdr(p);
 449   arg = s7_car(p);
 450   if (s7_is_integer(arg))
 451     s7__fesetexceptflag_1 = (int)s7_integer(arg);
 452   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 453   return(s7_make_integer(sc, (s7_int)fesetexceptflag(s7__fesetexceptflag_0, s7__fesetexceptflag_1)));
 454 }
 455
 456
 457 /* -------- fetestexcept -------- */
 458 static s7_pointer s7__fetestexcept(s7_scheme *sc, s7_pointer args)
 459 {
 460   s7_pointer p, arg;
 461   int s7__fetestexcept_0;
 462   p = args;
 463   arg = s7_car(p);
 464   if (s7_is_integer(arg))
 465     s7__fetestexcept_0 = (int)s7_integer(arg);
 466   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 467   return(s7_make_integer(sc, (s7_int)fetestexcept(s7__fetestexcept_0)));
 468 }
 469 static s7_int fetestexcept_i_i(s7_int i1) {return(fetestexcept(i1));}
 470
 471
 472 /* -------- fegetround -------- */
 473 static s7_pointer s7__fegetround(s7_scheme *sc, s7_pointer args)
 474 {
 475   return(s7_make_integer(sc, (s7_int)fegetround()));
 476 }
 477
 478
 479 /* -------- fesetround -------- */
 480 static s7_pointer s7__fesetround(s7_scheme *sc, s7_pointer args)
 481 {
 482   s7_pointer p, arg;
 483   int s7__fesetround_0;
 484   p = args;
 485   arg = s7_car(p);
 486   if (s7_is_integer(arg))
 487     s7__fesetround_0 = (int)s7_integer(arg);
 488   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
 489   return(s7_make_integer(sc, (s7_int)fesetround(s7__fesetround_0)));
 490 }
 491 static s7_int fesetround_i_i(s7_int i1) {return(fesetround(i1));}
 492
 493
 494 /* -------- fegetenv -------- */
 495 static s7_pointer s7__fegetenv(s7_scheme *sc, s7_pointer args)
 496 {
 497   s7_pointer p, arg;
 498   fenv_t* s7__fegetenv_0;
 499   p = args;
 500   arg = s7_car(p);
 501   s7__fegetenv_0 = (fenv_t*)s7_c_pointer_with_type(sc, arg, fenv_t__symbol, __func__, 0);
 502   return(s7_make_integer(sc, (s7_int)fegetenv(s7__fegetenv_0)));
 503 }
 504
 505
 506 /* -------- feholdexcept -------- */
 507 static s7_pointer s7__feholdexcept(s7_scheme *sc, s7_pointer args)
 508 {
 509   s7_pointer p, arg;
 510   fenv_t* s7__feholdexcept_0;
 511   p = args;
 512   arg = s7_car(p);
 513   s7__feholdexcept_0 = (fenv_t*)s7_c_pointer_with_type(sc, arg, fenv_t__symbol, __func__, 0);
 514   return(s7_make_integer(sc, (s7_int)feholdexcept(s7__feholdexcept_0)));
 515 }
 516
 517
 518 /* -------- fesetenv -------- */
 519 static s7_pointer s7__fesetenv(s7_scheme *sc, s7_pointer args)
 520 {
 521   s7_pointer p, arg;
 522   fenv_t* s7__fesetenv_0;
 523   p = args;
 524   arg = s7_car(p);
 525   s7__fesetenv_0 = (fenv_t*)s7_c_pointer_with_type(sc, arg, fenv_t__symbol, __func__, 0);
 526   return(s7_make_integer(sc, (s7_int)fesetenv(s7__fesetenv_0)));
 527 }
 528
 529
 530 /* -------- feupdateenv -------- */
 531 static s7_pointer s7__feupdateenv(s7_scheme *sc, s7_pointer args)
 532 {
 533   s7_pointer p, arg;
 534   fenv_t* s7__feupdateenv_0;
 535   p = args;
 536   arg = s7_car(p);
 537   s7__feupdateenv_0 = (fenv_t*)s7_c_pointer_with_type(sc, arg, fenv_t__symbol, __func__, 0);
 538   return(s7_make_integer(sc, (s7_int)feupdateenv(s7__feupdateenv_0)));
 539 }
 540
 541 static s7_pointer g_fenv_t_make(s7_scheme *sc, s7_pointer args)
 542                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(fenv_t)), s7_make_symbol(sc, "fenv_t*"), s7_f(sc)));}
 543
 544 /* -------- fnmatch -------- */
 545 static s7_pointer s7__fnmatch(s7_scheme *sc, s7_pointer args)
 546 {
 547   s7_pointer p, arg;
 548   char* s7__fnmatch_0;
 549   char* s7__fnmatch_1;
 550   int s7__fnmatch_2;
 551   p = args;
 552   arg = s7_car(p);
 553   if (s7_is_string(arg))
 554     s7__fnmatch_0 = (char*)s7_string(arg);
 555   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 556   p = s7_cdr(p);
 557   arg = s7_car(p);
 558   if (s7_is_string(arg))
 559     s7__fnmatch_1 = (char*)s7_string(arg);
 560   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 561   p = s7_cdr(p);
 562   arg = s7_car(p);
 563   if (s7_is_integer(arg))
 564     s7__fnmatch_2 = (int)s7_integer(arg);
 565   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 566   return(s7_make_integer(sc, (s7_int)fnmatch(s7__fnmatch_0, s7__fnmatch_1, s7__fnmatch_2)));
 567 }
 568
 569
 570 /* -------- memcpy -------- */
 571 static s7_pointer s7__memcpy(s7_scheme *sc, s7_pointer args)
 572 {
 573   s7_pointer p, arg;
 574   void* s7__memcpy_0;
 575   void* s7__memcpy_1;
 576   size_t s7__memcpy_2;
 577   p = args;
 578   arg = s7_car(p);
 579   s7__memcpy_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
 580   p = s7_cdr(p);
 581   arg = s7_car(p);
 582   s7__memcpy_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
 583   p = s7_cdr(p);
 584   arg = s7_car(p);
 585   if (s7_is_integer(arg))
 586     s7__memcpy_2 = (size_t)s7_integer(arg);
 587   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 588   return(s7_make_c_pointer_with_type(sc, (void*)memcpy(s7__memcpy_0, s7__memcpy_1, s7__memcpy_2), void__symbol, s7_f(sc)));
 589 }
 590
 591
 592 /* -------- memmove -------- */
 593 static s7_pointer s7__memmove(s7_scheme *sc, s7_pointer args)
 594 {
 595   s7_pointer p, arg;
 596   void* s7__memmove_0;
 597   void* s7__memmove_1;
 598   size_t s7__memmove_2;
 599   p = args;
 600   arg = s7_car(p);
 601   s7__memmove_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
 602   p = s7_cdr(p);
 603   arg = s7_car(p);
 604   s7__memmove_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
 605   p = s7_cdr(p);
 606   arg = s7_car(p);
 607   if (s7_is_integer(arg))
 608     s7__memmove_2 = (size_t)s7_integer(arg);
 609   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 610   return(s7_make_c_pointer_with_type(sc, (void*)memmove(s7__memmove_0, s7__memmove_1, s7__memmove_2), void__symbol, s7_f(sc)));
 611 }
 612
 613
 614 /* -------- memset -------- */
 615 static s7_pointer s7__memset(s7_scheme *sc, s7_pointer args)
 616 {
 617   s7_pointer p, arg;
 618   void* s7__memset_0;
 619   int s7__memset_1;
 620   size_t s7__memset_2;
 621   p = args;
 622   arg = s7_car(p);
 623   s7__memset_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
 624   p = s7_cdr(p);
 625   arg = s7_car(p);
 626   if (s7_is_integer(arg))
 627     s7__memset_1 = (int)s7_integer(arg);
 628   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 629   p = s7_cdr(p);
 630   arg = s7_car(p);
 631   if (s7_is_integer(arg))
 632     s7__memset_2 = (size_t)s7_integer(arg);
 633   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 634   return(s7_make_c_pointer_with_type(sc, (void*)memset(s7__memset_0, s7__memset_1, s7__memset_2), void__symbol, s7_f(sc)));
 635 }
 636
 637
 638 /* -------- memcmp -------- */
 639 static s7_pointer s7__memcmp(s7_scheme *sc, s7_pointer args)
 640 {
 641   s7_pointer p, arg;
 642   void* s7__memcmp_0;
 643   void* s7__memcmp_1;
 644   size_t s7__memcmp_2;
 645   p = args;
 646   arg = s7_car(p);
 647   s7__memcmp_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
 648   p = s7_cdr(p);
 649   arg = s7_car(p);
 650   s7__memcmp_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
 651   p = s7_cdr(p);
 652   arg = s7_car(p);
 653   if (s7_is_integer(arg))
 654     s7__memcmp_2 = (size_t)s7_integer(arg);
 655   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 656   return(s7_make_integer(sc, (s7_int)memcmp(s7__memcmp_0, s7__memcmp_1, s7__memcmp_2)));
 657 }
 658
 659
 660 /* -------- memchr -------- */
 661 static s7_pointer s7__memchr(s7_scheme *sc, s7_pointer args)
 662 {
 663   s7_pointer p, arg;
 664   void* s7__memchr_0;
 665   int s7__memchr_1;
 666   size_t s7__memchr_2;
 667   p = args;
 668   arg = s7_car(p);
 669   s7__memchr_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
 670   p = s7_cdr(p);
 671   arg = s7_car(p);
 672   if (s7_is_integer(arg))
 673     s7__memchr_1 = (int)s7_integer(arg);
 674   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 675   p = s7_cdr(p);
 676   arg = s7_car(p);
 677   if (s7_is_integer(arg))
 678     s7__memchr_2 = (size_t)s7_integer(arg);
 679   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 680   return(s7_make_c_pointer_with_type(sc, (void*)memchr(s7__memchr_0, s7__memchr_1, s7__memchr_2), void__symbol, s7_f(sc)));
 681 }
 682
 683
 684 /* -------- strcpy -------- */
 685 static s7_pointer s7__strcpy(s7_scheme *sc, s7_pointer args)
 686 {
 687   s7_pointer p, arg;
 688   char* s7__strcpy_0;
 689   char* s7__strcpy_1;
 690   p = args;
 691   arg = s7_car(p);
 692   if (s7_is_string(arg))
 693     s7__strcpy_0 = (char*)s7_string(arg);
 694   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 695   p = s7_cdr(p);
 696   arg = s7_car(p);
 697   if (s7_is_string(arg))
 698     s7__strcpy_1 = (char*)s7_string(arg);
 699   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 700   return(s7_make_string(sc, (char*)strcpy(s7__strcpy_0, s7__strcpy_1)));
 701 }
 702
 703
 704 /* -------- strncpy -------- */
 705 static s7_pointer s7__strncpy(s7_scheme *sc, s7_pointer args)
 706 {
 707   s7_pointer p, arg;
 708   char* s7__strncpy_0;
 709   char* s7__strncpy_1;
 710   size_t s7__strncpy_2;
 711   p = args;
 712   arg = s7_car(p);
 713   if (s7_is_string(arg))
 714     s7__strncpy_0 = (char*)s7_string(arg);
 715   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 716   p = s7_cdr(p);
 717   arg = s7_car(p);
 718   if (s7_is_string(arg))
 719     s7__strncpy_1 = (char*)s7_string(arg);
 720   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 721   p = s7_cdr(p);
 722   arg = s7_car(p);
 723   if (s7_is_integer(arg))
 724     s7__strncpy_2 = (size_t)s7_integer(arg);
 725   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 726   return(s7_make_string(sc, (char*)strncpy(s7__strncpy_0, s7__strncpy_1, s7__strncpy_2)));
 727 }
 728
 729
 730 /* -------- strcat -------- */
 731 static s7_pointer s7__strcat(s7_scheme *sc, s7_pointer args)
 732 {
 733   s7_pointer p, arg;
 734   char* s7__strcat_0;
 735   char* s7__strcat_1;
 736   p = args;
 737   arg = s7_car(p);
 738   if (s7_is_string(arg))
 739     s7__strcat_0 = (char*)s7_string(arg);
 740   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 741   p = s7_cdr(p);
 742   arg = s7_car(p);
 743   if (s7_is_string(arg))
 744     s7__strcat_1 = (char*)s7_string(arg);
 745   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 746   return(s7_make_string(sc, (char*)strcat(s7__strcat_0, s7__strcat_1)));
 747 }
 748
 749
 750 /* -------- strncat -------- */
 751 static s7_pointer s7__strncat(s7_scheme *sc, s7_pointer args)
 752 {
 753   s7_pointer p, arg;
 754   char* s7__strncat_0;
 755   char* s7__strncat_1;
 756   size_t s7__strncat_2;
 757   p = args;
 758   arg = s7_car(p);
 759   if (s7_is_string(arg))
 760     s7__strncat_0 = (char*)s7_string(arg);
 761   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 762   p = s7_cdr(p);
 763   arg = s7_car(p);
 764   if (s7_is_string(arg))
 765     s7__strncat_1 = (char*)s7_string(arg);
 766   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 767   p = s7_cdr(p);
 768   arg = s7_car(p);
 769   if (s7_is_integer(arg))
 770     s7__strncat_2 = (size_t)s7_integer(arg);
 771   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 772   return(s7_make_string(sc, (char*)strncat(s7__strncat_0, s7__strncat_1, s7__strncat_2)));
 773 }
 774
 775
 776 /* -------- strcmp -------- */
 777 static s7_pointer s7__strcmp(s7_scheme *sc, s7_pointer args)
 778 {
 779   s7_pointer p, arg;
 780   char* s7__strcmp_0;
 781   char* s7__strcmp_1;
 782   p = args;
 783   arg = s7_car(p);
 784   if (s7_is_string(arg))
 785     s7__strcmp_0 = (char*)s7_string(arg);
 786   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 787   p = s7_cdr(p);
 788   arg = s7_car(p);
 789   if (s7_is_string(arg))
 790     s7__strcmp_1 = (char*)s7_string(arg);
 791   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 792   return(s7_make_integer(sc, (s7_int)strcmp(s7__strcmp_0, s7__strcmp_1)));
 793 }
 794
 795
 796 /* -------- strncmp -------- */
 797 static s7_pointer s7__strncmp(s7_scheme *sc, s7_pointer args)
 798 {
 799   s7_pointer p, arg;
 800   char* s7__strncmp_0;
 801   char* s7__strncmp_1;
 802   size_t s7__strncmp_2;
 803   p = args;
 804   arg = s7_car(p);
 805   if (s7_is_string(arg))
 806     s7__strncmp_0 = (char*)s7_string(arg);
 807   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 808   p = s7_cdr(p);
 809   arg = s7_car(p);
 810   if (s7_is_string(arg))
 811     s7__strncmp_1 = (char*)s7_string(arg);
 812   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 813   p = s7_cdr(p);
 814   arg = s7_car(p);
 815   if (s7_is_integer(arg))
 816     s7__strncmp_2 = (size_t)s7_integer(arg);
 817   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 818   return(s7_make_integer(sc, (s7_int)strncmp(s7__strncmp_0, s7__strncmp_1, s7__strncmp_2)));
 819 }
 820
 821
 822 /* -------- strcoll -------- */
 823 static s7_pointer s7__strcoll(s7_scheme *sc, s7_pointer args)
 824 {
 825   s7_pointer p, arg;
 826   char* s7__strcoll_0;
 827   char* s7__strcoll_1;
 828   p = args;
 829   arg = s7_car(p);
 830   if (s7_is_string(arg))
 831     s7__strcoll_0 = (char*)s7_string(arg);
 832   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 833   p = s7_cdr(p);
 834   arg = s7_car(p);
 835   if (s7_is_string(arg))
 836     s7__strcoll_1 = (char*)s7_string(arg);
 837   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 838   return(s7_make_integer(sc, (s7_int)strcoll(s7__strcoll_0, s7__strcoll_1)));
 839 }
 840
 841
 842 /* -------- strxfrm -------- */
 843 static s7_pointer s7__strxfrm(s7_scheme *sc, s7_pointer args)
 844 {
 845   s7_pointer p, arg;
 846   char* s7__strxfrm_0;
 847   char* s7__strxfrm_1;
 848   size_t s7__strxfrm_2;
 849   p = args;
 850   arg = s7_car(p);
 851   if (s7_is_string(arg))
 852     s7__strxfrm_0 = (char*)s7_string(arg);
 853   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 854   p = s7_cdr(p);
 855   arg = s7_car(p);
 856   if (s7_is_string(arg))
 857     s7__strxfrm_1 = (char*)s7_string(arg);
 858   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 859   p = s7_cdr(p);
 860   arg = s7_car(p);
 861   if (s7_is_integer(arg))
 862     s7__strxfrm_2 = (size_t)s7_integer(arg);
 863   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
 864   return(s7_make_integer(sc, (s7_int)strxfrm(s7__strxfrm_0, s7__strxfrm_1, s7__strxfrm_2)));
 865 }
 866
 867
 868 /* -------- strchr -------- */
 869 static s7_pointer s7__strchr(s7_scheme *sc, s7_pointer args)
 870 {
 871   s7_pointer p, arg;
 872   char* s7__strchr_0;
 873   int s7__strchr_1;
 874   p = args;
 875   arg = s7_car(p);
 876   if (s7_is_string(arg))
 877     s7__strchr_0 = (char*)s7_string(arg);
 878   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 879   p = s7_cdr(p);
 880   arg = s7_car(p);
 881   if (s7_is_integer(arg))
 882     s7__strchr_1 = (int)s7_integer(arg);
 883   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 884   return(s7_make_string(sc, (char*)strchr(s7__strchr_0, s7__strchr_1)));
 885 }
 886
 887
 888 /* -------- strrchr -------- */
 889 static s7_pointer s7__strrchr(s7_scheme *sc, s7_pointer args)
 890 {
 891   s7_pointer p, arg;
 892   char* s7__strrchr_0;
 893   int s7__strrchr_1;
 894   p = args;
 895   arg = s7_car(p);
 896   if (s7_is_string(arg))
 897     s7__strrchr_0 = (char*)s7_string(arg);
 898   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 899   p = s7_cdr(p);
 900   arg = s7_car(p);
 901   if (s7_is_integer(arg))
 902     s7__strrchr_1 = (int)s7_integer(arg);
 903   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
 904   return(s7_make_string(sc, (char*)strrchr(s7__strrchr_0, s7__strrchr_1)));
 905 }
 906
 907
 908 /* -------- strcspn -------- */
 909 static s7_pointer s7__strcspn(s7_scheme *sc, s7_pointer args)
 910 {
 911   s7_pointer p, arg;
 912   char* s7__strcspn_0;
 913   char* s7__strcspn_1;
 914   p = args;
 915   arg = s7_car(p);
 916   if (s7_is_string(arg))
 917     s7__strcspn_0 = (char*)s7_string(arg);
 918   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 919   p = s7_cdr(p);
 920   arg = s7_car(p);
 921   if (s7_is_string(arg))
 922     s7__strcspn_1 = (char*)s7_string(arg);
 923   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 924   return(s7_make_integer(sc, (s7_int)strcspn(s7__strcspn_0, s7__strcspn_1)));
 925 }
 926
 927
 928 /* -------- strspn -------- */
 929 static s7_pointer s7__strspn(s7_scheme *sc, s7_pointer args)
 930 {
 931   s7_pointer p, arg;
 932   char* s7__strspn_0;
 933   char* s7__strspn_1;
 934   p = args;
 935   arg = s7_car(p);
 936   if (s7_is_string(arg))
 937     s7__strspn_0 = (char*)s7_string(arg);
 938   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 939   p = s7_cdr(p);
 940   arg = s7_car(p);
 941   if (s7_is_string(arg))
 942     s7__strspn_1 = (char*)s7_string(arg);
 943   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 944   return(s7_make_integer(sc, (s7_int)strspn(s7__strspn_0, s7__strspn_1)));
 945 }
 946
 947
 948 /* -------- strpbrk -------- */
 949 static s7_pointer s7__strpbrk(s7_scheme *sc, s7_pointer args)
 950 {
 951   s7_pointer p, arg;
 952   char* s7__strpbrk_0;
 953   char* s7__strpbrk_1;
 954   p = args;
 955   arg = s7_car(p);
 956   if (s7_is_string(arg))
 957     s7__strpbrk_0 = (char*)s7_string(arg);
 958   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 959   p = s7_cdr(p);
 960   arg = s7_car(p);
 961   if (s7_is_string(arg))
 962     s7__strpbrk_1 = (char*)s7_string(arg);
 963   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 964   return(s7_make_string(sc, (char*)strpbrk(s7__strpbrk_0, s7__strpbrk_1)));
 965 }
 966
 967
 968 /* -------- strstr -------- */
 969 static s7_pointer s7__strstr(s7_scheme *sc, s7_pointer args)
 970 {
 971   s7_pointer p, arg;
 972   char* s7__strstr_0;
 973   char* s7__strstr_1;
 974   p = args;
 975   arg = s7_car(p);
 976   if (s7_is_string(arg))
 977     s7__strstr_0 = (char*)s7_string(arg);
 978   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 979   p = s7_cdr(p);
 980   arg = s7_car(p);
 981   if (s7_is_string(arg))
 982     s7__strstr_1 = (char*)s7_string(arg);
 983   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
 984   return(s7_make_string(sc, (char*)strstr(s7__strstr_0, s7__strstr_1)));
 985 }
 986
 987
 988 /* -------- strtok -------- */
 989 static s7_pointer s7__strtok(s7_scheme *sc, s7_pointer args)
 990 {
 991   s7_pointer p, arg;
 992   char* s7__strtok_0;
 993   char* s7__strtok_1;
 994   p = args;
 995   arg = s7_car(p);
 996   if (s7_is_string(arg))
 997     s7__strtok_0 = (char*)s7_string(arg);
 998   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
 999   p = s7_cdr(p);
1000   arg = s7_car(p);
1001   if (s7_is_string(arg))
1002     s7__strtok_1 = (char*)s7_string(arg);
1003   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1004   return(s7_make_string(sc, (char*)strtok(s7__strtok_0, s7__strtok_1)));
1005 }
1006
1007
1008 /* -------- strlen -------- */
1009 static s7_pointer s7__strlen(s7_scheme *sc, s7_pointer args)
1010 {
1011   s7_pointer p, arg;
1012   char* s7__strlen_0;
1013   p = args;
1014   arg = s7_car(p);
1015   if (s7_is_string(arg))
1016     s7__strlen_0 = (char*)s7_string(arg);
1017   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1018   return(s7_make_integer(sc, (s7_int)strlen(s7__strlen_0)));
1019 }
1020
1021
1022 /* -------- strnlen -------- */
1023 static s7_pointer s7__strnlen(s7_scheme *sc, s7_pointer args)
1024 {
1025   s7_pointer p, arg;
1026   char* s7__strnlen_0;
1027   size_t s7__strnlen_1;
1028   p = args;
1029   arg = s7_car(p);
1030   if (s7_is_string(arg))
1031     s7__strnlen_0 = (char*)s7_string(arg);
1032   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1033   p = s7_cdr(p);
1034   arg = s7_car(p);
1035   if (s7_is_integer(arg))
1036     s7__strnlen_1 = (size_t)s7_integer(arg);
1037   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1038   return(s7_make_integer(sc, (s7_int)strnlen(s7__strnlen_0, s7__strnlen_1)));
1039 }
1040
1041
1042 /* -------- strerror -------- */
1043 static s7_pointer s7__strerror(s7_scheme *sc, s7_pointer args)
1044 {
1045   s7_pointer p, arg;
1046   int s7__strerror_0;
1047   p = args;
1048   arg = s7_car(p);
1049   if (s7_is_integer(arg))
1050     s7__strerror_0 = (int)s7_integer(arg);
1051   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1052   return(s7_make_string(sc, (char*)strerror(s7__strerror_0)));
1053 }
1054
1055
1056 /* -------- strcasecmp -------- */
1057 static s7_pointer s7__strcasecmp(s7_scheme *sc, s7_pointer args)
1058 {
1059   s7_pointer p, arg;
1060   char* s7__strcasecmp_0;
1061   char* s7__strcasecmp_1;
1062   p = args;
1063   arg = s7_car(p);
1064   if (s7_is_string(arg))
1065     s7__strcasecmp_0 = (char*)s7_string(arg);
1066   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1067   p = s7_cdr(p);
1068   arg = s7_car(p);
1069   if (s7_is_string(arg))
1070     s7__strcasecmp_1 = (char*)s7_string(arg);
1071   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1072   return(s7_make_integer(sc, (s7_int)strcasecmp(s7__strcasecmp_0, s7__strcasecmp_1)));
1073 }
1074
1075
1076 /* -------- strncasecmp -------- */
1077 static s7_pointer s7__strncasecmp(s7_scheme *sc, s7_pointer args)
1078 {
1079   s7_pointer p, arg;
1080   char* s7__strncasecmp_0;
1081   char* s7__strncasecmp_1;
1082   size_t s7__strncasecmp_2;
1083   p = args;
1084   arg = s7_car(p);
1085   if (s7_is_string(arg))
1086     s7__strncasecmp_0 = (char*)s7_string(arg);
1087   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1088   p = s7_cdr(p);
1089   arg = s7_car(p);
1090   if (s7_is_string(arg))
1091     s7__strncasecmp_1 = (char*)s7_string(arg);
1092   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1093   p = s7_cdr(p);
1094   arg = s7_car(p);
1095   if (s7_is_integer(arg))
1096     s7__strncasecmp_2 = (size_t)s7_integer(arg);
1097   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1098   return(s7_make_integer(sc, (s7_int)strncasecmp(s7__strncasecmp_0, s7__strncasecmp_1, s7__strncasecmp_2)));
1099 }
1100
1101
1102 /* -------- remove -------- */
1103 static s7_pointer s7__remove(s7_scheme *sc, s7_pointer args)
1104 {
1105   s7_pointer p, arg;
1106   char* s7__remove_0;
1107   p = args;
1108   arg = s7_car(p);
1109   if (s7_is_string(arg))
1110     s7__remove_0 = (char*)s7_string(arg);
1111   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1112   return(s7_make_integer(sc, (s7_int)remove(s7__remove_0)));
1113 }
1114
1115
1116 /* -------- rename -------- */
1117 static s7_pointer s7__rename(s7_scheme *sc, s7_pointer args)
1118 {
1119   s7_pointer p, arg;
1120   char* s7__rename_0;
1121   char* s7__rename_1;
1122   p = args;
1123   arg = s7_car(p);
1124   if (s7_is_string(arg))
1125     s7__rename_0 = (char*)s7_string(arg);
1126   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1127   p = s7_cdr(p);
1128   arg = s7_car(p);
1129   if (s7_is_string(arg))
1130     s7__rename_1 = (char*)s7_string(arg);
1131   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1132   return(s7_make_integer(sc, (s7_int)rename(s7__rename_0, s7__rename_1)));
1133 }
1134
1135
1136 /* -------- tmpfile -------- */
1137 static s7_pointer s7__tmpfile(s7_scheme *sc, s7_pointer args)
1138 {
1139   return(s7_make_c_pointer_with_type(sc, (void*)tmpfile(), FILE__symbol, s7_f(sc)));
1140 }
1141
1142
1143 /* -------- fclose -------- */
1144 static s7_pointer s7__fclose(s7_scheme *sc, s7_pointer args)
1145 {
1146   s7_pointer p, arg;
1147   FILE* s7__fclose_0;
1148   p = args;
1149   arg = s7_car(p);
1150   s7__fclose_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1151   return(s7_make_integer(sc, (s7_int)fclose(s7__fclose_0)));
1152 }
1153
1154
1155 /* -------- fflush -------- */
1156 static s7_pointer s7__fflush(s7_scheme *sc, s7_pointer args)
1157 {
1158   s7_pointer p, arg;
1159   FILE* s7__fflush_0;
1160   p = args;
1161   arg = s7_car(p);
1162   s7__fflush_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1163   return(s7_make_integer(sc, (s7_int)fflush(s7__fflush_0)));
1164 }
1165
1166
1167 /* -------- fopen -------- */
1168 static s7_pointer s7__fopen(s7_scheme *sc, s7_pointer args)
1169 {
1170   s7_pointer p, arg;
1171   char* s7__fopen_0;
1172   char* s7__fopen_1;
1173   p = args;
1174   arg = s7_car(p);
1175   if (s7_is_string(arg))
1176     s7__fopen_0 = (char*)s7_string(arg);
1177   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1178   p = s7_cdr(p);
1179   arg = s7_car(p);
1180   if (s7_is_string(arg))
1181     s7__fopen_1 = (char*)s7_string(arg);
1182   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1183   return(s7_make_c_pointer_with_type(sc, (void*)fopen(s7__fopen_0, s7__fopen_1), FILE__symbol, s7_f(sc)));
1184 }
1185
1186
1187 /* -------- freopen -------- */
1188 static s7_pointer s7__freopen(s7_scheme *sc, s7_pointer args)
1189 {
1190   s7_pointer p, arg;
1191   char* s7__freopen_0;
1192   char* s7__freopen_1;
1193   FILE* s7__freopen_2;
1194   p = args;
1195   arg = s7_car(p);
1196   if (s7_is_string(arg))
1197     s7__freopen_0 = (char*)s7_string(arg);
1198   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1199   p = s7_cdr(p);
1200   arg = s7_car(p);
1201   if (s7_is_string(arg))
1202     s7__freopen_1 = (char*)s7_string(arg);
1203   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1204   p = s7_cdr(p);
1205   arg = s7_car(p);
1206   s7__freopen_2 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 3);
1207   return(s7_make_c_pointer_with_type(sc, (void*)freopen(s7__freopen_0, s7__freopen_1, s7__freopen_2), FILE__symbol, s7_f(sc)));
1208 }
1209
1210
1211 /* -------- fdopen -------- */
1212 static s7_pointer s7__fdopen(s7_scheme *sc, s7_pointer args)
1213 {
1214   s7_pointer p, arg;
1215   int s7__fdopen_0;
1216   char* s7__fdopen_1;
1217   p = args;
1218   arg = s7_car(p);
1219   if (s7_is_integer(arg))
1220     s7__fdopen_0 = (int)s7_integer(arg);
1221   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1222   p = s7_cdr(p);
1223   arg = s7_car(p);
1224   if (s7_is_string(arg))
1225     s7__fdopen_1 = (char*)s7_string(arg);
1226   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1227   return(s7_make_c_pointer_with_type(sc, (void*)fdopen(s7__fdopen_0, s7__fdopen_1), FILE__symbol, s7_f(sc)));
1228 }
1229
1230
1231 /* -------- setbuf -------- */
1232 static s7_pointer s7__setbuf(s7_scheme *sc, s7_pointer args)
1233 {
1234   s7_pointer p, arg;
1235   FILE* s7__setbuf_0;
1236   char* s7__setbuf_1;
1237   p = args;
1238   arg = s7_car(p);
1239   s7__setbuf_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 1);
1240   p = s7_cdr(p);
1241   arg = s7_car(p);
1242   if (s7_is_string(arg))
1243     s7__setbuf_1 = (char*)s7_string(arg);
1244   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1245   setbuf(s7__setbuf_0, s7__setbuf_1);
1246   return(s7_unspecified(sc));
1247 }
1248
1249
1250 /* -------- setvbuf -------- */
1251 static s7_pointer s7__setvbuf(s7_scheme *sc, s7_pointer args)
1252 {
1253   s7_pointer p, arg;
1254   FILE* s7__setvbuf_0;
1255   char* s7__setvbuf_1;
1256   int s7__setvbuf_2;
1257   size_t s7__setvbuf_3;
1258   p = args;
1259   arg = s7_car(p);
1260   s7__setvbuf_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 1);
1261   p = s7_cdr(p);
1262   arg = s7_car(p);
1263   if (s7_is_string(arg))
1264     s7__setvbuf_1 = (char*)s7_string(arg);
1265   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1266   p = s7_cdr(p);
1267   arg = s7_car(p);
1268   if (s7_is_integer(arg))
1269     s7__setvbuf_2 = (int)s7_integer(arg);
1270   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1271   p = s7_cdr(p);
1272   arg = s7_car(p);
1273   if (s7_is_integer(arg))
1274     s7__setvbuf_3 = (size_t)s7_integer(arg);
1275   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
1276   return(s7_make_integer(sc, (s7_int)setvbuf(s7__setvbuf_0, s7__setvbuf_1, s7__setvbuf_2, s7__setvbuf_3)));
1277 }
1278
1279
1280 /* -------- setlinebuf -------- */
1281 static s7_pointer s7__setlinebuf(s7_scheme *sc, s7_pointer args)
1282 {
1283   s7_pointer p, arg;
1284   FILE* s7__setlinebuf_0;
1285   p = args;
1286   arg = s7_car(p);
1287   s7__setlinebuf_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1288   setlinebuf(s7__setlinebuf_0);
1289   return(s7_unspecified(sc));
1290 }
1291
1292
1293 /* -------- fgetc -------- */
1294 static s7_pointer s7__fgetc(s7_scheme *sc, s7_pointer args)
1295 {
1296   s7_pointer p, arg;
1297   FILE* s7__fgetc_0;
1298   p = args;
1299   arg = s7_car(p);
1300   s7__fgetc_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1301   return(s7_make_integer(sc, (s7_int)fgetc(s7__fgetc_0)));
1302 }
1303
1304
1305 /* -------- getc -------- */
1306 static s7_pointer s7__getc(s7_scheme *sc, s7_pointer args)
1307 {
1308   s7_pointer p, arg;
1309   FILE* s7__getc_0;
1310   p = args;
1311   arg = s7_car(p);
1312   s7__getc_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1313   return(s7_make_integer(sc, (s7_int)getc(s7__getc_0)));
1314 }
1315
1316
1317 /* -------- getchar -------- */
1318 static s7_pointer s7__getchar(s7_scheme *sc, s7_pointer args)
1319 {
1320   return(s7_make_integer(sc, (s7_int)getchar()));
1321 }
1322
1323
1324 /* -------- fputc -------- */
1325 static s7_pointer s7__fputc(s7_scheme *sc, s7_pointer args)
1326 {
1327   s7_pointer p, arg;
1328   int s7__fputc_0;
1329   FILE* s7__fputc_1;
1330   p = args;
1331   arg = s7_car(p);
1332   if (s7_is_integer(arg))
1333     s7__fputc_0 = (int)s7_integer(arg);
1334   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1335   p = s7_cdr(p);
1336   arg = s7_car(p);
1337   s7__fputc_1 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 2);
1338   return(s7_make_integer(sc, (s7_int)fputc(s7__fputc_0, s7__fputc_1)));
1339 }
1340
1341
1342 /* -------- putc -------- */
1343 static s7_pointer s7__putc(s7_scheme *sc, s7_pointer args)
1344 {
1345   s7_pointer p, arg;
1346   int s7__putc_0;
1347   FILE* s7__putc_1;
1348   p = args;
1349   arg = s7_car(p);
1350   if (s7_is_integer(arg))
1351     s7__putc_0 = (int)s7_integer(arg);
1352   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1353   p = s7_cdr(p);
1354   arg = s7_car(p);
1355   s7__putc_1 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 2);
1356   return(s7_make_integer(sc, (s7_int)putc(s7__putc_0, s7__putc_1)));
1357 }
1358
1359
1360 /* -------- putchar -------- */
1361 static s7_pointer s7__putchar(s7_scheme *sc, s7_pointer args)
1362 {
1363   s7_pointer p, arg;
1364   int s7__putchar_0;
1365   p = args;
1366   arg = s7_car(p);
1367   if (s7_is_integer(arg))
1368     s7__putchar_0 = (int)s7_integer(arg);
1369   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1370   return(s7_make_integer(sc, (s7_int)putchar(s7__putchar_0)));
1371 }
1372 static s7_int putchar_i_i(s7_int i1) {return(putchar(i1));}
1373
1374
1375 /* -------- fgets -------- */
1376 static s7_pointer s7__fgets(s7_scheme *sc, s7_pointer args)
1377 {
1378   s7_pointer p, arg;
1379   char* s7__fgets_0;
1380   int s7__fgets_1;
1381   FILE* s7__fgets_2;
1382   p = args;
1383   arg = s7_car(p);
1384   if (s7_is_string(arg))
1385     s7__fgets_0 = (char*)s7_string(arg);
1386   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1387   p = s7_cdr(p);
1388   arg = s7_car(p);
1389   if (s7_is_integer(arg))
1390     s7__fgets_1 = (int)s7_integer(arg);
1391   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1392   p = s7_cdr(p);
1393   arg = s7_car(p);
1394   s7__fgets_2 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 3);
1395   return(s7_make_string(sc, (char*)fgets(s7__fgets_0, s7__fgets_1, s7__fgets_2)));
1396 }
1397
1398
1399 /* -------- fputs -------- */
1400 static s7_pointer s7__fputs(s7_scheme *sc, s7_pointer args)
1401 {
1402   s7_pointer p, arg;
1403   char* s7__fputs_0;
1404   FILE* s7__fputs_1;
1405   p = args;
1406   arg = s7_car(p);
1407   if (s7_is_string(arg))
1408     s7__fputs_0 = (char*)s7_string(arg);
1409   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1410   p = s7_cdr(p);
1411   arg = s7_car(p);
1412   s7__fputs_1 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 2);
1413   return(s7_make_integer(sc, (s7_int)fputs(s7__fputs_0, s7__fputs_1)));
1414 }
1415
1416
1417 /* -------- puts -------- */
1418 static s7_pointer s7__puts(s7_scheme *sc, s7_pointer args)
1419 {
1420   s7_pointer p, arg;
1421   char* s7__puts_0;
1422   p = args;
1423   arg = s7_car(p);
1424   if (s7_is_string(arg))
1425     s7__puts_0 = (char*)s7_string(arg);
1426   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1427   return(s7_make_integer(sc, (s7_int)puts(s7__puts_0)));
1428 }
1429
1430
1431 /* -------- ungetc -------- */
1432 static s7_pointer s7__ungetc(s7_scheme *sc, s7_pointer args)
1433 {
1434   s7_pointer p, arg;
1435   int s7__ungetc_0;
1436   FILE* s7__ungetc_1;
1437   p = args;
1438   arg = s7_car(p);
1439   if (s7_is_integer(arg))
1440     s7__ungetc_0 = (int)s7_integer(arg);
1441   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1442   p = s7_cdr(p);
1443   arg = s7_car(p);
1444   s7__ungetc_1 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 2);
1445   return(s7_make_integer(sc, (s7_int)ungetc(s7__ungetc_0, s7__ungetc_1)));
1446 }
1447
1448
1449 /* -------- fread -------- */
1450 static s7_pointer s7__fread(s7_scheme *sc, s7_pointer args)
1451 {
1452   s7_pointer p, arg;
1453   void* s7__fread_0;
1454   size_t s7__fread_1;
1455   size_t s7__fread_2;
1456   FILE* s7__fread_3;
1457   p = args;
1458   arg = s7_car(p);
1459   s7__fread_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
1460   p = s7_cdr(p);
1461   arg = s7_car(p);
1462   if (s7_is_integer(arg))
1463     s7__fread_1 = (size_t)s7_integer(arg);
1464   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1465   p = s7_cdr(p);
1466   arg = s7_car(p);
1467   if (s7_is_integer(arg))
1468     s7__fread_2 = (size_t)s7_integer(arg);
1469   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1470   p = s7_cdr(p);
1471   arg = s7_car(p);
1472   s7__fread_3 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 4);
1473   return(s7_make_integer(sc, (s7_int)fread(s7__fread_0, s7__fread_1, s7__fread_2, s7__fread_3)));
1474 }
1475
1476
1477 /* -------- fwrite -------- */
1478 static s7_pointer s7__fwrite(s7_scheme *sc, s7_pointer args)
1479 {
1480   s7_pointer p, arg;
1481   void* s7__fwrite_0;
1482   size_t s7__fwrite_1;
1483   size_t s7__fwrite_2;
1484   FILE* s7__fwrite_3;
1485   p = args;
1486   arg = s7_car(p);
1487   s7__fwrite_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
1488   p = s7_cdr(p);
1489   arg = s7_car(p);
1490   if (s7_is_integer(arg))
1491     s7__fwrite_1 = (size_t)s7_integer(arg);
1492   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1493   p = s7_cdr(p);
1494   arg = s7_car(p);
1495   if (s7_is_integer(arg))
1496     s7__fwrite_2 = (size_t)s7_integer(arg);
1497   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1498   p = s7_cdr(p);
1499   arg = s7_car(p);
1500   s7__fwrite_3 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 4);
1501   return(s7_make_integer(sc, (s7_int)fwrite(s7__fwrite_0, s7__fwrite_1, s7__fwrite_2, s7__fwrite_3)));
1502 }
1503
1504
1505 /* -------- fseek -------- */
1506 static s7_pointer s7__fseek(s7_scheme *sc, s7_pointer args)
1507 {
1508   s7_pointer p, arg;
1509   FILE* s7__fseek_0;
1510   int s7__fseek_1;
1511   int s7__fseek_2;
1512   p = args;
1513   arg = s7_car(p);
1514   s7__fseek_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 1);
1515   p = s7_cdr(p);
1516   arg = s7_car(p);
1517   if (s7_is_integer(arg))
1518     s7__fseek_1 = (int)s7_integer(arg);
1519   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1520   p = s7_cdr(p);
1521   arg = s7_car(p);
1522   if (s7_is_integer(arg))
1523     s7__fseek_2 = (int)s7_integer(arg);
1524   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1525   return(s7_make_integer(sc, (s7_int)fseek(s7__fseek_0, s7__fseek_1, s7__fseek_2)));
1526 }
1527
1528
1529 /* -------- ftell -------- */
1530 static s7_pointer s7__ftell(s7_scheme *sc, s7_pointer args)
1531 {
1532   s7_pointer p, arg;
1533   FILE* s7__ftell_0;
1534   p = args;
1535   arg = s7_car(p);
1536   s7__ftell_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1537   return(s7_make_integer(sc, (s7_int)ftell(s7__ftell_0)));
1538 }
1539
1540
1541 /* -------- rewind -------- */
1542 static s7_pointer s7__rewind(s7_scheme *sc, s7_pointer args)
1543 {
1544   s7_pointer p, arg;
1545   FILE* s7__rewind_0;
1546   p = args;
1547   arg = s7_car(p);
1548   s7__rewind_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1549   rewind(s7__rewind_0);
1550   return(s7_unspecified(sc));
1551 }
1552
1553
1554 /* -------- fgetpos -------- */
1555 static s7_pointer s7__fgetpos(s7_scheme *sc, s7_pointer args)
1556 {
1557   s7_pointer p, arg;
1558   FILE* s7__fgetpos_0;
1559   fpos_t* s7__fgetpos_1;
1560   p = args;
1561   arg = s7_car(p);
1562   s7__fgetpos_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 1);
1563   p = s7_cdr(p);
1564   arg = s7_car(p);
1565   s7__fgetpos_1 = (fpos_t*)s7_c_pointer_with_type(sc, arg, fpos_t__symbol, __func__, 2);
1566   return(s7_make_integer(sc, (s7_int)fgetpos(s7__fgetpos_0, s7__fgetpos_1)));
1567 }
1568
1569
1570 /* -------- fsetpos -------- */
1571 static s7_pointer s7__fsetpos(s7_scheme *sc, s7_pointer args)
1572 {
1573   s7_pointer p, arg;
1574   FILE* s7__fsetpos_0;
1575   fpos_t* s7__fsetpos_1;
1576   p = args;
1577   arg = s7_car(p);
1578   s7__fsetpos_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 1);
1579   p = s7_cdr(p);
1580   arg = s7_car(p);
1581   s7__fsetpos_1 = (fpos_t*)s7_c_pointer_with_type(sc, arg, fpos_t__symbol, __func__, 2);
1582   return(s7_make_integer(sc, (s7_int)fsetpos(s7__fsetpos_0, s7__fsetpos_1)));
1583 }
1584
1585
1586 /* -------- clearerr -------- */
1587 static s7_pointer s7__clearerr(s7_scheme *sc, s7_pointer args)
1588 {
1589   s7_pointer p, arg;
1590   FILE* s7__clearerr_0;
1591   p = args;
1592   arg = s7_car(p);
1593   s7__clearerr_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1594   clearerr(s7__clearerr_0);
1595   return(s7_unspecified(sc));
1596 }
1597
1598
1599 /* -------- feof -------- */
1600 static s7_pointer s7__feof(s7_scheme *sc, s7_pointer args)
1601 {
1602   s7_pointer p, arg;
1603   FILE* s7__feof_0;
1604   p = args;
1605   arg = s7_car(p);
1606   s7__feof_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1607   return(s7_make_integer(sc, (s7_int)feof(s7__feof_0)));
1608 }
1609
1610
1611 /* -------- ferror -------- */
1612 static s7_pointer s7__ferror(s7_scheme *sc, s7_pointer args)
1613 {
1614   s7_pointer p, arg;
1615   FILE* s7__ferror_0;
1616   p = args;
1617   arg = s7_car(p);
1618   s7__ferror_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1619   return(s7_make_integer(sc, (s7_int)ferror(s7__ferror_0)));
1620 }
1621
1622
1623 /* -------- perror -------- */
1624 static s7_pointer s7__perror(s7_scheme *sc, s7_pointer args)
1625 {
1626   s7_pointer p, arg;
1627   char* s7__perror_0;
1628   p = args;
1629   arg = s7_car(p);
1630   if (s7_is_string(arg))
1631     s7__perror_0 = (char*)s7_string(arg);
1632   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1633   perror(s7__perror_0);
1634   return(s7_unspecified(sc));
1635 }
1636
1637
1638 /* -------- fileno -------- */
1639 static s7_pointer s7__fileno(s7_scheme *sc, s7_pointer args)
1640 {
1641   s7_pointer p, arg;
1642   FILE* s7__fileno_0;
1643   p = args;
1644   arg = s7_car(p);
1645   s7__fileno_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1646   return(s7_make_integer(sc, (s7_int)fileno(s7__fileno_0)));
1647 }
1648
1649
1650 /* -------- popen -------- */
1651 static s7_pointer s7__popen(s7_scheme *sc, s7_pointer args)
1652 {
1653   s7_pointer p, arg;
1654   char* s7__popen_0;
1655   char* s7__popen_1;
1656   p = args;
1657   arg = s7_car(p);
1658   if (s7_is_string(arg))
1659     s7__popen_0 = (char*)s7_string(arg);
1660   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1661   p = s7_cdr(p);
1662   arg = s7_car(p);
1663   if (s7_is_string(arg))
1664     s7__popen_1 = (char*)s7_string(arg);
1665   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1666   return(s7_make_c_pointer_with_type(sc, (void*)popen(s7__popen_0, s7__popen_1), FILE__symbol, s7_f(sc)));
1667 }
1668
1669
1670 /* -------- pclose -------- */
1671 static s7_pointer s7__pclose(s7_scheme *sc, s7_pointer args)
1672 {
1673   s7_pointer p, arg;
1674   FILE* s7__pclose_0;
1675   p = args;
1676   arg = s7_car(p);
1677   s7__pclose_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1678   return(s7_make_integer(sc, (s7_int)pclose(s7__pclose_0)));
1679 }
1680
1681
1682 /* -------- ctermid -------- */
1683 static s7_pointer s7__ctermid(s7_scheme *sc, s7_pointer args)
1684 {
1685   s7_pointer p, arg;
1686   char* s7__ctermid_0;
1687   p = args;
1688   arg = s7_car(p);
1689   if (s7_is_string(arg))
1690     s7__ctermid_0 = (char*)s7_string(arg);
1691   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1692   return(s7_make_string(sc, (char*)ctermid(s7__ctermid_0)));
1693 }
1694
1695
1696 /* -------- flockfile -------- */
1697 static s7_pointer s7__flockfile(s7_scheme *sc, s7_pointer args)
1698 {
1699   s7_pointer p, arg;
1700   FILE* s7__flockfile_0;
1701   p = args;
1702   arg = s7_car(p);
1703   s7__flockfile_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1704   flockfile(s7__flockfile_0);
1705   return(s7_unspecified(sc));
1706 }
1707
1708
1709 /* -------- ftrylockfile -------- */
1710 static s7_pointer s7__ftrylockfile(s7_scheme *sc, s7_pointer args)
1711 {
1712   s7_pointer p, arg;
1713   FILE* s7__ftrylockfile_0;
1714   p = args;
1715   arg = s7_car(p);
1716   s7__ftrylockfile_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1717   return(s7_make_integer(sc, (s7_int)ftrylockfile(s7__ftrylockfile_0)));
1718 }
1719
1720
1721 /* -------- funlockfile -------- */
1722 static s7_pointer s7__funlockfile(s7_scheme *sc, s7_pointer args)
1723 {
1724   s7_pointer p, arg;
1725   FILE* s7__funlockfile_0;
1726   p = args;
1727   arg = s7_car(p);
1728   s7__funlockfile_0 = (FILE*)s7_c_pointer_with_type(sc, arg, FILE__symbol, __func__, 0);
1729   funlockfile(s7__funlockfile_0);
1730   return(s7_unspecified(sc));
1731 }
1732
1733
1734 /* -------- atof -------- */
1735 static s7_pointer s7__atof(s7_scheme *sc, s7_pointer args)
1736 {
1737   s7_pointer p, arg;
1738   char* s7__atof_0;
1739   p = args;
1740   arg = s7_car(p);
1741   if (s7_is_string(arg))
1742     s7__atof_0 = (char*)s7_string(arg);
1743   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1744   return(s7_make_real(sc, (s7_double)atof(s7__atof_0)));
1745 }
1746
1747
1748 /* -------- atoi -------- */
1749 static s7_pointer s7__atoi(s7_scheme *sc, s7_pointer args)
1750 {
1751   s7_pointer p, arg;
1752   char* s7__atoi_0;
1753   p = args;
1754   arg = s7_car(p);
1755   if (s7_is_string(arg))
1756     s7__atoi_0 = (char*)s7_string(arg);
1757   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1758   return(s7_make_integer(sc, (s7_int)atoi(s7__atoi_0)));
1759 }
1760
1761
1762 /* -------- atol -------- */
1763 static s7_pointer s7__atol(s7_scheme *sc, s7_pointer args)
1764 {
1765   s7_pointer p, arg;
1766   char* s7__atol_0;
1767   p = args;
1768   arg = s7_car(p);
1769   if (s7_is_string(arg))
1770     s7__atol_0 = (char*)s7_string(arg);
1771   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1772   return(s7_make_integer(sc, (s7_int)atol(s7__atol_0)));
1773 }
1774
1775
1776 /* -------- atoll -------- */
1777 static s7_pointer s7__atoll(s7_scheme *sc, s7_pointer args)
1778 {
1779   s7_pointer p, arg;
1780   char* s7__atoll_0;
1781   p = args;
1782   arg = s7_car(p);
1783   if (s7_is_string(arg))
1784     s7__atoll_0 = (char*)s7_string(arg);
1785   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1786   return(s7_make_integer(sc, (s7_int)atoll(s7__atoll_0)));
1787 }
1788
1789
1790 /* -------- random -------- */
1791 static s7_pointer s7__random(s7_scheme *sc, s7_pointer args)
1792 {
1793   return(s7_make_integer(sc, (s7_int)random()));
1794 }
1795
1796
1797 /* -------- srandom -------- */
1798 static s7_pointer s7__srandom(s7_scheme *sc, s7_pointer args)
1799 {
1800   s7_pointer p, arg;
1801   int s7__srandom_0;
1802   p = args;
1803   arg = s7_car(p);
1804   if (s7_is_integer(arg))
1805     s7__srandom_0 = (int)s7_integer(arg);
1806   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1807   srandom(s7__srandom_0);
1808   return(s7_unspecified(sc));
1809 }
1810
1811
1812 /* -------- initstate -------- */
1813 static s7_pointer s7__initstate(s7_scheme *sc, s7_pointer args)
1814 {
1815   s7_pointer p, arg;
1816   int s7__initstate_0;
1817   char* s7__initstate_1;
1818   size_t s7__initstate_2;
1819   p = args;
1820   arg = s7_car(p);
1821   if (s7_is_integer(arg))
1822     s7__initstate_0 = (int)s7_integer(arg);
1823   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1824   p = s7_cdr(p);
1825   arg = s7_car(p);
1826   if (s7_is_string(arg))
1827     s7__initstate_1 = (char*)s7_string(arg);
1828   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1829   p = s7_cdr(p);
1830   arg = s7_car(p);
1831   if (s7_is_integer(arg))
1832     s7__initstate_2 = (size_t)s7_integer(arg);
1833   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1834   return(s7_make_string(sc, (char*)initstate(s7__initstate_0, s7__initstate_1, s7__initstate_2)));
1835 }
1836
1837
1838 /* -------- setstate -------- */
1839 static s7_pointer s7__setstate(s7_scheme *sc, s7_pointer args)
1840 {
1841   s7_pointer p, arg;
1842   char* s7__setstate_0;
1843   p = args;
1844   arg = s7_car(p);
1845   if (s7_is_string(arg))
1846     s7__setstate_0 = (char*)s7_string(arg);
1847   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1848   return(s7_make_string(sc, (char*)setstate(s7__setstate_0)));
1849 }
1850
1851
1852 /* -------- rand -------- */
1853 static s7_pointer s7__rand(s7_scheme *sc, s7_pointer args)
1854 {
1855   return(s7_make_integer(sc, (s7_int)rand()));
1856 }
1857
1858
1859 /* -------- srand -------- */
1860 static s7_pointer s7__srand(s7_scheme *sc, s7_pointer args)
1861 {
1862   s7_pointer p, arg;
1863   int s7__srand_0;
1864   p = args;
1865   arg = s7_car(p);
1866   if (s7_is_integer(arg))
1867     s7__srand_0 = (int)s7_integer(arg);
1868   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1869   srand(s7__srand_0);
1870   return(s7_unspecified(sc));
1871 }
1872
1873
1874 /* -------- malloc -------- */
1875 static s7_pointer s7__malloc(s7_scheme *sc, s7_pointer args)
1876 {
1877   s7_pointer p, arg;
1878   size_t s7__malloc_0;
1879   p = args;
1880   arg = s7_car(p);
1881   if (s7_is_integer(arg))
1882     s7__malloc_0 = (size_t)s7_integer(arg);
1883   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1884   return(s7_make_c_pointer_with_type(sc, (void*)malloc(s7__malloc_0), void__symbol, s7_f(sc)));
1885 }
1886
1887
1888 /* -------- calloc -------- */
1889 static s7_pointer s7__calloc(s7_scheme *sc, s7_pointer args)
1890 {
1891   s7_pointer p, arg;
1892   size_t s7__calloc_0;
1893   size_t s7__calloc_1;
1894   p = args;
1895   arg = s7_car(p);
1896   if (s7_is_integer(arg))
1897     s7__calloc_0 = (size_t)s7_integer(arg);
1898   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
1899   p = s7_cdr(p);
1900   arg = s7_car(p);
1901   if (s7_is_integer(arg))
1902     s7__calloc_1 = (size_t)s7_integer(arg);
1903   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1904   return(s7_make_c_pointer_with_type(sc, (void*)calloc(s7__calloc_0, s7__calloc_1), void__symbol, s7_f(sc)));
1905 }
1906
1907
1908 /* -------- realloc -------- */
1909 static s7_pointer s7__realloc(s7_scheme *sc, s7_pointer args)
1910 {
1911   s7_pointer p, arg;
1912   void* s7__realloc_0;
1913   size_t s7__realloc_1;
1914   p = args;
1915   arg = s7_car(p);
1916   s7__realloc_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
1917   p = s7_cdr(p);
1918   arg = s7_car(p);
1919   if (s7_is_integer(arg))
1920     s7__realloc_1 = (size_t)s7_integer(arg);
1921   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
1922   return(s7_make_c_pointer_with_type(sc, (void*)realloc(s7__realloc_0, s7__realloc_1), void__symbol, s7_f(sc)));
1923 }
1924
1925
1926 /* -------- abort -------- */
1927 static s7_pointer s7__abort(s7_scheme *sc, s7_pointer args)
1928 {
1929   abort();
1930   return(s7_unspecified(sc));
1931 }
1932
1933
1934 /* -------- exit -------- */
1935 static s7_pointer s7__exit(s7_scheme *sc, s7_pointer args)
1936 {
1937   s7_pointer p, arg;
1938   int s7__exit_0;
1939   p = args;
1940   arg = s7_car(p);
1941   if (s7_is_integer(arg))
1942     s7__exit_0 = (int)s7_integer(arg);
1943   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
1944   exit(s7__exit_0);
1945   return(s7_unspecified(sc));
1946 }
1947
1948
1949 /* -------- getenv -------- */
1950 static s7_pointer s7__getenv(s7_scheme *sc, s7_pointer args)
1951 {
1952   s7_pointer p, arg;
1953   char* s7__getenv_0;
1954   p = args;
1955   arg = s7_car(p);
1956   if (s7_is_string(arg))
1957     s7__getenv_0 = (char*)s7_string(arg);
1958   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1959   return(s7_make_string(sc, (char*)getenv(s7__getenv_0)));
1960 }
1961
1962
1963 /* -------- putenv -------- */
1964 static s7_pointer s7__putenv(s7_scheme *sc, s7_pointer args)
1965 {
1966   s7_pointer p, arg;
1967   char* s7__putenv_0;
1968   p = args;
1969   arg = s7_car(p);
1970   if (s7_is_string(arg))
1971     s7__putenv_0 = (char*)s7_string(arg);
1972   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
1973   return(s7_make_integer(sc, (s7_int)putenv(s7__putenv_0)));
1974 }
1975
1976
1977 /* -------- setenv -------- */
1978 static s7_pointer s7__setenv(s7_scheme *sc, s7_pointer args)
1979 {
1980   s7_pointer p, arg;
1981   char* s7__setenv_0;
1982   char* s7__setenv_1;
1983   int s7__setenv_2;
1984   p = args;
1985   arg = s7_car(p);
1986   if (s7_is_string(arg))
1987     s7__setenv_0 = (char*)s7_string(arg);
1988   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
1989   p = s7_cdr(p);
1990   arg = s7_car(p);
1991   if (s7_is_string(arg))
1992     s7__setenv_1 = (char*)s7_string(arg);
1993   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
1994   p = s7_cdr(p);
1995   arg = s7_car(p);
1996   if (s7_is_integer(arg))
1997     s7__setenv_2 = (int)s7_integer(arg);
1998   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
1999   return(s7_make_integer(sc, (s7_int)setenv(s7__setenv_0, s7__setenv_1, s7__setenv_2)));
2000 }
2001
2002
2003 /* -------- unsetenv -------- */
2004 static s7_pointer s7__unsetenv(s7_scheme *sc, s7_pointer args)
2005 {
2006   s7_pointer p, arg;
2007   char* s7__unsetenv_0;
2008   p = args;
2009   arg = s7_car(p);
2010   if (s7_is_string(arg))
2011     s7__unsetenv_0 = (char*)s7_string(arg);
2012   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2013   return(s7_make_integer(sc, (s7_int)unsetenv(s7__unsetenv_0)));
2014 }
2015
2016
2017 /* -------- mkstemp -------- */
2018 static s7_pointer s7__mkstemp(s7_scheme *sc, s7_pointer args)
2019 {
2020   s7_pointer p, arg;
2021   char* s7__mkstemp_0;
2022   p = args;
2023   arg = s7_car(p);
2024   if (s7_is_string(arg))
2025     s7__mkstemp_0 = (char*)s7_string(arg);
2026   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2027   return(s7_make_integer(sc, (s7_int)mkstemp(s7__mkstemp_0)));
2028 }
2029
2030
2031 /* -------- system -------- */
2032 static s7_pointer s7__system(s7_scheme *sc, s7_pointer args)
2033 {
2034   s7_pointer p, arg;
2035   char* s7__system_0;
2036   p = args;
2037   arg = s7_car(p);
2038   if (s7_is_string(arg))
2039     s7__system_0 = (char*)s7_string(arg);
2040   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2041   return(s7_make_integer(sc, (s7_int)system(s7__system_0)));
2042 }
2043
2044
2045 /* -------- abs -------- */
2046 static s7_pointer s7__abs(s7_scheme *sc, s7_pointer args)
2047 {
2048   s7_pointer p, arg;
2049   int s7__abs_0;
2050   p = args;
2051   arg = s7_car(p);
2052   if (s7_is_integer(arg))
2053     s7__abs_0 = (int)s7_integer(arg);
2054   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2055   return(s7_make_integer(sc, (s7_int)abs(s7__abs_0)));
2056 }
2057 static s7_int abs_i_i(s7_int i1) {return(llabs(i1));}
2058
2059
2060 /* -------- labs -------- */
2061 static s7_pointer s7__labs(s7_scheme *sc, s7_pointer args)
2062 {
2063   s7_pointer p, arg;
2064   int s7__labs_0;
2065   p = args;
2066   arg = s7_car(p);
2067   if (s7_is_integer(arg))
2068     s7__labs_0 = (int)s7_integer(arg);
2069   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2070   return(s7_make_integer(sc, (s7_int)labs(s7__labs_0)));
2071 }
2072 static s7_int labs_i_i(s7_int i1) {return(labs(i1));}
2073
2074 static s7_pointer g_llabs(s7_scheme *sc, s7_pointer args)
2075                   {
2076                   #if  ((__GNUC__) && ((__GNUC__ < 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ < 4))))
2077                     return(s7_make_integer(sc, labs(s7_integer(s7_car(args)))));
2078                   #else
2079                     return(s7_make_integer(sc, llabs(s7_integer(s7_car(args)))));
2080                   #endif
2081                   }
2082                  static s7_pointer g_realpath(s7_scheme *sc, s7_pointer args)
2083                   {
2084                     char *s7_dl_realpath_0, *res;
2085                     if (s7_is_string(s7_car(args)))
2086                        s7_dl_realpath_0 = (char*)s7_string(s7_car(args));
2087                     else return(s7_wrong_type_arg_error(sc, "realpath", 1, s7_car(args), "string"));
2088                     res = realpath(s7_dl_realpath_0, NULL);
2089                     if (res) {s7_pointer str; str = s7_make_string(sc, res); free(res); return(str);}
2090                     return(s7_f(sc));
2091                  }
2092                  static s7_pointer g_free(s7_scheme *sc, s7_pointer args)
2093                  {free(s7_c_pointer(s7_car(args))); return(s7_f(sc));}
2094                  static s7_pointer g_strtod(s7_scheme *sc, s7_pointer args)
2095                  {return(s7_make_real(sc, strtod(s7_string(s7_car(args)), NULL)));}
2096                  static s7_pointer g_strtof(s7_scheme *sc, s7_pointer args)
2097                  {return(s7_make_real(sc, strtof(s7_string(s7_car(args)), NULL)));}
2098                  static s7_pointer g_strtol(s7_scheme *sc, s7_pointer args)
2099                  {return(s7_make_integer(sc, strtol(s7_string(s7_car(args)), NULL, s7_integer(s7_cadr(args)))));}
2100                  static s7_pointer g_strtoll(s7_scheme *sc, s7_pointer args)
2101                  {return(s7_make_integer(sc, strtoll(s7_string(s7_car(args)), NULL, s7_integer(s7_cadr(args)))));}
2102                  static s7_pointer g_ldiv(s7_scheme *sc, s7_pointer args)
2103                  {
2104                    ldiv_t d;
2105                    if (!s7_is_integer(s7_car(args))) return(s7_wrong_type_arg_error(sc, "ldiv", 1, s7_car(args), "integer"));
2106                    if (!s7_is_integer(s7_cadr(args))) return(s7_wrong_type_arg_error(sc, "ldiv", 2, s7_cadr(args), "integer"));
2107                    d = ldiv(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)));
2108                    return(s7_list(sc, 2, s7_make_integer(sc, d.quot), s7_make_integer(sc, d.rem)));
2109                  }
2110
2111 static s7_pointer g_errno(s7_scheme *sc, s7_pointer args) {return(s7_make_integer(sc, errno));}
2112                   static s7_pointer g_set_errno(s7_scheme *sc, s7_pointer args) {errno = (int)s7_integer(s7_car(args)); return(s7_car(args));}
2113
2114 /* -------- setlocale -------- */
2115 static s7_pointer s7__setlocale(s7_scheme *sc, s7_pointer args)
2116 {
2117   s7_pointer p, arg;
2118   int s7__setlocale_0;
2119   char* s7__setlocale_1;
2120   p = args;
2121   arg = s7_car(p);
2122   if (s7_is_integer(arg))
2123     s7__setlocale_0 = (int)s7_integer(arg);
2124   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2125   p = s7_cdr(p);
2126   arg = s7_car(p);
2127   if (s7_is_string(arg))
2128     s7__setlocale_1 = (char*)s7_string(arg);
2129   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
2130   return(s7_make_string(sc, (char*)setlocale(s7__setlocale_0, s7__setlocale_1)));
2131 }
2132
2133
2134              static s7_pointer g_localeconv(s7_scheme *sc, s7_pointer args)
2135              {
2136                struct lconv *lc;
2137                lc = localeconv();
2138                return(s7_inlet(sc, s7_list(sc, 36,
2139                              s7_make_symbol(sc, "decimal_point"),     s7_make_string(sc, lc->decimal_point),
2140                              s7_make_symbol(sc, "thousands_sep"),     s7_make_string(sc, lc->thousands_sep),
2141                              s7_make_symbol(sc, "grouping"),          s7_make_string(sc, lc->grouping),
2142                              s7_make_symbol(sc, "int_curr_symbol"),   s7_make_string(sc, lc->int_curr_symbol),
2143                              s7_make_symbol(sc, "currency_symbol"),   s7_make_string(sc, lc->currency_symbol),
2144                              s7_make_symbol(sc, "mon_decimal_point"), s7_make_string(sc, lc->mon_decimal_point),
2145                              s7_make_symbol(sc, "mon_thousands_sep"), s7_make_string(sc, lc->mon_thousands_sep),
2146                              s7_make_symbol(sc, "mon_grouping"),      s7_make_string(sc, lc->mon_grouping),
2147                              s7_make_symbol(sc, "positive_sign"),     s7_make_string(sc, lc->positive_sign),
2148                              s7_make_symbol(sc, "negative_sign"),     s7_make_string(sc, lc->negative_sign),
2149
2150                              s7_make_symbol(sc, "int_frac_digits"),   s7_make_integer(sc, lc->int_frac_digits),
2151                              s7_make_symbol(sc, "frac_digits"),       s7_make_integer(sc, lc->frac_digits),
2152                              s7_make_symbol(sc, "p_cs_precedes"),     s7_make_integer(sc, lc->p_cs_precedes),
2153                              s7_make_symbol(sc, "p_sep_by_space"),    s7_make_integer(sc, lc->p_sep_by_space),
2154                              s7_make_symbol(sc, "n_cs_precedes"),     s7_make_integer(sc, lc->n_cs_precedes),
2155                              s7_make_symbol(sc, "n_sep_by_space"),    s7_make_integer(sc, lc->n_sep_by_space),
2156                              s7_make_symbol(sc, "p_sign_posn"),       s7_make_integer(sc, lc->p_sign_posn),
2157                              s7_make_symbol(sc, "n_sign_posn"),       s7_make_integer(sc, lc->n_sign_posn))));
2158               }
2159
2160              static s7_pointer g_uname(s7_scheme *sc, s7_pointer args)
2161              {
2162                struct utsname buf;
2163                uname(&buf);
2164                return(s7_list(sc, 5, s7_make_string(sc, buf.sysname),
2165                                 s7_make_string(sc, buf.machine),
2166                                 s7_make_string(sc, buf.nodename),
2167                                 s7_make_string(sc, buf.version),
2168                                 s7_make_string(sc, buf.release)));
2169              }
2170
2171 /* -------- access -------- */
2172 static s7_pointer s7__access(s7_scheme *sc, s7_pointer args)
2173 {
2174   s7_pointer p, arg;
2175   char* s7__access_0;
2176   int s7__access_1;
2177   p = args;
2178   arg = s7_car(p);
2179   if (s7_is_string(arg))
2180     s7__access_0 = (char*)s7_string(arg);
2181   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2182   p = s7_cdr(p);
2183   arg = s7_car(p);
2184   if (s7_is_integer(arg))
2185     s7__access_1 = (int)s7_integer(arg);
2186   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2187   return(s7_make_integer(sc, (s7_int)access(s7__access_0, s7__access_1)));
2188 }
2189
2190
2191 /* -------- lseek -------- */
2192 static s7_pointer s7__lseek(s7_scheme *sc, s7_pointer args)
2193 {
2194   s7_pointer p, arg;
2195   int s7__lseek_0;
2196   int s7__lseek_1;
2197   int s7__lseek_2;
2198   p = args;
2199   arg = s7_car(p);
2200   if (s7_is_integer(arg))
2201     s7__lseek_0 = (int)s7_integer(arg);
2202   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2203   p = s7_cdr(p);
2204   arg = s7_car(p);
2205   if (s7_is_integer(arg))
2206     s7__lseek_1 = (int)s7_integer(arg);
2207   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2208   p = s7_cdr(p);
2209   arg = s7_car(p);
2210   if (s7_is_integer(arg))
2211     s7__lseek_2 = (int)s7_integer(arg);
2212   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2213   return(s7_make_integer(sc, (s7_int)lseek(s7__lseek_0, s7__lseek_1, s7__lseek_2)));
2214 }
2215
2216
2217 /* -------- close -------- */
2218 static s7_pointer s7__close(s7_scheme *sc, s7_pointer args)
2219 {
2220   s7_pointer p, arg;
2221   int s7__close_0;
2222   p = args;
2223   arg = s7_car(p);
2224   if (s7_is_integer(arg))
2225     s7__close_0 = (int)s7_integer(arg);
2226   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2227   return(s7_make_integer(sc, (s7_int)close(s7__close_0)));
2228 }
2229 static s7_int close_i_i(s7_int i1) {return(close(i1));}
2230
2231
2232 /* -------- read -------- */
2233 static s7_pointer s7__read(s7_scheme *sc, s7_pointer args)
2234 {
2235   s7_pointer p, arg;
2236   int s7__read_0;
2237   void* s7__read_1;
2238   size_t s7__read_2;
2239   p = args;
2240   arg = s7_car(p);
2241   if (s7_is_integer(arg))
2242     s7__read_0 = (int)s7_integer(arg);
2243   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2244   p = s7_cdr(p);
2245   arg = s7_car(p);
2246   s7__read_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
2247   p = s7_cdr(p);
2248   arg = s7_car(p);
2249   if (s7_is_integer(arg))
2250     s7__read_2 = (size_t)s7_integer(arg);
2251   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2252   return(s7_make_integer(sc, (s7_int)read(s7__read_0, s7__read_1, s7__read_2)));
2253 }
2254
2255
2256 /* -------- write -------- */
2257 static s7_pointer s7__write(s7_scheme *sc, s7_pointer args)
2258 {
2259   s7_pointer p, arg;
2260   int s7__write_0;
2261   void* s7__write_1;
2262   size_t s7__write_2;
2263   p = args;
2264   arg = s7_car(p);
2265   if (s7_is_integer(arg))
2266     s7__write_0 = (int)s7_integer(arg);
2267   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2268   p = s7_cdr(p);
2269   arg = s7_car(p);
2270   s7__write_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
2271   p = s7_cdr(p);
2272   arg = s7_car(p);
2273   if (s7_is_integer(arg))
2274     s7__write_2 = (size_t)s7_integer(arg);
2275   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2276   return(s7_make_integer(sc, (s7_int)write(s7__write_0, s7__write_1, s7__write_2)));
2277 }
2278
2279
2280 /* -------- pread -------- */
2281 static s7_pointer s7__pread(s7_scheme *sc, s7_pointer args)
2282 {
2283   s7_pointer p, arg;
2284   int s7__pread_0;
2285   void* s7__pread_1;
2286   size_t s7__pread_2;
2287   int s7__pread_3;
2288   p = args;
2289   arg = s7_car(p);
2290   if (s7_is_integer(arg))
2291     s7__pread_0 = (int)s7_integer(arg);
2292   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2293   p = s7_cdr(p);
2294   arg = s7_car(p);
2295   s7__pread_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
2296   p = s7_cdr(p);
2297   arg = s7_car(p);
2298   if (s7_is_integer(arg))
2299     s7__pread_2 = (size_t)s7_integer(arg);
2300   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2301   p = s7_cdr(p);
2302   arg = s7_car(p);
2303   if (s7_is_integer(arg))
2304     s7__pread_3 = (int)s7_integer(arg);
2305   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
2306   return(s7_make_integer(sc, (s7_int)pread(s7__pread_0, s7__pread_1, s7__pread_2, s7__pread_3)));
2307 }
2308
2309
2310 /* -------- pwrite -------- */
2311 static s7_pointer s7__pwrite(s7_scheme *sc, s7_pointer args)
2312 {
2313   s7_pointer p, arg;
2314   int s7__pwrite_0;
2315   void* s7__pwrite_1;
2316   size_t s7__pwrite_2;
2317   int s7__pwrite_3;
2318   p = args;
2319   arg = s7_car(p);
2320   if (s7_is_integer(arg))
2321     s7__pwrite_0 = (int)s7_integer(arg);
2322   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2323   p = s7_cdr(p);
2324   arg = s7_car(p);
2325   s7__pwrite_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
2326   p = s7_cdr(p);
2327   arg = s7_car(p);
2328   if (s7_is_integer(arg))
2329     s7__pwrite_2 = (size_t)s7_integer(arg);
2330   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2331   p = s7_cdr(p);
2332   arg = s7_car(p);
2333   if (s7_is_integer(arg))
2334     s7__pwrite_3 = (int)s7_integer(arg);
2335   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
2336   return(s7_make_integer(sc, (s7_int)pwrite(s7__pwrite_0, s7__pwrite_1, s7__pwrite_2, s7__pwrite_3)));
2337 }
2338
2339
2340 /* -------- pipe -------- */
2341 static s7_pointer s7__pipe(s7_scheme *sc, s7_pointer args)
2342 {
2343   s7_pointer p, arg;
2344   int* s7__pipe_0;
2345   p = args;
2346   arg = s7_car(p);
2347   s7__pipe_0 = (int*)s7_c_pointer_with_type(sc, arg, int__symbol, __func__, 0);
2348   return(s7_make_integer(sc, (s7_int)pipe(s7__pipe_0)));
2349 }
2350
2351
2352 /* -------- alarm -------- */
2353 static s7_pointer s7__alarm(s7_scheme *sc, s7_pointer args)
2354 {
2355   s7_pointer p, arg;
2356   int s7__alarm_0;
2357   p = args;
2358   arg = s7_car(p);
2359   if (s7_is_integer(arg))
2360     s7__alarm_0 = (int)s7_integer(arg);
2361   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2362   return(s7_make_integer(sc, (s7_int)alarm(s7__alarm_0)));
2363 }
2364 static s7_int alarm_i_i(s7_int i1) {return(alarm(i1));}
2365
2366
2367 /* -------- sleep -------- */
2368 static s7_pointer s7__sleep(s7_scheme *sc, s7_pointer args)
2369 {
2370   s7_pointer p, arg;
2371   int s7__sleep_0;
2372   p = args;
2373   arg = s7_car(p);
2374   if (s7_is_integer(arg))
2375     s7__sleep_0 = (int)s7_integer(arg);
2376   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2377   return(s7_make_integer(sc, (s7_int)sleep(s7__sleep_0)));
2378 }
2379 static s7_int sleep_i_i(s7_int i1) {return(sleep(i1));}
2380
2381
2382 /* -------- pause -------- */
2383 static s7_pointer s7__pause(s7_scheme *sc, s7_pointer args)
2384 {
2385   return(s7_make_integer(sc, (s7_int)pause()));
2386 }
2387
2388
2389 /* -------- chown -------- */
2390 static s7_pointer s7__chown(s7_scheme *sc, s7_pointer args)
2391 {
2392   s7_pointer p, arg;
2393   char* s7__chown_0;
2394   int s7__chown_1;
2395   int s7__chown_2;
2396   p = args;
2397   arg = s7_car(p);
2398   if (s7_is_string(arg))
2399     s7__chown_0 = (char*)s7_string(arg);
2400   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2401   p = s7_cdr(p);
2402   arg = s7_car(p);
2403   if (s7_is_integer(arg))
2404     s7__chown_1 = (int)s7_integer(arg);
2405   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2406   p = s7_cdr(p);
2407   arg = s7_car(p);
2408   if (s7_is_integer(arg))
2409     s7__chown_2 = (int)s7_integer(arg);
2410   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2411   return(s7_make_integer(sc, (s7_int)chown(s7__chown_0, s7__chown_1, s7__chown_2)));
2412 }
2413
2414
2415 /* -------- chdir -------- */
2416 static s7_pointer s7__chdir(s7_scheme *sc, s7_pointer args)
2417 {
2418   s7_pointer p, arg;
2419   char* s7__chdir_0;
2420   p = args;
2421   arg = s7_car(p);
2422   if (s7_is_string(arg))
2423     s7__chdir_0 = (char*)s7_string(arg);
2424   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2425   return(s7_make_integer(sc, (s7_int)chdir(s7__chdir_0)));
2426 }
2427
2428
2429 /* -------- getcwd -------- */
2430 static s7_pointer s7__getcwd(s7_scheme *sc, s7_pointer args)
2431 {
2432   s7_pointer p, arg;
2433   char* s7__getcwd_0;
2434   size_t s7__getcwd_1;
2435   p = args;
2436   arg = s7_car(p);
2437   if (s7_is_string(arg))
2438     s7__getcwd_0 = (char*)s7_string(arg);
2439   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2440   p = s7_cdr(p);
2441   arg = s7_car(p);
2442   if (s7_is_integer(arg))
2443     s7__getcwd_1 = (size_t)s7_integer(arg);
2444   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2445   return(s7_make_string(sc, (char*)getcwd(s7__getcwd_0, s7__getcwd_1)));
2446 }
2447
2448
2449 /* -------- dup -------- */
2450 static s7_pointer s7__dup(s7_scheme *sc, s7_pointer args)
2451 {
2452   s7_pointer p, arg;
2453   int s7__dup_0;
2454   p = args;
2455   arg = s7_car(p);
2456   if (s7_is_integer(arg))
2457     s7__dup_0 = (int)s7_integer(arg);
2458   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2459   return(s7_make_integer(sc, (s7_int)dup(s7__dup_0)));
2460 }
2461 static s7_int dup_i_i(s7_int i1) {return(dup(i1));}
2462
2463
2464 /* -------- dup2 -------- */
2465 static s7_pointer s7__dup2(s7_scheme *sc, s7_pointer args)
2466 {
2467   s7_pointer p, arg;
2468   int s7__dup2_0;
2469   int s7__dup2_1;
2470   p = args;
2471   arg = s7_car(p);
2472   if (s7_is_integer(arg))
2473     s7__dup2_0 = (int)s7_integer(arg);
2474   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2475   p = s7_cdr(p);
2476   arg = s7_car(p);
2477   if (s7_is_integer(arg))
2478     s7__dup2_1 = (int)s7_integer(arg);
2479   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2480   return(s7_make_integer(sc, (s7_int)dup2(s7__dup2_0, s7__dup2_1)));
2481 }
2482 static s7_int dup2_i_ii(s7_int i1, s7_int i2) {return(dup2(i1, i2));}
2483
2484
2485 /* -------- _exit -------- */
2486 static s7_pointer s7___exit(s7_scheme *sc, s7_pointer args)
2487 {
2488   s7_pointer p, arg;
2489   int s7___exit_0;
2490   p = args;
2491   arg = s7_car(p);
2492   if (s7_is_integer(arg))
2493     s7___exit_0 = (int)s7_integer(arg);
2494   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2495   _exit(s7___exit_0);
2496   return(s7_unspecified(sc));
2497 }
2498
2499
2500 /* -------- pathconf -------- */
2501 static s7_pointer s7__pathconf(s7_scheme *sc, s7_pointer args)
2502 {
2503   s7_pointer p, arg;
2504   char* s7__pathconf_0;
2505   int s7__pathconf_1;
2506   p = args;
2507   arg = s7_car(p);
2508   if (s7_is_string(arg))
2509     s7__pathconf_0 = (char*)s7_string(arg);
2510   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2511   p = s7_cdr(p);
2512   arg = s7_car(p);
2513   if (s7_is_integer(arg))
2514     s7__pathconf_1 = (int)s7_integer(arg);
2515   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2516   return(s7_make_integer(sc, (s7_int)pathconf(s7__pathconf_0, s7__pathconf_1)));
2517 }
2518
2519
2520 /* -------- fpathconf -------- */
2521 static s7_pointer s7__fpathconf(s7_scheme *sc, s7_pointer args)
2522 {
2523   s7_pointer p, arg;
2524   int s7__fpathconf_0;
2525   int s7__fpathconf_1;
2526   p = args;
2527   arg = s7_car(p);
2528   if (s7_is_integer(arg))
2529     s7__fpathconf_0 = (int)s7_integer(arg);
2530   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2531   p = s7_cdr(p);
2532   arg = s7_car(p);
2533   if (s7_is_integer(arg))
2534     s7__fpathconf_1 = (int)s7_integer(arg);
2535   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2536   return(s7_make_integer(sc, (s7_int)fpathconf(s7__fpathconf_0, s7__fpathconf_1)));
2537 }
2538 static s7_int fpathconf_i_ii(s7_int i1, s7_int i2) {return(fpathconf(i1, i2));}
2539
2540
2541 /* -------- sysconf -------- */
2542 static s7_pointer s7__sysconf(s7_scheme *sc, s7_pointer args)
2543 {
2544   s7_pointer p, arg;
2545   int s7__sysconf_0;
2546   p = args;
2547   arg = s7_car(p);
2548   if (s7_is_integer(arg))
2549     s7__sysconf_0 = (int)s7_integer(arg);
2550   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2551   return(s7_make_integer(sc, (s7_int)sysconf(s7__sysconf_0)));
2552 }
2553 static s7_int sysconf_i_i(s7_int i1) {return(sysconf(i1));}
2554
2555
2556 /* -------- confstr -------- */
2557 static s7_pointer s7__confstr(s7_scheme *sc, s7_pointer args)
2558 {
2559   s7_pointer p, arg;
2560   int s7__confstr_0;
2561   char* s7__confstr_1;
2562   size_t s7__confstr_2;
2563   p = args;
2564   arg = s7_car(p);
2565   if (s7_is_integer(arg))
2566     s7__confstr_0 = (int)s7_integer(arg);
2567   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2568   p = s7_cdr(p);
2569   arg = s7_car(p);
2570   if (s7_is_string(arg))
2571     s7__confstr_1 = (char*)s7_string(arg);
2572   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
2573   p = s7_cdr(p);
2574   arg = s7_car(p);
2575   if (s7_is_integer(arg))
2576     s7__confstr_2 = (size_t)s7_integer(arg);
2577   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
2578   return(s7_make_integer(sc, (s7_int)confstr(s7__confstr_0, s7__confstr_1, s7__confstr_2)));
2579 }
2580
2581
2582 /* -------- getpid -------- */
2583 static s7_pointer s7__getpid(s7_scheme *sc, s7_pointer args)
2584 {
2585   return(s7_make_integer(sc, (s7_int)getpid()));
2586 }
2587
2588
2589 /* -------- getppid -------- */
2590 static s7_pointer s7__getppid(s7_scheme *sc, s7_pointer args)
2591 {
2592   return(s7_make_integer(sc, (s7_int)getppid()));
2593 }
2594
2595
2596 /* -------- getpgid -------- */
2597 static s7_pointer s7__getpgid(s7_scheme *sc, s7_pointer args)
2598 {
2599   s7_pointer p, arg;
2600   int s7__getpgid_0;
2601   p = args;
2602   arg = s7_car(p);
2603   if (s7_is_integer(arg))
2604     s7__getpgid_0 = (int)s7_integer(arg);
2605   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2606   return(s7_make_integer(sc, (s7_int)getpgid(s7__getpgid_0)));
2607 }
2608 static s7_int getpgid_i_i(s7_int i1) {return(getpgid(i1));}
2609
2610
2611 /* -------- setpgid -------- */
2612 static s7_pointer s7__setpgid(s7_scheme *sc, s7_pointer args)
2613 {
2614   s7_pointer p, arg;
2615   int s7__setpgid_0;
2616   int s7__setpgid_1;
2617   p = args;
2618   arg = s7_car(p);
2619   if (s7_is_integer(arg))
2620     s7__setpgid_0 = (int)s7_integer(arg);
2621   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2622   p = s7_cdr(p);
2623   arg = s7_car(p);
2624   if (s7_is_integer(arg))
2625     s7__setpgid_1 = (int)s7_integer(arg);
2626   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2627   return(s7_make_integer(sc, (s7_int)setpgid(s7__setpgid_0, s7__setpgid_1)));
2628 }
2629 static s7_int setpgid_i_ii(s7_int i1, s7_int i2) {return(setpgid(i1, i2));}
2630
2631
2632 /* -------- setsid -------- */
2633 static s7_pointer s7__setsid(s7_scheme *sc, s7_pointer args)
2634 {
2635   return(s7_make_integer(sc, (s7_int)setsid()));
2636 }
2637
2638
2639 /* -------- getsid -------- */
2640 static s7_pointer s7__getsid(s7_scheme *sc, s7_pointer args)
2641 {
2642   s7_pointer p, arg;
2643   int s7__getsid_0;
2644   p = args;
2645   arg = s7_car(p);
2646   if (s7_is_integer(arg))
2647     s7__getsid_0 = (int)s7_integer(arg);
2648   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2649   return(s7_make_integer(sc, (s7_int)getsid(s7__getsid_0)));
2650 }
2651 static s7_int getsid_i_i(s7_int i1) {return(getsid(i1));}
2652
2653
2654 /* -------- getuid -------- */
2655 static s7_pointer s7__getuid(s7_scheme *sc, s7_pointer args)
2656 {
2657   return(s7_make_integer(sc, (s7_int)getuid()));
2658 }
2659
2660
2661 /* -------- geteuid -------- */
2662 static s7_pointer s7__geteuid(s7_scheme *sc, s7_pointer args)
2663 {
2664   return(s7_make_integer(sc, (s7_int)geteuid()));
2665 }
2666
2667
2668 /* -------- getgid -------- */
2669 static s7_pointer s7__getgid(s7_scheme *sc, s7_pointer args)
2670 {
2671   return(s7_make_integer(sc, (s7_int)getgid()));
2672 }
2673
2674
2675 /* -------- getegid -------- */
2676 static s7_pointer s7__getegid(s7_scheme *sc, s7_pointer args)
2677 {
2678   return(s7_make_integer(sc, (s7_int)getegid()));
2679 }
2680
2681
2682 /* -------- setuid -------- */
2683 static s7_pointer s7__setuid(s7_scheme *sc, s7_pointer args)
2684 {
2685   s7_pointer p, arg;
2686   int s7__setuid_0;
2687   p = args;
2688   arg = s7_car(p);
2689   if (s7_is_integer(arg))
2690     s7__setuid_0 = (int)s7_integer(arg);
2691   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2692   return(s7_make_integer(sc, (s7_int)setuid(s7__setuid_0)));
2693 }
2694 static s7_int setuid_i_i(s7_int i1) {return(setuid(i1));}
2695
2696
2697 /* -------- setgid -------- */
2698 static s7_pointer s7__setgid(s7_scheme *sc, s7_pointer args)
2699 {
2700   s7_pointer p, arg;
2701   int s7__setgid_0;
2702   p = args;
2703   arg = s7_car(p);
2704   if (s7_is_integer(arg))
2705     s7__setgid_0 = (int)s7_integer(arg);
2706   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2707   return(s7_make_integer(sc, (s7_int)setgid(s7__setgid_0)));
2708 }
2709 static s7_int setgid_i_i(s7_int i1) {return(setgid(i1));}
2710
2711
2712 /* -------- fork -------- */
2713 static s7_pointer s7__fork(s7_scheme *sc, s7_pointer args)
2714 {
2715   return(s7_make_integer(sc, (s7_int)fork()));
2716 }
2717
2718
2719 /* -------- ttyname -------- */
2720 static s7_pointer s7__ttyname(s7_scheme *sc, s7_pointer args)
2721 {
2722   s7_pointer p, arg;
2723   int s7__ttyname_0;
2724   p = args;
2725   arg = s7_car(p);
2726   if (s7_is_integer(arg))
2727     s7__ttyname_0 = (int)s7_integer(arg);
2728   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2729   return(s7_make_string(sc, (char*)ttyname(s7__ttyname_0)));
2730 }
2731
2732
2733 /* -------- isatty -------- */
2734 static s7_pointer s7__isatty(s7_scheme *sc, s7_pointer args)
2735 {
2736   s7_pointer p, arg;
2737   int s7__isatty_0;
2738   p = args;
2739   arg = s7_car(p);
2740   if (s7_is_integer(arg))
2741     s7__isatty_0 = (int)s7_integer(arg);
2742   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2743   return(s7_make_integer(sc, (s7_int)isatty(s7__isatty_0)));
2744 }
2745 static s7_int isatty_i_i(s7_int i1) {return(isatty(i1));}
2746
2747
2748 /* -------- link -------- */
2749 static s7_pointer s7__link(s7_scheme *sc, s7_pointer args)
2750 {
2751   s7_pointer p, arg;
2752   char* s7__link_0;
2753   char* s7__link_1;
2754   p = args;
2755   arg = s7_car(p);
2756   if (s7_is_string(arg))
2757     s7__link_0 = (char*)s7_string(arg);
2758   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2759   p = s7_cdr(p);
2760   arg = s7_car(p);
2761   if (s7_is_string(arg))
2762     s7__link_1 = (char*)s7_string(arg);
2763   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
2764   return(s7_make_integer(sc, (s7_int)link(s7__link_0, s7__link_1)));
2765 }
2766
2767
2768 /* -------- unlink -------- */
2769 static s7_pointer s7__unlink(s7_scheme *sc, s7_pointer args)
2770 {
2771   s7_pointer p, arg;
2772   char* s7__unlink_0;
2773   p = args;
2774   arg = s7_car(p);
2775   if (s7_is_string(arg))
2776     s7__unlink_0 = (char*)s7_string(arg);
2777   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2778   return(s7_make_integer(sc, (s7_int)unlink(s7__unlink_0)));
2779 }
2780
2781
2782 /* -------- rmdir -------- */
2783 static s7_pointer s7__rmdir(s7_scheme *sc, s7_pointer args)
2784 {
2785   s7_pointer p, arg;
2786   char* s7__rmdir_0;
2787   p = args;
2788   arg = s7_car(p);
2789   if (s7_is_string(arg))
2790     s7__rmdir_0 = (char*)s7_string(arg);
2791   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2792   return(s7_make_integer(sc, (s7_int)rmdir(s7__rmdir_0)));
2793 }
2794
2795
2796 /* -------- tcgetpgrp -------- */
2797 static s7_pointer s7__tcgetpgrp(s7_scheme *sc, s7_pointer args)
2798 {
2799   s7_pointer p, arg;
2800   int s7__tcgetpgrp_0;
2801   p = args;
2802   arg = s7_car(p);
2803   if (s7_is_integer(arg))
2804     s7__tcgetpgrp_0 = (int)s7_integer(arg);
2805   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
2806   return(s7_make_integer(sc, (s7_int)tcgetpgrp(s7__tcgetpgrp_0)));
2807 }
2808 static s7_int tcgetpgrp_i_i(s7_int i1) {return(tcgetpgrp(i1));}
2809
2810
2811 /* -------- tcsetpgrp -------- */
2812 static s7_pointer s7__tcsetpgrp(s7_scheme *sc, s7_pointer args)
2813 {
2814   s7_pointer p, arg;
2815   int s7__tcsetpgrp_0;
2816   int s7__tcsetpgrp_1;
2817   p = args;
2818   arg = s7_car(p);
2819   if (s7_is_integer(arg))
2820     s7__tcsetpgrp_0 = (int)s7_integer(arg);
2821   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2822   p = s7_cdr(p);
2823   arg = s7_car(p);
2824   if (s7_is_integer(arg))
2825     s7__tcsetpgrp_1 = (int)s7_integer(arg);
2826   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2827   return(s7_make_integer(sc, (s7_int)tcsetpgrp(s7__tcsetpgrp_0, s7__tcsetpgrp_1)));
2828 }
2829 static s7_int tcsetpgrp_i_ii(s7_int i1, s7_int i2) {return(tcsetpgrp(i1, i2));}
2830
2831
2832 /* -------- getlogin -------- */
2833 static s7_pointer s7__getlogin(s7_scheme *sc, s7_pointer args)
2834 {
2835   return(s7_make_string(sc, (char*)getlogin()));
2836 }
2837
2838
2839 /* -------- truncate -------- */
2840 static s7_pointer s7__truncate(s7_scheme *sc, s7_pointer args)
2841 {
2842   s7_pointer p, arg;
2843   char* s7__truncate_0;
2844   int s7__truncate_1;
2845   p = args;
2846   arg = s7_car(p);
2847   if (s7_is_string(arg))
2848     s7__truncate_0 = (char*)s7_string(arg);
2849   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
2850   p = s7_cdr(p);
2851   arg = s7_car(p);
2852   if (s7_is_integer(arg))
2853     s7__truncate_1 = (int)s7_integer(arg);
2854   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2855   return(s7_make_integer(sc, (s7_int)truncate(s7__truncate_0, s7__truncate_1)));
2856 }
2857
2858
2859 /* -------- ftruncate -------- */
2860 static s7_pointer s7__ftruncate(s7_scheme *sc, s7_pointer args)
2861 {
2862   s7_pointer p, arg;
2863   int s7__ftruncate_0;
2864   int s7__ftruncate_1;
2865   p = args;
2866   arg = s7_car(p);
2867   if (s7_is_integer(arg))
2868     s7__ftruncate_0 = (int)s7_integer(arg);
2869   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
2870   p = s7_cdr(p);
2871   arg = s7_car(p);
2872   if (s7_is_integer(arg))
2873     s7__ftruncate_1 = (int)s7_integer(arg);
2874   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
2875   return(s7_make_integer(sc, (s7_int)ftruncate(s7__ftruncate_0, s7__ftruncate_1)));
2876 }
2877 static s7_int ftruncate_i_ii(s7_int i1, s7_int i2) {return(ftruncate(i1, i2));}
2878
2879 extern char **environ;
2880                   static s7_pointer getenvs(s7_scheme *sc, s7_pointer args)
2881                   {
2882                     s7_pointer p;
2883                     int i;
2884                     p = s7_nil(sc);
2885                     for (i = 0; environ[i]; i++)
2886                       {
2887                        const char *eq;
2888                        s7_pointer name, value;
2889                        eq = strchr((const char *)environ[i], (int)'=');
2890                        name = s7_make_string_with_length(sc, environ[i], eq - environ[i]);
2891                        value = s7_make_string(sc, (char *)(eq + 1));
2892                        p = s7_cons(sc, s7_cons(sc, name, value), p);
2893                       }
2894                     return(p);
2895            }
2896                   static s7_pointer g_getgroups(s7_scheme *sc, s7_pointer args)
2897                   {
2898                     gid_t *gds;
2899                     int i, size, res;
2900                     s7_pointer lst;
2901                     size = s7_integer(s7_car(args));
2902                     if (size == 0)
2903                       return(s7_make_integer(sc, getgroups(0, NULL)));
2904                     gds = (gid_t *)calloc(size, sizeof(gid_t));
2905                     res = getgroups(size, gds);
2906                     if (res != -1)
2907                       {
2908                         lst = s7_nil(sc);
2909                         for (i = 0; i < size; i++)
2910                           lst = s7_cons(sc, s7_make_integer(sc, gds[i]), lst);
2911                       }
2912                     else lst = s7_make_integer(sc, -1);
2913                     free(gds);
2914                     return(lst);
2915                   }
2916
2917
2918 /* -------- opendir -------- */
2919 static s7_pointer s7__opendir(s7_scheme *sc, s7_pointer args)
2920 {
2921   s7_pointer p, arg;
2922   char* s7__opendir_0;
2923   p = args;
2924   arg = s7_car(p);
2925   if (s7_is_string(arg))
2926     s7__opendir_0 = (char*)s7_string(arg);
2927   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
2928   return(s7_make_c_pointer_with_type(sc, (void*)opendir(s7__opendir_0), DIR__symbol, s7_f(sc)));
2929 }
2930
2931
2932 /* -------- closedir -------- */
2933 static s7_pointer s7__closedir(s7_scheme *sc, s7_pointer args)
2934 {
2935   s7_pointer p, arg;
2936   DIR* s7__closedir_0;
2937   p = args;
2938   arg = s7_car(p);
2939   s7__closedir_0 = (DIR*)s7_c_pointer_with_type(sc, arg, DIR__symbol, __func__, 0);
2940   return(s7_make_integer(sc, (s7_int)closedir(s7__closedir_0)));
2941 }
2942
2943
2944 /* -------- rewinddir -------- */
2945 static s7_pointer s7__rewinddir(s7_scheme *sc, s7_pointer args)
2946 {
2947   s7_pointer p, arg;
2948   DIR* s7__rewinddir_0;
2949   p = args;
2950   arg = s7_car(p);
2951   s7__rewinddir_0 = (DIR*)s7_c_pointer_with_type(sc, arg, DIR__symbol, __func__, 0);
2952   rewinddir(s7__rewinddir_0);
2953   return(s7_unspecified(sc));
2954 }
2955
2956 static char *read_dir(DIR *p)
2957                            {
2958                              struct dirent *dirp;
2959                              dirp = readdir(p);
2960                              if (!dirp) return(NULL);
2961                              else return(dirp->d_name);
2962                            }
2963
2964 /* -------- read_dir -------- */
2965 static s7_pointer s7__read_dir(s7_scheme *sc, s7_pointer args)
2966 {
2967   s7_pointer p, arg;
2968   DIR* s7__read_dir_0;
2969   p = args;
2970   arg = s7_car(p);
2971   s7__read_dir_0 = (DIR*)s7_c_pointer_with_type(sc, arg, DIR__symbol, __func__, 0);
2972   return(s7_make_string(sc, (char*)read_dir(s7__read_dir_0)));
2973 }
2974
2975 static s7_scheme *internal_ftw_sc = NULL;
2976                   static s7_pointer internal_ftw_closure = NULL, internal_ftw_arglist = NULL;
2977
2978                   static int internal_ftw_function(const char *fpath, const struct stat *sb, int typeflag)
2979                   {
2980                     s7_list_set(internal_ftw_sc, internal_ftw_arglist, 0, s7_make_string(internal_ftw_sc, fpath));
2981                     s7_list_set(internal_ftw_sc, internal_ftw_arglist, 1,
2982                                 s7_make_c_pointer_with_type(internal_ftw_sc, (void *)sb,  /* need cast due to const */
2983                                                             s7_make_symbol(internal_ftw_sc, "stat*"), s7_f(internal_ftw_sc)));
2984                     s7_list_set(internal_ftw_sc, internal_ftw_arglist, 2, s7_make_integer(internal_ftw_sc, typeflag));
2985                     return((int)s7_integer(s7_call(internal_ftw_sc, internal_ftw_closure, internal_ftw_arglist)));
2986                   }
2987
2988                   static s7_pointer g_ftw(s7_scheme *sc, s7_pointer args)
2989                   {
2990                     if (!internal_ftw_sc)
2991                       {
2992                         internal_ftw_sc = sc;
2993                         internal_ftw_arglist = s7_list(sc, 3, s7_nil(sc), s7_nil(sc), s7_nil(sc));
2994                         s7_gc_protect(sc, internal_ftw_arglist);
2995                       }
2996                     internal_ftw_closure = s7_cadr(args);
2997                     return(s7_make_integer(sc, ftw(s7_string(s7_car(args)), internal_ftw_function, s7_integer(s7_caddr(args)))));
2998                   }
2999 static s7_pointer g_stat(s7_scheme *sc, s7_pointer args)
3000                     {return(s7_make_integer(sc, stat(s7_string(s7_car(args)),
3001                                                      (struct stat *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "stat*"), __func__, 1))));}
3002                   static s7_pointer g_fstat(s7_scheme *sc, s7_pointer args)
3003                     {return(s7_make_integer(sc, fstat(s7_integer(s7_car(args)),
3004                                                       (struct stat *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "stat*"), __func__, 1))));}
3005                   static s7_pointer g_lstat(s7_scheme *sc, s7_pointer args)
3006                     {return(s7_make_integer(sc, lstat(s7_string(s7_car(args)),
3007                                                 (struct stat *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "stat*"), __func__, 1))));}
3008
3009
3010 /* -------- chmod -------- */
3011 static s7_pointer s7__chmod(s7_scheme *sc, s7_pointer args)
3012 {
3013   s7_pointer p, arg;
3014   char* s7__chmod_0;
3015   int s7__chmod_1;
3016   p = args;
3017   arg = s7_car(p);
3018   if (s7_is_string(arg))
3019     s7__chmod_0 = (char*)s7_string(arg);
3020   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
3021   p = s7_cdr(p);
3022   arg = s7_car(p);
3023   if (s7_is_integer(arg))
3024     s7__chmod_1 = (int)s7_integer(arg);
3025   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3026   return(s7_make_integer(sc, (s7_int)chmod(s7__chmod_0, s7__chmod_1)));
3027 }
3028
3029
3030 /* -------- mkdir -------- */
3031 static s7_pointer s7__mkdir(s7_scheme *sc, s7_pointer args)
3032 {
3033   s7_pointer p, arg;
3034   char* s7__mkdir_0;
3035   int s7__mkdir_1;
3036   p = args;
3037   arg = s7_car(p);
3038   if (s7_is_string(arg))
3039     s7__mkdir_0 = (char*)s7_string(arg);
3040   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
3041   p = s7_cdr(p);
3042   arg = s7_car(p);
3043   if (s7_is_integer(arg))
3044     s7__mkdir_1 = (int)s7_integer(arg);
3045   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3046   return(s7_make_integer(sc, (s7_int)mkdir(s7__mkdir_0, s7__mkdir_1)));
3047 }
3048
3049
3050 /* -------- mknod -------- */
3051 static s7_pointer s7__mknod(s7_scheme *sc, s7_pointer args)
3052 {
3053   s7_pointer p, arg;
3054   char* s7__mknod_0;
3055   int s7__mknod_1;
3056   int s7__mknod_2;
3057   p = args;
3058   arg = s7_car(p);
3059   if (s7_is_string(arg))
3060     s7__mknod_0 = (char*)s7_string(arg);
3061   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
3062   p = s7_cdr(p);
3063   arg = s7_car(p);
3064   if (s7_is_integer(arg))
3065     s7__mknod_1 = (int)s7_integer(arg);
3066   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3067   p = s7_cdr(p);
3068   arg = s7_car(p);
3069   if (s7_is_integer(arg))
3070     s7__mknod_2 = (int)s7_integer(arg);
3071   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
3072   return(s7_make_integer(sc, (s7_int)mknod(s7__mknod_0, s7__mknod_1, s7__mknod_2)));
3073 }
3074
3075
3076 /* -------- mkfifo -------- */
3077 static s7_pointer s7__mkfifo(s7_scheme *sc, s7_pointer args)
3078 {
3079   s7_pointer p, arg;
3080   char* s7__mkfifo_0;
3081   int s7__mkfifo_1;
3082   p = args;
3083   arg = s7_car(p);
3084   if (s7_is_string(arg))
3085     s7__mkfifo_0 = (char*)s7_string(arg);
3086   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
3087   p = s7_cdr(p);
3088   arg = s7_car(p);
3089   if (s7_is_integer(arg))
3090     s7__mkfifo_1 = (int)s7_integer(arg);
3091   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3092   return(s7_make_integer(sc, (s7_int)mkfifo(s7__mkfifo_0, s7__mkfifo_1)));
3093 }
3094
3095 static s7_pointer g_isdir(s7_scheme *sc, s7_pointer args)
3096                     {return(s7_make_boolean(sc, S_ISDIR(s7_integer(s7_car(args)))));}
3097                   static s7_pointer g_ischr(s7_scheme *sc, s7_pointer args)
3098                     {return(s7_make_boolean(sc, S_ISCHR(s7_integer(s7_car(args)))));}
3099                   static s7_pointer g_isblk(s7_scheme *sc, s7_pointer args)
3100                     {return(s7_make_boolean(sc, S_ISBLK(s7_integer(s7_car(args)))));}
3101                   static s7_pointer g_isreg(s7_scheme *sc, s7_pointer args)
3102                     {return(s7_make_boolean(sc, S_ISREG(s7_integer(s7_car(args)))));}
3103                   static s7_pointer g_isfifo(s7_scheme *sc, s7_pointer args)
3104                     {return(s7_make_boolean(sc, S_ISFIFO(s7_integer(s7_car(args)))));}
3105                   static s7_pointer g_islnk(s7_scheme *sc, s7_pointer args)
3106                     {return(s7_make_boolean(sc, S_ISLNK(s7_integer(s7_car(args)))));}
3107                   static s7_pointer g_issock(s7_scheme *sc, s7_pointer args)
3108                     {return(s7_make_boolean(sc, S_ISSOCK(s7_integer(s7_car(args)))));}
3109                   static s7_pointer g_st_dev(s7_scheme *sc, s7_pointer args)
3110                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_dev));}
3111                   static s7_pointer g_st_ino(s7_scheme *sc, s7_pointer args)
3112                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_ino));}
3113                   static s7_pointer g_st_mode(s7_scheme *sc, s7_pointer args)
3114                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_mode));}
3115                   static s7_pointer g_st_nlink(s7_scheme *sc, s7_pointer args)
3116                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_nlink));}
3117                   static s7_pointer g_st_uid(s7_scheme *sc, s7_pointer args)
3118                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_uid));}
3119                   static s7_pointer g_st_gid(s7_scheme *sc, s7_pointer args)
3120                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_gid));}
3121                   static s7_pointer g_st_rdev(s7_scheme *sc, s7_pointer args)
3122                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_rdev));}
3123                   static s7_pointer g_st_size(s7_scheme *sc, s7_pointer args)
3124                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_size));}
3125                   static s7_pointer g_st_blksize(s7_scheme *sc, s7_pointer args)
3126                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_blksize));}
3127                   static s7_pointer g_st_blocks(s7_scheme *sc, s7_pointer args)
3128                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_blocks));}
3129                   static s7_pointer g_st_atime(s7_scheme *sc, s7_pointer args)
3130                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_atime));}
3131                   static s7_pointer g_st_mtime(s7_scheme *sc, s7_pointer args)
3132                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_mtime));}
3133                   static s7_pointer g_st_ctime(s7_scheme *sc, s7_pointer args)
3134                     {return(s7_make_integer(sc, ((struct stat *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "stat*"), __func__, 1))->st_ctime));}
3135                   static s7_pointer g_stat_make(s7_scheme *sc, s7_pointer args)
3136                     {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct stat)), s7_make_symbol(sc, "stat*"), s7_f(sc)));}
3137
3138
3139 /* -------- clock -------- */
3140 static s7_pointer s7__clock(s7_scheme *sc, s7_pointer args)
3141 {
3142   return(s7_make_integer(sc, (s7_int)clock()));
3143 }
3144
3145
3146 /* -------- time -------- */
3147 static s7_pointer s7__time(s7_scheme *sc, s7_pointer args)
3148 {
3149   s7_pointer p, arg;
3150   time_t* s7__time_0;
3151   p = args;
3152   arg = s7_car(p);
3153   s7__time_0 = (time_t*)s7_c_pointer_with_type(sc, arg, time_t__symbol, __func__, 0);
3154   return(s7_make_integer(sc, (s7_int)time(s7__time_0)));
3155 }
3156
3157
3158 /* -------- difftime -------- */
3159 static s7_pointer s7__difftime(s7_scheme *sc, s7_pointer args)
3160 {
3161   s7_pointer p, arg;
3162   time_t s7__difftime_0;
3163   time_t s7__difftime_1;
3164   p = args;
3165   arg = s7_car(p);
3166   if (s7_is_integer(arg))
3167     s7__difftime_0 = (time_t)s7_integer(arg);
3168   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3169   p = s7_cdr(p);
3170   arg = s7_car(p);
3171   if (s7_is_integer(arg))
3172     s7__difftime_1 = (time_t)s7_integer(arg);
3173   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3174   return(s7_make_real(sc, (s7_double)difftime(s7__difftime_0, s7__difftime_1)));
3175 }
3176
3177
3178 /* -------- gmtime -------- */
3179 static s7_pointer s7__gmtime(s7_scheme *sc, s7_pointer args)
3180 {
3181   s7_pointer p, arg;
3182   time_t* s7__gmtime_0;
3183   p = args;
3184   arg = s7_car(p);
3185   s7__gmtime_0 = (time_t*)s7_c_pointer_with_type(sc, arg, time_t__symbol, __func__, 0);
3186   return(s7_make_c_pointer_with_type(sc, (void*)gmtime(s7__gmtime_0), tm__symbol, s7_f(sc)));
3187 }
3188
3189
3190 /* -------- ctime -------- */
3191 static s7_pointer s7__ctime(s7_scheme *sc, s7_pointer args)
3192 {
3193   s7_pointer p, arg;
3194   time_t* s7__ctime_0;
3195   p = args;
3196   arg = s7_car(p);
3197   s7__ctime_0 = (time_t*)s7_c_pointer_with_type(sc, arg, time_t__symbol, __func__, 0);
3198   return(s7_make_string(sc, (char*)ctime(s7__ctime_0)));
3199 }
3200
3201
3202 /* -------- localtime -------- */
3203 static s7_pointer s7__localtime(s7_scheme *sc, s7_pointer args)
3204 {
3205   s7_pointer p, arg;
3206   time_t* s7__localtime_0;
3207   p = args;
3208   arg = s7_car(p);
3209   s7__localtime_0 = (time_t*)s7_c_pointer_with_type(sc, arg, time_t__symbol, __func__, 0);
3210   return(s7_make_c_pointer_with_type(sc, (void*)localtime(s7__localtime_0), tm__symbol, s7_f(sc)));
3211 }
3212
3213 static s7_pointer g_mktime(s7_scheme *sc, s7_pointer args)
3214                   {
3215                     return(s7_make_integer(sc, (s7_int)mktime((struct tm *)s7_c_pointer(s7_car(args)))));
3216                   }
3217                   static s7_pointer g_time_make(s7_scheme *sc, s7_pointer args)
3218                   {
3219                     time_t *tm;
3220                     tm = (time_t *)calloc(1, sizeof(time_t));
3221                     (*tm) = (time_t)s7_integer(s7_car(args));
3222                     return(s7_make_c_pointer_with_type(sc, (void *)tm, s7_make_symbol(sc, "time_t*"), s7_f(sc)));
3223                   }
3224                   static s7_pointer g_strftime(s7_scheme *sc, s7_pointer args)
3225                   {
3226                     return(s7_make_integer(sc, (s7_int)strftime((char *)s7_string(s7_car(args)),
3227                                                              (size_t)s7_integer(s7_cadr(args)),
3228                                                              s7_string(s7_caddr(args)),
3229                                                              (const struct tm *)s7_c_pointer(s7_cadddr(args)))));
3230                   }
3231                   static s7_pointer g_asctime(s7_scheme *sc, s7_pointer args)
3232                   {
3233                     return(s7_make_string(sc, asctime((const struct tm *)s7_c_pointer(s7_car(args)))));
3234                   }
3235                   static s7_pointer g_gettimeofday(s7_scheme *sc, s7_pointer args)
3236                   {
3237                     struct timeval t0;
3238                     gettimeofday(&t0, NULL);
3239                     return(s7_list(sc, 2, s7_make_integer(sc, t0.tv_sec), s7_make_integer(sc, t0.tv_usec)));
3240                   }
3241                   static s7_pointer g_nanosleep(s7_scheme *sc, s7_pointer args)
3242                   {
3243                     struct timespec t0;
3244                     t0.tv_sec = (time_t)s7_integer(s7_car(args));
3245                     t0.tv_nsec = (long)s7_integer(s7_cadr(args));
3246                     return(s7_make_integer(sc, nanosleep(&t0, NULL)));
3247                   }
3248                   static s7_pointer g_clock_getres(s7_scheme *sc, s7_pointer args)
3249                   {
3250                     #if (!__APPLE__)
3251                     struct timespec t0;
3252                     int res;
3253                     res = clock_getres(s7_integer(s7_car(args)), &t0);
3254                     return(s7_list(sc, 3, s7_make_integer(sc, res), s7_make_integer(sc, t0.tv_sec), s7_make_integer(sc, t0.tv_nsec)));
3255                     #else
3256                     return(s7_make_integer(sc, -1));
3257                     #endif
3258                   }
3259                   static s7_pointer g_clock_gettime(s7_scheme *sc, s7_pointer args)
3260                   {
3261                     #if (!__APPLE__)
3262                     struct timespec t0;
3263                     int res;
3264                     res = clock_gettime(s7_integer(s7_car(args)), &t0);
3265                     return(s7_list(sc, 3, s7_make_integer(sc, res), s7_make_integer(sc, t0.tv_sec), s7_make_integer(sc, t0.tv_nsec)));
3266                     #else
3267                     return(s7_make_integer(sc, -1));
3268                     #endif
3269                   }
3270                   static s7_pointer g_clock_settime(s7_scheme *sc, s7_pointer args)
3271                   {
3272                     #if (!__APPLE__)
3273                     struct timespec t0;
3274                     t0.tv_sec = (time_t)s7_integer(s7_cadr(args));
3275                     t0.tv_nsec = (long)s7_integer(s7_caddr(args));
3276                     return(s7_make_integer(sc, clock_settime(s7_integer(s7_car(args)), &t0)));
3277                     #else
3278                     return(s7_make_integer(sc, -1));
3279                     #endif
3280                   }
3281                   static s7_pointer g_clock_getcpuclockid(s7_scheme *sc, s7_pointer args)
3282                   {
3283                     #if __linux__
3284                     clockid_t c = 0;
3285                     clock_getcpuclockid((pid_t)s7_integer(s7_car(args)), &c);
3286                     return(s7_make_integer(sc, (s7_int)c));
3287                     #else
3288                     return(s7_make_integer(sc, -1));
3289                     #endif
3290                   }
3291                   static s7_pointer g_clock_nanosleep(s7_scheme *sc, s7_pointer args)
3292                   {
3293                     #if __linux__
3294                     struct timespec t0;
3295                     t0.tv_sec = (time_t)s7_integer(s7_caddr(args));
3296                     t0.tv_nsec = (long)s7_integer(s7_cadddr(args));
3297                     return(s7_make_integer(sc, clock_nanosleep((clockid_t)s7_integer(s7_car(args)), (int)s7_integer(s7_cadr(args)), &t0, NULL)));
3298                     #else
3299                     return(s7_make_integer(sc, -1));
3300                     #endif
3301                   }
3302
3303 static s7_pointer g_utime(s7_scheme *sc, s7_pointer args)
3304                   {
3305                     struct utimbuf tb;
3306                     tb.actime = (time_t)s7_integer(s7_cadr(args));
3307                     tb.modtime = (time_t)s7_integer(s7_caddr(args));
3308                     return(s7_make_integer(sc, utime(s7_string(s7_car(args)), &tb)));
3309                   }
3310
3311 /* -------- tcsendbreak -------- */
3312 static s7_pointer s7__tcsendbreak(s7_scheme *sc, s7_pointer args)
3313 {
3314   s7_pointer p, arg;
3315   int s7__tcsendbreak_0;
3316   int s7__tcsendbreak_1;
3317   p = args;
3318   arg = s7_car(p);
3319   if (s7_is_integer(arg))
3320     s7__tcsendbreak_0 = (int)s7_integer(arg);
3321   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3322   p = s7_cdr(p);
3323   arg = s7_car(p);
3324   if (s7_is_integer(arg))
3325     s7__tcsendbreak_1 = (int)s7_integer(arg);
3326   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3327   return(s7_make_integer(sc, (s7_int)tcsendbreak(s7__tcsendbreak_0, s7__tcsendbreak_1)));
3328 }
3329 static s7_int tcsendbreak_i_ii(s7_int i1, s7_int i2) {return(tcsendbreak(i1, i2));}
3330
3331
3332 /* -------- tcdrain -------- */
3333 static s7_pointer s7__tcdrain(s7_scheme *sc, s7_pointer args)
3334 {
3335   s7_pointer p, arg;
3336   int s7__tcdrain_0;
3337   p = args;
3338   arg = s7_car(p);
3339   if (s7_is_integer(arg))
3340     s7__tcdrain_0 = (int)s7_integer(arg);
3341   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
3342   return(s7_make_integer(sc, (s7_int)tcdrain(s7__tcdrain_0)));
3343 }
3344 static s7_int tcdrain_i_i(s7_int i1) {return(tcdrain(i1));}
3345
3346
3347 /* -------- tcflush -------- */
3348 static s7_pointer s7__tcflush(s7_scheme *sc, s7_pointer args)
3349 {
3350   s7_pointer p, arg;
3351   int s7__tcflush_0;
3352   int s7__tcflush_1;
3353   p = args;
3354   arg = s7_car(p);
3355   if (s7_is_integer(arg))
3356     s7__tcflush_0 = (int)s7_integer(arg);
3357   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3358   p = s7_cdr(p);
3359   arg = s7_car(p);
3360   if (s7_is_integer(arg))
3361     s7__tcflush_1 = (int)s7_integer(arg);
3362   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3363   return(s7_make_integer(sc, (s7_int)tcflush(s7__tcflush_0, s7__tcflush_1)));
3364 }
3365 static s7_int tcflush_i_ii(s7_int i1, s7_int i2) {return(tcflush(i1, i2));}
3366
3367
3368 /* -------- tcflow -------- */
3369 static s7_pointer s7__tcflow(s7_scheme *sc, s7_pointer args)
3370 {
3371   s7_pointer p, arg;
3372   int s7__tcflow_0;
3373   int s7__tcflow_1;
3374   p = args;
3375   arg = s7_car(p);
3376   if (s7_is_integer(arg))
3377     s7__tcflow_0 = (int)s7_integer(arg);
3378   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3379   p = s7_cdr(p);
3380   arg = s7_car(p);
3381   if (s7_is_integer(arg))
3382     s7__tcflow_1 = (int)s7_integer(arg);
3383   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3384   return(s7_make_integer(sc, (s7_int)tcflow(s7__tcflow_0, s7__tcflow_1)));
3385 }
3386 static s7_int tcflow_i_ii(s7_int i1, s7_int i2) {return(tcflow(i1, i2));}
3387
3388 static s7_pointer g_cfgetospeed(s7_scheme *sc, s7_pointer args)
3389                   {
3390                     struct termios *p;
3391                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3392                     return(s7_make_integer(sc, (s7_int)cfgetospeed(p)));
3393                   }
3394                   static s7_pointer g_cfgetispeed(s7_scheme *sc, s7_pointer args)
3395                   {
3396                     struct termios *p;
3397                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3398                     return(s7_make_integer(sc, (s7_int)cfgetispeed(p)));
3399                   }
3400                   static s7_pointer g_cfsetospeed(s7_scheme *sc, s7_pointer args)
3401                   {
3402                     struct termios *p;
3403                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3404                     return(s7_make_integer(sc, cfsetospeed(p, (speed_t)s7_integer(s7_cadr(args)))));
3405                   }
3406                   static s7_pointer g_cfsetispeed(s7_scheme *sc, s7_pointer args)
3407                   {
3408                     struct termios *p;
3409                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3410                     return(s7_make_integer(sc, cfsetispeed(p, (speed_t)s7_integer(s7_cadr(args)))));
3411                   }
3412                   static s7_pointer g_tcgetattr(s7_scheme *sc, s7_pointer args)
3413                   {
3414                     struct termios *p;
3415                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3416                     return(s7_make_integer(sc, tcgetattr(s7_integer(s7_car(args)), p)));
3417                   }
3418                   static s7_pointer g_tcsetattr(s7_scheme *sc, s7_pointer args)
3419                   {
3420                     struct termios *p;
3421                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3422                     return(s7_make_integer(sc, tcsetattr(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), p)));
3423                    }
3424                   static s7_pointer g_termios_make(s7_scheme *sc, s7_pointer args)
3425                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct termios)), s7_make_symbol(sc, "termios*"), s7_f(sc)));}
3426
3427                   static s7_pointer g_termios_c_lflag(s7_scheme *sc, s7_pointer args)
3428                   {
3429                     struct termios *p;
3430                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3431                     return(s7_make_integer(sc, (s7_int)(p->c_lflag)));
3432                   }
3433                   static s7_pointer g_termios_set_c_lflag(s7_scheme *sc, s7_pointer args)
3434                   {
3435                     struct termios *p;
3436                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3437                     p->c_lflag = (tcflag_t)s7_integer(s7_cadr(args));
3438                     return(s7_cadr(args));
3439                   }
3440                   static s7_pointer g_termios_set_c_cc(s7_scheme *sc, s7_pointer args)
3441                   {
3442                     struct termios *p;
3443                     p = (struct termios *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "termios*"), __func__, 1);
3444                     p->c_cc[(int)s7_integer(s7_cadr(args))] = (cc_t)s7_integer(s7_caddr(args));
3445                     return(s7_caddr(args));
3446                   }
3447
3448 static s7_pointer g_getgrgid(s7_scheme *sc, s7_pointer args)
3449                   {return(s7_make_c_pointer_with_type(sc, getgrgid(s7_integer(s7_car(args))), s7_make_symbol(sc, "group*"), s7_f(sc)));}
3450                   static s7_pointer g_getgrnam(s7_scheme *sc, s7_pointer args)
3451                   {return(s7_make_c_pointer_with_type(sc, getgrnam(s7_string(s7_car(args))), s7_make_symbol(sc, "group*"), s7_f(sc)));}
3452                   static s7_pointer g_group_gr_name(s7_scheme *sc, s7_pointer args)
3453                     {
3454                       struct group *g;
3455                       g = (struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1);
3456                       if (!g) return(s7_make_string(sc, ""));
3457                       return(s7_make_string(sc, ((struct group *)g)->gr_name));
3458                     }
3459                   static s7_pointer g_group_gr_passwd(s7_scheme *sc, s7_pointer args)
3460                     {
3461                       struct group *g;
3462                       g = (struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1);
3463                       if (!g) return(s7_make_string(sc, ""));
3464                       return(s7_make_string(sc, ((struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1))->gr_passwd));
3465                     }
3466                   static s7_pointer g_group_gr_gid(s7_scheme *sc, s7_pointer args)
3467                     {
3468                       struct group *g;
3469                       g = (struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1);
3470                       if (!g) return(s7_make_integer(sc, -1));
3471                       return(s7_make_integer(sc, (s7_int)(((struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1))->gr_gid)));
3472                     }
3473                   static s7_pointer g_group_gr_mem(s7_scheme *sc, s7_pointer args)
3474                     {
3475                       s7_pointer p;
3476                       int i;
3477                       struct group *g;
3478                       g = (struct group *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "group*"), __func__, 1);
3479                       p = s7_nil(sc);
3480                       for (i = 0; g->gr_mem[i]; i++)
3481                         p = s7_cons(sc, s7_make_string(sc, g->gr_mem[i]), p);
3482                       return(p);
3483                       }
3484
3485
3486 /* -------- setpwent -------- */
3487 static s7_pointer s7__setpwent(s7_scheme *sc, s7_pointer args)
3488 {
3489   setpwent();
3490   return(s7_unspecified(sc));
3491 }
3492
3493
3494 /* -------- endpwent -------- */
3495 static s7_pointer s7__endpwent(s7_scheme *sc, s7_pointer args)
3496 {
3497   endpwent();
3498   return(s7_unspecified(sc));
3499 }
3500
3501
3502 /* -------- getpwent -------- */
3503 static s7_pointer s7__getpwent(s7_scheme *sc, s7_pointer args)
3504 {
3505   return(s7_make_c_pointer_with_type(sc, (void*)getpwent(), passwd__symbol, s7_f(sc)));
3506 }
3507
3508
3509 /* -------- getpwuid -------- */
3510 static s7_pointer s7__getpwuid(s7_scheme *sc, s7_pointer args)
3511 {
3512   s7_pointer p, arg;
3513   int s7__getpwuid_0;
3514   p = args;
3515   arg = s7_car(p);
3516   if (s7_is_integer(arg))
3517     s7__getpwuid_0 = (int)s7_integer(arg);
3518   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
3519   return(s7_make_c_pointer_with_type(sc, (void*)getpwuid(s7__getpwuid_0), passwd__symbol, s7_f(sc)));
3520 }
3521
3522
3523 /* -------- getpwnam -------- */
3524 static s7_pointer s7__getpwnam(s7_scheme *sc, s7_pointer args)
3525 {
3526   s7_pointer p, arg;
3527   char* s7__getpwnam_0;
3528   p = args;
3529   arg = s7_car(p);
3530   if (s7_is_string(arg))
3531     s7__getpwnam_0 = (char*)s7_string(arg);
3532   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
3533   return(s7_make_c_pointer_with_type(sc, (void*)getpwnam(s7__getpwnam_0), passwd__symbol, s7_f(sc)));
3534 }
3535
3536 static s7_pointer g_passwd_pw_name(s7_scheme *sc, s7_pointer args)
3537                     {return(s7_make_string(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_name));}
3538                   static s7_pointer g_passwd_pw_passwd(s7_scheme *sc, s7_pointer args)
3539                     {return(s7_make_string(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_passwd));}
3540                   static s7_pointer g_passwd_pw_uid(s7_scheme *sc, s7_pointer args)
3541                     {return(s7_make_integer(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_uid));}
3542                   static s7_pointer g_passwd_pw_gid(s7_scheme *sc, s7_pointer args)
3543                     {return(s7_make_integer(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_gid));}
3544                   static s7_pointer g_passwd_pw_gecos(s7_scheme *sc, s7_pointer args)
3545                     {return(s7_make_string(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_gecos));}
3546                   static s7_pointer g_passwd_pw_dir(s7_scheme *sc, s7_pointer args)
3547                     {return(s7_make_string(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_dir));}
3548                   static s7_pointer g_passwd_pw_shell(s7_scheme *sc, s7_pointer args)
3549                     {return(s7_make_string(sc, ((struct passwd *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "passwd*"), __func__, 1))->pw_shell));}
3550
3551
3552 /* -------- wordexp -------- */
3553 static s7_pointer s7__wordexp(s7_scheme *sc, s7_pointer args)
3554 {
3555   s7_pointer p, arg;
3556   char* s7__wordexp_0;
3557   wordexp_t* s7__wordexp_1;
3558   int s7__wordexp_2;
3559   p = args;
3560   arg = s7_car(p);
3561   if (s7_is_string(arg))
3562     s7__wordexp_0 = (char*)s7_string(arg);
3563   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
3564   p = s7_cdr(p);
3565   arg = s7_car(p);
3566   s7__wordexp_1 = (wordexp_t*)s7_c_pointer_with_type(sc, arg, wordexp_t__symbol, __func__, 2);
3567   p = s7_cdr(p);
3568   arg = s7_car(p);
3569   if (s7_is_integer(arg))
3570     s7__wordexp_2 = (int)s7_integer(arg);
3571   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
3572   return(s7_make_integer(sc, (s7_int)wordexp(s7__wordexp_0, s7__wordexp_1, s7__wordexp_2)));
3573 }
3574
3575
3576 /* -------- wordfree -------- */
3577 static s7_pointer s7__wordfree(s7_scheme *sc, s7_pointer args)
3578 {
3579   s7_pointer p, arg;
3580   wordexp_t* s7__wordfree_0;
3581   p = args;
3582   arg = s7_car(p);
3583   s7__wordfree_0 = (wordexp_t*)s7_c_pointer_with_type(sc, arg, wordexp_t__symbol, __func__, 0);
3584   wordfree(s7__wordfree_0);
3585   return(s7_unspecified(sc));
3586 }
3587
3588 static s7_pointer g_wordexp_make(s7_scheme *sc, s7_pointer args)
3589                            {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(wordexp_t)), s7_make_symbol(sc, "wordexp_t*"), s7_f(sc)));}
3590                            static s7_pointer g_wordexp_we_wordc(s7_scheme *sc, s7_pointer args)
3591                            {return(s7_make_integer(sc, ((wordexp_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "wordexp_t*"), __func__, 1))->we_wordc));}
3592                            static s7_pointer g_wordexp_we_wordv(s7_scheme *sc, s7_pointer args)
3593                            {
3594                              s7_pointer p;
3595                              size_t i;
3596                              wordexp_t *g;
3597                              g = (wordexp_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "wordexp_t*"), __func__, 1);
3598                              p = s7_nil(sc);
3599                              for (i = 0; i < g->we_wordc; i++)
3600                                p = s7_cons(sc, s7_make_string(sc, g->we_wordv[i]), p);
3601                              return(p);
3602                            }
3603
3604 /* -------- globfree -------- */
3605 static s7_pointer s7__globfree(s7_scheme *sc, s7_pointer args)
3606 {
3607   s7_pointer p, arg;
3608   glob_t* s7__globfree_0;
3609   p = args;
3610   arg = s7_car(p);
3611   s7__globfree_0 = (glob_t*)s7_c_pointer_with_type(sc, arg, glob_t__symbol, __func__, 0);
3612   globfree(s7__globfree_0);
3613   return(s7_unspecified(sc));
3614 }
3615
3616 static s7_pointer g_glob_make(s7_scheme *sc, s7_pointer args)
3617                            {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(glob_t)), s7_make_symbol(sc, "glob_t*"), s7_f(sc)));}
3618                            static s7_pointer g_glob_gl_pathc(s7_scheme *sc, s7_pointer args)
3619                            {return(s7_make_integer(sc, ((glob_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "glob_t*"), __func__, 1))->gl_pathc));}
3620                            static s7_pointer g_glob(s7_scheme *sc, s7_pointer args)
3621                            {return(s7_make_integer(sc, glob(s7_string(s7_car(args)), s7_integer(s7_cadr(args)), NULL,
3622                                                             (glob_t *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, "glob_t*"), __func__, 1))));}
3623                            static s7_pointer g_glob_gl_pathv(s7_scheme *sc, s7_pointer args)
3624                            {
3625                              s7_pointer p;
3626                              size_t i;
3627                              glob_t *g;
3628                              g = (glob_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "glob_t*"), __func__, 1);
3629                              p = s7_nil(sc);
3630                              for (i = 0; i < g->gl_pathc; i++)
3631                                p = s7_cons(sc, s7_make_string(sc, g->gl_pathv[i]), p);
3632                              return(p);
3633                            }
3634
3635 /* -------- kill -------- */
3636 static s7_pointer s7__kill(s7_scheme *sc, s7_pointer args)
3637 {
3638   s7_pointer p, arg;
3639   int s7__kill_0;
3640   int s7__kill_1;
3641   p = args;
3642   arg = s7_car(p);
3643   if (s7_is_integer(arg))
3644     s7__kill_0 = (int)s7_integer(arg);
3645   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3646   p = s7_cdr(p);
3647   arg = s7_car(p);
3648   if (s7_is_integer(arg))
3649     s7__kill_1 = (int)s7_integer(arg);
3650   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3651   return(s7_make_integer(sc, (s7_int)kill(s7__kill_0, s7__kill_1)));
3652 }
3653 static s7_int kill_i_ii(s7_int i1, s7_int i2) {return(kill(i1, i2));}
3654
3655
3656 /* -------- raise -------- */
3657 static s7_pointer s7__raise(s7_scheme *sc, s7_pointer args)
3658 {
3659   s7_pointer p, arg;
3660   int s7__raise_0;
3661   p = args;
3662   arg = s7_car(p);
3663   if (s7_is_integer(arg))
3664     s7__raise_0 = (int)s7_integer(arg);
3665   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
3666   return(s7_make_integer(sc, (s7_int)raise(s7__raise_0)));
3667 }
3668 static s7_int raise_i_i(s7_int i1) {return(raise(i1));}
3669
3670
3671 /* -------- sigemptyset -------- */
3672 static s7_pointer s7__sigemptyset(s7_scheme *sc, s7_pointer args)
3673 {
3674   s7_pointer p, arg;
3675   sigset_t* s7__sigemptyset_0;
3676   p = args;
3677   arg = s7_car(p);
3678   s7__sigemptyset_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 0);
3679   return(s7_make_integer(sc, (s7_int)sigemptyset(s7__sigemptyset_0)));
3680 }
3681
3682
3683 /* -------- sigfillset -------- */
3684 static s7_pointer s7__sigfillset(s7_scheme *sc, s7_pointer args)
3685 {
3686   s7_pointer p, arg;
3687   sigset_t* s7__sigfillset_0;
3688   p = args;
3689   arg = s7_car(p);
3690   s7__sigfillset_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 0);
3691   return(s7_make_integer(sc, (s7_int)sigfillset(s7__sigfillset_0)));
3692 }
3693
3694
3695 /* -------- sigaddset -------- */
3696 static s7_pointer s7__sigaddset(s7_scheme *sc, s7_pointer args)
3697 {
3698   s7_pointer p, arg;
3699   sigset_t* s7__sigaddset_0;
3700   int s7__sigaddset_1;
3701   p = args;
3702   arg = s7_car(p);
3703   s7__sigaddset_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 1);
3704   p = s7_cdr(p);
3705   arg = s7_car(p);
3706   if (s7_is_integer(arg))
3707     s7__sigaddset_1 = (int)s7_integer(arg);
3708   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3709   return(s7_make_integer(sc, (s7_int)sigaddset(s7__sigaddset_0, s7__sigaddset_1)));
3710 }
3711
3712
3713 /* -------- sigdelset -------- */
3714 static s7_pointer s7__sigdelset(s7_scheme *sc, s7_pointer args)
3715 {
3716   s7_pointer p, arg;
3717   sigset_t* s7__sigdelset_0;
3718   int s7__sigdelset_1;
3719   p = args;
3720   arg = s7_car(p);
3721   s7__sigdelset_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 1);
3722   p = s7_cdr(p);
3723   arg = s7_car(p);
3724   if (s7_is_integer(arg))
3725     s7__sigdelset_1 = (int)s7_integer(arg);
3726   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3727   return(s7_make_integer(sc, (s7_int)sigdelset(s7__sigdelset_0, s7__sigdelset_1)));
3728 }
3729
3730
3731 /* -------- sigismember -------- */
3732 static s7_pointer s7__sigismember(s7_scheme *sc, s7_pointer args)
3733 {
3734   s7_pointer p, arg;
3735   sigset_t* s7__sigismember_0;
3736   int s7__sigismember_1;
3737   p = args;
3738   arg = s7_car(p);
3739   s7__sigismember_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 1);
3740   p = s7_cdr(p);
3741   arg = s7_car(p);
3742   if (s7_is_integer(arg))
3743     s7__sigismember_1 = (int)s7_integer(arg);
3744   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3745   return(s7_make_integer(sc, (s7_int)sigismember(s7__sigismember_0, s7__sigismember_1)));
3746 }
3747
3748
3749 /* -------- sigprocmask -------- */
3750 static s7_pointer s7__sigprocmask(s7_scheme *sc, s7_pointer args)
3751 {
3752   s7_pointer p, arg;
3753   int s7__sigprocmask_0;
3754   sigset_t* s7__sigprocmask_1;
3755   sigset_t* s7__sigprocmask_2;
3756   p = args;
3757   arg = s7_car(p);
3758   if (s7_is_integer(arg))
3759     s7__sigprocmask_0 = (int)s7_integer(arg);
3760   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3761   p = s7_cdr(p);
3762   arg = s7_car(p);
3763   s7__sigprocmask_1 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 2);
3764   p = s7_cdr(p);
3765   arg = s7_car(p);
3766   s7__sigprocmask_2 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 3);
3767   return(s7_make_integer(sc, (s7_int)sigprocmask(s7__sigprocmask_0, s7__sigprocmask_1, s7__sigprocmask_2)));
3768 }
3769
3770
3771 /* -------- sigsuspend -------- */
3772 static s7_pointer s7__sigsuspend(s7_scheme *sc, s7_pointer args)
3773 {
3774   s7_pointer p, arg;
3775   sigset_t* s7__sigsuspend_0;
3776   p = args;
3777   arg = s7_car(p);
3778   s7__sigsuspend_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 0);
3779   return(s7_make_integer(sc, (s7_int)sigsuspend(s7__sigsuspend_0)));
3780 }
3781
3782
3783 /* -------- sigpending -------- */
3784 static s7_pointer s7__sigpending(s7_scheme *sc, s7_pointer args)
3785 {
3786   s7_pointer p, arg;
3787   sigset_t* s7__sigpending_0;
3788   p = args;
3789   arg = s7_car(p);
3790   s7__sigpending_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 0);
3791   return(s7_make_integer(sc, (s7_int)sigpending(s7__sigpending_0)));
3792 }
3793
3794
3795 /* -------- getpriority -------- */
3796 static s7_pointer s7__getpriority(s7_scheme *sc, s7_pointer args)
3797 {
3798   s7_pointer p, arg;
3799   int s7__getpriority_0;
3800   int s7__getpriority_1;
3801   p = args;
3802   arg = s7_car(p);
3803   if (s7_is_integer(arg))
3804     s7__getpriority_0 = (int)s7_integer(arg);
3805   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3806   p = s7_cdr(p);
3807   arg = s7_car(p);
3808   if (s7_is_integer(arg))
3809     s7__getpriority_1 = (int)s7_integer(arg);
3810   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3811   return(s7_make_integer(sc, (s7_int)getpriority(s7__getpriority_0, s7__getpriority_1)));
3812 }
3813 static s7_int getpriority_i_ii(s7_int i1, s7_int i2) {return(getpriority(i1, i2));}
3814
3815
3816 /* -------- setpriority -------- */
3817 static s7_pointer s7__setpriority(s7_scheme *sc, s7_pointer args)
3818 {
3819   s7_pointer p, arg;
3820   int s7__setpriority_0;
3821   int s7__setpriority_1;
3822   int s7__setpriority_2;
3823   p = args;
3824   arg = s7_car(p);
3825   if (s7_is_integer(arg))
3826     s7__setpriority_0 = (int)s7_integer(arg);
3827   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
3828   p = s7_cdr(p);
3829   arg = s7_car(p);
3830   if (s7_is_integer(arg))
3831     s7__setpriority_1 = (int)s7_integer(arg);
3832   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
3833   p = s7_cdr(p);
3834   arg = s7_car(p);
3835   if (s7_is_integer(arg))
3836     s7__setpriority_2 = (int)s7_integer(arg);
3837   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
3838   return(s7_make_integer(sc, (s7_int)setpriority(s7__setpriority_0, s7__setpriority_1, s7__setpriority_2)));
3839 }
3840
3841 static s7_pointer g_rlimit_make(s7_scheme *sc, s7_pointer args)
3842                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct rlimit)), s7_make_symbol(sc, "rlimit*"), s7_f(sc)));}
3843                   static s7_pointer g_rlimit_rlim_cur(s7_scheme *sc, s7_pointer args)
3844                   {return(s7_make_integer(sc, ((struct rlimit *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rlimit*"), __func__, 1))->rlim_cur));}
3845                   static s7_pointer g_rlimit_rlim_max(s7_scheme *sc, s7_pointer args)
3846                   {return(s7_make_integer(sc, ((struct rlimit *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rlimit*"), __func__, 1))->rlim_max));}
3847
3848                   static s7_pointer g_rusage_make(s7_scheme *sc, s7_pointer args)
3849                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct rusage)), s7_make_symbol(sc, "rusage*"), s7_f(sc)));}
3850                   static s7_pointer g_rusage_ru_maxrss(s7_scheme *sc, s7_pointer args)
3851                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_maxrss));}
3852                   static s7_pointer g_rusage_ru_minflt(s7_scheme *sc, s7_pointer args)
3853                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_minflt));}
3854                   static s7_pointer g_rusage_ru_majflt(s7_scheme *sc, s7_pointer args)
3855                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_majflt));}
3856                   static s7_pointer g_rusage_ru_inblock(s7_scheme *sc, s7_pointer args)
3857                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_inblock));}
3858                   static s7_pointer g_rusage_ru_oublock(s7_scheme *sc, s7_pointer args)
3859                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_oublock));}
3860                   static s7_pointer g_rusage_ru_nvcsw(s7_scheme *sc, s7_pointer args)
3861                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_nvcsw));}
3862                   static s7_pointer g_rusage_ru_nivcsw(s7_scheme *sc, s7_pointer args)
3863                   {return(s7_make_integer(sc, ((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_nivcsw));}
3864                   static s7_pointer g_rusage_ru_utime(s7_scheme *sc, s7_pointer args)
3865                   {return(s7_make_c_pointer(sc, &(((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_utime)));}
3866                   static s7_pointer g_rusage_ru_stime(s7_scheme *sc, s7_pointer args)
3867                   {return(s7_make_c_pointer(sc, &(((struct rusage *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "rusage*"), __func__, 1))->ru_stime)));}
3868                   static s7_pointer g_getrusage(s7_scheme *sc, s7_pointer args)
3869                   {return(s7_make_integer(sc, getrusage(s7_integer(s7_car(args)),
3870                                                 (struct rusage *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "rusage*"), __func__, 1))));}
3871
3872                   static s7_pointer g_sigset_make(s7_scheme *sc, s7_pointer args)
3873                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(sigset_t)), s7_make_symbol(sc, "sigset_t*"), s7_f(sc)));}
3874
3875                   #if __linux__
3876                   static s7_pointer g_WEXITSTATUS(s7_scheme *sc, s7_pointer args)
3877                   {return(s7_make_integer(sc, WEXITSTATUS(s7_integer(s7_car(args)))));}
3878                   static s7_pointer g_WTERMSIG(s7_scheme *sc, s7_pointer args)
3879                   {return(s7_make_integer(sc, WTERMSIG(s7_integer(s7_car(args)))));}
3880                   static s7_pointer g_WSTOPSIG(s7_scheme *sc, s7_pointer args)
3881                   {return(s7_make_integer(sc, WSTOPSIG(s7_integer(s7_car(args)))));}
3882                   static s7_pointer g_WIFEXITED(s7_scheme *sc, s7_pointer args)
3883                   {return(s7_make_integer(sc, WIFEXITED(s7_integer(s7_car(args)))));}
3884                   static s7_pointer g_WIFSIGNALED(s7_scheme *sc, s7_pointer args)
3885                   {return(s7_make_integer(sc, WIFSIGNALED(s7_integer(s7_car(args)))));}
3886                   static s7_pointer g_WIFSTOPPED(s7_scheme *sc, s7_pointer args)
3887                   {return(s7_make_integer(sc, WIFSTOPPED(s7_integer(s7_car(args)))));}
3888                   #endif
3889
3890                   static s7_pointer g_wait(s7_scheme *sc, s7_pointer args)
3891                   {
3892                     int status, result;
3893                     result = wait(&status);
3894                     return(s7_list(sc, 2, s7_make_integer(sc, result), s7_make_integer(sc, status)));
3895                   }
3896                   static s7_pointer g_waitpid(s7_scheme *sc, s7_pointer args)
3897                   {
3898                     int status, result;
3899                     result = waitpid((pid_t)s7_integer(s7_car(args)), &status, s7_integer(s7_cadr(args)));
3900                     return(s7_list(sc, 2, s7_make_integer(sc, result), s7_make_integer(sc, status)));
3901                   }
3902                   static s7_pointer g_sigqueue(s7_scheme *sc, s7_pointer args)
3903                   {
3904                     #if (__linux__)
3905                       union sigval val;
3906                       if (s7_is_integer(s7_caddr(args)))
3907                         val.sival_int = (int)s7_integer(s7_caddr(args));
3908                       else val.sival_ptr = (void *)s7_c_pointer(s7_caddr(args));
3909                       return(s7_make_integer(sc, sigqueue((pid_t)s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), val)));
3910                     #else
3911                       return(s7_f(sc));
3912                     #endif
3913                   }
3914                   static s7_pointer g_sigwait(s7_scheme *sc, s7_pointer args)
3915                   {
3916                     #if (!__sun)
3917                     int status, result;
3918                     result = sigwait((const sigset_t *)s7_c_pointer(s7_car(args)), &status);
3919                     return(s7_list(sc, 2, s7_make_integer(sc, result), s7_make_integer(sc, status)));
3920                     #else
3921                     return(s7_f(sc));
3922                     #endif
3923                   }
3924                   static s7_pointer g_sigtimedwait(s7_scheme *sc, s7_pointer args)
3925                   {
3926                     #if (__linux__)
3927                      return(s7_make_integer(sc, sigtimedwait((const sigset_t *)s7_c_pointer(s7_car(args)),
3928                                                            (siginfo_t *)s7_c_pointer(s7_cadr(args)),
3929                                                              (const struct timespec *)s7_c_pointer(s7_caddr(args)))));
3930                     #else
3931                       return(s7_f(sc));
3932                     #endif
3933                   }
3934                   #if __linux__
3935                   static s7_pointer g_siginfo_make(s7_scheme *sc, s7_pointer args)
3936                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(siginfo_t)), s7_make_symbol(sc, "siginfo_t*"), s7_f(sc)));}
3937                   static s7_pointer g_siginfo_si_signo(s7_scheme *sc, s7_pointer args)
3938                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_signo));}
3939                   static s7_pointer g_siginfo_si_errno(s7_scheme *sc, s7_pointer args)
3940                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_errno));}
3941                   static s7_pointer g_siginfo_si_code(s7_scheme *sc, s7_pointer args)
3942                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_code));}
3943                   static s7_pointer g_siginfo_si_pid(s7_scheme *sc, s7_pointer args)
3944                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_pid));}
3945                   static s7_pointer g_siginfo_si_uid(s7_scheme *sc, s7_pointer args)
3946                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_uid));}
3947                   static s7_pointer g_siginfo_si_status(s7_scheme *sc, s7_pointer args)
3948                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_status));}
3949                   static s7_pointer g_siginfo_si_utime(s7_scheme *sc, s7_pointer args)
3950                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_utime));}
3951                   static s7_pointer g_siginfo_si_stime(s7_scheme *sc, s7_pointer args)
3952                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_stime));}
3953                   static s7_pointer g_siginfo_si_value(s7_scheme *sc, s7_pointer args)
3954                   {return(s7_make_c_pointer(sc, &(((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_value)));}
3955                   static s7_pointer g_siginfo_si_int(s7_scheme *sc, s7_pointer args)
3956                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_int));}
3957                   static s7_pointer g_siginfo_si_overrun(s7_scheme *sc, s7_pointer args)
3958                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_overrun));}
3959                   static s7_pointer g_siginfo_si_timerid(s7_scheme *sc, s7_pointer args)
3960                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_timerid));}
3961                   static s7_pointer g_siginfo_si_band(s7_scheme *sc, s7_pointer args)
3962                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_band));}
3963                   static s7_pointer g_siginfo_si_fd(s7_scheme *sc, s7_pointer args)
3964                   {return(s7_make_integer(sc, ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_fd));}
3965                   static s7_pointer g_siginfo_si_ptr(s7_scheme *sc, s7_pointer args)
3966                   {return(s7_make_c_pointer_with_type(sc,
3967                             ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_ptr,
3968                             s7_make_symbol(sc, "siginfo_t*"), s7_f(sc)));}
3969                   static s7_pointer g_siginfo_si_addr(s7_scheme *sc, s7_pointer args)
3970                   {return(s7_make_c_pointer_with_type(sc,
3971                             ((siginfo_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "siginfo_t*"), __func__, 1))->si_addr,
3972                             s7_make_symbol(sc, "siginfo_t*"), s7_f(sc)));}
3973                   #endif
3974
3975                   static s7_pointer g_timespec_make(s7_scheme *sc, s7_pointer args)
3976                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct timespec)), s7_make_symbol(sc, "timespec*"), s7_f(sc)));}
3977                   static s7_pointer g_timespec_tv_sec(s7_scheme *sc, s7_pointer args)
3978                   {return(s7_make_integer(sc, ((struct timespec *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "timespec*"), __func__, 1))->tv_sec));}
3979                   static s7_pointer g_timespec_tv_nsec(s7_scheme *sc, s7_pointer args)
3980                   {return(s7_make_integer(sc, ((struct timespec *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "timespec*"), __func__, 1))->tv_nsec));}
3981
3982                   static s7_pointer g_sigaction_make(s7_scheme *sc, s7_pointer args)
3983                   {return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct sigaction)), s7_make_symbol(sc, "sigaction*"), s7_f(sc)));}
3984                   static s7_pointer g_sigaction_sa_flags(s7_scheme *sc, s7_pointer args)
3985                   {return(s7_make_integer(sc, ((struct sigaction *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "sigaction*"), __func__, 1))->sa_flags));}
3986                   static s7_pointer g_sigaction_set_sa_flags(s7_scheme *sc, s7_pointer args)
3987                   {((struct sigaction *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "sigaction*"), __func__, 1))->sa_flags = s7_integer(s7_cadr(args)); return(s7_cadr(args));}
3988                   static s7_pointer g_sigaction_sa_mask(s7_scheme *sc, s7_pointer args)
3989                   {return(s7_make_c_pointer_with_type(sc, (void *)(&(((struct sigaction *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "sigaction*"), __func__, 1))->sa_mask)), s7_make_symbol(sc, "sigset_t*"), s7_f(sc)));}
3990                   static s7_pointer g_sigaction_sa_handler(s7_scheme *sc, s7_pointer args)
3991                   {return(s7_make_c_pointer(sc, (void *)(((struct sigaction *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "sigaction*"), __func__, 1))->sa_handler)));}
3992
3993                   static s7_pointer sighandlers = NULL;
3994                   static s7_scheme *sighandlers_s7 = NULL;
3995                   static void s7_signal_handler(int sig)
3996                   {
3997                     if (sighandlers)
3998                       {
3999                         s7_pointer handler;
4000                         handler = s7_vector_ref(sighandlers_s7, sighandlers, sig);
4001                         if (handler != s7_nil(sighandlers_s7))
4002                            s7_call(sighandlers_s7, handler, s7_cons(sighandlers_s7, s7_make_integer(sighandlers_s7, sig), s7_nil(sighandlers_s7)));
4003                        }
4004                   }
4005                   #ifndef SIGUNUSED
4006                     #define SIGUNUSED 65
4007                   #endif
4008                   static s7_pointer g_sigaction_set_sa_handler(s7_scheme *sc, s7_pointer args)
4009                   {
4010                     /* (sigaction.set_sa_handler ptr handler) */
4011                     if (!sighandlers)
4012                       {
4013                         sighandlers_s7 = sc;
4014                         sighandlers = s7_make_and_fill_vector(sc, SIGUNUSED + 1, s7_nil(sc));
4015                         s7_gc_protect(sc, sighandlers);
4016                       }
4017                     if (s7_is_c_pointer(s7_cadr(args)))
4018                       {
4019                         if (s7_c_pointer(s7_cadr(args)) == (void *)SIG_DFL)
4020                            ((struct sigaction *)s7_c_pointer(s7_car(args)))->sa_handler = SIG_DFL;
4021                         else
4022                           {
4023                             if (s7_c_pointer(s7_cadr(args)) == (void *)SIG_IGN)
4024                                ((struct sigaction *)s7_c_pointer(s7_car(args)))->sa_handler = SIG_IGN;
4025                           }}
4026                     else
4027                       {
4028                         ((struct sigaction *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "sigaction*"), __func__, 1))->sa_handler = s7_signal_handler;
4029                         s7_vector_set(sighandlers_s7, sighandlers, SIGUNUSED,
4030                           s7_cons(sc, s7_cons(sc, s7_car(args), s7_cadr(args)), s7_vector_ref(sighandlers_s7, sighandlers, SIGUNUSED)));
4031                       }
4032                     return(s7_cadr(args));
4033                   }
4034                 static s7_pointer g_sigaction(s7_scheme *sc, s7_pointer args)
4035                 {
4036                   int sig;
4037                   const struct sigaction *new_act;
4038                   struct sigaction *old_act;
4039                   s7_pointer handler;
4040                   sig = (int)s7_integer(s7_car(args));
4041                   new_act = (const struct sigaction *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "sigaction*"), __func__, 1);
4042                   old_act = (struct sigaction *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, "sigaction*"), __func__, 1);
4043                   if (s7_is_pair(s7_vector_ref(sighandlers_s7, sighandlers, SIGUNUSED)))
4044                     {
4045                       handler = s7_assq(sc, s7_cadr(args), s7_vector_ref(sighandlers_s7, sighandlers, SIGUNUSED));
4046                       if (s7_is_pair(handler))
4047                         s7_vector_set(sighandlers_s7, sighandlers, sig, s7_cdr(handler));
4048                     }
4049                   return(s7_make_integer(sc, sigaction(sig, new_act, old_act)));
4050                 }
4051                 static s7_pointer g_signal(s7_scheme *sc, s7_pointer args)
4052                 {
4053                   int sig;
4054                   if (!sighandlers)
4055                     {
4056                       sighandlers_s7 = sc;
4057                       sighandlers = s7_make_and_fill_vector(sc, SIGUNUSED + 1, s7_nil(sc));
4058                       s7_gc_protect(sc, sighandlers);
4059                     }
4060                   sig = s7_integer(s7_car(args));
4061                   if (s7_is_c_pointer(s7_cadr(args)))
4062                     {
4063                       if (s7_c_pointer(s7_cadr(args)) == (void *)SIG_DFL)
4064                          return(s7_make_c_pointer(sc, (void *)signal(sig, SIG_DFL)));
4065                       if (s7_c_pointer(s7_cadr(args)) == (void *)SIG_IGN)
4066                          return(s7_make_c_pointer(sc, (void *)signal(sig, SIG_IGN)));
4067                      }
4068                   s7_vector_set(sc, sighandlers, sig, s7_cadr(args));
4069                   return(s7_make_c_pointer(sc, (void *)signal(sig, s7_signal_handler)));
4070                 }
4071
4072
4073 /* -------- getrlimit -------- */
4074 static s7_pointer s7__getrlimit(s7_scheme *sc, s7_pointer args)
4075 {
4076   s7_pointer p, arg;
4077   int s7__getrlimit_0;
4078   struct rlimit* s7__getrlimit_1;
4079   p = args;
4080   arg = s7_car(p);
4081   if (s7_is_integer(arg))
4082     s7__getrlimit_0 = (int)s7_integer(arg);
4083   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4084   p = s7_cdr(p);
4085   arg = s7_car(p);
4086   s7__getrlimit_1 = (struct rlimit*)s7_c_pointer_with_type(sc, arg, struct_rlimit__symbol, __func__, 2);
4087   return(s7_make_integer(sc, (s7_int)getrlimit(s7__getrlimit_0, s7__getrlimit_1)));
4088 }
4089
4090
4091 /* -------- setrlimit -------- */
4092 static s7_pointer s7__setrlimit(s7_scheme *sc, s7_pointer args)
4093 {
4094   s7_pointer p, arg;
4095   int s7__setrlimit_0;
4096   struct rlimit* s7__setrlimit_1;
4097   p = args;
4098   arg = s7_car(p);
4099   if (s7_is_integer(arg))
4100     s7__setrlimit_0 = (int)s7_integer(arg);
4101   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4102   p = s7_cdr(p);
4103   arg = s7_car(p);
4104   s7__setrlimit_1 = (struct rlimit*)s7_c_pointer_with_type(sc, arg, struct_rlimit__symbol, __func__, 2);
4105   return(s7_make_integer(sc, (s7_int)setrlimit(s7__setrlimit_0, s7__setrlimit_1)));
4106 }
4107
4108
4109 /* -------- sigwaitinfo -------- */
4110 static s7_pointer s7__sigwaitinfo(s7_scheme *sc, s7_pointer args)
4111 {
4112   s7_pointer p, arg;
4113   sigset_t* s7__sigwaitinfo_0;
4114   siginfo_t* s7__sigwaitinfo_1;
4115   p = args;
4116   arg = s7_car(p);
4117   s7__sigwaitinfo_0 = (sigset_t*)s7_c_pointer_with_type(sc, arg, sigset_t__symbol, __func__, 1);
4118   p = s7_cdr(p);
4119   arg = s7_car(p);
4120   s7__sigwaitinfo_1 = (siginfo_t*)s7_c_pointer_with_type(sc, arg, siginfo_t__symbol, __func__, 2);
4121   return(s7_make_integer(sc, (s7_int)sigwaitinfo(s7__sigwaitinfo_0, s7__sigwaitinfo_1)));
4122 }
4123
4124
4125 /* -------- waitid -------- */
4126 static s7_pointer s7__waitid(s7_scheme *sc, s7_pointer args)
4127 {
4128   s7_pointer p, arg;
4129   idtype_t s7__waitid_0;
4130   int s7__waitid_1;
4131   siginfo_t* s7__waitid_2;
4132   int s7__waitid_3;
4133   p = args;
4134   arg = s7_car(p);
4135   if (s7_is_integer(arg))
4136     s7__waitid_0 = (idtype_t)s7_integer(arg);
4137   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4138   p = s7_cdr(p);
4139   arg = s7_car(p);
4140   if (s7_is_integer(arg))
4141     s7__waitid_1 = (int)s7_integer(arg);
4142   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4143   p = s7_cdr(p);
4144   arg = s7_car(p);
4145   s7__waitid_2 = (siginfo_t*)s7_c_pointer_with_type(sc, arg, siginfo_t__symbol, __func__, 3);
4146   p = s7_cdr(p);
4147   arg = s7_car(p);
4148   if (s7_is_integer(arg))
4149     s7__waitid_3 = (int)s7_integer(arg);
4150   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
4151   return(s7_make_integer(sc, (s7_int)waitid(s7__waitid_0, s7__waitid_1, s7__waitid_2, s7__waitid_3)));
4152 }
4153
4154
4155 /* -------- gethostent -------- */
4156 static s7_pointer s7__gethostent(s7_scheme *sc, s7_pointer args)
4157 {
4158   return(s7_make_c_pointer_with_type(sc, (void*)gethostent(), hostent__symbol, s7_f(sc)));
4159 }
4160
4161
4162 /* -------- setnetent -------- */
4163 static s7_pointer s7__setnetent(s7_scheme *sc, s7_pointer args)
4164 {
4165   s7_pointer p, arg;
4166   int s7__setnetent_0;
4167   p = args;
4168   arg = s7_car(p);
4169   if (s7_is_integer(arg))
4170     s7__setnetent_0 = (int)s7_integer(arg);
4171   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4172   setnetent(s7__setnetent_0);
4173   return(s7_unspecified(sc));
4174 }
4175
4176
4177 /* -------- endnetent -------- */
4178 static s7_pointer s7__endnetent(s7_scheme *sc, s7_pointer args)
4179 {
4180   endnetent();
4181   return(s7_unspecified(sc));
4182 }
4183
4184
4185 /* -------- getnetent -------- */
4186 static s7_pointer s7__getnetent(s7_scheme *sc, s7_pointer args)
4187 {
4188   return(s7_make_c_pointer_with_type(sc, (void*)getnetent(), netent__symbol, s7_f(sc)));
4189 }
4190
4191
4192 /* -------- getnetbyname -------- */
4193 static s7_pointer s7__getnetbyname(s7_scheme *sc, s7_pointer args)
4194 {
4195   s7_pointer p, arg;
4196   char* s7__getnetbyname_0;
4197   p = args;
4198   arg = s7_car(p);
4199   if (s7_is_string(arg))
4200     s7__getnetbyname_0 = (char*)s7_string(arg);
4201   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
4202   return(s7_make_c_pointer_with_type(sc, (void*)getnetbyname(s7__getnetbyname_0), netent__symbol, s7_f(sc)));
4203 }
4204
4205
4206 /* -------- getnetbyaddr -------- */
4207 static s7_pointer s7__getnetbyaddr(s7_scheme *sc, s7_pointer args)
4208 {
4209   s7_pointer p, arg;
4210   int s7__getnetbyaddr_0;
4211   int s7__getnetbyaddr_1;
4212   p = args;
4213   arg = s7_car(p);
4214   if (s7_is_integer(arg))
4215     s7__getnetbyaddr_0 = (int)s7_integer(arg);
4216   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4217   p = s7_cdr(p);
4218   arg = s7_car(p);
4219   if (s7_is_integer(arg))
4220     s7__getnetbyaddr_1 = (int)s7_integer(arg);
4221   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4222   return(s7_make_c_pointer_with_type(sc, (void*)getnetbyaddr(s7__getnetbyaddr_0, s7__getnetbyaddr_1), netent__symbol, s7_f(sc)));
4223 }
4224
4225
4226 /* -------- sethostent -------- */
4227 static s7_pointer s7__sethostent(s7_scheme *sc, s7_pointer args)
4228 {
4229   s7_pointer p, arg;
4230   int s7__sethostent_0;
4231   p = args;
4232   arg = s7_car(p);
4233   if (s7_is_integer(arg))
4234     s7__sethostent_0 = (int)s7_integer(arg);
4235   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4236   sethostent(s7__sethostent_0);
4237   return(s7_unspecified(sc));
4238 }
4239
4240
4241 /* -------- endhostent -------- */
4242 static s7_pointer s7__endhostent(s7_scheme *sc, s7_pointer args)
4243 {
4244   endhostent();
4245   return(s7_unspecified(sc));
4246 }
4247
4248
4249 /* -------- setservent -------- */
4250 static s7_pointer s7__setservent(s7_scheme *sc, s7_pointer args)
4251 {
4252   s7_pointer p, arg;
4253   int s7__setservent_0;
4254   p = args;
4255   arg = s7_car(p);
4256   if (s7_is_integer(arg))
4257     s7__setservent_0 = (int)s7_integer(arg);
4258   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4259   setservent(s7__setservent_0);
4260   return(s7_unspecified(sc));
4261 }
4262
4263
4264 /* -------- endservent -------- */
4265 static s7_pointer s7__endservent(s7_scheme *sc, s7_pointer args)
4266 {
4267   endservent();
4268   return(s7_unspecified(sc));
4269 }
4270
4271
4272 /* -------- getservent -------- */
4273 static s7_pointer s7__getservent(s7_scheme *sc, s7_pointer args)
4274 {
4275   return(s7_make_c_pointer_with_type(sc, (void*)getservent(), servent__symbol, s7_f(sc)));
4276 }
4277
4278
4279 /* -------- setprotoent -------- */
4280 static s7_pointer s7__setprotoent(s7_scheme *sc, s7_pointer args)
4281 {
4282   s7_pointer p, arg;
4283   int s7__setprotoent_0;
4284   p = args;
4285   arg = s7_car(p);
4286   if (s7_is_integer(arg))
4287     s7__setprotoent_0 = (int)s7_integer(arg);
4288   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4289   setprotoent(s7__setprotoent_0);
4290   return(s7_unspecified(sc));
4291 }
4292
4293
4294 /* -------- endprotoent -------- */
4295 static s7_pointer s7__endprotoent(s7_scheme *sc, s7_pointer args)
4296 {
4297   endprotoent();
4298   return(s7_unspecified(sc));
4299 }
4300
4301
4302 /* -------- getprotoent -------- */
4303 static s7_pointer s7__getprotoent(s7_scheme *sc, s7_pointer args)
4304 {
4305   return(s7_make_c_pointer_with_type(sc, (void*)getprotoent(), protoent__symbol, s7_f(sc)));
4306 }
4307
4308
4309 /* -------- socket -------- */
4310 static s7_pointer s7__socket(s7_scheme *sc, s7_pointer args)
4311 {
4312   s7_pointer p, arg;
4313   int s7__socket_0;
4314   int s7__socket_1;
4315   int s7__socket_2;
4316   p = args;
4317   arg = s7_car(p);
4318   if (s7_is_integer(arg))
4319     s7__socket_0 = (int)s7_integer(arg);
4320   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4321   p = s7_cdr(p);
4322   arg = s7_car(p);
4323   if (s7_is_integer(arg))
4324     s7__socket_1 = (int)s7_integer(arg);
4325   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4326   p = s7_cdr(p);
4327   arg = s7_car(p);
4328   if (s7_is_integer(arg))
4329     s7__socket_2 = (int)s7_integer(arg);
4330   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4331   return(s7_make_integer(sc, (s7_int)socket(s7__socket_0, s7__socket_1, s7__socket_2)));
4332 }
4333
4334
4335 /* -------- listen -------- */
4336 static s7_pointer s7__listen(s7_scheme *sc, s7_pointer args)
4337 {
4338   s7_pointer p, arg;
4339   int s7__listen_0;
4340   int s7__listen_1;
4341   p = args;
4342   arg = s7_car(p);
4343   if (s7_is_integer(arg))
4344     s7__listen_0 = (int)s7_integer(arg);
4345   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4346   p = s7_cdr(p);
4347   arg = s7_car(p);
4348   if (s7_is_integer(arg))
4349     s7__listen_1 = (int)s7_integer(arg);
4350   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4351   return(s7_make_integer(sc, (s7_int)listen(s7__listen_0, s7__listen_1)));
4352 }
4353 static s7_int listen_i_ii(s7_int i1, s7_int i2) {return(listen(i1, i2));}
4354
4355
4356 /* -------- shutdown -------- */
4357 static s7_pointer s7__shutdown(s7_scheme *sc, s7_pointer args)
4358 {
4359   s7_pointer p, arg;
4360   int s7__shutdown_0;
4361   int s7__shutdown_1;
4362   p = args;
4363   arg = s7_car(p);
4364   if (s7_is_integer(arg))
4365     s7__shutdown_0 = (int)s7_integer(arg);
4366   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4367   p = s7_cdr(p);
4368   arg = s7_car(p);
4369   if (s7_is_integer(arg))
4370     s7__shutdown_1 = (int)s7_integer(arg);
4371   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4372   return(s7_make_integer(sc, (s7_int)shutdown(s7__shutdown_0, s7__shutdown_1)));
4373 }
4374 static s7_int shutdown_i_ii(s7_int i1, s7_int i2) {return(shutdown(i1, i2));}
4375
4376
4377 /* -------- gethostbyname -------- */
4378 static s7_pointer s7__gethostbyname(s7_scheme *sc, s7_pointer args)
4379 {
4380   s7_pointer p, arg;
4381   char* s7__gethostbyname_0;
4382   p = args;
4383   arg = s7_car(p);
4384   if (s7_is_string(arg))
4385     s7__gethostbyname_0 = (char*)s7_string(arg);
4386   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
4387   return(s7_make_c_pointer_with_type(sc, (void*)gethostbyname(s7__gethostbyname_0), hostent__symbol, s7_f(sc)));
4388 }
4389
4390
4391 /* -------- gethostbyaddr -------- */
4392 static s7_pointer s7__gethostbyaddr(s7_scheme *sc, s7_pointer args)
4393 {
4394   s7_pointer p, arg;
4395   void* s7__gethostbyaddr_0;
4396   int s7__gethostbyaddr_1;
4397   int s7__gethostbyaddr_2;
4398   p = args;
4399   arg = s7_car(p);
4400   s7__gethostbyaddr_0 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 1);
4401   p = s7_cdr(p);
4402   arg = s7_car(p);
4403   if (s7_is_integer(arg))
4404     s7__gethostbyaddr_1 = (int)s7_integer(arg);
4405   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "integer"));
4406   p = s7_cdr(p);
4407   arg = s7_car(p);
4408   if (s7_is_integer(arg))
4409     s7__gethostbyaddr_2 = (int)s7_integer(arg);
4410   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4411   return(s7_make_c_pointer_with_type(sc, (void*)gethostbyaddr(s7__gethostbyaddr_0, s7__gethostbyaddr_1, s7__gethostbyaddr_2), hostent__symbol, s7_f(sc)));
4412 }
4413
4414
4415 /* -------- getservbyname -------- */
4416 static s7_pointer s7__getservbyname(s7_scheme *sc, s7_pointer args)
4417 {
4418   s7_pointer p, arg;
4419   char* s7__getservbyname_0;
4420   char* s7__getservbyname_1;
4421   p = args;
4422   arg = s7_car(p);
4423   if (s7_is_string(arg))
4424     s7__getservbyname_0 = (char*)s7_string(arg);
4425   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "string"));
4426   p = s7_cdr(p);
4427   arg = s7_car(p);
4428   if (s7_is_string(arg))
4429     s7__getservbyname_1 = (char*)s7_string(arg);
4430   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
4431   return(s7_make_c_pointer_with_type(sc, (void*)getservbyname(s7__getservbyname_0, s7__getservbyname_1), servent__symbol, s7_f(sc)));
4432 }
4433
4434
4435 /* -------- getservbyport -------- */
4436 static s7_pointer s7__getservbyport(s7_scheme *sc, s7_pointer args)
4437 {
4438   s7_pointer p, arg;
4439   int s7__getservbyport_0;
4440   char* s7__getservbyport_1;
4441   p = args;
4442   arg = s7_car(p);
4443   if (s7_is_integer(arg))
4444     s7__getservbyport_0 = (int)s7_integer(arg);
4445   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4446   p = s7_cdr(p);
4447   arg = s7_car(p);
4448   if (s7_is_string(arg))
4449     s7__getservbyport_1 = (char*)s7_string(arg);
4450   else return(s7_wrong_type_arg_error(sc, __func__, 2, arg, "string"));
4451   return(s7_make_c_pointer_with_type(sc, (void*)getservbyport(s7__getservbyport_0, s7__getservbyport_1), servent__symbol, s7_f(sc)));
4452 }
4453
4454
4455 /* -------- getprotobyname -------- */
4456 static s7_pointer s7__getprotobyname(s7_scheme *sc, s7_pointer args)
4457 {
4458   s7_pointer p, arg;
4459   char* s7__getprotobyname_0;
4460   p = args;
4461   arg = s7_car(p);
4462   if (s7_is_string(arg))
4463     s7__getprotobyname_0 = (char*)s7_string(arg);
4464   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "string"));
4465   return(s7_make_c_pointer_with_type(sc, (void*)getprotobyname(s7__getprotobyname_0), protoent__symbol, s7_f(sc)));
4466 }
4467
4468
4469 /* -------- getprotobynumber -------- */
4470 static s7_pointer s7__getprotobynumber(s7_scheme *sc, s7_pointer args)
4471 {
4472   s7_pointer p, arg;
4473   int s7__getprotobynumber_0;
4474   p = args;
4475   arg = s7_car(p);
4476   if (s7_is_integer(arg))
4477     s7__getprotobynumber_0 = (int)s7_integer(arg);
4478   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4479   return(s7_make_c_pointer_with_type(sc, (void*)getprotobynumber(s7__getprotobynumber_0), protoent__symbol, s7_f(sc)));
4480 }
4481
4482
4483 /* -------- freeaddrinfo -------- */
4484 static s7_pointer s7__freeaddrinfo(s7_scheme *sc, s7_pointer args)
4485 {
4486   s7_pointer p, arg;
4487   struct addrinfo* s7__freeaddrinfo_0;
4488   p = args;
4489   arg = s7_car(p);
4490   s7__freeaddrinfo_0 = (struct addrinfo*)s7_c_pointer_with_type(sc, arg, struct_addrinfo__symbol, __func__, 0);
4491   freeaddrinfo(s7__freeaddrinfo_0);
4492   return(s7_unspecified(sc));
4493 }
4494
4495
4496 /* -------- gai_strerror -------- */
4497 static s7_pointer s7__gai_strerror(s7_scheme *sc, s7_pointer args)
4498 {
4499   s7_pointer p, arg;
4500   int s7__gai_strerror_0;
4501   p = args;
4502   arg = s7_car(p);
4503   if (s7_is_integer(arg))
4504     s7__gai_strerror_0 = (int)s7_integer(arg);
4505   else return(s7_wrong_type_arg_error(sc, __func__, 0, arg, "integer"));
4506   return(s7_make_string(sc, (char*)gai_strerror(s7__gai_strerror_0)));
4507 }
4508
4509
4510 /* -------- bind -------- */
4511 static s7_pointer s7__bind(s7_scheme *sc, s7_pointer args)
4512 {
4513   s7_pointer p, arg;
4514   int s7__bind_0;
4515   const struct sockaddr* s7__bind_1;
4516   int s7__bind_2;
4517   p = args;
4518   arg = s7_car(p);
4519   if (s7_is_integer(arg))
4520     s7__bind_0 = (int)s7_integer(arg);
4521   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4522   p = s7_cdr(p);
4523   arg = s7_car(p);
4524   s7__bind_1 = (const struct sockaddr*)s7_c_pointer_with_type(sc, arg, const_struct_sockaddr__symbol, __func__, 2);
4525   p = s7_cdr(p);
4526   arg = s7_car(p);
4527   if (s7_is_integer(arg))
4528     s7__bind_2 = (int)s7_integer(arg);
4529   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4530   return(s7_make_integer(sc, (s7_int)bind(s7__bind_0, s7__bind_1, s7__bind_2)));
4531 }
4532
4533
4534 /* -------- connect -------- */
4535 static s7_pointer s7__connect(s7_scheme *sc, s7_pointer args)
4536 {
4537   s7_pointer p, arg;
4538   int s7__connect_0;
4539   const struct sockaddr* s7__connect_1;
4540   int s7__connect_2;
4541   p = args;
4542   arg = s7_car(p);
4543   if (s7_is_integer(arg))
4544     s7__connect_0 = (int)s7_integer(arg);
4545   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4546   p = s7_cdr(p);
4547   arg = s7_car(p);
4548   s7__connect_1 = (const struct sockaddr*)s7_c_pointer_with_type(sc, arg, const_struct_sockaddr__symbol, __func__, 2);
4549   p = s7_cdr(p);
4550   arg = s7_car(p);
4551   if (s7_is_integer(arg))
4552     s7__connect_2 = (int)s7_integer(arg);
4553   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4554   return(s7_make_integer(sc, (s7_int)connect(s7__connect_0, s7__connect_1, s7__connect_2)));
4555 }
4556
4557
4558 /* -------- send -------- */
4559 static s7_pointer s7__send(s7_scheme *sc, s7_pointer args)
4560 {
4561   s7_pointer p, arg;
4562   int s7__send_0;
4563   void* s7__send_1;
4564   int s7__send_2;
4565   int s7__send_3;
4566   p = args;
4567   arg = s7_car(p);
4568   if (s7_is_integer(arg))
4569     s7__send_0 = (int)s7_integer(arg);
4570   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4571   p = s7_cdr(p);
4572   arg = s7_car(p);
4573   s7__send_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
4574   p = s7_cdr(p);
4575   arg = s7_car(p);
4576   if (s7_is_integer(arg))
4577     s7__send_2 = (int)s7_integer(arg);
4578   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4579   p = s7_cdr(p);
4580   arg = s7_car(p);
4581   if (s7_is_integer(arg))
4582     s7__send_3 = (int)s7_integer(arg);
4583   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
4584   return(s7_make_integer(sc, (s7_int)send(s7__send_0, s7__send_1, s7__send_2, s7__send_3)));
4585 }
4586
4587
4588 /* -------- recv -------- */
4589 static s7_pointer s7__recv(s7_scheme *sc, s7_pointer args)
4590 {
4591   s7_pointer p, arg;
4592   int s7__recv_0;
4593   void* s7__recv_1;
4594   int s7__recv_2;
4595   int s7__recv_3;
4596   p = args;
4597   arg = s7_car(p);
4598   if (s7_is_integer(arg))
4599     s7__recv_0 = (int)s7_integer(arg);
4600   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4601   p = s7_cdr(p);
4602   arg = s7_car(p);
4603   s7__recv_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
4604   p = s7_cdr(p);
4605   arg = s7_car(p);
4606   if (s7_is_integer(arg))
4607     s7__recv_2 = (int)s7_integer(arg);
4608   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4609   p = s7_cdr(p);
4610   arg = s7_car(p);
4611   if (s7_is_integer(arg))
4612     s7__recv_3 = (int)s7_integer(arg);
4613   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
4614   return(s7_make_integer(sc, (s7_int)recv(s7__recv_0, s7__recv_1, s7__recv_2, s7__recv_3)));
4615 }
4616
4617
4618 /* -------- sendto -------- */
4619 static s7_pointer s7__sendto(s7_scheme *sc, s7_pointer args)
4620 {
4621   s7_pointer p, arg;
4622   int s7__sendto_0;
4623   void* s7__sendto_1;
4624   int s7__sendto_2;
4625   int s7__sendto_3;
4626   const struct sockaddr* s7__sendto_4;
4627   int s7__sendto_5;
4628   p = args;
4629   arg = s7_car(p);
4630   if (s7_is_integer(arg))
4631     s7__sendto_0 = (int)s7_integer(arg);
4632   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4633   p = s7_cdr(p);
4634   arg = s7_car(p);
4635   s7__sendto_1 = (void*)s7_c_pointer_with_type(sc, arg, void__symbol, __func__, 2);
4636   p = s7_cdr(p);
4637   arg = s7_car(p);
4638   if (s7_is_integer(arg))
4639     s7__sendto_2 = (int)s7_integer(arg);
4640   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4641   p = s7_cdr(p);
4642   arg = s7_car(p);
4643   if (s7_is_integer(arg))
4644     s7__sendto_3 = (int)s7_integer(arg);
4645   else return(s7_wrong_type_arg_error(sc, __func__, 4, arg, "integer"));
4646   p = s7_cdr(p);
4647   arg = s7_car(p);
4648   s7__sendto_4 = (const struct sockaddr*)s7_c_pointer_with_type(sc, arg, const_struct_sockaddr__symbol, __func__, 5);
4649   p = s7_cdr(p);
4650   arg = s7_car(p);
4651   if (s7_is_integer(arg))
4652     s7__sendto_5 = (int)s7_integer(arg);
4653   else return(s7_wrong_type_arg_error(sc, __func__, 6, arg, "integer"));
4654   return(s7_make_integer(sc, (s7_int)sendto(s7__sendto_0, s7__sendto_1, s7__sendto_2, s7__sendto_3, s7__sendto_4, s7__sendto_5)));
4655 }
4656
4657
4658 /* -------- sendmsg -------- */
4659 static s7_pointer s7__sendmsg(s7_scheme *sc, s7_pointer args)
4660 {
4661   s7_pointer p, arg;
4662   int s7__sendmsg_0;
4663   const struct msghdr* s7__sendmsg_1;
4664   int s7__sendmsg_2;
4665   p = args;
4666   arg = s7_car(p);
4667   if (s7_is_integer(arg))
4668     s7__sendmsg_0 = (int)s7_integer(arg);
4669   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4670   p = s7_cdr(p);
4671   arg = s7_car(p);
4672   s7__sendmsg_1 = (const struct msghdr*)s7_c_pointer_with_type(sc, arg, const_struct_msghdr__symbol, __func__, 2);
4673   p = s7_cdr(p);
4674   arg = s7_car(p);
4675   if (s7_is_integer(arg))
4676     s7__sendmsg_2 = (int)s7_integer(arg);
4677   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4678   return(s7_make_integer(sc, (s7_int)sendmsg(s7__sendmsg_0, s7__sendmsg_1, s7__sendmsg_2)));
4679 }
4680
4681
4682 /* -------- recvmsg -------- */
4683 static s7_pointer s7__recvmsg(s7_scheme *sc, s7_pointer args)
4684 {
4685   s7_pointer p, arg;
4686   int s7__recvmsg_0;
4687   struct msghdr* s7__recvmsg_1;
4688   int s7__recvmsg_2;
4689   p = args;
4690   arg = s7_car(p);
4691   if (s7_is_integer(arg))
4692     s7__recvmsg_0 = (int)s7_integer(arg);
4693   else return(s7_wrong_type_arg_error(sc, __func__, 1, arg, "integer"));
4694   p = s7_cdr(p);
4695   arg = s7_car(p);
4696   s7__recvmsg_1 = (struct msghdr*)s7_c_pointer_with_type(sc, arg, struct_msghdr__symbol, __func__, 2);
4697   p = s7_cdr(p);
4698   arg = s7_car(p);
4699   if (s7_is_integer(arg))
4700     s7__recvmsg_2 = (int)s7_integer(arg);
4701   else return(s7_wrong_type_arg_error(sc, __func__, 3, arg, "integer"));
4702   return(s7_make_integer(sc, (s7_int)recvmsg(s7__recvmsg_0, s7__recvmsg_1, s7__recvmsg_2)));
4703 }
4704
4705 static s7_pointer g_ntohl(s7_scheme *sc, s7_pointer args) {return(s7_make_integer(sc, ntohl(s7_integer(s7_car(args)))));}
4706                   static s7_pointer g_ntohs(s7_scheme *sc, s7_pointer args) {return(s7_make_integer(sc, ntohs(s7_integer(s7_car(args)))));}
4707                   static s7_pointer g_htonl(s7_scheme *sc, s7_pointer args) {return(s7_make_integer(sc, htonl(s7_integer(s7_car(args)))));}
4708                   static s7_pointer g_htons(s7_scheme *sc, s7_pointer args) {return(s7_make_integer(sc, htons(s7_integer(s7_car(args)))));}
4709
4710                   static s7_pointer g_addrinfo_make(s7_scheme *sc, s7_pointer args)
4711                   {
4712                     return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(struct addrinfo)), s7_make_symbol(sc, "addrinfo*"), s7_f(sc)));
4713                   }
4714
4715                   static s7_pointer g_addrinfo_ai_flags(s7_scheme *sc, s7_pointer args)
4716                   {
4717                     return(s7_make_integer(sc, ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_flags));
4718                   }
4719                   static s7_pointer g_addrinfo_set_ai_flags(s7_scheme *sc, s7_pointer args)
4720                   {
4721                     ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_flags = (int)s7_integer(s7_cadr(args));
4722                     return(s7_cadr(args));
4723                   }
4724
4725                   static s7_pointer g_addrinfo_ai_family(s7_scheme *sc, s7_pointer args)
4726                   {
4727                     return(s7_make_integer(sc, ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_family));
4728                   }
4729                   static s7_pointer g_addrinfo_set_ai_family(s7_scheme *sc, s7_pointer args)
4730                   {
4731                     ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_family = (int)s7_integer(s7_cadr(args));
4732                     return(s7_cadr(args));
4733                   }
4734
4735                   static s7_pointer g_addrinfo_ai_socktype(s7_scheme *sc, s7_pointer args)
4736                   {
4737                     return(s7_make_integer(sc, ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_socktype));
4738                   }
4739                   static s7_pointer g_addrinfo_set_ai_socktype(s7_scheme *sc, s7_pointer args)
4740                   {
4741                     ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_socktype = (int)s7_integer(s7_cadr(args));
4742                     return(s7_cadr(args));
4743                   }
4744
4745                   static s7_pointer g_addrinfo_ai_protocol(s7_scheme *sc, s7_pointer args)
4746                   {
4747                     return(s7_make_integer(sc, ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_protocol));
4748                   }
4749                   static s7_pointer g_addrinfo_set_ai_protocol(s7_scheme *sc, s7_pointer args)
4750                   {
4751                     ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_protocol = (int)s7_integer(s7_cadr(args));
4752                     return(s7_cadr(args));
4753                   }
4754                   static s7_pointer g_addrinfo_ai_canonname(s7_scheme *sc, s7_pointer args)
4755                   {
4756                     return(s7_make_string(sc, ((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_canonname));
4757                   }
4758                   static s7_pointer g_addrinfo_ai_next(s7_scheme *sc, s7_pointer args)
4759                   {
4760                     return(s7_make_c_pointer_with_type(sc, (void *)(((struct addrinfo *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1))->ai_next), s7_make_symbol(sc, "addrinfo*"), s7_f(sc)));
4761                   }
4762
4763                   static s7_pointer g_getaddrinfo(s7_scheme *sc, s7_pointer args)
4764                   {
4765                      struct addrinfo *result;
4766                      int err;
4767                      err = getaddrinfo(s7_string(s7_car(args)),
4768                                      s7_string(s7_cadr(args)),
4769                                      (const struct addrinfo *)s7_c_pointer_with_type(sc, s7_caddr(args), s7_make_symbol(sc, "addrinfo*"), __func__, 1),
4770                                      &result);
4771                     return(s7_list(sc, 2, s7_make_integer(sc, err),
4772                                           s7_make_c_pointer_with_type(sc, (void *)result, s7_make_symbol(sc, "addrinfo*"), s7_f(sc))));
4773                   }
4774
4775                   static s7_pointer g_getnameinfo(s7_scheme *sc, s7_pointer args)
4776                   {
4777                     #ifndef NI_MAXHOST
4778                       #define NI_MAXHOST 1025
4779                     #endif
4780                     #ifndef NI_MAXSERV
4781                       #define NI_MAXSERV 32
4782                     #endif
4783                     char *host, *service;
4784                     int err;
4785                     host = (char *)calloc(NI_MAXHOST, sizeof(char));
4786                     service = (char *)calloc(NI_MAXSERV, sizeof(char));
4787                     err = getnameinfo((const struct sockaddr *)s7_c_pointer(s7_car(args)), s7_integer(s7_cadr(args)),
4788                                     host, NI_MAXHOST,
4789                                     service, NI_MAXSERV,
4790                                     s7_integer(s7_caddr(args)));
4791                     return(s7_list(sc, 3, s7_make_integer(sc, err), s7_make_string(sc, host), s7_make_string(sc, service)));
4792                   }
4793
4794                   static s7_pointer g_socketpair(s7_scheme *sc, s7_pointer args)
4795                   {
4796                     int fds[2];
4797                     int err;
4798                     err = socketpair(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)), fds);
4799                     return(s7_list(sc, 3, s7_make_integer(sc, err), s7_make_integer(sc, fds[0]), s7_make_integer(sc, fds[1])));
4800                   }
4801
4802                   static s7_pointer g_getsockname(s7_scheme *sc, s7_pointer args)
4803                   {
4804                     int err;
4805                     socklen_t res;
4806                     res = s7_integer(s7_caddr(args));
4807                     err = getsockname(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
4808                     return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, res)));
4809                   }
4810                   static s7_pointer g_getpeername(s7_scheme *sc, s7_pointer args)
4811                   {
4812                     int err;
4813                     socklen_t res;
4814                     res = s7_integer(s7_caddr(args));
4815                     err = getpeername(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
4816                     return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, res)));
4817                   }
4818                   static s7_pointer g_accept(s7_scheme *sc, s7_pointer args)
4819                   {
4820                     int err;
4821                     socklen_t res;
4822                     res = s7_integer(s7_caddr(args));
4823                     err = accept(s7_integer(s7_car(args)), (struct sockaddr *)s7_c_pointer(s7_cadr(args)), &res);
4824                     return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, res)));
4825                   }
4826                   static s7_pointer g_getsockopt(s7_scheme *sc, s7_pointer args)
4827                   {
4828                     int err;
4829                     socklen_t res;
4830                     res = (socklen_t)s7_integer(s7_list_ref(sc, args, 4));
4831                     err = getsockopt(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)), s7_integer(s7_caddr(args)), s7_c_pointer(s7_cadddr(args)), &res);
4832                     return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, (s7_int)res)));
4833                   }
4834                   static s7_pointer g_setsockopt(s7_scheme *sc, s7_pointer args)
4835                   {
4836                     socklen_t res;
4837                     res = (socklen_t)s7_integer(s7_list_ref(sc, args, 4));
4838                     return(s7_make_integer(sc, setsockopt(s7_integer(s7_car(args)), s7_integer(s7_cadr(args)),
4839                            s7_integer(s7_caddr(args)), s7_c_pointer(s7_cadddr(args)), res)));
4840                   }
4841                   static s7_pointer g_recvfrom(s7_scheme *sc, s7_pointer args)
4842                   {
4843                     int err;
4844                     socklen_t res;
4845                     res = (socklen_t)s7_integer(s7_list_ref(sc, args, 5));
4846                     err = recvfrom(s7_integer(s7_car(args)),
4847                                  s7_c_pointer(s7_cadr(args)),  /* void* buf */
4848                                  s7_integer(s7_caddr(args)),
4849                                  s7_integer(s7_cadddr(args)),
4850                                  (struct sockaddr *)s7_c_pointer(s7_list_ref(sc, args, 4)),
4851                                  &res);
4852                     return(s7_list(sc, 2, s7_make_integer(sc, err), s7_make_integer(sc, (s7_int)res)));
4853                   }
4854
4855                   static s7_pointer g_hostent_h_name(s7_scheme *sc, s7_pointer args)
4856                   {return(s7_make_string(sc, ((struct hostent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "hostent*"), __func__, 1))->h_name));}
4857                   static s7_pointer g_netent_n_name(s7_scheme *sc, s7_pointer args)
4858                   {return(s7_make_string(sc, ((struct netent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "netent*"), __func__, 1))->n_name));}
4859                   static s7_pointer g_servent_s_name(s7_scheme *sc, s7_pointer args)
4860                   {return(s7_make_string(sc, ((struct servent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "servent*"), __func__, 1))->s_name));}
4861                   static s7_pointer g_servent_s_proto(s7_scheme *sc, s7_pointer args)
4862                   {return(s7_make_string(sc, ((struct servent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "servent*"), __func__, 1))->s_proto));}
4863                   static s7_pointer g_protoent_p_name(s7_scheme *sc, s7_pointer args)
4864                   {return(s7_make_string(sc, ((struct protoent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "protoent*"), __func__, 1))->p_name));}
4865
4866                   static s7_pointer g_hostent_h_addrtype(s7_scheme *sc, s7_pointer args)
4867                   {return(s7_make_integer(sc, ((struct hostent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "hostent*"), __func__, 1))->h_addrtype));}
4868                   static s7_pointer g_hostent_h_length(s7_scheme *sc, s7_pointer args)
4869                   {return(s7_make_integer(sc, ((struct hostent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "hostent*"), __func__, 1))->h_length));}
4870                   static s7_pointer g_netent_n_addrtype(s7_scheme *sc, s7_pointer args)
4871                   {return(s7_make_integer(sc, ((struct netent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "netent*"), __func__, 1))->n_addrtype));}
4872                   static s7_pointer g_netent_n_net(s7_scheme *sc, s7_pointer args)
4873                   {return(s7_make_integer(sc, ((struct netent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "netent*"), __func__, 1))->n_net));}
4874                   static s7_pointer g_servent_s_port(s7_scheme *sc, s7_pointer args)
4875                   {return(s7_make_integer(sc, ((struct servent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "servent*"), __func__, 1))->s_port));}
4876                   static s7_pointer g_protoent_p_proto(s7_scheme *sc, s7_pointer args)
4877                   {return(s7_make_integer(sc, ((struct protoent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "protoent*"), __func__, 1))->p_proto));}
4878
4879                   static s7_pointer g_hostent_h_aliases(s7_scheme *sc, s7_pointer args)
4880                   {
4881                     s7_pointer p;
4882                     char **str;
4883                     struct hostent *h;
4884                     p = s7_nil(sc);
4885                     h = (struct hostent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "hostent*"), __func__, 1);
4886                     for (str = h->h_aliases; (str) && (*str); str++)
4887                       p = s7_cons(sc, s7_make_string(sc, *str), p);
4888                     return(p);
4889                   }
4890                   static s7_pointer g_servent_s_aliases(s7_scheme *sc, s7_pointer args)
4891                   {
4892                     s7_pointer p;
4893                     char **str;
4894                     struct servent *h;
4895                     p = s7_nil(sc);
4896                     h = (struct servent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "servent*"), __func__, 1);
4897                     for (str = h->s_aliases; (str) && (*str); str++)
4898                       p = s7_cons(sc, s7_make_string(sc, *str), p);
4899                     return(p);
4900                   }
4901                   static s7_pointer g_netent_n_aliases(s7_scheme *sc, s7_pointer args)
4902                   {
4903                     s7_pointer p;
4904                     char **str;
4905                     struct netent *h;
4906                     p = s7_nil(sc);
4907                     h = (struct netent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "netvent*"), __func__, 1);
4908                     for (str = h->n_aliases; (str) && (*str); str++)
4909                       p = s7_cons(sc, s7_make_string(sc, *str), p);
4910                     return(p);
4911                   }
4912                   static s7_pointer g_protoent_p_aliases(s7_scheme *sc, s7_pointer args)
4913                   {
4914                     s7_pointer p;
4915                     char **str;
4916                     struct protoent *h;
4917                     p = s7_nil(sc);
4918                     h = (struct protoent *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "protoent*"), __func__, 1);
4919                     for (str = h->p_aliases; (str) && (*str); str++)
4920                       p = s7_cons(sc, s7_make_string(sc, *str), p);
4921                     return(p);
4922                   }
4923
4924 static s7_pointer g_regcomp(s7_scheme *sc, s7_pointer args)
4925                   {
4926                     int res, flags;
4927                     regex_t *regexp;
4928                     const char *str;
4929                     regexp = (regex_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "regex_t*"), __func__, 1);
4930                     str = (const char *)s7_string(s7_cadr(args));
4931                     flags = s7_integer(s7_caddr(args));
4932                     res = regcomp(regexp, str, flags);
4933                     return(s7_make_integer(sc, res));
4934                   }
4935
4936                   static s7_pointer g_regexec(s7_scheme *sc, s7_pointer args)
4937                   {
4938                     int i, res, flags, nmatches;
4939                     regex_t *regexp;
4940                     const char *str;
4941                     regmatch_t *matches;
4942                     s7_pointer subs;
4943                     s7_int *els;
4944
4945                     regexp = (regex_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "regex_t*"), __func__, 1);
4946                     str = (const char *)s7_string(s7_cadr(args));
4947                     nmatches = s7_integer(s7_caddr(args));
4948                     flags = s7_integer(s7_cadddr(args));
4949                     if (nmatches == 0)
4950                        return(s7_make_integer(sc, regexec(regexp, str, 0, NULL, flags)));
4951                     matches = (regmatch_t *)calloc(nmatches, sizeof(regmatch_t));
4952                     res = regexec(regexp, str, nmatches, matches, flags);
4953                     if (res != 0)
4954                        {
4955                          free(matches);
4956                          return(s7_make_integer(sc, res));
4957                        }
4958                     subs = s7_make_int_vector(sc, nmatches * 2, 1, NULL);
4959                     els = s7_int_vector_elements(subs);
4960                     for (i = 0; i < nmatches; i++)
4961                       {
4962                         els[i * 2] = matches[i].rm_so;
4963                         els[i * 2 + 1] = matches[i].rm_eo;
4964                       }
4965                     free(matches);
4966                     return(subs);
4967                   }
4968
4969                   static s7_pointer g_regex_make(s7_scheme *sc, s7_pointer args)
4970                   {
4971                     return(s7_make_c_pointer_with_type(sc, (void *)calloc(1, sizeof(regex_t)), s7_make_symbol(sc, "regex_t*"), s7_f(sc)));
4972                   }
4973
4974                   static s7_pointer g_regfree(s7_scheme *sc, s7_pointer args)
4975                   {
4976                     regfree((regex_t *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "regex_t*"), __func__, 1));
4977                     return(s7_f(sc));
4978                   }
4979
4980                   static s7_pointer g_regex_free(s7_scheme *sc, s7_pointer args)
4981                   {
4982                     free((void *)s7_c_pointer_with_type(sc, s7_car(args), s7_make_symbol(sc, "regex_t*"), __func__, 1));
4983                     return(s7_f(sc));
4984                   }
4985
4986                   static s7_pointer g_regerror(s7_scheme *sc, s7_pointer args)
4987                   {
4988                     size_t len;
4989                     int errcode;
4990                     regex_t *regexp;
4991                     char *err;
4992                     errcode = s7_integer(s7_car(args));
4993                     regexp = (regex_t *)s7_c_pointer_with_type(sc, s7_cadr(args), s7_make_symbol(sc, "regex_t*"), __func__, 1);
4994                     len = regerror (errcode, regexp, NULL, 0);
4995                     err = (char *)malloc(len);
4996                     regerror(errcode, regexp, err, len);
4997                     return(s7_make_string_with_length(sc, err, len - 1));
4998                   }
4999
5000 void libc_s7_init(s7_scheme *sc);
5001 void libc_s7_init(s7_scheme *sc)
5002 {
5003   s7_pointer cur_env;
5004   s7_pointer pcl_t, pl_tx, pl_ts, pl_ti, pl_txs, pl_iixiixi, pcl_i, pl_ix, pl_it, pcl_is, pl_is, pcl_ix, pcl_iix, pcl_isi, pl_ixi, pl_isi, pl_iix, pl_isx, pcl_ixi, pl_isxi, pl_iisi, pcl_iixi, pl_iixi, pl_issi, pl_ixxi, pcl_ixsi, pl_iiixi, pl_ixiix, pcl_di, pl_ds, pcl_s, pl_sx, pl_st, pl_si, pl_sis, pl_ssi, pl_sssi, pl_ssix, pl_sisi, pcl_x, pl_xs, pcl_xi, pl_xi, pl_xt, pcl_xs, pl_xxi, pcl_xxi, pl_xis, pl_xxxi, pl_xssx;
5005   {
5006     s7_pointer t, x, s, d, i;
5007     t = s7_t(sc);
5008     x = s7_make_symbol(sc, "c-pointer?");
5009     s = s7_make_symbol(sc, "string?");
5010     d = s7_make_symbol(sc, "float?");
5011     i = s7_make_symbol(sc, "integer?");
5012
5013     pcl_t = s7_make_circular_signature(sc, 0, 1, t);
5014     pl_tx = s7_make_signature(sc, 2, t, x);
5015     pl_ts = s7_make_signature(sc, 2, t, s);
5016     pl_ti = s7_make_signature(sc, 2, t, i);
5017     pl_txs = s7_make_signature(sc, 3, t, x, s);
5018     pl_iixiixi = s7_make_signature(sc, 7, i, i, x, i, i, x, i);
5019     pcl_i = s7_make_circular_signature(sc, 0, 1, i);
5020     pl_ix = s7_make_signature(sc, 2, i, x);
5021     pl_it = s7_make_signature(sc, 2, i, t);
5022     pcl_is = s7_make_circular_signature(sc, 1, 2, i, s);
5023     pl_is = s7_make_signature(sc, 2, i, s);
5024     pcl_ix = s7_make_circular_signature(sc, 1, 2, i, x);
5025     pcl_iix = s7_make_circular_signature(sc, 2, 3, i, i, x);
5026     pcl_isi = s7_make_circular_signature(sc, 2, 3, i, s, i);
5027     pl_ixi = s7_make_signature(sc, 3, i, x, i);
5028     pl_isi = s7_make_signature(sc, 3, i, s, i);
5029     pl_iix = s7_make_signature(sc, 3, i, i, x);
5030     pl_isx = s7_make_signature(sc, 3, i, s, x);
5031     pcl_ixi = s7_make_circular_signature(sc, 2, 3, i, x, i);
5032     pl_isxi = s7_make_signature(sc, 4, i, s, x, i);
5033     pl_iisi = s7_make_signature(sc, 4, i, i, s, i);
5034     pcl_iixi = s7_make_circular_signature(sc, 3, 4, i, i, x, i);
5035     pl_iixi = s7_make_signature(sc, 4, i, i, x, i);
5036     pl_issi = s7_make_signature(sc, 4, i, s, s, i);
5037     pl_ixxi = s7_make_signature(sc, 4, i, x, x, i);
5038     pcl_ixsi = s7_make_circular_signature(sc, 3, 4, i, x, s, i);
5039     pl_iiixi = s7_make_signature(sc, 5, i, i, i, x, i);
5040     pl_ixiix = s7_make_signature(sc, 5, i, x, i, i, x);
5041     pcl_di = s7_make_circular_signature(sc, 1, 2, d, i);
5042     pl_ds = s7_make_signature(sc, 2, d, s);
5043     pcl_s = s7_make_circular_signature(sc, 0, 1, s);
5044     pl_sx = s7_make_signature(sc, 2, s, x);
5045     pl_st = s7_make_signature(sc, 2, s, t);
5046     pl_si = s7_make_signature(sc, 2, s, i);
5047     pl_sis = s7_make_signature(sc, 3, s, i, s);
5048     pl_ssi = s7_make_signature(sc, 3, s, s, i);
5049     pl_sssi = s7_make_signature(sc, 4, s, s, s, i);
5050     pl_ssix = s7_make_signature(sc, 4, s, s, i, x);
5051     pl_sisi = s7_make_signature(sc, 4, s, i, s, i);
5052     pcl_x = s7_make_circular_signature(sc, 0, 1, x);
5053     pl_xs = s7_make_signature(sc, 2, x, s);
5054     pcl_xi = s7_make_circular_signature(sc, 1, 2, x, i);
5055     pl_xi = s7_make_signature(sc, 2, x, i);
5056     pl_xt = s7_make_signature(sc, 2, x, t);
5057     pcl_xs = s7_make_circular_signature(sc, 1, 2, x, s);
5058     pl_xxi = s7_make_signature(sc, 3, x, x, i);
5059     pcl_xxi = s7_make_circular_signature(sc, 2, 3, x, x, i);
5060     pl_xis = s7_make_signature(sc, 3, x, i, s);
5061     pl_xxxi = s7_make_signature(sc, 4, x, x, x, i);
5062     pl_xssx = s7_make_signature(sc, 4, x, s, s, x);
5063   }
5064
5065   cur_env = s7_curlet(sc);
5066
5067   struct_msghdr__symbol = s7_make_symbol(sc, "struct-msghdr*");
5068   const_struct_msghdr__symbol = s7_make_symbol(sc, "const-struct-msghdr*");
5069   const_struct_sockaddr__symbol = s7_make_symbol(sc, "const-struct-sockaddr*");
5070   struct_addrinfo__symbol = s7_make_symbol(sc, "struct-addrinfo*");
5071   protoent__symbol = s7_make_symbol(sc, "protoent*");
5072   servent__symbol = s7_make_symbol(sc, "servent*");
5073   netent__symbol = s7_make_symbol(sc, "netent*");
5074   hostent__symbol = s7_make_symbol(sc, "hostent*");
5075   siginfo_t__symbol = s7_make_symbol(sc, "siginfo_t*");
5076   struct_rlimit__symbol = s7_make_symbol(sc, "struct-rlimit*");
5077   sigset_t__symbol = s7_make_symbol(sc, "sigset_t*");
5078   glob_t__symbol = s7_make_symbol(sc, "glob_t*");
5079   wordexp_t__symbol = s7_make_symbol(sc, "wordexp_t*");
5080   passwd__symbol = s7_make_symbol(sc, "passwd*");
5081   tm__symbol = s7_make_symbol(sc, "tm*");
5082   time_t__symbol = s7_make_symbol(sc, "time_t*");
5083   DIR__symbol = s7_make_symbol(sc, "DIR*");
5084   int__symbol = s7_make_symbol(sc, "int*");
5085   fpos_t__symbol = s7_make_symbol(sc, "fpos_t*");
5086   FILE__symbol = s7_make_symbol(sc, "FILE*");
5087   void__symbol = s7_make_symbol(sc, "void*");
5088   fenv_t__symbol = s7_make_symbol(sc, "fenv_t*");
5089   fexcept_t__symbol = s7_make_symbol(sc, "fexcept_t*");
5090
5091   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_USERRESERVED"), s7_make_integer(sc, (s7_int)IPPORT_USERRESERVED));
5092   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_RESERVED"), s7_make_integer(sc, (s7_int)IPPORT_RESERVED));
5093   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_ROUTESERVER"), s7_make_integer(sc, (s7_int)IPPORT_ROUTESERVER));
5094   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_WHOSERVER"), s7_make_integer(sc, (s7_int)IPPORT_WHOSERVER));
5095   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_BIFFUDP"), s7_make_integer(sc, (s7_int)IPPORT_BIFFUDP));
5096   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_EFSSERVER"), s7_make_integer(sc, (s7_int)IPPORT_EFSSERVER));
5097   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_CMDSERVER"), s7_make_integer(sc, (s7_int)IPPORT_CMDSERVER));
5098   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_LOGINSERVER"), s7_make_integer(sc, (s7_int)IPPORT_LOGINSERVER));
5099   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_EXECSERVER"), s7_make_integer(sc, (s7_int)IPPORT_EXECSERVER));
5100   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_SUPDUP"), s7_make_integer(sc, (s7_int)IPPORT_SUPDUP));
5101   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_TTYLINK"), s7_make_integer(sc, (s7_int)IPPORT_TTYLINK));
5102   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_FINGER"), s7_make_integer(sc, (s7_int)IPPORT_FINGER));
5103   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_RJE"), s7_make_integer(sc, (s7_int)IPPORT_RJE));
5104   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_TFTP"), s7_make_integer(sc, (s7_int)IPPORT_TFTP));
5105   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_MTP"), s7_make_integer(sc, (s7_int)IPPORT_MTP));
5106   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_WHOIS"), s7_make_integer(sc, (s7_int)IPPORT_WHOIS));
5107   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_NAMESERVER"), s7_make_integer(sc, (s7_int)IPPORT_NAMESERVER));
5108   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_TIMESERVER"), s7_make_integer(sc, (s7_int)IPPORT_TIMESERVER));
5109   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_SMTP"), s7_make_integer(sc, (s7_int)IPPORT_SMTP));
5110   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_TELNET"), s7_make_integer(sc, (s7_int)IPPORT_TELNET));
5111   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_FTP"), s7_make_integer(sc, (s7_int)IPPORT_FTP));
5112   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_NETSTAT"), s7_make_integer(sc, (s7_int)IPPORT_NETSTAT));
5113   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_DAYTIME"), s7_make_integer(sc, (s7_int)IPPORT_DAYTIME));
5114   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_SYSTAT"), s7_make_integer(sc, (s7_int)IPPORT_SYSTAT));
5115   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_DISCARD"), s7_make_integer(sc, (s7_int)IPPORT_DISCARD));
5116   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPORT_ECHO"), s7_make_integer(sc, (s7_int)IPPORT_ECHO));
5117   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_IGN"), s7_make_c_pointer_with_type(sc, (void*)SIG_IGN, s7_make_symbol(sc, "void*"), s7_f(sc)));
5118   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_DFL"), s7_make_c_pointer_with_type(sc, (void*)SIG_DFL, s7_make_symbol(sc, "void*"), s7_f(sc)));
5119   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_ERR"), s7_make_c_pointer_with_type(sc, (void*)SIG_ERR, s7_make_symbol(sc, "void*"), s7_f(sc)));
5120   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_SYNTAX"), s7_make_integer(sc, (s7_int)WRDE_SYNTAX));
5121   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_CMDSUB"), s7_make_integer(sc, (s7_int)WRDE_CMDSUB));
5122   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_BADVAL"), s7_make_integer(sc, (s7_int)WRDE_BADVAL));
5123   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_BADCHAR"), s7_make_integer(sc, (s7_int)WRDE_BADCHAR));
5124   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_NOSPACE"), s7_make_integer(sc, (s7_int)WRDE_NOSPACE));
5125   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_UNDEF"), s7_make_integer(sc, (s7_int)WRDE_UNDEF));
5126   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_SHOWERR"), s7_make_integer(sc, (s7_int)WRDE_SHOWERR));
5127   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_REUSE"), s7_make_integer(sc, (s7_int)WRDE_REUSE));
5128   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_NOCMD"), s7_make_integer(sc, (s7_int)WRDE_NOCMD));
5129   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_APPEND"), s7_make_integer(sc, (s7_int)WRDE_APPEND));
5130   s7_define(sc, cur_env, s7_make_symbol(sc, "WRDE_DOOFFS"), s7_make_integer(sc, (s7_int)WRDE_DOOFFS));
5131   s7_define(sc, cur_env, s7_make_symbol(sc, "stderr"), s7_make_c_pointer_with_type(sc, (void*)stderr, s7_make_symbol(sc, "FILE*"), s7_f(sc)));
5132   s7_define(sc, cur_env, s7_make_symbol(sc, "stdout"), s7_make_c_pointer_with_type(sc, (void*)stdout, s7_make_symbol(sc, "FILE*"), s7_f(sc)));
5133   s7_define(sc, cur_env, s7_make_symbol(sc, "stdin"), s7_make_c_pointer_with_type(sc, (void*)stdin, s7_make_symbol(sc, "FILE*"), s7_f(sc)));
5134
5135 #ifdef REG_NEWLINE
5136   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_NEWLINE"), s7_make_integer(sc, (s7_int)REG_NEWLINE));
5137 #endif
5138 #ifdef REG_NOSUB
5139   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_NOSUB"), s7_make_integer(sc, (s7_int)REG_NOSUB));
5140 #endif
5141 #ifdef REG_ICASE
5142   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ICASE"), s7_make_integer(sc, (s7_int)REG_ICASE));
5143 #endif
5144 #ifdef REG_EXTENDED
5145   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_EXTENDED"), s7_make_integer(sc, (s7_int)REG_EXTENDED));
5146 #endif
5147 #ifdef REG_ERANGE
5148   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ERANGE"), s7_make_integer(sc, (s7_int)REG_ERANGE));
5149 #endif
5150 #ifdef REG_EBRACE
5151   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_EBRACE"), s7_make_integer(sc, (s7_int)REG_EBRACE));
5152 #endif
5153 #ifdef REG_EPAREN
5154   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_EPAREN"), s7_make_integer(sc, (s7_int)REG_EPAREN));
5155 #endif
5156 #ifdef REG_EBRACK
5157   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_EBRACK"), s7_make_integer(sc, (s7_int)REG_EBRACK));
5158 #endif
5159 #ifdef REG_ESUBREG
5160   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ESUBREG"), s7_make_integer(sc, (s7_int)REG_ESUBREG));
5161 #endif
5162 #ifdef REG_EESCAPE
5163   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_EESCAPE"), s7_make_integer(sc, (s7_int)REG_EESCAPE));
5164 #endif
5165 #ifdef REG_ECTYPE
5166   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ECTYPE"), s7_make_integer(sc, (s7_int)REG_ECTYPE));
5167 #endif
5168 #ifdef REG_ECOLLATE
5169   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ECOLLATE"), s7_make_integer(sc, (s7_int)REG_ECOLLATE));
5170 #endif
5171 #ifdef REG_BADRPT
5172   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_BADRPT"), s7_make_integer(sc, (s7_int)REG_BADRPT));
5173 #endif
5174 #ifdef REG_BADPAT
5175   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_BADPAT"), s7_make_integer(sc, (s7_int)REG_BADPAT));
5176 #endif
5177 #ifdef REG_BADBR
5178   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_BADBR"), s7_make_integer(sc, (s7_int)REG_BADBR));
5179 #endif
5180 #ifdef REG_ESPACE
5181   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_ESPACE"), s7_make_integer(sc, (s7_int)REG_ESPACE));
5182 #endif
5183 #ifdef REG_NOMATCH
5184   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_NOMATCH"), s7_make_integer(sc, (s7_int)REG_NOMATCH));
5185 #endif
5186 #ifdef REG_NOTEOL
5187   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_NOTEOL"), s7_make_integer(sc, (s7_int)REG_NOTEOL));
5188 #endif
5189 #ifdef REG_NOTBOL
5190   s7_define(sc, cur_env, s7_make_symbol(sc, "REG_NOTBOL"), s7_make_integer(sc, (s7_int)REG_NOTBOL));
5191 #endif
5192 #ifdef _PATH_SERVICES
5193   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_SERVICES"), s7_make_string(sc, (char*)_PATH_SERVICES));
5194 #endif
5195 #ifdef _PATH_PROTOCOLS
5196   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_PROTOCOLS"), s7_make_string(sc, (char*)_PATH_PROTOCOLS));
5197 #endif
5198 #ifdef _PATH_NSSWITCH_CONF
5199   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_NSSWITCH_CONF"), s7_make_string(sc, (char*)_PATH_NSSWITCH_CONF));
5200 #endif
5201 #ifdef _PATH_NETWORKS
5202   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_NETWORKS"), s7_make_string(sc, (char*)_PATH_NETWORKS));
5203 #endif
5204 #ifdef _PATH_HOSTS
5205   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_HOSTS"), s7_make_string(sc, (char*)_PATH_HOSTS));
5206 #endif
5207 #ifdef _PATH_HEQUIV
5208   s7_define(sc, cur_env, s7_make_symbol(sc, "_PATH_HEQUIV"), s7_make_string(sc, (char*)_PATH_HEQUIV));
5209 #endif
5210 #ifdef SHUT_RDWR
5211   s7_define(sc, cur_env, s7_make_symbol(sc, "SHUT_RDWR"), s7_make_integer(sc, (s7_int)SHUT_RDWR));
5212 #endif
5213 #ifdef SHUT_WR
5214   s7_define(sc, cur_env, s7_make_symbol(sc, "SHUT_WR"), s7_make_integer(sc, (s7_int)SHUT_WR));
5215 #endif
5216 #ifdef SHUT_RD
5217   s7_define(sc, cur_env, s7_make_symbol(sc, "SHUT_RD"), s7_make_integer(sc, (s7_int)SHUT_RD));
5218 #endif
5219 #ifdef SOL_IRDA
5220   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_IRDA"), s7_make_integer(sc, (s7_int)SOL_IRDA));
5221 #endif
5222 #ifdef SOL_AAL
5223   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_AAL"), s7_make_integer(sc, (s7_int)SOL_AAL));
5224 #endif
5225 #ifdef SOL_ATM
5226   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_ATM"), s7_make_integer(sc, (s7_int)SOL_ATM));
5227 #endif
5228 #ifdef SOL_PACKET
5229   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_PACKET"), s7_make_integer(sc, (s7_int)SOL_PACKET));
5230 #endif
5231 #ifdef SOL_X25
5232   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_X25"), s7_make_integer(sc, (s7_int)SOL_X25));
5233 #endif
5234 #ifdef SOL_DECNET
5235   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_DECNET"), s7_make_integer(sc, (s7_int)SOL_DECNET));
5236 #endif
5237 #ifdef SOL_RAW
5238   s7_define(sc, cur_env, s7_make_symbol(sc, "SOL_RAW"), s7_make_integer(sc, (s7_int)SOL_RAW));
5239 #endif
5240 #ifdef IPPROTO_RAW
5241   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_RAW"), s7_make_integer(sc, (s7_int)IPPROTO_RAW));
5242 #endif
5243 #ifdef IPPROTO_UDPLITE
5244   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_UDPLITE"), s7_make_integer(sc, (s7_int)IPPROTO_UDPLITE));
5245 #endif
5246 #ifdef IPPROTO_SCTP
5247   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_SCTP"), s7_make_integer(sc, (s7_int)IPPROTO_SCTP));
5248 #endif
5249 #ifdef IPPROTO_COMP
5250   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_COMP"), s7_make_integer(sc, (s7_int)IPPROTO_COMP));
5251 #endif
5252 #ifdef IPPROTO_PIM
5253   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_PIM"), s7_make_integer(sc, (s7_int)IPPROTO_PIM));
5254 #endif
5255 #ifdef IPPROTO_ENCAP
5256   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_ENCAP"), s7_make_integer(sc, (s7_int)IPPROTO_ENCAP));
5257 #endif
5258 #ifdef IPPROTO_MTP
5259   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_MTP"), s7_make_integer(sc, (s7_int)IPPROTO_MTP));
5260 #endif
5261 #ifdef IPPROTO_DSTOPTS
5262   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_DSTOPTS"), s7_make_integer(sc, (s7_int)IPPROTO_DSTOPTS));
5263 #endif
5264 #ifdef IPPROTO_NONE
5265   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_NONE"), s7_make_integer(sc, (s7_int)IPPROTO_NONE));
5266 #endif
5267 #ifdef IPPROTO_ICMPV6
5268   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_ICMPV6"), s7_make_integer(sc, (s7_int)IPPROTO_ICMPV6));
5269 #endif
5270 #ifdef IPPROTO_AH
5271   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_AH"), s7_make_integer(sc, (s7_int)IPPROTO_AH));
5272 #endif
5273 #ifdef IPPROTO_ESP
5274   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_ESP"), s7_make_integer(sc, (s7_int)IPPROTO_ESP));
5275 #endif
5276 #ifdef IPPROTO_GRE
5277   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_GRE"), s7_make_integer(sc, (s7_int)IPPROTO_GRE));
5278 #endif
5279 #ifdef IPPROTO_RSVP
5280   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_RSVP"), s7_make_integer(sc, (s7_int)IPPROTO_RSVP));
5281 #endif
5282 #ifdef IPPROTO_FRAGMENT
5283   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_FRAGMENT"), s7_make_integer(sc, (s7_int)IPPROTO_FRAGMENT));
5284 #endif
5285 #ifdef IPPROTO_ROUTING
5286   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_ROUTING"), s7_make_integer(sc, (s7_int)IPPROTO_ROUTING));
5287 #endif
5288 #ifdef IPPROTO_IPV6
5289   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_IPV6"), s7_make_integer(sc, (s7_int)IPPROTO_IPV6));
5290 #endif
5291 #ifdef IPPROTO_DCCP
5292   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_DCCP"), s7_make_integer(sc, (s7_int)IPPROTO_DCCP));
5293 #endif
5294 #ifdef IPPROTO_TP
5295   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_TP"), s7_make_integer(sc, (s7_int)IPPROTO_TP));
5296 #endif
5297 #ifdef IPPROTO_IDP
5298   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_IDP"), s7_make_integer(sc, (s7_int)IPPROTO_IDP));
5299 #endif
5300 #ifdef IPPROTO_UDP
5301   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_UDP"), s7_make_integer(sc, (s7_int)IPPROTO_UDP));
5302 #endif
5303 #ifdef IPPROTO_PUP
5304   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_PUP"), s7_make_integer(sc, (s7_int)IPPROTO_PUP));
5305 #endif
5306 #ifdef IPPROTO_EGP
5307   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_EGP"), s7_make_integer(sc, (s7_int)IPPROTO_EGP));
5308 #endif
5309 #ifdef IPPROTO_TCP
5310   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_TCP"), s7_make_integer(sc, (s7_int)IPPROTO_TCP));
5311 #endif
5312 #ifdef IPPROTO_IPIP
5313   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_IPIP"), s7_make_integer(sc, (s7_int)IPPROTO_IPIP));
5314 #endif
5315 #ifdef IPPROTO_IGMP
5316   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_IGMP"), s7_make_integer(sc, (s7_int)IPPROTO_IGMP));
5317 #endif
5318 #ifdef IPPROTO_ICMP
5319   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_ICMP"), s7_make_integer(sc, (s7_int)IPPROTO_ICMP));
5320 #endif
5321 #ifdef IPPROTO_HOPOPTS
5322   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_HOPOPTS"), s7_make_integer(sc, (s7_int)IPPROTO_HOPOPTS));
5323 #endif
5324 #ifdef IPPROTO_IP
5325   s7_define(sc, cur_env, s7_make_symbol(sc, "IPPROTO_IP"), s7_make_integer(sc, (s7_int)IPPROTO_IP));
5326 #endif
5327 #ifdef MSG_CMSG_CLOEXEC
5328   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_CMSG_CLOEXEC"), s7_make_integer(sc, (s7_int)MSG_CMSG_CLOEXEC));
5329 #endif
5330 #ifdef MSG_MORE
5331   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_MORE"), s7_make_integer(sc, (s7_int)MSG_MORE));
5332 #endif
5333 #ifdef MSG_NOSIGNAL
5334   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_NOSIGNAL"), s7_make_integer(sc, (s7_int)MSG_NOSIGNAL));
5335 #endif
5336 #ifdef MSG_ERRQUEUE
5337   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_ERRQUEUE"), s7_make_integer(sc, (s7_int)MSG_ERRQUEUE));
5338 #endif
5339 #ifdef MSG_RST
5340   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_RST"), s7_make_integer(sc, (s7_int)MSG_RST));
5341 #endif
5342 #ifdef MSG_CONFIRM
5343   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_CONFIRM"), s7_make_integer(sc, (s7_int)MSG_CONFIRM));
5344 #endif
5345 #ifdef MSG_SYN
5346   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_SYN"), s7_make_integer(sc, (s7_int)MSG_SYN));
5347 #endif
5348 #ifdef MSG_FIN
5349   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_FIN"), s7_make_integer(sc, (s7_int)MSG_FIN));
5350 #endif
5351 #ifdef MSG_WAITALL
5352   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_WAITALL"), s7_make_integer(sc, (s7_int)MSG_WAITALL));
5353 #endif
5354 #ifdef MSG_WAITFORONE
5355   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_WAITFORONE"), s7_make_integer(sc, (s7_int)MSG_WAITFORONE));
5356 #endif
5357 #ifdef MSG_EOR
5358   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_EOR"), s7_make_integer(sc, (s7_int)MSG_EOR));
5359 #endif
5360 #ifdef MSG_DONTWAIT
5361   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_DONTWAIT"), s7_make_integer(sc, (s7_int)MSG_DONTWAIT));
5362 #endif
5363 #ifdef MSG_TRUNC
5364   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_TRUNC"), s7_make_integer(sc, (s7_int)MSG_TRUNC));
5365 #endif
5366 #ifdef MSG_PROXY
5367   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_PROXY"), s7_make_integer(sc, (s7_int)MSG_PROXY));
5368 #endif
5369 #ifdef MSG_CTRUNC
5370   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_CTRUNC"), s7_make_integer(sc, (s7_int)MSG_CTRUNC));
5371 #endif
5372 #ifdef MSG_DONTROUTE
5373   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_DONTROUTE"), s7_make_integer(sc, (s7_int)MSG_DONTROUTE));
5374 #endif
5375 #ifdef MSG_PEEK
5376   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_PEEK"), s7_make_integer(sc, (s7_int)MSG_PEEK));
5377 #endif
5378 #ifdef MSG_OOB
5379   s7_define(sc, cur_env, s7_make_symbol(sc, "MSG_OOB"), s7_make_integer(sc, (s7_int)MSG_OOB));
5380 #endif
5381 #ifdef AF_MAX
5382   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_MAX"), s7_make_integer(sc, (s7_int)AF_MAX));
5383 #endif
5384 #ifdef AF_IEEE802154
5385   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_IEEE802154"), s7_make_integer(sc, (s7_int)AF_IEEE802154));
5386 #endif
5387 #ifdef AF_PHONET
5388   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_PHONET"), s7_make_integer(sc, (s7_int)AF_PHONET));
5389 #endif
5390 #ifdef AF_ISDN
5391   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ISDN"), s7_make_integer(sc, (s7_int)AF_ISDN));
5392 #endif
5393 #ifdef AF_RXRPC
5394   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_RXRPC"), s7_make_integer(sc, (s7_int)AF_RXRPC));
5395 #endif
5396 #ifdef AF_IUCV
5397   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_IUCV"), s7_make_integer(sc, (s7_int)AF_IUCV));
5398 #endif
5399 #ifdef AF_BLUETOOTH
5400   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_BLUETOOTH"), s7_make_integer(sc, (s7_int)AF_BLUETOOTH));
5401 #endif
5402 #ifdef AF_TIPC
5403   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_TIPC"), s7_make_integer(sc, (s7_int)AF_TIPC));
5404 #endif
5405 #ifdef AF_CAN
5406   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_CAN"), s7_make_integer(sc, (s7_int)AF_CAN));
5407 #endif
5408 #ifdef AF_LLC
5409   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_LLC"), s7_make_integer(sc, (s7_int)AF_LLC));
5410 #endif
5411 #ifdef AF_WANPIPE
5412   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_WANPIPE"), s7_make_integer(sc, (s7_int)AF_WANPIPE));
5413 #endif
5414 #ifdef AF_PPPOX
5415   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_PPPOX"), s7_make_integer(sc, (s7_int)AF_PPPOX));
5416 #endif
5417 #ifdef AF_IRDA
5418   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_IRDA"), s7_make_integer(sc, (s7_int)AF_IRDA));
5419 #endif
5420 #ifdef AF_SNA
5421   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_SNA"), s7_make_integer(sc, (s7_int)AF_SNA));
5422 #endif
5423 #ifdef AF_RDS
5424   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_RDS"), s7_make_integer(sc, (s7_int)AF_RDS));
5425 #endif
5426 #ifdef AF_ATMSVC
5427   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ATMSVC"), s7_make_integer(sc, (s7_int)AF_ATMSVC));
5428 #endif
5429 #ifdef AF_ECONET
5430   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ECONET"), s7_make_integer(sc, (s7_int)AF_ECONET));
5431 #endif
5432 #ifdef AF_ASH
5433   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ASH"), s7_make_integer(sc, (s7_int)AF_ASH));
5434 #endif
5435 #ifdef AF_PACKET
5436   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_PACKET"), s7_make_integer(sc, (s7_int)AF_PACKET));
5437 #endif
5438 #ifdef AF_ROUTE
5439   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ROUTE"), s7_make_integer(sc, (s7_int)AF_ROUTE));
5440 #endif
5441 #ifdef AF_NETLINK
5442   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_NETLINK"), s7_make_integer(sc, (s7_int)AF_NETLINK));
5443 #endif
5444 #ifdef AF_KEY
5445   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_KEY"), s7_make_integer(sc, (s7_int)AF_KEY));
5446 #endif
5447 #ifdef AF_SECURITY
5448   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_SECURITY"), s7_make_integer(sc, (s7_int)AF_SECURITY));
5449 #endif
5450 #ifdef AF_NETBEUI
5451   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_NETBEUI"), s7_make_integer(sc, (s7_int)AF_NETBEUI));
5452 #endif
5453 #ifdef AF_DECnet
5454   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_DECnet"), s7_make_integer(sc, (s7_int)AF_DECnet));
5455 #endif
5456 #ifdef AF_ROSE
5457   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ROSE"), s7_make_integer(sc, (s7_int)AF_ROSE));
5458 #endif
5459 #ifdef AF_INET6
5460   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_INET6"), s7_make_integer(sc, (s7_int)AF_INET6));
5461 #endif
5462 #ifdef AF_X25
5463   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_X25"), s7_make_integer(sc, (s7_int)AF_X25));
5464 #endif
5465 #ifdef AF_ATMPVC
5466   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_ATMPVC"), s7_make_integer(sc, (s7_int)AF_ATMPVC));
5467 #endif
5468 #ifdef AF_BRIDGE
5469   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_BRIDGE"), s7_make_integer(sc, (s7_int)AF_BRIDGE));
5470 #endif
5471 #ifdef AF_NETROM
5472   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_NETROM"), s7_make_integer(sc, (s7_int)AF_NETROM));
5473 #endif
5474 #ifdef AF_APPLETALK
5475   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_APPLETALK"), s7_make_integer(sc, (s7_int)AF_APPLETALK));
5476 #endif
5477 #ifdef AF_IPX
5478   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_IPX"), s7_make_integer(sc, (s7_int)AF_IPX));
5479 #endif
5480 #ifdef AF_AX25
5481   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_AX25"), s7_make_integer(sc, (s7_int)AF_AX25));
5482 #endif
5483 #ifdef AF_INET
5484   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_INET"), s7_make_integer(sc, (s7_int)AF_INET));
5485 #endif
5486 #ifdef AF_FILE
5487   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_FILE"), s7_make_integer(sc, (s7_int)AF_FILE));
5488 #endif
5489 #ifdef AF_UNIX
5490   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_UNIX"), s7_make_integer(sc, (s7_int)AF_UNIX));
5491 #endif
5492 #ifdef AF_LOCAL
5493   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_LOCAL"), s7_make_integer(sc, (s7_int)AF_LOCAL));
5494 #endif
5495 #ifdef AF_UNSPEC
5496   s7_define(sc, cur_env, s7_make_symbol(sc, "AF_UNSPEC"), s7_make_integer(sc, (s7_int)AF_UNSPEC));
5497 #endif
5498 #ifdef PF_MAX
5499   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_MAX"), s7_make_integer(sc, (s7_int)PF_MAX));
5500 #endif
5501 #ifdef PF_IEEE802154
5502   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_IEEE802154"), s7_make_integer(sc, (s7_int)PF_IEEE802154));
5503 #endif
5504 #ifdef PF_PHONET
5505   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_PHONET"), s7_make_integer(sc, (s7_int)PF_PHONET));
5506 #endif
5507 #ifdef PF_ISDN
5508   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ISDN"), s7_make_integer(sc, (s7_int)PF_ISDN));
5509 #endif
5510 #ifdef PF_RXRPC
5511   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_RXRPC"), s7_make_integer(sc, (s7_int)PF_RXRPC));
5512 #endif
5513 #ifdef PF_IUCV
5514   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_IUCV"), s7_make_integer(sc, (s7_int)PF_IUCV));
5515 #endif
5516 #ifdef PF_BLUETOOTH
5517   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_BLUETOOTH"), s7_make_integer(sc, (s7_int)PF_BLUETOOTH));
5518 #endif
5519 #ifdef PF_TIPC
5520   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_TIPC"), s7_make_integer(sc, (s7_int)PF_TIPC));
5521 #endif
5522 #ifdef PF_CAN
5523   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_CAN"), s7_make_integer(sc, (s7_int)PF_CAN));
5524 #endif
5525 #ifdef PF_LLC
5526   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_LLC"), s7_make_integer(sc, (s7_int)PF_LLC));
5527 #endif
5528 #ifdef PF_WANPIPE
5529   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_WANPIPE"), s7_make_integer(sc, (s7_int)PF_WANPIPE));
5530 #endif
5531 #ifdef PF_PPPOX
5532   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_PPPOX"), s7_make_integer(sc, (s7_int)PF_PPPOX));
5533 #endif
5534 #ifdef PF_IRDA
5535   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_IRDA"), s7_make_integer(sc, (s7_int)PF_IRDA));
5536 #endif
5537 #ifdef PF_SNA
5538   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_SNA"), s7_make_integer(sc, (s7_int)PF_SNA));
5539 #endif
5540 #ifdef PF_RDS
5541   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_RDS"), s7_make_integer(sc, (s7_int)PF_RDS));
5542 #endif
5543 #ifdef PF_ATMSVC
5544   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ATMSVC"), s7_make_integer(sc, (s7_int)PF_ATMSVC));
5545 #endif
5546 #ifdef PF_ECONET
5547   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ECONET"), s7_make_integer(sc, (s7_int)PF_ECONET));
5548 #endif
5549 #ifdef PF_ASH
5550   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ASH"), s7_make_integer(sc, (s7_int)PF_ASH));
5551 #endif
5552 #ifdef PF_PACKET
5553   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_PACKET"), s7_make_integer(sc, (s7_int)PF_PACKET));
5554 #endif
5555 #ifdef PF_ROUTE
5556   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ROUTE"), s7_make_integer(sc, (s7_int)PF_ROUTE));
5557 #endif
5558 #ifdef PF_NETLINK
5559   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_NETLINK"), s7_make_integer(sc, (s7_int)PF_NETLINK));
5560 #endif
5561 #ifdef PF_KEY
5562   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_KEY"), s7_make_integer(sc, (s7_int)PF_KEY));
5563 #endif
5564 #ifdef PF_SECURITY
5565   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_SECURITY"), s7_make_integer(sc, (s7_int)PF_SECURITY));
5566 #endif
5567 #ifdef PF_NETBEUI
5568   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_NETBEUI"), s7_make_integer(sc, (s7_int)PF_NETBEUI));
5569 #endif
5570 #ifdef PF_DECnet
5571   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_DECnet"), s7_make_integer(sc, (s7_int)PF_DECnet));
5572 #endif
5573 #ifdef PF_ROSE
5574   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ROSE"), s7_make_integer(sc, (s7_int)PF_ROSE));
5575 #endif
5576 #ifdef PF_INET6
5577   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_INET6"), s7_make_integer(sc, (s7_int)PF_INET6));
5578 #endif
5579 #ifdef PF_X25
5580   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_X25"), s7_make_integer(sc, (s7_int)PF_X25));
5581 #endif
5582 #ifdef PF_ATMPVC
5583   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_ATMPVC"), s7_make_integer(sc, (s7_int)PF_ATMPVC));
5584 #endif
5585 #ifdef PF_BRIDGE
5586   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_BRIDGE"), s7_make_integer(sc, (s7_int)PF_BRIDGE));
5587 #endif
5588 #ifdef PF_NETROM
5589   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_NETROM"), s7_make_integer(sc, (s7_int)PF_NETROM));
5590 #endif
5591 #ifdef PF_APPLETALK
5592   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_APPLETALK"), s7_make_integer(sc, (s7_int)PF_APPLETALK));
5593 #endif
5594 #ifdef PF_IPX
5595   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_IPX"), s7_make_integer(sc, (s7_int)PF_IPX));
5596 #endif
5597 #ifdef PF_AX25
5598   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_AX25"), s7_make_integer(sc, (s7_int)PF_AX25));
5599 #endif
5600 #ifdef PF_INET
5601   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_INET"), s7_make_integer(sc, (s7_int)PF_INET));
5602 #endif
5603 #ifdef PF_FILE
5604   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_FILE"), s7_make_integer(sc, (s7_int)PF_FILE));
5605 #endif
5606 #ifdef PF_UNIX
5607   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_UNIX"), s7_make_integer(sc, (s7_int)PF_UNIX));
5608 #endif
5609 #ifdef PF_LOCAL
5610   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_LOCAL"), s7_make_integer(sc, (s7_int)PF_LOCAL));
5611 #endif
5612 #ifdef PF_UNSPEC
5613   s7_define(sc, cur_env, s7_make_symbol(sc, "PF_UNSPEC"), s7_make_integer(sc, (s7_int)PF_UNSPEC));
5614 #endif
5615 #ifdef SOCK_NONBLOCK
5616   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_NONBLOCK"), s7_make_integer(sc, (s7_int)SOCK_NONBLOCK));
5617 #endif
5618 #ifdef SOCK_CLOEXEC
5619   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_CLOEXEC"), s7_make_integer(sc, (s7_int)SOCK_CLOEXEC));
5620 #endif
5621 #ifdef SOCK_PACKET
5622   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_PACKET"), s7_make_integer(sc, (s7_int)SOCK_PACKET));
5623 #endif
5624 #ifdef SOCK_DCCP
5625   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_DCCP"), s7_make_integer(sc, (s7_int)SOCK_DCCP));
5626 #endif
5627 #ifdef SOCK_SEQPACKET
5628   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_SEQPACKET"), s7_make_integer(sc, (s7_int)SOCK_SEQPACKET));
5629 #endif
5630 #ifdef SOCK_RDM
5631   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_RDM"), s7_make_integer(sc, (s7_int)SOCK_RDM));
5632 #endif
5633 #ifdef SOCK_RAW
5634   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_RAW"), s7_make_integer(sc, (s7_int)SOCK_RAW));
5635 #endif
5636 #ifdef SOCK_DGRAM
5637   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_DGRAM"), s7_make_integer(sc, (s7_int)SOCK_DGRAM));
5638 #endif
5639 #ifdef SOCK_STREAM
5640   s7_define(sc, cur_env, s7_make_symbol(sc, "SOCK_STREAM"), s7_make_integer(sc, (s7_int)SOCK_STREAM));
5641 #endif
5642 #ifdef NI_DGRAM
5643   s7_define(sc, cur_env, s7_make_symbol(sc, "NI_DGRAM"), s7_make_integer(sc, (s7_int)NI_DGRAM));
5644 #endif
5645 #ifdef NI_NAMEREQD
5646   s7_define(sc, cur_env, s7_make_symbol(sc, "NI_NAMEREQD"), s7_make_integer(sc, (s7_int)NI_NAMEREQD));
5647 #endif
5648 #ifdef NI_NOFQDN
5649   s7_define(sc, cur_env, s7_make_symbol(sc, "NI_NOFQDN"), s7_make_integer(sc, (s7_int)NI_NOFQDN));
5650 #endif
5651 #ifdef NI_NUMERICSERV
5652   s7_define(sc, cur_env, s7_make_symbol(sc, "NI_NUMERICSERV"), s7_make_integer(sc, (s7_int)NI_NUMERICSERV));
5653 #endif
5654 #ifdef NI_NUMERICHOST
5655   s7_define(sc, cur_env, s7_make_symbol(sc, "NI_NUMERICHOST"), s7_make_integer(sc, (s7_int)NI_NUMERICHOST));
5656 #endif
5657 #ifdef EAI_OVERFLOW
5658   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_OVERFLOW"), s7_make_integer(sc, (s7_int)EAI_OVERFLOW));
5659 #endif
5660 #ifdef EAI_SYSTEM
5661   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_SYSTEM"), s7_make_integer(sc, (s7_int)EAI_SYSTEM));
5662 #endif
5663 #ifdef EAI_MEMORY
5664   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_MEMORY"), s7_make_integer(sc, (s7_int)EAI_MEMORY));
5665 #endif
5666 #ifdef EAI_SERVICE
5667   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_SERVICE"), s7_make_integer(sc, (s7_int)EAI_SERVICE));
5668 #endif
5669 #ifdef EAI_SOCKTYPE
5670   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_SOCKTYPE"), s7_make_integer(sc, (s7_int)EAI_SOCKTYPE));
5671 #endif
5672 #ifdef EAI_FAMILY
5673   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_FAMILY"), s7_make_integer(sc, (s7_int)EAI_FAMILY));
5674 #endif
5675 #ifdef EAI_FAIL
5676   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_FAIL"), s7_make_integer(sc, (s7_int)EAI_FAIL));
5677 #endif
5678 #ifdef EAI_AGAIN
5679   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_AGAIN"), s7_make_integer(sc, (s7_int)EAI_AGAIN));
5680 #endif
5681 #ifdef EAI_NONAME
5682   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_NONAME"), s7_make_integer(sc, (s7_int)EAI_NONAME));
5683 #endif
5684 #ifdef EAI_BADFLAGS
5685   s7_define(sc, cur_env, s7_make_symbol(sc, "EAI_BADFLAGS"), s7_make_integer(sc, (s7_int)EAI_BADFLAGS));
5686 #endif
5687 #ifdef AI_NUMERICSERV
5688   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_NUMERICSERV"), s7_make_integer(sc, (s7_int)AI_NUMERICSERV));
5689 #endif
5690 #ifdef AI_ADDRCONFIG
5691   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_ADDRCONFIG"), s7_make_integer(sc, (s7_int)AI_ADDRCONFIG));
5692 #endif
5693 #ifdef AI_ALL
5694   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_ALL"), s7_make_integer(sc, (s7_int)AI_ALL));
5695 #endif
5696 #ifdef AI_V4MAPPED
5697   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_V4MAPPED"), s7_make_integer(sc, (s7_int)AI_V4MAPPED));
5698 #endif
5699 #ifdef AI_NUMERICHOST
5700   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_NUMERICHOST"), s7_make_integer(sc, (s7_int)AI_NUMERICHOST));
5701 #endif
5702 #ifdef AI_CANONNAME
5703   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_CANONNAME"), s7_make_integer(sc, (s7_int)AI_CANONNAME));
5704 #endif
5705 #ifdef AI_PASSIVE
5706   s7_define(sc, cur_env, s7_make_symbol(sc, "AI_PASSIVE"), s7_make_integer(sc, (s7_int)AI_PASSIVE));
5707 #endif
5708 #ifdef SIG_SETMASK
5709   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_SETMASK"), s7_make_integer(sc, (s7_int)SIG_SETMASK));
5710 #endif
5711 #ifdef SIG_UNBLOCK
5712   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_UNBLOCK"), s7_make_integer(sc, (s7_int)SIG_UNBLOCK));
5713 #endif
5714 #ifdef SIG_BLOCK
5715   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_BLOCK"), s7_make_integer(sc, (s7_int)SIG_BLOCK));
5716 #endif
5717 #ifdef SA_STACK
5718   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_STACK"), s7_make_integer(sc, (s7_int)SA_STACK));
5719 #endif
5720 #ifdef SA_ONESHOT
5721   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_ONESHOT"), s7_make_integer(sc, (s7_int)SA_ONESHOT));
5722 #endif
5723 #ifdef SA_NOMASK
5724   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_NOMASK"), s7_make_integer(sc, (s7_int)SA_NOMASK));
5725 #endif
5726 #ifdef SA_RESETHAND
5727   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_RESETHAND"), s7_make_integer(sc, (s7_int)SA_RESETHAND));
5728 #endif
5729 #ifdef SA_NODEFER
5730   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_NODEFER"), s7_make_integer(sc, (s7_int)SA_NODEFER));
5731 #endif
5732 #ifdef SA_RESTART
5733   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_RESTART"), s7_make_integer(sc, (s7_int)SA_RESTART));
5734 #endif
5735 #ifdef SA_ONSTACK
5736   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_ONSTACK"), s7_make_integer(sc, (s7_int)SA_ONSTACK));
5737 #endif
5738 #ifdef SA_SIGINFO
5739   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_SIGINFO"), s7_make_integer(sc, (s7_int)SA_SIGINFO));
5740 #endif
5741 #ifdef SA_NOCLDWAIT
5742   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_NOCLDWAIT"), s7_make_integer(sc, (s7_int)SA_NOCLDWAIT));
5743 #endif
5744 #ifdef SA_NOCLDSTOP
5745   s7_define(sc, cur_env, s7_make_symbol(sc, "SA_NOCLDSTOP"), s7_make_integer(sc, (s7_int)SA_NOCLDSTOP));
5746 #endif
5747 #ifdef PRIO_USER
5748   s7_define(sc, cur_env, s7_make_symbol(sc, "PRIO_USER"), s7_make_integer(sc, (s7_int)PRIO_USER));
5749 #endif
5750 #ifdef PRIO_PGRP
5751   s7_define(sc, cur_env, s7_make_symbol(sc, "PRIO_PGRP"), s7_make_integer(sc, (s7_int)PRIO_PGRP));
5752 #endif
5753 #ifdef PRIO_PROCESS
5754   s7_define(sc, cur_env, s7_make_symbol(sc, "PRIO_PROCESS"), s7_make_integer(sc, (s7_int)PRIO_PROCESS));
5755 #endif
5756 #ifdef PRIO_MAX
5757   s7_define(sc, cur_env, s7_make_symbol(sc, "PRIO_MAX"), s7_make_integer(sc, (s7_int)PRIO_MAX));
5758 #endif
5759 #ifdef PRIO_MIN
5760   s7_define(sc, cur_env, s7_make_symbol(sc, "PRIO_MIN"), s7_make_integer(sc, (s7_int)PRIO_MIN));
5761 #endif
5762 #ifdef RUSAGE_LWP
5763   s7_define(sc, cur_env, s7_make_symbol(sc, "RUSAGE_LWP"), s7_make_integer(sc, (s7_int)RUSAGE_LWP));
5764 #endif
5765 #ifdef RUSAGE_THREAD
5766   s7_define(sc, cur_env, s7_make_symbol(sc, "RUSAGE_THREAD"), s7_make_integer(sc, (s7_int)RUSAGE_THREAD));
5767 #endif
5768 #ifdef RUSAGE_CHILDREN
5769   s7_define(sc, cur_env, s7_make_symbol(sc, "RUSAGE_CHILDREN"), s7_make_integer(sc, (s7_int)RUSAGE_CHILDREN));
5770 #endif
5771 #ifdef RUSAGE_SELF
5772   s7_define(sc, cur_env, s7_make_symbol(sc, "RUSAGE_SELF"), s7_make_integer(sc, (s7_int)RUSAGE_SELF));
5773 #endif
5774 #ifdef RLIM_SAVED_CUR
5775   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIM_SAVED_CUR"), s7_make_integer(sc, (s7_int)RLIM_SAVED_CUR));
5776 #endif
5777 #ifdef RLIM_SAVED_MAX
5778   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIM_SAVED_MAX"), s7_make_integer(sc, (s7_int)RLIM_SAVED_MAX));
5779 #endif
5780 #ifdef RLIM_INFINITY
5781   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIM_INFINITY"), s7_make_integer(sc, (s7_int)RLIM_INFINITY));
5782 #endif
5783 #ifdef RLIM_NLIMITS
5784   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIM_NLIMITS"), s7_make_integer(sc, (s7_int)RLIM_NLIMITS));
5785 #endif
5786 #ifdef RLIMIT_NLIMITS
5787   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_NLIMITS"), s7_make_integer(sc, (s7_int)RLIMIT_NLIMITS));
5788 #endif
5789 #ifdef RLIMIT_RTPRIO
5790   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_RTPRIO"), s7_make_integer(sc, (s7_int)RLIMIT_RTPRIO));
5791 #endif
5792 #ifdef RLIMIT_NICE
5793   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_NICE"), s7_make_integer(sc, (s7_int)RLIMIT_NICE));
5794 #endif
5795 #ifdef RLIMIT_MSGQUEUE
5796   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_MSGQUEUE"), s7_make_integer(sc, (s7_int)RLIMIT_MSGQUEUE));
5797 #endif
5798 #ifdef RLIMIT_SIGPENDING
5799   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_SIGPENDING"), s7_make_integer(sc, (s7_int)RLIMIT_SIGPENDING));
5800 #endif
5801 #ifdef RLIMIT_LOCKS
5802   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_LOCKS"), s7_make_integer(sc, (s7_int)RLIMIT_LOCKS));
5803 #endif
5804 #ifdef RLIMIT_MEMLOCK
5805   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_MEMLOCK"), s7_make_integer(sc, (s7_int)RLIMIT_MEMLOCK));
5806 #endif
5807 #ifdef RLIMIT_NPROC
5808   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_NPROC"), s7_make_integer(sc, (s7_int)RLIMIT_NPROC));
5809 #endif
5810 #ifdef RLIMIT_AS
5811   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_AS"), s7_make_integer(sc, (s7_int)RLIMIT_AS));
5812 #endif
5813 #ifdef RLIMIT_OFILE
5814   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_OFILE"), s7_make_integer(sc, (s7_int)RLIMIT_OFILE));
5815 #endif
5816 #ifdef RLIMIT_NOFILE
5817   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_NOFILE"), s7_make_integer(sc, (s7_int)RLIMIT_NOFILE));
5818 #endif
5819 #ifdef RLIMIT_RSS
5820   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_RSS"), s7_make_integer(sc, (s7_int)RLIMIT_RSS));
5821 #endif
5822 #ifdef RLIMIT_CORE
5823   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_CORE"), s7_make_integer(sc, (s7_int)RLIMIT_CORE));
5824 #endif
5825 #ifdef RLIMIT_STACK
5826   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_STACK"), s7_make_integer(sc, (s7_int)RLIMIT_STACK));
5827 #endif
5828 #ifdef RLIMIT_DATA
5829   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_DATA"), s7_make_integer(sc, (s7_int)RLIMIT_DATA));
5830 #endif
5831 #ifdef RLIMIT_FSIZE
5832   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_FSIZE"), s7_make_integer(sc, (s7_int)RLIMIT_FSIZE));
5833 #endif
5834 #ifdef RLIMIT_CPU
5835   s7_define(sc, cur_env, s7_make_symbol(sc, "RLIMIT_CPU"), s7_make_integer(sc, (s7_int)RLIMIT_CPU));
5836 #endif
5837 #ifdef WNOWAIT
5838   s7_define(sc, cur_env, s7_make_symbol(sc, "WNOWAIT"), s7_make_integer(sc, (s7_int)WNOWAIT));
5839 #endif
5840 #ifdef WCONTINUED
5841   s7_define(sc, cur_env, s7_make_symbol(sc, "WCONTINUED"), s7_make_integer(sc, (s7_int)WCONTINUED));
5842 #endif
5843 #ifdef WEXITED
5844   s7_define(sc, cur_env, s7_make_symbol(sc, "WEXITED"), s7_make_integer(sc, (s7_int)WEXITED));
5845 #endif
5846 #ifdef WSTOPPED
5847   s7_define(sc, cur_env, s7_make_symbol(sc, "WSTOPPED"), s7_make_integer(sc, (s7_int)WSTOPPED));
5848 #endif
5849 #ifdef WUNTRACED
5850   s7_define(sc, cur_env, s7_make_symbol(sc, "WUNTRACED"), s7_make_integer(sc, (s7_int)WUNTRACED));
5851 #endif
5852 #ifdef WNOHANG
5853   s7_define(sc, cur_env, s7_make_symbol(sc, "WNOHANG"), s7_make_integer(sc, (s7_int)WNOHANG));
5854 #endif
5855 #ifdef SIGUNUSED
5856   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGUNUSED"), s7_make_integer(sc, (s7_int)SIGUNUSED));
5857 #endif
5858 #ifdef SIGSYS
5859   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGSYS"), s7_make_integer(sc, (s7_int)SIGSYS));
5860 #endif
5861 #ifdef SIGPWR
5862   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGPWR"), s7_make_integer(sc, (s7_int)SIGPWR));
5863 #endif
5864 #ifdef SIGIO
5865   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGIO"), s7_make_integer(sc, (s7_int)SIGIO));
5866 #endif
5867 #ifdef SIGPOLL
5868   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGPOLL"), s7_make_integer(sc, (s7_int)SIGPOLL));
5869 #endif
5870 #ifdef SIGWINCH
5871   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGWINCH"), s7_make_integer(sc, (s7_int)SIGWINCH));
5872 #endif
5873 #ifdef SIGPROF
5874   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGPROF"), s7_make_integer(sc, (s7_int)SIGPROF));
5875 #endif
5876 #ifdef SIGVTALRM
5877   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGVTALRM"), s7_make_integer(sc, (s7_int)SIGVTALRM));
5878 #endif
5879 #ifdef SIGXFSZ
5880   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGXFSZ"), s7_make_integer(sc, (s7_int)SIGXFSZ));
5881 #endif
5882 #ifdef SIGXCPU
5883   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGXCPU"), s7_make_integer(sc, (s7_int)SIGXCPU));
5884 #endif
5885 #ifdef SIGURG
5886   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGURG"), s7_make_integer(sc, (s7_int)SIGURG));
5887 #endif
5888 #ifdef SIGTTOU
5889   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGTTOU"), s7_make_integer(sc, (s7_int)SIGTTOU));
5890 #endif
5891 #ifdef SIGTTIN
5892   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGTTIN"), s7_make_integer(sc, (s7_int)SIGTTIN));
5893 #endif
5894 #ifdef SIGTSTP
5895   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGTSTP"), s7_make_integer(sc, (s7_int)SIGTSTP));
5896 #endif
5897 #ifdef SIGSTOP
5898   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGSTOP"), s7_make_integer(sc, (s7_int)SIGSTOP));
5899 #endif
5900 #ifdef SIGCONT
5901   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGCONT"), s7_make_integer(sc, (s7_int)SIGCONT));
5902 #endif
5903 #ifdef SIGCHLD
5904   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGCHLD"), s7_make_integer(sc, (s7_int)SIGCHLD));
5905 #endif
5906 #ifdef SIGCLD
5907   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGCLD"), s7_make_integer(sc, (s7_int)SIGCLD));
5908 #endif
5909 #ifdef SIGSTKFLT
5910   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGSTKFLT"), s7_make_integer(sc, (s7_int)SIGSTKFLT));
5911 #endif
5912 #ifdef SIGTERM
5913   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGTERM"), s7_make_integer(sc, (s7_int)SIGTERM));
5914 #endif
5915 #ifdef SIGALRM
5916   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGALRM"), s7_make_integer(sc, (s7_int)SIGALRM));
5917 #endif
5918 #ifdef SIGPIPE
5919   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGPIPE"), s7_make_integer(sc, (s7_int)SIGPIPE));
5920 #endif
5921 #ifdef SIGUSR2
5922   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGUSR2"), s7_make_integer(sc, (s7_int)SIGUSR2));
5923 #endif
5924 #ifdef SIGSEGV
5925   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGSEGV"), s7_make_integer(sc, (s7_int)SIGSEGV));
5926 #endif
5927 #ifdef SIGUSR1
5928   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGUSR1"), s7_make_integer(sc, (s7_int)SIGUSR1));
5929 #endif
5930 #ifdef SIGKILL
5931   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGKILL"), s7_make_integer(sc, (s7_int)SIGKILL));
5932 #endif
5933 #ifdef SIGFPE
5934   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGFPE"), s7_make_integer(sc, (s7_int)SIGFPE));
5935 #endif
5936 #ifdef SIGBUS
5937   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGBUS"), s7_make_integer(sc, (s7_int)SIGBUS));
5938 #endif
5939 #ifdef SIGIOT
5940   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGIOT"), s7_make_integer(sc, (s7_int)SIGIOT));
5941 #endif
5942 #ifdef SIGABRT
5943   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGABRT"), s7_make_integer(sc, (s7_int)SIGABRT));
5944 #endif
5945 #ifdef SIGTRAP
5946   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGTRAP"), s7_make_integer(sc, (s7_int)SIGTRAP));
5947 #endif
5948 #ifdef SIGILL
5949   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGILL"), s7_make_integer(sc, (s7_int)SIGILL));
5950 #endif
5951 #ifdef SIGQUIT
5952   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGQUIT"), s7_make_integer(sc, (s7_int)SIGQUIT));
5953 #endif
5954 #ifdef SIGINT
5955   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGINT"), s7_make_integer(sc, (s7_int)SIGINT));
5956 #endif
5957 #ifdef SIGHUP
5958   s7_define(sc, cur_env, s7_make_symbol(sc, "SIGHUP"), s7_make_integer(sc, (s7_int)SIGHUP));
5959 #endif
5960 #ifdef GLOB_NOSYS
5961   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOSYS"), s7_make_integer(sc, (s7_int)GLOB_NOSYS));
5962 #endif
5963 #ifdef GLOB_NOMATCH
5964   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOMATCH"), s7_make_integer(sc, (s7_int)GLOB_NOMATCH));
5965 #endif
5966 #ifdef GLOB_ABORTED
5967   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_ABORTED"), s7_make_integer(sc, (s7_int)GLOB_ABORTED));
5968 #endif
5969 #ifdef GLOB_NOSPACE
5970   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOSPACE"), s7_make_integer(sc, (s7_int)GLOB_NOSPACE));
5971 #endif
5972 #ifdef GLOB_TILDE_CHECK
5973   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_TILDE_CHECK"), s7_make_integer(sc, (s7_int)GLOB_TILDE_CHECK));
5974 #endif
5975 #ifdef GLOB_ONLYDIR
5976   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_ONLYDIR"), s7_make_integer(sc, (s7_int)GLOB_ONLYDIR));
5977 #endif
5978 #ifdef GLOB_TILDE
5979   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_TILDE"), s7_make_integer(sc, (s7_int)GLOB_TILDE));
5980 #endif
5981 #ifdef GLOB_NOMAGIC
5982   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOMAGIC"), s7_make_integer(sc, (s7_int)GLOB_NOMAGIC));
5983 #endif
5984 #ifdef GLOB_BRACE
5985   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_BRACE"), s7_make_integer(sc, (s7_int)GLOB_BRACE));
5986 #endif
5987 #ifdef GLOB_ALTDIRFUNC
5988   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_ALTDIRFUNC"), s7_make_integer(sc, (s7_int)GLOB_ALTDIRFUNC));
5989 #endif
5990 #ifdef GLOB_MAGCHAR
5991   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_MAGCHAR"), s7_make_integer(sc, (s7_int)GLOB_MAGCHAR));
5992 #endif
5993 #ifdef GLOB_PERIOD
5994   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_PERIOD"), s7_make_integer(sc, (s7_int)GLOB_PERIOD));
5995 #endif
5996 #ifdef GLOB_NOESCAPE
5997   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOESCAPE"), s7_make_integer(sc, (s7_int)GLOB_NOESCAPE));
5998 #endif
5999 #ifdef GLOB_APPEND
6000   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_APPEND"), s7_make_integer(sc, (s7_int)GLOB_APPEND));
6001 #endif
6002 #ifdef GLOB_NOCHECK
6003   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOCHECK"), s7_make_integer(sc, (s7_int)GLOB_NOCHECK));
6004 #endif
6005 #ifdef GLOB_DOOFFS
6006   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_DOOFFS"), s7_make_integer(sc, (s7_int)GLOB_DOOFFS));
6007 #endif
6008 #ifdef GLOB_NOSORT
6009   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_NOSORT"), s7_make_integer(sc, (s7_int)GLOB_NOSORT));
6010 #endif
6011 #ifdef GLOB_MARK
6012   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_MARK"), s7_make_integer(sc, (s7_int)GLOB_MARK));
6013 #endif
6014 #ifdef GLOB_ERR
6015   s7_define(sc, cur_env, s7_make_symbol(sc, "GLOB_ERR"), s7_make_integer(sc, (s7_int)GLOB_ERR));
6016 #endif
6017 #ifdef NSS_BUFLEN_PASSWD
6018   s7_define(sc, cur_env, s7_make_symbol(sc, "NSS_BUFLEN_PASSWD"), s7_make_integer(sc, (s7_int)NSS_BUFLEN_PASSWD));
6019 #endif
6020 #ifdef TCSAFLUSH
6021   s7_define(sc, cur_env, s7_make_symbol(sc, "TCSAFLUSH"), s7_make_integer(sc, (s7_int)TCSAFLUSH));
6022 #endif
6023 #ifdef TCSADRAIN
6024   s7_define(sc, cur_env, s7_make_symbol(sc, "TCSADRAIN"), s7_make_integer(sc, (s7_int)TCSADRAIN));
6025 #endif
6026 #ifdef TCSANOW
6027   s7_define(sc, cur_env, s7_make_symbol(sc, "TCSANOW"), s7_make_integer(sc, (s7_int)TCSANOW));
6028 #endif
6029 #ifdef TCIOFLUSH
6030   s7_define(sc, cur_env, s7_make_symbol(sc, "TCIOFLUSH"), s7_make_integer(sc, (s7_int)TCIOFLUSH));
6031 #endif
6032 #ifdef TCOFLUSH
6033   s7_define(sc, cur_env, s7_make_symbol(sc, "TCOFLUSH"), s7_make_integer(sc, (s7_int)TCOFLUSH));
6034 #endif
6035 #ifdef TCIFLUSH
6036   s7_define(sc, cur_env, s7_make_symbol(sc, "TCIFLUSH"), s7_make_integer(sc, (s7_int)TCIFLUSH));
6037 #endif
6038 #ifdef TCION
6039   s7_define(sc, cur_env, s7_make_symbol(sc, "TCION"), s7_make_integer(sc, (s7_int)TCION));
6040 #endif
6041 #ifdef TCIOFF
6042   s7_define(sc, cur_env, s7_make_symbol(sc, "TCIOFF"), s7_make_integer(sc, (s7_int)TCIOFF));
6043 #endif
6044 #ifdef TCOON
6045   s7_define(sc, cur_env, s7_make_symbol(sc, "TCOON"), s7_make_integer(sc, (s7_int)TCOON));
6046 #endif
6047 #ifdef TCOOFF
6048   s7_define(sc, cur_env, s7_make_symbol(sc, "TCOOFF"), s7_make_integer(sc, (s7_int)TCOOFF));
6049 #endif
6050 #ifdef IEXTEN
6051   s7_define(sc, cur_env, s7_make_symbol(sc, "IEXTEN"), s7_make_integer(sc, (s7_int)IEXTEN));
6052 #endif
6053 #ifdef TOSTOP
6054   s7_define(sc, cur_env, s7_make_symbol(sc, "TOSTOP"), s7_make_integer(sc, (s7_int)TOSTOP));
6055 #endif
6056 #ifdef NOFLSH
6057   s7_define(sc, cur_env, s7_make_symbol(sc, "NOFLSH"), s7_make_integer(sc, (s7_int)NOFLSH));
6058 #endif
6059 #ifdef ECHONL
6060   s7_define(sc, cur_env, s7_make_symbol(sc, "ECHONL"), s7_make_integer(sc, (s7_int)ECHONL));
6061 #endif
6062 #ifdef ECHOK
6063   s7_define(sc, cur_env, s7_make_symbol(sc, "ECHOK"), s7_make_integer(sc, (s7_int)ECHOK));
6064 #endif
6065 #ifdef ECHOE
6066   s7_define(sc, cur_env, s7_make_symbol(sc, "ECHOE"), s7_make_integer(sc, (s7_int)ECHOE));
6067 #endif
6068 #ifdef ECHO
6069   s7_define(sc, cur_env, s7_make_symbol(sc, "ECHO"), s7_make_integer(sc, (s7_int)ECHO));
6070 #endif
6071 #ifdef ICANON
6072   s7_define(sc, cur_env, s7_make_symbol(sc, "ICANON"), s7_make_integer(sc, (s7_int)ICANON));
6073 #endif
6074 #ifdef ISIG
6075   s7_define(sc, cur_env, s7_make_symbol(sc, "ISIG"), s7_make_integer(sc, (s7_int)ISIG));
6076 #endif
6077 #ifdef OFDEL
6078   s7_define(sc, cur_env, s7_make_symbol(sc, "OFDEL"), s7_make_integer(sc, (s7_int)OFDEL));
6079 #endif
6080 #ifdef OFILL
6081   s7_define(sc, cur_env, s7_make_symbol(sc, "OFILL"), s7_make_integer(sc, (s7_int)OFILL));
6082 #endif
6083 #ifdef ONLRET
6084   s7_define(sc, cur_env, s7_make_symbol(sc, "ONLRET"), s7_make_integer(sc, (s7_int)ONLRET));
6085 #endif
6086 #ifdef ONOCR
6087   s7_define(sc, cur_env, s7_make_symbol(sc, "ONOCR"), s7_make_integer(sc, (s7_int)ONOCR));
6088 #endif
6089 #ifdef OCRNL
6090   s7_define(sc, cur_env, s7_make_symbol(sc, "OCRNL"), s7_make_integer(sc, (s7_int)OCRNL));
6091 #endif
6092 #ifdef ONLCR
6093   s7_define(sc, cur_env, s7_make_symbol(sc, "ONLCR"), s7_make_integer(sc, (s7_int)ONLCR));
6094 #endif
6095 #ifdef OLCUC
6096   s7_define(sc, cur_env, s7_make_symbol(sc, "OLCUC"), s7_make_integer(sc, (s7_int)OLCUC));
6097 #endif
6098 #ifdef OPOST
6099   s7_define(sc, cur_env, s7_make_symbol(sc, "OPOST"), s7_make_integer(sc, (s7_int)OPOST));
6100 #endif
6101 #ifdef IUTF8
6102   s7_define(sc, cur_env, s7_make_symbol(sc, "IUTF8"), s7_make_integer(sc, (s7_int)IUTF8));
6103 #endif
6104 #ifdef IMAXBEL
6105   s7_define(sc, cur_env, s7_make_symbol(sc, "IMAXBEL"), s7_make_integer(sc, (s7_int)IMAXBEL));
6106 #endif
6107 #ifdef IXOFF
6108   s7_define(sc, cur_env, s7_make_symbol(sc, "IXOFF"), s7_make_integer(sc, (s7_int)IXOFF));
6109 #endif
6110 #ifdef IXANY
6111   s7_define(sc, cur_env, s7_make_symbol(sc, "IXANY"), s7_make_integer(sc, (s7_int)IXANY));
6112 #endif
6113 #ifdef IXON
6114   s7_define(sc, cur_env, s7_make_symbol(sc, "IXON"), s7_make_integer(sc, (s7_int)IXON));
6115 #endif
6116 #ifdef IUCLC
6117   s7_define(sc, cur_env, s7_make_symbol(sc, "IUCLC"), s7_make_integer(sc, (s7_int)IUCLC));
6118 #endif
6119 #ifdef ICRNL
6120   s7_define(sc, cur_env, s7_make_symbol(sc, "ICRNL"), s7_make_integer(sc, (s7_int)ICRNL));
6121 #endif
6122 #ifdef IGNCR
6123   s7_define(sc, cur_env, s7_make_symbol(sc, "IGNCR"), s7_make_integer(sc, (s7_int)IGNCR));
6124 #endif
6125 #ifdef INLCR
6126   s7_define(sc, cur_env, s7_make_symbol(sc, "INLCR"), s7_make_integer(sc, (s7_int)INLCR));
6127 #endif
6128 #ifdef ISTRIP
6129   s7_define(sc, cur_env, s7_make_symbol(sc, "ISTRIP"), s7_make_integer(sc, (s7_int)ISTRIP));
6130 #endif
6131 #ifdef INPCK
6132   s7_define(sc, cur_env, s7_make_symbol(sc, "INPCK"), s7_make_integer(sc, (s7_int)INPCK));
6133 #endif
6134 #ifdef PARMRK
6135   s7_define(sc, cur_env, s7_make_symbol(sc, "PARMRK"), s7_make_integer(sc, (s7_int)PARMRK));
6136 #endif
6137 #ifdef IGNPAR
6138   s7_define(sc, cur_env, s7_make_symbol(sc, "IGNPAR"), s7_make_integer(sc, (s7_int)IGNPAR));
6139 #endif
6140 #ifdef BRKINT
6141   s7_define(sc, cur_env, s7_make_symbol(sc, "BRKINT"), s7_make_integer(sc, (s7_int)BRKINT));
6142 #endif
6143 #ifdef IGNBRK
6144   s7_define(sc, cur_env, s7_make_symbol(sc, "IGNBRK"), s7_make_integer(sc, (s7_int)IGNBRK));
6145 #endif
6146 #ifdef VEOL2
6147   s7_define(sc, cur_env, s7_make_symbol(sc, "VEOL2"), s7_make_integer(sc, (s7_int)VEOL2));
6148 #endif
6149 #ifdef VLNEXT
6150   s7_define(sc, cur_env, s7_make_symbol(sc, "VLNEXT"), s7_make_integer(sc, (s7_int)VLNEXT));
6151 #endif
6152 #ifdef VWERASE
6153   s7_define(sc, cur_env, s7_make_symbol(sc, "VWERASE"), s7_make_integer(sc, (s7_int)VWERASE));
6154 #endif
6155 #ifdef VDISCARD
6156   s7_define(sc, cur_env, s7_make_symbol(sc, "VDISCARD"), s7_make_integer(sc, (s7_int)VDISCARD));
6157 #endif
6158 #ifdef VREPRINT
6159   s7_define(sc, cur_env, s7_make_symbol(sc, "VREPRINT"), s7_make_integer(sc, (s7_int)VREPRINT));
6160 #endif
6161 #ifdef VEOL
6162   s7_define(sc, cur_env, s7_make_symbol(sc, "VEOL"), s7_make_integer(sc, (s7_int)VEOL));
6163 #endif
6164 #ifdef VSUSP
6165   s7_define(sc, cur_env, s7_make_symbol(sc, "VSUSP"), s7_make_integer(sc, (s7_int)VSUSP));
6166 #endif
6167 #ifdef VSTOP
6168   s7_define(sc, cur_env, s7_make_symbol(sc, "VSTOP"), s7_make_integer(sc, (s7_int)VSTOP));
6169 #endif
6170 #ifdef VSTART
6171   s7_define(sc, cur_env, s7_make_symbol(sc, "VSTART"), s7_make_integer(sc, (s7_int)VSTART));
6172 #endif
6173 #ifdef VSWTC
6174   s7_define(sc, cur_env, s7_make_symbol(sc, "VSWTC"), s7_make_integer(sc, (s7_int)VSWTC));
6175 #endif
6176 #ifdef VMIN
6177   s7_define(sc, cur_env, s7_make_symbol(sc, "VMIN"), s7_make_integer(sc, (s7_int)VMIN));
6178 #endif
6179 #ifdef VTIME
6180   s7_define(sc, cur_env, s7_make_symbol(sc, "VTIME"), s7_make_integer(sc, (s7_int)VTIME));
6181 #endif
6182 #ifdef VEOF
6183   s7_define(sc, cur_env, s7_make_symbol(sc, "VEOF"), s7_make_integer(sc, (s7_int)VEOF));
6184 #endif
6185 #ifdef VKILL
6186   s7_define(sc, cur_env, s7_make_symbol(sc, "VKILL"), s7_make_integer(sc, (s7_int)VKILL));
6187 #endif
6188 #ifdef VERASE
6189   s7_define(sc, cur_env, s7_make_symbol(sc, "VERASE"), s7_make_integer(sc, (s7_int)VERASE));
6190 #endif
6191 #ifdef VQUIT
6192   s7_define(sc, cur_env, s7_make_symbol(sc, "VQUIT"), s7_make_integer(sc, (s7_int)VQUIT));
6193 #endif
6194 #ifdef VINTR
6195   s7_define(sc, cur_env, s7_make_symbol(sc, "VINTR"), s7_make_integer(sc, (s7_int)VINTR));
6196 #endif
6197 #ifdef CLOCK_MONOTONIC_COARSE
6198   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_MONOTONIC_COARSE"), s7_make_integer(sc, (s7_int)CLOCK_MONOTONIC_COARSE));
6199 #endif
6200 #ifdef CLOCK_REALTIME_COARSE
6201   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_REALTIME_COARSE"), s7_make_integer(sc, (s7_int)CLOCK_REALTIME_COARSE));
6202 #endif
6203 #ifdef CLOCK_MONOTONIC_RAW
6204   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_MONOTONIC_RAW"), s7_make_integer(sc, (s7_int)CLOCK_MONOTONIC_RAW));
6205 #endif
6206 #ifdef CLOCK_THREAD_CPUTIME_ID
6207   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_THREAD_CPUTIME_ID"), s7_make_integer(sc, (s7_int)CLOCK_THREAD_CPUTIME_ID));
6208 #endif
6209 #ifdef CLOCK_PROCESS_CPUTIME_ID
6210   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_PROCESS_CPUTIME_ID"), s7_make_integer(sc, (s7_int)CLOCK_PROCESS_CPUTIME_ID));
6211 #endif
6212 #ifdef CLOCK_MONOTONIC
6213   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_MONOTONIC"), s7_make_integer(sc, (s7_int)CLOCK_MONOTONIC));
6214 #endif
6215 #ifdef CLOCK_REALTIME
6216   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCK_REALTIME"), s7_make_integer(sc, (s7_int)CLOCK_REALTIME));
6217 #endif
6218 #ifdef CLOCKS_PER_SEC
6219   s7_define(sc, cur_env, s7_make_symbol(sc, "CLOCKS_PER_SEC"), s7_make_integer(sc, (s7_int)CLOCKS_PER_SEC));
6220 #endif
6221 #ifdef S_IFLNK
6222   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFLNK"), s7_make_integer(sc, (s7_int)S_IFLNK));
6223 #endif
6224 #ifdef FTW_NS
6225   s7_define(sc, cur_env, s7_make_symbol(sc, "FTW_NS"), s7_make_integer(sc, (s7_int)FTW_NS));
6226 #endif
6227 #ifdef FTW_DNR
6228   s7_define(sc, cur_env, s7_make_symbol(sc, "FTW_DNR"), s7_make_integer(sc, (s7_int)FTW_DNR));
6229 #endif
6230 #ifdef FTW_D
6231   s7_define(sc, cur_env, s7_make_symbol(sc, "FTW_D"), s7_make_integer(sc, (s7_int)FTW_D));
6232 #endif
6233 #ifdef FTW_F
6234   s7_define(sc, cur_env, s7_make_symbol(sc, "FTW_F"), s7_make_integer(sc, (s7_int)FTW_F));
6235 #endif
6236 #ifdef _CS_GNU_LIBPTHREAD_VERSION
6237   s7_define(sc, cur_env, s7_make_symbol(sc, "_CS_GNU_LIBPTHREAD_VERSION"), s7_make_integer(sc, (s7_int)_CS_GNU_LIBPTHREAD_VERSION));
6238 #endif
6239 #ifdef _SC_LEVEL4_CACHE_ASSOC
6240   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL4_CACHE_ASSOC"), s7_make_integer(sc, (s7_int)_SC_LEVEL4_CACHE_ASSOC));
6241 #endif
6242 #ifdef _SC_LEVEL2_CACHE_ASSOC
6243   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL2_CACHE_ASSOC"), s7_make_integer(sc, (s7_int)_SC_LEVEL2_CACHE_ASSOC));
6244 #endif
6245 #ifdef _SC_THREAD_PRIORITY_SCHEDULING
6246   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_PRIORITY_SCHEDULING"), s7_make_integer(sc, (s7_int)_SC_THREAD_PRIORITY_SCHEDULING));
6247 #endif
6248 #ifdef _CS_GNU_LIBC_VERSION
6249   s7_define(sc, cur_env, s7_make_symbol(sc, "_CS_GNU_LIBC_VERSION"), s7_make_integer(sc, (s7_int)_CS_GNU_LIBC_VERSION));
6250 #endif
6251 #ifdef _CS_PATH
6252   s7_define(sc, cur_env, s7_make_symbol(sc, "_CS_PATH"), s7_make_integer(sc, (s7_int)_CS_PATH));
6253 #endif
6254 #ifdef _SC_THREAD_ROBUST_PRIO_PROTECT
6255   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_ROBUST_PRIO_PROTECT"), s7_make_integer(sc, (s7_int)_SC_THREAD_ROBUST_PRIO_PROTECT));
6256 #endif
6257 #ifdef _SC_THREAD_ROBUST_PRIO_INHERIT
6258   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_ROBUST_PRIO_INHERIT"), s7_make_integer(sc, (s7_int)_SC_THREAD_ROBUST_PRIO_INHERIT));
6259 #endif
6260 #ifdef _SC_TRACE_USER_EVENT_MAX
6261   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_USER_EVENT_MAX"), s7_make_integer(sc, (s7_int)_SC_TRACE_USER_EVENT_MAX));
6262 #endif
6263 #ifdef _SC_TRACE_SYS_MAX
6264   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_SYS_MAX"), s7_make_integer(sc, (s7_int)_SC_TRACE_SYS_MAX));
6265 #endif
6266 #ifdef _SC_TRACE_NAME_MAX
6267   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_TRACE_NAME_MAX));
6268 #endif
6269 #ifdef _SC_TRACE_EVENT_NAME_MAX
6270   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_EVENT_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_TRACE_EVENT_NAME_MAX));
6271 #endif
6272 #ifdef _SC_SS_REPL_MAX
6273   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SS_REPL_MAX"), s7_make_integer(sc, (s7_int)_SC_SS_REPL_MAX));
6274 #endif
6275 #ifdef _SC_RAW_SOCKETS
6276   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_RAW_SOCKETS"), s7_make_integer(sc, (s7_int)_SC_RAW_SOCKETS));
6277 #endif
6278 #ifdef _SC_IPV6
6279   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_IPV6"), s7_make_integer(sc, (s7_int)_SC_IPV6));
6280 #endif
6281 #ifdef _SC_LEVEL4_CACHE_LINESIZE
6282   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL4_CACHE_LINESIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL4_CACHE_LINESIZE));
6283 #endif
6284 #ifdef _SC_LEVEL4_CACHE_SIZE
6285   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL4_CACHE_SIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL4_CACHE_SIZE));
6286 #endif
6287 #ifdef _SC_LEVEL3_CACHE_LINESIZE
6288   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL3_CACHE_LINESIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL3_CACHE_LINESIZE));
6289 #endif
6290 #ifdef _SC_LEVEL3_CACHE_ASSOC
6291   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL3_CACHE_ASSOC"), s7_make_integer(sc, (s7_int)_SC_LEVEL3_CACHE_ASSOC));
6292 #endif
6293 #ifdef _SC_LEVEL3_CACHE_SIZE
6294   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL3_CACHE_SIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL3_CACHE_SIZE));
6295 #endif
6296 #ifdef _SC_LEVEL2_CACHE_LINESIZE
6297   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL2_CACHE_LINESIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL2_CACHE_LINESIZE));
6298 #endif
6299 #ifdef _SC_LEVEL2_CACHE_SIZE
6300   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL2_CACHE_SIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL2_CACHE_SIZE));
6301 #endif
6302 #ifdef _SC_LEVEL1_DCACHE_LINESIZE
6303   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_DCACHE_LINESIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_DCACHE_LINESIZE));
6304 #endif
6305 #ifdef _SC_LEVEL1_DCACHE_ASSOC
6306   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_DCACHE_ASSOC"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_DCACHE_ASSOC));
6307 #endif
6308 #ifdef _SC_LEVEL1_DCACHE_SIZE
6309   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_DCACHE_SIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_DCACHE_SIZE));
6310 #endif
6311 #ifdef _SC_LEVEL1_ICACHE_LINESIZE
6312   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_ICACHE_LINESIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_ICACHE_LINESIZE));
6313 #endif
6314 #ifdef _SC_LEVEL1_ICACHE_ASSOC
6315   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_ICACHE_ASSOC"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_ICACHE_ASSOC));
6316 #endif
6317 #ifdef _SC_LEVEL1_ICACHE_SIZE
6318   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LEVEL1_ICACHE_SIZE"), s7_make_integer(sc, (s7_int)_SC_LEVEL1_ICACHE_SIZE));
6319 #endif
6320 #ifdef _SC_TRACE_LOG
6321   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_LOG"), s7_make_integer(sc, (s7_int)_SC_TRACE_LOG));
6322 #endif
6323 #ifdef _SC_TRACE_INHERIT
6324   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_INHERIT"), s7_make_integer(sc, (s7_int)_SC_TRACE_INHERIT));
6325 #endif
6326 #ifdef _SC_TRACE_EVENT_FILTER
6327   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE_EVENT_FILTER"), s7_make_integer(sc, (s7_int)_SC_TRACE_EVENT_FILTER));
6328 #endif
6329 #ifdef _SC_TRACE
6330   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TRACE"), s7_make_integer(sc, (s7_int)_SC_TRACE));
6331 #endif
6332 #ifdef _SC_HOST_NAME_MAX
6333   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_HOST_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_HOST_NAME_MAX));
6334 #endif
6335 #ifdef _SC_2_PBS_CHECKPOINT
6336   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS_CHECKPOINT"), s7_make_integer(sc, (s7_int)_SC_2_PBS_CHECKPOINT));
6337 #endif
6338 #ifdef _SC_STREAMS
6339   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_STREAMS"), s7_make_integer(sc, (s7_int)_SC_STREAMS));
6340 #endif
6341 #ifdef _SC_SYMLOOP_MAX
6342   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SYMLOOP_MAX"), s7_make_integer(sc, (s7_int)_SC_SYMLOOP_MAX));
6343 #endif
6344 #ifdef _SC_2_PBS_TRACK
6345   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS_TRACK"), s7_make_integer(sc, (s7_int)_SC_2_PBS_TRACK));
6346 #endif
6347 #ifdef _SC_2_PBS_MESSAGE
6348   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS_MESSAGE"), s7_make_integer(sc, (s7_int)_SC_2_PBS_MESSAGE));
6349 #endif
6350 #ifdef _SC_2_PBS_LOCATE
6351   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS_LOCATE"), s7_make_integer(sc, (s7_int)_SC_2_PBS_LOCATE));
6352 #endif
6353 #ifdef _SC_2_PBS_ACCOUNTING
6354   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS_ACCOUNTING"), s7_make_integer(sc, (s7_int)_SC_2_PBS_ACCOUNTING));
6355 #endif
6356 #ifdef _SC_2_PBS
6357   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_PBS"), s7_make_integer(sc, (s7_int)_SC_2_PBS));
6358 #endif
6359 #ifdef _SC_USER_GROUPS_R
6360   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_USER_GROUPS_R"), s7_make_integer(sc, (s7_int)_SC_USER_GROUPS_R));
6361 #endif
6362 #ifdef _SC_USER_GROUPS
6363   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_USER_GROUPS"), s7_make_integer(sc, (s7_int)_SC_USER_GROUPS));
6364 #endif
6365 #ifdef _SC_TYPED_MEMORY_OBJECTS
6366   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TYPED_MEMORY_OBJECTS"), s7_make_integer(sc, (s7_int)_SC_TYPED_MEMORY_OBJECTS));
6367 #endif
6368 #ifdef _SC_TIMEOUTS
6369   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TIMEOUTS"), s7_make_integer(sc, (s7_int)_SC_TIMEOUTS));
6370 #endif
6371 #ifdef _SC_SYSTEM_DATABASE_R
6372   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SYSTEM_DATABASE_R"), s7_make_integer(sc, (s7_int)_SC_SYSTEM_DATABASE_R));
6373 #endif
6374 #ifdef _SC_SYSTEM_DATABASE
6375   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SYSTEM_DATABASE"), s7_make_integer(sc, (s7_int)_SC_SYSTEM_DATABASE));
6376 #endif
6377 #ifdef _SC_THREAD_SPORADIC_SERVER
6378   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_SPORADIC_SERVER"), s7_make_integer(sc, (s7_int)_SC_THREAD_SPORADIC_SERVER));
6379 #endif
6380 #ifdef _SC_SPORADIC_SERVER
6381   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SPORADIC_SERVER"), s7_make_integer(sc, (s7_int)_SC_SPORADIC_SERVER));
6382 #endif
6383 #ifdef _SC_SPAWN
6384   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SPAWN"), s7_make_integer(sc, (s7_int)_SC_SPAWN));
6385 #endif
6386 #ifdef _SC_SIGNALS
6387   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SIGNALS"), s7_make_integer(sc, (s7_int)_SC_SIGNALS));
6388 #endif
6389 #ifdef _SC_SHELL
6390   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SHELL"), s7_make_integer(sc, (s7_int)_SC_SHELL));
6391 #endif
6392 #ifdef _SC_REGEX_VERSION
6393   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_REGEX_VERSION"), s7_make_integer(sc, (s7_int)_SC_REGEX_VERSION));
6394 #endif
6395 #ifdef _SC_REGEXP
6396   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_REGEXP"), s7_make_integer(sc, (s7_int)_SC_REGEXP));
6397 #endif
6398 #ifdef _SC_SPIN_LOCKS
6399   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SPIN_LOCKS"), s7_make_integer(sc, (s7_int)_SC_SPIN_LOCKS));
6400 #endif
6401 #ifdef _SC_READER_WRITER_LOCKS
6402   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_READER_WRITER_LOCKS"), s7_make_integer(sc, (s7_int)_SC_READER_WRITER_LOCKS));
6403 #endif
6404 #ifdef _SC_NETWORKING
6405   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NETWORKING"), s7_make_integer(sc, (s7_int)_SC_NETWORKING));
6406 #endif
6407 #ifdef _SC_SINGLE_PROCESS
6408   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SINGLE_PROCESS"), s7_make_integer(sc, (s7_int)_SC_SINGLE_PROCESS));
6409 #endif
6410 #ifdef _SC_MULTI_PROCESS
6411   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MULTI_PROCESS"), s7_make_integer(sc, (s7_int)_SC_MULTI_PROCESS));
6412 #endif
6413 #ifdef _SC_MONOTONIC_CLOCK
6414   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MONOTONIC_CLOCK"), s7_make_integer(sc, (s7_int)_SC_MONOTONIC_CLOCK));
6415 #endif
6416 #ifdef _SC_FILE_SYSTEM
6417   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FILE_SYSTEM"), s7_make_integer(sc, (s7_int)_SC_FILE_SYSTEM));
6418 #endif
6419 #ifdef _SC_FILE_LOCKING
6420   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FILE_LOCKING"), s7_make_integer(sc, (s7_int)_SC_FILE_LOCKING));
6421 #endif
6422 #ifdef _SC_FILE_ATTRIBUTES
6423   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FILE_ATTRIBUTES"), s7_make_integer(sc, (s7_int)_SC_FILE_ATTRIBUTES));
6424 #endif
6425 #ifdef _SC_PIPE
6426   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PIPE"), s7_make_integer(sc, (s7_int)_SC_PIPE));
6427 #endif
6428 #ifdef _SC_FIFO
6429   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FIFO"), s7_make_integer(sc, (s7_int)_SC_FIFO));
6430 #endif
6431 #ifdef _SC_FD_MGMT
6432   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FD_MGMT"), s7_make_integer(sc, (s7_int)_SC_FD_MGMT));
6433 #endif
6434 #ifdef _SC_DEVICE_SPECIFIC_R
6435   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_DEVICE_SPECIFIC_R"), s7_make_integer(sc, (s7_int)_SC_DEVICE_SPECIFIC_R));
6436 #endif
6437 #ifdef _SC_DEVICE_SPECIFIC
6438   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_DEVICE_SPECIFIC"), s7_make_integer(sc, (s7_int)_SC_DEVICE_SPECIFIC));
6439 #endif
6440 #ifdef _SC_DEVICE_IO
6441   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_DEVICE_IO"), s7_make_integer(sc, (s7_int)_SC_DEVICE_IO));
6442 #endif
6443 #ifdef _SC_THREAD_CPUTIME
6444   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_CPUTIME"), s7_make_integer(sc, (s7_int)_SC_THREAD_CPUTIME));
6445 #endif
6446 #ifdef _SC_CPUTIME
6447   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CPUTIME"), s7_make_integer(sc, (s7_int)_SC_CPUTIME));
6448 #endif
6449 #ifdef _SC_CLOCK_SELECTION
6450   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CLOCK_SELECTION"), s7_make_integer(sc, (s7_int)_SC_CLOCK_SELECTION));
6451 #endif
6452 #ifdef _SC_C_LANG_SUPPORT_R
6453   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_C_LANG_SUPPORT_R"), s7_make_integer(sc, (s7_int)_SC_C_LANG_SUPPORT_R));
6454 #endif
6455 #ifdef _SC_C_LANG_SUPPORT
6456   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_C_LANG_SUPPORT"), s7_make_integer(sc, (s7_int)_SC_C_LANG_SUPPORT));
6457 #endif
6458 #ifdef _SC_BASE
6459   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BASE"), s7_make_integer(sc, (s7_int)_SC_BASE));
6460 #endif
6461 #ifdef _SC_BARRIERS
6462   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BARRIERS"), s7_make_integer(sc, (s7_int)_SC_BARRIERS));
6463 #endif
6464 #ifdef _SC_ADVISORY_INFO
6465   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_ADVISORY_INFO"), s7_make_integer(sc, (s7_int)_SC_ADVISORY_INFO));
6466 #endif
6467 #ifdef _SC_NL_TEXTMAX
6468   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_TEXTMAX"), s7_make_integer(sc, (s7_int)_SC_NL_TEXTMAX));
6469 #endif
6470 #ifdef _SC_NL_SETMAX
6471   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_SETMAX"), s7_make_integer(sc, (s7_int)_SC_NL_SETMAX));
6472 #endif
6473 #ifdef _SC_NL_NMAX
6474   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_NMAX"), s7_make_integer(sc, (s7_int)_SC_NL_NMAX));
6475 #endif
6476 #ifdef _SC_NL_MSGMAX
6477   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_MSGMAX"), s7_make_integer(sc, (s7_int)_SC_NL_MSGMAX));
6478 #endif
6479 #ifdef _SC_NL_LANGMAX
6480   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_LANGMAX"), s7_make_integer(sc, (s7_int)_SC_NL_LANGMAX));
6481 #endif
6482 #ifdef _SC_NL_ARGMAX
6483   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NL_ARGMAX"), s7_make_integer(sc, (s7_int)_SC_NL_ARGMAX));
6484 #endif
6485 #ifdef _SC_USHRT_MAX
6486   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_USHRT_MAX"), s7_make_integer(sc, (s7_int)_SC_USHRT_MAX));
6487 #endif
6488 #ifdef _SC_ULONG_MAX
6489   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_ULONG_MAX"), s7_make_integer(sc, (s7_int)_SC_ULONG_MAX));
6490 #endif
6491 #ifdef _SC_UINT_MAX
6492   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_UINT_MAX"), s7_make_integer(sc, (s7_int)_SC_UINT_MAX));
6493 #endif
6494 #ifdef _SC_UCHAR_MAX
6495   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_UCHAR_MAX"), s7_make_integer(sc, (s7_int)_SC_UCHAR_MAX));
6496 #endif
6497 #ifdef _SC_SHRT_MIN
6498   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SHRT_MIN"), s7_make_integer(sc, (s7_int)_SC_SHRT_MIN));
6499 #endif
6500 #ifdef _SC_SHRT_MAX
6501   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SHRT_MAX"), s7_make_integer(sc, (s7_int)_SC_SHRT_MAX));
6502 #endif
6503 #ifdef _SC_SCHAR_MIN
6504   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SCHAR_MIN"), s7_make_integer(sc, (s7_int)_SC_SCHAR_MIN));
6505 #endif
6506 #ifdef _SC_SCHAR_MAX
6507   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SCHAR_MAX"), s7_make_integer(sc, (s7_int)_SC_SCHAR_MAX));
6508 #endif
6509 #ifdef _SC_SSIZE_MAX
6510   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SSIZE_MAX"), s7_make_integer(sc, (s7_int)_SC_SSIZE_MAX));
6511 #endif
6512 #ifdef _SC_NZERO
6513   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NZERO"), s7_make_integer(sc, (s7_int)_SC_NZERO));
6514 #endif
6515 #ifdef _SC_MB_LEN_MAX
6516   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MB_LEN_MAX"), s7_make_integer(sc, (s7_int)_SC_MB_LEN_MAX));
6517 #endif
6518 #ifdef _SC_WORD_BIT
6519   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_WORD_BIT"), s7_make_integer(sc, (s7_int)_SC_WORD_BIT));
6520 #endif
6521 #ifdef _SC_LONG_BIT
6522   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LONG_BIT"), s7_make_integer(sc, (s7_int)_SC_LONG_BIT));
6523 #endif
6524 #ifdef _SC_INT_MIN
6525   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_INT_MIN"), s7_make_integer(sc, (s7_int)_SC_INT_MIN));
6526 #endif
6527 #ifdef _SC_INT_MAX
6528   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_INT_MAX"), s7_make_integer(sc, (s7_int)_SC_INT_MAX));
6529 #endif
6530 #ifdef _SC_CHAR_MIN
6531   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CHAR_MIN"), s7_make_integer(sc, (s7_int)_SC_CHAR_MIN));
6532 #endif
6533 #ifdef _SC_CHAR_MAX
6534   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CHAR_MAX"), s7_make_integer(sc, (s7_int)_SC_CHAR_MAX));
6535 #endif
6536 #ifdef _SC_CHAR_BIT
6537   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CHAR_BIT"), s7_make_integer(sc, (s7_int)_SC_CHAR_BIT));
6538 #endif
6539 #ifdef _SC_2_UPE
6540   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_UPE"), s7_make_integer(sc, (s7_int)_SC_2_UPE));
6541 #endif
6542 #ifdef _SC_2_C_VERSION
6543   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_C_VERSION"), s7_make_integer(sc, (s7_int)_SC_2_C_VERSION));
6544 #endif
6545 #ifdef _SC_2_CHAR_TERM
6546   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_CHAR_TERM"), s7_make_integer(sc, (s7_int)_SC_2_CHAR_TERM));
6547 #endif
6548 #ifdef _SC_PASS_MAX
6549   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PASS_MAX"), s7_make_integer(sc, (s7_int)_SC_PASS_MAX));
6550 #endif
6551 #ifdef _SC_ATEXIT_MAX
6552   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_ATEXIT_MAX"), s7_make_integer(sc, (s7_int)_SC_ATEXIT_MAX));
6553 #endif
6554 #ifdef _SC_AVPHYS_PAGES
6555   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_AVPHYS_PAGES"), s7_make_integer(sc, (s7_int)_SC_AVPHYS_PAGES));
6556 #endif
6557 #ifdef _SC_PHYS_PAGES
6558   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PHYS_PAGES"), s7_make_integer(sc, (s7_int)_SC_PHYS_PAGES));
6559 #endif
6560 #ifdef _SC_NPROCESSORS_ONLN
6561   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NPROCESSORS_ONLN"), s7_make_integer(sc, (s7_int)_SC_NPROCESSORS_ONLN));
6562 #endif
6563 #ifdef _SC_NPROCESSORS_CONF
6564   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NPROCESSORS_CONF"), s7_make_integer(sc, (s7_int)_SC_NPROCESSORS_CONF));
6565 #endif
6566 #ifdef _SC_THREAD_PROCESS_SHARED
6567   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_PROCESS_SHARED"), s7_make_integer(sc, (s7_int)_SC_THREAD_PROCESS_SHARED));
6568 #endif
6569 #ifdef _SC_THREAD_PRIO_PROTECT
6570   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_PRIO_PROTECT"), s7_make_integer(sc, (s7_int)_SC_THREAD_PRIO_PROTECT));
6571 #endif
6572 #ifdef _SC_THREAD_PRIO_INHERIT
6573   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_PRIO_INHERIT"), s7_make_integer(sc, (s7_int)_SC_THREAD_PRIO_INHERIT));
6574 #endif
6575 #ifdef _SC_THREAD_ATTR_STACKSIZE
6576   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_ATTR_STACKSIZE"), s7_make_integer(sc, (s7_int)_SC_THREAD_ATTR_STACKSIZE));
6577 #endif
6578 #ifdef _SC_THREAD_ATTR_STACKADDR
6579   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_ATTR_STACKADDR"), s7_make_integer(sc, (s7_int)_SC_THREAD_ATTR_STACKADDR));
6580 #endif
6581 #ifdef _SC_THREAD_THREADS_MAX
6582   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_THREADS_MAX"), s7_make_integer(sc, (s7_int)_SC_THREAD_THREADS_MAX));
6583 #endif
6584 #ifdef _SC_THREAD_STACK_MIN
6585   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_STACK_MIN"), s7_make_integer(sc, (s7_int)_SC_THREAD_STACK_MIN));
6586 #endif
6587 #ifdef _SC_THREAD_KEYS_MAX
6588   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_KEYS_MAX"), s7_make_integer(sc, (s7_int)_SC_THREAD_KEYS_MAX));
6589 #endif
6590 #ifdef _SC_THREAD_DESTRUCTOR_ITERATIONS
6591   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_DESTRUCTOR_ITERATIONS"), s7_make_integer(sc, (s7_int)_SC_THREAD_DESTRUCTOR_ITERATIONS));
6592 #endif
6593 #ifdef _SC_TTY_NAME_MAX
6594   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TTY_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_TTY_NAME_MAX));
6595 #endif
6596 #ifdef _SC_LOGIN_NAME_MAX
6597   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LOGIN_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_LOGIN_NAME_MAX));
6598 #endif
6599 #ifdef _SC_GETPW_R_SIZE_MAX
6600   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_GETPW_R_SIZE_MAX"), s7_make_integer(sc, (s7_int)_SC_GETPW_R_SIZE_MAX));
6601 #endif
6602 #ifdef _SC_GETGR_R_SIZE_MAX
6603   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_GETGR_R_SIZE_MAX"), s7_make_integer(sc, (s7_int)_SC_GETGR_R_SIZE_MAX));
6604 #endif
6605 #ifdef _SC_THREAD_SAFE_FUNCTIONS
6606   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREAD_SAFE_FUNCTIONS"), s7_make_integer(sc, (s7_int)_SC_THREAD_SAFE_FUNCTIONS));
6607 #endif
6608 #ifdef _SC_THREADS
6609   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_THREADS"), s7_make_integer(sc, (s7_int)_SC_THREADS));
6610 #endif
6611 #ifdef _SC_T_IOV_MAX
6612   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_T_IOV_MAX"), s7_make_integer(sc, (s7_int)_SC_T_IOV_MAX));
6613 #endif
6614 #ifdef _SC_PII_OSI_M
6615   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_OSI_M"), s7_make_integer(sc, (s7_int)_SC_PII_OSI_M));
6616 #endif
6617 #ifdef _SC_PII_OSI_CLTS
6618   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_OSI_CLTS"), s7_make_integer(sc, (s7_int)_SC_PII_OSI_CLTS));
6619 #endif
6620 #ifdef _SC_PII_OSI_COTS
6621   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_OSI_COTS"), s7_make_integer(sc, (s7_int)_SC_PII_OSI_COTS));
6622 #endif
6623 #ifdef _SC_PII_INTERNET_DGRAM
6624   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_INTERNET_DGRAM"), s7_make_integer(sc, (s7_int)_SC_PII_INTERNET_DGRAM));
6625 #endif
6626 #ifdef _SC_PII_INTERNET_STREAM
6627   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_INTERNET_STREAM"), s7_make_integer(sc, (s7_int)_SC_PII_INTERNET_STREAM));
6628 #endif
6629 #ifdef _SC_IOV_MAX
6630   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_IOV_MAX"), s7_make_integer(sc, (s7_int)_SC_IOV_MAX));
6631 #endif
6632 #ifdef _SC_UIO_MAXIOV
6633   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_UIO_MAXIOV"), s7_make_integer(sc, (s7_int)_SC_UIO_MAXIOV));
6634 #endif
6635 #ifdef _SC_SELECT
6636   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SELECT"), s7_make_integer(sc, (s7_int)_SC_SELECT));
6637 #endif
6638 #ifdef _SC_POLL
6639   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_POLL"), s7_make_integer(sc, (s7_int)_SC_POLL));
6640 #endif
6641 #ifdef _SC_PII_OSI
6642   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_OSI"), s7_make_integer(sc, (s7_int)_SC_PII_OSI));
6643 #endif
6644 #ifdef _SC_PII_INTERNET
6645   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_INTERNET"), s7_make_integer(sc, (s7_int)_SC_PII_INTERNET));
6646 #endif
6647 #ifdef _SC_PII_SOCKET
6648   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_SOCKET"), s7_make_integer(sc, (s7_int)_SC_PII_SOCKET));
6649 #endif
6650 #ifdef _SC_PII_XTI
6651   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII_XTI"), s7_make_integer(sc, (s7_int)_SC_PII_XTI));
6652 #endif
6653 #ifdef _SC_PII
6654   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PII"), s7_make_integer(sc, (s7_int)_SC_PII));
6655 #endif
6656 #ifdef _SC_2_LOCALEDEF
6657   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_LOCALEDEF"), s7_make_integer(sc, (s7_int)_SC_2_LOCALEDEF));
6658 #endif
6659 #ifdef _SC_2_SW_DEV
6660   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_SW_DEV"), s7_make_integer(sc, (s7_int)_SC_2_SW_DEV));
6661 #endif
6662 #ifdef _SC_2_FORT_RUN
6663   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_FORT_RUN"), s7_make_integer(sc, (s7_int)_SC_2_FORT_RUN));
6664 #endif
6665 #ifdef _SC_2_FORT_DEV
6666   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_FORT_DEV"), s7_make_integer(sc, (s7_int)_SC_2_FORT_DEV));
6667 #endif
6668 #ifdef _SC_2_C_DEV
6669   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_C_DEV"), s7_make_integer(sc, (s7_int)_SC_2_C_DEV));
6670 #endif
6671 #ifdef _SC_2_C_BIND
6672   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_C_BIND"), s7_make_integer(sc, (s7_int)_SC_2_C_BIND));
6673 #endif
6674 #ifdef _SC_2_VERSION
6675   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_2_VERSION"), s7_make_integer(sc, (s7_int)_SC_2_VERSION));
6676 #endif
6677 #ifdef _SC_CHARCLASS_NAME_MAX
6678   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CHARCLASS_NAME_MAX"), s7_make_integer(sc, (s7_int)_SC_CHARCLASS_NAME_MAX));
6679 #endif
6680 #ifdef _SC_RE_DUP_MAX
6681   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_RE_DUP_MAX"), s7_make_integer(sc, (s7_int)_SC_RE_DUP_MAX));
6682 #endif
6683 #ifdef _SC_LINE_MAX
6684   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_LINE_MAX"), s7_make_integer(sc, (s7_int)_SC_LINE_MAX));
6685 #endif
6686 #ifdef _SC_EXPR_NEST_MAX
6687   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_EXPR_NEST_MAX"), s7_make_integer(sc, (s7_int)_SC_EXPR_NEST_MAX));
6688 #endif
6689 #ifdef _SC_EQUIV_CLASS_MAX
6690   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_EQUIV_CLASS_MAX"), s7_make_integer(sc, (s7_int)_SC_EQUIV_CLASS_MAX));
6691 #endif
6692 #ifdef _SC_COLL_WEIGHTS_MAX
6693   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_COLL_WEIGHTS_MAX"), s7_make_integer(sc, (s7_int)_SC_COLL_WEIGHTS_MAX));
6694 #endif
6695 #ifdef _SC_BC_STRING_MAX
6696   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BC_STRING_MAX"), s7_make_integer(sc, (s7_int)_SC_BC_STRING_MAX));
6697 #endif
6698 #ifdef _SC_BC_SCALE_MAX
6699   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BC_SCALE_MAX"), s7_make_integer(sc, (s7_int)_SC_BC_SCALE_MAX));
6700 #endif
6701 #ifdef _SC_BC_DIM_MAX
6702   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BC_DIM_MAX"), s7_make_integer(sc, (s7_int)_SC_BC_DIM_MAX));
6703 #endif
6704 #ifdef _SC_BC_BASE_MAX
6705   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_BC_BASE_MAX"), s7_make_integer(sc, (s7_int)_SC_BC_BASE_MAX));
6706 #endif
6707 #ifdef _SC_TIMER_MAX
6708   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TIMER_MAX"), s7_make_integer(sc, (s7_int)_SC_TIMER_MAX));
6709 #endif
6710 #ifdef _SC_SIGQUEUE_MAX
6711   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SIGQUEUE_MAX"), s7_make_integer(sc, (s7_int)_SC_SIGQUEUE_MAX));
6712 #endif
6713 #ifdef _SC_SEM_VALUE_MAX
6714   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SEM_VALUE_MAX"), s7_make_integer(sc, (s7_int)_SC_SEM_VALUE_MAX));
6715 #endif
6716 #ifdef _SC_SEM_NSEMS_MAX
6717   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SEM_NSEMS_MAX"), s7_make_integer(sc, (s7_int)_SC_SEM_NSEMS_MAX));
6718 #endif
6719 #ifdef _SC_RTSIG_MAX
6720   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_RTSIG_MAX"), s7_make_integer(sc, (s7_int)_SC_RTSIG_MAX));
6721 #endif
6722 #ifdef _SC_PAGE_SIZE
6723   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PAGE_SIZE"), s7_make_integer(sc, (s7_int)_SC_PAGE_SIZE));
6724 #endif
6725 #ifdef _SC_PAGESIZE
6726   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PAGESIZE"), s7_make_integer(sc, (s7_int)_SC_PAGESIZE));
6727 #endif
6728 #ifdef _SC_VERSION
6729   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_VERSION"), s7_make_integer(sc, (s7_int)_SC_VERSION));
6730 #endif
6731 #ifdef _SC_MQ_PRIO_MAX
6732   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MQ_PRIO_MAX"), s7_make_integer(sc, (s7_int)_SC_MQ_PRIO_MAX));
6733 #endif
6734 #ifdef _SC_MQ_OPEN_MAX
6735   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MQ_OPEN_MAX"), s7_make_integer(sc, (s7_int)_SC_MQ_OPEN_MAX));
6736 #endif
6737 #ifdef _SC_DELAYTIMER_MAX
6738   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_DELAYTIMER_MAX"), s7_make_integer(sc, (s7_int)_SC_DELAYTIMER_MAX));
6739 #endif
6740 #ifdef _SC_AIO_PRIO_DELTA_MAX
6741   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_AIO_PRIO_DELTA_MAX"), s7_make_integer(sc, (s7_int)_SC_AIO_PRIO_DELTA_MAX));
6742 #endif
6743 #ifdef _SC_AIO_MAX
6744   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_AIO_MAX"), s7_make_integer(sc, (s7_int)_SC_AIO_MAX));
6745 #endif
6746 #ifdef _SC_AIO_LISTIO_MAX
6747   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_AIO_LISTIO_MAX"), s7_make_integer(sc, (s7_int)_SC_AIO_LISTIO_MAX));
6748 #endif
6749 #ifdef _SC_SHARED_MEMORY_OBJECTS
6750   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SHARED_MEMORY_OBJECTS"), s7_make_integer(sc, (s7_int)_SC_SHARED_MEMORY_OBJECTS));
6751 #endif
6752 #ifdef _SC_SEMAPHORES
6753   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SEMAPHORES"), s7_make_integer(sc, (s7_int)_SC_SEMAPHORES));
6754 #endif
6755 #ifdef _SC_MESSAGE_PASSING
6756   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MESSAGE_PASSING"), s7_make_integer(sc, (s7_int)_SC_MESSAGE_PASSING));
6757 #endif
6758 #ifdef _SC_MEMORY_PROTECTION
6759   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MEMORY_PROTECTION"), s7_make_integer(sc, (s7_int)_SC_MEMORY_PROTECTION));
6760 #endif
6761 #ifdef _SC_MEMLOCK_RANGE
6762   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MEMLOCK_RANGE"), s7_make_integer(sc, (s7_int)_SC_MEMLOCK_RANGE));
6763 #endif
6764 #ifdef _SC_MEMLOCK
6765   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MEMLOCK"), s7_make_integer(sc, (s7_int)_SC_MEMLOCK));
6766 #endif
6767 #ifdef _SC_MAPPED_FILES
6768   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_MAPPED_FILES"), s7_make_integer(sc, (s7_int)_SC_MAPPED_FILES));
6769 #endif
6770 #ifdef _SC_FSYNC
6771   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_FSYNC"), s7_make_integer(sc, (s7_int)_SC_FSYNC));
6772 #endif
6773 #ifdef _SC_SYNCHRONIZED_IO
6774   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SYNCHRONIZED_IO"), s7_make_integer(sc, (s7_int)_SC_SYNCHRONIZED_IO));
6775 #endif
6776 #ifdef _SC_PRIORITIZED_IO
6777   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PRIORITIZED_IO"), s7_make_integer(sc, (s7_int)_SC_PRIORITIZED_IO));
6778 #endif
6779 #ifdef _SC_ASYNCHRONOUS_IO
6780   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_ASYNCHRONOUS_IO"), s7_make_integer(sc, (s7_int)_SC_ASYNCHRONOUS_IO));
6781 #endif
6782 #ifdef _SC_TIMERS
6783   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TIMERS"), s7_make_integer(sc, (s7_int)_SC_TIMERS));
6784 #endif
6785 #ifdef _SC_PRIORITY_SCHEDULING
6786   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_PRIORITY_SCHEDULING"), s7_make_integer(sc, (s7_int)_SC_PRIORITY_SCHEDULING));
6787 #endif
6788 #ifdef _SC_REALTIME_SIGNALS
6789   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_REALTIME_SIGNALS"), s7_make_integer(sc, (s7_int)_SC_REALTIME_SIGNALS));
6790 #endif
6791 #ifdef _SC_SAVED_IDS
6792   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_SAVED_IDS"), s7_make_integer(sc, (s7_int)_SC_SAVED_IDS));
6793 #endif
6794 #ifdef _SC_JOB_CONTROL
6795   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_JOB_CONTROL"), s7_make_integer(sc, (s7_int)_SC_JOB_CONTROL));
6796 #endif
6797 #ifdef _SC_TZNAME_MAX
6798   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_TZNAME_MAX"), s7_make_integer(sc, (s7_int)_SC_TZNAME_MAX));
6799 #endif
6800 #ifdef _SC_STREAM_MAX
6801   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_STREAM_MAX"), s7_make_integer(sc, (s7_int)_SC_STREAM_MAX));
6802 #endif
6803 #ifdef _SC_OPEN_MAX
6804   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_OPEN_MAX"), s7_make_integer(sc, (s7_int)_SC_OPEN_MAX));
6805 #endif
6806 #ifdef _SC_NGROUPS_MAX
6807   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_NGROUPS_MAX"), s7_make_integer(sc, (s7_int)_SC_NGROUPS_MAX));
6808 #endif
6809 #ifdef _SC_CLK_TCK
6810   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CLK_TCK"), s7_make_integer(sc, (s7_int)_SC_CLK_TCK));
6811 #endif
6812 #ifdef _SC_CHILD_MAX
6813   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_CHILD_MAX"), s7_make_integer(sc, (s7_int)_SC_CHILD_MAX));
6814 #endif
6815 #ifdef _SC_ARG_MAX
6816   s7_define(sc, cur_env, s7_make_symbol(sc, "_SC_ARG_MAX"), s7_make_integer(sc, (s7_int)_SC_ARG_MAX));
6817 #endif
6818 #ifdef _PC_2_SYMLINKS
6819   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_2_SYMLINKS"), s7_make_integer(sc, (s7_int)_PC_2_SYMLINKS));
6820 #endif
6821 #ifdef _PC_SYMLINK_MAX
6822   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_SYMLINK_MAX"), s7_make_integer(sc, (s7_int)_PC_SYMLINK_MAX));
6823 #endif
6824 #ifdef _PC_ALLOC_SIZE_MIN
6825   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_ALLOC_SIZE_MIN"), s7_make_integer(sc, (s7_int)_PC_ALLOC_SIZE_MIN));
6826 #endif
6827 #ifdef _PC_REC_XFER_ALIGN
6828   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_REC_XFER_ALIGN"), s7_make_integer(sc, (s7_int)_PC_REC_XFER_ALIGN));
6829 #endif
6830 #ifdef _PC_REC_MIN_XFER_SIZE
6831   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_REC_MIN_XFER_SIZE"), s7_make_integer(sc, (s7_int)_PC_REC_MIN_XFER_SIZE));
6832 #endif
6833 #ifdef _PC_REC_MAX_XFER_SIZE
6834   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_REC_MAX_XFER_SIZE"), s7_make_integer(sc, (s7_int)_PC_REC_MAX_XFER_SIZE));
6835 #endif
6836 #ifdef _PC_REC_INCR_XFER_SIZE
6837   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_REC_INCR_XFER_SIZE"), s7_make_integer(sc, (s7_int)_PC_REC_INCR_XFER_SIZE));
6838 #endif
6839 #ifdef _PC_FILESIZEBITS
6840   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_FILESIZEBITS"), s7_make_integer(sc, (s7_int)_PC_FILESIZEBITS));
6841 #endif
6842 #ifdef _PC_SOCK_MAXBUF
6843   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_SOCK_MAXBUF"), s7_make_integer(sc, (s7_int)_PC_SOCK_MAXBUF));
6844 #endif
6845 #ifdef _PC_PRIO_IO
6846   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_PRIO_IO"), s7_make_integer(sc, (s7_int)_PC_PRIO_IO));
6847 #endif
6848 #ifdef _PC_ASYNC_IO
6849   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_ASYNC_IO"), s7_make_integer(sc, (s7_int)_PC_ASYNC_IO));
6850 #endif
6851 #ifdef _PC_SYNC_IO
6852   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_SYNC_IO"), s7_make_integer(sc, (s7_int)_PC_SYNC_IO));
6853 #endif
6854 #ifdef _PC_VDISABLE
6855   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_VDISABLE"), s7_make_integer(sc, (s7_int)_PC_VDISABLE));
6856 #endif
6857 #ifdef _PC_NO_TRUNC
6858   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_NO_TRUNC"), s7_make_integer(sc, (s7_int)_PC_NO_TRUNC));
6859 #endif
6860 #ifdef _PC_CHOWN_RESTRICTED
6861   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_CHOWN_RESTRICTED"), s7_make_integer(sc, (s7_int)_PC_CHOWN_RESTRICTED));
6862 #endif
6863 #ifdef _PC_PIPE_BUF
6864   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_PIPE_BUF"), s7_make_integer(sc, (s7_int)_PC_PIPE_BUF));
6865 #endif
6866 #ifdef _PC_PATH_MAX
6867   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_PATH_MAX"), s7_make_integer(sc, (s7_int)_PC_PATH_MAX));
6868 #endif
6869 #ifdef _PC_NAME_MAX
6870   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_NAME_MAX"), s7_make_integer(sc, (s7_int)_PC_NAME_MAX));
6871 #endif
6872 #ifdef _PC_MAX_INPUT
6873   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_MAX_INPUT"), s7_make_integer(sc, (s7_int)_PC_MAX_INPUT));
6874 #endif
6875 #ifdef _PC_MAX_CANON
6876   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_MAX_CANON"), s7_make_integer(sc, (s7_int)_PC_MAX_CANON));
6877 #endif
6878 #ifdef _PC_LINK_MAX
6879   s7_define(sc, cur_env, s7_make_symbol(sc, "_PC_LINK_MAX"), s7_make_integer(sc, (s7_int)_PC_LINK_MAX));
6880 #endif
6881 #ifdef STDERR_FILENO
6882   s7_define(sc, cur_env, s7_make_symbol(sc, "STDERR_FILENO"), s7_make_integer(sc, (s7_int)STDERR_FILENO));
6883 #endif
6884 #ifdef STDOUT_FILENO
6885   s7_define(sc, cur_env, s7_make_symbol(sc, "STDOUT_FILENO"), s7_make_integer(sc, (s7_int)STDOUT_FILENO));
6886 #endif
6887 #ifdef STDIN_FILENO
6888   s7_define(sc, cur_env, s7_make_symbol(sc, "STDIN_FILENO"), s7_make_integer(sc, (s7_int)STDIN_FILENO));
6889 #endif
6890 #ifdef _POSIX_TYPED_MEMORY_OBJECTS
6891   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TYPED_MEMORY_OBJECTS"), s7_make_integer(sc, (s7_int)_POSIX_TYPED_MEMORY_OBJECTS));
6892 #endif
6893 #ifdef _POSIX_TRACE_LOG
6894   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TRACE_LOG"), s7_make_integer(sc, (s7_int)_POSIX_TRACE_LOG));
6895 #endif
6896 #ifdef _POSIX_TRACE_INHERIT
6897   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TRACE_INHERIT"), s7_make_integer(sc, (s7_int)_POSIX_TRACE_INHERIT));
6898 #endif
6899 #ifdef _POSIX_TRACE_EVENT_FILTER
6900   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TRACE_EVENT_FILTER"), s7_make_integer(sc, (s7_int)_POSIX_TRACE_EVENT_FILTER));
6901 #endif
6902 #ifdef _POSIX_TRACE
6903   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TRACE"), s7_make_integer(sc, (s7_int)_POSIX_TRACE));
6904 #endif
6905 #ifdef _POSIX_THREAD_SPORADIC_SERVER
6906   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_SPORADIC_SERVER"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_SPORADIC_SERVER));
6907 #endif
6908 #ifdef _POSIX_SPORADIC_SERVER
6909   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SPORADIC_SERVER"), s7_make_integer(sc, (s7_int)_POSIX_SPORADIC_SERVER));
6910 #endif
6911 #ifdef _POSIX2_CHAR_TERM
6912   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_CHAR_TERM"), s7_make_integer(sc, (s7_int)_POSIX2_CHAR_TERM));
6913 #endif
6914 #ifdef _POSIX_RAW_SOCKETS
6915   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_RAW_SOCKETS"), s7_make_integer(sc, (s7_int)_POSIX_RAW_SOCKETS));
6916 #endif
6917 #ifdef _POSIX_IPV6
6918   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_IPV6"), s7_make_integer(sc, (s7_int)_POSIX_IPV6));
6919 #endif
6920 #ifdef _POSIX_ADVISORY_INFO
6921   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_ADVISORY_INFO"), s7_make_integer(sc, (s7_int)_POSIX_ADVISORY_INFO));
6922 #endif
6923 #ifdef _POSIX_CLOCK_SELECTION
6924   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_CLOCK_SELECTION"), s7_make_integer(sc, (s7_int)_POSIX_CLOCK_SELECTION));
6925 #endif
6926 #ifdef _POSIX_MONOTONIC_CLOCK
6927   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MONOTONIC_CLOCK"), s7_make_integer(sc, (s7_int)_POSIX_MONOTONIC_CLOCK));
6928 #endif
6929 #ifdef _POSIX_THREAD_PROCESS_SHARED
6930   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_PROCESS_SHARED"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_PROCESS_SHARED));
6931 #endif
6932 #ifdef _POSIX_MESSAGE_PASSING
6933   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MESSAGE_PASSING"), s7_make_integer(sc, (s7_int)_POSIX_MESSAGE_PASSING));
6934 #endif
6935 #ifdef _POSIX_BARRIERS
6936   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_BARRIERS"), s7_make_integer(sc, (s7_int)_POSIX_BARRIERS));
6937 #endif
6938 #ifdef _POSIX_TIMERS
6939   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TIMERS"), s7_make_integer(sc, (s7_int)_POSIX_TIMERS));
6940 #endif
6941 #ifdef _POSIX_SPAWN
6942   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SPAWN"), s7_make_integer(sc, (s7_int)_POSIX_SPAWN));
6943 #endif
6944 #ifdef _POSIX_SPIN_LOCKS
6945   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SPIN_LOCKS"), s7_make_integer(sc, (s7_int)_POSIX_SPIN_LOCKS));
6946 #endif
6947 #ifdef _POSIX_TIMEOUTS
6948   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TIMEOUTS"), s7_make_integer(sc, (s7_int)_POSIX_TIMEOUTS));
6949 #endif
6950 #ifdef _POSIX_SHELL
6951   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SHELL"), s7_make_integer(sc, (s7_int)_POSIX_SHELL));
6952 #endif
6953 #ifdef _POSIX_READER_WRITER_LOCKS
6954   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_READER_WRITER_LOCKS"), s7_make_integer(sc, (s7_int)_POSIX_READER_WRITER_LOCKS));
6955 #endif
6956 #ifdef _POSIX_REGEXP
6957   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_REGEXP"), s7_make_integer(sc, (s7_int)_POSIX_REGEXP));
6958 #endif
6959 #ifdef _POSIX_THREAD_CPUTIME
6960   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_CPUTIME"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_CPUTIME));
6961 #endif
6962 #ifdef _POSIX_CPUTIME
6963   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_CPUTIME"), s7_make_integer(sc, (s7_int)_POSIX_CPUTIME));
6964 #endif
6965 #ifdef _POSIX_SHARED_MEMORY_OBJECTS
6966   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SHARED_MEMORY_OBJECTS"), s7_make_integer(sc, (s7_int)_POSIX_SHARED_MEMORY_OBJECTS));
6967 #endif
6968 #ifdef _POSIX_PRIORITIZED_IO
6969   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_PRIORITIZED_IO"), s7_make_integer(sc, (s7_int)_POSIX_PRIORITIZED_IO));
6970 #endif
6971 #ifdef _POSIX_ASYNC_IO
6972   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_ASYNC_IO"), s7_make_integer(sc, (s7_int)_POSIX_ASYNC_IO));
6973 #endif
6974 #ifdef _POSIX_ASYNCHRONOUS_IO
6975   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_ASYNCHRONOUS_IO"), s7_make_integer(sc, (s7_int)_POSIX_ASYNCHRONOUS_IO));
6976 #endif
6977 #ifdef _POSIX_REALTIME_SIGNALS
6978   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_REALTIME_SIGNALS"), s7_make_integer(sc, (s7_int)_POSIX_REALTIME_SIGNALS));
6979 #endif
6980 #ifdef _POSIX_SEMAPHORES
6981   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SEMAPHORES"), s7_make_integer(sc, (s7_int)_POSIX_SEMAPHORES));
6982 #endif
6983 #ifdef _POSIX_THREAD_PRIO_PROTECT
6984   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_PRIO_PROTECT"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_PRIO_PROTECT));
6985 #endif
6986 #ifdef _POSIX_THREAD_PRIO_INHERIT
6987   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_PRIO_INHERIT"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_PRIO_INHERIT));
6988 #endif
6989 #ifdef _POSIX_THREAD_ATTR_STACKADDR
6990   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_ATTR_STACKADDR"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_ATTR_STACKADDR));
6991 #endif
6992 #ifdef _POSIX_THREAD_ATTR_STACKSIZE
6993   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_ATTR_STACKSIZE"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_ATTR_STACKSIZE));
6994 #endif
6995 #ifdef _POSIX_THREAD_PRIORITY_SCHEDULING
6996   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_PRIORITY_SCHEDULING"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_PRIORITY_SCHEDULING));
6997 #endif
6998 #ifdef _POSIX_THREAD_SAFE_FUNCTIONS
6999   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREAD_SAFE_FUNCTIONS"), s7_make_integer(sc, (s7_int)_POSIX_THREAD_SAFE_FUNCTIONS));
7000 #endif
7001 #ifdef _POSIX_REENTRANT_FUNCTIONS
7002   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_REENTRANT_FUNCTIONS"), s7_make_integer(sc, (s7_int)_POSIX_REENTRANT_FUNCTIONS));
7003 #endif
7004 #ifdef _POSIX_THREADS
7005   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_THREADS"), s7_make_integer(sc, (s7_int)_POSIX_THREADS));
7006 #endif
7007 #ifdef _POSIX_NO_TRUNC
7008   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_NO_TRUNC"), s7_make_integer(sc, (s7_int)_POSIX_NO_TRUNC));
7009 #endif
7010 #ifdef _POSIX_VDISABLE
7011   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_VDISABLE"), s7_make_integer(sc, (s7_int)_POSIX_VDISABLE));
7012 #endif
7013 #ifdef _POSIX_CHOWN_RESTRICTED
7014   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_CHOWN_RESTRICTED"), s7_make_integer(sc, (s7_int)_POSIX_CHOWN_RESTRICTED));
7015 #endif
7016 #ifdef _POSIX_MEMORY_PROTECTION
7017   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MEMORY_PROTECTION"), s7_make_integer(sc, (s7_int)_POSIX_MEMORY_PROTECTION));
7018 #endif
7019 #ifdef _POSIX_MEMLOCK_RANGE
7020   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MEMLOCK_RANGE"), s7_make_integer(sc, (s7_int)_POSIX_MEMLOCK_RANGE));
7021 #endif
7022 #ifdef _POSIX_MEMLOCK
7023   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MEMLOCK"), s7_make_integer(sc, (s7_int)_POSIX_MEMLOCK));
7024 #endif
7025 #ifdef _POSIX_MAPPED_FILES
7026   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MAPPED_FILES"), s7_make_integer(sc, (s7_int)_POSIX_MAPPED_FILES));
7027 #endif
7028 #ifdef _POSIX_FSYNC
7029   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_FSYNC"), s7_make_integer(sc, (s7_int)_POSIX_FSYNC));
7030 #endif
7031 #ifdef _POSIX_SYNCHRONIZED_IO
7032   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SYNCHRONIZED_IO"), s7_make_integer(sc, (s7_int)_POSIX_SYNCHRONIZED_IO));
7033 #endif
7034 #ifdef _POSIX_PRIORITY_SCHEDULING
7035   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_PRIORITY_SCHEDULING"), s7_make_integer(sc, (s7_int)_POSIX_PRIORITY_SCHEDULING));
7036 #endif
7037 #ifdef _POSIX_SAVED_IDS
7038   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SAVED_IDS"), s7_make_integer(sc, (s7_int)_POSIX_SAVED_IDS));
7039 #endif
7040 #ifdef _POSIX_JOB_CONTROL
7041   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_JOB_CONTROL"), s7_make_integer(sc, (s7_int)_POSIX_JOB_CONTROL));
7042 #endif
7043 #ifdef _POSIX2_VERSION
7044   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_VERSION"), s7_make_integer(sc, (s7_int)_POSIX2_VERSION));
7045 #endif
7046 #ifdef _POSIX_VERSION
7047   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_VERSION"), s7_make_integer(sc, (s7_int)_POSIX_VERSION));
7048 #endif
7049 #ifdef LC_IDENTIFICATION
7050   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_IDENTIFICATION"), s7_make_integer(sc, (s7_int)LC_IDENTIFICATION));
7051 #endif
7052 #ifdef LC_MEASUREMENT
7053   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_MEASUREMENT"), s7_make_integer(sc, (s7_int)LC_MEASUREMENT));
7054 #endif
7055 #ifdef LC_TELEPHONE
7056   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_TELEPHONE"), s7_make_integer(sc, (s7_int)LC_TELEPHONE));
7057 #endif
7058 #ifdef LC_ADDRESS
7059   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_ADDRESS"), s7_make_integer(sc, (s7_int)LC_ADDRESS));
7060 #endif
7061 #ifdef LC_NAME
7062   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_NAME"), s7_make_integer(sc, (s7_int)LC_NAME));
7063 #endif
7064 #ifdef LC_PAPER
7065   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_PAPER"), s7_make_integer(sc, (s7_int)LC_PAPER));
7066 #endif
7067 #ifdef LC_ALL
7068   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_ALL"), s7_make_integer(sc, (s7_int)LC_ALL));
7069 #endif
7070 #ifdef LC_MESSAGES
7071   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_MESSAGES"), s7_make_integer(sc, (s7_int)LC_MESSAGES));
7072 #endif
7073 #ifdef LC_MONETARY
7074   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_MONETARY"), s7_make_integer(sc, (s7_int)LC_MONETARY));
7075 #endif
7076 #ifdef LC_COLLATE
7077   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_COLLATE"), s7_make_integer(sc, (s7_int)LC_COLLATE));
7078 #endif
7079 #ifdef LC_TIME
7080   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_TIME"), s7_make_integer(sc, (s7_int)LC_TIME));
7081 #endif
7082 #ifdef LC_NUMERIC
7083   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_NUMERIC"), s7_make_integer(sc, (s7_int)LC_NUMERIC));
7084 #endif
7085 #ifdef LC_CTYPE
7086   s7_define(sc, cur_env, s7_make_symbol(sc, "LC_CTYPE"), s7_make_integer(sc, (s7_int)LC_CTYPE));
7087 #endif
7088 #ifdef ERANGE
7089   s7_define(sc, cur_env, s7_make_symbol(sc, "ERANGE"), s7_make_integer(sc, (s7_int)ERANGE));
7090 #endif
7091 #ifdef EDOM
7092   s7_define(sc, cur_env, s7_make_symbol(sc, "EDOM"), s7_make_integer(sc, (s7_int)EDOM));
7093 #endif
7094 #ifdef EPIPE
7095   s7_define(sc, cur_env, s7_make_symbol(sc, "EPIPE"), s7_make_integer(sc, (s7_int)EPIPE));
7096 #endif
7097 #ifdef EMLINK
7098   s7_define(sc, cur_env, s7_make_symbol(sc, "EMLINK"), s7_make_integer(sc, (s7_int)EMLINK));
7099 #endif
7100 #ifdef EROFS
7101   s7_define(sc, cur_env, s7_make_symbol(sc, "EROFS"), s7_make_integer(sc, (s7_int)EROFS));
7102 #endif
7103 #ifdef ESPIPE
7104   s7_define(sc, cur_env, s7_make_symbol(sc, "ESPIPE"), s7_make_integer(sc, (s7_int)ESPIPE));
7105 #endif
7106 #ifdef ENOSPC
7107   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOSPC"), s7_make_integer(sc, (s7_int)ENOSPC));
7108 #endif
7109 #ifdef EFBIG
7110   s7_define(sc, cur_env, s7_make_symbol(sc, "EFBIG"), s7_make_integer(sc, (s7_int)EFBIG));
7111 #endif
7112 #ifdef ETXTBSY
7113   s7_define(sc, cur_env, s7_make_symbol(sc, "ETXTBSY"), s7_make_integer(sc, (s7_int)ETXTBSY));
7114 #endif
7115 #ifdef ENOTTY
7116   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOTTY"), s7_make_integer(sc, (s7_int)ENOTTY));
7117 #endif
7118 #ifdef EMFILE
7119   s7_define(sc, cur_env, s7_make_symbol(sc, "EMFILE"), s7_make_integer(sc, (s7_int)EMFILE));
7120 #endif
7121 #ifdef ENFILE
7122   s7_define(sc, cur_env, s7_make_symbol(sc, "ENFILE"), s7_make_integer(sc, (s7_int)ENFILE));
7123 #endif
7124 #ifdef EINVAL
7125   s7_define(sc, cur_env, s7_make_symbol(sc, "EINVAL"), s7_make_integer(sc, (s7_int)EINVAL));
7126 #endif
7127 #ifdef EISDIR
7128   s7_define(sc, cur_env, s7_make_symbol(sc, "EISDIR"), s7_make_integer(sc, (s7_int)EISDIR));
7129 #endif
7130 #ifdef ENOTDIR
7131   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOTDIR"), s7_make_integer(sc, (s7_int)ENOTDIR));
7132 #endif
7133 #ifdef ENODEV
7134   s7_define(sc, cur_env, s7_make_symbol(sc, "ENODEV"), s7_make_integer(sc, (s7_int)ENODEV));
7135 #endif
7136 #ifdef EXDEV
7137   s7_define(sc, cur_env, s7_make_symbol(sc, "EXDEV"), s7_make_integer(sc, (s7_int)EXDEV));
7138 #endif
7139 #ifdef EEXIST
7140   s7_define(sc, cur_env, s7_make_symbol(sc, "EEXIST"), s7_make_integer(sc, (s7_int)EEXIST));
7141 #endif
7142 #ifdef EBUSY
7143   s7_define(sc, cur_env, s7_make_symbol(sc, "EBUSY"), s7_make_integer(sc, (s7_int)EBUSY));
7144 #endif
7145 #ifdef ENOTBLK
7146   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOTBLK"), s7_make_integer(sc, (s7_int)ENOTBLK));
7147 #endif
7148 #ifdef EFAULT
7149   s7_define(sc, cur_env, s7_make_symbol(sc, "EFAULT"), s7_make_integer(sc, (s7_int)EFAULT));
7150 #endif
7151 #ifdef EACCES
7152   s7_define(sc, cur_env, s7_make_symbol(sc, "EACCES"), s7_make_integer(sc, (s7_int)EACCES));
7153 #endif
7154 #ifdef ENOMEM
7155   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOMEM"), s7_make_integer(sc, (s7_int)ENOMEM));
7156 #endif
7157 #ifdef EAGAIN
7158   s7_define(sc, cur_env, s7_make_symbol(sc, "EAGAIN"), s7_make_integer(sc, (s7_int)EAGAIN));
7159 #endif
7160 #ifdef ECHILD
7161   s7_define(sc, cur_env, s7_make_symbol(sc, "ECHILD"), s7_make_integer(sc, (s7_int)ECHILD));
7162 #endif
7163 #ifdef EBADF
7164   s7_define(sc, cur_env, s7_make_symbol(sc, "EBADF"), s7_make_integer(sc, (s7_int)EBADF));
7165 #endif
7166 #ifdef ENOEXEC
7167   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOEXEC"), s7_make_integer(sc, (s7_int)ENOEXEC));
7168 #endif
7169 #ifdef E2BIG
7170   s7_define(sc, cur_env, s7_make_symbol(sc, "E2BIG"), s7_make_integer(sc, (s7_int)E2BIG));
7171 #endif
7172 #ifdef ENXIO
7173   s7_define(sc, cur_env, s7_make_symbol(sc, "ENXIO"), s7_make_integer(sc, (s7_int)ENXIO));
7174 #endif
7175 #ifdef EIO
7176   s7_define(sc, cur_env, s7_make_symbol(sc, "EIO"), s7_make_integer(sc, (s7_int)EIO));
7177 #endif
7178 #ifdef EINTR
7179   s7_define(sc, cur_env, s7_make_symbol(sc, "EINTR"), s7_make_integer(sc, (s7_int)EINTR));
7180 #endif
7181 #ifdef ESRCH
7182   s7_define(sc, cur_env, s7_make_symbol(sc, "ESRCH"), s7_make_integer(sc, (s7_int)ESRCH));
7183 #endif
7184 #ifdef ENOENT
7185   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOENT"), s7_make_integer(sc, (s7_int)ENOENT));
7186 #endif
7187 #ifdef EPERM
7188   s7_define(sc, cur_env, s7_make_symbol(sc, "EPERM"), s7_make_integer(sc, (s7_int)EPERM));
7189 #endif
7190 #ifdef EILSEQ
7191   s7_define(sc, cur_env, s7_make_symbol(sc, "EILSEQ"), s7_make_integer(sc, (s7_int)EILSEQ));
7192 #endif
7193 #ifdef ERFKILL
7194   s7_define(sc, cur_env, s7_make_symbol(sc, "ERFKILL"), s7_make_integer(sc, (s7_int)ERFKILL));
7195 #endif
7196 #ifdef ENOTRECOVERABLE
7197   s7_define(sc, cur_env, s7_make_symbol(sc, "ENOTRECOVERABLE"), s7_make_integer(sc, (s7_int)ENOTRECOVERABLE));
7198 #endif
7199 #ifdef EOWNERDEAD
7200   s7_define(sc, cur_env, s7_make_symbol(sc, "EOWNERDEAD"), s7_make_integer(sc, (s7_int)EOWNERDEAD));
7201 #endif
7202 #ifdef ECANCELED
7203   s7_define(sc, cur_env, s7_make_symbol(sc, "ECANCELED"), s7_make_integer(sc, (s7_int)ECANCELED));
7204 #endif
7205 #ifdef __GLIBC_MINOR__
7206   s7_define(sc, cur_env, s7_make_symbol(sc, "__GLIBC_MINOR__"), s7_make_integer(sc, (s7_int)__GLIBC_MINOR__));
7207 #endif
7208 #ifdef __GLIBC__
7209   s7_define(sc, cur_env, s7_make_symbol(sc, "__GLIBC__"), s7_make_integer(sc, (s7_int)__GLIBC__));
7210 #endif
7211 #ifdef MB_CUR_MAX
7212   s7_define(sc, cur_env, s7_make_symbol(sc, "MB_CUR_MAX"), s7_make_integer(sc, (s7_int)MB_CUR_MAX));
7213 #endif
7214 #ifdef EXIT_SUCCESS
7215   s7_define(sc, cur_env, s7_make_symbol(sc, "EXIT_SUCCESS"), s7_make_integer(sc, (s7_int)EXIT_SUCCESS));
7216 #endif
7217 #ifdef EXIT_FAILURE
7218   s7_define(sc, cur_env, s7_make_symbol(sc, "EXIT_FAILURE"), s7_make_integer(sc, (s7_int)EXIT_FAILURE));
7219 #endif
7220 #ifdef RAND_MAX
7221   s7_define(sc, cur_env, s7_make_symbol(sc, "RAND_MAX"), s7_make_integer(sc, (s7_int)RAND_MAX));
7222 #endif
7223 #ifdef P_tmpdir
7224   s7_define(sc, cur_env, s7_make_symbol(sc, "P_tmpdir"), s7_make_string(sc, (char*)P_tmpdir));
7225 #endif
7226 #ifdef IOV_MAX
7227   s7_define(sc, cur_env, s7_make_symbol(sc, "IOV_MAX"), s7_make_integer(sc, (s7_int)IOV_MAX));
7228 #endif
7229 #ifdef FOPEN_MAX
7230   s7_define(sc, cur_env, s7_make_symbol(sc, "FOPEN_MAX"), s7_make_integer(sc, (s7_int)FOPEN_MAX));
7231 #endif
7232 #ifdef L_cuserid
7233   s7_define(sc, cur_env, s7_make_symbol(sc, "L_cuserid"), s7_make_integer(sc, (s7_int)L_cuserid));
7234 #endif
7235 #ifdef L_ctermid
7236   s7_define(sc, cur_env, s7_make_symbol(sc, "L_ctermid"), s7_make_integer(sc, (s7_int)L_ctermid));
7237 #endif
7238 #ifdef FILENAME_MAX
7239   s7_define(sc, cur_env, s7_make_symbol(sc, "FILENAME_MAX"), s7_make_integer(sc, (s7_int)FILENAME_MAX));
7240 #endif
7241 #ifdef TMP_MAX
7242   s7_define(sc, cur_env, s7_make_symbol(sc, "TMP_MAX"), s7_make_integer(sc, (s7_int)TMP_MAX));
7243 #endif
7244 #ifdef L_tmpnam
7245   s7_define(sc, cur_env, s7_make_symbol(sc, "L_tmpnam"), s7_make_integer(sc, (s7_int)L_tmpnam));
7246 #endif
7247 #ifdef EOF
7248   s7_define(sc, cur_env, s7_make_symbol(sc, "EOF"), s7_make_integer(sc, (s7_int)EOF));
7249 #endif
7250 #ifdef BUFSIZ
7251   s7_define(sc, cur_env, s7_make_symbol(sc, "BUFSIZ"), s7_make_integer(sc, (s7_int)BUFSIZ));
7252 #endif
7253 #ifdef _IONBF
7254   s7_define(sc, cur_env, s7_make_symbol(sc, "_IONBF"), s7_make_integer(sc, (s7_int)_IONBF));
7255 #endif
7256 #ifdef _IOLBF
7257   s7_define(sc, cur_env, s7_make_symbol(sc, "_IOLBF"), s7_make_integer(sc, (s7_int)_IOLBF));
7258 #endif
7259 #ifdef _IOFBF
7260   s7_define(sc, cur_env, s7_make_symbol(sc, "_IOFBF"), s7_make_integer(sc, (s7_int)_IOFBF));
7261 #endif
7262 #ifdef FNM_NOMATCH
7263   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_NOMATCH"), s7_make_integer(sc, (s7_int)FNM_NOMATCH));
7264 #endif
7265 #ifdef FNM_EXTMATCH
7266   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_EXTMATCH"), s7_make_integer(sc, (s7_int)FNM_EXTMATCH));
7267 #endif
7268 #ifdef FNM_CASEFOLD
7269   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_CASEFOLD"), s7_make_integer(sc, (s7_int)FNM_CASEFOLD));
7270 #endif
7271 #ifdef FNM_LEADING_DIR
7272   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_LEADING_DIR"), s7_make_integer(sc, (s7_int)FNM_LEADING_DIR));
7273 #endif
7274 #ifdef FNM_FILE_NAME
7275   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_FILE_NAME"), s7_make_integer(sc, (s7_int)FNM_FILE_NAME));
7276 #endif
7277 #ifdef FNM_PERIOD
7278   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_PERIOD"), s7_make_integer(sc, (s7_int)FNM_PERIOD));
7279 #endif
7280 #ifdef FNM_NOESCAPE
7281   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_NOESCAPE"), s7_make_integer(sc, (s7_int)FNM_NOESCAPE));
7282 #endif
7283 #ifdef FNM_PATHNAME
7284   s7_define(sc, cur_env, s7_make_symbol(sc, "FNM_PATHNAME"), s7_make_integer(sc, (s7_int)FNM_PATHNAME));
7285 #endif
7286 #ifdef FE_TOWARDZERO
7287   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_TOWARDZERO"), s7_make_integer(sc, (s7_int)FE_TOWARDZERO));
7288 #endif
7289 #ifdef FE_DOWNWARD
7290   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_DOWNWARD"), s7_make_integer(sc, (s7_int)FE_DOWNWARD));
7291 #endif
7292 #ifdef FE_UPWARD
7293   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_UPWARD"), s7_make_integer(sc, (s7_int)FE_UPWARD));
7294 #endif
7295 #ifdef FE_TONEAREST
7296   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_TONEAREST"), s7_make_integer(sc, (s7_int)FE_TONEAREST));
7297 #endif
7298 #ifdef FE_ALL_EXCEPT
7299   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_ALL_EXCEPT"), s7_make_integer(sc, (s7_int)FE_ALL_EXCEPT));
7300 #endif
7301 #ifdef FE_INVALID
7302   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_INVALID"), s7_make_integer(sc, (s7_int)FE_INVALID));
7303 #endif
7304 #ifdef FE_OVERFLOW
7305   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_OVERFLOW"), s7_make_integer(sc, (s7_int)FE_OVERFLOW));
7306 #endif
7307 #ifdef FE_UNDERFLOW
7308   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_UNDERFLOW"), s7_make_integer(sc, (s7_int)FE_UNDERFLOW));
7309 #endif
7310 #ifdef FE_DIVBYZERO
7311   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_DIVBYZERO"), s7_make_integer(sc, (s7_int)FE_DIVBYZERO));
7312 #endif
7313 #ifdef FE_INEXACT
7314   s7_define(sc, cur_env, s7_make_symbol(sc, "FE_INEXACT"), s7_make_integer(sc, (s7_int)FE_INEXACT));
7315 #endif
7316 #ifdef POSIX_FADV_NOREUSE
7317   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_NOREUSE"), s7_make_integer(sc, (s7_int)POSIX_FADV_NOREUSE));
7318 #endif
7319 #ifdef POSIX_FADV_DONTNEED
7320   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_DONTNEED"), s7_make_integer(sc, (s7_int)POSIX_FADV_DONTNEED));
7321 #endif
7322 #ifdef POSIX_FADV_WILLNEED
7323   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_WILLNEED"), s7_make_integer(sc, (s7_int)POSIX_FADV_WILLNEED));
7324 #endif
7325 #ifdef POSIX_FADV_SEQUENTIAL
7326   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_SEQUENTIAL"), s7_make_integer(sc, (s7_int)POSIX_FADV_SEQUENTIAL));
7327 #endif
7328 #ifdef POSIX_FADV_RANDOM
7329   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_RANDOM"), s7_make_integer(sc, (s7_int)POSIX_FADV_RANDOM));
7330 #endif
7331 #ifdef POSIX_FADV_NORMAL
7332   s7_define(sc, cur_env, s7_make_symbol(sc, "POSIX_FADV_NORMAL"), s7_make_integer(sc, (s7_int)POSIX_FADV_NORMAL));
7333 #endif
7334 #ifdef F_UNLCK
7335   s7_define(sc, cur_env, s7_make_symbol(sc, "F_UNLCK"), s7_make_integer(sc, (s7_int)F_UNLCK));
7336 #endif
7337 #ifdef F_WRLCK
7338   s7_define(sc, cur_env, s7_make_symbol(sc, "F_WRLCK"), s7_make_integer(sc, (s7_int)F_WRLCK));
7339 #endif
7340 #ifdef F_RDLCK
7341   s7_define(sc, cur_env, s7_make_symbol(sc, "F_RDLCK"), s7_make_integer(sc, (s7_int)F_RDLCK));
7342 #endif
7343 #ifdef FD_CLOEXEC
7344   s7_define(sc, cur_env, s7_make_symbol(sc, "FD_CLOEXEC"), s7_make_integer(sc, (s7_int)FD_CLOEXEC));
7345 #endif
7346 #ifdef F_SETLKW64
7347   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETLKW64"), s7_make_integer(sc, (s7_int)F_SETLKW64));
7348 #endif
7349 #ifdef F_SETLK64
7350   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETLK64"), s7_make_integer(sc, (s7_int)F_SETLK64));
7351 #endif
7352 #ifdef F_GETLK64
7353   s7_define(sc, cur_env, s7_make_symbol(sc, "F_GETLK64"), s7_make_integer(sc, (s7_int)F_GETLK64));
7354 #endif
7355 #ifdef F_SETLKW
7356   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETLKW"), s7_make_integer(sc, (s7_int)F_SETLKW));
7357 #endif
7358 #ifdef F_SETLK
7359   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETLK"), s7_make_integer(sc, (s7_int)F_SETLK));
7360 #endif
7361 #ifdef F_GETLK
7362   s7_define(sc, cur_env, s7_make_symbol(sc, "F_GETLK"), s7_make_integer(sc, (s7_int)F_GETLK));
7363 #endif
7364 #ifdef F_SETFL
7365   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETFL"), s7_make_integer(sc, (s7_int)F_SETFL));
7366 #endif
7367 #ifdef F_GETFL
7368   s7_define(sc, cur_env, s7_make_symbol(sc, "F_GETFL"), s7_make_integer(sc, (s7_int)F_GETFL));
7369 #endif
7370 #ifdef F_SETFD
7371   s7_define(sc, cur_env, s7_make_symbol(sc, "F_SETFD"), s7_make_integer(sc, (s7_int)F_SETFD));
7372 #endif
7373 #ifdef F_GETFD
7374   s7_define(sc, cur_env, s7_make_symbol(sc, "F_GETFD"), s7_make_integer(sc, (s7_int)F_GETFD));
7375 #endif
7376 #ifdef F_DUPFD
7377   s7_define(sc, cur_env, s7_make_symbol(sc, "F_DUPFD"), s7_make_integer(sc, (s7_int)F_DUPFD));
7378 #endif
7379 #ifdef O_LARGEFILE
7380   s7_define(sc, cur_env, s7_make_symbol(sc, "O_LARGEFILE"), s7_make_integer(sc, (s7_int)O_LARGEFILE));
7381 #endif
7382 #ifdef O_RSYNC
7383   s7_define(sc, cur_env, s7_make_symbol(sc, "O_RSYNC"), s7_make_integer(sc, (s7_int)O_RSYNC));
7384 #endif
7385 #ifdef O_DSYNC
7386   s7_define(sc, cur_env, s7_make_symbol(sc, "O_DSYNC"), s7_make_integer(sc, (s7_int)O_DSYNC));
7387 #endif
7388 #ifdef O_ASYNC
7389   s7_define(sc, cur_env, s7_make_symbol(sc, "O_ASYNC"), s7_make_integer(sc, (s7_int)O_ASYNC));
7390 #endif
7391 #ifdef O_FSYNC
7392   s7_define(sc, cur_env, s7_make_symbol(sc, "O_FSYNC"), s7_make_integer(sc, (s7_int)O_FSYNC));
7393 #endif
7394 #ifdef O_SYNC
7395   s7_define(sc, cur_env, s7_make_symbol(sc, "O_SYNC"), s7_make_integer(sc, (s7_int)O_SYNC));
7396 #endif
7397 #ifdef O_NDELAY
7398   s7_define(sc, cur_env, s7_make_symbol(sc, "O_NDELAY"), s7_make_integer(sc, (s7_int)O_NDELAY));
7399 #endif
7400 #ifdef O_NONBLOCK
7401   s7_define(sc, cur_env, s7_make_symbol(sc, "O_NONBLOCK"), s7_make_integer(sc, (s7_int)O_NONBLOCK));
7402 #endif
7403 #ifdef O_APPEND
7404   s7_define(sc, cur_env, s7_make_symbol(sc, "O_APPEND"), s7_make_integer(sc, (s7_int)O_APPEND));
7405 #endif
7406 #ifdef O_TRUNC
7407   s7_define(sc, cur_env, s7_make_symbol(sc, "O_TRUNC"), s7_make_integer(sc, (s7_int)O_TRUNC));
7408 #endif
7409 #ifdef O_NOCTTY
7410   s7_define(sc, cur_env, s7_make_symbol(sc, "O_NOCTTY"), s7_make_integer(sc, (s7_int)O_NOCTTY));
7411 #endif
7412 #ifdef O_EXCL
7413   s7_define(sc, cur_env, s7_make_symbol(sc, "O_EXCL"), s7_make_integer(sc, (s7_int)O_EXCL));
7414 #endif
7415 #ifdef O_CREAT
7416   s7_define(sc, cur_env, s7_make_symbol(sc, "O_CREAT"), s7_make_integer(sc, (s7_int)O_CREAT));
7417 #endif
7418 #ifdef O_RDWR
7419   s7_define(sc, cur_env, s7_make_symbol(sc, "O_RDWR"), s7_make_integer(sc, (s7_int)O_RDWR));
7420 #endif
7421 #ifdef O_WRONLY
7422   s7_define(sc, cur_env, s7_make_symbol(sc, "O_WRONLY"), s7_make_integer(sc, (s7_int)O_WRONLY));
7423 #endif
7424 #ifdef O_RDONLY
7425   s7_define(sc, cur_env, s7_make_symbol(sc, "O_RDONLY"), s7_make_integer(sc, (s7_int)O_RDONLY));
7426 #endif
7427 #ifdef O_ACCMODE
7428   s7_define(sc, cur_env, s7_make_symbol(sc, "O_ACCMODE"), s7_make_integer(sc, (s7_int)O_ACCMODE));
7429 #endif
7430 #ifdef F_TEST
7431   s7_define(sc, cur_env, s7_make_symbol(sc, "F_TEST"), s7_make_integer(sc, (s7_int)F_TEST));
7432 #endif
7433 #ifdef F_TLOCK
7434   s7_define(sc, cur_env, s7_make_symbol(sc, "F_TLOCK"), s7_make_integer(sc, (s7_int)F_TLOCK));
7435 #endif
7436 #ifdef F_LOCK
7437   s7_define(sc, cur_env, s7_make_symbol(sc, "F_LOCK"), s7_make_integer(sc, (s7_int)F_LOCK));
7438 #endif
7439 #ifdef F_ULOCK
7440   s7_define(sc, cur_env, s7_make_symbol(sc, "F_ULOCK"), s7_make_integer(sc, (s7_int)F_ULOCK));
7441 #endif
7442 #ifdef SEEK_END
7443   s7_define(sc, cur_env, s7_make_symbol(sc, "SEEK_END"), s7_make_integer(sc, (s7_int)SEEK_END));
7444 #endif
7445 #ifdef SEEK_CUR
7446   s7_define(sc, cur_env, s7_make_symbol(sc, "SEEK_CUR"), s7_make_integer(sc, (s7_int)SEEK_CUR));
7447 #endif
7448 #ifdef SEEK_SET
7449   s7_define(sc, cur_env, s7_make_symbol(sc, "SEEK_SET"), s7_make_integer(sc, (s7_int)SEEK_SET));
7450 #endif
7451 #ifdef F_OK
7452   s7_define(sc, cur_env, s7_make_symbol(sc, "F_OK"), s7_make_integer(sc, (s7_int)F_OK));
7453 #endif
7454 #ifdef X_OK
7455   s7_define(sc, cur_env, s7_make_symbol(sc, "X_OK"), s7_make_integer(sc, (s7_int)X_OK));
7456 #endif
7457 #ifdef W_OK
7458   s7_define(sc, cur_env, s7_make_symbol(sc, "W_OK"), s7_make_integer(sc, (s7_int)W_OK));
7459 #endif
7460 #ifdef R_OK
7461   s7_define(sc, cur_env, s7_make_symbol(sc, "R_OK"), s7_make_integer(sc, (s7_int)R_OK));
7462 #endif
7463 #ifdef S_IRWXO
7464   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IRWXO"), s7_make_integer(sc, (s7_int)S_IRWXO));
7465 #endif
7466 #ifdef S_IXOTH
7467   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IXOTH"), s7_make_integer(sc, (s7_int)S_IXOTH));
7468 #endif
7469 #ifdef S_IWOTH
7470   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IWOTH"), s7_make_integer(sc, (s7_int)S_IWOTH));
7471 #endif
7472 #ifdef S_IROTH
7473   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IROTH"), s7_make_integer(sc, (s7_int)S_IROTH));
7474 #endif
7475 #ifdef S_IRWXG
7476   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IRWXG"), s7_make_integer(sc, (s7_int)S_IRWXG));
7477 #endif
7478 #ifdef S_IXGRP
7479   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IXGRP"), s7_make_integer(sc, (s7_int)S_IXGRP));
7480 #endif
7481 #ifdef S_IWGRP
7482   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IWGRP"), s7_make_integer(sc, (s7_int)S_IWGRP));
7483 #endif
7484 #ifdef S_IRGRP
7485   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IRGRP"), s7_make_integer(sc, (s7_int)S_IRGRP));
7486 #endif
7487 #ifdef S_IRWXU
7488   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IRWXU"), s7_make_integer(sc, (s7_int)S_IRWXU));
7489 #endif
7490 #ifdef S_IXUSR
7491   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IXUSR"), s7_make_integer(sc, (s7_int)S_IXUSR));
7492 #endif
7493 #ifdef S_IWUSR
7494   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IWUSR"), s7_make_integer(sc, (s7_int)S_IWUSR));
7495 #endif
7496 #ifdef S_IRUSR
7497   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IRUSR"), s7_make_integer(sc, (s7_int)S_IRUSR));
7498 #endif
7499 #ifdef S_ISGID
7500   s7_define(sc, cur_env, s7_make_symbol(sc, "S_ISGID"), s7_make_integer(sc, (s7_int)S_ISGID));
7501 #endif
7502 #ifdef S_ISUID
7503   s7_define(sc, cur_env, s7_make_symbol(sc, "S_ISUID"), s7_make_integer(sc, (s7_int)S_ISUID));
7504 #endif
7505 #ifdef S_IFSOCK
7506   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFSOCK"), s7_make_integer(sc, (s7_int)S_IFSOCK));
7507 #endif
7508 #ifdef __S_IFLNK
7509   s7_define(sc, cur_env, s7_make_symbol(sc, "__S_IFLNK"), s7_make_integer(sc, (s7_int)__S_IFLNK));
7510 #endif
7511 #ifdef S_IFIFO
7512   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFIFO"), s7_make_integer(sc, (s7_int)S_IFIFO));
7513 #endif
7514 #ifdef S_IFREG
7515   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFREG"), s7_make_integer(sc, (s7_int)S_IFREG));
7516 #endif
7517 #ifdef S_IFBLK
7518   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFBLK"), s7_make_integer(sc, (s7_int)S_IFBLK));
7519 #endif
7520 #ifdef S_IFCHR
7521   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFCHR"), s7_make_integer(sc, (s7_int)S_IFCHR));
7522 #endif
7523 #ifdef S_IFDIR
7524   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFDIR"), s7_make_integer(sc, (s7_int)S_IFDIR));
7525 #endif
7526 #ifdef S_IFMT
7527   s7_define(sc, cur_env, s7_make_symbol(sc, "S_IFMT"), s7_make_integer(sc, (s7_int)S_IFMT));
7528 #endif
7529 #ifdef __LITTLE_ENDIAN
7530   s7_define(sc, cur_env, s7_make_symbol(sc, "__LITTLE_ENDIAN"), s7_make_integer(sc, (s7_int)__LITTLE_ENDIAN));
7531 #endif
7532 #ifdef __BIG_ENDIAN
7533   s7_define(sc, cur_env, s7_make_symbol(sc, "__BIG_ENDIAN"), s7_make_integer(sc, (s7_int)__BIG_ENDIAN));
7534 #endif
7535 #ifdef __BYTE_ORDER
7536   s7_define(sc, cur_env, s7_make_symbol(sc, "__BYTE_ORDER"), s7_make_integer(sc, (s7_int)__BYTE_ORDER));
7537 #endif
7538 #ifdef WINT_MAX
7539   s7_define(sc, cur_env, s7_make_symbol(sc, "WINT_MAX"), s7_make_integer(sc, (s7_int)WINT_MAX));
7540 #endif
7541 #ifdef WINT_MIN
7542   s7_define(sc, cur_env, s7_make_symbol(sc, "WINT_MIN"), s7_make_integer(sc, (s7_int)WINT_MIN));
7543 #endif
7544 #ifdef WCHAR_MAX
7545   s7_define(sc, cur_env, s7_make_symbol(sc, "WCHAR_MAX"), s7_make_integer(sc, (s7_int)WCHAR_MAX));
7546 #endif
7547 #ifdef WCHAR_MIN
7548   s7_define(sc, cur_env, s7_make_symbol(sc, "WCHAR_MIN"), s7_make_integer(sc, (s7_int)WCHAR_MIN));
7549 #endif
7550 #ifdef SIZE_MAX
7551   s7_define(sc, cur_env, s7_make_symbol(sc, "SIZE_MAX"), s7_make_integer(sc, (s7_int)SIZE_MAX));
7552 #endif
7553 #ifdef SIG_ATOMIC_MAX
7554   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_ATOMIC_MAX"), s7_make_integer(sc, (s7_int)SIG_ATOMIC_MAX));
7555 #endif
7556 #ifdef SIG_ATOMIC_MIN
7557   s7_define(sc, cur_env, s7_make_symbol(sc, "SIG_ATOMIC_MIN"), s7_make_integer(sc, (s7_int)SIG_ATOMIC_MIN));
7558 #endif
7559 #ifdef PTRDIFF_MAX
7560   s7_define(sc, cur_env, s7_make_symbol(sc, "PTRDIFF_MAX"), s7_make_integer(sc, (s7_int)PTRDIFF_MAX));
7561 #endif
7562 #ifdef PTRDIFF_MIN
7563   s7_define(sc, cur_env, s7_make_symbol(sc, "PTRDIFF_MIN"), s7_make_integer(sc, (s7_int)PTRDIFF_MIN));
7564 #endif
7565 #ifdef UINTMAX_MAX
7566   s7_define(sc, cur_env, s7_make_symbol(sc, "UINTMAX_MAX"), s7_make_integer(sc, (s7_int)UINTMAX_MAX));
7567 #endif
7568 #ifdef INTMAX_MAX
7569   s7_define(sc, cur_env, s7_make_symbol(sc, "INTMAX_MAX"), s7_make_integer(sc, (s7_int)INTMAX_MAX));
7570 #endif
7571 #ifdef INTMAX_MIN
7572   s7_define(sc, cur_env, s7_make_symbol(sc, "INTMAX_MIN"), s7_make_integer(sc, (s7_int)INTMAX_MIN));
7573 #endif
7574 #ifdef UINTPTR_MAX
7575   s7_define(sc, cur_env, s7_make_symbol(sc, "UINTPTR_MAX"), s7_make_integer(sc, (s7_int)UINTPTR_MAX));
7576 #endif
7577 #ifdef INTPTR_MAX
7578   s7_define(sc, cur_env, s7_make_symbol(sc, "INTPTR_MAX"), s7_make_integer(sc, (s7_int)INTPTR_MAX));
7579 #endif
7580 #ifdef INTPTR_MIN
7581   s7_define(sc, cur_env, s7_make_symbol(sc, "INTPTR_MIN"), s7_make_integer(sc, (s7_int)INTPTR_MIN));
7582 #endif
7583 #ifdef UINT_FAST64_MAX
7584   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_FAST64_MAX"), s7_make_integer(sc, (s7_int)UINT_FAST64_MAX));
7585 #endif
7586 #ifdef UINT_FAST32_MAX
7587   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_FAST32_MAX"), s7_make_integer(sc, (s7_int)UINT_FAST32_MAX));
7588 #endif
7589 #ifdef UINT_FAST16_MAX
7590   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_FAST16_MAX"), s7_make_integer(sc, (s7_int)UINT_FAST16_MAX));
7591 #endif
7592 #ifdef UINT_FAST8_MAX
7593   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_FAST8_MAX"), s7_make_integer(sc, (s7_int)UINT_FAST8_MAX));
7594 #endif
7595 #ifdef INT_FAST64_MAX
7596   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST64_MAX"), s7_make_integer(sc, (s7_int)INT_FAST64_MAX));
7597 #endif
7598 #ifdef INT_FAST32_MAX
7599   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST32_MAX"), s7_make_integer(sc, (s7_int)INT_FAST32_MAX));
7600 #endif
7601 #ifdef INT_FAST16_MAX
7602   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST16_MAX"), s7_make_integer(sc, (s7_int)INT_FAST16_MAX));
7603 #endif
7604 #ifdef INT_FAST8_MAX
7605   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST8_MAX"), s7_make_integer(sc, (s7_int)INT_FAST8_MAX));
7606 #endif
7607 #ifdef INT_FAST64_MIN
7608   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST64_MIN"), s7_make_integer(sc, (s7_int)INT_FAST64_MIN));
7609 #endif
7610 #ifdef INT_FAST32_MIN
7611   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST32_MIN"), s7_make_integer(sc, (s7_int)INT_FAST32_MIN));
7612 #endif
7613 #ifdef INT_FAST16_MIN
7614   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST16_MIN"), s7_make_integer(sc, (s7_int)INT_FAST16_MIN));
7615 #endif
7616 #ifdef INT_FAST8_MIN
7617   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_FAST8_MIN"), s7_make_integer(sc, (s7_int)INT_FAST8_MIN));
7618 #endif
7619 #ifdef UINT_LEAST64_MAX
7620   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_LEAST64_MAX"), s7_make_integer(sc, (s7_int)UINT_LEAST64_MAX));
7621 #endif
7622 #ifdef UINT_LEAST32_MAX
7623   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_LEAST32_MAX"), s7_make_integer(sc, (s7_int)UINT_LEAST32_MAX));
7624 #endif
7625 #ifdef UINT_LEAST16_MAX
7626   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_LEAST16_MAX"), s7_make_integer(sc, (s7_int)UINT_LEAST16_MAX));
7627 #endif
7628 #ifdef UINT_LEAST8_MAX
7629   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_LEAST8_MAX"), s7_make_integer(sc, (s7_int)UINT_LEAST8_MAX));
7630 #endif
7631 #ifdef INT_LEAST64_MAX
7632   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST64_MAX"), s7_make_integer(sc, (s7_int)INT_LEAST64_MAX));
7633 #endif
7634 #ifdef INT_LEAST32_MAX
7635   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST32_MAX"), s7_make_integer(sc, (s7_int)INT_LEAST32_MAX));
7636 #endif
7637 #ifdef INT_LEAST16_MAX
7638   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST16_MAX"), s7_make_integer(sc, (s7_int)INT_LEAST16_MAX));
7639 #endif
7640 #ifdef INT_LEAST8_MAX
7641   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST8_MAX"), s7_make_integer(sc, (s7_int)INT_LEAST8_MAX));
7642 #endif
7643 #ifdef INT_LEAST64_MIN
7644   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST64_MIN"), s7_make_integer(sc, (s7_int)INT_LEAST64_MIN));
7645 #endif
7646 #ifdef INT_LEAST32_MIN
7647   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST32_MIN"), s7_make_integer(sc, (s7_int)INT_LEAST32_MIN));
7648 #endif
7649 #ifdef INT_LEAST16_MIN
7650   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST16_MIN"), s7_make_integer(sc, (s7_int)INT_LEAST16_MIN));
7651 #endif
7652 #ifdef INT_LEAST8_MIN
7653   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_LEAST8_MIN"), s7_make_integer(sc, (s7_int)INT_LEAST8_MIN));
7654 #endif
7655 #ifdef UINT64_MAX
7656   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT64_MAX"), s7_make_integer(sc, (s7_int)UINT64_MAX));
7657 #endif
7658 #ifdef UINT32_MAX
7659   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT32_MAX"), s7_make_integer(sc, (s7_int)UINT32_MAX));
7660 #endif
7661 #ifdef UINT16_MAX
7662   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT16_MAX"), s7_make_integer(sc, (s7_int)UINT16_MAX));
7663 #endif
7664 #ifdef UINT8_MAX
7665   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT8_MAX"), s7_make_integer(sc, (s7_int)UINT8_MAX));
7666 #endif
7667 #ifdef INT64_MAX
7668   s7_define(sc, cur_env, s7_make_symbol(sc, "INT64_MAX"), s7_make_integer(sc, (s7_int)INT64_MAX));
7669 #endif
7670 #ifdef INT32_MAX
7671   s7_define(sc, cur_env, s7_make_symbol(sc, "INT32_MAX"), s7_make_integer(sc, (s7_int)INT32_MAX));
7672 #endif
7673 #ifdef INT16_MAX
7674   s7_define(sc, cur_env, s7_make_symbol(sc, "INT16_MAX"), s7_make_integer(sc, (s7_int)INT16_MAX));
7675 #endif
7676 #ifdef INT8_MAX
7677   s7_define(sc, cur_env, s7_make_symbol(sc, "INT8_MAX"), s7_make_integer(sc, (s7_int)INT8_MAX));
7678 #endif
7679 #ifdef INT64_MIN
7680   s7_define(sc, cur_env, s7_make_symbol(sc, "INT64_MIN"), s7_make_integer(sc, (s7_int)INT64_MIN));
7681 #endif
7682 #ifdef INT32_MIN
7683   s7_define(sc, cur_env, s7_make_symbol(sc, "INT32_MIN"), s7_make_integer(sc, (s7_int)INT32_MIN));
7684 #endif
7685 #ifdef INT16_MIN
7686   s7_define(sc, cur_env, s7_make_symbol(sc, "INT16_MIN"), s7_make_integer(sc, (s7_int)INT16_MIN));
7687 #endif
7688 #ifdef INT8_MIN
7689   s7_define(sc, cur_env, s7_make_symbol(sc, "INT8_MIN"), s7_make_integer(sc, (s7_int)INT8_MIN));
7690 #endif
7691 #ifdef LDBL_MIN
7692   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MIN"), s7_make_real(sc, (s7_double)LDBL_MIN));
7693 #endif
7694 #ifdef DBL_MIN
7695   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MIN"), s7_make_real(sc, (s7_double)DBL_MIN));
7696 #endif
7697 #ifdef FLT_MIN
7698   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MIN"), s7_make_real(sc, (s7_double)FLT_MIN));
7699 #endif
7700 #ifdef LDBL_EPSILON
7701   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_EPSILON"), s7_make_real(sc, (s7_double)LDBL_EPSILON));
7702 #endif
7703 #ifdef DBL_EPSILON
7704   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_EPSILON"), s7_make_real(sc, (s7_double)DBL_EPSILON));
7705 #endif
7706 #ifdef FLT_EPSILON
7707   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_EPSILON"), s7_make_real(sc, (s7_double)FLT_EPSILON));
7708 #endif
7709 #ifdef LDBL_MAX
7710   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MAX"), s7_make_real(sc, (s7_double)LDBL_MAX));
7711 #endif
7712 #ifdef DBL_MAX
7713   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MAX"), s7_make_real(sc, (s7_double)DBL_MAX));
7714 #endif
7715 #ifdef FLT_MAX
7716   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MAX"), s7_make_real(sc, (s7_double)FLT_MAX));
7717 #endif
7718 #ifdef FLT_EVAL_METHOD
7719   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_EVAL_METHOD"), s7_make_integer(sc, (s7_int)FLT_EVAL_METHOD));
7720 #endif
7721 #ifdef FLT_ROUNDS
7722   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_ROUNDS"), s7_make_integer(sc, (s7_int)FLT_ROUNDS));
7723 #endif
7724 #ifdef LDBL_MAX_10_EXP
7725   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MAX_10_EXP"), s7_make_integer(sc, (s7_int)LDBL_MAX_10_EXP));
7726 #endif
7727 #ifdef DBL_MAX_10_EXP
7728   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MAX_10_EXP"), s7_make_integer(sc, (s7_int)DBL_MAX_10_EXP));
7729 #endif
7730 #ifdef FLT_MAX_10_EXP
7731   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MAX_10_EXP"), s7_make_integer(sc, (s7_int)FLT_MAX_10_EXP));
7732 #endif
7733 #ifdef LDBL_MAX_EXP
7734   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MAX_EXP"), s7_make_integer(sc, (s7_int)LDBL_MAX_EXP));
7735 #endif
7736 #ifdef DBL_MAX_EXP
7737   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MAX_EXP"), s7_make_integer(sc, (s7_int)DBL_MAX_EXP));
7738 #endif
7739 #ifdef FLT_MAX_EXP
7740   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MAX_EXP"), s7_make_integer(sc, (s7_int)FLT_MAX_EXP));
7741 #endif
7742 #ifdef LDBL_MIN_10_EXP
7743   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MIN_10_EXP"), s7_make_integer(sc, (s7_int)LDBL_MIN_10_EXP));
7744 #endif
7745 #ifdef DBL_MIN_10_EXP
7746   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MIN_10_EXP"), s7_make_integer(sc, (s7_int)DBL_MIN_10_EXP));
7747 #endif
7748 #ifdef FLT_MIN_10_EXP
7749   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MIN_10_EXP"), s7_make_integer(sc, (s7_int)FLT_MIN_10_EXP));
7750 #endif
7751 #ifdef LDBL_MIN_EXP
7752   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MIN_EXP"), s7_make_integer(sc, (s7_int)LDBL_MIN_EXP));
7753 #endif
7754 #ifdef DBL_MIN_EXP
7755   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MIN_EXP"), s7_make_integer(sc, (s7_int)DBL_MIN_EXP));
7756 #endif
7757 #ifdef FLT_MIN_EXP
7758   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MIN_EXP"), s7_make_integer(sc, (s7_int)FLT_MIN_EXP));
7759 #endif
7760 #ifdef LDBL_DIG
7761   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_DIG"), s7_make_integer(sc, (s7_int)LDBL_DIG));
7762 #endif
7763 #ifdef DBL_DIG
7764   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_DIG"), s7_make_integer(sc, (s7_int)DBL_DIG));
7765 #endif
7766 #ifdef FLT_DIG
7767   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_DIG"), s7_make_integer(sc, (s7_int)FLT_DIG));
7768 #endif
7769 #ifdef LDBL_MANT_DIG
7770   s7_define(sc, cur_env, s7_make_symbol(sc, "LDBL_MANT_DIG"), s7_make_integer(sc, (s7_int)LDBL_MANT_DIG));
7771 #endif
7772 #ifdef DBL_MANT_DIG
7773   s7_define(sc, cur_env, s7_make_symbol(sc, "DBL_MANT_DIG"), s7_make_integer(sc, (s7_int)DBL_MANT_DIG));
7774 #endif
7775 #ifdef FLT_MANT_DIG
7776   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_MANT_DIG"), s7_make_integer(sc, (s7_int)FLT_MANT_DIG));
7777 #endif
7778 #ifdef FLT_RADIX
7779   s7_define(sc, cur_env, s7_make_symbol(sc, "FLT_RADIX"), s7_make_integer(sc, (s7_int)FLT_RADIX));
7780 #endif
7781 #ifdef RE_DUP_MAX
7782   s7_define(sc, cur_env, s7_make_symbol(sc, "RE_DUP_MAX"), s7_make_integer(sc, (s7_int)RE_DUP_MAX));
7783 #endif
7784 #ifdef CHARCLASS_NAME_MAX
7785   s7_define(sc, cur_env, s7_make_symbol(sc, "CHARCLASS_NAME_MAX"), s7_make_integer(sc, (s7_int)CHARCLASS_NAME_MAX));
7786 #endif
7787 #ifdef LINE_MAX
7788   s7_define(sc, cur_env, s7_make_symbol(sc, "LINE_MAX"), s7_make_integer(sc, (s7_int)LINE_MAX));
7789 #endif
7790 #ifdef EXPR_NEST_MAX
7791   s7_define(sc, cur_env, s7_make_symbol(sc, "EXPR_NEST_MAX"), s7_make_integer(sc, (s7_int)EXPR_NEST_MAX));
7792 #endif
7793 #ifdef COLL_WEIGHTS_MAX
7794   s7_define(sc, cur_env, s7_make_symbol(sc, "COLL_WEIGHTS_MAX"), s7_make_integer(sc, (s7_int)COLL_WEIGHTS_MAX));
7795 #endif
7796 #ifdef BC_STRING_MAX
7797   s7_define(sc, cur_env, s7_make_symbol(sc, "BC_STRING_MAX"), s7_make_integer(sc, (s7_int)BC_STRING_MAX));
7798 #endif
7799 #ifdef BC_SCALE_MAX
7800   s7_define(sc, cur_env, s7_make_symbol(sc, "BC_SCALE_MAX"), s7_make_integer(sc, (s7_int)BC_SCALE_MAX));
7801 #endif
7802 #ifdef BC_DIM_MAX
7803   s7_define(sc, cur_env, s7_make_symbol(sc, "BC_DIM_MAX"), s7_make_integer(sc, (s7_int)BC_DIM_MAX));
7804 #endif
7805 #ifdef BC_BASE_MAX
7806   s7_define(sc, cur_env, s7_make_symbol(sc, "BC_BASE_MAX"), s7_make_integer(sc, (s7_int)BC_BASE_MAX));
7807 #endif
7808 #ifdef _POSIX2_CHARCLASS_NAME_MAX
7809   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_CHARCLASS_NAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_CHARCLASS_NAME_MAX));
7810 #endif
7811 #ifdef _POSIX2_RE_DUP_MAX
7812   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_RE_DUP_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_RE_DUP_MAX));
7813 #endif
7814 #ifdef _POSIX2_LINE_MAX
7815   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_LINE_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_LINE_MAX));
7816 #endif
7817 #ifdef _POSIX2_EXPR_NEST_MAX
7818   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_EXPR_NEST_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_EXPR_NEST_MAX));
7819 #endif
7820 #ifdef _POSIX2_COLL_WEIGHTS_MAX
7821   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_COLL_WEIGHTS_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_COLL_WEIGHTS_MAX));
7822 #endif
7823 #ifdef _POSIX2_BC_STRING_MAX
7824   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_BC_STRING_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_BC_STRING_MAX));
7825 #endif
7826 #ifdef _POSIX2_BC_SCALE_MAX
7827   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_BC_SCALE_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_BC_SCALE_MAX));
7828 #endif
7829 #ifdef _POSIX2_BC_DIM_MAX
7830   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_BC_DIM_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_BC_DIM_MAX));
7831 #endif
7832 #ifdef _POSIX2_BC_BASE_MAX
7833   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX2_BC_BASE_MAX"), s7_make_integer(sc, (s7_int)_POSIX2_BC_BASE_MAX));
7834 #endif
7835 #ifdef NGROUPS_MAX
7836   s7_define(sc, cur_env, s7_make_symbol(sc, "NGROUPS_MAX"), s7_make_integer(sc, (s7_int)NGROUPS_MAX));
7837 #endif
7838 #ifdef SSIZE_MAX
7839   s7_define(sc, cur_env, s7_make_symbol(sc, "SSIZE_MAX"), s7_make_integer(sc, (s7_int)SSIZE_MAX));
7840 #endif
7841 #ifdef _POSIX_CLOCKRES_MIN
7842   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_CLOCKRES_MIN"), s7_make_integer(sc, (s7_int)_POSIX_CLOCKRES_MIN));
7843 #endif
7844 #ifdef _POSIX_UIO_MAXIOV
7845   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_UIO_MAXIOV"), s7_make_integer(sc, (s7_int)_POSIX_UIO_MAXIOV));
7846 #endif
7847 #ifdef _POSIX_HIWAT
7848   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_HIWAT"), s7_make_integer(sc, (s7_int)_POSIX_HIWAT));
7849 #endif
7850 #ifdef _POSIX_QLIMIT
7851   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_QLIMIT"), s7_make_integer(sc, (s7_int)_POSIX_QLIMIT));
7852 #endif
7853 #ifdef _POSIX_TZNAME_MAX
7854   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TZNAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX_TZNAME_MAX));
7855 #endif
7856 #ifdef _POSIX_TTY_NAME_MAX
7857   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TTY_NAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX_TTY_NAME_MAX));
7858 #endif
7859 #ifdef _POSIX_TIMER_MAX
7860   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_TIMER_MAX"), s7_make_integer(sc, (s7_int)_POSIX_TIMER_MAX));
7861 #endif
7862 #ifdef _POSIX_SYMLOOP_MAX
7863   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SYMLOOP_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SYMLOOP_MAX));
7864 #endif
7865 #ifdef _POSIX_SYMLINK_MAX
7866   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SYMLINK_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SYMLINK_MAX));
7867 #endif
7868 #ifdef _POSIX_STREAM_MAX
7869   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_STREAM_MAX"), s7_make_integer(sc, (s7_int)_POSIX_STREAM_MAX));
7870 #endif
7871 #ifdef _POSIX_SSIZE_MAX
7872   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SSIZE_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SSIZE_MAX));
7873 #endif
7874 #ifdef _POSIX_SIGQUEUE_MAX
7875   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SIGQUEUE_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SIGQUEUE_MAX));
7876 #endif
7877 #ifdef _POSIX_SEM_VALUE_MAX
7878   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SEM_VALUE_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SEM_VALUE_MAX));
7879 #endif
7880 #ifdef _POSIX_SEM_NSEMS_MAX
7881   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_SEM_NSEMS_MAX"), s7_make_integer(sc, (s7_int)_POSIX_SEM_NSEMS_MAX));
7882 #endif
7883 #ifdef _POSIX_RTSIG_MAX
7884   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_RTSIG_MAX"), s7_make_integer(sc, (s7_int)_POSIX_RTSIG_MAX));
7885 #endif
7886 #ifdef _POSIX_RE_DUP_MAX
7887   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_RE_DUP_MAX"), s7_make_integer(sc, (s7_int)_POSIX_RE_DUP_MAX));
7888 #endif
7889 #ifdef _POSIX_PIPE_BUF
7890   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_PIPE_BUF"), s7_make_integer(sc, (s7_int)_POSIX_PIPE_BUF));
7891 #endif
7892 #ifdef _POSIX_PATH_MAX
7893   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_PATH_MAX"), s7_make_integer(sc, (s7_int)_POSIX_PATH_MAX));
7894 #endif
7895 #ifdef _POSIX_FD_SETSIZE
7896   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_FD_SETSIZE"), s7_make_integer(sc, (s7_int)_POSIX_FD_SETSIZE));
7897 #endif
7898 #ifdef _POSIX_OPEN_MAX
7899   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_OPEN_MAX"), s7_make_integer(sc, (s7_int)_POSIX_OPEN_MAX));
7900 #endif
7901 #ifdef _POSIX_NGROUPS_MAX
7902   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_NGROUPS_MAX"), s7_make_integer(sc, (s7_int)_POSIX_NGROUPS_MAX));
7903 #endif
7904 #ifdef _POSIX_NAME_MAX
7905   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_NAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX_NAME_MAX));
7906 #endif
7907 #ifdef _POSIX_MQ_PRIO_MAX
7908   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MQ_PRIO_MAX"), s7_make_integer(sc, (s7_int)_POSIX_MQ_PRIO_MAX));
7909 #endif
7910 #ifdef _POSIX_MQ_OPEN_MAX
7911   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MQ_OPEN_MAX"), s7_make_integer(sc, (s7_int)_POSIX_MQ_OPEN_MAX));
7912 #endif
7913 #ifdef _POSIX_MAX_INPUT
7914   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MAX_INPUT"), s7_make_integer(sc, (s7_int)_POSIX_MAX_INPUT));
7915 #endif
7916 #ifdef _POSIX_MAX_CANON
7917   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_MAX_CANON"), s7_make_integer(sc, (s7_int)_POSIX_MAX_CANON));
7918 #endif
7919 #ifdef _POSIX_LOGIN_NAME_MAX
7920   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_LOGIN_NAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX_LOGIN_NAME_MAX));
7921 #endif
7922 #ifdef _POSIX_LINK_MAX
7923   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_LINK_MAX"), s7_make_integer(sc, (s7_int)_POSIX_LINK_MAX));
7924 #endif
7925 #ifdef _POSIX_HOST_NAME_MAX
7926   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_HOST_NAME_MAX"), s7_make_integer(sc, (s7_int)_POSIX_HOST_NAME_MAX));
7927 #endif
7928 #ifdef _POSIX_DELAYTIMER_MAX
7929   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_DELAYTIMER_MAX"), s7_make_integer(sc, (s7_int)_POSIX_DELAYTIMER_MAX));
7930 #endif
7931 #ifdef _POSIX_CHILD_MAX
7932   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_CHILD_MAX"), s7_make_integer(sc, (s7_int)_POSIX_CHILD_MAX));
7933 #endif
7934 #ifdef _POSIX_ARG_MAX
7935   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_ARG_MAX"), s7_make_integer(sc, (s7_int)_POSIX_ARG_MAX));
7936 #endif
7937 #ifdef _POSIX_AIO_MAX
7938   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_AIO_MAX"), s7_make_integer(sc, (s7_int)_POSIX_AIO_MAX));
7939 #endif
7940 #ifdef _POSIX_AIO_LISTIO_MAX
7941   s7_define(sc, cur_env, s7_make_symbol(sc, "_POSIX_AIO_LISTIO_MAX"), s7_make_integer(sc, (s7_int)_POSIX_AIO_LISTIO_MAX));
7942 #endif
7943 #ifdef ULLONG_MAX
7944   s7_define(sc, cur_env, s7_make_symbol(sc, "ULLONG_MAX"), s7_make_integer(sc, (s7_int)ULLONG_MAX));
7945 #endif
7946 #ifdef LLONG_MAX
7947   s7_define(sc, cur_env, s7_make_symbol(sc, "LLONG_MAX"), s7_make_integer(sc, (s7_int)LLONG_MAX));
7948 #endif
7949 #ifdef LLONG_MIN
7950   s7_define(sc, cur_env, s7_make_symbol(sc, "LLONG_MIN"), s7_make_integer(sc, (s7_int)LLONG_MIN));
7951 #endif
7952 #ifdef ULONG_MAX
7953   s7_define(sc, cur_env, s7_make_symbol(sc, "ULONG_MAX"), s7_make_integer(sc, (s7_int)ULONG_MAX));
7954 #endif
7955 #ifdef LONG_MAX
7956   s7_define(sc, cur_env, s7_make_symbol(sc, "LONG_MAX"), s7_make_integer(sc, (s7_int)LONG_MAX));
7957 #endif
7958 #ifdef LONG_MIN
7959   s7_define(sc, cur_env, s7_make_symbol(sc, "LONG_MIN"), s7_make_integer(sc, (s7_int)LONG_MIN));
7960 #endif
7961 #ifdef UINT_MAX
7962   s7_define(sc, cur_env, s7_make_symbol(sc, "UINT_MAX"), s7_make_integer(sc, (s7_int)UINT_MAX));
7963 #endif
7964 #ifdef INT_MAX
7965   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_MAX"), s7_make_integer(sc, (s7_int)INT_MAX));
7966 #endif
7967 #ifdef INT_MIN
7968   s7_define(sc, cur_env, s7_make_symbol(sc, "INT_MIN"), s7_make_integer(sc, (s7_int)INT_MIN));
7969 #endif
7970 #ifdef USHRT_MAX
7971   s7_define(sc, cur_env, s7_make_symbol(sc, "USHRT_MAX"), s7_make_integer(sc, (s7_int)USHRT_MAX));
7972 #endif
7973 #ifdef SHRT_MAX
7974   s7_define(sc, cur_env, s7_make_symbol(sc, "SHRT_MAX"), s7_make_integer(sc, (s7_int)SHRT_MAX));
7975 #endif
7976 #ifdef SHRT_MIN
7977   s7_define(sc, cur_env, s7_make_symbol(sc, "SHRT_MIN"), s7_make_integer(sc, (s7_int)SHRT_MIN));
7978 #endif
7979 #ifdef __WORDSIZE
7980   s7_define(sc, cur_env, s7_make_symbol(sc, "__WORDSIZE"), s7_make_integer(sc, (s7_int)__WORDSIZE));
7981 #endif
7982 #ifdef CHAR_MAX
7983   s7_define(sc, cur_env, s7_make_symbol(sc, "CHAR_MAX"), s7_make_integer(sc, (s7_int)CHAR_MAX));
7984 #endif
7985 #ifdef CHAR_MIN
7986   s7_define(sc, cur_env, s7_make_symbol(sc, "CHAR_MIN"), s7_make_integer(sc, (s7_int)CHAR_MIN));
7987 #endif
7988 #ifdef CHAR_BIT
7989   s7_define(sc, cur_env, s7_make_symbol(sc, "CHAR_BIT"), s7_make_integer(sc, (s7_int)CHAR_BIT));
7990 #endif
7991 #ifdef UCHAR_MAX
7992   s7_define(sc, cur_env, s7_make_symbol(sc, "UCHAR_MAX"), s7_make_integer(sc, (s7_int)UCHAR_MAX));
7993 #endif
7994 #ifdef SCHAR_MAX
7995   s7_define(sc, cur_env, s7_make_symbol(sc, "SCHAR_MAX"), s7_make_integer(sc, (s7_int)SCHAR_MAX));
7996 #endif
7997 #ifdef SCHAR_MIN
7998   s7_define(sc, cur_env, s7_make_symbol(sc, "SCHAR_MIN"), s7_make_integer(sc, (s7_int)SCHAR_MIN));
7999 #endif
8000
8001   s7_define(sc, cur_env,
8002             s7_make_symbol(sc, "regerror"),
8003             s7_make_typed_function(sc, "regerror", g_regerror, 2, 0, false, "regerror", NULL));
8004
8005   s7_define(sc, cur_env,
8006             s7_make_symbol(sc, "regexec"),
8007             s7_make_typed_function(sc, "regexec", g_regexec, 4, 0, false, "regexec", NULL));
8008
8009   s7_define(sc, cur_env,
8010             s7_make_symbol(sc, "regcomp"),
8011             s7_make_typed_function(sc, "regcomp", g_regcomp, 3, 0, false, "regcomp", NULL));
8012
8013   s7_define(sc, cur_env,
8014             s7_make_symbol(sc, "regfree"),
8015             s7_make_typed_function(sc, "regfree", g_regfree, 1, 0, false, "regfree", NULL));
8016
8017   s7_define(sc, cur_env,
8018             s7_make_symbol(sc, "regex.free"),
8019             s7_make_typed_function(sc, "regex.free", g_regex_free, 1, 0, false, "regex.free", NULL));
8020
8021   s7_define(sc, cur_env,
8022             s7_make_symbol(sc, "regex.make"),
8023             s7_make_typed_function(sc, "regex.make", g_regex_make, 0, 0, false, "regex.make", NULL));
8024
8025   s7_define(sc, cur_env,
8026             s7_make_symbol(sc, "recvfrom"),
8027             s7_make_typed_function(sc, "recvfrom", g_recvfrom, 6, 0, false, "recvfrom", NULL));
8028
8029   s7_define(sc, cur_env,
8030             s7_make_symbol(sc, "setsockopt"),
8031             s7_make_typed_function(sc, "setsockopt", g_setsockopt, 5, 0, false, "setsockopt", NULL));
8032
8033   s7_define(sc, cur_env,
8034             s7_make_symbol(sc, "getsockopt"),
8035             s7_make_typed_function(sc, "getsockopt", g_getsockopt, 5, 0, false, "getsockopt", NULL));
8036
8037   s7_define(sc, cur_env,
8038             s7_make_symbol(sc, "accept"),
8039             s7_make_typed_function(sc, "accept", g_accept, 3, 0, false, "accept", NULL));
8040
8041   s7_define(sc, cur_env,
8042             s7_make_symbol(sc, "getpeername"),
8043             s7_make_typed_function(sc, "getpeername", g_getpeername, 3, 0, false, "getpeername", NULL));
8044
8045   s7_define(sc, cur_env,
8046             s7_make_symbol(sc, "getsockname"),
8047             s7_make_typed_function(sc, "getsockname", g_getsockname, 3, 0, false, "getsockname", NULL));
8048
8049   s7_define(sc, cur_env,
8050             s7_make_symbol(sc, "socketpair"),
8051             s7_make_typed_function(sc, "socketpair", g_socketpair, 3, 0, false, "socketpair", NULL));
8052
8053   s7_define(sc, cur_env,
8054             s7_make_symbol(sc, "protoent.p_aliases"),
8055             s7_make_typed_function(sc, "protoent.p_aliases", g_protoent_p_aliases, 1, 0, false, "protoent.p_aliases", NULL));
8056
8057   s7_define(sc, cur_env,
8058             s7_make_symbol(sc, "netent.n_aliases"),
8059             s7_make_typed_function(sc, "netent.n_aliases", g_netent_n_aliases, 1, 0, false, "netent.n_aliases", NULL));
8060
8061   s7_define(sc, cur_env,
8062             s7_make_symbol(sc, "servent.s_aliases"),
8063             s7_make_typed_function(sc, "servent.s_aliases", g_servent_s_aliases, 1, 0, false, "servent.s_aliases", NULL));
8064
8065   s7_define(sc, cur_env,
8066             s7_make_symbol(sc, "hostent.h_aliases"),
8067             s7_make_typed_function(sc, "hostent.h_aliases", g_hostent_h_aliases, 1, 0, false, "hostent.h_aliases", NULL));
8068
8069   s7_define(sc, cur_env,
8070             s7_make_symbol(sc, "protoent.p_proto"),
8071             s7_make_typed_function(sc, "protoent.p_proto", g_protoent_p_proto, 1, 0, false, "protoent.p_proto", NULL));
8072
8073   s7_define(sc, cur_env,
8074             s7_make_symbol(sc, "servent.s_port"),
8075             s7_make_typed_function(sc, "servent.s_port", g_servent_s_port, 1, 0, false, "servent.s_port", NULL));
8076
8077   s7_define(sc, cur_env,
8078             s7_make_symbol(sc, "netent.n_net"),
8079             s7_make_typed_function(sc, "netent.n_net", g_netent_n_net, 1, 0, false, "netent.n_net", NULL));
8080
8081   s7_define(sc, cur_env,
8082             s7_make_symbol(sc, "netent.n_addrtype"),
8083             s7_make_typed_function(sc, "netent.n_addrtype", g_netent_n_addrtype, 1, 0, false, "netent.n_addrtype", NULL));
8084
8085   s7_define(sc, cur_env,
8086             s7_make_symbol(sc, "hostent.h_length"),
8087             s7_make_typed_function(sc, "hostent.h_length", g_hostent_h_length, 1, 0, false, "hostent.h_length", NULL));
8088
8089   s7_define(sc, cur_env,
8090             s7_make_symbol(sc, "hostent.h_addrtype"),
8091             s7_make_typed_function(sc, "hostent.h_addrtype", g_hostent_h_addrtype, 1, 0, false, "hostent.h_addrtype", NULL));
8092
8093   s7_define(sc, cur_env,
8094             s7_make_symbol(sc, "protoent.p_name"),
8095             s7_make_typed_function(sc, "protoent.p_name", g_protoent_p_name, 1, 0, false, "protoent.p_name", NULL));
8096
8097   s7_define(sc, cur_env,
8098             s7_make_symbol(sc, "servent.s_proto"),
8099             s7_make_typed_function(sc, "servent.s_proto", g_servent_s_proto, 1, 0, false, "servent.s_proto", NULL));
8100
8101   s7_define(sc, cur_env,
8102             s7_make_symbol(sc, "servent.s_name"),
8103             s7_make_typed_function(sc, "servent.s_name", g_servent_s_name, 1, 0, false, "servent.s_name", NULL));
8104
8105   s7_define(sc, cur_env,
8106             s7_make_symbol(sc, "netent.n_name"),
8107             s7_make_typed_function(sc, "netent.n_name", g_netent_n_name, 1, 0, false, "netent.n_name", NULL));
8108
8109   s7_define(sc, cur_env,
8110             s7_make_symbol(sc, "hostent.h_name"),
8111             s7_make_typed_function(sc, "hostent.h_name", g_hostent_h_name, 1, 0, false, "hostent.h_name", NULL));
8112
8113   s7_define(sc, cur_env,
8114             s7_make_symbol(sc, "addrinfo.ai_next"),
8115             s7_make_typed_function(sc, "addrinfo.ai_next", g_addrinfo_ai_next, 1, 0, false, "addrinfo.ai_next", NULL));
8116
8117   s7_define(sc, cur_env,
8118             s7_make_symbol(sc, "addrinfo.ai_canonname"),
8119             s7_make_typed_function(sc, "addrinfo.ai_canonname", g_addrinfo_ai_canonname, 1, 0, false, "addrinfo.ai_canonname", NULL));
8120
8121   s7_define(sc, cur_env,
8122             s7_make_symbol(sc, "addrinfo.set_ai_protocol"),
8123             s7_make_typed_function(sc, "addrinfo.set_ai_protocol", g_addrinfo_set_ai_protocol, 2, 0, false, "addrinfo.set_ai_protocol", NULL));
8124
8125   s7_define(sc, cur_env,
8126             s7_make_symbol(sc, "addrinfo.ai_protocol"),
8127             s7_make_typed_function(sc, "addrinfo.ai_protocol", g_addrinfo_ai_protocol, 1, 0, false, "addrinfo.ai_protocol", NULL));
8128
8129   s7_define(sc, cur_env,
8130             s7_make_symbol(sc, "addrinfo.set_ai_socktype"),
8131             s7_make_typed_function(sc, "addrinfo.set_ai_socktype", g_addrinfo_set_ai_socktype, 2, 0, false, "addrinfo.set_ai_socktype", NULL));
8132
8133   s7_define(sc, cur_env,
8134             s7_make_symbol(sc, "addrinfo.ai_socktype"),
8135             s7_make_typed_function(sc, "addrinfo.ai_socktype", g_addrinfo_ai_socktype, 1, 0, false, "addrinfo.ai_socktype", NULL));
8136
8137   s7_define(sc, cur_env,
8138             s7_make_symbol(sc, "addrinfo.set_ai_family"),
8139             s7_make_typed_function(sc, "addrinfo.set_ai_family", g_addrinfo_set_ai_family, 2, 0, false, "addrinfo.set_ai_family", NULL));
8140
8141   s7_define(sc, cur_env,
8142             s7_make_symbol(sc, "addrinfo.ai_family"),
8143             s7_make_typed_function(sc, "addrinfo.ai_family", g_addrinfo_ai_family, 1, 0, false, "addrinfo.ai_family", NULL));
8144
8145   s7_define(sc, cur_env,
8146             s7_make_symbol(sc, "addrinfo.set_ai_flags"),
8147             s7_make_typed_function(sc, "addrinfo.set_ai_flags", g_addrinfo_set_ai_flags, 2, 0, false, "addrinfo.set_ai_flags", NULL));
8148
8149   s7_define(sc, cur_env,
8150             s7_make_symbol(sc, "addrinfo.ai_flags"),
8151             s7_make_typed_function(sc, "addrinfo.ai_flags", g_addrinfo_ai_flags, 1, 0, false, "addrinfo.ai_flags", NULL));
8152
8153   s7_define(sc, cur_env,
8154             s7_make_symbol(sc, "addrinfo.make"),
8155             s7_make_typed_function(sc, "addrinfo.make", g_addrinfo_make, 0, 0, false, "addrinfo.make", NULL));
8156
8157   s7_define(sc, cur_env,
8158             s7_make_symbol(sc, "getnameinfo"),
8159             s7_make_typed_function(sc, "getnameinfo", g_getnameinfo, 3, 0, false, "getnameinfo", NULL));
8160
8161   s7_define(sc, cur_env,
8162             s7_make_symbol(sc, "getaddrinfo"),
8163             s7_make_typed_function(sc, "getaddrinfo", g_getaddrinfo, 3, 0, false, "getaddrinfo", NULL));
8164
8165   s7_define(sc, cur_env,
8166             s7_make_symbol(sc, "ntohs"),
8167             s7_make_typed_function(sc, "ntohs", g_ntohs, 1, 0, false, "ntohs", NULL));
8168
8169   s7_define(sc, cur_env,
8170             s7_make_symbol(sc, "ntohl"),
8171             s7_make_typed_function(sc, "ntohl", g_ntohl, 1, 0, false, "ntohl", NULL));
8172
8173   s7_define(sc, cur_env,
8174             s7_make_symbol(sc, "htons"),
8175             s7_make_typed_function(sc, "htons", g_htons, 1, 0, false, "htons", NULL));
8176
8177   s7_define(sc, cur_env,
8178             s7_make_symbol(sc, "htonl"),
8179             s7_make_typed_function(sc, "htonl", g_htonl, 1, 0, false, "htonl", NULL));
8180
8181   s7_define(sc, cur_env,
8182             s7_make_symbol(sc, "recvmsg"),
8183             s7_make_typed_function(sc, "recvmsg", s7__recvmsg, 3, 0, false, "int recvmsg(int struct-msghdr* int)", pl_iixi));
8184
8185   s7_define(sc, cur_env,
8186             s7_make_symbol(sc, "sendmsg"),
8187             s7_make_typed_function(sc, "sendmsg", s7__sendmsg, 3, 0, false, "int sendmsg(int const-struct-msghdr* int)", pl_iixi));
8188
8189   s7_define(sc, cur_env,
8190             s7_make_symbol(sc, "sendto"),
8191             s7_make_typed_function(sc, "sendto", s7__sendto, 6, 0, false, "int sendto(int void* int int const-struct-sockaddr* int)", pl_iixiixi));
8192
8193   s7_define(sc, cur_env,
8194             s7_make_symbol(sc, "recv"),
8195             s7_make_typed_function(sc, "recv", s7__recv, 4, 0, false, "int recv(int void* int int)", pcl_iixi));
8196
8197   s7_define(sc, cur_env,
8198             s7_make_symbol(sc, "send"),
8199             s7_make_typed_function(sc, "send", s7__send, 4, 0, false, "int send(int void* int int)", pcl_iixi));
8200
8201   s7_define(sc, cur_env,
8202             s7_make_symbol(sc, "connect"),
8203             s7_make_typed_function(sc, "connect", s7__connect, 3, 0, false, "int connect(int const-struct-sockaddr* int)", pl_iixi));
8204
8205   s7_define(sc, cur_env,
8206             s7_make_symbol(sc, "bind"),
8207             s7_make_typed_function(sc, "bind", s7__bind, 3, 0, false, "int bind(int const-struct-sockaddr* int)", pl_iixi));
8208
8209   s7_define(sc, cur_env,
8210             s7_make_symbol(sc, "gai_strerror"),
8211             s7_make_typed_function(sc, "gai_strerror", s7__gai_strerror, 1, 0, false, "char* gai_strerror(int)", pl_si));
8212
8213   s7_define(sc, cur_env,
8214             s7_make_symbol(sc, "freeaddrinfo"),
8215             s7_make_typed_function(sc, "freeaddrinfo", s7__freeaddrinfo, 1, 0, false, "void freeaddrinfo(struct-addrinfo*)", pl_tx));
8216
8217   s7_define(sc, cur_env,
8218             s7_make_symbol(sc, "getprotobynumber"),
8219             s7_make_typed_function(sc, "getprotobynumber", s7__getprotobynumber, 1, 0, false, "protoent* getprotobynumber(int)", pl_xi));
8220
8221   s7_define(sc, cur_env,
8222             s7_make_symbol(sc, "getprotobyname"),
8223             s7_make_typed_function(sc, "getprotobyname", s7__getprotobyname, 1, 0, false, "protoent* getprotobyname(char*)", pl_xs));
8224
8225   s7_define(sc, cur_env,
8226             s7_make_symbol(sc, "getservbyport"),
8227             s7_make_typed_function(sc, "getservbyport", s7__getservbyport, 2, 0, false, "servent* getservbyport(int char*)", pl_xis));
8228
8229   s7_define(sc, cur_env,
8230             s7_make_symbol(sc, "getservbyname"),
8231             s7_make_typed_function(sc, "getservbyname", s7__getservbyname, 2, 0, false, "servent* getservbyname(char* char*)", pcl_xs));
8232
8233   s7_define(sc, cur_env,
8234             s7_make_symbol(sc, "gethostbyaddr"),
8235             s7_make_typed_function(sc, "gethostbyaddr", s7__gethostbyaddr, 3, 0, false, "hostent* gethostbyaddr(void* int int)", pcl_xxi));
8236
8237   s7_define(sc, cur_env,
8238             s7_make_symbol(sc, "gethostbyname"),
8239             s7_make_typed_function(sc, "gethostbyname", s7__gethostbyname, 1, 0, false, "hostent* gethostbyname(char*)", pl_xs));
8240
8241   s7_define(sc, cur_env,
8242             s7_make_symbol(sc, "shutdown"),
8243             s7_make_typed_function(sc, "shutdown", s7__shutdown, 2, 0, false, "int shutdown(int int)", pcl_i));
8244
8245   s7_define(sc, cur_env,
8246             s7_make_symbol(sc, "listen"),
8247             s7_make_typed_function(sc, "listen", s7__listen, 2, 0, false, "int listen(int int)", pcl_i));
8248
8249   s7_define(sc, cur_env,
8250             s7_make_symbol(sc, "socket"),
8251             s7_make_typed_function(sc, "socket", s7__socket, 3, 0, false, "int socket(int int int)", pcl_i));
8252
8253   s7_define(sc, cur_env,
8254             s7_make_symbol(sc, "getprotoent"),
8255             s7_make_typed_function(sc, "getprotoent", s7__getprotoent, 0, 0, false, "protoent* getprotoent(void)", pl_xt));
8256
8257   s7_define(sc, cur_env,
8258             s7_make_symbol(sc, "endprotoent"),
8259             s7_make_typed_function(sc, "endprotoent", s7__endprotoent, 0, 0, false, "void endprotoent(void)", pcl_t));
8260
8261   s7_define(sc, cur_env,
8262             s7_make_symbol(sc, "setprotoent"),
8263             s7_make_typed_function(sc, "setprotoent", s7__setprotoent, 1, 0, false, "void setprotoent(int)", pl_ti));
8264
8265   s7_define(sc, cur_env,
8266             s7_make_symbol(sc, "getservent"),
8267             s7_make_typed_function(sc, "getservent", s7__getservent, 0, 0, false, "servent* getservent(void)", pl_xt));
8268
8269   s7_define(sc, cur_env,
8270             s7_make_symbol(sc, "endservent"),
8271             s7_make_typed_function(sc, "endservent", s7__endservent, 0, 0, false, "void endservent(void)", pcl_t));
8272
8273   s7_define(sc, cur_env,
8274             s7_make_symbol(sc, "setservent"),
8275             s7_make_typed_function(sc, "setservent", s7__setservent, 1, 0, false, "void setservent(int)", pl_ti));
8276
8277   s7_define(sc, cur_env,
8278             s7_make_symbol(sc, "endhostent"),
8279             s7_make_typed_function(sc, "endhostent", s7__endhostent, 0, 0, false, "void endhostent(void)", pcl_t));
8280
8281   s7_define(sc, cur_env,
8282             s7_make_symbol(sc, "sethostent"),
8283             s7_make_typed_function(sc, "sethostent", s7__sethostent, 1, 0, false, "void sethostent(int)", pl_ti));
8284
8285   s7_define(sc, cur_env,
8286             s7_make_symbol(sc, "getnetbyaddr"),
8287             s7_make_typed_function(sc, "getnetbyaddr", s7__getnetbyaddr, 2, 0, false, "netent* getnetbyaddr(int int)", pcl_xi));
8288
8289   s7_define(sc, cur_env,
8290             s7_make_symbol(sc, "getnetbyname"),
8291             s7_make_typed_function(sc, "getnetbyname", s7__getnetbyname, 1, 0, false, "netent* getnetbyname(char*)", pl_xs));
8292
8293   s7_define(sc, cur_env,
8294             s7_make_symbol(sc, "getnetent"),
8295             s7_make_typed_function(sc, "getnetent", s7__getnetent, 0, 0, false, "netent* getnetent(void)", pl_xt));
8296
8297   s7_define(sc, cur_env,
8298             s7_make_symbol(sc, "endnetent"),
8299             s7_make_typed_function(sc, "endnetent", s7__endnetent, 0, 0, false, "void endnetent(void)", pcl_t));
8300
8301   s7_define(sc, cur_env,
8302             s7_make_symbol(sc, "setnetent"),
8303             s7_make_typed_function(sc, "setnetent", s7__setnetent, 1, 0, false, "void setnetent(int)", pl_ti));
8304
8305   s7_define(sc, cur_env,
8306             s7_make_symbol(sc, "gethostent"),
8307             s7_make_typed_function(sc, "gethostent", s7__gethostent, 0, 0, false, "hostent* gethostent(void)", pl_xt));
8308
8309   s7_define(sc, cur_env,
8310             s7_make_symbol(sc, "waitid"),
8311             s7_make_typed_function(sc, "waitid", s7__waitid, 4, 0, false, "int waitid((idtype_t int) int siginfo_t* int)", pl_iiixi));
8312
8313   s7_define(sc, cur_env,
8314             s7_make_symbol(sc, "sigwaitinfo"),
8315             s7_make_typed_function(sc, "sigwaitinfo", s7__sigwaitinfo, 2, 0, false, "int sigwaitinfo(sigset_t* siginfo_t*)", pcl_ix));
8316
8317   s7_define(sc, cur_env,
8318             s7_make_symbol(sc, "setrlimit"),
8319             s7_make_typed_function(sc, "setrlimit", s7__setrlimit, 2, 0, false, "int setrlimit(int struct-rlimit*)", pl_iix));
8320
8321   s7_define(sc, cur_env,
8322             s7_make_symbol(sc, "getrlimit"),
8323             s7_make_typed_function(sc, "getrlimit", s7__getrlimit, 2, 0, false, "int getrlimit(int struct-rlimit*)", pl_iix));
8324
8325   s7_define(sc, cur_env,
8326             s7_make_symbol(sc, "signal"),
8327             s7_make_typed_function(sc, "signal", g_signal, 2, 0, false, "signal", NULL));
8328
8329   s7_define(sc, cur_env,
8330             s7_make_symbol(sc, "sigset.make"),
8331             s7_make_typed_function(sc, "sigset.make", g_sigset_make, 0, 0, false, "sigset.make", NULL));
8332
8333   s7_define(sc, cur_env,
8334             s7_make_symbol(sc, "sigtimedwait"),
8335             s7_make_typed_function(sc, "sigtimedwait", g_sigtimedwait, 3, 0, false, "sigtimedwait", NULL));
8336
8337   s7_define(sc, cur_env,
8338             s7_make_symbol(sc, "sigaction"),
8339             s7_make_typed_function(sc, "sigaction", g_sigaction, 3, 0, false, "sigaction", NULL));
8340
8341   s7_define(sc, cur_env,
8342             s7_make_symbol(sc, "sigwait"),
8343             s7_make_typed_function(sc, "sigwait", g_sigwait, 1, 0, false, "sigwait", NULL));
8344
8345   s7_define(sc, cur_env,
8346             s7_make_symbol(sc, "sigqueue"),
8347             s7_make_typed_function(sc, "sigqueue", g_sigqueue, 3, 0, false, "sigqueue", NULL));
8348
8349   s7_define(sc, cur_env,
8350             s7_make_symbol(sc, "waitpid"),
8351             s7_make_typed_function(sc, "waitpid", g_waitpid, 2, 0, false, "waitpid", NULL));
8352
8353   s7_define(sc, cur_env,
8354             s7_make_symbol(sc, "wait"),
8355             s7_make_typed_function(sc, "wait", g_wait, 0, 0, false, "wait", NULL));
8356
8357   s7_define(sc, cur_env,
8358             s7_make_symbol(sc, "WIFSTOPPED"),
8359             s7_make_typed_function(sc, "WIFSTOPPED", g_WIFSTOPPED, 1, 0, false, "WIFSTOPPED", NULL));
8360
8361   s7_define(sc, cur_env,
8362             s7_make_symbol(sc, "WIFSIGNALED"),
8363             s7_make_typed_function(sc, "WIFSIGNALED", g_WIFSIGNALED, 1, 0, false, "WIFSIGNALED", NULL));
8364
8365   s7_define(sc, cur_env,
8366             s7_make_symbol(sc, "WIFEXITED"),
8367             s7_make_typed_function(sc, "WIFEXITED", g_WIFEXITED, 1, 0, false, "WIFEXITED", NULL));
8368
8369   s7_define(sc, cur_env,
8370             s7_make_symbol(sc, "WSTOPSIG"),
8371             s7_make_typed_function(sc, "WSTOPSIG", g_WSTOPSIG, 1, 0, false, "WSTOPSIG", NULL));
8372
8373   s7_define(sc, cur_env,
8374             s7_make_symbol(sc, "WTERMSIG"),
8375             s7_make_typed_function(sc, "WTERMSIG", g_WTERMSIG, 1, 0, false, "WTERMSIG", NULL));
8376
8377   s7_define(sc, cur_env,
8378             s7_make_symbol(sc, "WEXITSTATUS"),
8379             s7_make_typed_function(sc, "WEXITSTATUS", g_WEXITSTATUS, 1, 0, false, "WEXITSTATUS", NULL));
8380
8381   s7_define(sc, cur_env,
8382             s7_make_symbol(sc, "sigaction.set_sa_flags"),
8383             s7_make_typed_function(sc, "sigaction.set_sa_flags", g_sigaction_set_sa_flags, 2, 0, false, "sigaction.set_sa_flags", NULL));
8384
8385   s7_define(sc, cur_env,
8386             s7_make_symbol(sc, "sigaction.set_sa_handler"),
8387             s7_make_typed_function(sc, "sigaction.set_sa_handler", g_sigaction_set_sa_handler, 2, 0, false, "sigaction.set_sa_handler", NULL));
8388
8389   s7_define(sc, cur_env,
8390             s7_make_symbol(sc, "sigaction.sa_mask"),
8391             s7_make_typed_function(sc, "sigaction.sa_mask", g_sigaction_sa_mask, 1, 0, false, "sigaction.sa_mask", NULL));
8392
8393   s7_define(sc, cur_env,
8394             s7_make_symbol(sc, "sigaction.sa_flags"),
8395             s7_make_typed_function(sc, "sigaction.sa_flags", g_sigaction_sa_flags, 1, 0, false, "sigaction.sa_flags", NULL));
8396
8397   s7_define(sc, cur_env,
8398             s7_make_symbol(sc, "sigaction.sa_handler"),
8399             s7_make_typed_function(sc, "sigaction.sa_handler", g_sigaction_sa_handler, 1, 0, false, "sigaction.sa_handler", NULL));
8400
8401   s7_define(sc, cur_env,
8402             s7_make_symbol(sc, "sigaction.make"),
8403             s7_make_typed_function(sc, "sigaction.make", g_sigaction_make, 0, 0, false, "sigaction.make", NULL));
8404
8405   s7_define(sc, cur_env,
8406             s7_make_symbol(sc, "timespec.tv_nsec"),
8407             s7_make_typed_function(sc, "timespec.tv_nsec", g_timespec_tv_nsec, 1, 0, false, "timespec.tv_nsec", NULL));
8408
8409   s7_define(sc, cur_env,
8410             s7_make_symbol(sc, "timespec.tv_sec"),
8411             s7_make_typed_function(sc, "timespec.tv_sec", g_timespec_tv_sec, 1, 0, false, "timespec.tv_sec", NULL));
8412
8413   s7_define(sc, cur_env,
8414             s7_make_symbol(sc, "timespec.make"),
8415             s7_make_typed_function(sc, "timespec.make", g_timespec_make, 0, 0, false, "timespec.make", NULL));
8416
8417   s7_define(sc, cur_env,
8418             s7_make_symbol(sc, "siginfo.si_addr"),
8419             s7_make_typed_function(sc, "siginfo.si_addr", g_siginfo_si_addr, 1, 0, false, "siginfo.si_addr", NULL));
8420
8421   s7_define(sc, cur_env,
8422             s7_make_symbol(sc, "siginfo.si_ptr"),
8423             s7_make_typed_function(sc, "siginfo.si_ptr", g_siginfo_si_ptr, 1, 0, false, "siginfo.si_ptr", NULL));
8424
8425   s7_define(sc, cur_env,
8426             s7_make_symbol(sc, "siginfo.si_fd"),
8427             s7_make_typed_function(sc, "siginfo.si_fd", g_siginfo_si_fd, 1, 0, false, "siginfo.si_fd", NULL));
8428
8429   s7_define(sc, cur_env,
8430             s7_make_symbol(sc, "siginfo.si_band"),
8431             s7_make_typed_function(sc, "siginfo.si_band", g_siginfo_si_band, 1, 0, false, "siginfo.si_band", NULL));
8432
8433   s7_define(sc, cur_env,
8434             s7_make_symbol(sc, "siginfo.si_timerid"),
8435             s7_make_typed_function(sc, "siginfo.si_timerid", g_siginfo_si_timerid, 1, 0, false, "siginfo.si_timerid", NULL));
8436
8437   s7_define(sc, cur_env,
8438             s7_make_symbol(sc, "siginfo.si_overrun"),
8439             s7_make_typed_function(sc, "siginfo.si_overrun", g_siginfo_si_overrun, 1, 0, false, "siginfo.si_overrun", NULL));
8440
8441   s7_define(sc, cur_env,
8442             s7_make_symbol(sc, "siginfo.si_int"),
8443             s7_make_typed_function(sc, "siginfo.si_int", g_siginfo_si_int, 1, 0, false, "siginfo.si_int", NULL));
8444
8445   s7_define(sc, cur_env,
8446             s7_make_symbol(sc, "siginfo.si_value"),
8447             s7_make_typed_function(sc, "siginfo.si_value", g_siginfo_si_value, 1, 0, false, "siginfo.si_value", NULL));
8448
8449   s7_define(sc, cur_env,
8450             s7_make_symbol(sc, "siginfo.si_stime"),
8451             s7_make_typed_function(sc, "siginfo.si_stime", g_siginfo_si_stime, 1, 0, false, "siginfo.si_stime", NULL));
8452
8453   s7_define(sc, cur_env,
8454             s7_make_symbol(sc, "siginfo.si_utime"),
8455             s7_make_typed_function(sc, "siginfo.si_utime", g_siginfo_si_utime, 1, 0, false, "siginfo.si_utime", NULL));
8456
8457   s7_define(sc, cur_env,
8458             s7_make_symbol(sc, "siginfo.si_status"),
8459             s7_make_typed_function(sc, "siginfo.si_status", g_siginfo_si_status, 1, 0, false, "siginfo.si_status", NULL));
8460
8461   s7_define(sc, cur_env,
8462             s7_make_symbol(sc, "siginfo.si_uid"),
8463             s7_make_typed_function(sc, "siginfo.si_uid", g_siginfo_si_uid, 1, 0, false, "siginfo.si_uid", NULL));
8464
8465   s7_define(sc, cur_env,
8466             s7_make_symbol(sc, "siginfo.si_pid"),
8467             s7_make_typed_function(sc, "siginfo.si_pid", g_siginfo_si_pid, 1, 0, false, "siginfo.si_pid", NULL));
8468
8469   s7_define(sc, cur_env,
8470             s7_make_symbol(sc, "siginfo.si_code"),
8471             s7_make_typed_function(sc, "siginfo.si_code", g_siginfo_si_code, 1, 0, false, "siginfo.si_code", NULL));
8472
8473   s7_define(sc, cur_env,
8474             s7_make_symbol(sc, "siginfo.si_errno"),
8475             s7_make_typed_function(sc, "siginfo.si_errno", g_siginfo_si_errno, 1, 0, false, "siginfo.si_errno", NULL));
8476
8477   s7_define(sc, cur_env,
8478             s7_make_symbol(sc, "siginfo.si_signo"),
8479             s7_make_typed_function(sc, "siginfo.si_signo", g_siginfo_si_signo, 1, 0, false, "siginfo.si_signo", NULL));
8480
8481   s7_define(sc, cur_env,
8482             s7_make_symbol(sc, "siginfo.make"),
8483             s7_make_typed_function(sc, "siginfo.make", g_siginfo_make, 0, 0, false, "siginfo.make", NULL));
8484
8485   s7_define(sc, cur_env,
8486             s7_make_symbol(sc, "rusage.ru_stime"),
8487             s7_make_typed_function(sc, "rusage.ru_stime", g_rusage_ru_stime, 1, 0, false, "rusage.ru_stime", NULL));
8488
8489   s7_define(sc, cur_env,
8490             s7_make_symbol(sc, "rusage.ru_utime"),
8491             s7_make_typed_function(sc, "rusage.ru_utime", g_rusage_ru_utime, 1, 0, false, "rusage.ru_utime", NULL));
8492
8493   s7_define(sc, cur_env,
8494             s7_make_symbol(sc, "rusage.ru_nivcsw"),
8495             s7_make_typed_function(sc, "rusage.ru_nivcsw", g_rusage_ru_nivcsw, 1, 0, false, "rusage.ru_nivcsw", NULL));
8496
8497   s7_define(sc, cur_env,
8498             s7_make_symbol(sc, "rusage.ru_nvcsw"),
8499             s7_make_typed_function(sc, "rusage.ru_nvcsw", g_rusage_ru_nvcsw, 1, 0, false, "rusage.ru_nvcsw", NULL));
8500
8501   s7_define(sc, cur_env,
8502             s7_make_symbol(sc, "rusage.ru_oublock"),
8503             s7_make_typed_function(sc, "rusage.ru_oublock", g_rusage_ru_oublock, 1, 0, false, "rusage.ru_oublock", NULL));
8504
8505   s7_define(sc, cur_env,
8506             s7_make_symbol(sc, "rusage.ru_inblock"),
8507             s7_make_typed_function(sc, "rusage.ru_inblock", g_rusage_ru_inblock, 1, 0, false, "rusage.ru_inblock", NULL));
8508
8509   s7_define(sc, cur_env,
8510             s7_make_symbol(sc, "rusage.ru_majflt"),
8511             s7_make_typed_function(sc, "rusage.ru_majflt", g_rusage_ru_majflt, 1, 0, false, "rusage.ru_majflt", NULL));
8512
8513   s7_define(sc, cur_env,
8514             s7_make_symbol(sc, "rusage.ru_minflt"),
8515             s7_make_typed_function(sc, "rusage.ru_minflt", g_rusage_ru_minflt, 1, 0, false, "rusage.ru_minflt", NULL));
8516
8517   s7_define(sc, cur_env,
8518             s7_make_symbol(sc, "rusage.ru_maxrss"),
8519             s7_make_typed_function(sc, "rusage.ru_maxrss", g_rusage_ru_maxrss, 1, 0, false, "rusage.ru_maxrss", NULL));
8520
8521   s7_define(sc, cur_env,
8522             s7_make_symbol(sc, "getrusage"),
8523             s7_make_typed_function(sc, "getrusage", g_getrusage, 2, 0, false, "getrusage", NULL));
8524
8525   s7_define(sc, cur_env,
8526             s7_make_symbol(sc, "rusage.make"),
8527             s7_make_typed_function(sc, "rusage.make", g_rusage_make, 0, 0, false, "rusage.make", NULL));
8528
8529   s7_define(sc, cur_env,
8530             s7_make_symbol(sc, "rlimit.rlim_max"),
8531             s7_make_typed_function(sc, "rlimit.rlim_max", g_rlimit_rlim_max, 1, 0, false, "rlimit.rlim_max", NULL));
8532
8533   s7_define(sc, cur_env,
8534             s7_make_symbol(sc, "rlimit.rlim_cur"),
8535             s7_make_typed_function(sc, "rlimit.rlim_cur", g_rlimit_rlim_cur, 1, 0, false, "rlimit.rlim_cur", NULL));
8536
8537   s7_define(sc, cur_env,
8538             s7_make_symbol(sc, "rlimit.make"),
8539             s7_make_typed_function(sc, "rlimit.make", g_rlimit_make, 0, 0, false, "rlimit.make", NULL));
8540
8541   s7_define(sc, cur_env,
8542             s7_make_symbol(sc, "setpriority"),
8543             s7_make_typed_function(sc, "setpriority", s7__setpriority, 3, 0, false, "int setpriority(int int int)", pcl_i));
8544
8545   s7_define(sc, cur_env,
8546             s7_make_symbol(sc, "getpriority"),
8547             s7_make_typed_function(sc, "getpriority", s7__getpriority, 2, 0, false, "int getpriority(int int)", pcl_i));
8548
8549   s7_define(sc, cur_env,
8550             s7_make_symbol(sc, "sigpending"),
8551             s7_make_typed_function(sc, "sigpending", s7__sigpending, 1, 0, false, "int sigpending(sigset_t*)", pl_ix));
8552
8553   s7_define(sc, cur_env,
8554             s7_make_symbol(sc, "sigsuspend"),
8555             s7_make_typed_function(sc, "sigsuspend", s7__sigsuspend, 1, 0, false, "int sigsuspend(sigset_t*)", pl_ix));
8556
8557   s7_define(sc, cur_env,
8558             s7_make_symbol(sc, "sigprocmask"),
8559             s7_make_typed_function(sc, "sigprocmask", s7__sigprocmask, 3, 0, false, "int sigprocmask(int sigset_t* sigset_t*)", pcl_iix));
8560
8561   s7_define(sc, cur_env,
8562             s7_make_symbol(sc, "sigismember"),
8563             s7_make_typed_function(sc, "sigismember", s7__sigismember, 2, 0, false, "int sigismember(sigset_t* int)", pl_ixi));
8564
8565   s7_define(sc, cur_env,
8566             s7_make_symbol(sc, "sigdelset"),
8567             s7_make_typed_function(sc, "sigdelset", s7__sigdelset, 2, 0, false, "int sigdelset(sigset_t* int)", pl_ixi));
8568
8569   s7_define(sc, cur_env,
8570             s7_make_symbol(sc, "sigaddset"),
8571             s7_make_typed_function(sc, "sigaddset", s7__sigaddset, 2, 0, false, "int sigaddset(sigset_t* int)", pl_ixi));
8572
8573   s7_define(sc, cur_env,
8574             s7_make_symbol(sc, "sigfillset"),
8575             s7_make_typed_function(sc, "sigfillset", s7__sigfillset, 1, 0, false, "int sigfillset(sigset_t*)", pl_ix));
8576
8577   s7_define(sc, cur_env,
8578             s7_make_symbol(sc, "sigemptyset"),
8579             s7_make_typed_function(sc, "sigemptyset", s7__sigemptyset, 1, 0, false, "int sigemptyset(sigset_t*)", pl_ix));
8580
8581   s7_define(sc, cur_env,
8582             s7_make_symbol(sc, "raise"),
8583             s7_make_typed_function(sc, "raise", s7__raise, 1, 0, false, "int raise(int)", pcl_i));
8584
8585   s7_define(sc, cur_env,
8586             s7_make_symbol(sc, "kill"),
8587             s7_make_typed_function(sc, "kill", s7__kill, 2, 0, false, "int kill(int int)", pcl_i));
8588
8589   s7_define(sc, cur_env,
8590             s7_make_symbol(sc, "glob"),
8591             s7_make_typed_function(sc, "glob", g_glob, 3, 0, false, "glob", NULL));
8592
8593   s7_define(sc, cur_env,
8594             s7_make_symbol(sc, "glob.gl_pathv"),
8595             s7_make_typed_function(sc, "glob.gl_pathv", g_glob_gl_pathv, 1, 0, false, "glob.gl_pathv", NULL));
8596
8597   s7_define(sc, cur_env,
8598             s7_make_symbol(sc, "glob.gl_pathc"),
8599             s7_make_typed_function(sc, "glob.gl_pathc", g_glob_gl_pathc, 1, 0, false, "glob.gl_pathc", NULL));
8600
8601   s7_define(sc, cur_env,
8602             s7_make_symbol(sc, "glob.make"),
8603             s7_make_typed_function(sc, "glob.make", g_glob_make, 0, 0, false, "glob.make", NULL));
8604
8605   s7_define(sc, cur_env,
8606             s7_make_symbol(sc, "globfree"),
8607             s7_make_typed_function(sc, "globfree", s7__globfree, 1, 0, false, "void globfree(glob_t*)", pl_tx));
8608
8609   s7_define(sc, cur_env,
8610             s7_make_symbol(sc, "wordexp.we_wordv"),
8611             s7_make_typed_function(sc, "wordexp.we_wordv", g_wordexp_we_wordv, 1, 0, false, "wordexp.we_wordv", NULL));
8612
8613   s7_define(sc, cur_env,
8614             s7_make_symbol(sc, "wordexp.we_wordc"),
8615             s7_make_typed_function(sc, "wordexp.we_wordc", g_wordexp_we_wordc, 1, 0, false, "wordexp.we_wordc", NULL));
8616
8617   s7_define(sc, cur_env,
8618             s7_make_symbol(sc, "wordexp.make"),
8619             s7_make_typed_function(sc, "wordexp.make", g_wordexp_make, 0, 0, false, "wordexp.make", NULL));
8620
8621   s7_define(sc, cur_env,
8622             s7_make_symbol(sc, "wordfree"),
8623             s7_make_typed_function(sc, "wordfree", s7__wordfree, 1, 0, false, "void wordfree(wordexp_t*)", pl_tx));
8624
8625   s7_define(sc, cur_env,
8626             s7_make_symbol(sc, "wordexp"),
8627             s7_make_typed_function(sc, "wordexp", s7__wordexp, 3, 0, false, "int wordexp(char* wordexp_t* int)", pl_isxi));
8628
8629   s7_define(sc, cur_env,
8630             s7_make_symbol(sc, "passwd.pw_shell"),
8631             s7_make_typed_function(sc, "passwd.pw_shell", g_passwd_pw_shell, 1, 0, false, "passwd.pw_shell", NULL));
8632
8633   s7_define(sc, cur_env,
8634             s7_make_symbol(sc, "passwd.pw_dir"),
8635             s7_make_typed_function(sc, "passwd.pw_dir", g_passwd_pw_dir, 1, 0, false, "passwd.pw_dir", NULL));
8636
8637   s7_define(sc, cur_env,
8638             s7_make_symbol(sc, "passwd.pw_gecos"),
8639             s7_make_typed_function(sc, "passwd.pw_gecos", g_passwd_pw_gecos, 1, 0, false, "passwd.pw_gecos", NULL));
8640
8641   s7_define(sc, cur_env,
8642             s7_make_symbol(sc, "passwd.pw_gid"),
8643             s7_make_typed_function(sc, "passwd.pw_gid", g_passwd_pw_gid, 1, 0, false, "passwd.pw_gid", NULL));
8644
8645   s7_define(sc, cur_env,
8646             s7_make_symbol(sc, "passwd.pw_uid"),
8647             s7_make_typed_function(sc, "passwd.pw_uid", g_passwd_pw_uid, 1, 0, false, "passwd.pw_uid", NULL));
8648
8649   s7_define(sc, cur_env,
8650             s7_make_symbol(sc, "passwd.pw_passwd"),
8651             s7_make_typed_function(sc, "passwd.pw_passwd", g_passwd_pw_passwd, 1, 0, false, "passwd.pw_passwd", NULL));
8652
8653   s7_define(sc, cur_env,
8654             s7_make_symbol(sc, "passwd.pw_name"),
8655             s7_make_typed_function(sc, "passwd.pw_name", g_passwd_pw_name, 1, 0, false, "passwd.pw_name", NULL));
8656
8657   s7_define(sc, cur_env,
8658             s7_make_symbol(sc, "getpwnam"),
8659             s7_make_typed_function(sc, "getpwnam", s7__getpwnam, 1, 0, false, "passwd* getpwnam(char*)", pl_xs));
8660
8661   s7_define(sc, cur_env,
8662             s7_make_symbol(sc, "getpwuid"),
8663             s7_make_typed_function(sc, "getpwuid", s7__getpwuid, 1, 0, false, "passwd* getpwuid(int)", pl_xi));
8664
8665   s7_define(sc, cur_env,
8666             s7_make_symbol(sc, "getpwent"),
8667             s7_make_typed_function(sc, "getpwent", s7__getpwent, 0, 0, false, "passwd* getpwent(void)", pl_xt));
8668
8669   s7_define(sc, cur_env,
8670             s7_make_symbol(sc, "endpwent"),
8671             s7_make_typed_function(sc, "endpwent", s7__endpwent, 0, 0, false, "void endpwent(void)", pcl_t));
8672
8673   s7_define(sc, cur_env,
8674             s7_make_symbol(sc, "setpwent"),
8675             s7_make_typed_function(sc, "setpwent", s7__setpwent, 0, 0, false, "void setpwent(void)", pcl_t));
8676
8677   s7_define(sc, cur_env,
8678             s7_make_symbol(sc, "group.gr_mem"),
8679             s7_make_typed_function(sc, "group.gr_mem", g_group_gr_mem, 1, 0, false, "group.gr_mem", NULL));
8680
8681   s7_define(sc, cur_env,
8682             s7_make_symbol(sc, "group.gr_gid"),
8683             s7_make_typed_function(sc, "group.gr_gid", g_group_gr_gid, 1, 0, false, "group.gr_gid", NULL));
8684
8685   s7_define(sc, cur_env,
8686             s7_make_symbol(sc, "group.gr_passwd"),
8687             s7_make_typed_function(sc, "group.gr_passwd", g_group_gr_passwd, 1, 0, false, "group.gr_passwd", NULL));
8688
8689   s7_define(sc, cur_env,
8690             s7_make_symbol(sc, "group.gr_name"),
8691             s7_make_typed_function(sc, "group.gr_name", g_group_gr_name, 1, 0, false, "group.gr_name", NULL));
8692
8693   s7_define(sc, cur_env,
8694             s7_make_symbol(sc, "getgrnam"),
8695             s7_make_typed_function(sc, "getgrnam", g_getgrnam, 1, 0, false, "getgrnam", NULL));
8696
8697   s7_define(sc, cur_env,
8698             s7_make_symbol(sc, "getgrgid"),
8699             s7_make_typed_function(sc, "getgrgid", g_getgrgid, 1, 0, false, "getgrgid", NULL));
8700
8701   s7_define(sc, cur_env,
8702             s7_make_symbol(sc, "termios.set_c_cc"),
8703             s7_make_typed_function(sc, "termios.set_c_cc", g_termios_set_c_cc, 3, 0, false, "termios.set_c_cc", NULL));
8704
8705   s7_define(sc, cur_env,
8706             s7_make_symbol(sc, "termios.set_c_lflag"),
8707             s7_make_typed_function(sc, "termios.set_c_lflag", g_termios_set_c_lflag, 2, 0, false, "termios.set_c_lflag", NULL));
8708
8709   s7_define(sc, cur_env,
8710             s7_make_symbol(sc, "termios.c_lflag"),
8711             s7_make_typed_function(sc, "termios.c_lflag", g_termios_c_lflag, 1, 0, false, "termios.c_lflag", NULL));
8712
8713   s7_define(sc, cur_env,
8714             s7_make_symbol(sc, "termios.make"),
8715             s7_make_typed_function(sc, "termios.make", g_termios_make, 0, 0, false, "termios.make", NULL));
8716
8717   s7_define(sc, cur_env,
8718             s7_make_symbol(sc, "tcsetattr"),
8719             s7_make_typed_function(sc, "tcsetattr", g_tcsetattr, 3, 0, false, "tcsetattr", NULL));
8720
8721   s7_define(sc, cur_env,
8722             s7_make_symbol(sc, "tcgetattr"),
8723             s7_make_typed_function(sc, "tcgetattr", g_tcgetattr, 2, 0, false, "tcgetattr", NULL));
8724
8725   s7_define(sc, cur_env,
8726             s7_make_symbol(sc, "cfsetispeed"),
8727             s7_make_typed_function(sc, "cfsetispeed", g_cfsetispeed, 2, 0, false, "cfsetispeed", NULL));
8728
8729   s7_define(sc, cur_env,
8730             s7_make_symbol(sc, "cfsetospeed"),
8731             s7_make_typed_function(sc, "cfsetospeed", g_cfsetospeed, 2, 0, false, "cfsetospeed", NULL));
8732
8733   s7_define(sc, cur_env,
8734             s7_make_symbol(sc, "cfgetispeed"),
8735             s7_make_typed_function(sc, "cfgetispeed", g_cfgetispeed, 1, 0, false, "cfgetispeed", NULL));
8736
8737   s7_define(sc, cur_env,
8738             s7_make_symbol(sc, "cfgetospeed"),
8739             s7_make_typed_function(sc, "cfgetospeed", g_cfgetospeed, 1, 0, false, "cfgetospeed", NULL));
8740
8741   s7_define(sc, cur_env,
8742             s7_make_symbol(sc, "tcflow"),
8743             s7_make_typed_function(sc, "tcflow", s7__tcflow, 2, 0, false, "int tcflow(int int)", pcl_i));
8744
8745   s7_define(sc, cur_env,
8746             s7_make_symbol(sc, "tcflush"),
8747             s7_make_typed_function(sc, "tcflush", s7__tcflush, 2, 0, false, "int tcflush(int int)", pcl_i));
8748
8749   s7_define(sc, cur_env,
8750             s7_make_symbol(sc, "tcdrain"),
8751             s7_make_typed_function(sc, "tcdrain", s7__tcdrain, 1, 0, false, "int tcdrain(int)", pcl_i));
8752
8753   s7_define(sc, cur_env,
8754             s7_make_symbol(sc, "tcsendbreak"),
8755             s7_make_typed_function(sc, "tcsendbreak", s7__tcsendbreak, 2, 0, false, "int tcsendbreak(int int)", pcl_i));
8756
8757   s7_define(sc, cur_env,
8758             s7_make_symbol(sc, "utime"),
8759             s7_make_typed_function(sc, "utime", g_utime, 3, 0, false, "utime", NULL));
8760
8761   s7_define(sc, cur_env,
8762             s7_make_symbol(sc, "clock_nanosleep"),
8763             s7_make_typed_function(sc, "clock_nanosleep", g_clock_nanosleep, 4, 0, false, "clock_nanosleep", NULL));
8764
8765   s7_define(sc, cur_env,
8766             s7_make_symbol(sc, "clock_getcpuclockid"),
8767             s7_make_typed_function(sc, "clock_getcpuclockid", g_clock_getcpuclockid, 1, 0, false, "clock_getcpuclockid", NULL));
8768
8769   s7_define(sc, cur_env,
8770             s7_make_symbol(sc, "clock_settime"),
8771             s7_make_typed_function(sc, "clock_settime", g_clock_settime, 3, 0, false, "clock_settime", NULL));
8772
8773   s7_define(sc, cur_env,
8774             s7_make_symbol(sc, "clock_gettime"),
8775             s7_make_typed_function(sc, "clock_gettime", g_clock_gettime, 1, 0, false, "clock_gettime", NULL));
8776
8777   s7_define(sc, cur_env,
8778             s7_make_symbol(sc, "clock_getres"),
8779             s7_make_typed_function(sc, "clock_getres", g_clock_getres, 1, 0, false, "clock_getres", NULL));
8780
8781   s7_define(sc, cur_env,
8782             s7_make_symbol(sc, "nanosleep"),
8783             s7_make_typed_function(sc, "nanosleep", g_nanosleep, 2, 0, false, "nanosleep", NULL));
8784
8785   s7_define(sc, cur_env,
8786             s7_make_symbol(sc, "gettimeofday"),
8787             s7_make_typed_function(sc, "gettimeofday", g_gettimeofday, 0, 0, false, "gettimeofday", NULL));
8788
8789   s7_define(sc, cur_env,
8790             s7_make_symbol(sc, "strftime"),
8791             s7_make_typed_function(sc, "strftime", g_strftime, 4, 0, false, "strftime", NULL));
8792
8793   s7_define(sc, cur_env,
8794             s7_make_symbol(sc, "asctime"),
8795             s7_make_typed_function(sc, "asctime", g_asctime, 1, 0, false, "asctime", NULL));
8796
8797   s7_define(sc, cur_env,
8798             s7_make_symbol(sc, "mktime"),
8799             s7_make_typed_function(sc, "mktime", g_mktime, 1, 0, false, "mktime", NULL));
8800
8801   s7_define(sc, cur_env,
8802             s7_make_symbol(sc, "time.make"),
8803             s7_make_typed_function(sc, "time.make", g_time_make, 1, 0, false, "time.make", NULL));
8804
8805   s7_define(sc, cur_env,
8806             s7_make_symbol(sc, "localtime"),
8807             s7_make_typed_function(sc, "localtime", s7__localtime, 1, 0, false, "tm* localtime(time_t*)", pcl_x));
8808
8809   s7_define(sc, cur_env,
8810             s7_make_symbol(sc, "ctime"),
8811             s7_make_typed_function(sc, "ctime", s7__ctime, 1, 0, false, "char* ctime(time_t*)", pl_sx));
8812
8813   s7_define(sc, cur_env,
8814             s7_make_symbol(sc, "gmtime"),
8815             s7_make_typed_function(sc, "gmtime", s7__gmtime, 1, 0, false, "tm* gmtime(time_t*)", pcl_x));
8816
8817   s7_define(sc, cur_env,
8818             s7_make_symbol(sc, "difftime"),
8819             s7_make_typed_function(sc, "difftime", s7__difftime, 2, 0, false, "double difftime((time_t integer) (time_t integer))", pcl_di));
8820
8821   s7_define(sc, cur_env,
8822             s7_make_symbol(sc, "time"),
8823             s7_make_typed_function(sc, "time", s7__time, 1, 0, false, "int time(time_t*)", pl_ix));
8824
8825   s7_define(sc, cur_env,
8826             s7_make_symbol(sc, "clock"),
8827             s7_make_typed_function(sc, "clock", s7__clock, 0, 0, false, "int clock(void)", pl_it));
8828
8829   s7_define(sc, cur_env,
8830             s7_make_symbol(sc, "stat.make"),
8831             s7_make_typed_function(sc, "stat.make", g_stat_make, 0, 0, false, "stat.make", NULL));
8832
8833   s7_define(sc, cur_env,
8834             s7_make_symbol(sc, "stat.st_ctime"),
8835             s7_make_typed_function(sc, "stat.st_ctime", g_st_ctime, 1, 0, false, "stat.st_ctime", NULL));
8836
8837   s7_define(sc, cur_env,
8838             s7_make_symbol(sc, "stat.st_mtime"),
8839             s7_make_typed_function(sc, "stat.st_mtime", g_st_mtime, 1, 0, false, "stat.st_mtime", NULL));
8840
8841   s7_define(sc, cur_env,
8842             s7_make_symbol(sc, "stat.st_atime"),
8843             s7_make_typed_function(sc, "stat.st_atime", g_st_atime, 1, 0, false, "stat.st_atime", NULL));
8844
8845   s7_define(sc, cur_env,
8846             s7_make_symbol(sc, "stat.st_blocks"),
8847             s7_make_typed_function(sc, "stat.st_blocks", g_st_blocks, 1, 0, false, "stat.st_blocks", NULL));
8848
8849   s7_define(sc, cur_env,
8850             s7_make_symbol(sc, "stat.st_blksize"),
8851             s7_make_typed_function(sc, "stat.st_blksize", g_st_blksize, 1, 0, false, "stat.st_blksize", NULL));
8852
8853   s7_define(sc, cur_env,
8854             s7_make_symbol(sc, "stat.st_size"),
8855             s7_make_typed_function(sc, "stat.st_size", g_st_size, 1, 0, false, "stat.st_size", NULL));
8856
8857   s7_define(sc, cur_env,
8858             s7_make_symbol(sc, "stat.st_rdev"),
8859             s7_make_typed_function(sc, "stat.st_rdev", g_st_rdev, 1, 0, false, "stat.st_rdev", NULL));
8860
8861   s7_define(sc, cur_env,
8862             s7_make_symbol(sc, "stat.st_gid"),
8863             s7_make_typed_function(sc, "stat.st_gid", g_st_gid, 1, 0, false, "stat.st_gid", NULL));
8864
8865   s7_define(sc, cur_env,
8866             s7_make_symbol(sc, "stat.st_uid"),
8867             s7_make_typed_function(sc, "stat.st_uid", g_st_uid, 1, 0, false, "stat.st_uid", NULL));
8868
8869   s7_define(sc, cur_env,
8870             s7_make_symbol(sc, "stat.st_nlink"),
8871             s7_make_typed_function(sc, "stat.st_nlink", g_st_nlink, 1, 0, false, "stat.st_nlink", NULL));
8872
8873   s7_define(sc, cur_env,
8874             s7_make_symbol(sc, "stat.st_mode"),
8875             s7_make_typed_function(sc, "stat.st_mode", g_st_mode, 1, 0, false, "stat.st_mode", NULL));
8876
8877   s7_define(sc, cur_env,
8878             s7_make_symbol(sc, "stat.st_ino"),
8879             s7_make_typed_function(sc, "stat.st_ino", g_st_ino, 1, 0, false, "stat.st_ino", NULL));
8880
8881   s7_define(sc, cur_env,
8882             s7_make_symbol(sc, "stat.st_dev"),
8883             s7_make_typed_function(sc, "stat.st_dev", g_st_dev, 1, 0, false, "stat.st_dev", NULL));
8884
8885   s7_define(sc, cur_env,
8886             s7_make_symbol(sc, "S_ISSOCK"),
8887             s7_make_typed_function(sc, "S_ISSOCK", g_issock, 1, 0, false, "S_ISSOCK", NULL));
8888
8889   s7_define(sc, cur_env,
8890             s7_make_symbol(sc, "S_ISLNK"),
8891             s7_make_typed_function(sc, "S_ISLNK", g_islnk, 1, 0, false, "S_ISLNK", NULL));
8892
8893   s7_define(sc, cur_env,
8894             s7_make_symbol(sc, "S_ISFIFO"),
8895             s7_make_typed_function(sc, "S_ISFIFO", g_isfifo, 1, 0, false, "S_ISFIFO", NULL));
8896
8897   s7_define(sc, cur_env,
8898             s7_make_symbol(sc, "S_ISREG"),
8899             s7_make_typed_function(sc, "S_ISREG", g_isreg, 1, 0, false, "S_ISREG", NULL));
8900
8901   s7_define(sc, cur_env,
8902             s7_make_symbol(sc, "S_ISBLK"),
8903             s7_make_typed_function(sc, "S_ISBLK", g_isblk, 1, 0, false, "S_ISBLK", NULL));
8904
8905   s7_define(sc, cur_env,
8906             s7_make_symbol(sc, "S_ISCHR"),
8907             s7_make_typed_function(sc, "S_ISCHR", g_ischr, 1, 0, false, "S_ISCHR", NULL));
8908
8909   s7_define(sc, cur_env,
8910             s7_make_symbol(sc, "S_ISDIR"),
8911             s7_make_typed_function(sc, "S_ISDIR", g_isdir, 1, 0, false, "S_ISDIR", NULL));
8912
8913   s7_define(sc, cur_env,
8914             s7_make_symbol(sc, "mkfifo"),
8915             s7_make_typed_function(sc, "mkfifo", s7__mkfifo, 2, 0, false, "int mkfifo(char* int)", pl_isi));
8916
8917   s7_define(sc, cur_env,
8918             s7_make_symbol(sc, "mknod"),
8919             s7_make_typed_function(sc, "mknod", s7__mknod, 3, 0, false, "int mknod(char* int int)", pcl_isi));
8920
8921   s7_define(sc, cur_env,
8922             s7_make_symbol(sc, "mkdir"),
8923             s7_make_typed_function(sc, "mkdir", s7__mkdir, 2, 0, false, "int mkdir(char* int)", pl_isi));
8924
8925   s7_define(sc, cur_env,
8926             s7_make_symbol(sc, "chmod"),
8927             s7_make_typed_function(sc, "chmod", s7__chmod, 2, 0, false, "int chmod(char* int)", pl_isi));
8928
8929   s7_define(sc, cur_env,
8930             s7_make_symbol(sc, "lstat"),
8931             s7_make_typed_function(sc, "lstat", g_lstat, 2, 0, false, "lstat", NULL));
8932
8933   s7_define(sc, cur_env,
8934             s7_make_symbol(sc, "fstat"),
8935             s7_make_typed_function(sc, "fstat", g_fstat, 2, 0, false, "fstat", NULL));
8936
8937   s7_define(sc, cur_env,
8938             s7_make_symbol(sc, "stat"),
8939             s7_make_typed_function(sc, "stat", g_stat, 2, 0, false, "stat", NULL));
8940
8941   s7_define(sc, cur_env,
8942             s7_make_symbol(sc, "ftw"),
8943             s7_make_typed_function(sc, "ftw", g_ftw, 3, 0, false, "ftw", NULL));
8944
8945   s7_define(sc, cur_env,
8946             s7_make_symbol(sc, "read_dir"),
8947             s7_make_typed_function(sc, "read_dir", s7__read_dir, 1, 0, false, "char* read_dir(DIR*)", pl_sx));
8948
8949   s7_define(sc, cur_env,
8950             s7_make_symbol(sc, "rewinddir"),
8951             s7_make_typed_function(sc, "rewinddir", s7__rewinddir, 1, 0, false, "void rewinddir(DIR*)", pl_tx));
8952
8953   s7_define(sc, cur_env,
8954             s7_make_symbol(sc, "closedir"),
8955             s7_make_typed_function(sc, "closedir", s7__closedir, 1, 0, false, "int closedir(DIR*)", pl_ix));
8956
8957   s7_define(sc, cur_env,
8958             s7_make_symbol(sc, "opendir"),
8959             s7_make_typed_function(sc, "opendir", s7__opendir, 1, 0, false, "DIR* opendir(char*)", pl_xs));
8960
8961   s7_define(sc, cur_env,
8962             s7_make_symbol(sc, "getgroups"),
8963             s7_make_typed_function(sc, "getgroups", g_getgroups, 1, 0, false, "getgroups", NULL));
8964
8965   s7_define(sc, cur_env,
8966             s7_make_symbol(sc, "getenvs"),
8967             s7_make_typed_function(sc, "getenvs", getenvs, 0, 0, false, "(getenvs) returns all the environment variables in an alist", NULL));
8968
8969   s7_define(sc, cur_env,
8970             s7_make_symbol(sc, "ftruncate"),
8971             s7_make_typed_function(sc, "ftruncate", s7__ftruncate, 2, 0, false, "int ftruncate(int int)", pcl_i));
8972
8973   s7_define(sc, cur_env,
8974             s7_make_symbol(sc, "truncate"),
8975             s7_make_typed_function(sc, "truncate", s7__truncate, 2, 0, false, "int truncate(char* int)", pl_isi));
8976
8977   s7_define(sc, cur_env,
8978             s7_make_symbol(sc, "getlogin"),
8979             s7_make_typed_function(sc, "getlogin", s7__getlogin, 0, 0, false, "char* getlogin(void)", pl_st));
8980
8981   s7_define(sc, cur_env,
8982             s7_make_symbol(sc, "tcsetpgrp"),
8983             s7_make_typed_function(sc, "tcsetpgrp", s7__tcsetpgrp, 2, 0, false, "int tcsetpgrp(int int)", pcl_i));
8984
8985   s7_define(sc, cur_env,
8986             s7_make_symbol(sc, "tcgetpgrp"),
8987             s7_make_typed_function(sc, "tcgetpgrp", s7__tcgetpgrp, 1, 0, false, "int tcgetpgrp(int)", pcl_i));
8988
8989   s7_define(sc, cur_env,
8990             s7_make_symbol(sc, "rmdir"),
8991             s7_make_typed_function(sc, "rmdir", s7__rmdir, 1, 0, false, "int rmdir(char*)", pl_is));
8992
8993   s7_define(sc, cur_env,
8994             s7_make_symbol(sc, "unlink"),
8995             s7_make_typed_function(sc, "unlink", s7__unlink, 1, 0, false, "int unlink(char*)", pl_is));
8996
8997   s7_define(sc, cur_env,
8998             s7_make_symbol(sc, "link"),
8999             s7_make_typed_function(sc, "link", s7__link, 2, 0, false, "int link(char* char*)", pcl_is));
9000
9001   s7_define(sc, cur_env,
9002             s7_make_symbol(sc, "isatty"),
9003             s7_make_typed_function(sc, "isatty", s7__isatty, 1, 0, false, "int isatty(int)", pcl_i));
9004
9005   s7_define(sc, cur_env,
9006             s7_make_symbol(sc, "ttyname"),
9007             s7_make_typed_function(sc, "ttyname", s7__ttyname, 1, 0, false, "char* ttyname(int)", pl_si));
9008
9009   s7_define(sc, cur_env,
9010             s7_make_symbol(sc, "fork"),
9011             s7_make_typed_function(sc, "fork", s7__fork, 0, 0, false, "int fork(void)", pl_it));
9012
9013   s7_define(sc, cur_env,
9014             s7_make_symbol(sc, "setgid"),
9015             s7_make_typed_function(sc, "setgid", s7__setgid, 1, 0, false, "int setgid(int)", pcl_i));
9016
9017   s7_define(sc, cur_env,
9018             s7_make_symbol(sc, "setuid"),
9019             s7_make_typed_function(sc, "setuid", s7__setuid, 1, 0, false, "int setuid(int)", pcl_i));
9020
9021   s7_define(sc, cur_env,
9022             s7_make_symbol(sc, "getegid"),
9023             s7_make_typed_function(sc, "getegid", s7__getegid, 0, 0, false, "int getegid(void)", pl_it));
9024
9025   s7_define(sc, cur_env,
9026             s7_make_symbol(sc, "getgid"),
9027             s7_make_typed_function(sc, "getgid", s7__getgid, 0, 0, false, "int getgid(void)", pl_it));
9028
9029   s7_define(sc, cur_env,
9030             s7_make_symbol(sc, "geteuid"),
9031             s7_make_typed_function(sc, "geteuid", s7__geteuid, 0, 0, false, "int geteuid(void)", pl_it));
9032
9033   s7_define(sc, cur_env,
9034             s7_make_symbol(sc, "getuid"),
9035             s7_make_typed_function(sc, "getuid", s7__getuid, 0, 0, false, "int getuid(void)", pl_it));
9036
9037   s7_define(sc, cur_env,
9038             s7_make_symbol(sc, "getsid"),
9039             s7_make_typed_function(sc, "getsid", s7__getsid, 1, 0, false, "int getsid(int)", pcl_i));
9040
9041   s7_define(sc, cur_env,
9042             s7_make_symbol(sc, "setsid"),
9043             s7_make_typed_function(sc, "setsid", s7__setsid, 0, 0, false, "int setsid(void)", pl_it));
9044
9045   s7_define(sc, cur_env,
9046             s7_make_symbol(sc, "setpgid"),
9047             s7_make_typed_function(sc, "setpgid", s7__setpgid, 2, 0, false, "int setpgid(int int)", pcl_i));
9048
9049   s7_define(sc, cur_env,
9050             s7_make_symbol(sc, "getpgid"),
9051             s7_make_typed_function(sc, "getpgid", s7__getpgid, 1, 0, false, "int getpgid(int)", pcl_i));
9052
9053   s7_define(sc, cur_env,
9054             s7_make_symbol(sc, "getppid"),
9055             s7_make_typed_function(sc, "getppid", s7__getppid, 0, 0, false, "int getppid(void)", pl_it));
9056
9057   s7_define(sc, cur_env,
9058             s7_make_symbol(sc, "getpid"),
9059             s7_make_typed_function(sc, "getpid", s7__getpid, 0, 0, false, "int getpid(void)", pl_it));
9060
9061   s7_define(sc, cur_env,
9062             s7_make_symbol(sc, "confstr"),
9063             s7_make_typed_function(sc, "confstr", s7__confstr, 3, 0, false, "size_t confstr(int char* size_t)", pl_iisi));
9064
9065   s7_define(sc, cur_env,
9066             s7_make_symbol(sc, "sysconf"),
9067             s7_make_typed_function(sc, "sysconf", s7__sysconf, 1, 0, false, "int sysconf(int)", pcl_i));
9068
9069   s7_define(sc, cur_env,
9070             s7_make_symbol(sc, "fpathconf"),
9071             s7_make_typed_function(sc, "fpathconf", s7__fpathconf, 2, 0, false, "int fpathconf(int int)", pcl_i));
9072
9073   s7_define(sc, cur_env,
9074             s7_make_symbol(sc, "pathconf"),
9075             s7_make_typed_function(sc, "pathconf", s7__pathconf, 2, 0, false, "int pathconf(char* int)", pl_isi));
9076
9077   s7_define(sc, cur_env,
9078             s7_make_symbol(sc, "_exit"),
9079             s7_make_typed_function(sc, "_exit", s7___exit, 1, 0, false, "void _exit(int)", pl_ti));
9080
9081   s7_define(sc, cur_env,
9082             s7_make_symbol(sc, "dup2"),
9083             s7_make_typed_function(sc, "dup2", s7__dup2, 2, 0, false, "int dup2(int int)", pcl_i));
9084
9085   s7_define(sc, cur_env,
9086             s7_make_symbol(sc, "dup"),
9087             s7_make_typed_function(sc, "dup", s7__dup, 1, 0, false, "int dup(int)", pcl_i));
9088
9089   s7_define(sc, cur_env,
9090             s7_make_symbol(sc, "getcwd"),
9091             s7_make_typed_function(sc, "getcwd", s7__getcwd, 2, 0, false, "char* getcwd(char* size_t)", pl_ssi));
9092
9093   s7_define(sc, cur_env,
9094             s7_make_symbol(sc, "chdir"),
9095             s7_make_typed_function(sc, "chdir", s7__chdir, 1, 0, false, "int chdir(char*)", pl_is));
9096
9097   s7_define(sc, cur_env,
9098             s7_make_symbol(sc, "chown"),
9099             s7_make_typed_function(sc, "chown", s7__chown, 3, 0, false, "int chown(char* int int)", pcl_isi));
9100
9101   s7_define(sc, cur_env,
9102             s7_make_symbol(sc, "pause"),
9103             s7_make_typed_function(sc, "pause", s7__pause, 0, 0, false, "int pause(void)", pl_it));
9104
9105   s7_define(sc, cur_env,
9106             s7_make_symbol(sc, "sleep"),
9107             s7_make_typed_function(sc, "sleep", s7__sleep, 1, 0, false, "int sleep(int)", pcl_i));
9108
9109   s7_define(sc, cur_env,
9110             s7_make_symbol(sc, "alarm"),
9111             s7_make_typed_function(sc, "alarm", s7__alarm, 1, 0, false, "int alarm(int)", pcl_i));
9112
9113   s7_define(sc, cur_env,
9114             s7_make_symbol(sc, "pipe"),
9115             s7_make_typed_function(sc, "pipe", s7__pipe, 1, 0, false, "int pipe(int*)", pl_ix));
9116
9117   s7_define(sc, cur_env,
9118             s7_make_symbol(sc, "pwrite"),
9119             s7_make_typed_function(sc, "pwrite", s7__pwrite, 4, 0, false, "ssize_t pwrite(int void* size_t int)", pcl_iixi));
9120
9121   s7_define(sc, cur_env,
9122             s7_make_symbol(sc, "pread"),
9123             s7_make_typed_function(sc, "pread", s7__pread, 4, 0, false, "ssize_t pread(int void* size_t int)", pcl_iixi));
9124
9125   s7_define(sc, cur_env,
9126             s7_make_symbol(sc, "write"),
9127             s7_make_typed_function(sc, "write", s7__write, 3, 0, false, "ssize_t write(int void* size_t)", pl_iixi));
9128
9129   s7_define(sc, cur_env,
9130             s7_make_symbol(sc, "read"),
9131             s7_make_typed_function(sc, "read", s7__read, 3, 0, false, "ssize_t read(int void* size_t)", pl_iixi));
9132
9133   s7_define(sc, cur_env,
9134             s7_make_symbol(sc, "close"),
9135             s7_make_typed_function(sc, "close", s7__close, 1, 0, false, "int close(int)", pcl_i));
9136
9137   s7_define(sc, cur_env,
9138             s7_make_symbol(sc, "lseek"),
9139             s7_make_typed_function(sc, "lseek", s7__lseek, 3, 0, false, "int lseek(int int int)", pcl_i));
9140
9141   s7_define(sc, cur_env,
9142             s7_make_symbol(sc, "access"),
9143             s7_make_typed_function(sc, "access", s7__access, 2, 0, false, "int access(char* int)", pl_isi));
9144
9145   s7_define(sc, cur_env,
9146             s7_make_symbol(sc, "uname"),
9147             s7_make_typed_function(sc, "uname", g_uname, 0, 0, false, "uname", NULL));
9148
9149   s7_define(sc, cur_env,
9150             s7_make_symbol(sc, "localeconv"),
9151             s7_make_typed_function(sc, "localeconv", g_localeconv, 0, 0, false, "localeconv", NULL));
9152
9153   s7_define(sc, cur_env,
9154             s7_make_symbol(sc, "setlocale"),
9155             s7_make_typed_function(sc, "setlocale", s7__setlocale, 2, 0, false, "char* setlocale(int char*)", pl_sis));
9156
9157   s7_define(sc, cur_env,
9158             s7_make_symbol(sc, "set_errno"),
9159             s7_make_typed_function(sc, "set_errno", g_set_errno, 1, 0, false, "set_errno", NULL));
9160
9161   s7_define(sc, cur_env,
9162             s7_make_symbol(sc, "errno"),
9163             s7_make_typed_function(sc, "errno", g_errno, 0, 0, false, "errno", NULL));
9164
9165   s7_define(sc, cur_env,
9166             s7_make_symbol(sc, "realpath"),
9167             s7_make_typed_function(sc, "realpath", g_realpath, 2, 0, false, "realpath", NULL));
9168
9169   s7_define(sc, cur_env,
9170             s7_make_symbol(sc, "ldiv"),
9171             s7_make_typed_function(sc, "ldiv", g_ldiv, 2, 0, false, "ldiv", NULL));
9172
9173   s7_define(sc, cur_env,
9174             s7_make_symbol(sc, "div"),
9175             s7_make_typed_function(sc, "div", g_ldiv, 2, 0, false, "div", NULL));
9176
9177   s7_define(sc, cur_env,
9178             s7_make_symbol(sc, "strtoll"),
9179             s7_make_typed_function(sc, "strtoll", g_strtoll, 2, 0, false, "strtoll", NULL));
9180
9181   s7_define(sc, cur_env,
9182             s7_make_symbol(sc, "strtol"),
9183             s7_make_typed_function(sc, "strtol", g_strtol, 2, 0, false, "strtol", NULL));
9184
9185   s7_define(sc, cur_env,
9186             s7_make_symbol(sc, "strtof"),
9187             s7_make_typed_function(sc, "strtof", g_strtof, 1, 0, false, "strtof", NULL));
9188
9189   s7_define(sc, cur_env,
9190             s7_make_symbol(sc, "strtod"),
9191             s7_make_typed_function(sc, "strtod", g_strtod, 1, 0, false, "strtod", NULL));
9192
9193   s7_define(sc, cur_env,
9194             s7_make_symbol(sc, "free"),
9195             s7_make_typed_function(sc, "free", g_free, 1, 0, false, "free", NULL));
9196
9197   s7_define(sc, cur_env,
9198             s7_make_symbol(sc, "llabs"),
9199             s7_make_typed_function(sc, "llabs", g_llabs, 1, 0, false, "llabs", NULL));
9200
9201   s7_define(sc, cur_env,
9202             s7_make_symbol(sc, "labs"),
9203             s7_make_typed_function(sc, "labs", s7__labs, 1, 0, false, "int labs(int)", pcl_i));
9204
9205   s7_define(sc, cur_env,
9206             s7_make_symbol(sc, "abs"),
9207             s7_make_typed_function(sc, "abs", s7__abs, 1, 0, false, "int abs(int)", pcl_i));
9208
9209   s7_define(sc, cur_env,
9210             s7_make_symbol(sc, "system"),
9211             s7_make_typed_function(sc, "system", s7__system, 1, 0, false, "int system(char*)", pl_is));
9212
9213   s7_define(sc, cur_env,
9214             s7_make_symbol(sc, "mkstemp"),
9215             s7_make_typed_function(sc, "mkstemp", s7__mkstemp, 1, 0, false, "int mkstemp(char*)", pl_is));
9216
9217   s7_define(sc, cur_env,
9218             s7_make_symbol(sc, "unsetenv"),
9219             s7_make_typed_function(sc, "unsetenv", s7__unsetenv, 1, 0, false, "int unsetenv(char*)", pl_is));
9220
9221   s7_define(sc, cur_env,
9222             s7_make_symbol(sc, "setenv"),
9223             s7_make_typed_function(sc, "setenv", s7__setenv, 3, 0, false, "int setenv(char* char* int)", pl_issi));
9224
9225   s7_define(sc, cur_env,
9226             s7_make_symbol(sc, "putenv"),
9227             s7_make_typed_function(sc, "putenv", s7__putenv, 1, 0, false, "int putenv(char*)", pl_is));
9228
9229   s7_define(sc, cur_env,
9230             s7_make_symbol(sc, "getenv"),
9231             s7_make_typed_function(sc, "getenv", s7__getenv, 1, 0, false, "char* getenv(char*)", pcl_s));
9232
9233   s7_define(sc, cur_env,
9234             s7_make_symbol(sc, "exit"),
9235             s7_make_typed_function(sc, "exit", s7__exit, 1, 0, false, "void exit(int)", pl_ti));
9236
9237   s7_define(sc, cur_env,
9238             s7_make_symbol(sc, "abort"),
9239             s7_make_typed_function(sc, "abort", s7__abort, 0, 0, false, "void abort(void)", pcl_t));
9240
9241   s7_define(sc, cur_env,
9242             s7_make_symbol(sc, "realloc"),
9243             s7_make_typed_function(sc, "realloc", s7__realloc, 2, 0, false, "void* realloc(void* size_t)", pl_xxi));
9244
9245   s7_define(sc, cur_env,
9246             s7_make_symbol(sc, "calloc"),
9247             s7_make_typed_function(sc, "calloc", s7__calloc, 2, 0, false, "void* calloc(size_t size_t)", pcl_xi));
9248
9249   s7_define(sc, cur_env,
9250             s7_make_symbol(sc, "malloc"),
9251             s7_make_typed_function(sc, "malloc", s7__malloc, 1, 0, false, "void* malloc(size_t)", pl_xi));
9252
9253   s7_define(sc, cur_env,
9254             s7_make_symbol(sc, "srand"),
9255             s7_make_typed_function(sc, "srand", s7__srand, 1, 0, false, "void srand(int)", pl_ti));
9256
9257   s7_define(sc, cur_env,
9258             s7_make_symbol(sc, "rand"),
9259             s7_make_typed_function(sc, "rand", s7__rand, 0, 0, false, "int rand(void)", pl_it));
9260
9261   s7_define(sc, cur_env,
9262             s7_make_symbol(sc, "setstate"),
9263             s7_make_typed_function(sc, "setstate", s7__setstate, 1, 0, false, "char* setstate(char*)", pcl_s));
9264
9265   s7_define(sc, cur_env,
9266             s7_make_symbol(sc, "initstate"),
9267             s7_make_typed_function(sc, "initstate", s7__initstate, 3, 0, false, "char* initstate(int char* size_t)", pl_sisi));
9268
9269   s7_define(sc, cur_env,
9270             s7_make_symbol(sc, "srandom"),
9271             s7_make_typed_function(sc, "srandom", s7__srandom, 1, 0, false, "void srandom(int)", pl_ti));
9272
9273   s7_define(sc, cur_env,
9274             s7_make_symbol(sc, "random"),
9275             s7_make_typed_function(sc, "random", s7__random, 0, 0, false, "int random(void)", pl_it));
9276
9277   s7_define(sc, cur_env,
9278             s7_make_symbol(sc, "atoll"),
9279             s7_make_typed_function(sc, "atoll", s7__atoll, 1, 0, false, "int atoll(char*)", pl_is));
9280
9281   s7_define(sc, cur_env,
9282             s7_make_symbol(sc, "atol"),
9283             s7_make_typed_function(sc, "atol", s7__atol, 1, 0, false, "int atol(char*)", pl_is));
9284
9285   s7_define(sc, cur_env,
9286             s7_make_symbol(sc, "atoi"),
9287             s7_make_typed_function(sc, "atoi", s7__atoi, 1, 0, false, "int atoi(char*)", pl_is));
9288
9289   s7_define(sc, cur_env,
9290             s7_make_symbol(sc, "atof"),
9291             s7_make_typed_function(sc, "atof", s7__atof, 1, 0, false, "double atof(char*)", pl_ds));
9292
9293   s7_define(sc, cur_env,
9294             s7_make_symbol(sc, "funlockfile"),
9295             s7_make_typed_function(sc, "funlockfile", s7__funlockfile, 1, 0, false, "void funlockfile(FILE*)", pl_tx));
9296
9297   s7_define(sc, cur_env,
9298             s7_make_symbol(sc, "ftrylockfile"),
9299             s7_make_typed_function(sc, "ftrylockfile", s7__ftrylockfile, 1, 0, false, "int ftrylockfile(FILE*)", pl_ix));
9300
9301   s7_define(sc, cur_env,
9302             s7_make_symbol(sc, "flockfile"),
9303             s7_make_typed_function(sc, "flockfile", s7__flockfile, 1, 0, false, "void flockfile(FILE*)", pl_tx));
9304
9305   s7_define(sc, cur_env,
9306             s7_make_symbol(sc, "ctermid"),
9307             s7_make_typed_function(sc, "ctermid", s7__ctermid, 1, 0, false, "char* ctermid(char*)", pcl_s));
9308
9309   s7_define(sc, cur_env,
9310             s7_make_symbol(sc, "pclose"),
9311             s7_make_typed_function(sc, "pclose", s7__pclose, 1, 0, false, "int pclose(FILE*)", pl_ix));
9312
9313   s7_define(sc, cur_env,
9314             s7_make_symbol(sc, "popen"),
9315             s7_make_typed_function(sc, "popen", s7__popen, 2, 0, false, "FILE* popen(char* char*)", pcl_xs));
9316
9317   s7_define(sc, cur_env,
9318             s7_make_symbol(sc, "fileno"),
9319             s7_make_typed_function(sc, "fileno", s7__fileno, 1, 0, false, "int fileno(FILE*)", pl_ix));
9320
9321   s7_define(sc, cur_env,
9322             s7_make_symbol(sc, "perror"),
9323             s7_make_typed_function(sc, "perror", s7__perror, 1, 0, false, "void perror(char*)", pl_ts));
9324
9325   s7_define(sc, cur_env,
9326             s7_make_symbol(sc, "ferror"),
9327             s7_make_typed_function(sc, "ferror", s7__ferror, 1, 0, false, "int ferror(FILE*)", pl_ix));
9328
9329   s7_define(sc, cur_env,
9330             s7_make_symbol(sc, "feof"),
9331             s7_make_typed_function(sc, "feof", s7__feof, 1, 0, false, "int feof(FILE*)", pl_ix));
9332
9333   s7_define(sc, cur_env,
9334             s7_make_symbol(sc, "clearerr"),
9335             s7_make_typed_function(sc, "clearerr", s7__clearerr, 1, 0, false, "void clearerr(FILE*)", pl_tx));
9336
9337   s7_define(sc, cur_env,
9338             s7_make_symbol(sc, "fsetpos"),
9339             s7_make_typed_function(sc, "fsetpos", s7__fsetpos, 2, 0, false, "int fsetpos(FILE* fpos_t*)", pcl_ix));
9340
9341   s7_define(sc, cur_env,
9342             s7_make_symbol(sc, "fgetpos"),
9343             s7_make_typed_function(sc, "fgetpos", s7__fgetpos, 2, 0, false, "int fgetpos(FILE* fpos_t*)", pcl_ix));
9344
9345   s7_define(sc, cur_env,
9346             s7_make_symbol(sc, "rewind"),
9347             s7_make_typed_function(sc, "rewind", s7__rewind, 1, 0, false, "void rewind(FILE*)", pl_tx));
9348
9349   s7_define(sc, cur_env,
9350             s7_make_symbol(sc, "ftell"),
9351             s7_make_typed_function(sc, "ftell", s7__ftell, 1, 0, false, "int ftell(FILE*)", pl_ix));
9352
9353   s7_define(sc, cur_env,
9354             s7_make_symbol(sc, "fseek"),
9355             s7_make_typed_function(sc, "fseek", s7__fseek, 3, 0, false, "int fseek(FILE* int int)", pcl_ixi));
9356
9357   s7_define(sc, cur_env,
9358             s7_make_symbol(sc, "fwrite"),
9359             s7_make_typed_function(sc, "fwrite", s7__fwrite, 4, 0, false, "size_t fwrite(void* size_t size_t FILE*)", pl_ixiix));
9360
9361   s7_define(sc, cur_env,
9362             s7_make_symbol(sc, "fread"),
9363             s7_make_typed_function(sc, "fread", s7__fread, 4, 0, false, "size_t fread(void* size_t size_t FILE*)", pl_ixiix));
9364
9365   s7_define(sc, cur_env,
9366             s7_make_symbol(sc, "ungetc"),
9367             s7_make_typed_function(sc, "ungetc", s7__ungetc, 2, 0, false, "int ungetc(int FILE*)", pl_iix));
9368
9369   s7_define(sc, cur_env,
9370             s7_make_symbol(sc, "puts"),
9371             s7_make_typed_function(sc, "puts", s7__puts, 1, 0, false, "int puts(char*)", pl_is));
9372
9373   s7_define(sc, cur_env,
9374             s7_make_symbol(sc, "fputs"),
9375             s7_make_typed_function(sc, "fputs", s7__fputs, 2, 0, false, "int fputs(char* FILE*)", pl_isx));
9376
9377   s7_define(sc, cur_env,
9378             s7_make_symbol(sc, "fgets"),
9379             s7_make_typed_function(sc, "fgets", s7__fgets, 3, 0, false, "char* fgets(char* int FILE*)", pl_ssix));
9380
9381   s7_define(sc, cur_env,
9382             s7_make_symbol(sc, "putchar"),
9383             s7_make_typed_function(sc, "putchar", s7__putchar, 1, 0, false, "int putchar(int)", pcl_i));
9384
9385   s7_define(sc, cur_env,
9386             s7_make_symbol(sc, "putc"),
9387             s7_make_typed_function(sc, "putc", s7__putc, 2, 0, false, "int putc(int FILE*)", pl_iix));
9388
9389   s7_define(sc, cur_env,
9390             s7_make_symbol(sc, "fputc"),
9391             s7_make_typed_function(sc, "fputc", s7__fputc, 2, 0, false, "int fputc(int FILE*)", pl_iix));
9392
9393   s7_define(sc, cur_env,
9394             s7_make_symbol(sc, "getchar"),
9395             s7_make_typed_function(sc, "getchar", s7__getchar, 0, 0, false, "int getchar(void)", pl_it));
9396
9397   s7_define(sc, cur_env,
9398             s7_make_symbol(sc, "getc"),
9399             s7_make_typed_function(sc, "getc", s7__getc, 1, 0, false, "int getc(FILE*)", pl_ix));
9400
9401   s7_define(sc, cur_env,
9402             s7_make_symbol(sc, "fgetc"),
9403             s7_make_typed_function(sc, "fgetc", s7__fgetc, 1, 0, false, "int fgetc(FILE*)", pl_ix));
9404
9405   s7_define(sc, cur_env,
9406             s7_make_symbol(sc, "setlinebuf"),
9407             s7_make_typed_function(sc, "setlinebuf", s7__setlinebuf, 1, 0, false, "void setlinebuf(FILE*)", pl_tx));
9408
9409   s7_define(sc, cur_env,
9410             s7_make_symbol(sc, "setvbuf"),
9411             s7_make_typed_function(sc, "setvbuf", s7__setvbuf, 4, 0, false, "int setvbuf(FILE* char* int size_t)", pcl_ixsi));
9412
9413   s7_define(sc, cur_env,
9414             s7_make_symbol(sc, "setbuf"),
9415             s7_make_typed_function(sc, "setbuf", s7__setbuf, 2, 0, false, "void setbuf(FILE* char*)", pl_txs));
9416
9417   s7_define(sc, cur_env,
9418             s7_make_symbol(sc, "fdopen"),
9419             s7_make_typed_function(sc, "fdopen", s7__fdopen, 2, 0, false, "FILE* fdopen(int char*)", pl_xis));
9420
9421   s7_define(sc, cur_env,
9422             s7_make_symbol(sc, "freopen"),
9423             s7_make_typed_function(sc, "freopen", s7__freopen, 3, 0, false, "FILE* freopen(char* char* FILE*)", pl_xssx));
9424
9425   s7_define(sc, cur_env,
9426             s7_make_symbol(sc, "fopen"),
9427             s7_make_typed_function(sc, "fopen", s7__fopen, 2, 0, false, "FILE* fopen(char* char*)", pcl_xs));
9428
9429   s7_define(sc, cur_env,
9430             s7_make_symbol(sc, "fflush"),
9431             s7_make_typed_function(sc, "fflush", s7__fflush, 1, 0, false, "int fflush(FILE*)", pl_ix));
9432
9433   s7_define(sc, cur_env,
9434             s7_make_symbol(sc, "fclose"),
9435             s7_make_typed_function(sc, "fclose", s7__fclose, 1, 0, false, "int fclose(FILE*)", pl_ix));
9436
9437   s7_define(sc, cur_env,
9438             s7_make_symbol(sc, "tmpfile"),
9439             s7_make_typed_function(sc, "tmpfile", s7__tmpfile, 0, 0, false, "FILE* tmpfile(void)", pl_xt));
9440
9441   s7_define(sc, cur_env,
9442             s7_make_symbol(sc, "rename"),
9443             s7_make_typed_function(sc, "rename", s7__rename, 2, 0, false, "int rename(char* char*)", pcl_is));
9444
9445   s7_define(sc, cur_env,
9446             s7_make_symbol(sc, "remove"),
9447             s7_make_typed_function(sc, "remove", s7__remove, 1, 0, false, "int remove(char*)", pl_is));
9448
9449   s7_define(sc, cur_env,
9450             s7_make_symbol(sc, "strncasecmp"),
9451             s7_make_typed_function(sc, "strncasecmp", s7__strncasecmp, 3, 0, false, "int strncasecmp(char* char* size_t)", pl_issi));
9452
9453   s7_define(sc, cur_env,
9454             s7_make_symbol(sc, "strcasecmp"),
9455             s7_make_typed_function(sc, "strcasecmp", s7__strcasecmp, 2, 0, false, "int strcasecmp(char* char*)", pcl_is));
9456
9457   s7_define(sc, cur_env,
9458             s7_make_symbol(sc, "strerror"),
9459             s7_make_typed_function(sc, "strerror", s7__strerror, 1, 0, false, "char* strerror(int)", pl_si));
9460
9461   s7_define(sc, cur_env,
9462             s7_make_symbol(sc, "strnlen"),
9463             s7_make_typed_function(sc, "strnlen", s7__strnlen, 2, 0, false, "size_t strnlen(char* size_t)", pl_isi));
9464
9465   s7_define(sc, cur_env,
9466             s7_make_symbol(sc, "strlen"),
9467             s7_make_typed_function(sc, "strlen", s7__strlen, 1, 0, false, "size_t strlen(char*)", pl_is));
9468
9469   s7_define(sc, cur_env,
9470             s7_make_symbol(sc, "strtok"),
9471             s7_make_typed_function(sc, "strtok", s7__strtok, 2, 0, false, "char* strtok(char* char*)", pcl_s));
9472
9473   s7_define(sc, cur_env,
9474             s7_make_symbol(sc, "strstr"),
9475             s7_make_typed_function(sc, "strstr", s7__strstr, 2, 0, false, "char* strstr(char* char*)", pcl_s));
9476
9477   s7_define(sc, cur_env,
9478             s7_make_symbol(sc, "strpbrk"),
9479             s7_make_typed_function(sc, "strpbrk", s7__strpbrk, 2, 0, false, "char* strpbrk(char* char*)", pcl_s));
9480
9481   s7_define(sc, cur_env,
9482             s7_make_symbol(sc, "strspn"),
9483             s7_make_typed_function(sc, "strspn", s7__strspn, 2, 0, false, "size_t strspn(char* char*)", pcl_is));
9484
9485   s7_define(sc, cur_env,
9486             s7_make_symbol(sc, "strcspn"),
9487             s7_make_typed_function(sc, "strcspn", s7__strcspn, 2, 0, false, "size_t strcspn(char* char*)", pcl_is));
9488
9489   s7_define(sc, cur_env,
9490             s7_make_symbol(sc, "strrchr"),
9491             s7_make_typed_function(sc, "strrchr", s7__strrchr, 2, 0, false, "char* strrchr(char* int)", pl_ssi));
9492
9493   s7_define(sc, cur_env,
9494             s7_make_symbol(sc, "strchr"),
9495             s7_make_typed_function(sc, "strchr", s7__strchr, 2, 0, false, "char* strchr(char* int)", pl_ssi));
9496
9497   s7_define(sc, cur_env,
9498             s7_make_symbol(sc, "strxfrm"),
9499             s7_make_typed_function(sc, "strxfrm", s7__strxfrm, 3, 0, false, "size_t strxfrm(char* char* size_t)", pl_issi));
9500
9501   s7_define(sc, cur_env,
9502             s7_make_symbol(sc, "strcoll"),
9503             s7_make_typed_function(sc, "strcoll", s7__strcoll, 2, 0, false, "int strcoll(char* char*)", pcl_is));
9504
9505   s7_define(sc, cur_env,
9506             s7_make_symbol(sc, "strncmp"),
9507             s7_make_typed_function(sc, "strncmp", s7__strncmp, 3, 0, false, "int strncmp(char* char* size_t)", pl_issi));
9508
9509   s7_define(sc, cur_env,
9510             s7_make_symbol(sc, "strcmp"),
9511             s7_make_typed_function(sc, "strcmp", s7__strcmp, 2, 0, false, "int strcmp(char* char*)", pcl_is));
9512
9513   s7_define(sc, cur_env,
9514             s7_make_symbol(sc, "strncat"),
9515             s7_make_typed_function(sc, "strncat", s7__strncat, 3, 0, false, "char* strncat(char* char* size_t)", pl_sssi));
9516
9517   s7_define(sc, cur_env,
9518             s7_make_symbol(sc, "strcat"),
9519             s7_make_typed_function(sc, "strcat", s7__strcat, 2, 0, false, "char* strcat(char* char*)", pcl_s));
9520
9521   s7_define(sc, cur_env,
9522             s7_make_symbol(sc, "strncpy"),
9523             s7_make_typed_function(sc, "strncpy", s7__strncpy, 3, 0, false, "char* strncpy(char* char* size_t)", pl_sssi));
9524
9525   s7_define(sc, cur_env,
9526             s7_make_symbol(sc, "strcpy"),
9527             s7_make_typed_function(sc, "strcpy", s7__strcpy, 2, 0, false, "char* strcpy(char* char*)", pcl_s));
9528
9529   s7_define(sc, cur_env,
9530             s7_make_symbol(sc, "memchr"),
9531             s7_make_typed_function(sc, "memchr", s7__memchr, 3, 0, false, "void* memchr(void* int size_t)", pcl_xxi));
9532
9533   s7_define(sc, cur_env,
9534             s7_make_symbol(sc, "memcmp"),
9535             s7_make_typed_function(sc, "memcmp", s7__memcmp, 3, 0, false, "int memcmp(void* void* size_t)", pl_ixxi));
9536
9537   s7_define(sc, cur_env,
9538             s7_make_symbol(sc, "memset"),
9539             s7_make_typed_function(sc, "memset", s7__memset, 3, 0, false, "void* memset(void* int size_t)", pcl_xxi));
9540
9541   s7_define(sc, cur_env,
9542             s7_make_symbol(sc, "memmove"),
9543             s7_make_typed_function(sc, "memmove", s7__memmove, 3, 0, false, "void* memmove(void* void* size_t)", pl_xxxi));
9544
9545   s7_define(sc, cur_env,
9546             s7_make_symbol(sc, "memcpy"),
9547             s7_make_typed_function(sc, "memcpy", s7__memcpy, 3, 0, false, "void* memcpy(void* void* size_t)", pl_xxxi));
9548
9549   s7_define(sc, cur_env,
9550             s7_make_symbol(sc, "fnmatch"),
9551             s7_make_typed_function(sc, "fnmatch", s7__fnmatch, 3, 0, false, "int fnmatch(char* char* int)", pl_issi));
9552
9553   s7_define(sc, cur_env,
9554             s7_make_symbol(sc, "fenv_t.make"),
9555             s7_make_typed_function(sc, "fenv_t.make", g_fenv_t_make, 0, 0, false, "fenv_t.make", NULL));
9556
9557   s7_define(sc, cur_env,
9558             s7_make_symbol(sc, "feupdateenv"),
9559             s7_make_typed_function(sc, "feupdateenv", s7__feupdateenv, 1, 0, false, "int feupdateenv(fenv_t*)", pl_ix));
9560
9561   s7_define(sc, cur_env,
9562             s7_make_symbol(sc, "fesetenv"),
9563             s7_make_typed_function(sc, "fesetenv", s7__fesetenv, 1, 0, false, "int fesetenv(fenv_t*)", pl_ix));
9564
9565   s7_define(sc, cur_env,
9566             s7_make_symbol(sc, "feholdexcept"),
9567             s7_make_typed_function(sc, "feholdexcept", s7__feholdexcept, 1, 0, false, "int feholdexcept(fenv_t*)", pl_ix));
9568
9569   s7_define(sc, cur_env,
9570             s7_make_symbol(sc, "fegetenv"),
9571             s7_make_typed_function(sc, "fegetenv", s7__fegetenv, 1, 0, false, "int fegetenv(fenv_t*)", pl_ix));
9572
9573   s7_define(sc, cur_env,
9574             s7_make_symbol(sc, "fesetround"),
9575             s7_make_typed_function(sc, "fesetround", s7__fesetround, 1, 0, false, "int fesetround(int)", pcl_i));
9576
9577   s7_define(sc, cur_env,
9578             s7_make_symbol(sc, "fegetround"),
9579             s7_make_typed_function(sc, "fegetround", s7__fegetround, 0, 0, false, "int fegetround(void)", pl_it));
9580
9581   s7_define(sc, cur_env,
9582             s7_make_symbol(sc, "fetestexcept"),
9583             s7_make_typed_function(sc, "fetestexcept", s7__fetestexcept, 1, 0, false, "int fetestexcept(int)", pcl_i));
9584
9585   s7_define(sc, cur_env,
9586             s7_make_symbol(sc, "fesetexceptflag"),
9587             s7_make_typed_function(sc, "fesetexceptflag", s7__fesetexceptflag, 2, 0, false, "int fesetexceptflag(fexcept_t* int)", pl_ixi));
9588
9589   s7_define(sc, cur_env,
9590             s7_make_symbol(sc, "feraiseexcept"),
9591             s7_make_typed_function(sc, "feraiseexcept", s7__feraiseexcept, 1, 0, false, "int feraiseexcept(int)", pcl_i));
9592
9593   s7_define(sc, cur_env,
9594             s7_make_symbol(sc, "fegetexceptflag"),
9595             s7_make_typed_function(sc, "fegetexceptflag", s7__fegetexceptflag, 2, 0, false, "int fegetexceptflag(fexcept_t* int)", pl_ixi));
9596
9597   s7_define(sc, cur_env,
9598             s7_make_symbol(sc, "feclearexcept"),
9599             s7_make_typed_function(sc, "feclearexcept", s7__feclearexcept, 1, 0, false, "int feclearexcept(int)", pcl_i));
9600
9601   s7_define(sc, cur_env,
9602             s7_make_symbol(sc, "posix_fallocate"),
9603             s7_make_typed_function(sc, "posix_fallocate", s7__posix_fallocate, 3, 0, false, "int posix_fallocate(int int int)", pcl_i));
9604
9605   s7_define(sc, cur_env,
9606             s7_make_symbol(sc, "posix_fadvise"),
9607             s7_make_typed_function(sc, "posix_fadvise", s7__posix_fadvise, 4, 0, false, "int posix_fadvise(int int int int)", pcl_i));
9608
9609   s7_define(sc, cur_env,
9610             s7_make_symbol(sc, "lockf"),
9611             s7_make_typed_function(sc, "lockf", s7__lockf, 3, 0, false, "int lockf(int int int)", pcl_i));
9612
9613   s7_define(sc, cur_env,
9614             s7_make_symbol(sc, "creat"),
9615             s7_make_typed_function(sc, "creat", s7__creat, 2, 0, false, "int creat(char* (mode_t int))", pl_isi));
9616
9617   s7_define(sc, cur_env,
9618             s7_make_symbol(sc, "open"),
9619             s7_make_typed_function(sc, "open", g_c_open, 2, 1, false, "open", NULL));
9620
9621   s7_define(sc, cur_env,
9622             s7_make_symbol(sc, "fcntl"),
9623             s7_make_typed_function(sc, "fcntl", s7__fcntl, 2, 0, false, "int fcntl(int int)", pcl_i));
9624
9625   s7_define(sc, cur_env,
9626             s7_make_symbol(sc, "toupper"),
9627             s7_make_typed_function(sc, "toupper", s7__toupper, 1, 0, false, "int toupper(int)", pcl_i));
9628
9629   s7_define(sc, cur_env,
9630             s7_make_symbol(sc, "tolower"),
9631             s7_make_typed_function(sc, "tolower", s7__tolower, 1, 0, false, "int tolower(int)", pcl_i));
9632
9633   s7_define(sc, cur_env,
9634             s7_make_symbol(sc, "isxdigit"),
9635             s7_make_typed_function(sc, "isxdigit", s7__isxdigit, 1, 0, false, "int isxdigit(int)", pcl_i));
9636
9637   s7_define(sc, cur_env,
9638             s7_make_symbol(sc, "isupper"),
9639             s7_make_typed_function(sc, "isupper", s7__isupper, 1, 0, false, "int isupper(int)", pcl_i));
9640
9641   s7_define(sc, cur_env,
9642             s7_make_symbol(sc, "isspace"),
9643             s7_make_typed_function(sc, "isspace", s7__isspace, 1, 0, false, "int isspace(int)", pcl_i));
9644
9645   s7_define(sc, cur_env,
9646             s7_make_symbol(sc, "ispunct"),
9647             s7_make_typed_function(sc, "ispunct", s7__ispunct, 1, 0, false, "int ispunct(int)", pcl_i));
9648
9649   s7_define(sc, cur_env,
9650             s7_make_symbol(sc, "isprint"),
9651             s7_make_typed_function(sc, "isprint", s7__isprint, 1, 0, false, "int isprint(int)", pcl_i));
9652
9653   s7_define(sc, cur_env,
9654             s7_make_symbol(sc, "isgraph"),
9655             s7_make_typed_function(sc, "isgraph", s7__isgraph, 1, 0, false, "int isgraph(int)", pcl_i));
9656
9657   s7_define(sc, cur_env,
9658             s7_make_symbol(sc, "islower"),
9659             s7_make_typed_function(sc, "islower", s7__islower, 1, 0, false, "int islower(int)", pcl_i));
9660
9661   s7_define(sc, cur_env,
9662             s7_make_symbol(sc, "isdigit"),
9663             s7_make_typed_function(sc, "isdigit", s7__isdigit, 1, 0, false, "int isdigit(int)", pcl_i));
9664
9665   s7_define(sc, cur_env,
9666             s7_make_symbol(sc, "iscntrl"),
9667             s7_make_typed_function(sc, "iscntrl", s7__iscntrl, 1, 0, false, "int iscntrl(int)", pcl_i));
9668
9669   s7_define(sc, cur_env,
9670             s7_make_symbol(sc, "isalpha"),
9671             s7_make_typed_function(sc, "isalpha", s7__isalpha, 1, 0, false, "int isalpha(int)", pcl_i));
9672
9673   s7_define(sc, cur_env,
9674             s7_make_symbol(sc, "isalnum"),
9675             s7_make_typed_function(sc, "isalnum", s7__isalnum, 1, 0, false, "int isalnum(int)", pcl_i));
9676
9677   s7_define(sc, cur_env,
9678             s7_make_symbol(sc, "string->c-pointer"),
9679             s7_make_typed_function(sc, "string->c-pointer", g_string_to_c_pointer, 1, 0, false, "string->c-pointer", NULL));
9680
9681   s7_define(sc, cur_env,
9682             s7_make_symbol(sc, "c-pointer->string"),
9683             s7_make_typed_function(sc, "c-pointer->string", g_c_pointer_to_string, 2, 0, false, "c-pointer->string", NULL));
9684
9685   /* int optimizer connections */
9686   s7_set_i_ii_function(sc, s7_name_to_value(sc, "shutdown"), shutdown_i_ii);
9687   s7_set_i_ii_function(sc, s7_name_to_value(sc, "listen"), listen_i_ii);
9688   s7_set_i_ii_function(sc, s7_name_to_value(sc, "getpriority"), getpriority_i_ii);
9689   s7_set_i_i_function(sc, s7_name_to_value(sc, "raise"), raise_i_i);
9690   s7_set_i_ii_function(sc, s7_name_to_value(sc, "kill"), kill_i_ii);
9691   s7_set_i_ii_function(sc, s7_name_to_value(sc, "tcflow"), tcflow_i_ii);
9692   s7_set_i_ii_function(sc, s7_name_to_value(sc, "tcflush"), tcflush_i_ii);
9693   s7_set_i_i_function(sc, s7_name_to_value(sc, "tcdrain"), tcdrain_i_i);
9694   s7_set_i_ii_function(sc, s7_name_to_value(sc, "tcsendbreak"), tcsendbreak_i_ii);
9695   s7_set_i_ii_function(sc, s7_name_to_value(sc, "ftruncate"), ftruncate_i_ii);
9696   s7_set_i_ii_function(sc, s7_name_to_value(sc, "tcsetpgrp"), tcsetpgrp_i_ii);
9697   s7_set_i_i_function(sc, s7_name_to_value(sc, "tcgetpgrp"), tcgetpgrp_i_i);
9698   s7_set_i_i_function(sc, s7_name_to_value(sc, "isatty"), isatty_i_i);
9699   s7_set_i_i_function(sc, s7_name_to_value(sc, "setgid"), setgid_i_i);
9700   s7_set_i_i_function(sc, s7_name_to_value(sc, "setuid"), setuid_i_i);
9701   s7_set_i_i_function(sc, s7_name_to_value(sc, "getsid"), getsid_i_i);
9702   s7_set_i_ii_function(sc, s7_name_to_value(sc, "setpgid"), setpgid_i_ii);
9703   s7_set_i_i_function(sc, s7_name_to_value(sc, "getpgid"), getpgid_i_i);
9704   s7_set_i_i_function(sc, s7_name_to_value(sc, "sysconf"), sysconf_i_i);
9705   s7_set_i_ii_function(sc, s7_name_to_value(sc, "fpathconf"), fpathconf_i_ii);
9706   s7_set_i_ii_function(sc, s7_name_to_value(sc, "dup2"), dup2_i_ii);
9707   s7_set_i_i_function(sc, s7_name_to_value(sc, "dup"), dup_i_i);
9708   s7_set_i_i_function(sc, s7_name_to_value(sc, "sleep"), sleep_i_i);
9709   s7_set_i_i_function(sc, s7_name_to_value(sc, "alarm"), alarm_i_i);
9710   s7_set_i_i_function(sc, s7_name_to_value(sc, "close"), close_i_i);
9711   s7_set_i_i_function(sc, s7_name_to_value(sc, "labs"), labs_i_i);
9712   s7_set_i_i_function(sc, s7_name_to_value(sc, "putchar"), putchar_i_i);
9713   s7_set_i_i_function(sc, s7_name_to_value(sc, "fesetround"), fesetround_i_i);
9714   s7_set_i_i_function(sc, s7_name_to_value(sc, "fetestexcept"), fetestexcept_i_i);
9715   s7_set_i_i_function(sc, s7_name_to_value(sc, "feraiseexcept"), feraiseexcept_i_i);
9716   s7_set_i_i_function(sc, s7_name_to_value(sc, "feclearexcept"), feclearexcept_i_i);
9717   s7_set_i_ii_function(sc, s7_name_to_value(sc, "fcntl"), fcntl_i_ii);
9718   s7_set_i_i_function(sc, s7_name_to_value(sc, "toupper"), toupper_i_i);
9719   s7_set_i_i_function(sc, s7_name_to_value(sc, "tolower"), tolower_i_i);
9720   s7_set_i_i_function(sc, s7_name_to_value(sc, "isxdigit"), isxdigit_i_i);
9721   s7_set_i_i_function(sc, s7_name_to_value(sc, "isupper"), isupper_i_i);
9722   s7_set_i_i_function(sc, s7_name_to_value(sc, "isspace"), isspace_i_i);
9723   s7_set_i_i_function(sc, s7_name_to_value(sc, "ispunct"), ispunct_i_i);
9724   s7_set_i_i_function(sc, s7_name_to_value(sc, "isprint"), isprint_i_i);
9725   s7_set_i_i_function(sc, s7_name_to_value(sc, "isgraph"), isgraph_i_i);
9726   s7_set_i_i_function(sc, s7_name_to_value(sc, "islower"), islower_i_i);
9727   s7_set_i_i_function(sc, s7_name_to_value(sc, "isdigit"), isdigit_i_i);
9728   s7_set_i_i_function(sc, s7_name_to_value(sc, "iscntrl"), iscntrl_i_i);
9729   s7_set_i_i_function(sc, s7_name_to_value(sc, "isalpha"), isalpha_i_i);
9730   s7_set_i_i_function(sc, s7_name_to_value(sc, "isalnum"), isalnum_i_i);
9731 }