[0072] 从 s7.c 拆分基础函数和谓词函数#847

Merged

da-liii merged 53 commits into

mainfrom

da/0072/s7_split

May 31, 2026

Contributor

da-liii commented May 31, 2026

Summary

从 s7.c 中拆分基础函数和谓词函数到独立的模块文件中，降低单文件复杂度，提升编译速度和代码可维护性。

主要变更

新增 s7_scheme_base.c：迁移基础函数（算术运算、let 操作、列表操作、错误处理等）
新增 s7_scheme_predicate.c：迁移类型谓词和比较函数
新增 s7_scheme_write.c：迁移端口相关函数
新增 s7_scheme_inexact.c：迁移浮点相关函数
新增 s7_liii_vector.c：迁移 complex-vector 相关函数
新增 s7_dtoa.c：迁移 Grisu2 双精度浮点转字符串算法
新增 s7_ctables.c：迁移字符分类表
新增 s7_op_names.c：迁移操作码名称表
新增 s7_internal_helpers.h：内部辅助函数声明
更新 xmake.lua：添加新源文件到构建系统

涉及文件

src/s7.c（大量函数迁出，体积显著减小）
src/s7_scheme_base.c/h
src/s7_scheme_predicate.c/h
src/s7_scheme_write.c/h
src/s7_scheme_inexact.c/h
src/s7_liii_vector.c/h
src/s7_dtoa.c/h
src/s7_ctables.c/h
src/s7_op_names.c/h
src/s7_internal_helpers.h
tests/scheme/s7-test.scm
xmake.lua

🤖 Generated with Claude Code

da-liii and others added 30 commits

May 30, 2026 00:17


          [0072] 添加 s7i_apply_boolean_method 桥接函数

2f9eca3


          [0072] 迁移 g_not 到 s7_scheme_predicate.c

ab90d10


          [0072] 迁移 g_is_boolean 到 s7_scheme_predicate.c

035f7be


          [0072] 迁移 10 个类型谓词函数到 s7_scheme_predicate.c

e754769


          [0072] 迁移 g_is_symbol/input_port?/output_port?/macro? 到 s7_scheme_pre…

7d7e2c8

…dicate.c


          [0072] 迁移 7 个类型谓词到 s7_scheme_predicate.c (undefined?/eof?/byte?/float…

7ce35f1

…?/random-state?/continuation?/iterator?)


          [0072] 迁移 g_is_gensym/g_is_syntax/g_is_let 到 s7_scheme_predicate.c

1afabf7


          [0072] 迁移 g_arity/g_is_goto/g_is_constant/g_is_c_object/g_help 到 s7_s…

5a7d322

…cheme_predicate.c


          [0072] 迁移 g_is_c_pointer/g_is_openlet/g_is_funclet 到 s7_scheme_predic…

f9c8393

…ate.c


          [0072] 迁移 g_tree_is_cyclic/g_type_of/g_is_eq/g_is_eqv 到 s7_scheme_pre…

29540fe

…dicate.c


          [0072] 迁移 g_is_equal/g_is_equivalent 到 s7_scheme_predicate.c

0088ec0


          [0072] 迁移 g_rootlet/g_is_port_closed 到 s7_scheme_predicate.c

4170e92


          [0072] 迁移 g_numerator/g_denominator/g_iterator_sequence 到 s7_scheme_p…

8a85994

…redicate.c


          [0072] 迁移 g_c_pointer_info/g_c_pointer_type 到 s7_scheme_predicate.c

cde612e


          [0072] 迁移 g_c_object_type/g_c_object_let 到 s7_scheme_predicate.c

6fc6b5a


          [0072] 迁移 g_current_input_port/g_current_output_port/g_current_error_…

dd62d22

…port/g_open_output_string 到 s7_scheme_write.c


          [0072] 迁移 dtoa (Grisu2) 双精度浮点转字符串算法到 s7_dtoa.c

89d76e9


          [0072] 迁移 op_names[] 操作码名称表到 s7_op_names.c

0419d0a


          [0072] 迁移 init_ctables 字符分类表到 s7_ctables.c

4d860b9


          [0072] 迁移 13 个函数到 s7_scheme_predicate.c (c_pointer_weak/tree_leaves/c…

00d0070

…yclic_sequences/object_to_let/pair_line_number/reverse/port_line_number/tree_memq/tree_set_memq/format_nr/unlet_disabled/curlet)


          [0072] 迁移 10 个函数到 s7_scheme_predicate.c (memv/assq/assv/tree_set_memq…

d4d996b

…_syms/heap_analyze/show_op_stack/is_op_stack/outlet_unlet/heap_holder/heap_holders)


          [0072] 迁移 5 个函数到 s7_scheme_predicate.c (unlet_ref/sv_unlet_ref/list_0…

a3f8fb5

…/list_1/append_2)

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_leq_2/g_geq_2 到 s7_scheme_predicate.c，新增 leq_b_7pp/geq_b_…

83bfadb

…7pp bridge

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 14 个算术快捷函数到 s7_scheme_predicate.c (add/subtract/multiply/di…

cfadcaf

…vide 系列)

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 g_numerator/g_denominator 从 s7_scheme_predicate.c 迁移到 s7_sch…

fdd050e

…eme_base.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 g_reverse 从 s7_scheme_predicate.c 迁移到 s7_scheme_base.c

309e2c7

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 g_assq/g_assv/g_memv 从 s7_scheme_predicate.c 迁移到 s7_scheme_b…

f41cd7e

…ase.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 g_list_0/g_list_1/g_append_2/g_leq_2/g_geq_2 从 s7_scheme_pre…

3ced62d

…dicate.c 迁移到 s7_scheme_base.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 14 个算术快捷函数从 s7_scheme_predicate.c 迁移到 s7_scheme_base.c

bda7eab

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 将 g_unlet_ref/g_sv_unlet_ref 从 s7_scheme_predicate.c 迁移到 s7_sc…

4c1680f

…heme_base.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>

da-liii and others added 23 commits

May 30, 2026 18:41


          [0072] 将 g_rootlet/g_curlet/g_unlet_disabled/g_outlet_unlet 从 s7_sche…

b51fd98

…me_predicate.c 迁移到 s7_scheme_base.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_int_log2 到 s7_scheme_inexact.c

c46b3ed

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_is_defined_in_unlet/g_is_defined_in_rootlet 到 s7_scheme_p…

a1e53c5

…redicate.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_list_2/g_list_3/g_list_4 到 s7_scheme_base.c

c99a737

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_num_eq_2 到 s7_scheme_base.c

4d315bb

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_less_2 到 s7_scheme_base.c，新增 s7i_lt_p_pp bridge

05c41f5

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_num_eq_xi/g_num_eq_ix 到 s7_scheme_base.c，新增 s7i_num_eq_xx…

fccf283

… bridge

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_memq_2/g_memq_4 到 s7_scheme_base.c，新增 memq bridge

523d66e

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_add_4 到 s7_scheme_base.c

451e2b6

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_subtract_3 到 s7_scheme_base.c

63b1c6b

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_abort 到 s7_scheme_base.c

b5ba55a

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_cv_ref_2 到 s7_liii_vector.c，新增 s7i_complex_vector_ref_p_p…

c382bf4

…p bridge

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_fv_ref_2/g_iv_ref_2 到 s7_liii_vector.c

18e1aa5

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_cv_set_3 到 s7_liii_vector.c

ca5dda3

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_outlet 到 s7_scheme_base.c

4b21d07

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_quotient 到 s7_scheme_base.c

604d6c5

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_remainder/g_modulo 到 s7_scheme_base.c

0b6e254

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_curlet_ref 到 s7_scheme_base.c

6009d55

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 c_rationalize 到 s7_scheme_base.c

25493e8

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 safe_strlen/copy_string/local_strncmp/catstrs 等 C 字符串辅助函数到 …

59ea06b

…s7_scheme_base.c

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 nan_with_payload/nan_payload 到 s7_scheme_base.c

e119358

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 迁移 g_error 到 s7_scheme_base.c

ba6f176

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>


          [0072] 简化 s7_scheme_predicate.c 中的重复类型谓词模式，提取共享宏到 s7_internal_helpers.h

d1d9e6e

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>

da-liii merged commit 3c1f097 into main

4 checks passed

da-liii deleted the da/0072/s7_split branch

May 31, 2026 07:11

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet