[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.66 and 1.71

version 1.66, Thu Mar 18 14:45:54 2010 UTC version 1.71, Tue Feb 7 16:48:55 2012 UTC
Line 1 
Line 1 
 \ miscelleneous words  \ miscelleneous words
   
 \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009 Free Software Foundation, Inc.  \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 17 
Line 17 
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program. If not, see http://www.gnu.org/licenses/.  \ along with this program. If not, see http://www.gnu.org/licenses/.
   
   : save-mem-dict ( addr1 u -- addr2 u )
       here swap dup allot ( addr1 addr2 u )
       2dup 2>r move 2r> ;
   
   ' usable-dictionary-end @ dodefer: = [if]
 require glocals.fs  require glocals.fs
   [else]
       require glocals-1.60.fs
   [then]
   
   
 ' require alias needs ( ... "name" -- ... ) \ gforth  ' require alias needs ( ... "name" -- ... ) \ gforth
 \G An alias for @code{require}; exists on other systems (e.g., Win32Forth).  \G An alias for @code{require}; exists on other systems (e.g., Win32Forth).
Line 136 
Line 145 
   
 \ ]] ... [[  \ ]] ... [[
   
   : [[ ( -- ) \ gforth left-bracket-bracket
   \G switch from postpone state to compile state
       \ this is only a marker; it is never really interpreted
       compile-only-error ; immediate
   
   [ifdef] compiler1
 : compile-literal ( n -- )  : compile-literal ( n -- )
     postpone literal ;      postpone literal ;
   
Line 148 
Line 163 
 : compile-compile-2literal ( n1 n2 -- )  : compile-compile-2literal ( n1 n2 -- )
     compile-2literal postpone compile-2literal ;      compile-2literal postpone compile-2literal ;
   
 : [[ ( -- ) \ gforth left-bracket-bracket  
 \G switch from postpone state to compile state  
     \ this is only a marker; it is never really interpreted  
     compile-only-error ; immediate  
   
 [ifdef] compiler1  
 : postponer1 ( c-addr u -- ... xt )  : postponer1 ( c-addr u -- ... xt )
     2dup find-name      2dup find-name
     [ifdef] run-prelude run-prelude [then]      [ifdef] run-prelude run-prelude [then]
Line 181 
Line 190 
 : ]] ( -- ) \ gforth right-bracket-bracket  : ]] ( -- ) \ gforth right-bracket-bracket
     \G switch into postpone state      \G switch into postpone state
     ['] postponer1 is parser1 state on ; immediate restrict      ['] postponer1 is parser1 state on ; immediate restrict
   [then]
   
   [ifdef] compiler-r
   : postponer-r ( addr u -- ... xt )
       forth-recognizer do-recognizer
       over [ s" [[" find-name ] Literal =
       IF  2drop [comp'] ] drop ELSE  ['] >postpone  THEN ;
   
   : ]] ( -- ) \ gforth right-bracket-bracket
       \G switch into postpone state
       ['] postponer-r is parser1 state on ; immediate restrict
   [then]
   
 comp'  literal drop alias postpone-literal  comp'  literal drop alias postpone-literal
 comp' 2literal drop alias postpone-2literal  comp' 2literal drop alias postpone-2literal
Line 204 
Line 225 
 \G allocated permanently, you can use @code{]]2L} instead.  \G allocated permanently, you can use @code{]]2L} instead.
     ]] postpone-sliteral ]] [[ ; immediate      ]] postpone-sliteral ]] [[ ; immediate
   
 [then]  
   
 \ f.rdp  \ f.rdp
   
 : push-right ( c-addr u1 u2 cfill -- )  : push-right ( c-addr u1 u2 cfill -- )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.71
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help