Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: George H. <geo...@us...> - 2011-07-11 18:50:42
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv28169/kernel
Modified Files:
fkernel.f
Log Message:
Fixed .elapsed and tidy up
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** fkernel.f 6 Jul 2011 12:04:34 -0000 1.73
--- fkernel.f 11 Jul 2011 18:50:40 -0000 1.74
***************
*** 2633,2643 ****
\ -------------------- Parse Input Stream --------------------
! \ WORD doesn't met the ANS-Standard in Win32Forth.
! \ The standard reqires that a space, not included in the length, must follow
! \ the string. In Win32Forth a NULL follow's the string.
! CODE WORD ( char "<chars>ccc<char>" -- c-addr ) \ parse the input stream
! \ for a string delimited by char. Skip all leading char. Give a
! \ counted string (the string is ended with a null, not included
! \ in count). Use only inside colon definition.
push esi
mov al, bl \ al = delimiter
--- 2633,2641 ----
\ -------------------- Parse Input Stream --------------------
! CODE WORD ( char "<chars>ccc<char>" -- c-addr )
! \ parse the input stream for a string delimited by char. Skip all leading char. Give a
! \ counted string (the string is ended with a blank, not included in count).
! \ If char is a blank treat all control characters as delimiter.
! \ Use only inside colon definition.
push esi
mov al, bl \ al = delimiter
***************
*** 2696,2701 ****
add edi, # 1
rep movsb \ move rest of word
! xor eax, eax \ clear EAX
! stosb \ append a NULL to pocket
xor edi, edi \ edi is zero
pop esi
--- 2694,2699 ----
add edi, # 1
rep movsb \ move rest of word
! mov eax, # 32
! stosb \ append a BLANK to pocket
xor edi, edi \ edi is zero
pop esi
***************
*** 3327,3333 ****
\ in-application
! : CHAR ( <c> -- char ) \ parse char from input stream and put its ascii
! \ code on stack. If <c> is longer than a char, takes its first char.
! BL WORD 1+ C@ ;
: ' ( <name> -- cfa ) \ get cfa of parsed word
--- 3325,3333 ----
\ in-application
! : CHAR ( "c" -- char )
! \ parse char from input stream and put its ascii code on stack.
! \ If <c> is longer than a char, takes its first char.
! \ If parse area is empty return 0.
! BL WORD COUNT 0<> SWAP C@ AND ;
: ' ( <name> -- cfa ) \ get cfa of parsed word
|
|
From: George H. <geo...@us...> - 2011-07-06 12:04:37
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv24001/src/lib
Modified Files:
FCOM.F Listview.f
Log Message:
Added I' J' and K' plus general tidy up
Index: Listview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Listview.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Listview.f 29 Jun 2008 05:12:40 -0000 1.12
--- Listview.f 6 Jul 2011 12:04:34 -0000 1.13
***************
*** 13,16 ****
--- 13,18 ----
( Point )
+ warning @ warning off checkstack
+
:Class Point <Super Object
***************
*** 28,31 ****
--- 30,35 ----
;Class
+ warning !
+
( -------------------------------------------------------------------)
( NMHDR )
Index: FCOM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FCOM.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FCOM.F 28 Sep 2006 10:16:48 -0000 1.6
--- FCOM.F 6 Jul 2011 12:04:34 -0000 1.7
***************
*** 251,258 ****
--- 251,262 ----
external
+ warning @ warning off checkstack
+
: Field: ( offset |name -- ) \ makes an offset
here openstruct cell+ @ , openstruct cell+ ! , 0 , ['] field-xt ,
here parse-word dup 1+ allot rot place ;
+ warning !
+
: Struct: ( offset structtype |name -- )
here openstruct cell+ @ , openstruct cell+ ! swap , , ['] struct-xt ,
|
|
From: George H. <geo...@us...> - 2011-07-06 12:04:36
|
Update of /cvsroot/win32forth/win32forth In directory vz-cvs-4.sog:/tmp/cvs-serv24001 Modified Files: setup.exe Log Message: Added I' J' and K' plus general tidy up Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 Binary files /tmp/cvswQlsIa and /tmp/cvs0ozPda differ |
|
From: George H. <geo...@us...> - 2011-06-25 15:45:26
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory vz-cvs-4.sog:/tmp/cvs-serv16092
Modified Files:
Ed_Remote.F WinEd.f
Log Message:
WinEd nows opens files from explorer in the running instance
Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** WinEd.f 19 Apr 2009 07:42:29 -0000 1.24
--- WinEd.f 25 Jun 2011 15:45:24 -0000 1.25
***************
*** 17,20 ****
--- 17,22 ----
\ 1 value (WinEdDbg) \ Enable to debug
+ CreateTurnkey [if] >WinEd [then]
+
s" apps\WinEd" "fpath+
s" apps\WinEd\res" "fpath+
***************
*** 64,67 ****
--- 66,73 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ : strip-cmdline ( addr cnt -- addr2 cnt2 )
+ [CHAR] " skip [CHAR] ' skip BL skip
+ [CHAR] " -TRAILCHARS [CHAR] ' -TRAILCHARS BL -TRAILCHARS ;
+
: Edit-init ( -- xxx )
['] view-before-bye is before-bye \ called by WM_CLOSE
***************
*** 95,98 ****
--- 101,114 ----
: WinEd ( -- )
+ w32fsharep 0=
+ if w32fshareName 1024 open-share ?dup
+ if to w32fshareh
+ to w32fsharep
+ then
+ CmdLine strip-cmdline
+ pad place 0 pad $edit
+ CloseSharedMemory
+ bye
+ then
Edit-init
load-defaults
***************
*** 137,141 ****
w32fWined To NewAppID \ handle inter-process messaging and launching
! true to RunUnique
ConsoleHiddenBoot
' wined ' SAVE catch WinEd.exe checkstack \ save WinEd.exe
--- 153,157 ----
w32fWined To NewAppID \ handle inter-process messaging and launching
! false to RunUnique
ConsoleHiddenBoot
' wined ' SAVE catch WinEd.exe checkstack \ save WinEd.exe
Index: Ed_Remote.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Remote.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Ed_Remote.F 3 Aug 2008 10:56:42 -0000 1.7
--- Ed_Remote.F 25 Jun 2011 15:45:24 -0000 1.8
***************
*** 82,85 ****
--- 82,92 ----
ENDCASE
ENDOF
+ w32fWinEd OF
+ CASE
+ ED_OPEN_EDIT OF drop 1 remote-open -1 ENDOF
+ ED_OPEN_BROWSE OF drop 2 remote-open -1 ENDOF
+ 2drop 0 swap
+ ENDCASE
+ ENDOF
3drop 0 swap
ENDCASE ; is HandleForthMsg
|
|
From: George H. <geo...@us...> - 2011-06-24 18:25:44
|
Update of /cvsroot/win32forth/win32forth In directory vz-cvs-4.sog:/tmp/cvs-serv28285 Modified Files: setup.exe Log Message: Removed .version from setup since it's already in the kernel Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 Binary files /tmp/cvsUf4puE and /tmp/cvsssfCjn differ |
|
From: George H. <geo...@us...> - 2011-06-24 17:48:04
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv23985/Help/hdb
Modified Files:
Tag: V614XX
HelpWrd.hdb
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -C2 -d -r1.6.2.1 -r1.6.2.2
Binary files /tmp/cvs32MepT and /tmp/cvsfOjhSC differ
|
|
From: George H. <geo...@us...> - 2011-06-24 17:48:03
|
Update of /cvsroot/win32forth/win32forth
In directory vz-cvs-4.sog:/tmp/cvs-serv23985
Modified Files:
Tag: V614XX
fkernel.exe
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v
retrieving revision 1.58.2.2
retrieving revision 1.58.2.3
diff -C2 -d -r1.58.2.2 -r1.58.2.3
Binary files /tmp/cvsH6PtsZ and /tmp/cvsoBBPZI differ
|
|
From: George H. <geo...@us...> - 2011-06-24 17:42:31
|
Update of /cvsroot/win32forth/win32forth
In directory vz-cvs-4.sog:/tmp/cvs-serv23570
Modified Files:
Tag: V614XX
setup.exe
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: setup.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/setup.exe,v
retrieving revision 1.38.2.1
retrieving revision 1.38.2.2
diff -C2 -d -r1.38.2.1 -r1.38.2.2
Binary files /tmp/cvs4vbMTF and /tmp/cvsaD2bC9 differ
|
|
From: George H. <geo...@us...> - 2011-06-24 17:42:30
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv23570/Help/hdb
Modified Files:
Tag: V614XX
Help.cfg
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -d -r1.3 -r1.3.2.1
*** Help.cfg 8 Aug 2009 19:02:55 -0000 1.3
--- Help.cfg 24 Jun 2011 17:42:28 -0000 1.3.2.1
***************
*** 3,7 ****
[WindowW] 1019
[WindowH] 708
! [SplitterV] 206
[SplitterH] 112
\ No newline at end of file
--- 3,7 ----
[WindowW] 1019
[WindowH] 708
! [SplitterV] 221
[SplitterH] 112
\ No newline at end of file
|
|
From: George H. <geo...@us...> - 2011-06-24 17:36:01
|
Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory vz-cvs-4.sog:/tmp/cvs-serv22217
Modified Files:
Tag: V614XX
Setup.f
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.25.2.1
retrieving revision 1.25.2.2
diff -C2 -d -r1.25.2.1 -r1.25.2.2
*** Setup.f 31 Aug 2010 19:51:31 -0000 1.25.2.1
--- Setup.f 24 Jun 2011 17:35:58 -0000 1.25.2.2
***************
*** 84,93 ****
SystemDirectory$ c! ; \ make counted string
! : .version ( -- )
! base @ decimal
! ." Version: "
! version# ((version)) type
! ." Build: " build# .
! base ! ;
: setupinit
\in-system-ok 3 Show-Window
--- 84,96 ----
SystemDirectory$ c! ; \ make counted string
! \ Already in kernel
!
! \ : .version ( -- )
! \ base @ decimal
! \ ." Version: "
! \ version# ((version)) type
! \ ." Build: " build# .
! \ base ! ;
!
: setupinit
\in-system-ok 3 Show-Window
|
|
From: George H. <geo...@us...> - 2011-06-24 17:34:58
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv22164
Modified Files:
Tag: V614XX
Primutil.f
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.48.2.1
retrieving revision 1.48.2.2
diff -C2 -d -r1.48.2.1 -r1.48.2.2
*** Primutil.f 31 Mar 2011 11:34:48 -0000 1.48.2.1
--- Primutil.f 24 Jun 2011 17:34:56 -0000 1.48.2.2
***************
*** 714,717 ****
--- 714,718 ----
156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure
r@ call GetVersionEx \ call os for version
+ dup 0= if drop 148 r@ ! r@ call GetVersionEx then \ try lower size for win98FE (and possibly win95)
0= abort" call failed"
r@ 4 cells+ @ \ get osplatformid
|
|
From: George H. <geo...@us...> - 2011-06-24 17:02:04
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv18221/src
Modified Files:
Primutil.f Winlib.f
Log Message:
Fixed winver-init to work in w98FE (and possibly w95) plus minor mods and corrections
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** Primutil.f 17 Nov 2010 18:08:34 -0000 1.50
--- Primutil.f 24 Jun 2011 17:02:02 -0000 1.51
***************
*** 718,721 ****
--- 718,722 ----
156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure
r@ call GetVersionEx \ call os for version
+ dup 0= if drop 148 r@ ! r@ call GetVersionEx then \ try lower size for win98FE (and possibly win95)
0= abort" call failed"
r@ 4 cells+ @ \ get osplatformid
Index: Winlib.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Winlib.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Winlib.f 15 May 2008 04:28:27 -0000 1.4
--- Winlib.f 24 Jun 2011 17:02:02 -0000 1.5
***************
*** 92,99 ****
\ beta 2.0A 06/09/2002 21:54:51 arm major modifications
! \ [malloc_next][heapaddress][mem_type][malloced_memory][extra_cell]
! \ |
! \ * returns this address on allocate *
! \ this is the "address"
\ Changes:
\ All memory calls are now to Windows heap functions
--- 92,99 ----
\ beta 2.0A 06/09/2002 21:54:51 arm major modifications
! \ [malloc_next][heapaddress][mem_type][extra-cell][allocated_memory][4 extra_cells]
! \ |
! \ * returns this address on allocate *
! \ this is the "address"
\ Changes:
\ All memory calls are now to Windows heap functions
***************
*** 105,108 ****
--- 105,110 ----
\ mem_type is currently unused, will be for pe header
\ see functions in kernel
+ \ NOTE: Since Windows guarantees alignment to a double cell the offset from link to address should
+ \ be an even no. of cells.
INTERNAL
***************
*** 147,152 ****
: .mallocs ( -- ) \ display all dynamically allocated buffers
cr
! ." Abs-Addr Rel-Addr Bytes HeapAddr Type" cr
! s" -------- -------- -------- -------- ----" 2dup type cr
(memlock)
['] (.mallocs) malloc-link do-link
--- 149,154 ----
: .mallocs ( -- ) \ display all dynamically allocated buffers
cr
! ." Link-Addr Rel-Addr Bytes HeapAddr Type" cr
! s" --------- -------- -------- -------- ----" 2dup type cr
(memlock)
['] (.mallocs) malloc-link do-link
|
|
From: Ezra B. <ezr...@us...> - 2011-06-14 03:59:43
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv9639
Modified Files:
EdToolbar.f
Log Message:
Bug fix. EAB
Index: EdToolbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdToolbar.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** EdToolbar.f 12 Feb 2011 02:46:47 -0000 1.17
--- EdToolbar.f 14 Jun 2011 03:59:41 -0000 1.18
***************
*** 484,487 ****
--- 484,488 ----
false IDM_BACK EnableButton: ControlToolbar
false IDM_FORWARD EnableButton: ControlToolbar
+ false IDM_BROWSE EnableButton: ControlToolbar
false Enable: findbox
then
|
|
From: George H. <geo...@us...> - 2011-05-27 20:35:57
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv28127
Modified Files:
CALLBACK.f
Log Message:
Modified not to overwrite User Area on async callbacks
Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** CALLBACK.f 25 May 2011 20:48:54 -0000 1.14
--- CALLBACK.f 27 May 2011 20:35:54 -0000 1.15
***************
*** 72,92 ****
xor edi, edi \ edi is constant 0
mov edx, fs: 0x14 \ edx is now ptr TIB pvArbitrary
! test edx, edx
jnz L$1
- push # 0
- mov ebp, esp
- sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
- and esp, # -16 \ align to 16 byte boundary
- \ mov ebx, 0 [esp]
- sub esp, # 4096 \ room for USER area
mov edx, esp
mov fs: 0x14 , edx
- sub esp, # 32
- jmp L$2
L$1: push SP0 [UP] \ save sp0 on stack
mov ebp, esp
! sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
and esp, # -16 \ align to 16 byte boundary
! L$2: mov SP0 [UP] , esp \ reset SP0
lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
--- 72,89 ----
xor edi, edi \ edi is constant 0
mov edx, fs: 0x14 \ edx is now ptr TIB pvArbitrary
! test edx, edx \ test for async callback
jnz L$1
mov edx, esp
+ sub edx, # 8164
+ and edx, # -16
mov fs: 0x14 , edx
L$1: push SP0 [UP] \ save sp0 on stack
mov ebp, esp
! mov -4092 [esp] , # 0
! sub esp, # 4096 \ room for return stack (Not RSTACKSIZE, please!)
! mov -4092 [esp] , # 0
! sub esp, # 4096 \ make sure we don't overwrite user area for async.
and esp, # -16 \ align to 16 byte boundary
! mov SP0 [UP] , esp \ reset SP0
lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
|
|
From: George H. <geo...@us...> - 2011-05-25 20:55:35
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv7671
Modified Files:
HelpCls.tv HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt
Log Message:
Updated help database
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** HelpCls.tv 1 Mar 2011 21:54:25 -0000 1.4
--- HelpCls.tv 25 May 2011 20:55:30 -0000 1.5
***************
*** 1,2290 ****
! 0 tvn| CLASSROOT| tvd| 5471|
1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5472|
! -2 tvn| ~:| tvd| 5473|
! -2 tvn| ADDR:| tvd| 5474|
! -2 tvn| PRINT:| tvd| 5475|
! 1 tvn| OBJECT| tvd| 5476|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5477|
! -3 tvn| PUT:| tvd| 5478|
[...4551 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8535|
! -4 tvn| GETINT:| tvd| 8536|
! -4 tvn| GETDOUBLE:| tvd| 8537|
! -4 tvn| GETFLOAT:| tvd| 8538|
! -4 tvn| GETSTR:| tvd| 8539|
! -4 tvn| GETBLOB:| tvd| 8540|
! -4 tvn| ISNULL?:| tvd| 8541|
! -4 tvn| NEXTROW:| tvd| 8542|
! -4 tvn| (BIND):| tvd| 8543|
! -4 tvn| BINDINT:| tvd| 8544|
! -4 tvn| BINDDOUBLE:| tvd| 8545|
! -4 tvn| BINDFLOAT:| tvd| 8546|
! -4 tvn| BINDSTR:| tvd| 8547|
! -4 tvn| BINDBLOB:| tvd| 8548|
! 1 tvn| STRING| tvd| 8554|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8555|
! -3 tvn| PUT:| tvd| 8556|
! -3 tvn| ADD:| tvd| 8557|
! -3 tvn| APPEND:| tvd| 8558|
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** HelpWrd.txt 1 Mar 2011 21:54:25 -0000 1.8
--- HelpWrd.txt 25 May 2011 20:55:31 -0000 1.9
***************
*** 1447,1452 ****
CREATE USERCONFIG$
BYTES &PS
- : (CLASSINIT) ( x y width height -- )
: (CLASSINIT) ( -- )
: (CLASSINIT) ( n1 -- )
CONSTANT 1/1
--- 1447,1452 ----
CREATE USERCONFIG$
BYTES &PS
: (CLASSINIT) ( -- )
[...8438 lines suppressed...]
+ : OPEN-DIALOG ( filename diraddr titleaddr specaddr owner -- filename )
+ : OPEN-DIALOG2 ( filterindx filenam diradr titleadr specadr owner -- filename )
+ : RUN-DIALOG ( owner_handle dialog-func-cfa -- a1 )
+ : SAVE-DIALOG ( filename diraddr titleaddr specaddr owner -- filename )
+ : SAVE-DIALOG2 ( filterindx filename diraddr titleaddr specaddr owner -- filename )
+ :M SETDIR: ( a1 n1 -- )
+ \ set the dialog directory string
+ :M SETFILTER: ( a1 n1 -- )
+ \ set new file filter spec
+ :M SETTITLE: ( a1 n1 -- )
+ :M START2: ( filterindex owner_handle -- a1 )
+ :M START2: ( filterindex owner_handle -- a1 )
+ :M START2: ( filterindex owner_handle -- a1 )
+ :M START: ( owner_handle -- a1 )
+ :M START: ( owner_handle -- a1 )
+ :M START: ( owner_handle -- a1 )
+ BYTES SZDIR
+ BYTES SZFILE
+ INT SZFILTER
+ INT SZTITLE
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
Binary files /tmp/cvsoLfGZ9 and /tmp/cvsnZktSS differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HelpWrd.tv 31 Aug 2010 07:38:44 -0000 1.7
--- HelpWrd.tv 25 May 2011 20:55:30 -0000 1.8
***************
*** 1,8794 ****
0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5469|
2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5470|
! -3 tvn| ~:| tvd| 5471|
! -3 tvn| ADDR:| tvd| 5472|
! -3 tvn| PRINT:| tvd| 5473|
! 2 tvn| OBJECT| tvd| 5474|
3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5475|
[...28953 lines suppressed...]
! 2 tvn| \+| tvd| 5290|
! 2 tvn| \-| tvd| 5291|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5296|
! 2 tvn| \S| tvd| 5345|
! 2 tvn| ]MACRO| tvd| 5186|
! 2 tvn| __STDCALL| tvd| 5177|
! 2 tvn| {| tvd| 5368|
! 2 tvn| {:| tvd| 5367|
! 2 tvn| |IF| tvd| 4915|
! 2 tvn| |OF| tvd| 4914|
1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5048|
! 2 tvn| >BOLD| tvd| 4135|
! 2 tvn| >NORM| tvd| 4134|
! 2 tvn| ABS>REL| tvd| 5316|
! 2 tvn| REL>ABS| tvd| 5317|
! 2 tvn| TASK-SLEEP| tvd| 2593|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5046|
1 tvn| Vocabularies| tvd| 0|
2 tvn| Application space| tvd| 0|
Index: HelpWrd.ndx
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
Binary files /tmp/cvsVpInw5 and /tmp/cvs4ChmDS differ
|
|
From: George H. <geo...@us...> - 2011-05-25 20:53:11
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv7471
Modified Files:
EdDebug.f EdMenu.f EdRemote.f
Log Message:
Sorted loading of projects in running IDE
Index: EdDebug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdDebug.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EdDebug.f 11 Jul 2010 02:45:17 -0000 1.7
--- EdDebug.f 25 May 2011 20:53:09 -0000 1.8
***************
*** 52,60 ****
create edname maxstring allot
! :Object DbgButtonsDlg <Super ModelessDialog
! IDD_DEBUG WINEDIT find-dialog-id constant template
! int HexBase
Font dbFont
int inq-running?
--- 52,60 ----
create edname maxstring allot
! True [if] \ True gives new dialog, False gives old.
! :Object frmDbgButtonsDlg <Super frmDebug
! int HexBase
Font dbFont
int inq-running?
***************
*** 64,84 ****
FALSE to HexBase \ FALSE = Decimal, TRUE = Hex
FALSE to inq-running?
- 8 Width: dbFont
- 14 Height: dbFont
- s" Courier" SetFaceName: dbFont \ default to Courier
;M
- :M GetTemplate: ( -- template )
- template ;M
-
- :M ExWindowStyle: ( -- )
- ExWindowStyle: super WS_EX_TOOLWINDOW or ;M
-
: "addstack { adr len \ ztemp -- }
MAXSTRING LocalAlloc: ztemp \ allocate buffer
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ;
: "addreturn { adr len \ ztemp -- }
--- 64,74 ----
FALSE to HexBase \ FALSE = Decimal, TRUE = Hex
FALSE to inq-running?
;M
: "addstack { adr len \ ztemp -- }
MAXSTRING LocalAlloc: ztemp \ allocate buffer
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstDStack ;
: "addreturn { adr len \ ztemp -- }
***************
*** 86,91 ****
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ;
: n>" ( n1 -- a1 n2 )
--- 76,80 ----
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstRStack ;
: n>" ( n1 -- a1 n2 )
***************
*** 105,110 ****
s" Debugging: " temp$ place
edname count temp$ +place
! temp$ count IDT_NAME SetDlgItemText: self drop
! 0 0 LB_RESETCONTENT IDL_STACK SendDlgItemMessage: self drop
edstack @ ?dup
IF dup 0<
--- 94,99 ----
s" Debugging: " temp$ place
edname count temp$ +place
! temp$ count SetText: lblDebugging
! Clear: lstDStack
edstack @ ?dup
IF dup 0<
***************
*** 118,122 ****
ELSE s" Empty" "addstack
THEN
! 0 0 LB_RESETCONTENT IDL_RETURN SendDlgItemMessage: self drop
edreturn count bl skip
bl scan bl skip \ skip "RETURN"
--- 107,111 ----
ELSE s" Empty" "addstack
THEN
! Clear: lstRStack
edreturn count bl skip
bl scan bl skip \ skip "RETURN"
***************
*** 130,140 ****
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ;
:M ShowDebug: { addr \ ed-dbgline -- }
addr count dup 1+ localalloc: ed-dbgline
ed-dbgline place
! 0 0 LB_RESETCONTENT IDL_WORDS SendDlgItemMessage: self drop
prev-lines dup MAXSTRING + swap MAXSTRING 4 * move
ed-dbgline count 2dup 0x0D scan 2dup 1 /string 2>r
--- 119,128 ----
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstWords ;
:M ShowDebug: { addr \ ed-dbgline -- }
addr count dup 1+ localalloc: ed-dbgline
ed-dbgline place
! Clear: lstWords
prev-lines dup MAXSTRING + swap MAXSTRING 4 * move
ed-dbgline count 2dup 0x0D scan 2dup 1 /string 2>r
***************
*** 152,156 ****
?DO addr i 1+ cells+ @ n>" temp$ +place
s" " temp$ +place
! LOOP temp$ count IDT_RESULT SetDlgItemText: self ;M
: inquirebp ( -- )
--- 140,144 ----
?DO addr i 1+ cells+ @ n>" temp$ +place
s" " temp$ +place
! LOOP temp$ count SetText: txtResult ;M
: inquirebp ( -- )
***************
*** 173,248 ****
THEN ;
:M On_Init: ( -- )
On_Init: super
! HexBase
! IF IDR_HEX
! ELSE IDR_DECIMAL
! THEN IDR_DECIMAL IDR_HEX CheckRadioButton: self
! Handle: dbFont 0=
! IF Create: dbFont
! THEN
! Handle: dbFont
! IF Handle: dbFont IDL_STACK SetDlgItemFont: self
! Handle: dbFont IDL_RETURN SetDlgItemFont: self
! Handle: dbFont IDL_WORDS SetDlgItemFont: self
! THEN
ShowStack: self
;M
! :M On_Command: ( hCtrl code ID -- f1 ) \ returns 0=cancel
! CASE
! IDB_STEP OF stepbp ENDOF
! IDB_NEST OF nestbp ENDOF
! IDB_UNEST OF unestbp ENDOF
! IDB_CONT OF contbp ENDOF
! IDB_JUMP OF jumpbp ENDOF
! IDB_PROC OF beginbp ENDOF
! IDB_HERE OF herebp ENDOF
! IDB_DONE OF donebp ENDOF
! IDB_INQUIRE OF inquirebp ENDOF
! IDR_HEX OF TRUE to HexBase ShowStack: self ENDOF
! IDR_DECIMAL OF FALSE to HexBase ShowStack: self ENDOF
! IDCANCEL OF FALSE to debug-buttons?
! Delete: dbFont
! DestroyWindow: self ENDOF
! false swap ( default result )
! ENDCASE ;M
! :M WM_CLOSE ( -- )
! FALSE to debug-buttons?
! Delete: dbFont
! WM_CLOSE WM: Super
! ;M
;Object
! \ Uncomment the following to use the old dialog
! \ : debug-buttons ( -- ) \ using original dialog
\ *G Open the Debug dialog
! \ Frame Start: DbgButtonsDlg
! \ TRUE to debug-buttons? ;
! \
! \ : receive-stack ( addr -- )
\ *G Get stack from Forth
! \ dup edstack 64 cells cmove
! \ 64 cells + edreturn maxstring cmove
! \ ShowStack: DbgButtonsDlg ;
! \
! \ : receive-response ( addr -- )
\ *G Get response from Forth to a WM_INQUIRE msg
! \ ShowResponse: DbgButtonsDlg ;
! \
! \ : receive-debug ( addr -- )
\ *G display the debug line sent by Forth
! \ ShowDebug: DbgButtonsDlg ;
! \
! \ : receive-name ( addr -- )
\ *G display the debug line sent by Forth
! \ count edname place ;
! :Object frmDbgButtonsDlg <Super frmDebug
! int HexBase
Font dbFont
int inq-running?
--- 161,243 ----
THEN ;
+ :M Close: ( -- )
+ FALSE to debug-buttons?
+ Close: Super ;M
+
+ : command-func ( ID obj -- )
+ drop
+ CASE
+ GetID: btnStep OF stepbp ENDOF
+ GetId: btnInto OF nestbp ENDOF
+ GetID: btnOutOf OF unestbp ENDOF
+ GetID: btnSteps OF contbp ENDOF
+ GetId: btnBreak OF jumpbp ENDOF
+ GetID: btnBP OF beginbp ENDOF
+ GetID: btnHere OF herebp ENDOF
+ GetID: btnRun OF donebp ENDOF
+ GetId: btnInquire OF inquirebp ENDOF
+ GetId: btnSetBP OF IDM_SET_BREAK_POINT DoCommand ENDOF
+ GetID: radHex OF TRUE to HexBase ShowStack: self ENDOF
+ GetID: radDecimal OF FALSE to HexBase ShowStack: self ENDOF
+ ENDCASE ;
+
:M On_Init: ( -- )
+ WS_BORDER dup AddStyle: lstWords
+ dup AddStyle: lstDStack
+ AddStyle: lstRStack
On_Init: super
! true ReadOnly: txtResult
! HexBase dup Check: radHex 0= Check: radDecimal
ShowStack: self
+ ['] command-func SetCommand: self
;M
! :M ExWindowStyle: ( -- )
! WS_EX_CLIENTEDGE ;M
! :M Clear: ( -- )
! Clear: lstWords
! Clear: lstDStack
! Clear: lstRStack
! s" " SetText: txtResult
! s" " SetText: lblDebugging ;M
;Object
! frmDbgButtonsDlg to frmDebugDlg
!
! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ Comment out the following if using the old dialog
! : debug-buttons ( -- ) \ using frmDebugDlg
\ *G Open the Debug dialog
! debugtab# -1 <>
! if debugtab# ShowTab: cTabWindow
! then TRUE to debug-buttons? ;
!
! : receive-stack ( addr -- )
\ *G Get stack from Forth
! dup edstack 64 cells cmove
! 64 cells + edreturn maxstring cmove
! ShowStack: frmDebugDlg ;
!
! : receive-response ( addr -- )
\ *G Get response from Forth to a WM_INQUIRE msg
! ShowResponse: frmDebugDlg ;
!
! : receive-debug ( addr -- )
\ *G display the debug line sent by Forth
! ShowDebug: frmDebugDlg ;
!
! : receive-name ( addr -- )
\ *G display the debug line sent by Forth
! count edname place ;
+ [else]
! :Object DbgButtonsDlg <Super ModelessDialog
! IDD_DEBUG WINEDIT find-dialog-id constant template
!
! int HexBase
Font dbFont
int inq-running?
***************
*** 252,262 ****
FALSE to HexBase \ FALSE = Decimal, TRUE = Hex
FALSE to inq-running?
;M
: "addstack { adr len \ ztemp -- }
MAXSTRING LocalAlloc: ztemp \ allocate buffer
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstDStack ;
: "addreturn { adr len \ ztemp -- }
--- 247,267 ----
FALSE to HexBase \ FALSE = Decimal, TRUE = Hex
FALSE to inq-running?
+ 8 Width: dbFont
+ 14 Height: dbFont
+ s" Courier" SetFaceName: dbFont \ default to Courier
;M
+ :M GetTemplate: ( -- template )
+ template ;M
+
+ :M ExWindowStyle: ( -- )
+ ExWindowStyle: super WS_EX_TOOLWINDOW or ;M
+
: "addstack { adr len \ ztemp -- }
MAXSTRING LocalAlloc: ztemp \ allocate buffer
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ;
: "addreturn { adr len \ ztemp -- }
***************
*** 264,268 ****
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstRStack ;
: n>" ( n1 -- a1 n2 )
--- 269,274 ----
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ;
: n>" ( n1 -- a1 n2 )
***************
*** 282,287 ****
s" Debugging: " temp$ place
edname count temp$ +place
! temp$ count SetText: lblDebugging
! Clear: lstDStack
edstack @ ?dup
IF dup 0<
--- 288,293 ----
s" Debugging: " temp$ place
edname count temp$ +place
! temp$ count IDT_NAME SetDlgItemText: self drop
! 0 0 LB_RESETCONTENT IDL_STACK SendDlgItemMessage: self drop
edstack @ ?dup
IF dup 0<
***************
*** 295,299 ****
ELSE s" Empty" "addstack
THEN
! Clear: lstRStack
edreturn count bl skip
bl scan bl skip \ skip "RETURN"
--- 301,305 ----
ELSE s" Empty" "addstack
THEN
! 0 0 LB_RESETCONTENT IDL_RETURN SendDlgItemMessage: self drop
edreturn count bl skip
bl scan bl skip \ skip "RETURN"
***************
*** 307,316 ****
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp AddStringTo: lstWords ;
:M ShowDebug: { addr \ ed-dbgline -- }
addr count dup 1+ localalloc: ed-dbgline
ed-dbgline place
! Clear: lstWords
prev-lines dup MAXSTRING + swap MAXSTRING 4 * move
ed-dbgline count 2dup 0x0D scan 2dup 1 /string 2>r
--- 313,323 ----
ztemp MAXSTRING erase \ null fill buffer
adr ztemp len MAXSTRING 1- min move \ move text to buffer
! ztemp
! 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ;
:M ShowDebug: { addr \ ed-dbgline -- }
addr count dup 1+ localalloc: ed-dbgline
ed-dbgline place
! 0 0 LB_RESETCONTENT IDL_WORDS SendDlgItemMessage: self drop
prev-lines dup MAXSTRING + swap MAXSTRING 4 * move
ed-dbgline count 2dup 0x0D scan 2dup 1 /string 2>r
***************
*** 328,332 ****
?DO addr i 1+ cells+ @ n>" temp$ +place
s" " temp$ +place
! LOOP temp$ count SetText: txtResult ;M
: inquirebp ( -- )
--- 335,339 ----
?DO addr i 1+ cells+ @ n>" temp$ +place
s" " temp$ +place
! LOOP temp$ count IDT_RESULT SetDlgItemText: self ;M
: inquirebp ( -- )
***************
*** 349,424 ****
THEN ;
- :M Close: ( -- )
- FALSE to debug-buttons?
- Close: Super ;M
-
- : command-func ( ID obj -- )
- drop
- CASE
- GetID: btnStep OF stepbp ENDOF
- GetId: btnInto OF nestbp ENDOF
- GetID: btnOutOf OF unestbp ENDOF
- GetID: btnSteps OF contbp ENDOF
- GetId: btnBreak OF jumpbp ENDOF
- GetID: btnBP OF beginbp ENDOF
- GetID: btnHere OF herebp ENDOF
- GetID: btnRun OF donebp ENDOF
- GetId: btnInquire OF inquirebp ENDOF
- GetId: btnSetBP OF IDM_SET_BREAK_POINT DoCommand ENDOF
- GetID: radHex OF TRUE to HexBase ShowStack: self ENDOF
- GetID: radDecimal OF FALSE to HexBase ShowStack: self ENDOF
- ENDCASE ;
-
:M On_Init: ( -- )
- WS_BORDER dup AddStyle: lstWords
- dup AddStyle: lstDStack
- AddStyle: lstRStack
On_Init: super
! true ReadOnly: txtResult
! HexBase dup Check: radHex 0= Check: radDecimal
ShowStack: self
- ['] command-func SetCommand: self
;M
! :M ExWindowStyle: ( -- )
! WS_EX_CLIENTEDGE ;M
! :M Clear: ( -- )
! Clear: lstWords
! Clear: lstDStack
! Clear: lstRStack
! s" " SetText: txtResult
! s" " SetText: lblDebugging ;M
;Object
! frmDbgButtonsDlg to frmDebugDlg
!
! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ Comment out the following if using the old dialog
! : debug-buttons ( -- ) \ using frmDebugDlg
! \ *G Open the Debug dialog
! debugtab# -1 <>
! if debugtab# ShowTab: cTabWindow
! then TRUE to debug-buttons? ;
: receive-stack ( addr -- )
! \ *G Get stack from Forth
dup edstack 64 cells cmove
64 cells + edreturn maxstring cmove
! ShowStack: frmDebugDlg ;
!
: receive-response ( addr -- )
! \ *G Get response from Forth to a WM_INQUIRE msg
! ShowResponse: frmDebugDlg ;
!
: receive-debug ( addr -- )
! \ *G display the debug line sent by Forth
! ShowDebug: frmDebugDlg ;
!
: receive-name ( addr -- )
! \ *G display the debug line sent by Forth
count edname place ;
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 356,430 ----
THEN ;
:M On_Init: ( -- )
On_Init: super
! HexBase
! IF IDR_HEX
! ELSE IDR_DECIMAL
! THEN IDR_DECIMAL IDR_HEX CheckRadioButton: self
! Handle: dbFont 0=
! IF Create: dbFont
! THEN
! Handle: dbFont
! IF Handle: dbFont IDL_STACK SetDlgItemFont: self
! Handle: dbFont IDL_RETURN SetDlgItemFont: self
! Handle: dbFont IDL_WORDS SetDlgItemFont: self
! THEN
ShowStack: self
;M
! :M On_Command: ( hCtrl code ID -- f1 ) \ returns 0=cancel
! CASE
! IDB_STEP OF stepbp ENDOF
! IDB_NEST OF nestbp ENDOF
! IDB_UNEST OF unestbp ENDOF
! IDB_CONT OF contbp ENDOF
! IDB_JUMP OF jumpbp ENDOF
! IDB_PROC OF beginbp ENDOF
! IDB_HERE OF herebp ENDOF
! IDB_DONE OF donebp ENDOF
! IDB_INQUIRE OF inquirebp ENDOF
! IDR_HEX OF TRUE to HexBase ShowStack: self ENDOF
! IDR_DECIMAL OF FALSE to HexBase ShowStack: self ENDOF
! IDCANCEL OF FALSE to debug-buttons?
! Delete: dbFont
! DestroyWindow: self ENDOF
! false swap ( default result )
! ENDCASE ;M
! :M WM_CLOSE ( -- )
! FALSE to debug-buttons?
! Delete: dbFont
! WM_CLOSE WM: Super
! ;M
;Object
! DbgButtonsDlg to frmDebugDlg
+ : debug-buttons ( -- ) \ using original dialog
+ *G Open the Debug dialog
+ Frame Start: DbgButtonsDlg
+ TRUE to debug-buttons? ;
+ \
: receive-stack ( addr -- )
! *G Get stack from Forth
dup edstack 64 cells cmove
64 cells + edreturn maxstring cmove
! ShowStack: DbgButtonsDlg ;
! \
: receive-response ( addr -- )
! *G Get response from Forth to a WM_INQUIRE msg
! ShowResponse: DbgButtonsDlg ;
! \
: receive-debug ( addr -- )
! *G display the debug line sent by Forth
! ShowDebug: DbgButtonsDlg ;
! \
: receive-name ( addr -- )
! *G display the debug line sent by Forth
count edname place ;
+
+ [then]
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** EdMenu.f 12 Feb 2011 02:45:24 -0000 1.34
--- EdMenu.f 25 May 2011 20:53:09 -0000 1.35
***************
*** 320,325 ****
\ Win32Forth menu
! \ dup Enable: mp_setbp
! \ dup Enable: mp_debug
dup Enable: mp_compileSel
dup Enable: mp_compileLine
--- 320,325 ----
\ Win32Forth menu
! \ dup Enable: mp_setbp
! \ dup Enable: mp_debug
dup Enable: mp_compileSel
dup Enable: mp_compileLine
Index: EdRemote.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** EdRemote.f 28 Apr 2011 18:02:49 -0000 1.12
--- EdRemote.f 25 May 2011 20:53:09 -0000 1.13
***************
*** 32,42 ****
ed-filename count file-exist?
if ed-filename count
! IsHtmlFile?
! if ed-filename count (OpenHtmlFile)
! else \ avoid duplicate files loaded when compiling and error occurs
! ed-filename count (OpenRemoteFile) \ switch if already loaded
! ed-line GotoLine: ActiveRemote
! \ ed-line ed-filename count LoadHyperFile: ActiveRemote \ load the file
! flag 2 = SetBrowseMode: ActiveRemote \ browsing?
then
then
--- 32,46 ----
ed-filename count file-exist?
if ed-filename count
! IsProjectFile?
! if ed-filename count (open-project)
! else
! ed-filename count IsHtmlFile?
! if ed-filename count (OpenHtmlFile)
! else \ avoid duplicate files loaded when compiling and error occurs
! ed-filename count (OpenRemoteFile) \ switch if already loaded
! ed-line GotoLine: ActiveRemote
! \ ed-line ed-filename count LoadHyperFile: ActiveRemote \ load the file
! flag 2 = SetBrowseMode: ActiveRemote \ browsing?
! then
then
then
|
|
From: George H. <geo...@us...> - 2011-05-25 20:50:48
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv6041
Added Files:
Struct200x.f
Log Message:
Added Struct200x
--- NEW FILE: Struct200x.f ---
\ $Id: Struct200x.f,v 1.1 2011/05/25 20:50:46 georgeahubert Exp $ \
\ --------------------------- Change Block -------------------------------
\
\
\ ------------------------- End Change Block -----------------------------
\
\ RfD: Structures - Version 4
\ 6 February 2007, Stephen Pelc
\ ------------------------------------------------------------------------
: begin-structure ( -- addr 0 )
create here 0 0 ,
does> ( -- size ) @ ;
: end-structure ( addr n -- )
swap ! ; \ set size
(( : +field ( n1 n2 "name" -- n3 ) \ ANSI version
create over , +
does> ( addr -- addr+n1 ) @ + ; ))
: +field ( n1 n2 "name" -- n3 ) field+ ; \ Optimised code version
: field: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) aligned cell +field ;
: cfield: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) 1 chars +field ;
: bfield: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) 1 +field ;
: wfield: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) 2 +field ;
: lfield: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) 4 +field ;
: xfield: ( n1 <"name"> -- n2 ) ( addr -- 'addr ) 8 +field ;
[defined] environment [if]
get-current also environment definitions
: X:STRUCTURES ;
previous set-current [then]
|
|
From: George H. <geo...@us...> - 2011-05-25 20:48:57
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv5575
Modified Files:
CALLBACK.f Extend.f Order.f w32fMsg.f
Log Message:
Tidy up and added Struct200x
Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Extend.f 19 Apr 2011 20:30:04 -0000 1.27
--- Extend.f 25 May 2011 20:48:54 -0000 1.28
***************
*** 45,49 ****
FLOAD src\mapfile.f \ Windows32 file into memory mapping words
sys-FLOAD src\environ.f \ environment? support
! \ sys-FLOAD src\struct200X.f \ 200X structure words
FLOAD src\utils.f \ load other misc utility words
--- 45,49 ----
FLOAD src\mapfile.f \ Windows32 file into memory mapping words
sys-FLOAD src\environ.f \ environment? support
! sys-FLOAD src\struct200X.f \ 200X structure words
FLOAD src\utils.f \ load other misc utility words
Index: Order.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Order.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Order.f 5 Oct 2008 20:29:32 -0000 1.6
--- Order.f 25 May 2011 20:48:54 -0000 1.7
***************
*** 58,67 ****
: ONLY ( -- ) \ Removes all vocs from search order down to ROOT
! CONTEXT #VOCS CELLS ERASE ROOT ALSO VOC-ALSO ;
: PREVIOUS ( -- ) \ Removes the topmost vocabulary from the search order
CONTEXT DUP CELL+ SWAP #VOCS CELLS MOVE
CONTEXT @ 0=
! IF ROOT
THEN VOC-ALSO ;
--- 58,67 ----
: ONLY ( -- ) \ Removes all vocs from search order down to ROOT
! \in-system-ok CONTEXT #VOCS CELLS ERASE ROOT ALSO VOC-ALSO ;
: PREVIOUS ( -- ) \ Removes the topmost vocabulary from the search order
CONTEXT DUP CELL+ SWAP #VOCS CELLS MOVE
CONTEXT @ 0=
! \in-system-ok IF ROOT
THEN VOC-ALSO ;
Index: w32fMsg.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** w32fMsg.f 28 Apr 2011 18:03:58 -0000 1.18
--- w32fMsg.f 25 May 2011 20:48:54 -0000 1.19
***************
*** 545,549 ****
else >r [createprocess] \ launch the w32fapp
if r>drop -1
! else 1650 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a..
call WaitForInputIdle drop \ ..chance to set its hwnd..
CloseThread \ ..in shared memory
--- 545,549 ----
else >r [createprocess] \ launch the w32fapp
if r>drop -1
! else 2000 30 time-taken * + ( ms) ProcInfo @ \ give the launched process a..
call WaitForInputIdle drop \ ..chance to set its hwnd..
CloseThread \ ..in shared memory
Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** CALLBACK.f 11 May 2011 13:58:43 -0000 1.13
--- CALLBACK.f 25 May 2011 20:48:54 -0000 1.14
***************
*** 75,87 ****
jnz L$1
push # 0
- mov edx, 0 [esp]
mov ebp, esp
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
and esp, # -16 \ align to 16 byte boundary
!
sub esp, # 4096 \ room for USER area
mov edx, esp
sub esp, # 32
- mov SP0 [UP] , esp \ reset SP0
jmp L$2
L$1: push SP0 [UP] \ save sp0 on stack
--- 75,86 ----
jnz L$1
push # 0
mov ebp, esp
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
and esp, # -16 \ align to 16 byte boundary
! \ mov ebx, 0 [esp]
sub esp, # 4096 \ room for USER area
mov edx, esp
+ mov fs: 0x14 , edx
sub esp, # 32
jmp L$2
L$1: push SP0 [UP] \ save sp0 on stack
***************
*** 89,95 ****
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
and esp, # -16 \ align to 16 byte boundary
! mov SP0 [UP] , esp \ reset SP0
!
! L$2: lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!)
--- 88,93 ----
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
and esp, # -16 \ align to 16 byte boundary
! L$2: mov SP0 [UP] , esp \ reset SP0
! lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!)
|
|
From: George H. <geo...@us...> - 2011-05-11 13:58:45
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv25846
Modified Files:
CALLBACK.f
Log Message:
Now handles assynchronous callbacks as well as synchronous ones.
Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** CALLBACK.f 16 Jun 2008 03:35:15 -0000 1.12
--- CALLBACK.f 11 May 2011 13:58:43 -0000 1.13
***************
*** 72,77 ****
xor edi, edi \ edi is constant 0
mov edx, fs: 0x14 \ edx is now ptr TIB pvArbitrary
! push SP0 [UP] \ save sp0 on stack
mov ebp, esp
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
--- 72,89 ----
xor edi, edi \ edi is constant 0
mov edx, fs: 0x14 \ edx is now ptr TIB pvArbitrary
! test edx, edx
! jnz L$1
! push # 0
! mov edx, 0 [esp]
! mov ebp, esp
! sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
! and esp, # -16 \ align to 16 byte boundary
+ sub esp, # 4096 \ room for USER area
+ mov edx, esp
+ sub esp, # 32
+ mov SP0 [UP] , esp \ reset SP0
+ jmp L$2
+ L$1: push SP0 [UP] \ save sp0 on stack
mov ebp, esp
sub esp, # 4096 32 - \ room for return stack (Not RSTACKSIZE, please!)
***************
*** 79,83 ****
mov SP0 [UP] , esp \ reset SP0
! lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!)
--- 91,95 ----
mov SP0 [UP] , esp \ reset SP0
! L$2: lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx
neg ecx \ negate ecx
lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!)
|
|
From: George H. <geo...@us...> - 2011-04-28 18:04:00
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv26065
Modified Files:
w32fMsg.f
Log Message:
No change
Index: w32fMsg.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** w32fMsg.f 31 Aug 2010 08:02:47 -0000 1.17
--- w32fMsg.f 28 Apr 2011 18:03:58 -0000 1.18
***************
*** 264,267 ****
--- 264,268 ----
then ;
+
\ Note: the very first (inter-process) call to open-share will erase the mapped
\ "file" contents.
|
|
From: George H. <geo...@us...> - 2011-04-28 18:02:52
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv25715
Modified Files:
EdRemote.f Main.f
Log Message:
IDE nows opens files from explorer in the running instance
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** Main.f 12 Feb 2011 02:48:46 -0000 1.68
--- Main.f 28 Apr 2011 18:02:49 -0000 1.69
***************
*** 1614,1617 ****
--- 1614,1627 ----
\ Removed setting the thread priority of the main task. It block's the system
\ too much and isn't really needed (Montag, Oktober 09 2006, dbu).
+ w32fsharep 0=
+ if w32fshareName 1024 open-share ?dup
+ if to w32fshareh
+ to w32fsharep
+ then
+ CmdLine strip-cmdline
+ pad place 0 pad $edit
+ CloseSharedMemory
+ bye
+ then
start: Frame
GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD
***************
*** 1631,1636 ****
w32fIDE to NewAppID \ set w32f communication & messaging
! true to RunUnique
!
NoConsoleBoot \ no console needed, will start MessageLoop
' Main ' SAVE catch win32forthIDE.exe checkstack
--- 1641,1645 ----
w32fIDE to NewAppID \ set w32f communication & messaging
! false to RunUnique
NoConsoleBoot \ no console needed, will start MessageLoop
' Main ' SAVE catch win32forthIDE.exe checkstack
Index: EdRemote.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** EdRemote.f 10 Apr 2009 16:37:04 -0000 1.11
--- EdRemote.f 28 Apr 2011 18:02:49 -0000 1.12
***************
*** 76,79 ****
--- 76,86 ----
ENDCASE
ENDOF
+ w32fIDE OF
+ CASE
+ ED_OPEN_EDIT OF drop 1 remote-open -1 ENDOF
+ ED_OPEN_BROWSE OF drop 2 remote-open -1 ENDOF
+ 2drop 0 swap
+ ENDCASE
+ ENDOF
3drop 0 swap
ENDCASE ; is HandleW32FMsg
|
|
From: George H. <geo...@us...> - 2011-04-20 11:37:32
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv16084
Modified Files:
fkernel.f
Log Message:
Altered comments to use "name" -- rather than -<name>-
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -d -r1.70 -r1.71
*** fkernel.f 19 Apr 2011 20:30:04 -0000 1.70
--- fkernel.f 20 Apr 2011 11:37:29 -0000 1.71
***************
*** 3317,3321 ****
in-system
! : [COMPILE] ( -<name>- ) \ compile the xt of word <name>
' COMPILE, ; IMMEDIATE
--- 3317,3321 ----
in-system
! : [COMPILE] ( "name" -- ) \ compile the xt of word <name>
' COMPILE, ; IMMEDIATE
***************
*** 3324,3331 ****
CHAR [COMPILE] LITERAL ; IMMEDIATE
! : ['] ( -<name>- ) \ compile xt of <name> as a literal
' [COMPILE] LITERAL ; IMMEDIATE
! : POSTPONE ( -<name>- ) \ compilation only - compile xt of word
DEFINED DUP ?MISSING
0< IF COMPILE COMPILE THEN
--- 3324,3331 ----
CHAR [COMPILE] LITERAL ; IMMEDIATE
! : ['] ( "name" -- ) \ compile xt of <name> as a literal
' [COMPILE] LITERAL ; IMMEDIATE
! : POSTPONE ( "name" -- ) \ compilation only - compile xt of word
DEFINED DUP ?MISSING
0< IF COMPILE COMPILE THEN
***************
*** 3734,3742 ****
;
! : proc ( #params -<name>- ) \ #arguments proc MessageBeep
bl word count #"proc drop
;
! : extern ( -<name>- ) \ extern var
0x20 proc ;
--- 3734,3742 ----
;
! : proc ( #params "name" -- ) \ #arguments proc MessageBeep
bl word count #"proc drop
;
! : extern ( "name" -- ) \ extern var
0x20 proc ;
***************
*** 4423,4432 ****
: SLOW ( -- ) slfactor ms start/stop ; \ set 'slfactor' to slow down loading
! : HEADER ( -<name>- ) \ build a header
BL WORD COUNT (HEADER) slow ; \ self-call the header word
in-system
! : ALIAS ( xt -<name>- ) \ W32F
\ *G Creates an alias of a word that is non-imediate (unless IMMEDIATE is used).
\ *P NOTE View of either name can go to the synonym instead (it depends which name
--- 4423,4432 ----
: SLOW ( -- ) slfactor ms start/stop ; \ set 'slfactor' to slow down loading
! : HEADER ( "name" -- ) \ build a header
BL WORD COUNT (HEADER) slow ; \ self-call the header word
in-system
! : ALIAS ( xt "name" -- ) \ W32F
\ *G Creates an alias of a word that is non-imediate (unless IMMEDIATE is used).
\ *P NOTE View of either name can go to the synonym instead (it depends which name
***************
*** 4515,4519 ****
ALIGN HERE DUP ANON ! :COLONDEF ;
! : : ( -<name>- ) \ Forth's primary function defining word
HEADER HIDE ANON OFF :COLONDEF ;
--- 4515,4519 ----
ALIGN HERE DUP ANON ! :COLONDEF ;
! : : ( "name" -- ) \ Forth's primary function defining word
HEADER HIDE ANON OFF :COLONDEF ;
***************
*** 4533,4543 ****
in-system
! : CONSTANT ( n -<name>- ) \ create a constant (unchangeable) value
HEADER DOCON COMPILE, , ;
! : VARIABLE ( -<name>- ) \ create a variable (changeable) value
CREATE 0 , ;
! : DEFER ( -<name>- ) \ create a deferred execution function
\ *G create a deferred execution function, defaults to a NOOP
\ ** Typical usage ' new-action is deferred-action
--- 4533,4543 ----
in-system
! : CONSTANT ( n "name" -- ) \ create a constant (unchangeable) value
HEADER DOCON COMPILE, , ;
! : VARIABLE ( "name" -- ) \ create a variable (changeable) value
CREATE 0 , ;
! : DEFER ( "name" -- ) \ create a deferred execution function
\ *G create a deferred execution function, defaults to a NOOP
\ ** Typical usage ' new-action is deferred-action
***************
*** 4548,4555 ****
COMPILE NOOP ;
! : USER ( n -<name>- -- ) \ create a user variable (changeable) value
HEADER DOUSER COMPILE, , ;
! : NEWUSER ( size -<name>- -- ) \ Creates a user. A user can be
\ a byte, cell, float, string or stack
NEXT-USER @ SWAP OVER + NEXT-USER !
--- 4548,4555 ----
COMPILE NOOP ;
! : USER ( n "name" -- ) \ create a user variable (changeable) value
HEADER DOUSER COMPILE, , ;
! : NEWUSER ( size "name" -- ) \ Creates a user. A user can be
\ a byte, cell, float, string or stack
NEXT-USER @ SWAP OVER + NEXT-USER !
***************
*** 4570,4574 ****
next c;
! : 2VARIABLE ( -<name>- ) \ create a double variable
VARIABLE 0 , ;
--- 4570,4574 ----
next c;
! : 2VARIABLE ( "name" -- ) \ create a double variable
VARIABLE 0 , ;
***************
*** 4592,4596 ****
in-system
! : IS ( xt -<name>- ) \ assign xt to a defer
STATE @
IF COMPILE (IS) ' ?IS COMPILE,
--- 4592,4596 ----
in-system
! : IS ( xt "name" -- ) \ assign xt to a defer
STATE @
IF COMPILE (IS) ' ?IS COMPILE,
***************
*** 4605,4609 ****
\ -------------------- Value ------------------------------------------------
! : VALUE ( n -<name>- ) \ create a self fetching changeable value
HEADER \ 'n TO value-name' will change a value
DOVALUE COMPILE,
--- 4605,4609 ----
\ -------------------- Value ------------------------------------------------
! : VALUE ( n "name" -- ) \ create a self fetching changeable value
HEADER \ 'n TO value-name' will change a value
DOVALUE COMPILE,
***************
*** 5112,5118 ****
\
\ Local variables can have any name except -- \ or }
! \ NOTE: { a -<name>- } declares two locals; it doesn't indicate a parsing word
! \ { a -- -<name>- } is the only correct method
\ Added | as alternative for \, as it matches John Hayes' syntax better
\
\ Improved factoring
--- 5112,5119 ----
\
\ Local variables can have any name except -- \ or }
! \ NOTE: { a "name" } declares two locals; it doesn't indicate a parsing word
! \ { a -- "name" } is the only correct method
\ Added | as alternative for \, as it matches John Hayes' syntax better
+ \ Added {: [a b c] [| [d e f]] [-- comments] :} as per Forth200x
\
\ Improved factoring
***************
*** 5154,5158 ****
THEN ; IMMEDIATE
! : LOCALALLOC: ( n1 -<name>- ) \ allocate a local n1 byte buffer to local "name"
?COMP
[COMPILE] LOCALALLOC [COMPILE] TO ; IMMEDIATE
--- 5155,5159 ----
THEN ; IMMEDIATE
! : LOCALALLOC: ( n1 "name" -- ) \ allocate a local n1 byte buffer to local "name"
?COMP
[COMPILE] LOCALALLOC [COMPILE] TO ; IMMEDIATE
|
|
From: George H. <geo...@us...> - 2011-04-19 20:30:08
|
Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv14194/demos
Modified Files:
WINSER.F
Log Message:
Various bug fixes and enhauncements
Index: WINSER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINSER.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** WINSER.F 2 Dec 2009 08:13:30 -0000 1.4
--- WINSER.F 19 Apr 2011 20:30:03 -0000 1.5
***************
*** 188,193 ****
0 to Com1key-flg? ; \ clear the save buffer
! : Com1emit { char -- } \ write a character to the serial port
! &OF char 1 Com1Hndl write-file
abort" Failed to write serial port" ;
--- 188,193 ----
0 to Com1key-flg? ; \ clear the save buffer
! : Com1emit { charin -- } \ write a character to the serial port
! &OF charin 1 Com1Hndl write-file
abort" Failed to write serial port" ;
|
|
From: George H. <geo...@us...> - 2011-03-31 11:34:50
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv1757
Modified Files:
Tag: V614XX
486ASM.F Primutil.f
Log Message:
Fixed CMPXCHG bug as per Alex. TNEGATE also fixed.
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.48
retrieving revision 1.48.2.1
diff -C2 -d -r1.48 -r1.48.2.1
*** Primutil.f 7 Feb 2010 07:27:20 -0000 1.48
--- Primutil.f 31 Mar 2011 11:34:48 -0000 1.48.2.1
***************
*** 337,344 ****
: TNEGATE ( t1lo t1mid t1hi -- t2lo t2mid t2hi )
! invert >r
! invert >r
! invert 0 -1. d+ s>d r> 0 d+
! r> + ;
: UT* ( ulo uhi u -- utlo utmid uthi )
--- 337,342 ----
: TNEGATE ( t1lo t1mid t1hi -- t2lo t2mid t2hi )
! >r 2dup or dup if drop dnegate 1 then
! r> + negate ;
: UT* ( ulo uhi u -- utlo utmid uthi )
Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.6.4.2
retrieving revision 1.6.4.3
diff -C2 -d -r1.6.4.2 -r1.6.4.3
*** 486ASM.F 7 Aug 2010 20:42:10 -0000 1.6.4.2
--- 486ASM.F 31 Mar 2011 11:34:48 -0000 1.6.4.3
***************
*** 1776,1780 ****
04f0f ' bs-compile opcode cmovnle \ ' cmovnle alias cmovg
04f0f ' bs-compile opcode cmovg
! 0bc ' xchg&alu-compile opcode cmpxchg
0 ' cmpxchg8b-comp opcode cmpxchg8b
0a20f ' 2byte opcode cpuid
--- 1776,1780 ----
04f0f ' bs-compile opcode cmovnle \ ' cmovnle alias cmovg
04f0f ' bs-compile opcode cmovg
! 0b0 ' xchg&alu-compile opcode cmpxchg
0 ' cmpxchg8b-comp opcode cmpxchg8b
0a20f ' 2byte opcode cpuid
|
|
From: George H. <geo...@us...> - 2011-03-31 08:08:40
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv32628
Modified Files:
486ASM.F ENVIRON.F Extend.f
Log Message:
Fixed CMPXCHG bug as per Alex. Changes for 200X structures (part 1).
Index: ENVIRON.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ENVIRON.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ENVIRON.F 25 Jun 2008 18:48:22 -0000 1.7
--- ENVIRON.F 31 Mar 2011 08:08:38 -0000 1.8
***************
*** 69,73 ****
: X:REQUIRED ;
: X:DEFERRED ;
! \ : X:PARSE-NAME ; \ Not yet
\ : X:EKEYS ; \ Not sure
--- 69,76 ----
: X:REQUIRED ;
: X:DEFERRED ;
! : X:PARSE-NAME ;
! : X:NUMBER-PREFIX ;
! LOADED? SRC\STRUCT200X.F [IF]
! : X:STRUCTURES ; [THEN]
\ : X:EKEYS ; \ Not sure
Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Extend.f 16 Jan 2010 14:11:05 -0000 1.25
--- Extend.f 31 Mar 2011 08:08:38 -0000 1.26
***************
*** 45,48 ****
--- 45,49 ----
FLOAD src\mapfile.f \ Windows32 file into memory mapping words
sys-FLOAD src\environ.f \ environment? support
+ \ FLOAD src\struct200X.f \ 200X structure words
FLOAD src\utils.f \ load other misc utility words
Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 486ASM.F 7 Aug 2010 21:16:27 -0000 1.8
--- 486ASM.F 31 Mar 2011 08:08:38 -0000 1.9
***************
*** 1776,1780 ****
04f0f ' bs-compile opcode cmovnle
04f0f ' bs-compile opcode cmovg
! 0bc ' xchg&alu-compile opcode cmpxchg
0 ' cmpxchg8b-comp opcode cmpxchg8b
0a20f ' 2byte opcode cpuid
--- 1776,1780 ----
04f0f ' bs-compile opcode cmovnle
04f0f ' bs-compile opcode cmovg
! 0b0 ' xchg&alu-compile opcode cmpxchg
0 ' cmpxchg8b-comp opcode cmpxchg8b
0a20f ' 2byte opcode cpuid
|
1040 messages has been excluded from this view by a project administrator.
