32 lines
769 B
Plaintext
32 lines
769 B
Plaintext
|
import stdlib.sl
|
||
|
|
|
||
|
|
# Test cimport: extract struct definitions and extern functions from a C header.
|
||
|
|
cimport "cimport_structs.h"
|
||
|
|
|
||
|
|
word main
|
||
|
|
# Verify that cstruct Point was generated with correct layout
|
||
|
|
Point.size puti cr # 16 bytes (two i64 = 8+8)
|
||
|
|
|
||
|
|
# Allocate a Point, set fields, read them back
|
||
|
|
Point.size alloc dup >r
|
||
|
|
r@ 10 Point.x!
|
||
|
|
r@ 20 Point.y!
|
||
|
|
r@ Point.x@ puti cr # 10
|
||
|
|
r@ Point.y@ puti cr # 20
|
||
|
|
|
||
|
|
# Call C helper that takes a pointer (simple scalar ABI)
|
||
|
|
r@ point_sum_ptr puti cr # 30
|
||
|
|
r> Point.size free
|
||
|
|
|
||
|
|
# Verify Pair struct layout
|
||
|
|
Pair.size puti cr # 16
|
||
|
|
|
||
|
|
Pair.size alloc dup >r
|
||
|
|
r@ 100 Pair.a!
|
||
|
|
r@ 200 Pair.b!
|
||
|
|
r@ pair_sum_ptr puti cr # 300
|
||
|
|
r> Pair.size free
|
||
|
|
|
||
|
|
0
|
||
|
|
end
|