version 1.14, 2007/12/31 18:40:24
|
version 1.16, 2008/07/15 16:11:49
|
Line 1
|
Line 1
|
\ quote: S\" and .\" words |
\ quote: S\" and .\" words |
|
|
\ Copyright (C) 2002,2003,2005,2007 Free Software Foundation, Inc. |
\ Copyright (C) 2002,2003,2005,2007,2008 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/. |
|
|
|
[ifundef] umin |
|
: umin ( u1 u2 -- u ) |
|
2dup u> |
|
if |
|
swap |
|
then |
|
drop ; |
|
[then] |
|
|
: char/ ; immediate |
: char/ ; immediate |
|
|
: parse-num-x ( c-addr1 umax -- c-addr2 c ) |
: parse-num-x ( c-addr1 umax -- c-addr2 c ) |