gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/cross.fs between versions 1.43 and 1.45

version 1.43, 1997/02/08 22:58:09	version 1.45, 1997/02/12 00:25:34
Line 444 Defer skip? ' false IS skip?	Line 444 Defer skip? ' false IS skip?
ghost dup >magic @ <fwd> =	ghost dup >magic @ <fwd> =
IF >link @ 0<> ELSE drop false THEN ;	IF >link @ 0<> ELSE drop false THEN ;

	: doer? ( -- flag ) \ name
	ghost >magic @ <do:> = ;

: skip-defs ( -- )	: skip-defs ( -- )
BEGIN refill WHILE source -trailing nip 0= UNTIL THEN ;	BEGIN refill WHILE source -trailing nip 0= UNTIL THEN ;

Line 525 ghost (does>) ghost noop	Line 528 ghost (does>) ghost noop
ghost (.") ghost (S") ghost (ABORT") 2drop drop	ghost (.") ghost (S") ghost (ABORT") 2drop drop
ghost ' drop	ghost ' drop
ghost :docol ghost :doesjump ghost :dodoes 2drop drop	ghost :docol ghost :doesjump ghost :dodoes 2drop drop
	ghost over ghost = ghost drop 2drop drop

\ compile 10may93jaw	\ compile 10may93jaw

Line 760 Build: T 0 au, , H ;	Line 764 Build: T 0 au, , H ;
by User	by User
Builder AUser	Builder AUser

Build: ( n -- ) T , H ;	Build: ( n -- ) ;
by: :docon ( ghost -- n ) T @ H ;DO	by: :docon ( ghost -- n ) T @ H ;DO
	Builder (Constant)

	Build: ( n -- ) T , H ;
	by (Constant)
Builder Constant	Builder Constant

Build: ( n -- ) T A, H ;	Build: ( n -- ) T A, H ;
by Constant	by (Constant)
Builder AConstant	Builder AConstant

Build: ( d -- ) T , , H ;	Build: ( d -- ) T , , H ;
DO: ( ghost -- d ) T dup cell+ @ swap @ H ;DO	DO: ( ghost -- d ) T dup cell+ @ swap @ H ;DO
Builder 2Constant	Builder 2Constant

Build: T 0 , H ;	Build: T , H ;
by Constant	by (Constant)
Builder Value	Builder Value

Build: T 0 A, H ;	Build: T A, H ;
by Constant	by (Constant)
Builder AValue	Builder AValue

Build: ( -- ) compile noop ;	Build: ( -- ) compile noop ;
Line 796 Builder interpret/compile:	Line 804 Builder interpret/compile:
1- tuck + swap invert and ;	1- tuck + swap invert and ;
>TARGET	>TARGET

	Build: ;
	by: :dofield T @ H + ;DO
	Builder (Field)

Build: >r rot r@ nalign dup T , H ( align1 size offset )	Build: >r rot r@ nalign dup T , H ( align1 size offset )
+ swap r> nalign ;	+ swap r> nalign ;
by: :dofield T @ H + ;DO	by (Field)
Builder Field	Builder Field

: struct T 0 1 chars H ;	: struct T 0 1 chars H ;
Line 853 Cond: AGAIN restrict? sys? compile b	Line 865 Cond: AGAIN restrict? sys? compile b
Cond: UNTIL restrict? sys? compile ?branch <resolve ;Cond	Cond: UNTIL restrict? sys? compile ?branch <resolve ;Cond
Cond: REPEAT restrict? over 0= ?struc compile AGAIN compile THEN ;Cond	Cond: REPEAT restrict? over 0= ?struc compile AGAIN compile THEN ;Cond

	Cond: CASE restrict? 0 ;Cond
	Cond: OF restrict? 1+ >r compile over compile = compile IF compile drop
	r> ;Cond
	Cond: ENDOF restrict? >r compile ELSE r> ;Cond
	Cond: ENDCASE restrict? compile drop 0 ?DO compile THEN LOOP ;Cond

\ Structural Conditionals 12dec92py	\ Structural Conditionals 12dec92py

Cond: DO restrict? compile (do) T here H ;Cond	Cond: DO restrict? compile (do) T here H ;Cond
Line 920 also minimal	Line 938 also minimal
\ define new [IFDEF] and [IFUNDEF] 20may93jaw	\ define new [IFDEF] and [IFUNDEF] 20may93jaw

: defined? defined? ;	: defined? defined? ;
	: needed? needed? ;
	: doer? doer? ;

: [IFDEF] defined? postpone [IF] ;	: [IFDEF] defined? postpone [IF] ;
: [IFUNDEF] defined? 0= postpone [IF] ;	: [IFUNDEF] defined? 0= postpone [IF] ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.43
changed lines
	Added in v.1.45