Menu
▾
▴
foo-cvs — mailing list for CVS commit messages.
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(22) |
Aug
(270) |
Sep
|
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(8) |
Feb
(24) |
Mar
|
Apr
|
May
|
Jun
(5) |
Jul
|
Aug
(4) |
Sep
|
Oct
|
Nov
(2) |
Dec
(2) |
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
(4) |
May
(2) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2007 |
Jan
|
Feb
|
Mar
|
Apr
(25) |
May
|
Jun
|
Jul
|
Aug
|
Sep
(6) |
Oct
(3) |
Nov
(1) |
Dec
(14) |
| 2008 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(31) |
Apr
(5) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
|
Feb
|
Mar
|
Apr
(90) |
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(2) |
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(2) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:16:19
|
Update of /cvsroot/foo/foo/libfoo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17970/libfoo Modified Files: bootstrap Log Message: corrected problem with autotools dir Index: bootstrap =================================================================== RCS file: /cvsroot/foo/foo/libfoo/bootstrap,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** bootstrap 10 Aug 2004 03:13:11 -0000 1.4 --- bootstrap 10 Aug 2004 03:16:10 -0000 1.5 *************** *** 59,64 **** # Remove old cruft rm -f aclocal.m4 configure config.guess config.log config.sub config.cache config.h.in config.h compile ltmain.sh libtool ltconfig missing mkinstalldirs depcomp install-sh INSTALL ! rm -Rf autom4te.cache ! (cd autotools && rm -f config.guess config.sub missing mkinstalldirs compile ltmain.sh depcomp install-sh) ${libtoolize} --copy --force --- 59,64 ---- # Remove old cruft rm -f aclocal.m4 configure config.guess config.log config.sub config.cache config.h.in config.h compile ltmain.sh libtool ltconfig missing mkinstalldirs depcomp install-sh INSTALL ! rm -Rf autom4te.cache autotools ! mkdir autotools ${libtoolize} --copy --force |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:13:32
|
Update of /cvsroot/foo/foo/elkfoo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17309 Modified Files: bootstrap Log Message: call aclocal after libtool Index: bootstrap =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/bootstrap,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** bootstrap 4 Aug 2004 07:13:08 -0000 1.1 --- bootstrap 10 Aug 2004 03:13:23 -0000 1.2 *************** *** 62,66 **** (cd autotools && rm -f config.guess config.sub missing mkinstalldirs compile ltmain.sh depcomp install-sh) - aclocal${amvers} ${libtoolize} --copy --force --- 62,65 ---- *************** *** 70,73 **** --- 69,73 ---- fi + aclocal${amvers} autoconf autoheader |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:13:20
|
Update of /cvsroot/foo/foo/libfoo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17219 Modified Files: bootstrap Log Message: call aclocal after libtool Index: bootstrap =================================================================== RCS file: /cvsroot/foo/foo/libfoo/bootstrap,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** bootstrap 31 Jul 2004 07:25:27 -0000 1.3 --- bootstrap 10 Aug 2004 03:13:11 -0000 1.4 *************** *** 62,66 **** (cd autotools && rm -f config.guess config.sub missing mkinstalldirs compile ltmain.sh depcomp install-sh) - aclocal${amvers} ${libtoolize} --copy --force --- 62,65 ---- *************** *** 70,73 **** --- 69,73 ---- fi + aclocal${amvers} autoconf autoheader |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:12:13
|
Update of /cvsroot/foo/foo/autotools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16910 Removed Files: Makefile.am Log Message: remove autotools directory, since it's not necessary --- Makefile.am DELETED --- |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:11:07
|
Update of /cvsroot/foo/foo/elkfoo/autotools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16704 Removed Files: Makefile.am Log Message: remove autotools directory, since it's not necessary --- Makefile.am DELETED --- |
|
From: Martin R. <ru...@us...> - 2004-08-10 03:09:51
|
Update of /cvsroot/foo/foo/libfoo/autotools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16464 Removed Files: Makefile.am Log Message: remove autotools directory, since it's not necessary --- Makefile.am DELETED --- |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:20
|
Update of /cvsroot/foo/fooelk/include In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/include Modified Files: exception.h extern.h funcproto.h gc.h intern.h object.h stkmem.h Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: stkmem.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/stkmem.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** stkmem.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- stkmem.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 44,48 **** #if !defined(alloca) && !defined(__GNUC__) C_LINKAGE_BEGIN ! extern char *alloca P_((int)); C_LINKAGE_END #endif --- 44,48 ---- #if !defined(alloca) && !defined(__GNUC__) C_LINKAGE_BEGIN ! extern char *alloca (int); C_LINKAGE_END #endif *************** *** 63,67 **** extern MEM_NODE *Mem_List; ! extern char *Mem_Alloc P_((unsigned)); #define Alloca_Begin MEM_NODE *_mem_first = 0 --- 63,67 ---- extern MEM_NODE *Mem_List; ! extern char *Mem_Alloc (unsigned); #define Alloca_Begin MEM_NODE *_mem_first = 0 Index: funcproto.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/funcproto.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** funcproto.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- funcproto.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 29,44 **** */ - #if __STDC__ || defined(__cplusplus) - # undef WANT_PROTOTYPES - #endif - - #ifdef WANT_PROTOTYPES - # define ELK_USE_PROTOTYPES - # define ELLIPSIS - #endif - #ifdef __cplusplus - # define ELK_USE_PROTOTYPES - # define ELLIPSIS ... # define C_LINKAGE_BEGIN extern "C" { # define C_LINKAGE_END } --- 29,33 ---- *************** *** 48,65 **** #endif - #if __STDC__ && !defined(__cplusplus) - # define ELK_USE_PROTOTYPES - # define ELLIPSIS - #endif - - #ifdef NO_PROTOTYPES - # undef ELK_USE_PROTOTYPES - #endif - - #ifdef ELK_USE_PROTOTYPES - # define P_(args) args - #else - # define P_(args) () - # define ELLIPSIS - # define const - #endif --- 37,38 ---- Index: intern.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/intern.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** intern.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- intern.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 35,73 **** */ extern Object V_Autoload_Notifyp; ! extern Object Do_Autoload P_((Object, Object)); /* bignum.c */ ! extern int Bignum_Zero P_((Object)); ! extern int Bignum_Positive P_((Object)); ! extern int Bignum_Negative P_((Object)); ! extern int Bignum_Even P_((Object)); ! extern Object Make_Bignum P_((const char*, int, int)); ! extern Object Integer_To_Bignum P_((int)); ! extern Object Bignum_Divide P_((Object, Object)); ! extern Object Bignum_Abs P_((Object)); ! extern Object Bignum_Plus P_((Object, Object)); ! extern Object Bignum_Minus P_((Object, Object)); ! extern Object Bignum_Fixnum_Multiply P_((Object, Object)); ! extern Object Bignum_Multiply P_((Object, Object)); ! extern Object Bignum_Fixnum_Divide P_((Object, Object)); ! extern Object Double_To_Bignum P_((double)); ! extern Object Unsigned_To_Bignum P_((unsigned)); ! extern Object Long_To_Bignum P_((long)); ! extern Object Unsigned_Long_To_Bignum P_((unsigned long)); ! extern unsigned Bignum_To_Unsigned P_((Object)); ! extern unsigned long Bignum_To_Unsigned_Long P_((Object)); ! extern long Bignum_To_Long P_((Object)); ! extern Object Bignum_To_String P_((Object, int)); ! extern int Bignum_Equal P_((Object, Object)); ! extern int Bignum_Greater P_((Object, Object)); ! extern int Bignum_Less P_((Object, Object)); ! extern int Bignum_Eq_Less P_((Object, Object)); ! extern int Bignum_Eq_Greater P_((Object, Object)); /* cont.c */ extern WIND *First_Wind, *Last_Wind; ! extern Object Internal_Call_CC P_((int, Object)); /* dump.c --- 35,73 ---- */ extern Object V_Autoload_Notifyp; ! extern Object Do_Autoload (Object, Object); /* bignum.c */ ! extern int Bignum_Zero (Object); ! extern int Bignum_Positive (Object); ! extern int Bignum_Negative (Object); ! extern int Bignum_Even (Object); ! extern Object Make_Bignum (const char*, int, int); ! extern Object Integer_To_Bignum (int); ! extern Object Bignum_Divide (Object, Object); ! extern Object Bignum_Abs (Object); ! extern Object Bignum_Plus (Object, Object); ! extern Object Bignum_Minus (Object, Object); ! extern Object Bignum_Fixnum_Multiply (Object, Object); ! extern Object Bignum_Multiply (Object, Object); ! extern Object Bignum_Fixnum_Divide (Object, Object); ! extern Object Double_To_Bignum (double); ! extern Object Unsigned_To_Bignum (unsigned); ! extern Object Long_To_Bignum (long); ! extern Object Unsigned_Long_To_Bignum (unsigned long); ! extern unsigned Bignum_To_Unsigned (Object); ! extern unsigned long Bignum_To_Unsigned_Long (Object); ! extern long Bignum_To_Long (Object); ! extern Object Bignum_To_String (Object, int); ! extern int Bignum_Equal (Object, Object); ! extern int Bignum_Greater (Object, Object); ! extern int Bignum_Less (Object, Object); ! extern int Bignum_Eq_Less (Object, Object); ! extern int Bignum_Eq_Greater (Object, Object); /* cont.c */ extern WIND *First_Wind, *Last_Wind; ! extern Object Internal_Call_CC (int, Object); /* dump.c *************** *** 77,82 **** /* env.c */ ! extern Object Add_Binding P_((Object, Object, Object)); ! extern Object Lookup_Symbol P_((Object, int)); /* error.c --- 77,82 ---- /* env.c */ ! extern Object Add_Binding (Object, Object, Object); ! extern Object Lookup_Symbol (Object, int); /* error.c *************** *** 87,91 **** /* exception.c */ ! extern void Install_Intr_Handler P_((void)); /* heap.c --- 87,91 ---- /* exception.c */ ! extern void Install_Intr_Handler (void); /* heap.c *************** *** 98,102 **** /* io.c */ ! extern Object General_Open_File P_((Object, int, Object)); /* load.c --- 98,102 ---- /* io.c */ ! extern Object General_Open_File (Object, int, Object); /* load.c *************** *** 104,113 **** extern char *Loader_Input; extern Object V_Load_Path, V_Load_Noisilyp, V_Load_Libraries; ! extern void Check_Loadarg P_((Object)); ! extern Object General_Load P_((Object, Object)); /* list.c */ ! extern Object General_Assoc P_((Object, Object, int)); /* libelk.c --- 104,113 ---- extern char *Loader_Input; extern Object V_Load_Path, V_Load_Noisilyp, V_Load_Libraries; ! extern void Check_Loadarg (Object); ! extern Object General_Load (Object, Object); /* list.c */ ! extern Object General_Assoc (Object, Object, int); /* libelk.c *************** *** 123,139 **** extern char *Lib_Dir; #ifndef HAVE_ATEXIT ! extern void exit P_((int)); #endif /* math.c */ ! extern char *Flonum_To_String P_((Object)); /* proc.c */ extern Object Sym_Lambda, Sym_Macro; ! extern void Funcall_Control_Point P_((Object, Object, int)); extern Object Make_Primitive ! P_((Object(*)(ELLIPSIS), const char*, int, int, enum discipline)); /* read.c --- 123,139 ---- extern char *Lib_Dir; #ifndef HAVE_ATEXIT ! extern void exit (int); #endif /* math.c */ ! extern char *Flonum_To_String (Object); /* proc.c */ extern Object Sym_Lambda, Sym_Macro; ! extern void Funcall_Control_Point (Object, Object, int); extern Object Make_Primitive ! (Object(*)(), const char*, int, int, enum discipline); /* read.c *************** *** 141,155 **** extern Object Sym_Quote; extern Object Sym_Quasiquote, Sym_Unquote, Sym_Unquote_Splicing; ! extern Object Parse_Number P_((Object, const char*, int)); /* stab.c */ ! extern SYMTAB *Snarf_Symbols P_((ELLIPSIS)); /* varying args */ ! extern SYMTAB *Open_File_And_Snarf_Symbols P_((char *)); /* stkmem.c */ #ifndef HAVE_ALLOCA ! extern Object Save_GC_Nodes P_((void)); #endif --- 141,154 ---- extern Object Sym_Quote; extern Object Sym_Quasiquote, Sym_Unquote, Sym_Unquote_Splicing; ! extern Object Parse_Number (Object, const char*, int); /* stab.c */ ! extern SYMTAB *Open_File_And_Snarf_Symbols (char *); /* stkmem.c */ #ifndef HAVE_ALLOCA ! extern Object Save_GC_Nodes (void); #endif *************** *** 157,161 **** */ extern char Char_Map[]; ! extern Object General_Make_String P_((const char*, unsigned int, int)); /* symbol.c --- 156,160 ---- */ extern char Char_Map[]; ! extern Object General_Make_String (const char*, unsigned int, int); /* symbol.c *************** *** 169,173 **** /* vector.c */ ! extern Object List_To_Vector P_((Object, int)); C_LINKAGE_END --- 168,172 ---- /* vector.c */ ! extern Object List_To_Vector (Object, int); C_LINKAGE_END Index: gc.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/gc.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** gc.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- gc.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 119,123 **** C_LINKAGE_BEGIN ! extern void Func_Global_GC_Link P_((Object*)); C_LINKAGE_END --- 119,123 ---- C_LINKAGE_BEGIN ! extern void Func_Global_GC_Link (Object*); C_LINKAGE_END Index: object.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/object.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** object.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- object.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 76,80 **** extern gcspace_t current_space; C_LINKAGE_BEGIN ! extern int Visit P_((Object*)); /* required for REVIVE_OBJ below */ C_LINKAGE_END --- 76,80 ---- extern gcspace_t current_space; C_LINKAGE_BEGIN ! extern int Visit (Object*); /* required for REVIVE_OBJ below */ C_LINKAGE_END *************** *** 96,100 **** #else C_LINKAGE_BEGIN ! extern int Visit P_((Object*)); /* required in heap.c */ C_LINKAGE_END # define IS_ALIVE(obj) WAS_FORWARDED(obj) --- 96,100 ---- #else C_LINKAGE_BEGIN ! extern int Visit (Object*); /* required in heap.c */ C_LINKAGE_END # define IS_ALIVE(obj) WAS_FORWARDED(obj) *************** *** 186,190 **** struct S_Primitive { Object tag; ! Object (*fun) P_((ELLIPSIS)); const char *name; int minargs; --- 186,190 ---- struct S_Primitive { Object tag; ! Object (*fun) (); const char *name; int minargs; *************** *** 210,214 **** struct funct *next; char *name; ! void (*func) P_((void)); } FUNCT; --- 210,214 ---- struct funct *next; char *name; ! void (*func) (void); } FUNCT; *************** *** 262,266 **** FILE *file; unsigned int lno; ! int (*closefun) P_((FILE*)); }; #define P_OPEN 1 /* flags */ --- 262,266 ---- FILE *file; unsigned int lno; ! int (*closefun) (FILE*); }; #define P_OPEN 1 /* flags */ *************** *** 299,308 **** int haspointer; const char *name; ! int (*size) P_((Object)); int const_size; ! int (*eqv) P_((Object, Object)); ! int (*equal) P_((Object, Object)); ! int (*print) P_((Object, Object, int, int, int)); ! int (*visit) P_((Object*, int (*)(Object*))); } TYPEDESCR; --- 299,308 ---- int haspointer; const char *name; ! int (*size) (Object); int const_size; ! int (*eqv) (Object, Object); ! int (*equal) (Object, Object); ! int (*print) (Object, Object, int, int, int); ! int (*visit) (Object*, int (*)(Object*)); } TYPEDESCR; *************** *** 336,341 **** /* PFO, GENERIC, and MATCHFUN exist for backwards compatibility */ ! typedef Object (*PFO) P_((Object)); ! typedef int (*MATCHFUN) P_((ELLIPSIS)); #define GENERIC char* --- 336,341 ---- /* PFO, GENERIC, and MATCHFUN exist for backwards compatibility */ ! typedef Object (*PFO) (Object); ! typedef int (*MATCHFUN) (); #define GENERIC char* *************** *** 360,362 **** /* Function that can be registered as a reader by Define_Reader(): */ ! typedef Object (*READFUN) P_((Object, int, int)); --- 360,362 ---- /* Function that can be registered as a reader by Define_Reader(): */ ! typedef Object (*READFUN) (Object, int, int); Index: extern.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/extern.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** extern.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- extern.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 34,149 **** /* Autoloading */ ! extern Object P_Autoload P_((Object, Object)); /* Bignums */ ! extern Object Make_Uninitialized_Bignum P_((int)); ! extern void Bignum_Normalize_In_Place P_((struct S_Bignum *)); ! extern double Bignum_To_Double P_((Object)); /* Boolean operators */ ! extern Object P_Booleanp P_((Object)); ! extern Object P_Not P_((Object)); ! extern Object P_Eq P_((Object, Object)); ! extern Object P_Eqv P_((Object, Object)); ! extern Object P_Equal P_((Object, Object)); ! extern Object P_Empty_List_Is_False P_((Object)); ! extern int Eqv P_((Object, Object)); ! extern int Equal P_((Object, Object)); /* Characters */ ! extern Object Make_Char P_((int)); ! extern Object P_Charp P_((Object)); ! extern Object P_Char_Upcase P_((Object)); ! extern Object P_Char_Downcase P_((Object)); ! extern Object P_Char_Eq P_((Object, Object)); ! extern Object P_Char_Less P_((Object, Object)); ! extern Object P_Char_Greater P_((Object, Object)); ! extern Object P_Char_Eq_Less P_((Object, Object)); ! extern Object P_Char_Eq_Greater P_((Object, Object)); ! extern Object P_Char_CI_Eq P_((Object, Object)); ! extern Object P_Char_CI_Less P_((Object, Object)); ! extern Object P_Char_CI_Greater P_((Object, Object)); ! extern Object P_Char_CI_Eq_Less P_((Object, Object)); ! extern Object P_Char_CI_Eq_Greater P_((Object, Object)); ! extern Object P_Char_Upper_Casep P_((Object)); ! extern Object P_Char_Lower_Casep P_((Object)); ! extern Object P_Char_Alphabeticp P_((Object)); ! extern Object P_Char_Numericp P_((Object)); ! extern Object P_Char_Whitespacep P_((Object)); ! extern Object P_Char_To_Integer P_((Object)); ! extern Object P_Integer_To_Char P_((Object)); /* Continuations */ ! extern Object P_Call_With_Current_Continuation P_((Object)); ! extern Object P_Dynamic_Wind P_((Object, Object, Object)); ! extern Object P_Control_Pointp P_((Object)); ! extern Object P_Control_Point_Environment P_((Object)); /* Scheme strings --> C Strings */ ! extern char *Get_String P_((Object)); ! extern char *Get_Strsym P_((Object)); /* Debugging */ ! extern Object P_Backtrace_List P_((int, Object*)); /* Dump */ ! extern Object P_Dump P_((Object)); /* Lexical bindings, environments */ ! extern Object P_The_Environment P_((void)); ! extern Object P_Define P_((Object)); ! extern Object P_Set P_((Object)); ! extern Object P_Environment_To_List P_((Object)); ! extern Object P_Define_Macro P_((Object)); ! extern Object P_Boundp P_((Object)); ! extern Object P_Global_Environment P_((void)); ! extern Object P_Environmentp P_((Object)); extern Object The_Environment, Global_Environment; /* Error handling */ ! extern void Primitive_Error P_((const char*, ...)) elk_attribute(__noreturn__); ! extern void Fatal_Error P_((const char*, ...)) elk_attribute(__noreturn__); ! extern void Range_Error P_((Object)); ! extern void Panic P_((const char*)); ! extern Object P_Error P_((int, Object*)); ! extern Object P_Reset P_((void)); extern const char *Error_Tag; /* will be removed in the near future */ ! extern const char *Get_Error_Tag P_((void)); ! extern void Set_Error_Tag P_((const char *)); ! extern void Set_App_Name P_((char *)); ! extern void Reader_Error P_((Object, char *)) elk_attribute(__noreturn__); /* Interrupts */ ! extern Object P_Disable_Interrupts P_((void)); ! extern Object P_Enable_Interrupts P_((void)); ! extern void Signal_Exit P_((int)); /* Features */ ! extern Object P_Features P_((void)); ! extern Object P_Featurep P_((Object)); ! extern Object P_Provide P_((Object)); ! extern Object P_Require P_((int, Object*)); /* Memory allocation, garbage collection */ extern int GC_Debug; ! extern Object Alloc_Object P_((int, int, int)); ! extern void Register_Before_GC P_((void (*)(void))); ! extern void Register_After_GC P_((void (*)(void))); ! extern Object P_Collect P_((void)); ! extern Object P_Garbage_Collect_Status P_((int, Object *)); #ifdef GENERATIONAL_GC ! extern Object P_Collect_Incremental P_((void)); #endif --- 34,149 ---- /* Autoloading */ ! extern Object P_Autoload (Object, Object); /* Bignums */ ! extern Object Make_Uninitialized_Bignum (int); ! extern void Bignum_Normalize_In_Place (struct S_Bignum *); ! extern double Bignum_To_Double (Object); /* Boolean operators */ ! extern Object P_Booleanp (Object); ! extern Object P_Not (Object); ! extern Object P_Eq (Object, Object); ! extern Object P_Eqv (Object, Object); ! extern Object P_Equal (Object, Object); ! extern Object P_Empty_List_Is_False (Object); ! extern int Eqv (Object, Object); ! extern int Equal (Object, Object); /* Characters */ ! extern Object Make_Char (int); ! extern Object P_Charp (Object); ! extern Object P_Char_Upcase (Object); ! extern Object P_Char_Downcase (Object); ! extern Object P_Char_Eq (Object, Object); ! extern Object P_Char_Less (Object, Object); ! extern Object P_Char_Greater (Object, Object); ! extern Object P_Char_Eq_Less (Object, Object); ! extern Object P_Char_Eq_Greater (Object, Object); ! extern Object P_Char_CI_Eq (Object, Object); ! extern Object P_Char_CI_Less (Object, Object); ! extern Object P_Char_CI_Greater (Object, Object); ! extern Object P_Char_CI_Eq_Less (Object, Object); ! extern Object P_Char_CI_Eq_Greater (Object, Object); ! extern Object P_Char_Upper_Casep (Object); ! extern Object P_Char_Lower_Casep (Object); ! extern Object P_Char_Alphabeticp (Object); ! extern Object P_Char_Numericp (Object); ! extern Object P_Char_Whitespacep (Object); ! extern Object P_Char_To_Integer (Object); ! extern Object P_Integer_To_Char (Object); /* Continuations */ ! extern Object P_Call_With_Current_Continuation (Object); ! extern Object P_Dynamic_Wind (Object, Object, Object); ! extern Object P_Control_Pointp (Object); ! extern Object P_Control_Point_Environment (Object); /* Scheme strings --> C Strings */ ! extern char *Get_String (Object); ! extern char *Get_Strsym (Object); /* Debugging */ ! extern Object P_Backtrace_List (int, Object*); /* Dump */ ! extern Object P_Dump (Object); /* Lexical bindings, environments */ ! extern Object P_The_Environment (void); ! extern Object P_Define (Object); ! extern Object P_Set (Object); ! extern Object P_Environment_To_List (Object); ! extern Object P_Define_Macro (Object); ! extern Object P_Boundp (Object); ! extern Object P_Global_Environment (void); ! extern Object P_Environmentp (Object); extern Object The_Environment, Global_Environment; /* Error handling */ ! extern void Primitive_Error (const char*, ...) elk_attribute(__noreturn__); ! extern void Fatal_Error (const char*, ...) elk_attribute(__noreturn__); ! extern void Range_Error (Object); ! extern void Panic (const char*); ! extern Object P_Error (int, Object*); ! extern Object P_Reset (void); extern const char *Error_Tag; /* will be removed in the near future */ ! extern const char *Get_Error_Tag (void); ! extern void Set_Error_Tag (const char *); ! extern void Set_App_Name (char *); ! extern void Reader_Error (Object, char *) elk_attribute(__noreturn__); /* Interrupts */ ! extern Object P_Disable_Interrupts (void); ! extern Object P_Enable_Interrupts (void); ! extern void Signal_Exit (int); /* Features */ ! extern Object P_Features (void); ! extern Object P_Featurep (Object); ! extern Object P_Provide (Object); ! extern Object P_Require (int, Object*); /* Memory allocation, garbage collection */ extern int GC_Debug; ! extern Object Alloc_Object (int, int, int); ! extern void Register_Before_GC (void (*)(void)); ! extern void Register_After_GC (void (*)(void)); ! extern Object P_Collect (void); ! extern Object P_Garbage_Collect_Status (int, Object *); #ifdef GENERATIONAL_GC ! extern Object P_Collect_Incremental (void); #endif *************** *** 152,444 **** extern Object Curr_Input_Port, Curr_Output_Port; extern Object Standard_Input_Port, Standard_Output_Port; ! extern void Reset_IO P_((int)); ! extern Object P_Current_Input_Port P_((void)); ! extern Object P_Current_Output_Port P_((void)); ! extern Object P_Input_Portp P_((Object)); ! extern Object P_Output_Portp P_((Object)); ! extern Object P_Open_Input_File P_((Object)); ! extern Object P_Open_Output_File P_((Object)); ! extern Object P_Open_Input_Output_File P_((Object)); ! extern Object P_Eof_Objectp P_((Object)); ! extern Object P_With_Input_From_File P_((Object, Object)); ! extern Object P_With_Output_To_File P_((Object, Object)); ! extern Object P_Call_With_Input_File P_((Object, Object)); ! extern Object P_Call_With_Output_File P_((Object, Object)); ! extern Object P_Open_Input_String P_((Object)); ! extern Object P_Open_Output_String P_((void)); ! extern Object P_Port_File_Name P_((Object)); ! extern Object P_Tilde_Expand P_((Object)); ! extern Object P_File_Existsp P_((Object)); ! extern Object P_Close_Input_Port P_((Object)); ! extern Object P_Close_Output_Port P_((Object)); ! extern Object P_Port_Line_Number P_((Object)); ! extern Object Terminate_File P_((Object)); ! extern Object Make_Port P_((int, FILE*, Object)); ! extern unsigned int Path_Max P_((void)); /* Loading of files */ ! extern Object P_Load P_((int, Object*)); ! extern void Load_Source_Port P_((Object)); ! extern void Load_File P_((char *)); /* Pairs and lists */ ! extern Object P_Cons P_((Object, Object)); ! extern Object P_Car P_((Object)); ! extern Object P_Cdr P_((Object)); ! extern Object P_Set_Car P_((Object, Object)); ! extern Object P_Set_Cdr P_((Object, Object)); ! extern Object P_Listp P_((Object)); ! extern Object P_List P_((int, Object*)); ! extern Object P_Length P_((Object)); ! extern Object P_Nullp P_((Object)); ! extern Object P_Pairp P_((Object)); ! extern Object P_Cxr P_((Object, Object)); ! extern Object P_Cddr P_((Object)); ! extern Object P_Cdar P_((Object)); ! extern Object P_Cadr P_((Object)); ! extern Object P_Caar P_((Object)); ! extern Object P_Cdddr P_((Object)); ! extern Object P_Cddar P_((Object)); ! extern Object P_Cdadr P_((Object)); ! extern Object P_Cdaar P_((Object)); ! extern Object P_Caddr P_((Object)); ! extern Object P_Cadar P_((Object)); ! extern Object P_Caadr P_((Object)); ! extern Object P_Caaar P_((Object)); ! extern Object P_Caaaar P_((Object)); ! extern Object P_Caaadr P_((Object)); ! extern Object P_Caadar P_((Object)); ! extern Object P_Caaddr P_((Object)); ! extern Object P_Cadaar P_((Object)); ! extern Object P_Cadadr P_((Object)); ! extern Object P_Caddar P_((Object)); ! extern Object P_Cadddr P_((Object)); ! extern Object P_Cdaaar P_((Object)); ! extern Object P_Cdaadr P_((Object)); ! extern Object P_Cdadar P_((Object)); ! extern Object P_Cdaddr P_((Object)); ! extern Object P_Cddaar P_((Object)); ! extern Object P_Cddadr P_((Object)); ! extern Object P_Cdddar P_((Object)); ! extern Object P_Cddddr P_((Object)); ! extern Object P_Append P_((int, Object*)); ! extern Object P_Append_Set P_((int, Object*)); ! extern Object P_Last_Pair P_((Object)); ! extern Object P_Reverse P_((Object)); ! extern Object P_Reverse_Set P_((Object)); ! extern Object P_List_Tail P_((Object, Object)); ! extern Object P_List_Ref P_((Object, Object)); ! extern Object P_Assq P_((Object, Object)); ! extern Object P_Assv P_((Object, Object)); ! extern Object P_Assoc P_((Object, Object)); ! extern Object P_Memq P_((Object, Object)); ! extern Object P_Memv P_((Object, Object)); ! extern Object P_Member P_((Object, Object)); ! extern Object P_Make_List P_((Object, Object)); ! extern Object Copy_List P_((Object)); ! extern unsigned int Fast_Length P_((Object)); ! extern Object Const_Cons P_((Object, Object)); /* Startup and termination */ ! extern Object P_Command_Line_Args P_((void)); ! extern Object P_Exit P_((int, Object*)); ! extern void Elk_Init P_((int, char **av, int, char *)); ! extern void Exit_Handler P_((void)); /* malloc() and realloc() */ ! extern char *Safe_Malloc P_((unsigned int)); ! extern char *Safe_Realloc P_((char*, unsigned int)); /* Numbers */ ! extern Object Make_Integer P_((int)); ! extern Object Make_Unsigned P_((unsigned int)); ! extern Object Make_Long P_((long int)); ! extern Object Make_Unsigned_Long P_((unsigned long int)); ! extern Object Make_Reduced_Flonum P_((double)); ! extern Object Make_Flonum P_((double)); ! extern Object P_Numberp P_((Object)); ! extern Object P_Complexp P_((Object)); ! extern Object P_Realp P_((Object)); ! extern Object P_Rationalp P_((Object)); ! extern Object P_Integerp P_((Object)); ! extern Object P_Abs P_((Object)); ! extern Object P_Zerop P_((Object)); ! extern Object P_Positivep P_((Object)); ! extern Object P_Negativep P_((Object)); ! extern Object P_Oddp P_((Object)); ! extern Object P_Evenp P_((Object)); ! extern Object P_Exactp P_((Object)); ! extern Object P_Inexactp P_((Object)); ! extern Object P_Exact_To_Inexact P_((Object)); ! extern Object P_Inexact_To_Exact P_((Object)); ! extern Object P_Inc P_((Object)); ! extern Object P_Dec P_((Object)); ! extern Object P_Generic_Equal P_((int, Object*)); ! extern Object P_Generic_Less P_((int, Object*)); ! extern Object P_Generic_Greater P_((int, Object*)); ! extern Object P_Generic_Eq_Less P_((int, Object*)); ! extern Object P_Generic_Eq_Greater P_((int, Object*)); ! extern Object P_Generic_Plus P_((int, Object*)); ! extern Object P_Generic_Minus P_((int, Object*)); ! extern Object P_Generic_Multiply P_((int, Object*)); ! extern Object P_Generic_Divide P_((int, Object*)); ! extern Object P_Quotient P_((Object, Object)); ! extern Object P_Remainder P_((Object, Object)); ! extern Object P_Modulo P_((Object, Object)); ! extern Object P_Gcd P_((int, Object*)); ! extern Object P_Lcm P_((int, Object*)); ! extern Object P_Floor P_((Object)); ! extern Object P_Ceiling P_((Object)); ! extern Object P_Truncate P_((Object)); ! extern Object P_Round P_((Object)); ! extern Object P_Sqrt P_((Object)); ! extern Object P_Exp P_((Object)); ! extern Object P_Pow P_((Object, Object)); ! extern Object P_Log P_((Object)); ! extern Object P_Sin P_((Object)); ! extern Object P_Cos P_((Object)); ! extern Object P_Tan P_((Object)); ! extern Object P_Asin P_((Object)); ! extern Object P_Acos P_((Object)); ! extern Object P_Atan P_((int, Object*)); ! extern Object P_Min P_((int, Object*)); ! extern Object P_Max P_((int, Object*)); ! extern Object P_Random P_((void)); ! extern Object P_Srandom P_((Object)); ! extern Object P_Number_To_String P_((int, Object*)); ! extern double Get_Double P_((Object)); ! extern int Get_Integer P_((Object)); ! extern unsigned int Get_Unsigned P_((Object)); ! extern long int Get_Long P_((Object)); ! extern unsigned long int Get_Unsigned_Long P_((Object)); ! extern int Get_Exact_Integer P_((Object)); ! extern unsigned int Get_Exact_Unsigned P_((Object)); ! extern long int Get_Exact_Long P_((Object)); ! extern unsigned long int Get_Exact_Unsigned_Long P_((Object)); /* Onfork handlers */ ! extern void Register_Onfork P_((void (*)(void))); ! extern void Call_Onfork P_((void)); /* Define_Primitive() */ ! extern void Define_Primitive P_((Object (*)(ELLIPSIS), const char*, int, int, ! enum discipline)); /* Output */ ! extern Object P_Write P_((int, Object*)); ! extern Object P_Display P_((int, Object*)); ! extern Object P_Write_Char P_((int, Object*)); ! extern Object P_Newline P_((int, Object*)); ! extern Object P_Format P_((int, Object*)); ! extern Object P_Clear_Output_Port P_((int, Object*)); ! extern Object P_Flush_Output_Port P_((int, Object*)); ! extern Object P_Print P_((int, Object*)); ! extern Object P_Get_Output_String P_((Object)); ! extern void Check_Output_Port P_((Object)); ! extern void Discard_Output P_((Object)); ! extern void Printf P_((Object, const char *, ...)); ! extern void Print_Object P_((Object, Object, int, int, unsigned int)); ! extern void General_Print_Object P_((Object, Object, int)); ! extern void Format P_((Object, const char*, unsigned int, int, Object*)); extern int Saved_Errno; /* Evaluator, procedures, macros */ ! extern Object Eval P_((Object)); ! extern Object P_Eval P_((int, Object*)); ! extern Object P_Apply P_((int, Object*)); ! extern Object Funcall P_((Object, Object, int)); ! extern Object P_Lambda P_((Object)); ! extern Object P_Map P_((int, Object*)); ! extern Object P_Procedure_Environment P_((Object)); ! extern Object P_Procedure_Lambda P_((Object)); ! extern Object P_For_Each P_((int, Object*)); ! extern Object P_Procedurep P_((Object)); ! extern Object P_Macro P_((Object)); ! extern Object P_Macro_Body P_((Object)); ! extern Object P_Macro_Expand P_((Object)); ! extern Object P_Primitivep P_((Object)); ! extern Object P_Compoundp P_((Object)); ! extern Object P_Macrop P_((Object)); ! extern void Check_Procedure P_((Object)); /* Delay and force */ ! extern Object P_Delay P_((Object)); ! extern Object P_Force P_((Object)); ! extern Object P_Promisep P_((Object)); ! extern Object P_Promise_Environment P_((Object)); /* Input */ ! extern Object P_Read P_((int, Object*)); ! extern Object P_Read_Char P_((int, Object*)); ! extern Object P_Peek_Char P_((int, Object*)); ! extern Object P_Char_Readyp P_((int, Object*)); ! extern Object P_Unread_Char P_((int, Object*)); ! extern Object P_Read_String P_((int, Object*)); ! extern Object P_Clear_Input_Port P_((int, Object*)); ! extern Object General_Read P_((Object, int)); ! extern void Check_Input_Port P_((Object)); ! extern void Discard_Input P_((Object)); ! extern void Define_Reader P_((int, READFUN)); /* Special forms */ ! extern Object P_Quote P_((Object)); ! extern Object P_If P_((Object)); ! extern Object P_Let P_((Object)); ! extern Object P_Letseq P_((Object)); ! extern Object P_Letrec P_((Object)); ! extern Object P_Case P_((Object)); ! extern Object P_Cond P_((Object)); ! extern Object P_And P_((Object)); ! extern Object P_Or P_((Object)); ! extern Object P_Do P_((Object)); ! extern Object P_Quasiquote P_((Object)); ! extern Object P_Fluid_Let P_((Object)); ! extern Object P_Begin P_((Object)); ! extern Object P_Begin1 P_((Object)); /* Strings */ ! extern Object Make_String P_((const char*, unsigned int)); ! extern Object Make_Const_String P_((const char*, unsigned int)); ! extern Object P_Make_String P_((int, Object*)); ! extern Object P_Stringp P_((Object)); ! extern Object P_String P_((int, Object*)); ! extern Object P_String_To_Number P_((int, Object*)); ! extern Object P_String_Eq P_((Object, Object)); ! extern Object P_String_Less P_((Object, Object)); ! extern Object P_String_Greater P_((Object, Object)); ! extern Object P_String_Eq_Less P_((Object, Object)); ! extern Object P_String_Eq_Greater P_((Object, Object)); ! extern Object P_String_CI_Eq P_((Object, Object)); ! extern Object P_String_CI_Less P_((Object, Object)); ! extern Object P_String_CI_Greater P_((Object, Object)); ! extern Object P_String_CI_Eq_Less P_((Object, Object)); ! extern Object P_String_CI_Eq_Greater P_((Object, Object)); ! extern Object P_String_Length P_((Object)); ! extern Object P_String_Ref P_((Object, Object)); ! extern Object P_String_Set P_((Object, Object, Object)); ! extern Object P_Substring P_((Object, Object, Object)); ! extern Object P_String_Copy P_((Object)); ! extern Object P_String_Append P_((int, Object*)); ! extern Object P_List_To_String P_((Object)); ! extern Object P_String_To_List P_((Object)); ! extern Object P_Substring_Fill P_((Object, Object, Object, Object)); ! extern Object P_String_Fill P_((Object, Object)); ! extern Object P_Substringp P_((Object, Object)); ! extern Object P_CI_Substringp P_((Object, Object)); ! extern int String_Getc P_((Object)); ! extern void String_Ungetc P_((Object, register int)); /* Symbols, variables, frequently used Scheme objects --- 152,444 ---- extern Object Curr_Input_Port, Curr_Output_Port; extern Object Standard_Input_Port, Standard_Output_Port; ! extern void Reset_IO (int); ! extern Object P_Current_Input_Port (void); ! extern Object P_Current_Output_Port (void); ! extern Object P_Input_Portp (Object); ! extern Object P_Output_Portp (Object); ! extern Object P_Open_Input_File (Object); ! extern Object P_Open_Output_File (Object); ! extern Object P_Open_Input_Output_File (Object); ! extern Object P_Eof_Objectp (Object); ! extern Object P_With_Input_From_File (Object, Object); ! extern Object P_With_Output_To_File (Object, Object); ! extern Object P_Call_With_Input_File (Object, Object); ! extern Object P_Call_With_Output_File (Object, Object); ! extern Object P_Open_Input_String (Object); ! extern Object P_Open_Output_String (void); ! extern Object P_Port_File_Name (Object); ! extern Object P_Tilde_Expand (Object); ! extern Object P_File_Existsp (Object); ! extern Object P_Close_Input_Port (Object); ! extern Object P_Close_Output_Port (Object); ! extern Object P_Port_Line_Number (Object); ! extern Object Terminate_File (Object); ! extern Object Make_Port (int, FILE*, Object); ! extern unsigned int Path_Max (void); /* Loading of files */ ! extern Object P_Load (int, Object*); ! extern void Load_Source_Port (Object); ! extern void Load_File (char *); /* Pairs and lists */ ! extern Object P_Cons (Object, Object); ! extern Object P_Car (Object); ! extern Object P_Cdr (Object); ! extern Object P_Set_Car (Object, Object); ! extern Object P_Set_Cdr (Object, Object); ! extern Object P_Listp (Object); ! extern Object P_List (int, Object*); ! extern Object P_Length (Object); ! extern Object P_Nullp (Object); ! extern Object P_Pairp (Object); ! extern Object P_Cxr (Object, Object); ! extern Object P_Cddr (Object); ! extern Object P_Cdar (Object); ! extern Object P_Cadr (Object); ! extern Object P_Caar (Object); ! extern Object P_Cdddr (Object); ! extern Object P_Cddar (Object); ! extern Object P_Cdadr (Object); ! extern Object P_Cdaar (Object); ! extern Object P_Caddr (Object); ! extern Object P_Cadar (Object); ! extern Object P_Caadr (Object); ! extern Object P_Caaar (Object); ! extern Object P_Caaaar (Object); ! extern Object P_Caaadr (Object); ! extern Object P_Caadar (Object); ! extern Object P_Caaddr (Object); ! extern Object P_Cadaar (Object); ! extern Object P_Cadadr (Object); ! extern Object P_Caddar (Object); ! extern Object P_Cadddr (Object); ! extern Object P_Cdaaar (Object); ! extern Object P_Cdaadr (Object); ! extern Object P_Cdadar (Object); ! extern Object P_Cdaddr (Object); ! extern Object P_Cddaar (Object); ! extern Object P_Cddadr (Object); ! extern Object P_Cdddar (Object); ! extern Object P_Cddddr (Object); ! extern Object P_Append (int, Object*); ! extern Object P_Append_Set (int, Object*); ! extern Object P_Last_Pair (Object); ! extern Object P_Reverse (Object); ! extern Object P_Reverse_Set (Object); ! extern Object P_List_Tail (Object, Object); ! extern Object P_List_Ref (Object, Object); ! extern Object P_Assq (Object, Object); ! extern Object P_Assv (Object, Object); ! extern Object P_Assoc (Object, Object); ! extern Object P_Memq (Object, Object); ! extern Object P_Memv (Object, Object); ! extern Object P_Member (Object, Object); ! extern Object P_Make_List (Object, Object); ! extern Object Copy_List (Object); ! extern unsigned int Fast_Length (Object); ! extern Object Const_Cons (Object, Object); /* Startup and termination */ ! extern Object P_Command_Line_Args (void); ! extern Object P_Exit (int, Object*); ! extern void Elk_Init (int, char **av, int, char *); ! extern void Exit_Handler (void); /* malloc() and realloc() */ ! extern char *Safe_Malloc (unsigned int); ! extern char *Safe_Realloc (char*, unsigned int); /* Numbers */ ! extern Object Make_Integer (int); ! extern Object Make_Unsigned (unsigned int); ! extern Object Make_Long (long int); ! extern Object Make_Unsigned_Long (unsigned long int); ! extern Object Make_Reduced_Flonum (double); ! extern Object Make_Flonum (double); ! extern Object P_Numberp (Object); ! extern Object P_Complexp (Object); ! extern Object P_Realp (Object); ! extern Object P_Rationalp (Object); ! extern Object P_Integerp (Object); ! extern Object P_Abs (Object); ! extern Object P_Zerop (Object); ! extern Object P_Positivep (Object); ! extern Object P_Negativep (Object); ! extern Object P_Oddp (Object); ! extern Object P_Evenp (Object); ! extern Object P_Exactp (Object); ! extern Object P_Inexactp (Object); ! extern Object P_Exact_To_Inexact (Object); ! extern Object P_Inexact_To_Exact (Object); ! extern Object P_Inc (Object); ! extern Object P_Dec (Object); ! extern Object P_Generic_Equal (int, Object*); ! extern Object P_Generic_Less (int, Object*); ! extern Object P_Generic_Greater (int, Object*); ! extern Object P_Generic_Eq_Less (int, Object*); ! extern Object P_Generic_Eq_Greater (int, Object*); ! extern Object P_Generic_Plus (int, Object*); ! extern Object P_Generic_Minus (int, Object*); ! extern Object P_Generic_Multiply (int, Object*); ! extern Object P_Generic_Divide (int, Object*); ! extern Object P_Quotient (Object, Object); ! extern Object P_Remainder (Object, Object); ! extern Object P_Modulo (Object, Object); ! extern Object P_Gcd (int, Object*); ! extern Object P_Lcm (int, Object*); ! extern Object P_Floor (Object); ! extern Object P_Ceiling (Object); ! extern Object P_Truncate (Object); ! extern Object P_Round (Object); ! extern Object P_Sqrt (Object); ! extern Object P_Exp (Object); ! extern Object P_Pow (Object, Object); ! extern Object P_Log (Object); ! extern Object P_Sin (Object); ! extern Object P_Cos (Object); ! extern Object P_Tan (Object); ! extern Object P_Asin (Object); ! extern Object P_Acos (Object); ! extern Object P_Atan (int, Object*); ! extern Object P_Min (int, Object*); ! extern Object P_Max (int, Object*); ! extern Object P_Random (void); ! extern Object P_Srandom (Object); ! extern Object P_Number_To_String (int, Object*); ! extern double Get_Double (Object); ! extern int Get_Integer (Object); ! extern unsigned int Get_Unsigned (Object); ! extern long int Get_Long (Object); ! extern unsigned long int Get_Unsigned_Long (Object); ! extern int Get_Exact_Integer (Object); ! extern unsigned int Get_Exact_Unsigned (Object); ! extern long int Get_Exact_Long (Object); ! extern unsigned long int Get_Exact_Unsigned_Long (Object); /* Onfork handlers */ ! extern void Register_Onfork (void (*)(void)); ! extern void Call_Onfork (void); /* Define_Primitive() */ ! extern void Define_Primitive (Object (*)(), const char*, int, int, ! enum discipline); /* Output */ ! extern Object P_Write (int, Object*); ! extern Object P_Display (int, Object*); ! extern Object P_Write_Char (int, Object*); ! extern Object P_Newline (int, Object*); ! extern Object P_Format (int, Object*); ! extern Object P_Clear_Output_Port (int, Object*); ! extern Object P_Flush_Output_Port (int, Object*); ! extern Object P_Print (int, Object*); ! extern Object P_Get_Output_String (Object); ! extern void Check_Output_Port (Object); ! extern void Discard_Output (Object); ! extern void Printf (Object, const char *, ...); ! extern void Print_Object (Object, Object, int, int, unsigned int); ! extern void General_Print_Object (Object, Object, int); ! extern void Format (Object, const char*, unsigned int, int, Object*); extern int Saved_Errno; /* Evaluator, procedures, macros */ ! extern Object Eval (Object); ! extern Object P_Eval (int, Object*); ! extern Object P_Apply (int, Object*); ! extern Object Funcall (Object, Object, int); ! extern Object P_Lambda (Object); ! extern Object P_Map (int, Object*); ! extern Object P_Procedure_Environment (Object); ! extern Object P_Procedure_Lambda (Object); ! extern Object P_For_Each (int, Object*); ! extern Object P_Procedurep (Object); ! extern Object P_Macro (Object); ! extern Object P_Macro_Body (Object); ! extern Object P_Macro_Expand (Object); ! extern Object P_Primitivep (Object); ! extern Object P_Compoundp (Object); ! extern Object P_Macrop (Object); ! extern void Check_Procedure (Object); /* Delay and force */ ! extern Object P_Delay (Object); ! extern Object P_Force (Object); ! extern Object P_Promisep (Object); ! extern Object P_Promise_Environment (Object); /* Input */ ! extern Object P_Read (int, Object*); ! extern Object P_Read_Char (int, Object*); ! extern Object P_Peek_Char (int, Object*); ! extern Object P_Char_Readyp (int, Object*); ! extern Object P_Unread_Char (int, Object*); ! extern Object P_Read_String (int, Object*); ! extern Object P_Clear_Input_Port (int, Object*); ! extern Object General_Read (Object, int); ! extern void Check_Input_Port (Object); ! extern void Discard_Input (Object); ! extern void Define_Reader (int, READFUN); /* Special forms */ ! extern Object P_Quote (Object); ! extern Object P_If (Object); ! extern Object P_Let (Object); ! extern Object P_Letseq (Object); ! extern Object P_Letrec (Object); ! extern Object P_Case (Object); ! extern Object P_Cond (Object); ! extern Object P_And (Object); ! extern Object P_Or (Object); ! extern Object P_Do (Object); ! extern Object P_Quasiquote (Object); ! extern Object P_Fluid_Let (Object); ! extern Object P_Begin (Object); ! extern Object P_Begin1 (Object); /* Strings */ ! extern Object Make_String (const char*, unsigned int); ! extern Object Make_Const_String (const char*, unsigned int); ! extern Object P_Make_String (int, Object*); ! extern Object P_Stringp (Object); ! extern Object P_String (int, Object*); ! extern Object P_String_To_Number (int, Object*); ! extern Object P_String_Eq (Object, Object); ! extern Object P_String_Less (Object, Object); ! extern Object P_String_Greater (Object, Object); ! extern Object P_String_Eq_Less (Object, Object); ! extern Object P_String_Eq_Greater (Object, Object); ! extern Object P_String_CI_Eq (Object, Object); ! extern Object P_String_CI_Less (Object, Object); ! extern Object P_String_CI_Greater (Object, Object); ! extern Object P_String_CI_Eq_Less (Object, Object); ! extern Object P_String_CI_Eq_Greater (Object, Object); ! extern Object P_String_Length (Object); ! extern Object P_String_Ref (Object, Object); ! extern Object P_String_Set (Object, Object, Object); ! extern Object P_Substring (Object, Object, Object); ! extern Object P_String_Copy (Object); ! extern Object P_String_Append (int, Object*); ! extern Object P_List_To_String (Object); ! extern Object P_String_To_List (Object); ! extern Object P_Substring_Fill (Object, Object, Object, Object); ! extern Object P_String_Fill (Object, Object); ! extern Object P_Substringp (Object, Object); ! extern Object P_CI_Substringp (Object, Object); ! extern int String_Getc (Object); ! extern void String_Ungetc (Object, register int); /* Symbols, variables, frequently used Scheme objects *************** *** 451,506 **** extern_c Object elk_import Eof; extern_c Object elk_import Unspecified; ! extern Object Intern P_((const char*)); ! extern Object CI_Intern P_((const char*)); ! extern Object P_Oblist P_((void)); ! extern Object P_Symbolp P_((Object)); ! extern Object P_Symbol_To_String P_((Object)); ! extern Object P_String_To_Symbol P_((Object)); ! extern Object P_Put P_((int, Object*)); ! extern Object P_Get P_((Object, Object)); ! extern Object P_Symbol_Plist P_((Object)); ! extern void Define_Variable P_((Object*, const char*, Object)); ! extern void Define_Symbol P_((Object *, const char*)); extern Object Sym_Else; ! extern Object Var_Get P_((Object)); ! extern void Var_Set P_((Object, Object)); ! extern int Var_Is_True P_((Object)); ! extern unsigned long int Symbols_To_Bits P_((Object, int, SYMDESCR*)); ! extern Object Bits_To_Symbols P_((unsigned long int, int, SYMDESCR*)); /* Termination functions */ ! extern void Register_Object P_((Object, GENERIC, PFO, int)); ! extern void Deregister_Object P_((Object)); ! extern Object Find_Object P_((int, GENERIC, MATCHFUN, ...)); ! extern void Terminate_Group P_((GENERIC)); ! extern void Terminate_Type P_((int)); /* Types, Define_Type() */ extern TYPEDESCR *Types; ! extern Object P_Type P_((Object)); ! extern void Wrong_Type P_((Object, int)) elk_attribute(__noreturn__); ! extern void Wrong_Type_Combination P_((Object, const char*)) elk_attribute(__noreturn__); ! extern int Define_Type P_((int, const char*, int (*)(Object), int, int (*)(Object, Object), int (*)(Object, Object), int (*)(Object, Object, int, int, int), ! int (*)(Object*, int (*)(Object*)) )); /* Vectors */ ! extern Object Make_Vector P_((unsigned int, Object)); ! extern Object Make_Const_Vector P_((unsigned int, Object)); ! extern Object P_Make_Vector P_((int, Object*)); ! extern Object P_Vectorp P_((Object)); ! extern Object P_Vector P_((int, Object*)); ! extern Object P_Vector_Length P_((Object)); ! extern Object P_Vector_Ref P_((Object, Object)); ! extern Object P_Vector_Set P_((Object, Object, Object)); ! extern Object P_Vector_To_List P_((Object)); ! extern Object P_List_To_Vector P_((Object)); ! extern Object P_Vector_Fill P_((Object, Object)); ! extern Object P_Vector_Copy P_((Object)); C_LINKAGE_END --- 451,506 ---- extern_c Object elk_import Eof; extern_c Object elk_import Unspecified; ! extern Object Intern (const char*); ! extern Object CI_Intern (const char*); ! extern Object P_Oblist (void); ! extern Object P_Symbolp (Object); ! extern Object P_Symbol_To_String (Object); ! extern Object P_String_To_Symbol (Object); ! extern Object P_Put (int, Object*); ! extern Object P_Get (Object, Object); ! extern Object P_Symbol_Plist (Object); ! extern void Define_Variable (Object*, const char*, Object); ! extern void Define_Symbol (Object *, const char*); extern Object Sym_Else; ! extern Object Var_Get (Object); ! extern void Var_Set (Object, Object); ! extern int Var_Is_True (Object); ! extern unsigned long int Symbols_To_Bits (Object, int, SYMDESCR*); ! extern Object Bits_To_Symbols (unsigned long int, int, SYMDESCR*); /* Termination functions */ ! extern void Register_Object (Object, GENERIC, PFO, int); ! extern void Deregister_Object (Object); ! extern Object Find_Object (int, GENERIC, MATCHFUN, ...); ! extern void Terminate_Group (GENERIC); ! extern void Terminate_Type (int); /* Types, Define_Type() */ extern TYPEDESCR *Types; ! extern Object P_Type (Object); ! extern void Wrong_Type (Object, int) elk_attribute(__noreturn__); ! extern void Wrong_Type_Combination (Object, const char*) elk_attribute(__noreturn__); ! extern int Define_Type (int, const char*, int (*)(Object), int, int (*)(Object, Object), int (*)(Object, Object), int (*)(Object, Object, int, int, int), ! int (*)(Object*, int (*)(Object*)) ); /* Vectors */ ! extern Object Make_Vector (unsigned int, Object); ! extern Object Make_Const_Vector (unsigned int, Object); ! extern Object P_Make_Vector (int, Object*); ! extern Object P_Vectorp (Object); ! extern Object P_Vector (int, Object*); ! extern Object P_Vector_Length (Object); ! extern Object P_Vector_Ref (Object, Object); ! extern Object P_Vector_Set (Object, Object, Object); ! extern Object P_Vector_To_List (Object); ! extern Object P_List_To_Vector (Object); ! extern Object P_Vector_Fill (Object, Object); ! extern Object P_Vector_Copy (Object); C_LINKAGE_END Index: exception.h =================================================================== RCS file: /cvsroot/foo/fooelk/include/exception.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** exception.h 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- exception.h 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 42,46 **** #else C_LINKAGE_BEGIN ! extern void Intr_Handler P_((int)); C_LINKAGE_END #endif --- 42,46 ---- #else C_LINKAGE_BEGIN ! extern void Intr_Handler (int); C_LINKAGE_END #endif |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:19
|
Update of /cvsroot/foo/fooelk/lib/unix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/lib/unix Modified Files: unix.h Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: unix.h =================================================================== RCS file: /cvsroot/foo/fooelk/lib/unix/unix.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** unix.h 6 Aug 2004 20:56:43 -0000 1.1.1.1 --- unix.h 10 Aug 2004 02:28:41 -0000 1.2 *************** *** 53,61 **** extern SYMDESCR Lseek_Syms[]; ! Object Integer_Pair P_((int, int)); ! Object Syms_To_List P_((SYMDESCR*)); ! extern void Check_Result_Vector P_((Object, unsigned int)); ! extern int Num_Filedescriptors P_(()); #define Get_Filename_Or_Filedescr(obj,fd,fn) \ --- 53,61 ---- extern SYMDESCR Lseek_Syms[]; ! Object Integer_Pair (int, int); ! Object Syms_To_List (SYMDESCR*); ! extern void Check_Result_Vector (Object, unsigned int); ! extern int Num_Filedescriptors (); #define Get_Filename_Or_Filedescr(obj,fd,fn) \ |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:19
|
Update of /cvsroot/foo/fooelk/lib/misc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/lib/misc Modified Files: newhandler.cpp Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: newhandler.cpp =================================================================== RCS file: /cvsroot/foo/fooelk/lib/misc/newhandler.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** newhandler.cpp 6 Aug 2004 20:56:43 -0000 1.1.1.1 --- newhandler.cpp 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 26,29 **** Global_GC_Link (New_Handler); std::new_handler (New_Handler_Proc); ! Define_Primitive ((Object (*)(...))P_Set_New_Handler, "set-c++-new-handler!", 1, 1, EVAL); } --- 26,29 ---- Global_GC_Link (New_Handler); std::new_handler (New_Handler_Proc); ! Define_Primitive ((Object (*)())P_Set_New_Handler, "set-c++-new-handler!", 1, 1, EVAL); } |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:19
|
Update of /cvsroot/foo/fooelk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256 Modified Files: bootstrap configure.ac Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: configure.ac =================================================================== RCS file: /cvsroot/foo/fooelk/configure.ac,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** configure.ac 10 Aug 2004 01:05:33 -0000 1.6 --- configure.ac 10 Aug 2004 02:28:40 -0000 1.7 *************** *** 554,563 **** fi ! AC_CACHE_CHECK([if \$CC accepts -Wsign-compare], ! [ac_cv_c_Wsign_compare], ! [CFLAGS="-Wsign-compare ${CFLAGS_save}" ! AC_TRY_COMPILE([],,ac_cv_c_Wsign_compare=yes, ac_cv_c_Wsign_compare=no)]) ! if test "x${ac_cv_c_Wsign_compare}" != "xno"; then ! CFLAGS_save="-Wsign-compare ${CFLAGS_save}" fi --- 554,565 ---- fi ! # Code qui fait des warnings == code de porc == deux baffes dans ta gueule ! CFLAGS_warn="-Wpointer-arith -Wcast-align -Wcast-qual -Wshadow -Waggregate-return -Wmissing-prototypes -Wnested-externs -Wsign-compare" ! AC_CACHE_CHECK([if \$CC accepts ${CFLAGS_warn}], ! [ac_cv_c_Wwarn], ! [CFLAGS="${CFLAGS_warn} ${CFLAGS_save}" ! AC_TRY_COMPILE([],,ac_cv_c_Wwarn=yes, ac_cv_c_Wwarn=no)]) ! if test "x${ac_cv_c_Wwarn}" != "xno"; then ! CFLAGS_save="${CFLAGS_warn} ${CFLAGS_save}" fi *************** *** 658,662 **** AC_OUTPUT([ Makefile - autotools/Makefile debian/Makefile doc/Makefile --- 660,663 ---- Index: bootstrap =================================================================== RCS file: /cvsroot/foo/fooelk/bootstrap,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** bootstrap 6 Aug 2004 20:56:41 -0000 1.1.1.1 --- bootstrap 10 Aug 2004 02:28:40 -0000 1.2 *************** *** 52,61 **** # Remove old cruft rm -f aclocal.m4 configure config.guess config.log config.sub config.cache config.h.in config.h compile ltmain.sh libtool ltconfig missing mkinstalldirs depcomp install-sh INSTALL ! rm -Rf autom4te.cache ! (cd autotools && rm -f config.guess config.sub missing mkinstalldirs compile ltmain.sh depcomp install-sh) - aclocal${amvers} ${libtoolize} --copy --force - if test -f "ltmain.sh"; then echo "$0: working around a minor libtool issue" --- 52,59 ---- # Remove old cruft rm -f aclocal.m4 configure config.guess config.log config.sub config.cache config.h.in config.h compile ltmain.sh libtool ltconfig missing mkinstalldirs depcomp install-sh INSTALL ! rm -Rf autom4te.cache autotools ! mkdir autotools ${libtoolize} --copy --force if test -f "ltmain.sh"; then echo "$0: working around a minor libtool issue" *************** *** 63,66 **** --- 61,65 ---- fi + aclocal${amvers} autoconf autoheader |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:01
|
Update of /cvsroot/foo/fooelk/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/src Modified Files: heap-gen.c stab-elf.c Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: stab-elf.c =================================================================== RCS file: /cvsroot/foo/fooelk/src/stab-elf.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** stab-elf.c 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- stab-elf.c 10 Aug 2004 02:28:52 -0000 1.2 *************** *** 43,48 **** SYMTAB * ! Snarf_Symbols (lf) ! int lf; { SYMTAB *tab = NULL; --- 43,47 ---- SYMTAB * ! Snarf_Symbols (int lf) { SYMTAB *tab = NULL; Index: heap-gen.c =================================================================== RCS file: /cvsroot/foo/fooelk/src/heap-gen.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** heap-gen.c 6 Aug 2004 20:56:42 -0000 1.1.1.1 --- heap-gen.c 10 Aug 2004 02:28:52 -0000 1.2 *************** *** 100,104 **** static char *saved_heap_ptr; gcspace_t *space; ! static gcspace_t *type, *pmap; static pageno_t *linked; --- 100,104 ---- static char *saved_heap_ptr; gcspace_t *space; ! static gcspace_t *types, *pmap; static pageno_t *linked; *************** *** 198,203 **** PAGE_TO_ADDR ((b))) || \ (space[a] == space[b] && \ ! type[(a)&hp_per_pp_mask] == OBJECTPAGE && \ ! type[((b)&hp_per_pp_mask)+hp_per_pp] == OBJECTPAGE)) /* check whether the (physical) page starting at address addr is protected --- 198,203 ---- PAGE_TO_ADDR ((b))) || \ (space[a] == space[b] && \ ! types[(a)&hp_per_pp_mask] == OBJECTPAGE && \ ! types[((b)&hp_per_pp_mask)+hp_per_pp] == OBJECTPAGE)) /* check whether the (physical) page starting at address addr is protected *************** *** 328,332 **** *len = 1; ! while (type[ADDR_TO_PAGE (*addr)] != OBJECTPAGE) { *addr -= bytes_per_pp; (*len)++; --- 328,332 ---- *len = 1; ! while (types[ADDR_TO_PAGE (*addr)] != OBJECTPAGE) { *addr -= bytes_per_pp; (*len)++; *************** *** 336,340 **** while (ADDR_TO_PAGE(addr1) <= lastpage && space[ADDR_TO_PAGE(addr1)] > 0 && ! type[ADDR_TO_PAGE(addr1)] != OBJECTPAGE) { addr1 += bytes_per_pp; (*len)++; --- 336,340 ---- while (ADDR_TO_PAGE(addr1) <= lastpage && space[ADDR_TO_PAGE(addr1)] > 0 && ! types[ADDR_TO_PAGE(addr1)] != OBJECTPAGE) { addr1 += bytes_per_pp; (*len)++; *************** *** 535,545 **** space = (gcspace_t *)malloc (logical_pages*sizeof (gcspace_t)); ! type = (gcspace_t *)malloc ((logical_pages + 1)*sizeof (gcspace_t)); pmap = (gcspace_t *)malloc (physical_pages*sizeof (gcspace_t)); linked = (pageno_t *)malloc (logical_pages*sizeof (pageno_t)); ! if (!space || !type || !pmap || !linked) { free (heap_ptr); if (space) free ((char*)space); ! if (type) free ((char*)type); if (pmap) free ((char*)pmap); if (linked) free ((char*)linked); --- 535,545 ---- space = (gcspace_t *)malloc (logical_pages*sizeof (gcspace_t)); ! types = (gcspace_t *)malloc ((logical_pages + 1)*sizeof (gcspace_t)); pmap = (gcspace_t *)malloc (physical_pages*sizeof (gcspace_t)); linked = (pageno_t *)malloc (logical_pages*sizeof (pageno_t)); ! if (!space || !types || !pmap || !linked) { free (heap_ptr); if (space) free ((char*)space); ! if (types) free ((char*)types); if (pmap) free ((char*)pmap); if (linked) free ((char*)linked); *************** *** 547,556 **** } ! memset (type, 0, (logical_pages + 1)*sizeof (gcspace_t)); memset (pmap, 0, physical_pages*sizeof (gcspace_t)); memset (linked, 0, logical_pages*sizeof (unsigned int)); space -= firstpage; /* to index the arrays with the heap page number */ ! type -= firstpage; ! type[lastpage+1] = OBJECTPAGE; linked -= firstpage; #ifndef ARRAY_BROKEN --- 547,556 ---- } ! memset (types, 0, (logical_pages + 1)*sizeof (gcspace_t)); memset (pmap, 0, physical_pages*sizeof (gcspace_t)); memset (linked, 0, logical_pages*sizeof (unsigned int)); space -= firstpage; /* to index the arrays with the heap page number */ ! types -= firstpage; ! types[lastpage+1] = OBJECTPAGE; linked -= firstpage; #ifndef ARRAY_BROKEN *************** *** 689,693 **** for (i = firstpage; i <= lastpage; i++) { new_link[i + offset] = linked[i] + offset; ! new_type[i + offset] = type[i]; } for (addr = PAGE_TO_ADDR (firstpage); addr <= PAGE_TO_ADDR (lastpage); --- 689,693 ---- for (i = firstpage; i <= lastpage; i++) { new_link[i + offset] = linked[i] + offset; ! new_type[i + offset] = types[i]; } for (addr = PAGE_TO_ADDR (firstpage); addr <= PAGE_TO_ADDR (lastpage); *************** *** 717,721 **** free ((char*)(linked+firstpage)); ! free ((char*)(type+firstpage)); free ((char*)(space+firstpage)); --- 717,721 ---- free ((char*)(linked+firstpage)); ! free ((char*)(types+firstpage)); free ((char*)(space+firstpage)); *************** *** 727,731 **** linked = new_link; ! type = new_type; space = new_space; pmap = new_pmap; --- 727,731 ---- linked = new_link; ! types = new_type; space = new_space; pmap = new_pmap; *************** *** 756,760 **** free ((char*)(linked+firstpage)); ! free ((char*)(type+firstpage)); free ((char*)(space+firstpage)); --- 756,760 ---- free ((char*)(linked+firstpage)); ! free ((char*)(types+firstpage)); free ((char*)(space+firstpage)); *************** *** 835,842 **** if (cont_free == npg) { space[first_freepage] = current_space; ! type[first_freepage] = OBJECTPAGE; for (n = 1; n < npg; n++) { space[first_freepage+n] = current_space; ! type[first_freepage+n] = CONTPAGE; } current_freep = PAGE_TO_OBJ (first_freepage); --- 835,842 ---- if (cont_free == npg) { space[first_freepage] = current_space; ! types[first_freepage] = OBJECTPAGE; for (n = 1; n < npg; n++) { space[first_freepage+n] = current_space; ! types[first_freepage+n] = CONTPAGE; } current_freep = PAGE_TO_OBJ (first_freepage); *************** *** 969,973 **** forwarded_pages++; space[forward_freepage] = forward_space; ! type[forward_freepage] = OBJECTPAGE; forward_freep = PAGE_TO_OBJ (forward_freepage); forward_free = PAGEWORDS; --- 969,973 ---- forwarded_pages++; space[forward_freepage] = forward_space; ! types[forward_freepage] = OBJECTPAGE; forward_freep = PAGE_TO_OBJ (forward_freepage); forward_free = PAGEWORDS; *************** *** 1241,1245 **** static int ScanCluster (gcptr_t addr) { ! register pageno_t page, lastpage; pageno_t npages; int n = 0; --- 1241,1245 ---- static int ScanCluster (gcptr_t addr) { ! register pageno_t page, last; pageno_t npages; int n = 0; *************** *** 1253,1259 **** rescan_cluster: ! lastpage = ADDR_TO_PAGE ((gcptr_t)scanlast); ! for (page = ADDR_TO_PAGE ((gcptr_t)scanfirst); page <= lastpage; page++) { ! if (STABLE (page) && type[page] == OBJECTPAGE) { scanpointer = PAGE_TO_OBJ (page); #ifdef ALIGN_8BYTE --- 1253,1259 ---- rescan_cluster: ! last = ADDR_TO_PAGE ((gcptr_t)scanlast); ! for (page = ADDR_TO_PAGE ((gcptr_t)scanfirst); page <= last; page++) { ! if (STABLE (page) && types[page] == OBJECTPAGE) { scanpointer = PAGE_TO_OBJ (page); #ifdef ALIGN_8BYTE |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:01
|
Update of /cvsroot/foo/fooelk/lib/xwidgets In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/lib/xwidgets Modified Files: xt.h Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: xt.h =================================================================== RCS file: /cvsroot/foo/fooelk/lib/xwidgets/xt.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** xt.h 6 Aug 2004 20:56:43 -0000 1.1.1.1 --- xt.h 10 Aug 2004 02:28:52 -0000 1.2 *************** *** 37,40 **** --- 37,42 ---- #undef Object + #include <stdarg.h> + #if XtSpecificationRelease < 4 #error "Xt Release 3 or earlier no longer supported" *************** *** 49,54 **** #endif ! typedef XtArgVal (*PFS2X) P_((Object)); ! typedef Object (*PFX2S) P_((XtArgVal)); extern int T_Context; --- 51,56 ---- #endif ! typedef XtArgVal (*PFS2X) (Object); ! typedef Object (*PFX2S) (XtArgVal); extern int T_Context; *************** *** 94,155 **** C_LINKAGE_BEGIN ! extern void Check_Callback_List P_((Object)); ! extern void Check_Context P_((Object)); ! extern void Check_Widget P_((Object)); ! extern void Check_Widget_Class P_((Object, WidgetClass)); ! extern void Convert_Args P_((int, Object*, ArgList, Widget, WidgetClass)); ! extern void Define_Callback P_((char*, char*, int)); ! extern void Define_Class ! P_((char *, WidgetClass, XtResourceList, int)); ! extern void Define_Converter_To_C P_((char*, PFS2X)); ! extern void Define_Converter_To_Scheme P_((char*, PFX2S)); ! extern void Fiddle_Destroy_Callback P_((Widget)); ! extern void Fill_Callbacks P_((Object, XtCallbackList, int, PFX2S)); ! extern void Free_Actions P_((XtAppContext)); extern void Get_All_Resources ! P_((int, Widget, WidgetClass, XtResource**, int*, int*)); ! extern void Make_Resource_Name P_((char*)); ! extern int Match_Xt_Obj P_((ELLIPSIS)); ! extern Object Get_Callbackfun P_((XtPointer)); ! extern Object Get_Function P_((int)); extern Object Get_Resources ! P_((WidgetClass, void (*)(WidgetClass, XtResourceList*, Cardinal*), int)); ! extern Object Get_Values P_((Widget, int, Object*)); ! extern Object Make_Class P_((WidgetClass, char*)); ! extern Object Make_Context P_((XtAppContext)); ! extern Object Make_Context_Foreign P_((XtAppContext)); ! extern Object Make_Id P_((int, XtPointer, int)); ! extern Object Make_Widget P_((Widget)); ! extern Object Make_Widget_Foreign P_((Widget)); ! extern Object Make_Widget_Class P_((WidgetClass)); ! extern PFX2S Find_Callback_Converter P_((WidgetClass, char*, Object)); ! extern PFX2S Find_Converter_To_Scheme P_((char*)); ! extern PFS2X Find_Converter_To_C P_((char*)); ! extern int Register_Function P_((Object)); ! extern void Deregister_Function P_((int)); ! extern XtAccelerators Get_Accelerators P_((Object)); ! extern XtTranslations Get_Translations P_((Object)); ! extern XtPointer Use_Id P_((Object, int)); ! extern void Xt_Warning P_((char*)); ! extern char *Class_Name P_((WidgetClass)); ! extern void Action_Hook P_((Widget, XtPointer, char*, XEvent*, char**, int*)); ! extern void Destroy_Callback_Proc P_((Widget, XtPointer, XtPointer)); ! extern void Get_Sub_Resource_List P_((WidgetClass, XtResourceList*, Cardinal*)); ! extern Object Xt_Class_Name P_((WidgetClass)); ! extern Object Get_Selection_CB P_((ELLIPSIS)); /* xm/support.d */ ! extern Object Get_Any_CB P_((ELLIPSIS)); /* xm/support.d */ ! extern void elk_init_xt_accelerator P_(()); ! extern void elk_init_xt_action P_(()); ! extern void elk_init_xt_callback P_(()); ! extern void elk_init_xt_class P_(()); ! extern void elk_init_xt_context P_(()); ! extern void elk_init_xt_function P_(()); ! extern void elk_init_xt_identifier P_(()); ! extern void elk_init_xt_popup P_(()); ! extern void elk_init_xt_translation P_(()); ! extern void elk_init_xt_widget P_(()); ! extern void elk_init_xt_error P_(()); ! extern void elk_init_xt_init P_(()); C_LINKAGE_END --- 96,156 ---- C_LINKAGE_BEGIN ! extern void Check_Callback_List (Object); ! extern void Check_Context (Object); ! extern void Check_Widget (Object); ! extern void Check_Widget_Class (Object, WidgetClass); ! extern void Convert_Args (int, Object*, ArgList, Widget, WidgetClass); ! extern void Define_Callback (char*, char*, int); ! extern void Define_Class (char *, WidgetClass, XtResourceList, int); ! extern void Define_Converter_To_C (char*, PFS2X); ! extern void Define_Converter_To_Scheme (char*, PFX2S); ! extern void Fiddle_Destroy_Callback (Widget); ! extern void Fill_Callbacks (Object, XtCallbackList, int, PFX2S); ! extern void Free_Actions (XtAppContext); extern void Get_All_Resources ! (int, Widget, WidgetClass, XtResource**, int*, int*); ! extern void Make_Resource_Name (char*); ! extern int Match_Xt_Obj (Object, va_list); ! extern Object Get_Callbackfun (XtPointer); ! extern Object Get_Function (int); extern Object Get_Resources ! (WidgetClass, void (*)(WidgetClass, XtResourceList*, Cardinal*), int); ! extern Object Get_Values (Widget, int, Object*); ! extern Object Make_Class (WidgetClass, char*); ! extern Object Make_Context (XtAppContext); ! extern Object Make_Context_Foreign (XtAppContext); ! extern Object Make_Id (int, XtPointer, int); ! extern Object Make_Widget (Widget); ! extern Object Make_Widget_Foreign (Widget); ! extern Object Make_Widget_Class (WidgetClass); ! extern PFX2S Find_Callback_Converter (WidgetClass, char*, Object); ! extern PFX2S Find_Converter_To_Scheme (char*); ! extern PFS2X Find_Converter_To_C (char*); ! extern int Register_Function (Object); ! extern void Deregister_Function (int); ! extern XtAccelerators Get_Accelerators (Object); ! extern XtTranslations Get_Translations (Object); ! extern XtPointer Use_Id (Object, int); ! extern void Xt_Warning (char*); ! extern char *Class_Name (WidgetClass); ! extern void Action_Hook (Widget, XtPointer, char*, XEvent*, char**, int*); ! extern void Destroy_Callback_Proc (Widget, XtPointer, XtPointer); ! extern void Get_Sub_Resource_List (WidgetClass, XtResourceList*, Cardinal*); ! extern Object Xt_Class_Name (WidgetClass); ! extern Object Get_Selection_CB (void *); /* xm/support.d */ ! extern Object Get_Any_CB (void *); /* xm/support.d */ ! extern void elk_init_xt_accelerator (); ! extern void elk_init_xt_action (); ! extern void elk_init_xt_callback (); ! extern void elk_init_xt_class (); ! extern void elk_init_xt_context (); ! extern void elk_init_xt_function (); ! extern void elk_init_xt_identifier (); ! extern void elk_init_xt_popup (); ! extern void elk_init_xt_translation (); ! extern void elk_init_xt_widget (); ! extern void elk_init_xt_error (); ! extern void elk_init_xt_init (); C_LINKAGE_END |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:01
|
Update of /cvsroot/foo/fooelk/lib/xwidgets/motif In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/lib/xwidgets/motif Modified Files: support.d Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: support.d =================================================================== RCS file: /cvsroot/foo/fooelk/lib/xwidgets/motif/support.d,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** support.d 6 Aug 2004 20:56:43 -0000 1.1.1.1 --- support.d 10 Aug 2004 02:28:52 -0000 1.2 *************** *** 77,81 **** (prolog ! "Object Get_Any_CB (XmAnyCallbackStruct *p) { Object args, ret; GC_Node2; --- 77,82 ---- (prolog ! "Object Get_Any_CB (void *_p) { ! XmAnyCallbackStruct *p = _p; Object args, ret; GC_Node2; *************** *** 96,100 **** (prolog ! "Object Get_Selection_CB (XmSelectionBoxCallbackStruct *p) { Object ret, s; char *text; --- 97,102 ---- (prolog ! "Object Get_Selection_CB (void *_p) { ! XmSelectionBoxCallbackStruct *p = _p; Object ret, s; char *text; |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:29:00
|
Update of /cvsroot/foo/fooelk/lib/xlib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11256/lib/xlib Modified Files: xlib.h Log Message: integrated recent changes in elk's svn repository. throws lots of warnings while compiling due to new warning flags enabled in configure.ac. don't mind Index: xlib.h =================================================================== RCS file: /cvsroot/foo/fooelk/lib/xlib/xlib.h,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** xlib.h 6 Aug 2004 20:56:43 -0000 1.1.1.1 --- xlib.h 10 Aug 2004 02:28:41 -0000 1.2 *************** *** 35,38 **** --- 35,40 ---- #include <X11/Xutil.h> + #include <stdarg.h> + #undef True #undef False *************** *** 159,225 **** C_LINKAGE_BEGIN ! extern Colormap Get_Colormap P_((Object)); ! extern Cursor Get_Cursor P_((Object)); ! extern Drawable Get_Drawable P_((Object, Display**)); ! extern Font Get_Font P_((Object)); ! extern int Get_Screen_Number P_((Display*, Object)); ! extern Object Get_Event_Args P_((XEvent*)); ! extern Pixmap Get_Pixmap P_((Object)); ! extern Time Get_Time P_((Object)); ! extern Window Get_Window P_((Object)); ! extern XColor *Get_Color P_((Object)); ! extern unsigned long int Get_Pixel P_((Object)); ! extern void Destroy_Event_Args P_((Object)); ! extern int Encode_Event P_((Object)); ! extern int Match_X_Obj P_((ELLIPSIS)); ! extern void Open_Font_Maybe P_((Object)); ! extern Object Make_Atom P_((Atom)); ! extern Object Make_Color P_((unsigned int, unsigned int, unsigned int)); ! extern Object Make_Colormap P_((int, Display*, Colormap)); ! extern Object Make_Cursor P_((Display*, Cursor)); ! extern Object Make_Cursor_Foreign P_((Display*, Cursor)); ! extern Object Make_Display P_((int, Display*)); ! extern Object Make_Font P_((Display*, Object, Font, XFontStruct*)); ! extern Object Make_Font_Foreign P_((Display*, Object, Font, XFontStruct*)); ! extern Object Make_Gc P_((int, Display*, GC)); ! extern Object Make_Pixel P_((unsigned long int)); ! extern Object Make_Pixmap P_((Display*, Pixmap)); ! extern Object Make_Pixmap_Foreign P_((Display*, Pixmap)); ! extern Object Make_Window P_((int, Display*, Window)); ! extern Object P_Close_Display P_((Object)); ! extern Object P_Close_Font P_((Object)); ! extern Object P_Destroy_Window P_((Object)); ! extern Object P_Free_Colormap P_((Object)); ! extern Object P_Free_Cursor P_((Object)); ! extern Object P_Free_Gc P_((Object)); ! extern Object P_Free_Pixmap P_((Object)); ! extern Object P_Window_Unique_Id P_((Object)); extern Object Record_To_Vector ! P_((RECORD*, int, Object, Display*, unsigned long int)); extern unsigned long int Vector_To_Record ! P_((Object, unsigned int, Object, RECORD*)); ! extern void elk_init_xlib_client P_(()); ! extern void elk_init_xlib_color P_(()); ! extern void elk_init_xlib_colormap P_(()); ! extern void elk_init_xlib_cursor P_(()); ! extern void elk_init_xlib_display P_(()); ! extern void elk_init_xlib_error P_(()); ! extern void elk_init_xlib_event P_(()); ! extern void elk_init_xlib_extension P_(()); ! extern void elk_init_xlib_font P_(()); ! extern void elk_init_xlib_gcontext P_(()); ! extern void elk_init_xlib_grab P_(()); ! extern void elk_init_xlib_graphics P_(()); ! extern void elk_init_xlib_key P_(()); ! extern void elk_init_xlib_objects P_(()); ! extern void elk_init_xlib_pixel P_(()); ! extern void elk_init_xlib_pixmap P_(()); ! extern void elk_init_xlib_property P_(()); ! extern void elk_init_xlib_text P_(()); ! extern void elk_init_xlib_type P_(()); ! extern void elk_init_xlib_util P_(()); ! extern void elk_init_xlib_window P_(()); ! extern void elk_init_xlib_wm P_(()); C_LINKAGE_END --- 161,227 ---- C_LINKAGE_BEGIN ! extern Colormap Get_Colormap (Object); ! extern Cursor Get_Cursor (Object); ! extern Drawable Get_Drawable (Object, Display**); ! extern Font Get_Font (Object); ! extern int Get_Screen_Number (Display*, Object); ! extern Object Get_Event_Args (XEvent*); ! extern Pixmap Get_Pixmap (Object); ! extern Time Get_Time (Object); ! extern Window Get_Window (Object); ! extern XColor *Get_Color (Object); ! extern unsigned long int Get_Pixel (Object); ! extern void Destroy_Event_Args (Object); ! extern int Encode_Event (Object); ! extern int Match_X_Obj (Object, va_list); ! extern void Open_Font_Maybe (Object); ! extern Object Make_Atom (Atom); ! extern Object Make_Color (unsigned int, unsigned int, unsigned int); ! extern Object Make_Colormap (int, Display*, Colormap); ! extern Object Make_Cursor (Display*, Cursor); ! extern Object Make_Cursor_Foreign (Display*, Cursor); ! extern Object Make_Display (int, Display*); ! extern Object Make_Font (Display*, Object, Font, XFontStruct*); ! extern Object Make_Font_Foreign (Display*, Object, Font, XFontStruct*); ! extern Object Make_Gc (int, Display*, GC); ! extern Object Make_Pixel (unsigned long int); ! extern Object Make_Pixmap (Display*, Pixmap); ! extern Object Make_Pixmap_Foreign (Display*, Pixmap); ! extern Object Make_Window (int, Display*, Window); ! extern Object P_Close_Display (Object); ! extern Object P_Close_Font (Object); ! extern Object P_Destroy_Window (Object); ! extern Object P_Free_Colormap (Object); ! extern Object P_Free_Cursor (Object); ! extern Object P_Free_Gc (Object); ! extern Object P_Free_Pixmap (Object); ! extern Object P_Window_Unique_Id (Object); extern Object Record_To_Vector ! (RECORD*, int, Object, Display*, unsigned long int); extern unsigned long int Vector_To_Record ! (Object, unsigned int, Object, RECORD*); ! extern void elk_init_xlib_client (); ! extern void elk_init_xlib_color (); ! extern void elk_init_xlib_colormap (); ! extern void elk_init_xlib_cursor (); ! extern void elk_init_xlib_display (); ! extern void elk_init_xlib_error (); ! extern void elk_init_xlib_event (); ! extern void elk_init_xlib_extension (); ! extern void elk_init_xlib_font (); ! extern void elk_init_xlib_gcontext (); ! extern void elk_init_xlib_grab (); ! extern void elk_init_xlib_graphics (); ! extern void elk_init_xlib_key (); ! extern void elk_init_xlib_objects (); ! extern void elk_init_xlib_pixel (); ! extern void elk_init_xlib_pixmap (); ! extern void elk_init_xlib_property (); ! extern void elk_init_xlib_text (); ! extern void elk_init_xlib_type (); ! extern void elk_init_xlib_util (); ! extern void elk_init_xlib_window (); ! extern void elk_init_xlib_wm (); C_LINKAGE_END |
|
From: Martin R. <ru...@us...> - 2004-08-10 02:19:39
|
Update of /cvsroot/foo/fooelk/autotools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10285 Removed Files: Makefile.am Log Message: removed autotools in from CVS (gets created by bootstrap) --- Makefile.am DELETED --- |
|
From: Martin R. <ru...@us...> - 2004-08-10 01:45:39
|
Update of /cvsroot/foo/fooelk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6010 Modified Files: README.FOO Log Message: updated readme Index: README.FOO =================================================================== RCS file: /cvsroot/foo/fooelk/README.FOO,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** README.FOO 7 Aug 2004 09:10:20 -0000 1.2 --- README.FOO 10 Aug 2004 01:45:29 -0000 1.3 *************** *** 2,7 **** -------------------- ! this is fooelk, an elk distribution based on elk-3.99.6, which has ! been slightly modified for use with the foo sound synthesis system. the differences between fooelk and the current elk-3.99.6 release are: --- 2,8 ---- -------------------- ! this is fooelk, an elk distribution based on elk-3.99.6 and later ! changes to elk's svn repository. it has been slightly modified for use ! with the foo sound synthesis system. the differences between fooelk and the current elk-3.99.6 release are: *************** *** 9,14 **** * P_Pow patch * read rationals reader extension patch ! * readline support patch ! * initial heap size set to 64M configure looks for a license-compliant readline library on your --- 10,47 ---- * P_Pow patch * read rationals reader extension patch ! * configure-option for gc type ! * initial heap size set to 4M (by default) ! * readline extension patch ! ! 1. * P_Pow patch ! ! exported P_Pow symbol, so that foo can use it. ! ! ! 2. * read rationals reader extension patch ! ! numbers specified in the form 3/4 are now accepted by the interpreter. ! ! ! 3. * configure-option for gc type ! ! you may choose the garbage collector used for the interpreter with ! ! ./configure --with-gc-type=[generational|stopncopy] ! ! unlike the original elk, the default in fooelk is stopncopy (due to a ! still unfixed bug in the generational gc). ! ! ! 4. * initial heap size set to 4M (by default) ! ! you may control the heap size by specifying ! ! ./configure --with-default-heapsize=SIZE ! ! SIZE in KB. ! ! ! 5. * readline extension patch configure looks for a license-compliant readline library on your *************** *** 30,33 **** --- 63,81 ---- ./configure --enable-gnu-readline + if you want to create a statically linked readline extension (which + contains the the readline library itself, so that the extension is + usable on another computer without this library installed), you may a + really dirty configure time option: + + ./configure --enable-gnu-realtime \ + --with-static-readline="/sw/lib/libreadline.a /sw/lib/libncurses.a" + + you have to specify all static libraries which should get included + with the readline extension with their FULL pathname. configure will + ensure that the given filenames exist, but it can't ensure that the + libraries are the correct and sufficient ones. depending on the + system, you may encounter unresolved symbols during linktime or even + later during runtime. + to take advantage of the readline extension, you may use a slightly adopted toplevel.scm-file by starting fooelk this way: *************** *** 35,42 **** fooelk -l toplevel-readline.scm ! 2004-03-04 martin rumori fo...@ru... ! 2004-08-07 rumori release 0.0.8 ! - fixed bug yielding GC crash ! - improved readline extension ! - heapsize now 4096k --- 83,109 ---- fooelk -l toplevel-readline.scm ! the readline extension enables the normal readline functionality known ! from other applications. rl_readline_name is set to "fooelk", so that ! custom application-specific setting could be made to .inputrc. ! the readline extension does completion. normally, toplevel symbols ! known to the system are completed. inside strings (starting with "), ! filenames are completed. when compiled with libedit, just symbols ! with be completed. ! ! the completion functionality may be switched off an on at runtime: ! ! (readline-completion [#t|#f]) ! ! switches on or off, resp. the initial state of the completion ! functionality can be controlled via the environment variable ! ELK_READLINE_COMPLETION. if that variable is set and contains more ! then zero characters, completion is switched OFF initially. ! ! switching of the completion functionality is useful for example when ! pasting in indented code. with completion switched on, it is ! activated everytime a completion character, usually <TAB>, occurs in ! the input. ! ! ! 2004-08-09 martin rumori fo...@ru... |
|
From: Martin R. <ru...@us...> - 2004-08-10 01:45:04
|
Update of /cvsroot/foo/fooelk/lib/readline In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5886 Modified Files: completion.c readline.c Log Message: moved setting of rl_readline_name to readline.c, added function pointer cast to (rl_compentry_func_t *) Index: readline.c =================================================================== RCS file: /cvsroot/foo/fooelk/lib/readline/readline.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** readline.c 7 Aug 2004 08:56:26 -0000 1.2 --- readline.c 10 Aug 2004 01:44:56 -0000 1.3 *************** *** 167,170 **** --- 167,171 ---- _cont_prompt = "> "; using_history(); + rl_readline_name = "fooelk"; Def_Prim(P_Readline_Read, "readline-read", 0, 0, EVAL); Index: completion.c =================================================================== RCS file: /cvsroot/foo/fooelk/lib/readline/completion.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** completion.c 7 Aug 2004 08:56:26 -0000 1.4 --- completion.c 10 Aug 2004 01:44:56 -0000 1.5 *************** *** 108,112 **** if (rl_line_buffer[start - 1] != '"') { ! matches = rl_completion_matches(text, erl_symbol_complete); } --- 108,112 ---- if (rl_line_buffer[start - 1] != '"') { ! matches = rl_completion_matches(text, (rl_compentry_func_t *)erl_symbol_complete); } |
|
From: Martin R. <ru...@us...> - 2004-08-10 01:05:42
|
Update of /cvsroot/foo/fooelk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv423 Modified Files: configure.ac Log Message: added option in order to link readline extension statically Index: configure.ac =================================================================== RCS file: /cvsroot/foo/fooelk/configure.ac,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** configure.ac 9 Aug 2004 17:12:07 -0000 1.5 --- configure.ac 10 Aug 2004 01:05:33 -0000 1.6 *************** *** 88,97 **** enable_gnu_readline=no) if test "$enable_gnu_readline" = no; then AC_CHECK_HEADERS(editline/readline.h editline/history.h) ! AC_CHECK_LIB(edit, readline, ! [ac_cv_my_have_readline=yes ! RL_LIBS="-ledit"], ! [ac_cv_my_have_readline=no]) # check for alternative readline replacement --- 88,112 ---- enable_gnu_readline=no) + AC_ARG_WITH(static-readline, + AC_HELP_STRING([--with-static-readline=FILES], [link readline extension statically using static libs given in FILES (with full path!) ("")]), + [link_static_readline=yes], + [link_static_readline=no]) + if test "$enable_gnu_readline" = no; then AC_CHECK_HEADERS(editline/readline.h editline/history.h) ! ! if test "${link_static_readline}" = yes; then ! for static_rl_lib in ${with_static_readline}; do ! AC_CHECK_FILE(${static_rl_lib},, ! [AC_MSG_ERROR([static lib ${static_rl_lib} not found])]) ! done ! RL_LIBS=${with_static_readline} ! ac_cv_my_have_readline=yes ! else ! AC_CHECK_LIB(edit, readline, ! [ac_cv_my_have_readline=yes ! RL_LIBS="-ledit"], ! [ac_cv_my_have_readline=no]) ! fi # check for alternative readline replacement *************** *** 118,133 **** # libraries specified. The `unset ac_cv_lib_readline_readline' erases # the cached result to work around this problem. ! RL_LIBS="-lreadline" ! RL_DEPS="" ! ac_cv_my_have_readline=yes ! AC_CHECK_LIB(readline, readline, [], ! [unset ac_cv_lib_readline_readline ! AC_CHECK_LIB(readline, readline, [RL_DEPS="-ltermcap"], ! [unset ac_cv_lib_readline_readline ! AC_CHECK_LIB(readline, readline, ! [RL_DEPS="-lncurses"], [ac_cv_my_have_readline=false ! RL_LIBS=""], "-lncurses")], ! "-ltermcap")]) ! RL_LIBS="${RL_LIBS} ${RL_DEPS}" fi --- 133,158 ---- # libraries specified. The `unset ac_cv_lib_readline_readline' erases # the cached result to work around this problem. ! if test "${link_static_readline}" = yes; then ! for static_rl_lib in ${with_static_readline}; do ! AC_CHECK_FILE(${static_rl_lib},, ! [AC_MSG_ERROR([static lib ${static_rl_lib} not found])]) ! done ! RL_LIBS=${with_static_readline} ! ac_cv_my_have_readline=yes ! else ! RL_LIBS="-lreadline" ! RL_DEPS="" ! ac_cv_my_have_readline=yes ! AC_CHECK_LIB(readline, readline, [RL_DEPS=""], ! [unset ac_cv_lib_readline_readline ! AC_CHECK_LIB(readline, readline, [RL_DEPS="-ltermcap"], ! [unset ac_cv_lib_readline_readline ! AC_CHECK_LIB(readline, readline, ! [RL_DEPS="-lncurses"], ! [ac_cv_my_have_readline=false ! RL_LIBS=""], "-lncurses")], ! "-ltermcap")]) ! RL_LIBS="${RL_LIBS} ${RL_DEPS}" ! fi fi |
|
From: Martin R. <ru...@us...> - 2004-08-10 01:05:21
|
Update of /cvsroot/foo/fooelk/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv357 Modified Files: type.c Log Message: correct bugfix, which was more like a workaround Index: type.c =================================================================== RCS file: /cvsroot/foo/fooelk/src/type.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** type.c 7 Aug 2004 00:26:42 -0000 1.2 --- type.c 10 Aug 2004 01:05:06 -0000 1.3 *************** *** 44,49 **** "0unbound", "0special", "0character", "1symbol", "1pair", "1environment", "1string", "1vector", "1primitive", "1compound", ! "1control-point", "1promise", "1port", "0end-of-file", "1autoload", ! "1macro", "1!!broken-heart!!", #ifdef GENERATIONAL_GC "0align_8byte", "0freespace", --- 44,49 ---- "0unbound", "0special", "0character", "1symbol", "1pair", "1environment", "1string", "1vector", "1primitive", "1compound", ! "1control-point", "1promise", "1port", "0end-of-file", "0unspecified", ! "1autoload", "1macro", "1!!broken-heart!!", #ifdef GENERATIONAL_GC "0align_8byte", "0freespace", *************** *** 106,116 **** char *p; ! /* may be the next line led to the GC crash (both sc and gen). ! * the first Define_Type gets 22, which is T_Broken_Heart ! * (according to include/object.h). crashes sc immediately and ! * gen later, but only if objects of that first defined type are ! * actually created */ ! /* Num_Types = (sizeof(builtin_types) - 1) / sizeof(char *); */ ! Num_Types = sizeof(builtin_types) / sizeof(char *); Max_Type = Num_Types + TYPE_GROW; bytes = Max_Type * sizeof(TYPEDESCR); --- 106,110 ---- char *p; ! Num_Types = (sizeof(builtin_types) - 1) / sizeof(char *); Max_Type = Num_Types + TYPE_GROW; bytes = Max_Type * sizeof(TYPEDESCR); |
|
From: Martin R. <ru...@us...> - 2004-08-09 17:55:05
|
Update of /cvsroot/foo/foo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17804 Modified Files: bootstrap Log Message: added config.guess to the automake fix, which is related to automake-1.6 rather than mac os x. sorry Index: bootstrap =================================================================== RCS file: /cvsroot/foo/foo/bootstrap,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** bootstrap 9 Aug 2004 17:32:05 -0000 1.2 --- bootstrap 9 Aug 2004 17:54:54 -0000 1.3 *************** *** 48,52 **** # bootstrapping subdirs for dir in ${SUBDIRS}; do ! (cd $dir && echo "bootstrapping $dir" && sh ./bootstrap) || exit 1 done --- 48,53 ---- # bootstrapping subdirs for dir in ${SUBDIRS}; do ! (cd $dir && echo "bootstrapping $dir" && sh ./bootstrap ${amvers}) \ ! || exit 1 done *************** *** 63,67 **** automake${amvers} --add-missing --copy ! # fix nasty automake bug on mac os x if test ! -e ./autotools/config.sub; then if test -e /usr/local/share/automake${amvers}/config.sub; then --- 64,78 ---- automake${amvers} --add-missing --copy ! # fix nasty automake-1.6 bug ! if test ! -e ./autotools/config.guess; then ! if test -e /usr/local/share/automake${amvers}/config.guess; then ! cp /usr/local/share/automake${amvers}/config.guess ./autotools/ ! elif test -e /usr/share/automake${amvers}/config.guess; then ! cp /usr/share/automake${amvers}/config.guess ./autotools/ ! else ! echo "./autotools/config.guess is missing, apparently due to an automake bug." ! fi ! fi ! if test ! -e ./autotools/config.sub; then if test -e /usr/local/share/automake${amvers}/config.sub; then |
|
From: Martin R. <ru...@us...> - 2004-08-09 17:32:14
|
Update of /cvsroot/foo/foo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13127 Modified Files: bootstrap Log Message: try to fix automake bug on mac os x Index: bootstrap =================================================================== RCS file: /cvsroot/foo/foo/bootstrap,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** bootstrap 7 Aug 2004 23:56:11 -0000 1.1 --- bootstrap 9 Aug 2004 17:32:05 -0000 1.2 *************** *** 62,63 **** --- 62,74 ---- autoconf automake${amvers} --add-missing --copy + + # fix nasty automake bug on mac os x + if test ! -e ./autotools/config.sub; then + if test -e /usr/local/share/automake${amvers}/config.sub; then + cp /usr/local/share/automake${amvers}/config.sub ./autotools/ + elif test -e /usr/share/automake${amvers}/config.sub; then + cp /usr/share/automake${amvers}/config.sub ./autotools/ + else + echo "./autotools/config.sub is missing, apparently due to an automake bug." + fi + fi |
|
From: Martin R. <ru...@us...> - 2004-08-09 17:30:56
|
Update of /cvsroot/foo/foo/elkfoo/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12837 Modified Files: pointer.m tell.m Log Message: cleaned up message passing stuff Index: pointer.m =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/src/pointer.m,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** pointer.m 9 Aug 2004 01:47:34 -0000 1.7 --- pointer.m 9 Aug 2004 17:30:47 -0000 1.8 *************** *** 93,97 **** SchemeObject A_Make_Pointer (int address, ! int type) { SchemeObject pointer; --- 93,97 ---- SchemeObject A_Make_Pointer (int address, ! elkfoo_type_t type) { SchemeObject pointer; *************** *** 108,112 **** SchemeObject type) { ! int i; if (TYPE(type) != T_String && TYPE(type) != T_Symbol) --- 108,112 ---- SchemeObject type) { ! elkfoo_type_t i; if (TYPE(type) != T_String && TYPE(type) != T_Symbol) *************** *** 191,195 **** pointer = argv[0]; Check_Type(pointer, T_Pointer); - GC_Link(pointer); type = POINTER_T(pointer)->type.data; addr = POINTER_T(pointer)->pointer; --- 191,194 ---- *************** *** 215,218 **** --- 214,218 ---- result = Make_Vector(items, Null); + GC_Link(result); for (i = 0; i < items; i++) *************** *** 270,275 **** } } } - GC_Unlink; return result; --- 270,275 ---- } } + GC_Unlink; } return result; *************** *** 304,308 **** int length) { ! int type; GC_Node2; --- 304,308 ---- int length) { ! elkfoo_type_t type; GC_Node2; *************** *** 310,313 **** --- 310,314 ---- type = POINTER_T(x)->type.data; + if (type < C_base || type > C_last) { *************** *** 320,326 **** else { - // FIXME: THIS MIGHT GET BETTER USING HIGHLEVEL CALLS - Printf(port, "#[pointer <%s>", elkfoo_type_names[type]); if (type == C_ID) { --- 321,326 ---- else { Printf(port, "#[pointer <%s>", elkfoo_type_names[type]); + if (type == C_ID) { Index: tell.m =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/src/tell.m,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** tell.m 9 Aug 2004 01:43:27 -0000 1.13 --- tell.m 9 Aug 2004 17:30:47 -0000 1.14 *************** *** 63,73 **** NSInvocation *invoc; NSMethodSignature *sign; ! int i, retsize; ! elkfoo_type_t rettype; ! char valbuf[16]; receiver = argv[0]; selector = argv[1]; switch (TYPE(receiver)) { --- 63,72 ---- NSInvocation *invoc; NSMethodSignature *sign; ! int i; receiver = argv[0]; selector = argv[1]; + // check receiver switch (TYPE(receiver)) { *************** *** 102,105 **** --- 101,105 ---- } + // check selector switch (TYPE(selector)) { *************** *** 138,141 **** --- 138,142 ---- } + // get signature if ((sign = [obj methodSignatureForSelector: sel]) == nil) { *************** *** 143,161 **** } invoc = [NSInvocation invocationWithMethodSignature: sign]; ! [invoc setTarget: obj]; ! [invoc setSelector: sel]; ! ! argc -= 2; ! argv += 2; ! ! if (([sign numberOfArguments] - 2) != argc) { Primitive_Error("wrong number of arguments"); } for (i = 0; i < argc; i++) { elkfoo_type_t etype = A_Map_ObjC_Type([sign getArgumentTypeAtIndex: i + 2]); if (A_Get_Buffer_From_Object(valbuf, argv[i], etype)) --- 144,164 ---- } + // create invocation invoc = [NSInvocation invocationWithMethodSignature: sign]; ! if (([sign numberOfArguments]) != argc) { Primitive_Error("wrong number of arguments"); } + // omit _self and _cmd resp. receiver and selector + argc -= 2; + argv += 2; + + // fill invocation with arg values for (i = 0; i < argc; i++) { + char valbuf[16]; + elkfoo_type_t etype = A_Map_ObjC_Type([sign getArgumentTypeAtIndex: i + 2]); if (A_Get_Buffer_From_Object(valbuf, argv[i], etype)) *************** *** 167,180 **** } - rettype = A_Map_ObjC_Type([sign methodReturnType]); - retsize = [sign methodReturnLength]; - // fire [invoc invoke]; - [invoc getReturnValue: valbuf]; ! RELEASE(invoc); ! ret = A_Get_Object_From_Buffer(valbuf, rettype); if (Nullp(ret)) --- 170,195 ---- } // fire + [invoc setTarget: obj]; + [invoc setSelector: sel]; [invoc invoke]; ! { // get return value ! elkfoo_type_t rettype; ! int retsize; ! char *valbuf; ! rettype = A_Map_ObjC_Type([sign methodReturnType]); ! retsize = [sign methodReturnLength]; ! if (! (valbuf = malloc(retsize))) ! { ! Primitive_Error("malloc failed. giving up"); ! } ! [invoc getReturnValue: valbuf]; ! ! ret = A_Get_Object_From_Buffer(valbuf, rettype); ! ! RELEASE(invoc); ! free(valbuf); if (Nullp(ret)) *************** *** 182,185 **** --- 197,201 ---- Primitive_Error("internal error with return"); } + } return ret; |
|
From: Martin R. <ru...@us...> - 2004-08-09 17:12:16
|
Update of /cvsroot/foo/fooelk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8928 Modified Files: configure.ac Log Message: changed default gc to stopncopy because of still present bug in generational gc Index: configure.ac =================================================================== RCS file: /cvsroot/foo/fooelk/configure.ac,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** configure.ac 7 Aug 2004 08:57:32 -0000 1.4 --- configure.ac 9 Aug 2004 17:12:07 -0000 1.5 *************** *** 484,489 **** # stop-and-copy garbage collector will be used. AC_ARG_WITH(gc-type, ! AC_HELP_STRING([--with-gc-type=TYPE], [use 'generational' or 'stopncopy' garbage collector (generational)]),, ! [with_gc_type=generational]) if test "x${with_gc_type}" = "xgenerational" ; then --- 484,489 ---- # stop-and-copy garbage collector will be used. AC_ARG_WITH(gc-type, ! AC_HELP_STRING([--with-gc-type=TYPE], [use 'generational' or 'stopncopy' garbage collector (stopncopy)]),, ! [with_gc_type=stopncpy]) if test "x${with_gc_type}" = "xgenerational" ; then |
|
From: Martin R. <ru...@us...> - 2004-08-09 01:47:44
|
Update of /cvsroot/foo/foo/elkfoo/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29000 Modified Files: pointer.m Added Files: types.m Log Message: added missing new types.m, fixed cast warning Index: pointer.m =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/src/pointer.m,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** pointer.m 9 Aug 2004 01:42:05 -0000 1.6 --- pointer.m 9 Aug 2004 01:47:34 -0000 1.7 *************** *** 184,188 **** { SchemeObject result, pointer; ! int offset = 0, items = 1, type, addr, i; GC_Node; --- 184,189 ---- { SchemeObject result, pointer; ! int offset = 0, items = 1, type, i; ! void *addr; GC_Node; *************** *** 192,196 **** GC_Link(pointer); type = POINTER_T(pointer)->type.data; ! addr = (int)POINTER_T(pointer)->pointer; if (argc > 1) --- 193,197 ---- GC_Link(pointer); type = POINTER_T(pointer)->type.data; ! addr = POINTER_T(pointer)->pointer; if (argc > 1) --- NEW FILE: types.m --- /* * types.m * * map ObjC types to elkfoo_types * convert types from SchemeObject to buffer and back * */ /* * foo sound synthesis system * * (C)1993-2004 Gerhard Eckel, Ramon Gonzalez-Arroyo, IRCAM, ZKM * (C)2003-2004 Martin Rumori */ /* * This file is part of foo. * * foo free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * foo is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with foo; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #ifdef NeXT_RUNTIME #import <objc/objc-runtime.h> #elif GNU_RUNTIME #include <objc/objc-api.h> #else #error *** NEITHER NeXT NOR GNU RUNTIME PRESENT *** #endif #define Object SchemeObject /* avoid Obj-C type clash */ #ifdef HAVE_FOOELK_SCHEME_H #include <fooelk/scheme.h> #else #include <elk/scheme.h> #endif #undef Object #include "elkfoo.h" #define SKIP_BODY(p, c) \ while (*p != c) \ { \ if (! *p++) \ { \ Primitive_Error("malformed objC pointer type could not be mapped"); \ break; \ } \ } elkfoo_type_t A_Map_ObjC_Type (const char *objCtype) { while (1) { switch (*objCtype) { /* the Apple runtime seems to use 'r' in order to indicate * the 'const' qualifier */ case 'r' : ++objCtype; continue; case '\0': return C_base; case _C_ID: return C_ID; case _C_CLASS: return C_CLASS; case _C_SEL: return C_SEL; case _C_CHR: return C_char; case _C_UCHR: return C_unsigned_char; case _C_SHT: return C_short; case _C_USHT: return C_unsigned_short; case _C_INT: return C_int; case _C_UINT: return C_unsigned_int; case _C_LNG: return C_long; case _C_ULNG: return C_unsigned_long; case _C_FLT: return C_float; case _C_DBL: return C_double; case _C_VOID: return C_VOID; case _C_UNDEF: return C_undef; case _C_CHARPTR: return C_CHAR; case _C_STRUCT_B: Primitive_Error("objCtype struct could not be mapped"); break; case _C_PTR: ++objCtype; switch (*objCtype) { case '\0': Primitive_Error("malformed objC pointer type could not be mapped"); break; case _C_CHR: return C_CHAR; case _C_UCHR: return C_UNSIGNED_CHAR; case _C_SHT: return C_SHORT; case _C_USHT: return C_UNSIGNED_SHORT; case _C_INT: return C_INT; case _C_UINT: return C_UNSIGNED_INT; case _C_LNG: return C_LONG; case _C_ULNG: return C_UNSIGNED_LONG; case _C_FLT: return C_FLOAT; case _C_DBL: return C_DOUBLE; case _C_VOID: return C_VOID; case _C_UNDEF: return C_UNDEF; case _C_CHARPTR: return C_CHARPTR; case _C_ARY_B: SKIP_BODY(objCtype, _C_ARY_E) return C_ARRAY; case _C_UNION_B: SKIP_BODY(objCtype, _C_UNION_E) return C_UNION; case _C_STRUCT_B: SKIP_BODY(objCtype, _C_STRUCT_E) return C_STRUCT; case _C_ARY_E: case _C_UNION_E: case _C_STRUCT_E: Primitive_Error("malformed objC [array|union|struct] pointer type could not be mapped"); break; default: Primitive_Error("malformed objC pointer type could not be mapped"); } /* NOTREACHED */ case _C_ARY_B: case _C_UNION_B: case _C_ARY_E: case _C_UNION_E: case _C_STRUCT_E: default: Primitive_Error("malformed objC type could not be mapped"); } /* NOTREACHED */ } return 0; /* in order to avoid compiler warning */ } int A_Get_Buffer_From_Object (void *valbuf, SchemeObject arg, elkfoo_type_t etype) { void *ret; switch (etype) { case C_char: { *(char *)valbuf = Get_Integer(arg); break; } case C_short: { *(short *)valbuf = Get_Integer(arg); break; } case C_int: { *(int *)valbuf = Get_Integer(arg); break; } case C_long: { *(long *)valbuf = Get_Integer(arg); break; } case C_unsigned_char: { *(unsigned char *)valbuf = Get_Integer(arg); break; } case C_unsigned_short: { *(unsigned short *)valbuf = Get_Integer(arg); break; } case C_unsigned_int: { *(unsigned int *)valbuf = Get_Integer(arg); break; } case C_unsigned_long: { *(unsigned long *)valbuf = Get_Integer(arg); break; } case C_float: { *(float *)valbuf = Get_Double(arg); break; } case C_double: { *(double *)valbuf = Get_Double(arg); break; } case C_CHAR: { /* attention: here just the pointer is set in valbuf. * when constructing a NSInvocation with more than * 3 string args, we've got a problem */ *(char **)valbuf = Get_String(arg); break; } case C_VOID: case C_SHORT: case C_INT: case C_LONG: case C_UNSIGNED_CHAR: case C_UNSIGNED_SHORT: case C_UNSIGNED_INT: case C_UNSIGNED_LONG: case C_FLOAT: case C_DOUBLE: case C_ID: case C_CLASS: case C_SEL: case C_STRUCT: case C_UNION: case C_ARRAY: case C_CHARPTR: case C_UNDEF: Check_Type(arg, T_Pointer); if (POINTER_T(arg)->pointer != NULL && POINTER_T(arg)->type.data != etype) { return 1; } else { *(void **)valbuf = (void *)(POINTER_T(arg)->pointer); } break; default: return 1; } return 0; } SchemeObject A_Get_Object_From_Buffer (void *arg, elkfoo_type_t etype) { switch (etype) { case C_char: return Make_Integer(*(char *)arg); case C_short: return Make_Integer(*(short *)arg); case C_int: return Make_Integer(*(int *)arg); case C_long: return Make_Integer(*(long *)arg); case C_unsigned_char: return Make_Unsigned(*(char *)arg); case C_unsigned_short: return Make_Unsigned(*(short *)arg); case C_unsigned_int: return Make_Unsigned(*(int *)arg); case C_unsigned_long: return Make_Unsigned(*(long *)arg); case C_float: return Make_Reduced_Flonum(*(float *)arg); case C_double: return Make_Reduced_Flonum(*(double *)arg); case C_undef: return Make_Reduced_Flonum(*(int *)arg); case C_CHAR: if (arg == NULL) { return False; } else { return Make_String(*(char **)arg, strlen(*(char **)arg)); } case C_VOID: case C_SHORT: case C_INT: case C_LONG: case C_UNSIGNED_CHAR: case C_UNSIGNED_SHORT: case C_UNSIGNED_INT: case C_UNSIGNED_LONG: case C_FLOAT: case C_DOUBLE: case C_ID: case C_CLASS: case C_SEL: case C_STRUCT: case C_UNION: case C_ARRAY: case C_CHARPTR: case C_UNDEF: if ((void *)arg == NULL) { return Null_Pointer; } else { return A_Make_Pointer(*(void **)arg, etype); } } return Null; } |
|
From: Martin R. <ru...@us...> - 2004-08-09 01:43:36
|
Update of /cvsroot/foo/foo/elkfoo/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28601 Modified Files: tell.m Log Message: removed possibly unused includes Index: tell.m =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/src/tell.m,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** tell.m 9 Aug 2004 01:42:05 -0000 1.12 --- tell.m 9 Aug 2004 01:43:27 -0000 1.13 *************** *** 40,51 **** #import <Foundation/NSMethodSignature.h> - #ifdef NeXT_RUNTIME - #import <objc/objc-runtime.h> - #elif GNU_RUNTIME - #include <objc/objc-api.h> - #else - #error *** NEITHER NeXT NOR GNU RUNTIME PRESENT *** - #endif - #include <strings.h> --- 40,43 ---- |
