gforth/context-struct.fs - diff

Return to context-struct.fs CVS log

Up to [gforth] / gforth

-version 1.1, 2012/07/15 12:03:07
+version 1.2, 2012/07/19 23:32:25
  Line 37  Variable do-field,
  default-field
- : +field ( n1 n2 "name" -- n3 ) \ X:structures plus-field
+ : context+field ( n1 n2 "name" -- n3 ) \ X:structures plus-field
      create-interpret/compile over , +
  interpretation>
      @ do-field, @ perform
  Line 46  compilation>
      @ do-field, @ cell+ @ compile, ,
  <compilation ;
- : extend-structure ( n "name" -- struct-sys n ) \ Gforth
+ : context:field  ['] context+field IS +field ;
-     \g extend an existing structure
-     >r 0 value lastxt >body r> ;
- : begin-structure ( "name" -- struct-sys 0 ) \ X:structures
-extend-structure ;
- : end-structure ( struct-sys +n -- ) \ X:structures
-     swap ! ;
- : cfield: ( u1 "name" -- u2 ) \ X:structures
-+field ;
- : field: ( u1 "name" -- u2 ) \ X:structures
-     aligned cell +field ;
- : 2field: ( u1 "name" -- u2 ) \ gforth
-     aligned 2 cells +field ;
- : ffield: ( u1 "name" -- u2 ) \ X:structures
-     faligned 1 floats +field ;
- : sffield: ( u1 "name" -- u2 ) \ X:structures
-     sfaligned 1 sfloats +field ;
- : dffield: ( u1 "name" -- u2 ) \ X:structures
-     dfaligned 1 dfloats +field ;