gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.19, 1997/01/04 16:32:28	version 1.22, 1997/03/19 18:27:12
Line 30 decimal	Line 30 decimal

\ VALUE 2>R 2R> 2R@ 17may93jaw	\ VALUE 2>R 2R> 2R@ 17may93jaw

: value ( w "name" -- ) \ core-ext
(constant) , ;
\ !! 2value	\ !! 2value

: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal	: 2Literal ( compilation w1 w2 -- ; run-time -- w1 w2 ) \ double two-literal
Line 123 decimal	Line 121 decimal

\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw	\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw

: source-id ( -- 0 \| -1 \| fileid ) \ core-ext source-i-d	: source-id ( -- 0 \| -1 \| fileid ) \ core-ext,file source-i-d
loadfile @ dup 0= IF drop sourceline# 0 min THEN ;	loadfile @ dup 0= IF drop sourceline# 0 min THEN ;

: save-input ( -- x1 .. xn n ) \ core-ext	: save-input ( -- x1 .. xn n ) \ core-ext
Line 160 decimal	Line 158 decimal
>in !	>in !
false ;	false ;

\ : save-input ( -- x1 .. xn n ) \ core-ext
\ >in @
\ loadfile @ ?dup
\ IF dup file-position throw sourceline# >tib @ 6
\ #tib @ >tib +!
\ ELSE sourceline# blk @ linestart @ >tib @ 5 THEN
\ ;

\ : restore-input ( x1 .. xn n -- flag ) \ core-ext
\ swap >tib !
\ 6 = IF loadline ! rot dup loadfile !
\ reposition-file IF drop true EXIT THEN
\ ELSE linestart ! blk !
\ dup sourceline# <> IF 2drop true EXIT THEN
\ loadline !
\ THEN
\ >in ! false ;



\ This things we don't need, but for being complete... jaw	\ This things we don't need, but for being complete... jaw

\ EXPECT SPAN 17may93jaw	\ EXPECT SPAN 17may93jaw