mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-13 04:42:13 -08:00
287 lines
6.6 KiB
Text
287 lines
6.6 KiB
Text
dnl --------------------------------------------------------------
|
|
dnl Make srcdir absolute, if it isn't already. It's important to
|
|
dnl avoid running the path through pwd unnecessarily, since pwd can
|
|
dnl give you automounter prefixes, which can go away.
|
|
dnl
|
|
AC_DEFUN(ECL_MAKE_ABSOLUTE_SRCDIR,[
|
|
if uname -a | grep -i 'mingw32' > /dev/null; then
|
|
PWDCMD="pwd -W";
|
|
else
|
|
PWDCMD="pwd";
|
|
fi
|
|
case "${srcdir}" in
|
|
/* | ?:/* ) ;;
|
|
* ) srcdir="`(cd ${srcdir}; ${PWDCMD})`";
|
|
esac
|
|
])
|
|
dnl
|
|
dnl --------------------------------------------------------------
|
|
dnl Define a name for this operating system and set some defaults
|
|
dnl
|
|
AC_DEFUN(ECL_GUESS_HOST_OS,[
|
|
#### Some command variations:
|
|
AC_SUBST(CP)
|
|
AC_SUBST(RM)
|
|
AC_SUBST(MV)
|
|
AC_SUBST(EXE_SUFFIX)
|
|
RM="rm -f"
|
|
CP="cp"
|
|
MV="mv"
|
|
|
|
### Guess the operating system
|
|
AC_SUBST(MACHINE_INSTANCE)
|
|
AC_SUBST(MACHINE_VERSION)
|
|
AC_SUBST(OS_TYPE)
|
|
AC_SUBST(OS_RELEASE)
|
|
MACHINE_INSTANCE=`uname -m`
|
|
MACHINE_VERSION=`uname -r`
|
|
OS_TYPE=`uname -s`
|
|
OS_RELEASE=`uname -r`
|
|
case $host_os in
|
|
linux*)
|
|
host="linux"
|
|
;;
|
|
freebsd*)
|
|
host="freebsd"
|
|
;;
|
|
netbsd*)
|
|
host="netbsd"
|
|
;;
|
|
solaris*)
|
|
host="sun4sol2"
|
|
;;
|
|
cygwin*)
|
|
host="cygwin"
|
|
;;
|
|
darwin*)
|
|
host="darwin"
|
|
;;
|
|
*)
|
|
host="$host_os"
|
|
;;
|
|
esac
|
|
CFLAGS="${CFLAGS} -D$host"
|
|
])
|
|
dnl
|
|
dnl --------------------------------------------------------------
|
|
dnl Extract some information from the machine description file.
|
|
dnl WARNING: file confdefs.h may depend on version of Autoconf
|
|
dnl
|
|
AC_DEFUN(ECL_PROCESS_MACHINES_H,[
|
|
AC_MSG_CHECKING(parameters from the machine description file)
|
|
cp ${srcdir}/h/machines.h .
|
|
AC_TRY_RUN([#include <stdio.h>
|
|
#include "confdefs.h"
|
|
#include "machines.h"
|
|
|
|
int
|
|
main() {
|
|
FILE *f=fopen("conftestval", "w");
|
|
if (f == NULL)
|
|
exit(1);
|
|
|
|
#ifdef CFLAGS
|
|
fprintf(f,"CFLAGS=\"$CFLAGS \"'%s';\n", CFLAGS);
|
|
#endif
|
|
|
|
#ifdef LSPCFLAGS
|
|
fprintf(f,"LSPCFLAGS=\"$CFLAGS \"'%s';\n", LSPCFLAGS);
|
|
#endif
|
|
|
|
#ifdef CLIBS
|
|
fprintf(f,"CLIBS='%s';\n", CLIBS);
|
|
#endif
|
|
|
|
#ifdef LDFLAGS
|
|
fprintf(f,"LDFLAGS=\"$LDFLAGS \"'%s';\n", LDFLAGS);
|
|
#endif
|
|
|
|
#ifdef SHARED_LDFLAGS
|
|
fprintf(f,"SHARED_LDFLAGS=\"$LDFLAGS \"'%s';\n", SHARED_LDFLAGS);
|
|
#endif
|
|
|
|
fprintf(f,"SETJMP='%s';\n", ecl_setjmp);
|
|
fprintf(f,"ecl_setjmp='%s';\n", ecl_setjmp);
|
|
fprintf(f,"ecl_longjmp='%s';\n", ecl_longjmp);
|
|
fprintf(f,"architecture='\"%s\"';\n", ARCHITECTURE);
|
|
fprintf(f,"software_type='\"%s\"';\n", SOFTWARE_TYPE);
|
|
fprintf(f,"software_version='\"%s\"';\n", SOFTWARE_VERSION);
|
|
exit(0);
|
|
}
|
|
],
|
|
eval "`cat conftestval`"
|
|
rm machines.h
|
|
AC_MSG_CHECKING(for ld flags when building shared libraries)
|
|
if test "${shared}" = "yes" -a "${SHARED_LDFLAGS}" ; then
|
|
AC_MSG_RESULT([${SHARED_LDFLAGS}])
|
|
else
|
|
shared="no";
|
|
AC_MSG_RESULT(cannot build)
|
|
fi
|
|
AC_MSG_CHECKING(for required libraries)
|
|
AC_MSG_RESULT([${CLIBS}])
|
|
AC_MSG_CHECKING(for architecture)
|
|
AC_MSG_RESULT([${architecture}])
|
|
AC_MSG_CHECKING(for software type)
|
|
AC_MSG_RESULT([${software_type}])
|
|
AC_MSG_CHECKING(for software version)
|
|
AC_MSG_RESULT([${software_version}])
|
|
AC_MSG_CHECKING(use setjmp or _setjmp)
|
|
AC_MSG_RESULT([${ecl_setjmp}])
|
|
AC_MSG_CHECKING(use longjmp or _longjmp)
|
|
AC_MSG_RESULT([${ecl_longjmp}]),
|
|
AC_MSG_ERROR("Unable to parse machines.h"))
|
|
])
|
|
dnl
|
|
dnl --------------------------------------------------------------
|
|
dnl Check the direction to which the stack grows (for garbage
|
|
dnl collection).
|
|
dnl
|
|
AC_DEFUN(ECL_STACK_DIRECTION,[
|
|
AC_MSG_CHECKING(whether stack growns downwards)
|
|
AC_SUBST(DOWN_STACK)
|
|
AC_TRY_RUN([
|
|
char *f2() {
|
|
char c;
|
|
return &c;
|
|
}
|
|
|
|
int f1() {
|
|
char d;
|
|
return f2() - &d;
|
|
}
|
|
|
|
int main() {
|
|
if (f1() > 0)
|
|
return 1;
|
|
else
|
|
return 0;
|
|
}
|
|
],
|
|
AC_MSG_RESULT(yes)
|
|
AC_DEFINE(DOWN_STACK),
|
|
AC_MSG_RESULT(no))])
|
|
dnl
|
|
dnl --------------------------------------------------------------
|
|
dnl Check whether we can access the values in va_list() as an
|
|
dnl ordinary C vector.
|
|
dnl
|
|
AC_DEFUN(ECL_ARGS_ARRAY,[
|
|
AC_MSG_CHECKING(if arguments can be accessed through vector)
|
|
AC_TRY_RUN([
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
int f(int narg, ...) {
|
|
va_list args;
|
|
int *vector;
|
|
va_start(args,narg);
|
|
vector = NULL;
|
|
while (narg--) {
|
|
if (vector == NULL) {
|
|
vector = &va_arg(args, int);
|
|
} else if (*(++vector) != va_arg(args,int)) {
|
|
return 1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int main() {
|
|
exit(f(10,1,2,3,4,5,6,7,8,9,10));
|
|
}
|
|
],
|
|
AC_MSG_RESULT(yes),
|
|
AC_MSG_RESULT(no)
|
|
AC_DEFINE(NO_ARGS_ARRAY))])
|
|
dnl
|
|
dnl --------------------------------------------------------------
|
|
dnl Guess the right type and size for cl_fixnum. It must be large
|
|
dnl enough that convertion back and forth to pointer implies no
|
|
dnl loss of information.
|
|
AC_DEFUN(ECL_FIXNUM_TYPE,[
|
|
AC_MSG_CHECKING(appropiate type for fixnums)
|
|
AC_TRY_RUN([#include <stdio.h>
|
|
int main() {
|
|
const char *int_type;
|
|
int bits;
|
|
FILE *f=fopen("conftestval", "w");
|
|
if (!f) exit(1);
|
|
if (sizeof(int) >= sizeof(void*)) {
|
|
unsigned int t = 1;
|
|
signed int l = 0;
|
|
int_type="int";
|
|
for (bits=1; ((t << 1) >> 1) == t; bits++, t <<= 1);
|
|
l = (~l) << (bits - 3);
|
|
fprintf(f,"CL_FIXNUM_MIN='%d';",l);
|
|
fprintf(f,"CL_FIXNUM_MAX='%d';",-(l+1));
|
|
} else if (sizeof(long) >= sizeof(void*)) {
|
|
unsigned long int t = 1;
|
|
signed long int l = 0;
|
|
int_type="long int";
|
|
for (bits=1; ((t << 1) >> 1) == t; bits++, t <<= 1);
|
|
l = (~l) << (bits - 3);
|
|
fprintf(f,"CL_FIXNUM_MIN='%ld';",l);
|
|
fprintf(f,"CL_FIXNUM_MAX='%ld';",-(l+1));
|
|
} else
|
|
exit(1);
|
|
fprintf(f,"CL_FIXNUM_TYPE='%s';",int_type);
|
|
fprintf(f,"CL_FIXNUM_BITS='%d'",bits);
|
|
exit(0);
|
|
}],
|
|
eval "`cat conftestval`"
|
|
AC_MSG_RESULT([${CL_FIXNUM_TYPE}])
|
|
AC_SUBST(CL_FIXNUM_TYPE)
|
|
AC_SUBST(CL_FIXNUM_BITS)
|
|
AC_SUBST(CL_FIXNUM_MAX)
|
|
AC_SUBST(CL_FIXNUM_MIN),
|
|
AC_MSG_ERROR(There is no appropiate integer type for the cl_fixnum type))
|
|
])
|
|
|
|
dnl
|
|
dnl ------------------------------------------------------------
|
|
dnl Find out what is written for every '\n' character, when
|
|
dnl opening a text file.
|
|
dnl
|
|
AC_DEFUN(ECL_LINEFEED_MODE,[
|
|
AC_MSG_CHECKING(character sequence for end of line)
|
|
AC_TRY_RUN([#include <stdio.h>
|
|
int main() {
|
|
FILE *f = fopen("conftestval","w");
|
|
int c1, c2;
|
|
char *output;
|
|
if (f == NULL) exit(1);
|
|
fprintf(f, "\n");
|
|
fclose(f);
|
|
f = fopen("conftestval","rb");
|
|
if (f == NULL) exit(1);
|
|
c1 = fgetc(f);
|
|
c2 = fgetc(f);
|
|
fclose(f);
|
|
f = fopen("conftestval","w");
|
|
if (f == NULL) exit(1);
|
|
if (c1 == '\r')
|
|
output="crlf";
|
|
else if (c2 == '\r')
|
|
output="lfcr";
|
|
else
|
|
output="unix";
|
|
fclose(f);
|
|
f = fopen("conftestval","w");
|
|
if (f == NULL) exit(1);
|
|
fprintf(f, output);
|
|
fclose(f);
|
|
exit(0);
|
|
}
|
|
],
|
|
if test `cat conftestval` = "crlf"; then
|
|
AC_DEFINE(ECL_NEWLINE_IS_CRLF)
|
|
AC_MSG_RESULT(CR + LF)
|
|
elif test `cat conftestval` = "lfcr"; then
|
|
AC_DEFINE(ECL_NEWLINE_IS_LFCR)
|
|
AC_MSG_RESULT(LF + CR)
|
|
else
|
|
AC_MSG_RESULT(LF)
|
|
fi,
|
|
AC_MSG_ERROR(unable to determine))
|
|
])
|
|
|