version 1.50, 1997/07/06 15:42:22
|
version 1.51, 1997/07/31 16:17:07
|
Line 840 Build: ;
|
Line 840 Build: ;
|
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 |