artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
1609 commits 1 branch 0 tags 10 MiB
Commit graph

177 commits

Author SHA1 Message Date
Jan Nieuwenhuizen 99ac7b59c4
core: Remove struct definitions for builtins, drop snarfing. 
After making a change to the list of builtin functions, run

    cat src/*.i

and move the into

    src/mes.c:mes_builtins ()

and, or also after changing the list of fixed symbols in src/mes.c:mes_symbols (), do

    cat src/*.h > src/builtins.h

* build-aux/build.sh.in: Remove snarfing.
* build-aux/bootstrap.sh.in: Likewise.
* mes/module/mes/display.mes (display):
* mes/module/mes/type-0.mes (cell:type-alist): Remove <cell:function>.
(function?, builtin?): Remove.
* src/builtins.h: New file.
* src/mes.c (TFUNCTION): Remove.
(struct function): Remove.
(apply_builtin): Rewrite from call.
(mes_builtins): Rewrite.
(init_builtin, make_builtin_type, make_builtin, builtin_name,
builtin_arity, builtin, builtin_p, builtin_printer): New function.
 2019-01-04 09:55:16 +01:00
Jan Nieuwenhuizen 04556c5636
core: Remove struct definitions for cells, drop snarfing for symbols. 
* src/mes.c (init_symbol): New function.
(mes_symbols): Use it.
(scm_nil, ... scm_test): Remove.
 2019-01-04 08:07:48 +01:00
Jan Nieuwenhuizen 8e8e2fd6d3
core: Remove string debugging. 
* src/strings.c (make_bytes, make_string, string_equal_p,
symbol_to_string, symbol_to_keyword, make_symbol): Remove string
debugging.
 2018-12-27 16:48:45 +01:00
Jan Nieuwenhuizen 00289fb651
core: Remove --dump, --load. 
* mes/module/mes/boot-0.scm.in (tty?): Remove --dump, --load.
* src/mes.c (bload_env): Remove.
* src/reader.c (dump): Remove.
 2018-12-27 16:47:56 +01:00
Jan Nieuwenhuizen 750fef8dfb
core: Bump MAX_STRING to 524288 
* src/strings.c (MAX_STRING): Bump to 524288.
(assert_max_string): New function.
(list_to_cstring, string_append, read_string): Use it.
* src/reader.c (reader_read_string): Use it.
 2018-12-15 10:34:57 +01:00
Jan Nieuwenhuizen 1ab054002c
core: Add string-ref. 
* src/strings.c (string_ref): New function.
* mes/module/mes/scm.mes (string-ref): Remove.
 2018-11-16 00:15:50 +01:00
Jan Nieuwenhuizen 6af0b49f09
core: Add string-length. 
* src/strings.c (string_length): New function.
* mes/module/mes/scm.mes (string-length): Remove.
 2018-11-15 23:51:29 +01:00
Jan Nieuwenhuizen 819b32e61c
core: Add string-append. 
* src/strings.c (string_append): New function.
* mes/module/mes/boot-0.scm.in (string-append): Remove.
* mes/module/mes/boot-03.scm (string-append): Remove.
* scaffold/boot/50-make-string.scm (string-append): Remove.
* scaffold/boot/50-string-append.scm (string-append): Remove.
* scaffold/boot/50-string-join.scm (string-append): Remove.
* scaffold/boot/51-module.scm (string-append): Remove.
* scaffold/boot/52-define-module.scm (string-append): Remove.
* tests/macro.test (string-append): Remove.
* scaffold/boot/17-string-append.scm: Move from 50-string-append.scm.
 2018-11-15 23:09:56 +01:00
Jan Nieuwenhuizen 149f2a3e51
core: String as array of bytes. 
* src/strings.c: New file.
* src/mes.c: Use it.  Update users.
 2018-11-11 16:25:36 +01:00
Jan Nieuwenhuizen 75655793d4
core: struct_set_: Oops typo. 
* src/struct.c (struct_set_x_): Oops, remove indirection.
 2018-11-14 08:16:58 +01:00
Jan Nieuwenhuizen d2cba60eb4
core: read_string: Allow for gc. 
* src/posix.c (read_char): Add optional port parameter.
(read_string): Allow for gc.
 2018-11-11 10:17:50 +01:00
Jan Nieuwenhuizen af328a444a
core: Add delete_file. 
* src/posix.c (delete_file): New function.
 2018-11-11 11:03:03 +01:00
Jan Nieuwenhuizen 35c8408df4
core: Add dup, dup2. 
* src/posix.c (dup_, dup2_): New function.
 2018-11-11 10:18:50 +01:00
Jan Nieuwenhuizen 7c63d3df47
core: Add getcwd. 
* src/posix.c (getcwd_): New function.
 2018-11-11 10:16:19 +01:00
Jan Nieuwenhuizen 7d2e0f1215
core: Support redirection of stderr. 
* include/libmes-mini.h (g_stderr): New global.
* lib/mes/eputc.c (eputc): Use it.
* lib/mes/eputs.c (eputs): Likewise.
* lib/mes/oputc.c (oputc): Likewise.
* lib/mes/oputs.c (oputs): Likewise.
* src/lib.c (display_error_, write_error_): Likewise.
* src/posix.c (write_byte): Likewise.
* src/mes.c (mes_builtins): Likewise.
(main): Iniitalize g_stderr.
* src/posix.c (current_error_port, set_current_error_port): New
function.
* mes/module/mes/boot-0.scm.in (current-output-port,
current-error-port): Remove.
 2018-11-11 10:04:03 +01:00
Jan Nieuwenhuizen 331a0c29e6
core: Assert g_free in alloc. 
* src/mes.c (alloc): Assert g_free.
 2018-11-11 10:01:49 +01:00
Jan Nieuwenhuizen 0e1d98963c
mes: read-string: Take optional port argument. 
* src/posix.c (read_string): Take optional port argument.
* mes/module/mes/guile.mes (read-string): Remove.
 2018-10-21 12:00:00 +02:00
Jan Nieuwenhuizen d6660a5d83
core: eval_apply: Order gotos according to frequency. 
* src/mes.c (eval_apply): Order gotos according to frequency.
 2018-10-21 08:50:45 +02:00
Jan Nieuwenhuizen fc78b41a10
Revert "core: eval_apply profile." 
This reverts commit d61e6be0b18459a8e3c262eab448b428dc81937a.
 2018-10-21 08:43:35 +02:00
Jan Nieuwenhuizen a048a452e5
core: eval_apply profile. 
* src/mes.c: Poor man's eval_apply profile.
 2018-10-21 08:25:07 +02:00
Jan Nieuwenhuizen 9d1d85e041
core: Fix displaying of closure. 
* src/lib.c (display_helper): Fix displaying of closure.
 2018-10-20 20:01:45 +02:00
Jan Nieuwenhuizen a233287c07
core: Set procedure in stack frame. 
* src/mes.c (eval_apply): Set procedure in stack frame.
 2018-10-20 18:27:13 +02:00
Jan Nieuwenhuizen c2c361bf1a
core: Implement stack and frame. 
* src/lib.c (frame_printer make_frame_type, make_frame,
make_stack_type, make_stack, stack_length, stack_ref): New function.
 2018-10-20 18:23:20 +02:00
Jan Nieuwenhuizen 094bdac0bd
core: Support time functions. 
* lib/linux/clock_gettime.c: New file, move from gnu.c.
* lib/linux/gettimeofday.c: New file, move from tcc.c.
* lib/linux/time.c: New file, move from tcc.c.
* lib/linux/libc.c: Include them.
* lib/linux/gnu.c (clock_gettime): Remove.
* lib/linux/tcc.c (time, gettimeofday): Remove.
* include/time.h (CLOCK_PROCESS_CPUTIME_ID): New define.
* src/posix.c (init_time, current_time, gettimeofday_,
seconds_and_nanoseconds_to_long, get_internal_run_time): New function.
* src/mes.c (scm_symbol_internal_time_units_per_second): New symbol.
(main): Call init_time.
 2018-10-20 14:18:04 +02:00
Jan Nieuwenhuizen ddb74e0a4a
core: Use hash table for symbols. 
* src/mes.c (mes_symbols): Use hash table for symbols.  Update users.
 2018-10-18 18:50:09 +02:00
Jan Nieuwenhuizen 8e2a688a8c
core: Use assert before failure exit. 
* src/mes.c (error): Use assert before failure exit.  Helps debugging.
 2018-10-19 23:01:59 +02:00
Jan Nieuwenhuizen 7efd949304
core: Add hashq_get_handle, hash, hash_ref, hash_set_x. 
* src/mes.c (scm_symbol_hashq_table, scm_symbol_record_type,
scm_symbol_module, scm_symbol_buckets, scm_symbol_size): New symbols.
Update users.
* src/hash.c (hash_list_of_char): Rename from hashq_.  Respect size,
update callers.
(hashq_, hash_ hash, hashq_get_handle, hash_ref, hash_set_x_,
hash_set_x): New function.
(hashq_ref): Do not return handle.  Update callers.
 2018-10-18 07:55:28 +02:00
Jan Nieuwenhuizen 67046e1b00
mes: Move pair? to core. 
* src/lib.c (pair_p): New function.  Gains 8% performance on MesCC.
 2018-10-18 20:06:10 +02:00
Jan Nieuwenhuizen 5ed45a4e24
mes: Move assoc to core. 
* mes/mes.c (assoc_string, assoc): New function.
* mes/module/mes/scm.mes (assoc): Remove.  Gains 12% performance for
MesCC.
 2018-10-19 22:38:19 +02:00
Jan Nieuwenhuizen 4e0e4c83d8
Revert "core: Add gc-debug for stack array." 
This reverts commit f35084d1dbea889d107824e7596da1701c6b90ad.
 2018-10-20 10:58:56 +02:00
Jan Nieuwenhuizen e032f6c70f
core: Add gc-debug for stack array. 
* src/gc.c (gc_debug): New function.
 2018-10-19 21:23:17 +02:00
Jan Nieuwenhuizen d73df09ab6
core: Use array-based stack. 
* src/mes.c (STACK_SIZE)[MES_ARRAY_STACK]: New variable.
(g_stack_array): New variable.
(g_stack): Change type to SCM*.
(gc_push_frame)[MES_ARRAY_STACK]: Use g_stack_array, g_stack.
(gc_peek_frame): Likewise.
(gc_pop_frame): Likewise.
* src/gc.c (gc_check): Likewise.
(gc): Likewise.
 2017-12-14 07:05:53 +01:00
Jan Nieuwenhuizen a99f9c6df9
core: expand_variable: Remove weird exceptions: begin, if. 
* src/mes.c (expand_variable_): Remove weird exceptions: begin, if.
 2018-10-16 17:13:04 +02:00
Jan Nieuwenhuizen b226a175f8
mes: Switch to srfi-9 based on structs. 
* mes/module/srfi/srfi-9.mes: Swap symlink to srfi-9-struct.mes.
* mes/module/srfi/srfi-9/gnu.mes: Swap symlink to gnu-struct.mes.
* src/module.c (make_module_type): Update to match srfi-9-struct
records.  Update users.
* src/hash.c (make_hashq_type): Likewise.
 2018-10-15 20:42:10 +02:00
Jan Nieuwenhuizen 4ff9b36f26
mes: srfi-9: Add implementation based on struct. 
* mes/module/srfi/srfi-9-struct.mes: New file.
* mes/module/srfi/srfi-9-vector.mes: Rename from srfi-9.mes
* mes/module/srfi/srfi-9.mes: Symlink to srfi-9-vector.mes.
* mes/module/srfi/srfi-9/gnu-struct.mes: Add srfi-9-struct
implementation.
* mes/module/srfi/srfi-9/gnu-vector.mes: Rename from gnu.mes.
* mes/module/srfi/srfi-9/gnu.mes: Symlink to gnu-vector.mes.
 2018-10-15 16:57:00 +02:00
Jan Nieuwenhuizen 8c0a517edf
core: hashq-table: Refactor to be a record-like struct. 
* src/hash.c (hash_table_printer): New function.
(make_hashq_type): New function.
* src/module.c (module_printer): Use it.
(make_module_type): New function.
(make_initial_module): Use them.
 2018-10-15 15:45:41 +02:00
Jan Nieuwenhuizen d472c4b6f2
core: Use hashq-table for macros. 
* src/mes.c (lookup_macro_): Remove.
(macro_ref, get_macro, macro_set_x): New function.  Update callers.
 2018-10-15 14:13:51 +02:00
Jan Nieuwenhuizen d552ef7c67
core: Add hashq-table type. 
src/hash.c: New file.
src/module.c (char_hash, module_hash): Remove.
* src/module.c (make_initial_module): Use hash primitives.
(module_define_x): Likewise.
(module_variable): Likewise.
* build-aux/snarf.sh: Snarf it.
* src/mes.c: Include it.
 2018-10-15 13:36:19 +02:00
Jan Nieuwenhuizen bba17734d8
core: Add boot-module. 
* src/mes.c (scm_symbol_boot_module): New symbol.
(eval_apply): Handle it.
(mes_symbols): Initialize it.
 2018-10-15 10:44:47 +02:00
Jan Nieuwenhuizen 7da67941e2
core: Add module-define! 
* src/module.c (module_define_x, module_printer): New function.
(make_initial_module): Use them.
* tests/srfi-0.test: Test it.
* src/mes.c (display_m0): Remove.  Update callers.
* mes/module/mes/fluids.mes (make-fluid): Rewrite.
* tests/macro.test: Test it.
* mes/module/mes/boot-0.scm.in (module-define!): Remove.
* mes/module/mes/boot-02.scm: Likewise.
* module/mes/misc.scm (pk, warn): New function.
* build-aux/check-mes.sh (tests): Run tests.
 2018-10-14 09:10:30 +02:00
Jan Nieuwenhuizen 16934697f7
core: Add module indirection for variable lookup. 
* src/module.c (module_ref, module_variable): New function.
* src/mes.c: Thoughout: Use them.
(assq_ref_env): Remove.
* mes/module/mes/boot-0.scm.in (defined?): Use module-variable.
* mes/module/mes/boot-00.scm (defined?): Likewise.
* mes/module/mes/boot-01.scm (defined?): Likewise.
* mes/module/mes/boot-02.scm (defined?): Likewise.
* scaffold/boot/53-closure-display.scm: Likewise.
 2018-10-14 08:30:18 +02:00
Jan Nieuwenhuizen 79c1fe0466
core: Add module type. 
* src/module.c: New file.
* build-aux/snarf.sh: Snarf it.
* src/mes.c: Include it.
 2018-10-14 08:15:22 +02:00
Jan Nieuwenhuizen 96ca5b4e4b
core: Add cstring_to_symbol. 
* src/mes.c (make_symbol): Rename from lookup_symbol_.  Update
callers.
(cstring_to_symbol): New function.
* src/reader.c (reader_read_identifier_or_number): Use it.
 2018-10-14 07:38:51 +02:00
Jan Nieuwenhuizen 0068fe533d
core: Add struct type. 
* src/struct.c: New file.
* build-aux/snarf.sh: Snarf it.
* src/mes.c: Include it.
 2018-10-13 17:34:27 +02:00
Jan Nieuwenhuizen 2d882ee7bb
core: core:cdr: Support port type. 
* src/mes.c (cdr_): Support port type.
* mes/module/mes/display.mes (display): Add space between fields.
 2018-10-15 12:28:02 +02:00
Jan Nieuwenhuizen a155a0a9a2
core: Support \xNN in reader. Fixes tcc-boot running on Mes. 
* src/reader.c (reader_read_string): Support \xNN.  Fixes Guix
bootstrap chain; i.e., compilation of gcc-2.95.3 using tcc-boot.
* tests/base.test ("reader: \\x08"): Test it.
* scaffold/tests/17-compare-char.c: Likewise, for mescc.
* build-aux/check-mescc.sh (tests): Run it.
 2018-12-13 18:19:43 +01:00
Jan Nieuwenhuizen 183514d103
core: reader: Support 64 bit. 
* src/reader.c (reader_read_identifier_or_number): Support 64 bit.
(reader_read_binary): Likewise.
(reader_read_octal): Likewise.
(reader_read_hex): Likewise.
 2018-10-07 00:58:31 +02:00
Jan Nieuwenhuizen f7e208dd7b
core: Avoid 64bit zero divide. 
* src/math.c (divide): Avoid (64bit) 0 divide.
(modulo): Likewise.
 2018-10-07 00:25:33 +02:00
Jan Nieuwenhuizen d0a1cc5096
core: Use proper name for %compiler. 
* src/mes.c (mes_symbols, bload_env): : Use proper name for %compiler.
 2018-10-06 08:43:26 +02:00
Jan Nieuwenhuizen e4e41a30b4
core: Resurrect MES_MINI for non-POSIX. 
src/mes.c[MES_MINI,!POSIX]: Resurrect.
 2018-10-06 07:25:39 +02:00