mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-21 03:51:47 -08:00
71 lines
1.6 KiB
C
71 lines
1.6 KiB
C
/*
|
|
ecl.h -- Main headers for development of ECL
|
|
*/
|
|
/*
|
|
Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
|
|
Copyright (c) 1990, Giuseppe Attardi.
|
|
|
|
ECoLisp is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
See file '../Copyright' for full details.
|
|
*/
|
|
|
|
#ifndef _MSC_VER
|
|
#include <sys/param.h> /* includes <sys/signal.h> and <sys/types.h> */
|
|
#else
|
|
#include <limits.h>
|
|
#endif
|
|
#include <sys/types.h> /* for EMX */
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
#include <setjmp.h>
|
|
#if !defined(cygwin) && !defined(_MSC_VER)
|
|
#include <inttypes.h>
|
|
#endif
|
|
#ifdef _MSC_VER
|
|
typedef char int8_t;
|
|
typedef short int16_t;
|
|
typedef unsigned char uint8_t;
|
|
typedef unsigned short uint16_t;
|
|
#endif
|
|
|
|
#include <config.h>
|
|
|
|
#ifdef ECL_THREADS
|
|
# if defined(_MSC_VER) || defined(mingw32)
|
|
# include <windows.h>
|
|
typedef HANDLE pthread_t;
|
|
typedef HANDLE pthread_mutex_t;
|
|
# undef ERROR
|
|
# else
|
|
# include <pthread.h>
|
|
# if defined(__APPLE__) || defined(freebsd)
|
|
# define PTHREAD_MUTEX_ERROR_CHECK_NP PTHREAD_MUTEX_ERROR_CHECK_NP
|
|
# endif
|
|
# endif
|
|
# define start_critical_section()
|
|
# define end_critical_section()
|
|
#else
|
|
# define start_critical_section()
|
|
# define end_critical_section()
|
|
#endif
|
|
|
|
#include <gmp.h>
|
|
#include <object.h>
|
|
#include <stacks.h>
|
|
#ifndef _ARGS
|
|
# define _ARGS(x) x
|
|
#endif
|
|
#include <external.h>
|
|
/*#include "ecl-inl.h"*/
|
|
#include <eval.h>
|
|
#include <number.h>
|
|
#ifdef LOCATIVE
|
|
#include <unify.h>
|
|
#endif
|
|
|
|
typedef void (*ecl_init_function_t)(cl_object block);
|