[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

Diff for /gforth/kernel/tools.fs between version 1.24 and 1.28

version 1.24, Sun Dec 31 13:39:19 2006 UTC version 1.28, Wed Aug 10 12:16:09 2011 UTC
Line 1 
Line 1 
 \ TOOLS.FS     Toolkit extentions                      2may93jaw  \ TOOLS.FS     Toolkit extentions                      2may93jaw
   
 \ Copyright (C) 1995,1998,1999,2001,2003,2006 Free Software Foundation, Inc.  \ Copyright (C) 1995,1998,1999,2001,2003,2006,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 
Line 15 
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ 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, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 \ May be cross-compiled  \ May be cross-compiled
   
Line 28 
Line 27 
   
 \ .S            CORE / CORE EXT                         9may93jaw  \ .S            CORE / CORE EXT                         9may93jaw
   
 variable maxdepth-.s \ gforth maxdepth-dot-s  
   defer .s.
   ' . is .s.
   
   variable maxdepth-.s ( -- addr ) \ gforth maxdepth-dot-s
 \G A variable containing 9 by default.  @code{.s} and @code{f.s}  \G A variable containing 9 by default.  @code{.s} and @code{f.s}
 \G display at most that many stack items.  \G display at most that many stack items.
 9 maxdepth-.s !  9 maxdepth-.s !
Line 41 
Line 44 
     depth 0 max maxdepth-.s @ min      depth 0 max maxdepth-.s @ min
     dup 0      dup 0
     ?do      ?do
         dup i - pick .          dup i - pick .s.
     loop      loop
     drop ;      drop ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help