Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3549/src/kernel
Modified Files:
fkernel.f meta-compiler.f
Log Message:
arm: major change to number conversion routines (but not float); see numconv.f
Index: meta-compiler.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** meta-compiler.f 12 Mar 2005 09:09:58 -0000 1.2
--- meta-compiler.f 26 Apr 2005 19:56:50 -0000 1.3
***************
*** 753,757 ****
\ ======================================================================
\ Identify numbers (single numbers only)
!
: NUMBER? ( addr -- n f )
count OVER C@ [CHAR] - = \ leading minus sign?
--- 753,757 ----
\ ======================================================================
\ Identify numbers (single numbers only)
! ((
: NUMBER? ( addr -- n f )
count OVER C@ [CHAR] - = \ leading minus sign?
***************
*** 759,767 ****
0 0 2SWAP >NUMBER 0= NIP NIP ( -- u f )
R> IF SWAP NEGATE SWAP THEN ;
!
! : new-number ( ^str -- d n ) \ an extensible version of NUMBER
count temp$ place
! temp$ ?uppercase
! count super-number? nip ;
\ ======================================================================
--- 759,770 ----
0 0 2SWAP >NUMBER 0= NIP NIP ( -- u f )
R> IF SWAP NEGATE SWAP THEN ;
! ))
! : meta-number? ( ^str -- d n ) \ an extensible version of NUMBER
count temp$ place
! temp$ ['] number catch
! if false else
! double? abort" Doubles not supported in meta-compiler"
! float? abort" Floats not supported in metacompiler"
! drop true then ;
\ ======================================================================
***************
*** 782,786 ****
BEGIN TOKEN FIND \ no locals or class words
IF EXECUTE
! ELSE new-NUMBER
IF [TRANSITION] LITERAL
ELSE DROP T-IN @ >IN !
--- 785,789 ----
BEGIN TOKEN FIND \ no locals or class words
IF EXECUTE
! ELSE meta-number?
IF [TRANSITION] LITERAL
ELSE DROP T-IN @ >IN !
***************
*** 816,818 ****
- |
