/*
* routines that must be linked into the core for Lisp to work
+ *
+ * but note this is only the BSD version, as per the FIXME
+ *
+ * FIXME: It's tedious and error-prone having to edit both this file and
+ * the analogous ldso-stubs.S file when we change the references to
+ * functions, enough so that it would probably be good to rewrite
+ * both files in terms of a shared list of function names.
+ * E.g. the function names could be in shared-function-names.h
+ * SHARED_FUNCTION(cos)
+ * SHARED_FUNCTION(sinh)
+ * SHARED_FUNCTION(strlen)
+ * etc. and the per-OS files could look like
+ * #define SHARED_FUNCTION(f) ....
+ * #include "shared-function-names.h"
+ * ...then going on to do OS-specific things
+ * "Once and only once."
*/
/*
* provided with absolutely no warranty. See the COPYING and CREDITS
* files for more information.
*/
-
-/*
- * $Header$
- */
-
+
/* Pick up all the syscalls. */
F(accept)
F(access)
F(acct)
-#ifndef hpux
-F(adjtime)
-#endif
F(bind)
F(brk)
#if defined(hpux) \
F(geteuid)
F(getgid)
F(getgroups)
-#if !defined (SOLARIS) || defined(SOLARIS25)
-F(gethostid)
-#endif
F(gethostname)
F(getitimer)
#if !defined(hpux) && !defined(SVR4) || defined(SOLARIS25)
#endif
F(setitimer)
F(setpgrp)
+F(setsid)
#if !defined(SVR4) || defined(SOLARIS25)
F(setpriority)
#endif
-#if !defined(mach) \
- && !defined(SOLARIS) \
- && !defined(__FreeBSD__) \
- && !defined(__OpenBSD__) \
- && !defined(SUNOS) \
- && !defined(osf1) \
- && !defined(irix) \
- && !defined(hpux)
-F(setquota)
-#endif
-#if !defined(hpux) && !defined(SVR4) || defined(SOLARIS25)
-F(setregid)
-F(setreuid)
-#endif
F(setrlimit)
F(setsockopt)
F(settimeofday)
F(shutdown)
-#ifndef SVR4
-F(sigblock)
-#endif
-F(sigpause)
-#if !defined(ibmrt) && !defined(hpux) && !defined(SVR4) && !defined(__i386__)
+#if !defined(hpux) && !defined(SVR4) && !defined(__i386__)
F(sigreturn)
#endif
-#if !defined(SVR4) && !defined(__FreeBSD__) && !defined(__OpenBSD__)
+#if !defined(SVR4)
F(sigsetmask)
+#endif
+#if !defined(SVR4) && !defined(__FreeBSD__) && !defined(__OpenBSD__)
F(sigstack)
F(sigvec)
#endif
F(symlink)
F(sync)
F(syscall)
-#if defined(hpux) || defined(SVR4)
+#if defined(hpux) || defined(SVR4) || defined(__linux__)
F(closedir)
F(opendir)
+#if defined(readdir)
+#undef reddir
+#endif
F(readdir)
#endif
#if defined(hpux) \
F(write)
F(writev)
-/* Math routines. */
+/* math routines */
F(cos)
F(sin)
F(tan)
#endif
F(hypot)
-/* Network support. */
+/* string things */
+F(strlen)
+
+/* network support */
F(gethostbyname)
F(gethostbyaddr)
-/* Other miscellaneous things. */
-#if defined(SVR4)
+/* other miscellaneous things */
+#if defined(SVR4) || defined(__FreeBSD__)
F(setpgid)
F(getpgid)
D(timezone)
+#if !defined(__FreeBSD__)
D(altzone)
D(daylight)
-D(tzname)
-F(dlopen)
-F(dlsym)
-F(dlclose)
-F(dlerror)
#endif
-#if !defined (SOLARIS) || defined(SOLARIS25)
-F(getwd)
+D(tzname)
#endif
+F(getcwd)
F(ttyname)
#ifdef irix
F(_getpty)
#endif
+
+F(dlopen)
+F(dlsym)
+F(dlclose)
+F(dlerror)