Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7994
Modified Files:
Class.f Utils.f dthread.f
Log Message:
Jos: Enabled .classes and moved voc>vcfa and name>
Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Utils.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Utils.f 11 May 2007 10:45:16 -0000 1.4
--- Utils.f 20 May 2007 15:09:15 -0000 1.5
***************
*** 22,26 ****
260 constant max-handle
! ' name>xt alias name>
Library Shell32.dll
--- 22,26 ----
260 constant max-handle
!
Library Shell32.dll
Index: dthread.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dthread.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dthread.f 19 May 2007 10:12:28 -0000 1.1
--- dthread.f 20 May 2007 15:09:15 -0000 1.2
***************
*** 4,8 ****
cr .( Loading Hash Thread Display...)
- synonym voc>vcfa voc>vxt@
synonym l>name link>name
' count alias nfa-count
--- 4,7 ----
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Class.f 13 May 2007 22:13:26 -0000 1.7
--- Class.f 20 May 2007 15:09:13 -0000 1.8
***************
*** 1603,1608 ****
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
IN-SYSTEM
! ((
: .CLASSES ( -- ) \ W32F Class
\ *G Display all classes in the system.
--- 1603,1611 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ synonym voc>vcfa voc>vxt@
+ synonym name> name>xt
+
IN-SYSTEM
!
: .CLASSES ( -- ) \ W32F Class
\ *G Display all classes in the system.
***************
*** 1612,1617 ****
BEGIN dup vlink>voc
voc>vcfa dup ?isClass
! IF dup >name name>
! ['] [UNKNOWN] = \ if not found
IF drop \ then discard the class
ELSE .name
--- 1615,1620 ----
BEGIN dup vlink>voc
voc>vcfa dup ?isClass
! IF dup >name name> 0=
! \ ['] [UNKNOWN] = \ if not found
IF drop \ then discard the class
ELSE .name
***************
*** 1622,1626 ****
@ dup 0=
UNTIL drop ;
! ))
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ return xt of method
--- 1625,1629 ----
@ dup 0=
UNTIL drop ;
!
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ return xt of method
|
