posix.c 929 B

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. /*
  2. * Part of Scheme 48 1.9. See file COPYING for notices and license.
  3. *
  4. * Authors: Mike Sperber, Will Noble
  5. */
  6. extern void s48_init_posix_time(void);
  7. extern void s48_init_posix_dir(void);
  8. extern void s48_init_posix_user(void);
  9. extern void s48_init_posix_regexp(void);
  10. extern void s48_init_posix_proc_env(void);
  11. extern void s48_init_posix_io(void);
  12. extern void s48_init_posix_proc(void);
  13. extern void s48_init_posix_errno(void);
  14. extern void s48_init_posix_syslog(void);
  15. void
  16. s48_on_load(void)
  17. {
  18. s48_init_posix_time();
  19. s48_init_posix_dir();
  20. s48_init_posix_dir();
  21. s48_init_posix_user();
  22. s48_init_posix_regexp();
  23. s48_init_posix_proc_env();
  24. s48_init_posix_io();
  25. s48_init_posix_proc();
  26. s48_init_posix_errno();
  27. s48_init_posix_syslog();
  28. }
  29. extern void s48_uninit_posix_proc(void);
  30. extern void s48_uninit_posix_syslog(void);
  31. void
  32. s48_on_unload(void)
  33. {
  34. s48_uninit_posix_proc();
  35. s48_uninit_posix_syslog();
  36. }