Skip to content

Commit 98c97d7

Browse files
committed
change: use save/loadModule
1 parent 7ad74a1 commit 98c97d7

File tree

3 files changed

+17
-9
lines changed

3 files changed

+17
-9
lines changed

Makefile.polyml

+8-7
Original file line numberDiff line numberDiff line change
@@ -7,28 +7,29 @@ SRC := $(wildcard src/main/*)
77
TEST_SRC := $(wildcard src/test/*)
88
BASIS_TEST_SRC := $(wildcard ./basis/test/*)
99

10-
TARGET := libsmlunit.poly
1110
TEST := smlunit-test-poly smlunit-basis-test-poly
11+
TARGET := libsmlunit.poly
1212

1313
all: $(TARGET)
1414

1515

1616
$(TARGET): $(SRC)
1717
echo "" | $(POLYML) $(POLYMLFLAGS) \
1818
--eval 'PolyML.make "src/main"' \
19-
--eval 'PolyML.SaveState.saveState "$@"'
19+
--use export.sml \
20+
--eval 'PolyML.SaveState.saveModule ("$(TARGET)", SMLUnit)'
2021

2122

2223
smlunit-test-poly.o: $(TARGET) $(TEST_SRC)
2324
echo "" | $(POLYML) $(POLYMLFLAGS) \
24-
--eval 'PolyML.SaveState.loadState "$<"' \
25+
--eval 'PolyML.loadModule "./$(TARGET)"' \
2526
--eval 'PolyML.make "src/test"' \
2627
--eval 'PolyML.export ("$(@:.o=)", TestMain.test)'
2728

2829

2930
smlunit-basis-test-poly.o: $(TARGET) $(BASIS_TEST_SRC)
3031
echo "" | $(POLYML) $(POLYMLFLAGS) \
31-
--eval 'PolyML.SaveState.loadState "$<"' \
32+
--eval 'PolyML.loadModule "./$(TARGET)"' \
3233
--eval 'PolyML.make "basis/test"' \
3334
--eval 'PolyML.export ("$(@:.o=)", TestMain.test)'
3435

@@ -45,7 +46,7 @@ test: $(TEST)
4546

4647
.PHONY: clean
4748
clean:
48-
$(RM) $(TARGET)
49-
$(RM) $(TEST)
50-
$(RM) $(TEST:=.o)
49+
-$(RM) $(TARGET)
50+
-$(RM) $(TEST)
51+
-$(RM) $(TEST:=.o)
5152

export.sml

+7
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
val SMLUnit =
2+
{
3+
sigs = ["SMLUNIT", "ASSERT", "TEST", "TESTRUNNER"],
4+
structs = ["SMLUnit"],
5+
functors = [],
6+
onStartup = NONE
7+
}

readme.md

+2-2
Original file line numberDiff line numberDiff line change
@@ -101,11 +101,11 @@ foo_test.sml
101101

102102
### PolyML
103103

104-
`loadState "libsmlunit.poly"` for other project.
104+
`PolyML.loadModule "/path/to/libsmlunit.poly"` for other project.
105105

106106
```sh
107107
$ poly
108-
> PolyML.SaveState.loadState "/path/to/libsmlunit.poly";
108+
> PolyML.loadModule "/path/to/libsmlunit.poly";
109109
val it = (): unit
110110
>
111111
```

0 commit comments

Comments
 (0)