mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 07:20:29 -07:00
Code Issues Projects Releases Packages Wiki Activity

reader: move common-lisp specific readtable entries t rtab_cl.d

Browse source
This commit is contained in:
Daniel Kochmański 2026-02-28 22:38:03 +01:00
parent f5870df786
commit cc33abf37a
4 changed files with 1048 additions and 999 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/Makefile.in
View file

@ -70,7 +70,7 @@ WRITER_OBJS = print.o printer/float_to_digits.o printer/float_to_string.o
printer/write_list.o printer/write_code.o printer/write_sse.o \
printer/print_unreadable.o
READER_OBJS = read.o reader/parse_integer.o reader/parse_number.o
READER_OBJS = read.o reader/rtab_cl.o reader/parse_integer.o reader/parse_number.o
STREAM_OBJS = stream.o file.o streams/strm_os.o streams/strm_clos.o \
streams/strm_string.o streams/strm_composite.o streams/strm_common.o \

1030
src/c/read.d
View file

File diff suppressed because it is too large Load diff

1010
src/c/reader/rtab_cl.d Normal file
View file

File diff suppressed because it is too large Load diff

5
src/h/external.h
View file

@ -1571,7 +1571,12 @@ extern ECL_API cl_object si_make_backq_vector(cl_object dim, cl_object data, cl_
extern ECL_API int ecl_readtable_get(cl_object rdtbl, int c, cl_object *macro);
extern ECL_API void ecl_readtable_set(cl_object rdtbl, int c, enum ecl_chattrib cat, cl_object macro_or_table);
extern ECL_API cl_object ecl_read_constituent(cl_object in, bool not_first);
extern ECL_API cl_object ecl_read_delimited_list(int d, cl_object strm, bool proper);
extern ECL_API cl_object ecl_dispatch_reader_fun(cl_object in, cl_object dc);
extern ECL_API cl_object ecl_read_eval(cl_object in);
extern ECL_API cl_object ecl_read_object_non_recursive(cl_object in);
extern ECL_API cl_object ecl_read_object_with_delimiter(cl_object in, int del, int flags, enum ecl_chattrib a);
extern ECL_API cl_object ecl_read_object(cl_object in);
extern ECL_API cl_object ecl_parse_number(cl_object s, cl_index start, cl_index end, cl_index *ep, unsigned int radix);
extern ECL_API cl_object ecl_parse_integer(cl_object s, cl_index start, cl_index end, cl_index *ep, unsigned int radix);