5dc245e739
core: Make mes src/ c files separate compilation units.
* include/mes/constants.h: New file.
* include/mes/macros.h: New file.
* include/mes/mes.h: New file.
* src/gc.c: Update.
* src/hash.c: Update.
* src/lib.c: Update.
* src/math.c: Update.
* src/mes.c: Update.
* src/module.c: Update.
* src/posix.c: Update.
* src/reader.c: Update.
* src/string.c: Update.
* src/struct.c: Update.
* src/vector.c: Update.
mes: Update datadir.
* src/mes.c (g_datadir): New global.
(open_boot): Rename from read_boot.
(read_boot): New function.
* mes/module/mes/boot-0.scm: Move from boot-0.scm.in
* configure: Update.
* configure.sh: Update.
mescc: Create libraries from separate files.
* .gitignore: Update.
* build-aux/bootstrap-mes.sh: Remove.
* build-aux/bootstrap.sh.in: Remove.
* build-aux/build-guile.sh: Update.
* build-aux/build-mes.sh: Update.
* build-aux/build-scaffold.sh: New file.
* build-aux/build.sh.in: Update.
* build-aux/cc.sh: Update.
* build-aux/check-tcc.sh: Remove.
* build-aux/config.sh.in: New file.
* build-aux/config.sh: Remove.
* build-aux/install.sh.in: Update.
* build-aux/test-boot.sh: New file.
* build-aux/test-c.sh: New file.
* build-aux/test-driver: New file.
* build-aux/test-suite.sh: New file.
* build-aux/trace.sh: Update.
* build-aux/uninstall.sh.in: Update.
* configure: Update.
* configure.sh: Update.
* lib/linux/x86-mes-mescc/crt1.c: Move from lib/linux/x86-mes.
* lib/linux/x86-mes-mescc/mini.c: Likewise.
* lib/linux/x86_64-mes-mescc/crt1.c: Move from lib/linux/x86_64-mes.
* lib/linux/x86_64-mes-mescc/mini.c: Likewise.
* lib/linux/x86-mes-gcc/syscall.c: Rename from mes.c.
* lib/linux/x86-mes-mescc/syscall.c: Likewise.
* lib/linux/x86_64-mes-gcc/syscall.c: Likewise.
* lib/linux/x86_64-mes-mescc/syscall.c: Likewise.
* lib/mes/mes_open.c: Include config.h.
* lib/tests/stdio/70-printf-hello.c: Likewise.
* lib/tests/stdio/70-printf-simple.c: Likewise.
* scaffold/gc-test.sh: New file.
* simple.sh: Update.
325 lines
10 KiB
C
325 lines
10 KiB
C
/* -*-comment-start: "//";comment-end:""-*-
|
|
* GNU Mes --- Maxwell Equations of Software
|
|
* Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
*
|
|
* This file is part of GNU Mes.
|
|
*
|
|
* GNU Mes is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or (at
|
|
* your option) any later version.
|
|
*
|
|
* GNU Mes 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 General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#ifndef __MES_CONSTANTS_H
|
|
#define __MES_CONSTANTS_H
|
|
|
|
/* Symbols */
|
|
|
|
// CONSTANT cell_nil 1
|
|
#define cell_nil 1
|
|
// CONSTANT cell_f 2
|
|
#define cell_f 2
|
|
// CONSTANT cell_t 3
|
|
#define cell_t 3
|
|
// CONSTANT cell_dot 4
|
|
#define cell_dot 4
|
|
// CONSTANT cell_arrow 5
|
|
#define cell_arrow 5
|
|
// CONSTANT cell_undefined 6
|
|
#define cell_undefined 6
|
|
// CONSTANT cell_unspecified 7
|
|
#define cell_unspecified 7
|
|
// CONSTANT cell_closure 8
|
|
#define cell_closure 8
|
|
// CONSTANT cell_circular 9
|
|
#define cell_circular 9
|
|
// CONSTANT cell_begin 10
|
|
#define cell_begin 10
|
|
// CONSTANT cell_call_with_current_continuation 11
|
|
#define cell_call_with_current_continuation 11
|
|
|
|
// CONSTANT cell_vm_apply 12
|
|
#define cell_vm_apply 12
|
|
// CONSTANT cell_vm_apply2 13
|
|
#define cell_vm_apply2 13
|
|
// CONSTANT cell_vm_begin 14
|
|
#define cell_vm_begin 14
|
|
// CONSTANT cell_vm_begin_eval 15
|
|
#define cell_vm_begin_eval 15
|
|
// CONSTANT cell_vm_begin_expand 16
|
|
#define cell_vm_begin_expand 16
|
|
// CONSTANT cell_vm_begin_expand_eval 17
|
|
#define cell_vm_begin_expand_eval 17
|
|
// CONSTANT cell_vm_begin_expand_macro 18
|
|
#define cell_vm_begin_expand_macro 18
|
|
// CONSTANT cell_vm_begin_expand_primitive_load 19
|
|
#define cell_vm_begin_expand_primitive_load 19
|
|
// CONSTANT cell_vm_begin_primitive_load 20
|
|
#define cell_vm_begin_primitive_load 20
|
|
// CONSTANT cell_vm_begin_read_input_file 21
|
|
#define cell_vm_begin_read_input_file 21
|
|
// CONSTANT cell_vm_call_with_current_continuation2 22
|
|
#define cell_vm_call_with_current_continuation2 22
|
|
// CONSTANT cell_vm_call_with_values2 23
|
|
#define cell_vm_call_with_values2 23
|
|
// CONSTANT cell_vm_eval 24
|
|
#define cell_vm_eval 24
|
|
// CONSTANT cell_vm_eval2 25
|
|
#define cell_vm_eval2 25
|
|
// CONSTANT cell_vm_eval_check_func 26
|
|
#define cell_vm_eval_check_func 26
|
|
// CONSTANT cell_vm_eval_define 27
|
|
#define cell_vm_eval_define 27
|
|
// CONSTANT cell_vm_eval_macro_expand_eval 28
|
|
#define cell_vm_eval_macro_expand_eval 28
|
|
// CONSTANT cell_vm_eval_macro_expand_expand 29
|
|
#define cell_vm_eval_macro_expand_expand 29
|
|
// CONSTANT cell_vm_eval_pmatch_car 30
|
|
#define cell_vm_eval_pmatch_car 30
|
|
// CONSTANT cell_vm_eval_pmatch_cdr 31
|
|
#define cell_vm_eval_pmatch_cdr 31
|
|
// CONSTANT cell_vm_eval_set_x 32
|
|
#define cell_vm_eval_set_x 32
|
|
// CONSTANT cell_vm_evlis 33
|
|
#define cell_vm_evlis 33
|
|
// CONSTANT cell_vm_evlis2 34
|
|
#define cell_vm_evlis2 34
|
|
// CONSTANT cell_vm_evlis3 35
|
|
#define cell_vm_evlis3 35
|
|
// CONSTANT cell_vm_if 36
|
|
#define cell_vm_if 36
|
|
// CONSTANT cell_vm_if_expr 37
|
|
#define cell_vm_if_expr 37
|
|
// CONSTANT cell_vm_macro_expand 38
|
|
#define cell_vm_macro_expand 38
|
|
// CONSTANT cell_vm_macro_expand_car 39
|
|
#define cell_vm_macro_expand_car 39
|
|
// CONSTANT cell_vm_macro_expand_cdr 40
|
|
#define cell_vm_macro_expand_cdr 40
|
|
// CONSTANT cell_vm_macro_expand_define 41
|
|
#define cell_vm_macro_expand_define 41
|
|
// CONSTANT cell_vm_macro_expand_define_macro 42
|
|
#define cell_vm_macro_expand_define_macro 42
|
|
// CONSTANT cell_vm_macro_expand_lambda 43
|
|
#define cell_vm_macro_expand_lambda 43
|
|
// CONSTANT cell_vm_macro_expand_set_x 44
|
|
#define cell_vm_macro_expand_set_x 44
|
|
// CONSTANT cell_vm_return 45
|
|
#define cell_vm_return 45
|
|
|
|
// CONSTANT cell_symbol_dot 46
|
|
#define cell_symbol_dot 46
|
|
// CONSTANT cell_symbol_lambda 47
|
|
#define cell_symbol_lambda 47
|
|
// CONSTANT cell_symbol_begin 48
|
|
#define cell_symbol_begin 48
|
|
// CONSTANT cell_symbol_if 49
|
|
#define cell_symbol_if 49
|
|
// CONSTANT cell_symbol_quote 50
|
|
#define cell_symbol_quote 50
|
|
// CONSTANT cell_symbol_define 51
|
|
#define cell_symbol_define 51
|
|
// CONSTANT cell_symbol_define_macro 52
|
|
#define cell_symbol_define_macro 52
|
|
|
|
// CONSTANT cell_symbol_quasiquote 53
|
|
#define cell_symbol_quasiquote 53
|
|
// CONSTANT cell_symbol_unquote 54
|
|
#define cell_symbol_unquote 54
|
|
// CONSTANT cell_symbol_unquote_splicing 55
|
|
#define cell_symbol_unquote_splicing 55
|
|
// CONSTANT cell_symbol_syntax 56
|
|
#define cell_symbol_syntax 56
|
|
// CONSTANT cell_symbol_quasisyntax 57
|
|
#define cell_symbol_quasisyntax 57
|
|
// CONSTANT cell_symbol_unsyntax 58
|
|
#define cell_symbol_unsyntax 58
|
|
// CONSTANT cell_symbol_unsyntax_splicing 59
|
|
#define cell_symbol_unsyntax_splicing 59
|
|
|
|
// CONSTANT cell_symbol_set_x 60
|
|
#define cell_symbol_set_x 60
|
|
|
|
// CONSTANT cell_symbol_sc_expand 61
|
|
#define cell_symbol_sc_expand 61
|
|
// CONSTANT cell_symbol_macro_expand 62
|
|
#define cell_symbol_macro_expand 62
|
|
// CONSTANT cell_symbol_portable_macro_expand 63
|
|
#define cell_symbol_portable_macro_expand 63
|
|
// CONSTANT cell_symbol_sc_expander_alist 64
|
|
#define cell_symbol_sc_expander_alist 64
|
|
|
|
// CONSTANT cell_symbol_call_with_values 65
|
|
#define cell_symbol_call_with_values 65
|
|
// CONSTANT cell_symbol_call_with_current_continuation 66
|
|
#define cell_symbol_call_with_current_continuation 66
|
|
// CONSTANT cell_symbol_boot_module 67
|
|
#define cell_symbol_boot_module 67
|
|
// CONSTANT cell_symbol_current_module 68
|
|
#define cell_symbol_current_module 68
|
|
// CONSTANT cell_symbol_primitive_load 69
|
|
#define cell_symbol_primitive_load 69
|
|
// CONSTANT cell_symbol_read_input_file 70
|
|
#define cell_symbol_read_input_file 70
|
|
// CONSTANT cell_symbol_write 71
|
|
#define cell_symbol_write 71
|
|
// CONSTANT cell_symbol_display 72
|
|
#define cell_symbol_display 72
|
|
|
|
// CONSTANT cell_symbol_car 73
|
|
#define cell_symbol_car 73
|
|
// CONSTANT cell_symbol_cdr 74
|
|
#define cell_symbol_cdr 74
|
|
// CONSTANT cell_symbol_not_a_number 75
|
|
#define cell_symbol_not_a_number 75
|
|
// CONSTANT cell_symbol_not_a_pair 76
|
|
#define cell_symbol_not_a_pair 76
|
|
// CONSTANT cell_symbol_system_error 77
|
|
#define cell_symbol_system_error 77
|
|
// CONSTANT cell_symbol_throw 78
|
|
#define cell_symbol_throw 78
|
|
// CONSTANT cell_symbol_unbound_variable 79
|
|
#define cell_symbol_unbound_variable 79
|
|
// CONSTANT cell_symbol_wrong_number_of_args 80
|
|
#define cell_symbol_wrong_number_of_args 80
|
|
// CONSTANT cell_symbol_wrong_type_arg 81
|
|
#define cell_symbol_wrong_type_arg 81
|
|
|
|
// CONSTANT cell_symbol_buckets 82
|
|
#define cell_symbol_buckets 82
|
|
// CONSTANT cell_symbol_builtin 83
|
|
#define cell_symbol_builtin 83
|
|
// CONSTANT cell_symbol_frame 84
|
|
#define cell_symbol_frame 84
|
|
// CONSTANT cell_symbol_hashq_table 85
|
|
#define cell_symbol_hashq_table 85
|
|
// CONSTANT cell_symbol_module 86
|
|
#define cell_symbol_module 86
|
|
// CONSTANT cell_symbol_procedure 87
|
|
#define cell_symbol_procedure 87
|
|
// CONSTANT cell_symbol_record_type 88
|
|
#define cell_symbol_record_type 88
|
|
// CONSTANT cell_symbol_size 89
|
|
#define cell_symbol_size 89
|
|
// CONSTANT cell_symbol_stack 90
|
|
#define cell_symbol_stack 90
|
|
|
|
// CONSTANT cell_symbol_argv 91
|
|
#define cell_symbol_argv 91
|
|
// CONSTANT cell_symbol_mes_datadir 92
|
|
#define cell_symbol_mes_datadir 92
|
|
// CONSTANT cell_symbol_mes_version 93
|
|
#define cell_symbol_mes_version 93
|
|
|
|
// CONSTANT cell_symbol_internal_time_units_per_second 94
|
|
#define cell_symbol_internal_time_units_per_second 94
|
|
// CONSTANT cell_symbol_compiler 95
|
|
#define cell_symbol_compiler 95
|
|
// CONSTANT cell_symbol_arch 96
|
|
#define cell_symbol_arch 96
|
|
// CONSTANT cell_symbol_pmatch_car 97
|
|
#define cell_symbol_pmatch_car 97
|
|
// CONSTANT cell_symbol_pmatch_cdr 98
|
|
#define cell_symbol_pmatch_cdr 98
|
|
|
|
// CONSTANT cell_type_bytes 99
|
|
#define cell_type_bytes 99
|
|
// CONSTANT cell_type_char 100
|
|
#define cell_type_char 100
|
|
// CONSTANT cell_type_closure 101
|
|
#define cell_type_closure 101
|
|
// CONSTANT cell_type_continuation 102
|
|
#define cell_type_continuation 102
|
|
// CONSTANT cell_type_function 103
|
|
#define cell_type_function 103
|
|
// CONSTANT cell_type_keyword 104
|
|
#define cell_type_keyword 104
|
|
// CONSTANT cell_type_macro 105
|
|
#define cell_type_macro 105
|
|
// CONSTANT cell_type_number 106
|
|
#define cell_type_number 106
|
|
// CONSTANT cell_type_pair 107
|
|
#define cell_type_pair 107
|
|
// CONSTANT cell_type_port 108
|
|
#define cell_type_port 108
|
|
// CONSTANT cell_type_ref 109
|
|
#define cell_type_ref 109
|
|
// CONSTANT cell_type_special 110
|
|
#define cell_type_special 110
|
|
// CONSTANT cell_type_string 111
|
|
#define cell_type_string 111
|
|
// CONSTANT cell_type_struct 112
|
|
#define cell_type_struct 112
|
|
// CONSTANT cell_type_symbol 113
|
|
#define cell_type_symbol 113
|
|
// CONSTANT cell_type_values 114
|
|
#define cell_type_values 114
|
|
// CONSTANT cell_type_variable 115
|
|
#define cell_type_variable 115
|
|
// CONSTANT cell_type_vector 116
|
|
#define cell_type_vector 116
|
|
// CONSTANT cell_type_broken_heart 117
|
|
#define cell_type_broken_heart 117
|
|
|
|
// CONSTANT cell_test 118
|
|
#define cell_test 118
|
|
|
|
/* Cell types */
|
|
|
|
// CONSTANT TBYTES 0
|
|
#define TBYTES 0
|
|
// CONSTANT TCHAR 1
|
|
#define TCHAR 1
|
|
// CONSTANT TCLOSURE 2
|
|
#define TCLOSURE 2
|
|
// CONSTANT TCONTINUATION 3
|
|
#define TCONTINUATION 3
|
|
// CONSTANT TKEYWORD 4
|
|
#define TKEYWORD 4
|
|
// CONSTANT TMACRO 5
|
|
#define TMACRO 5
|
|
// CONSTANT TNUMBER 6
|
|
#define TNUMBER 6
|
|
// CONSTANT TPAIR 7
|
|
#define TPAIR 7
|
|
// CONSTANT TPORT 8
|
|
#define TPORT 8
|
|
// CONSTANT TREF 9
|
|
#define TREF 9
|
|
// CONSTANT TSPECIAL 10
|
|
#define TSPECIAL 10
|
|
// CONSTANT TSTRING 11
|
|
#define TSTRING 11
|
|
// CONSTANT TSTRUCT 12
|
|
#define TSTRUCT 12
|
|
// CONSTANT TSYMBOL 13
|
|
#define TSYMBOL 13
|
|
// CONSTANT TVALUES 14
|
|
#define TVALUES 14
|
|
// CONSTANT TVARIABLE 15
|
|
#define TVARIABLE 15
|
|
// CONSTANT TVECTOR 16
|
|
#define TVECTOR 16
|
|
// CONSTANT TBROKEN_HEART 17
|
|
#define TBROKEN_HEART 17
|
|
|
|
/* Struct types */
|
|
|
|
// CONSTANT STRUCT_TYPE 0
|
|
#define STRUCT_TYPE 0
|
|
// CONSTANT STRUCT_PRINTER 1
|
|
#define STRUCT_PRINTER 1
|
|
|
|
#define FRAME_SIZE 5
|
|
#define FRAME_PROCEDURE 4
|
|
|
|
#endif //__MES_CONSTANTS_H
|