andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
1,925 Commits 103 Branches 30 Tags 102 MiB
Commit Graph

295 Commits

Author SHA1 Message Date
Jan Nieuwenhuizen 4158f35df9
Revert "debug" 
This reverts commit d2ab35af5422ea11ca79466d4a340c8f0edd3221.
 2019-10-30 20:29:48 +01:00
Jan Nieuwenhuizen 40ccecb12c
debug 2019-10-30 20:29:48 +01:00
Jan Nieuwenhuizen 13c99740ef
Revert "DEBUG" 
This reverts commit 3296ca276bbf04016d518ad955b15dfb625f1258.
 2019-10-30 20:29:48 +01:00
Jan Nieuwenhuizen 31aa99dcaa
DEBUG 2019-10-30 20:29:48 +01:00
Jan Nieuwenhuizen 9eb7999429
run build-aux/pointer.sh 2019-10-30 20:29:48 +01:00
Jan Nieuwenhuizen 8d7ff09239
Revert "gc_dump_arena" 
This reverts commit 1445725df2c2b7b8776c53daaed1c88d58174763.
 2019-10-30 20:29:47 +01:00
Jan Nieuwenhuizen c5c887ae5a
Revert "core: Pointer Cells: copy back. WIPPERDEWIP" 
This reverts commit c593b1b8219978130fa61826a4f273dab587dd52.
 2019-10-30 20:29:10 +01:00
Jan Nieuwenhuizen cc79d373d4
gc_dump_arena 
* src/gc.c (gc_dump_arena): New function.
 2019-10-30 20:29:10 +01:00
Jan Nieuwenhuizen 6e3f8c693e
core: Pointer Cells: copy back. WIPPERDEWIP 
* src/gc.c (gc_init)[POINTER_CELLS]: Do not use double sized arena.
(gc_cellcpy): New function.
* src/gc.c (gc_flip): Use it, do not flip.
 2019-10-30 20:29:10 +01:00
Jan Nieuwenhuizen 6e7dd80227
test 2019-10-30 20:29:10 +01:00
Jan Nieuwenhuizen 8e67ed3970
test: struct. 
* src/test/gc.c (test_struct): New function.
(main): Call it.
 2019-10-30 20:29:10 +01:00
Jan Nieuwenhuizen f1ed30ecdd
test: vector. 
* src/test/gc.c (test_vector): New function.
(main): Call it.
(print_arena): New function.
(test_gc): Call it.
 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen 3e21c43f14
test: string. 
* src/test/gc.c (test_string): New function.
(main): Call it.
 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen bf7fa3b82c
test: setenv 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen be398fb195
test: list. 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen eee7bfb054
test: cons. 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen c29798b402
test: number. 
* src/test/gc.c (test_number): New function.
(main): Call it.
 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen cc03ba2860
test: empty. 
* src/test/gc.c (test_empty): New function.
 2019-10-30 20:29:09 +01:00
Jan Nieuwenhuizen 5e33bb4cdc
M2: lib. 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen e448654721
M2: vector 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen e743589eb0
M2: symbol.c 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen f65df039cf
M2: stack 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen 82c6d23712
M2: posix 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen 53b5a8d848
M2: module.c 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen 3280aac34d
M2: mes.c 2019-10-30 20:29:08 +01:00
Jan Nieuwenhuizen 9f18a9adff
M2: hash.c 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen 226b7cfede
M2: reader.c 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen b60766a728
M2 eval/apply: applybuiltin 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen ed58d439a5
core: display: Prepare for M2-Planet / pointer based cells. 
!= 0 //, return.

* src/display.c:
 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen a6ff032289
core: gc: Prepare for pointer-based cells. 
* include/mes/mes.h (cell_zero): Declare.
* src/gc.c (gc_init): Initialize it.
(gc_init_news): Likewise.
 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen 1daeef7fef
core: GC fixes. non...Pointer-based? WIP 
* src/gc.c (gc_init): ...
 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen dce9d6a24d
eval-apply: assert 2019-10-30 20:29:07 +01:00
Jan Nieuwenhuizen 1c6077e1cb
core: gc: FRAME_SIZE. 
* src/gc.c (FRAME_SIZE): New constant.
(gc_loop, gc_): Use it.
 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 762d084e5e
remove cell_call_with_current_continuation 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 6bb7680650
remove begin 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 319a37d2e1
core: remove unused symbols. 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 1b1d5c727d
core: builtins: MES_MINI. 
* include/mes/mes.h (g_mini): New global.
* src/mes.c (init): Initialize it with environment variable MES_MINI.
* src/builtins.c (mes_builtins): Register a minimal set of builtins
when g_mini.
 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 06c4abceb8
boot: Add gc test. 
* scaffold/boot/gc.test: New file.
* build-aux/check-boot.sh (TESTS): Add it.
* include/mes/symbols.h (cell_symbol_program): New symbol.
* src/symbol.c (init_symbols_): Initialize it.
* src/mes.c (main): Add it to environment.
 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 0f3401060f
test: Test-gc. 
* src/test/gc.c (main): New unit test.
* simple.make (test-gcc, test-m2): New target to build it.
* build-aux/pointer.sh: Add it.
 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 4118393e6f
core: make_struct: Nicer gc layout. 
* src/struct.c (make_struct): Use STRUCT TYPE PRINTER FIELD0 ... FIELDN.
 2019-10-30 20:29:06 +01:00
Jan Nieuwenhuizen 63b1e7e10e
core: make-vector: Move to core. 
* src/vector.c (make_vector_): Rename from make_vector__.  Add
parameter.  Fix double allocation.
(make_vector): Rename from make_vector_.  Use arity n.  Update users.
 2019-10-30 20:29:05 +01:00
Jan Nieuwenhuizen 6c2700aa59
mescc: Mes C Library: Add M2-Planet support. WIP 
* kaem.run: New file.
* simple.make: Update.
* lib/m2/abtol.c: New file.
* lib/m2/access.c: New file.
* lib/m2/atoi.c: New file.
* lib/m2/chmod.c: New file.
* lib/m2/clock_gettime.c: New file.
* lib/m2/dup.c: New file.
* lib/m2/dup2.c: New file.
* lib/m2/eputs.c: New file.
* lib/m2/execv.c: New file.
* lib/m2/execve.c: New file.
* lib/m2/exit.c: New file.
* lib/m2/fdputc.c: New file.
* lib/m2/fork.c: New file.
* lib/m2/getcwd.c: New file.
* lib/m2/getenv.c: New file.
* lib/m2/isatty.c: New file.
* lib/m2/memchr.c: New file.
* lib/m2/memcmp.c: New file.
* lib/m2/memcpy.c: New file.
* lib/m2/memset.c: New file.
* lib/m2/mes_open.c: New file.
* lib/m2/ntoab.c: New file.
* lib/m2/open.c: New file.
* lib/m2/read.c: New file.
* lib/m2/setenv.c: New file.
* lib/m2/strcmp.c: New file.
* lib/m2/strcpy.c: New file.
* lib/m2/strlen.c: New file.
* lib/m2/strncmp.c: New file.
* lib/m2/time.c: New file.
* lib/m2/unlink.c: New file.
* lib/m2/waitpid.c: New file.
* lib/m2/write.c: New file.
 2019-10-30 20:29:05 +01:00
Jan Nieuwenhuizen d5a71819ae
core: Split-out stack.c 
* src/lib.c (exit_, frame_printer, make_frame_type, make_frame,
make_stack_type, make_stack, stack_length, stack_ref_): Move to ..
* src/posix.c (exit_): Here and to ..
* src/core.c: New file.
* build-aux/build-mes.sh (mes_sources): Add it.
* simple.make (LIBMES_SOURCES): Likewise.
 2019-10-30 19:29:50 +01:00
Jan Nieuwenhuizen 71b94d577f
core: Split-off core.c. 
* src/mes.c (assoc_string, car, cdr, list, null_p, eq_p, values, acons,
length__, length, error, append2, append_reverse, reverse_x_, assq,
assoc): Move to ...
* src/core.c: New file.
* build-aux/build-mes.sh (mes_sources): Likewise.
* simple.make (MES_SOURCES): Add it..
 2019-10-30 19:27:52 +01:00
Jan Nieuwenhuizen f00f337e98
core: Prepare for M2-Planet: if (foo). 
Rewrite C-constructs not supported by M2-Planet

    if (foo)              -> if (foo != 0)

* src/posix.c: Rewrite C-constructs not supported by M2-Planet.
(current_input_port): Likewise.
* src/display.c (display_helper): : Likewise.
* src/eval-apply.c (expand_variable_): : Likewise.
(eval_apply): : Likewise.
* src/mes.c (open_boot): : Likewise.
* src/reader.c (reader_read_identifier_or_number): : Likewise.
* src/symbols.c (init_symbol): : Likewise.
 2019-10-30 18:32:10 +01:00
Jan Nieuwenhuizen 5ec55d229d
core: Outline hashq_get_handle, hash_set_x_. 
* src/hash.c (hashq_ref): Use hashq_get_handle.
(hashq_set_x_): Enable.
(hash_set_x): Use it.
 2019-10-30 18:32:09 +01:00
Jan Nieuwenhuizen 45256476e9
core: Prepare for M2-Planet: continue. 
Rewrite C-constructs not supported by M2-Planet

    continue              -> goto LABEL

* src/eval-apply.c (eval_apply): Add label: begin_expand_while.  Use it
instead of continue.
 2019-10-30 18:32:09 +01:00
Jan Nieuwenhuizen c43a16e168
core: Prepare for M2-Planet: VALUE/TYPE indirections. 
Rewrite C-constructs not supported by M2-Planet

    VALUE (CAR (foo))           -> SCM a = CAR (foo); VALUE (a)
    TYPE (CAR (foo))            -> SCM t = CAR (foo); TYPE (a)

* src/builtins.c (builtin_function): Use VALUE indirections.
(builtin_printer): Likewise.
* src/eval-apply.c (apply_builtin): Likewise.
(get_macro): Likewise.
(expand_variable_): Likewise.
(eval_apply): Likewise.
* src/hash.c (hashq_get_handle): Likewise.
(hashq_ref): Likewise.
(hash_ref): Likewise.
(hash_set_x): Likewise.
(hash_table_printer): Likewise.
* src/math.c (greater_p): Likewise.
(less_p): Likewise.
(is_p): Likewise.
(minus): Likewise.
(plus): Likewise.
(divide): Likewise.
(multiply): Likewise.
(logand): Likewise.
(logior): Likewise.
(logxor): Likewise.
* src/posix.c (current_input_port): Likewise.
(set_current_output_port): Likewise.
* src/reader.c (reader_read_list): Likewise.
(reader_read_character): Likewise.
(reader_read_string): Likewise.
* src/string.c (list_to_cstring): Likewise.
(read_string): Likewise.
 2019-10-30 18:32:09 +01:00
Jan Nieuwenhuizen 5985d962f2
core: Prepare for M2-Planet: M2_CELL_SIZE. 
* src/gc.c (M2_CELL_SIZE): Hack for missing pointer arithmetic in
M2-Planet.
(gc_init, alloc, make_cell, gc_up_arena, gc_copy, gc_loop, gc_): Use it.
 2019-10-30 18:32:09 +01:00
Jan Nieuwenhuizen 49349d0ba9
core: Use unique assert_msg. 
* src/mes.c (error): Use unique assert_msg.
 2019-10-30 18:32:09 +01:00