alex-eg
1f445f0f9b
Two things out of one mechanism. `_' as a type means "work it out from
the initializer", so (var n _ (strlen s)) stops needing size-t spelled
out; `type-of' hands a macro the type of an expression, so a macro can
dispatch on what it was handed rather than on what was declared. Both
read the same answers from two sides.
Algorithm W's core, intra-procedural, with the extensions C forces:
- an unknown type, since (include stdio.h) brings in names we never
parsed. Unification is consistency rather than equality, so
anything touching an unparsed declaration stops constraining
instead of rejecting a program that compiled yesterday;
- the usual arithmetic conversions, since `+' is not a function of
one type;
- checking mode for initializers, since #(0 0) has no type of its own
and takes one from its context. #(T : ...) is the way out of that.
What it wanted on the way:
- what type a *name* has, which neither the typedef nor the tag
database recorded. One table serves functions and variables, since
a function type already has a surface spelling;
- a scope chain, so a (var c int 9) inside a do ends with the block;
- form-type, keyed by cons cell, so one form has one type;
- macros expanded during the walk rather than before it, so type-of
is answered in the scope the macro was written in.
Closures take the same machinery: a receiver whose type comes from a
call, captures written (name expr) and typed from the expression, and
conversion from a bare function wherever a closure is expected.
type-match grew `_' on the pattern side, since (closure ((int)) int)
and (closure ((float)) int) were separate clauses for one case.
54 lines
2.3 KiB
Makefile
54 lines
2.3 KiB
Makefile
CHICKEN_C = csc
|
|
|
|
CSC_FLAGS += -K prefix -static
|
|
MODULE_FLAGS = -emit-all-import-libraries -module-registration -c
|
|
|
|
MODULES = utils types infer sex-macros reader sex-modules semen sex-fmt-c fmt-c-writer sexc
|
|
SEX_OBJ = $(MODULES:%=%.o)
|
|
|
|
TESTS = basic semen reader fmt-c-writer utils line-directives codegen args types infer
|
|
TEST_SRCS = $(TESTS:%=%.scm)
|
|
|
|
sex-tests: run.scm $(TEST_SRCS) $(SEX_OBJ)
|
|
$(CHICKEN_C) $(CSC_FLAGS) run.scm -o sex-tests -link sexc
|
|
|
|
#------------------------------------------------------------------
|
|
|
|
utils.o: utils.module.scm ../utils.scm
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) utils.module.scm -o utils.o -unit utils
|
|
|
|
types.o: types.module.scm ../types.scm
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) types.module.scm -o types.o -unit types
|
|
|
|
infer.o: infer.module.scm ../infer.scm types.o utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) infer.module.scm -o infer.o -unit infer -link types,utils
|
|
|
|
sex-macros.o: sex-macros.module.scm ../sex-macros.scm
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) sex-macros.module.scm -o sex-macros.o -unit sex-macros
|
|
|
|
reader.o: reader.module.scm ../reader.scm utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) reader.module.scm -o reader.o -unit reader -link utils
|
|
|
|
sex-modules.o: sex-modules.module.scm ../sex-modules.scm reader.o utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) sex-modules.module.scm -o sex-modules.o -unit sex-modules -link reader,utils
|
|
|
|
semen.o: semen.module.scm ../semen.scm infer.o sex-macros.o sex-modules.o types.o utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) semen.module.scm -o semen.o -unit semen -link sex-macros,sex-modules,infer,types,utils
|
|
|
|
sex-fmt-c.o: ../sex-fmt-c.scm
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) ../sex-fmt-c.scm -o sex-fmt-c.o -unit sex-fmt-c
|
|
|
|
fmt-c-writer.o: fmt-c-writer.module.scm ../fmt-c-writer.scm sex-fmt-c.o utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) fmt-c-writer.module.scm -o fmt-c-writer.o -unit fmt-c-writer -link sex-fmt-c,utils
|
|
|
|
sexc.o: sexc.module.scm infer.o types.o ../sexc.scm fmt-c-writer.o sex-macros.o sex-modules.o reader.o semen.o utils.o
|
|
$(CHICKEN_C) $(CSC_FLAGS) $(MODULE_FLAGS) sexc.module.scm -o sexc.o -unit sexc -link fmt-c-writer,sex-macros,sex-modules,reader,semen,infer,types,utils
|
|
|
|
clean:
|
|
rm -f $(SEX_OBJ)
|
|
rm -f *.import.scm
|
|
rm -f *.link
|
|
rm -f sex-tests
|
|
|
|
.PHONY: clean
|