Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6830/apps/Chess
Modified Files:
TOOLSET.F
Log Message:
- Renamed ?LOADING into LOADING?
- Replaced DEFER@ with ACTION-OF
- and some other minor changes
Index: TOOLSET.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** TOOLSET.F 13 Dec 2005 21:45:08 -0000 1.7
--- TOOLSET.F 3 Oct 2006 07:44:22 -0000 1.8
***************
*** 102,107 ****
MB_OK MB_ICONSTOP or
MB_TASKMODAL or
! z" Error:"
! message$ 1+
NULL call MessageBox drop
;
--- 102,107 ----
MB_OK MB_ICONSTOP or
MB_TASKMODAL or
! z" Error:"
! message$ 1+
NULL call MessageBox drop
;
***************
*** 131,135 ****
ELSE ." Error # " .
THEN
! ?LOADING @
IF BASE @ >R DECIMAL
CR ." File: "
--- 131,135 ----
ELSE ." Error # " .
THEN
! LOADING?
IF BASE @ >R DECIMAL
CR ." File: "
***************
*** 516,520 ****
time-buf 2 + w! \ month
time-buf 6 + w! \ day
! hld-max hld 0 time-buf
r> LOCALE_SYSTEM_DEFAULT
call GetDateFormat dup 0= abort" ldate failed" hld-count
--- 516,520 ----
time-buf 2 + w! \ month
time-buf 6 + w! \ day
! hld-max hld 0 time-buf
r> LOCALE_SYSTEM_DEFAULT
call GetDateFormat dup 0= abort" ldate failed" hld-count
***************
*** 526,530 ****
: ltime ( time-buf - adr count ) \ time-buf must be filled
! hld-max hld 0 time-buf
TIME_FORCE24HOURFORMAT LOCALE_SYSTEM_DEFAULT
call GetTimeFormat dup 0= abort" ltime failed" hld-count
--- 526,530 ----
: ltime ( time-buf - adr count ) \ time-buf must be filled
! hld-max hld 0 time-buf
TIME_FORCE24HOURFORMAT LOCALE_SYSTEM_DEFAULT
call GetTimeFormat dup 0= abort" ltime failed" hld-count
***************
*** 868,872 ****
: SetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - )
! pad +place pad dup +null 1+ swap
call SetEnvironmentVariable drop
;
--- 868,872 ----
: SetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - )
! pad +place pad dup +null 1+ swap
call SetEnvironmentVariable drop
;
***************
*** 899,903 ****
cr ' .ldate is .date
cr today .ldate space .ltime
! .id-user cr
\ April 22nd, 2002 - 22:04 renamed box to msgbox
--- 899,903 ----
cr ' .ldate is .date
cr today .ldate space .ltime
! .id-user cr
\ April 22nd, 2002 - 22:04 renamed box to msgbox
***************
*** 909,913 ****
title$ place title$ +NULL
r>
! title$ 1+ message$ 1+
NULL call MessageBox
;
--- 909,913 ----
title$ place title$ +NULL
r>
! title$ 1+ message$ 1+
NULL call MessageBox
;
***************
*** 1030,1034 ****
: ndebug ( - ) \ shows the normal stack while debugging
! ['] .s-base is debug-.s ;
previous previous
--- 1030,1034 ----
: ndebug ( - ) \ shows the normal stack while debugging
! ['] .s-base is debug-.s ;
previous previous
***************
*** 1186,1190 ****
NULL
0
! key$ 1+
r> \ root-key
Call RegCreateKeyEx
--- 1186,1190 ----
NULL
0
! key$ 1+
r> \ root-key
Call RegCreateKeyEx
***************
*** 1207,1215 ****
then >r drop >r
MAXCOUNTED reglen ! \ init max length of string
! reglen
! ReturnedKey$ 1+
! regtype
0
! r>
r@
Call RegQueryValueEx
--- 1207,1215 ----
then >r drop >r
MAXCOUNTED reglen ! \ init max length of string
! reglen
! ReturnedKey$ 1+
! regtype
0
! r>
r@
Call RegQueryValueEx
***************
*** 1522,1524 ****
\s
- |
