32 lines
669 B
Plaintext
32 lines
669 B
Plaintext
(use "errno.witx")
|
|
(use "excuse.witx")
|
|
|
|
;; Every worker needs a union. Organize your workplace!
|
|
;; Fight for the full product of your labor!
|
|
|
|
(typename $reason
|
|
(union $excuse
|
|
(field $dog_ate f32)
|
|
(field $traffic s32)
|
|
(empty $sleeping)))
|
|
|
|
(typename $reason_mut
|
|
(union $excuse
|
|
(field $dog_ate (@witx pointer f32))
|
|
(field $traffic (@witx pointer s32))
|
|
(empty $sleeping)))
|
|
|
|
(module $union_example
|
|
(@interface func (export "get_tag")
|
|
(param $r $reason)
|
|
(result $error $errno)
|
|
(result $t $excuse)
|
|
)
|
|
|
|
(@interface func (export "reason_mult")
|
|
(param $r $reason_mut)
|
|
(param $multiply_by u32)
|
|
(result $error $errno)
|
|
)
|
|
)
|