| by: :dofield T @ H + ;DO |
by: :dofield T @ H + ;DO |
| Builder (Field) |
Builder (Field) |
| |
|
| Build: >r rot r@ nalign dup T , H ( align1 size offset ) |
Build: ( align1 offset1 align size "name" -- align2 offset2 ) |
| + swap r> nalign ; |
rot dup T , H ( align1 align size offset1 ) |
| |
+ >r nalign r> ; |
| by (Field) |
by (Field) |
| Builder Field |
Builder Field |
| |
|
| : struct T 0 1 chars H ; |
: struct T 1 chars 0 H ; |
| : end-struct T 2Constant H ; |
: end-struct T 2Constant H ; |
| |
|
| : cells: ( n -- size align ) |
: cell% ( -- align size ) |
| T cells 1 cells H ; |
T 1 cells H dup ; |
| |
|
| \ ' 2Constant Alias2 end-struct |
\ ' 2Constant Alias2 end-struct |
| \ 0 1 T Chars H 2Constant struct |
\ 0 1 T Chars H 2Constant struct |
