Annotation of gforth/other.fs, revision 1.11

1.1       anton       1: \ OTHER.FS     Ansforth extentions for CROSS           9may93jaw
                      2: 
1.11    ! anton       3: \ Copyright (C) 1995,1998,2000,2003,2007 Free Software Foundation, Inc.
1.3       anton       4: 
                      5: \ This file is part of Gforth.
                      6: 
                      7: \ Gforth is free software; you can redistribute it and/or
                      8: \ modify it under the terms of the GNU General Public License
1.10      anton       9: \ as published by the Free Software Foundation, either version 3
1.3       anton      10: \ of the License, or (at your option) any later version.
                     11: 
                     12: \ This program is distributed in the hope that it will be useful,
                     13: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
                     14: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     15: \ GNU General Public License for more details.
                     16: 
                     17: \ You should have received a copy of the GNU General Public License
1.10      anton      18: \ along with this program. If not, see http://www.gnu.org/licenses/.
1.3       anton      19: 
                     20: 
1.1       anton      21: \ make ansforth compatible                              9may93jaw
                     22: \ the cross compiler should run
                     23: \ with any ansforth environment
                     24: 
1.6       anton      25: : ?EXIT    POSTPONE if POSTPONE exit POSTPONE then ; immediate
1.1       anton      26: : bounds   over + swap ;
1.4       anton      27: : name bl word ;
1.1       anton      28: : on true swap ! ;
                     29: : off false swap ! ;
                     30: : place ( adr len adr )
                     31:         2dup c! char+ swap move ;
                     32: : +place ( adr len adr )
                     33:         2dup c@ + over c!
                     34:         dup c@ char+ + swap move ;
                     35: : -rot  rot rot ;
                     36: 
                     37: include toolsext.fs
                     38: 

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