mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-21 22:50:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

New header for things which are not for the end user.

Browse source
This commit is contained in:
jjgarcia 2002-09-15 13:19:00 +00:00
parent 356e6b9235
commit ca4b7822d1
1 changed files with 55 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

55
src/h/internal.h Normal file
View file

@ -0,0 +1,55 @@
/*
internal.h -- Structures and functions that are not meant for the end user
*/
/*
Copyright (c) 2001, Juan Jose Garcia Ripoll.
ECL 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.
*/
#ifdef __cplusplus
extern "C" {
#endif
/* all_functions.d */
extern const struct {
const char *name;
cl_object (*f)(int, ...);
short type;
} all_functions[];
/* print.d */
#define ECL_PPRINT_QUEUE_SIZE 128
#define ECL_PPRINT_INDENTATION_STACK_SIZE 256
#ifndef THREADS
extern bool PRINTescape;
extern bool PRINTpretty;
extern bool PRINTcircle;
extern int PRINTbase;
extern bool PRINTradix;
extern cl_object PRINTcase;
extern bool PRINTgensym;
extern int PRINTlevel;
extern int PRINTlength;
extern bool PRINTarray;
extern cl_object PRINTpackage;
extern bool PRINTstructure;
extern cl_object PRINTstream;
#endif
extern void edit_double(int n, double d, int *sp, char *s, int *ep);
extern void cl_setup_printer(cl_object strm);
extern void cl_write_object(cl_object x);
#ifdef __cplusplus
}
#endif