[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.10,1.11 meta-compiler.f,1.2,1.3

[Alex M. <ale...@us...>]

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 ****
  
  
-