win32forth-cvs Mailing List for Win32Forth (Page 11)

Brought to you by: alex_mcdonald, dbu_de, dbude, georgeahubert, and 2 others

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

Flat | Threaded

<< < 1 .. 9 10 11 12 13 .. 113 > >> (Page 11 of 113)

[Win32forth-cvs] win32forth/src Module.f,1.6,1.7

From: George H. <geo...@us...> - 2012-05-08 19:25:34

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv21791

Modified Files:
	Module.f 
Log Message:
Suppressed warning message

Index: Module.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Module.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Module.f	26 Feb 2012 20:03:49 -0000	1.6
--- Module.f	8 May 2012 19:25:32 -0000	1.7
***************
*** 95,99 ****
                   pre-voc if module then ;
  
! reset-stack-chain chain-add (RESET-STACKS)
  
  only forth also definitions
--- 95,99 ----
                   pre-voc if module then ;
  
! \in-system-ok reset-stack-chain chain-add (RESET-STACKS)
  
  only forth also definitions

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.86,1.87

From: George H. <geo...@us...> - 2012-05-08 19:23:16

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv21705

Modified Files:
	fkernel.f 
Log Message:
Changed IMMEDIATE to set the precedent bit rather than toggle it.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.86
retrieving revision 1.87
diff -C2 -d -r1.86 -r1.87
*** fkernel.f	3 Mar 2012 09:15:14 -0000	1.86
--- fkernel.f	8 May 2012 19:23:14 -0000	1.87
***************
*** 3352,3359 ****
  
  : IMMEDIATE     ( -- )  \ mark the last header created as an immediate word
!                 LAST @ N>BFA BFA_IMMEDIATE TOGGLE ;
  
  \ Deprecated words will be removed from Win32Forth some time in the
! \ future. When a deprecated word is used a warning message will be showen.
  : DEPRECATED    ( -- )  \ mark the last header created as a deprecated word
                  LAST @ N>BFA BFA_DEPRECATED TOGGLE ;
--- 3352,3359 ----
  
  : IMMEDIATE     ( -- )  \ mark the last header created as an immediate word
!                 LAST @ N>BFA BFA_IMMEDIATE ( TOGGLE ) over c@ or swap c! ;
  
  \ Deprecated words will be removed from Win32Forth some time in the
! \ future. When a deprecated word is used a warning message will be shown.
  : DEPRECATED    ( -- )  \ mark the last header created as a deprecated word
                  LAST @ N>BFA BFA_DEPRECATED TOGGLE ;

[Win32forth-cvs] win32forth/Help/html class-generic.htm, 1.1, 1.2 dexh-webserver.htm, 1.1, 1.2 w32f-MoveTo.6.14.htm, 1.3, 1.4

From: George H. <geo...@us...> - 2012-03-03 09:15:16

Update of /cvsroot/win32forth/win32forth/Help/html
In directory vz-cvs-4.sog:/tmp/cvs-serv28309/Help/html

Modified Files:
	class-generic.htm dexh-webserver.htm w32f-MoveTo.6.14.htm 
Log Message:
Moved zeroing of windows to save time plus other optimisations and updated help darabase and docs.

Index: dexh-webserver.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-webserver.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dexh-webserver.htm	17 Nov 2011 21:57:09 -0000	1.1
--- dexh-webserver.htm	3 Mar 2012 09:15:14 -0000	1.2
***************
*** 32,36 ****
  Assuming that the file p-index.htm is in your webpath. <br />
  When you would like to use the websever over the internet. <br />
! you must replace &quot;localhost&quot; by your IP-adres. <br />
! The IP-adres can be seen at http://checkip.dyndns.org <br />
  </p></body></html>
--- 32,36 ----
  Assuming that the file p-index.htm is in your webpath. <br />
  When you would like to use the websever over the internet. <br />
! you must replace &quot;localhost&quot; by your IP-adress. <br />
! The IP-adress can be seen at http://checkip.dyndns.org <br />
  </p></body></html>

Index: w32f-MoveTo.6.14.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-MoveTo.6.14.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** w32f-MoveTo.6.14.htm	8 Aug 2009 19:02:55 -0000	1.3
--- w32f-MoveTo.6.14.htm	3 Mar 2012 09:15:14 -0000	1.4
***************
*** 54,58 ****
  
  <p>If you had any application specific initializations in your own definitions
! for BOOT or DEFAULT-HELLO , move them in your programm's main.  Delete the
  words you were using as BOOT and DEFAULT-HELLO .</p>
  
--- 54,58 ----
  
  <p>If you had any application specific initializations in your own definitions
! for BOOT or DEFAULT-HELLO , move them in your programm's main word.  Delete the
  words you were using as BOOT and DEFAULT-HELLO .</p>
  
***************
*** 66,70 ****
  
  <p>Replace FSAVE and APPLICATION with SAVE : don't forget to give your programm's
! main as the application cfa of SAVE . <br>(TURNKEY remains the same)</p>
  
  <p><br>Then :<br></p>
--- 66,70 ----
  
  <p>Replace FSAVE and APPLICATION with SAVE : don't forget to give your programm's
! main word as the application cfa of SAVE . <br>(TURNKEY remains the same)</p>
  
  <p><br>Then :<br></p>
***************
*** 73,77 ****
  remove any reference to :</p>
  <pre>     NoConsole NoConsoleInImage</pre>
! <p>and remove from your programm's main :</p>
  <pre>     Turnkeyed? if MessageLoop Bye then</pre>
  
--- 73,77 ----
  remove any reference to :</p>
  <pre>     NoConsole NoConsoleInImage</pre>
! <p>and remove from your programm's main word:</p>
  <pre>     Turnkeyed? if MessageLoop Bye then</pre>
  
***************
*** 85,89 ****
  <pre>     ConsoleHiddenBoot</pre>
  <p>before your SAVE or TURNKEY command and do whatever further console
! initialization in your programm's main.</p>
  
  
--- 85,89 ----
  <pre>     ConsoleHiddenBoot</pre>
  <p>before your SAVE or TURNKEY command and do whatever further console
! initialization in your programm's main word.</p>
  
  

Index: class-generic.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/class-generic.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** class-generic.htm	17 Nov 2011 21:57:09 -0000	1.1
--- class-generic.htm	3 Mar 2012 09:15:14 -0000	1.2
***************
*** 54,59 ****
  </code></b><br>Set the window handle. Normally handled by the system.
  </p><p><b><code>:M ZeroWindow: &nbsp;( -- )
! </code></b><br>Clear the window handle. Normally handled by the system. At start-up all window
! objects are zeroed automatically.
  </p><p><b><code>:M DestroyWindow: ( -- )
  </code></b><br>Destroy the window. The handle is always zero after executing this method. In a
--- 54,59 ----
  </code></b><br>Set the window handle. Normally handled by the system.
  </p><p><b><code>:M ZeroWindow: &nbsp;( -- )
! </code></b><br>Clear the window handle. Normally handled by the system. At all window
! handles are zeroed automatically in the image when saving.
  </p><p><b><code>:M DestroyWindow: ( -- )
  </code></b><br>Destroy the window. The handle is always zero after executing this method. In a

[Win32forth-cvs] win32forth/Help/hdb HelpWrd.hdb, 1.18, 1.19 HelpWrd.ndx, 1.18, 1.19 HelpWrd.tv, 1.17, 1.18 HelpWrd.txt, 1.18, 1.19

From: George H. <geo...@us...> - 2012-02-27 15:07:05

Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv9229

Modified Files:
	HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt 
Log Message:
Updated help database

Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** HelpWrd.txt	26 Feb 2012 20:01:35 -0000	1.18
--- HelpWrd.txt	27 Feb 2012 15:07:03 -0000	1.19
***************
*** 1448,1453 ****
  BYTES &PS 
  : (CLASSINIT) ( n1 -- ) 
- : (CLASSINIT) ( x y width height -- ) 
  : (CLASSINIT) ( -- ) 
  CONSTANT 1/1 
  CONSTANT 1/2 
--- 1448,1453 ----
  BYTES &PS 
  : (CLASSINIT) ( n1 -- ) 
  : (CLASSINIT) ( -- ) 
[...1085 lines suppressed...]
  INT PARENT 
  INT PARENT 
  INT PID 
***************
*** 13263,13269 ****
  INT PM \ temp for popup menu list processing
  INT PM \ temp for popup menu list processing
- INT POPID \ handle of this items popup menu
  INT POPID 
  INT POPID 
  |CLASS POPUP 
  |CLASS POPUP 
--- 13263,13269 ----
  INT PM \ temp for popup menu list processing
  INT PM \ temp for popup menu list processing
  INT POPID 
  INT POPID 
+ INT POPID \ handle of this items popup menu
  |CLASS POPUP 
  |CLASS POPUP 

Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
Binary files /tmp/cvsWAkyT6 and /tmp/cvsNwmcdo differ

Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** HelpWrd.tv	26 Feb 2012 20:01:35 -0000	1.17
--- HelpWrd.tv	27 Feb 2012 15:07:03 -0000	1.18
***************
*** 2299,2304 ****
  -3 tvn| :MENUFUNC| tvd| 8068|
  2 tvn| #DIRS:| tvd| 0|
- -3 tvn| FOLDERTREE| tvd| 7253|
  -3 tvn| FILEWINDOW| tvd| 7737|
  2 tvn| #FILES:| tvd| 0|
  -3 tvn| FOLDERTREE| tvd| 7254|
--- 2299,2304 ----
  -3 tvn| :MENUFUNC| tvd| 8068|
  2 tvn| #DIRS:| tvd| 0|
  -3 tvn| FILEWINDOW| tvd| 7737|
[...11344 lines suppressed...]
  2 tvn| REL>ABS| tvd| 5373|
  2 tvn| TASK-SLEEP| tvd| 2595|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5075|
  1 tvn| Vocabularies| tvd| 0|
  2 tvn| Application space| tvd| 0|
--- 14578,14591 ----
  2 tvn| {| tvd| 5424|
  2 tvn| {:| tvd| 5423|
! 2 tvn| |IF| tvd| 4926|
! 2 tvn| |OF| tvd| 4925|
  1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5076|
! 2 tvn| >BOLD| tvd| 4137|
! 2 tvn| >NORM| tvd| 4136|
  2 tvn| ABS>REL| tvd| 5372|
  2 tvn| REL>ABS| tvd| 5373|
  2 tvn| TASK-SLEEP| tvd| 2595|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5074|
  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.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
Binary files /tmp/cvsiKeI3c and /tmp/cvsrBjeFu differ

[Win32forth-cvs] win32forth/src/kernel fkernel.f, 1.84, 1.85 meta-compiler.f, 1.8, 1.9

From: George H. <geo...@us...> - 2012-02-27 15:04:56

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv8007/kernel

Modified Files:
	fkernel.f meta-compiler.f 
Log Message:
Modified meta-compiler so link, works across  multiple spaces and moved some errors to system space plus minor mods.

Index: meta-compiler.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** meta-compiler.f	3 Aug 2008 11:08:50 -0000	1.8
--- meta-compiler.f	27 Feb 2012 15:04:54 -0000	1.9
***************
*** 112,119 ****
  : tcode-s,    ( addr len -- )      $90 ?do count tcode-c, loop drop ;
  
  \ section still requires work
  
! DEFER t-@
! DEFER t-!
  DEFER t-here
  DEFER t-allot
--- 112,128 ----
  : tcode-s,    ( addr len -- )      $90 ?do count tcode-c, loop drop ;
  
+ : tany-there  ( taddr -- addr )
+               dup tcode-base tcode-here within if tcode-there else
+               dup tapp-base  tapp-here  within if tapp-there  else
+               dup tsys-base  tsys-here  within if tsys-there  else
+               drop 0 then then then ;
+ 
+ : t-@         ( taddr -- n ) tany-there @ ;
+ : t-!         ( n taddr -- ) tany-there ! ;
+ 
  \ section still requires work
  
! \ DEFER t-@
! \ DEFER t-!
  DEFER t-here
  DEFER t-allot
***************
*** 125,130 ****
  
  : IN-APPLICATION ( -- )
!                 ['] TAPP-@       IS t-@
!                 ['] TAPP-!       IS t-!
                  ['] TAPP-HERE    IS t-here
                  ['] TAPP-ALLOT   IS t-allot
--- 134,139 ----
  
  : IN-APPLICATION ( -- )
! \                ['] TAPP-@       IS t-@
! \                ['] TAPP-!       IS t-!
                  ['] TAPP-HERE    IS t-here
                  ['] TAPP-ALLOT   IS t-allot
***************
*** 137,142 ****
  
  : IN-SYSTEM     ( -- )
!                 ['] TSYS-@       IS t-@
!                 ['] TSYS-!       IS t-!
                  ['] TSYS-HERE    IS t-here
                  ['] TSYS-ALLOT   IS t-allot
--- 146,151 ----
  
  : IN-SYSTEM     ( -- )
! \                ['] TSYS-@       IS t-@
! \                ['] TSYS-!       IS t-!
                  ['] TSYS-HERE    IS t-here
                  ['] TSYS-ALLOT   IS t-allot

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.84
retrieving revision 1.85
diff -C2 -d -r1.84 -r1.85
*** fkernel.f	17 Jan 2012 19:40:43 -0000	1.84
--- fkernel.f	27 Feb 2012 15:04:54 -0000	1.85
***************
*** 2089,2092 ****
--- 2089,2095 ----
  \ ANS defined
    THROW_MSGS LINK, THROW_STACKUNDER          , ," stack underflow"
+ 
+ in-system
+ 
    THROW_MSGS LINK, THROW_UNDEFINED           , ," is undefined"
    THROW_MSGS LINK, THROW_COMPONLY            , ," is compilation only"
***************
*** 2098,2101 ****
--- 2101,2107 ----
    THROW_MSGS LINK, THROW_NOTDEFER            , ," is not a DEFER"
    THROW_MSGS LINK, THROW_NOTVALUE            , ," is not a VALUE"
+ 
+ in-application
+ 
    THROW_MSGS LINK, THROW_OUTOFMEM            , ," out of memory"
    THROW_MSGS LINK, THROW_MEMALLOCFAIL        , ," memory allocation failed"
***************
*** 2104,2113 ****
    THROW_MSGS LINK, THROW_FILEREADFAIL        , ," read-file failed"
    THROW_MSGS LINK, THROW_FILEWRITEFAIL       , ," write-file failed"
    THROW_MSGS LINK, THROW_INTERPONLY          , ," is interpretation only"
    THROW_MSGS LINK, THROW_LOCALSTWICE         , ," locals defined twice"
    THROW_MSGS LINK, THROW_LOCALSTOOMANY       , ," too many locals"
    THROW_MSGS LINK, THROW_LOCALSNO}           , ," missing }"
-   THROW_MSGS LINK, THROW_PROCNOTFOUND        , ," procedure not found"
-   THROW_MSGS LINK, THROW_WINERR              , ," Windows DLL error"
    THROW_MSGS LINK, THROW_STACKCHG            , ," stack changed"
    THROW_MSGS LINK, THROW_METHEXIT            , ," can't be used in a method"
--- 2110,2122 ----
    THROW_MSGS LINK, THROW_FILEREADFAIL        , ," read-file failed"
    THROW_MSGS LINK, THROW_FILEWRITEFAIL       , ," write-file failed"
+   THROW_MSGS LINK, THROW_PROCNOTFOUND        , ," procedure not found"
+   THROW_MSGS LINK, THROW_WINERR              , ," Windows DLL error"
+ 
+ in-system
+ 
    THROW_MSGS LINK, THROW_INTERPONLY          , ," is interpretation only"
    THROW_MSGS LINK, THROW_LOCALSTWICE         , ," locals defined twice"
    THROW_MSGS LINK, THROW_LOCALSTOOMANY       , ," too many locals"
    THROW_MSGS LINK, THROW_LOCALSNO}           , ," missing }"
    THROW_MSGS LINK, THROW_STACKCHG            , ," stack changed"
    THROW_MSGS LINK, THROW_METHEXIT            , ," can't be used in a method"
***************
*** 2122,2125 ****
--- 2131,2136 ----
    THROW_MSGS LINK, WARN_SYSWORD3             , ," is an application word whose runtime is in a system word"
  
+ in-application
+ 
  | CREATE NULLMSG ," "                        \ no message text
  VARIABLE MSG     NULLMSG MSG !               \ message pointer
***************
*** 3448,3452 ****
                  HERE OVER @ , SWAP ! ;
  
- 
  \ -------------------- String Literals --------------------------------------
  
--- 3459,3462 ----

[Win32forth-cvs] win32forth/src Module.f,1.5,1.6

From: George H. <geo...@us...> - 2012-02-26 20:03:52

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv12002

Modified Files:
	Module.f 
Log Message:
Moved (reset-stacks) to system space

Index: Module.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Module.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Module.f	7 Feb 2006 11:25:49 -0000	1.5
--- Module.f	26 Feb 2012 20:03:49 -0000	1.6
***************
*** 92,106 ****
  \ January 22nd, 2004 - 13:53 dbu
  
- in-application
- 
  : (RESET-STACKS) ( -- ) \ Used by RESET-STACKS for protection
!                 TURNKEYED? NOT
! \in-system-ok   if   pre-voc if module then
!                 then ;
  
  reset-stack-chain chain-add (RESET-STACKS)
  
- in-system
- 
  only forth also definitions
  
--- 92,100 ----
  \ January 22nd, 2004 - 13:53 dbu
  
  : (RESET-STACKS) ( -- ) \ Used by RESET-STACKS for protection
!                  pre-voc if module then ;
  
  reset-stack-chain chain-add (RESET-STACKS)
  
  only forth also definitions

[Win32forth-cvs] win32forth/Help/hdb HelpCls.tv, 1.13, 1.14 HelpSrc.hdb, 1.6, 1.7 HelpWrd.hdb, 1.17, 1.18 HelpWrd.ndx, 1.17, 1.18 HelpWrd.tv, 1.16, 1.17 HelpWrd.txt, 1.17, 1.18

From: George H. <geo...@us...> - 2012-02-26 20:01:38

Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv11770/hdb

Modified Files:
	HelpCls.tv HelpSrc.hdb HelpWrd.hdb HelpWrd.ndx HelpWrd.tv 
	HelpWrd.txt 
Log Message:
Added Pre-save.f to help

Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** HelpCls.tv	26 Feb 2012 19:43:26 -0000	1.13
--- HelpCls.tv	26 Feb 2012 20:01:35 -0000	1.14
***************
*** 1,2291 ****
! 0 tvn| CLASSROOT| tvd| 5527|
  1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5528|
! -2 tvn| ~:| tvd| 5529|
! -2 tvn| ADDR:| tvd| 5530|
! -2 tvn| PRINT:| tvd| 5531|
! 1 tvn| OBJECT| tvd| 5532|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5533|
! -3 tvn| PUT:| tvd| 5534|
[...4553 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8593|
! -4 tvn| GETINT:| tvd| 8594|
! -4 tvn| GETDOUBLE:| tvd| 8595|
! -4 tvn| GETFLOAT:| tvd| 8596|
! -4 tvn| GETSTR:| tvd| 8597|
! -4 tvn| GETBLOB:| tvd| 8598|
! -4 tvn| ISNULL?:| tvd| 8599|
! -4 tvn| NEXTROW:| tvd| 8600|
! -4 tvn| (BIND):| tvd| 8601|
! -4 tvn| BINDINT:| tvd| 8602|
! -4 tvn| BINDDOUBLE:| tvd| 8603|
! -4 tvn| BINDFLOAT:| tvd| 8604|
! -4 tvn| BINDSTR:| tvd| 8605|
! -4 tvn| BINDBLOB:| tvd| 8606|
! 1 tvn| STRING| tvd| 8613|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8614|
! -3 tvn| PUT:| tvd| 8615|
! -3 tvn| ADD:| tvd| 8616|
! -3 tvn| APPEND:| tvd| 8617|

Index: HelpSrc.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSrc.hdb,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
Binary files /tmp/cvs7hx7xO and /tmp/cvsV5Hvgp differ

Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** HelpWrd.txt	26 Feb 2012 19:43:26 -0000	1.17
--- HelpWrd.txt	26 Feb 2012 20:01:35 -0000	1.18
***************
*** 1447,1453 ****
  CREATE USERCONFIG$ 
  BYTES &PS 
- : (CLASSINIT) ( -- ) 
- : (CLASSINIT) ( x y width height -- ) 
  : (CLASSINIT) ( n1 -- ) 
  CONSTANT 1/1 
  CONSTANT 1/2 
--- 1447,1453 ----
  CREATE USERCONFIG$ 
  BYTES &PS 
[...1207 lines suppressed...]
  INT PM \ temp for popup menu list processing
  INT PM \ temp for popup menu list processing
+ INT POPID \ handle of this items popup menu
  INT POPID 
  INT POPID 
  |CLASS POPUP 
  |CLASS POPUP 
***************
*** 13598,13601 ****
--- 13598,13607 ----
  \ Allocate MAXSTRING bytes from the dynamic string buffer and return the address. Used as the normal action
  \ of NEW$ except during the early stages of initialisation, when NEW$ is a static buffer.
+ : TRIM-IMAGE-CHAINS ( -- ) 
+ \ Trim chains in image.
+ : TRIM-IMAGE-ERRORS ( -- ) 
+ : TRIM-IMAGE-LIST ( addr -- ) 
+ \ Given the head of a list or chain remove all those items not in the image.
+ \ This is designed to be used as part of the pre-save-image-chain.
  CONSTANT #MLISTS \ Number of method lists; must be a non-zero power of 2.
  CFA-CODE (&IV) 

Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
Binary files /tmp/cvsttxMXQ and /tmp/cvsP6W3Lr differ

Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** HelpWrd.tv	26 Feb 2012 19:43:26 -0000	1.16
--- HelpWrd.tv	26 Feb 2012 20:01:35 -0000	1.17
***************
*** 1,5278 ****
  0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5527|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5528|
! -3 tvn| ~:| tvd| 5529|
! -3 tvn| ADDR:| tvd| 5530|
! -3 tvn| PRINT:| tvd| 5531|
! 2 tvn| OBJECT| tvd| 5532|
  3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5533|
[...22702 lines suppressed...]
! 2 tvn| \+| tvd| 5346|
! 2 tvn| \-| tvd| 5347|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5352|
! 2 tvn| \S| tvd| 5401|
! 2 tvn| ]MACRO| tvd| 5238|
! 2 tvn| __STDCALL| tvd| 5229|
! 2 tvn| {| tvd| 5424|
! 2 tvn| {:| tvd| 5423|
  2 tvn| |IF| tvd| 4927|
  2 tvn| |OF| tvd| 4926|
  1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5077|
  2 tvn| >BOLD| tvd| 4138|
  2 tvn| >NORM| tvd| 4137|
! 2 tvn| ABS>REL| tvd| 5372|
! 2 tvn| REL>ABS| tvd| 5373|
  2 tvn| TASK-SLEEP| tvd| 2595|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5075|
  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.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
Binary files /tmp/cvsBOWlsx and /tmp/cvs0wNjV9 differ

[Win32forth-cvs] win32forth/Help HelpScope.f,1.7,1.8

From: George H. <geo...@us...> - 2012-02-26 20:01:37

Update of /cvsroot/win32forth/win32forth/Help
In directory vz-cvs-4.sog:/tmp/cvs-serv11770

Modified Files:
	HelpScope.f 
Log Message:
Added Pre-save.f to help

Index: HelpScope.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpScope.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HelpScope.f	21 Jul 2011 18:35:17 -0000	1.7
--- HelpScope.f	26 Feb 2012 20:01:35 -0000	1.8
***************
*** 178,181 ****
--- 178,182 ----
  SrcScope: src\editor_io.f        \ editor/console Communication
  SrcScope: src\imageman.f         \ (sys) fsave, application & turnkey words
+ SrcScope: src\Pre-save.f
  
  SrcScope: src\dbgsrc1.f          \ (sys) source level debugging #1

[Win32forth-cvs] win32forth/Help/hdb Help.cfg, 1.8, 1.9 HelpCls.tv, 1.12, 1.13 HelpWrd.hdb, 1.16, 1.17 HelpWrd.ndx, 1.16, 1.17 HelpWrd.tv, 1.15, 1.16 HelpWrd.txt, 1.16, 1.17

From: George H. <geo...@us...> - 2012-02-26 19:43:30

Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv9585

Modified Files:
	Help.cfg 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.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** HelpCls.tv	17 Jan 2012 21:07:46 -0000	1.12
--- HelpCls.tv	26 Feb 2012 19:43:26 -0000	1.13
***************
*** 1,781 ****
! 0 tvn| CLASSROOT| tvd| 5517|
  1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5518|
! -2 tvn| ~:| tvd| 5519|
! -2 tvn| ADDR:| tvd| 5520|
! -2 tvn| PRINT:| tvd| 5521|
! 1 tvn| OBJECT| tvd| 5522|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5523|
! -3 tvn| PUT:| tvd| 5524|
[...4550 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8590|
! -4 tvn| GETINT:| tvd| 8591|
! -4 tvn| GETDOUBLE:| tvd| 8592|
! -4 tvn| GETFLOAT:| tvd| 8593|
! -4 tvn| GETSTR:| tvd| 8594|
! -4 tvn| GETBLOB:| tvd| 8595|
! -4 tvn| ISNULL?:| tvd| 8596|
! -4 tvn| NEXTROW:| tvd| 8597|
! -4 tvn| (BIND):| tvd| 8598|
! -4 tvn| BINDINT:| tvd| 8599|
! -4 tvn| BINDDOUBLE:| tvd| 8600|
! -4 tvn| BINDFLOAT:| tvd| 8601|
! -4 tvn| BINDSTR:| tvd| 8602|
! -4 tvn| BINDBLOB:| tvd| 8603|
! 1 tvn| STRING| tvd| 8610|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8611|
! -3 tvn| PUT:| tvd| 8612|
! -3 tvn| ADD:| tvd| 8613|
! -3 tvn| APPEND:| tvd| 8614|

Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Help.cfg	17 Jan 2012 21:07:46 -0000	1.8
--- Help.cfg	26 Feb 2012 19:43:25 -0000	1.9
***************
*** 3,7 ****
  [WindowW] 1021
  [WindowH] 708
! [SplitterV] 285
  [SplitterH] 112
    
\ No newline at end of file
--- 3,7 ----
  [WindowW] 1021
  [WindowH] 708
! [SplitterV] 201
  [SplitterH] 112
    
\ No newline at end of file

Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** HelpWrd.txt	17 Jan 2012 21:07:46 -0000	1.16
--- HelpWrd.txt	26 Feb 2012 19:43:26 -0000	1.17
***************
*** 1498,1506 ****
  INT BX 
  INT BY 
- :M CLASSINIT: ( n1 -- ) 
- :M CLASSINIT: ( n1 -- ) 
- :M CLASSINIT: ( -- ) 
- :M CLASSINIT: ( editWidth -- ) 
- :M CLASSINIT: ( -- ) 
  :M CLASSINIT: ( editWidth -- ) 
  :M CLASSINIT: ( -- ) 
--- 1498,1501 ----
[...1170 lines suppressed...]
  :M START: ( parent -- ) 
  :M START: ( parent -- ) 
***************
*** 13815,13818 ****
--- 13821,13827 ----
  \  NOTE  this word also executes PROC, which can be aliased with AS that behaves the same as if
  \ c PROC "name" has been executed.
+ : IN-APP-SPACE? ( addr -- flag ) 
+ : IN-CODE-SPACE? ( addr -- flag ) 
+ : IN-SYS-SPACE? ( addr -- flag ) 
  : INIT-HANDLES ( -- ) 
  : INIT-SYSTEM-LOCKS-OFF ( -- ) 
***************
*** 13853,13856 ****
--- 13862,13866 ----
  \ any pending message can be handled.
  NEW-SYS-CHAIN POST-FORGET-CHAIN \ chain of types of things to forget
+ NEW-SYS-CHAIN PRE-SAVE-IMAGE-CHAIN \ chain for things to be done to an image prior to saving
  VALUE PROC_NEXT \ next procedure value
  : RADIX: ( n1 -<name>- ) 

Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
Binary files /tmp/cvsI7WJow and /tmp/cvsVaoHVL differ

Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** HelpWrd.tv	17 Jan 2012 21:07:46 -0000	1.15
--- HelpWrd.tv	26 Feb 2012 19:43:26 -0000	1.16
***************
*** 1,782 ****
  0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5517|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5518|
! -3 tvn| ~:| tvd| 5519|
! -3 tvn| ADDR:| tvd| 5520|
! -3 tvn| PRINT:| tvd| 5521|
! 2 tvn| OBJECT| tvd| 5522|
  3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5523|
[...28453 lines suppressed...]
! 2 tvn| \+| tvd| 5343|
! 2 tvn| \-| tvd| 5344|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5349|
! 2 tvn| \S| tvd| 5398|
! 2 tvn| ]MACRO| tvd| 5235|
! 2 tvn| __STDCALL| tvd| 5226|
! 2 tvn| {| tvd| 5421|
! 2 tvn| {:| tvd| 5420|
! 2 tvn| |IF| tvd| 4927|
! 2 tvn| |OF| tvd| 4926|
  1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5074|
! 2 tvn| >BOLD| tvd| 4138|
! 2 tvn| >NORM| tvd| 4137|
! 2 tvn| ABS>REL| tvd| 5369|
! 2 tvn| REL>ABS| tvd| 5370|
! 2 tvn| TASK-SLEEP| tvd| 2595|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5072|
  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.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
Binary files /tmp/cvsVmMHj6 and /tmp/cvsmeaPrp differ

[Win32forth-cvs] win32forth/src/lib BLOCK.F,1.7,1.8

From: George H. <geo...@us...> - 2012-02-26 16:44:01

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv13989/lib

Modified Files:
	BLOCK.F 
Log Message:
Added new file Pre-save. to remove things from or modify images prior to saving plus moved somes error messages to system space (work in progress) plus other minor modifications

Index: BLOCK.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/BLOCK.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** BLOCK.F	19 Aug 2011 21:22:32 -0000	1.7
--- BLOCK.F	26 Feb 2012 16:43:59 -0000	1.8
***************
*** 275,280 ****
          else    >in off
                  blockhandle to source-id \ ?loading on
!                 blk @ 1+ b/buf block (source) 2!
!                 true
          then    ;
  
--- 275,279 ----
          else    >in off
                  blockhandle to source-id \ ?loading on
!                 1 blk tuck +! @ block b/buf (source) 2! true
          then    ;

[Win32forth-cvs] win32forth/demos pentom.f,1.2,1.3

From: George H. <geo...@us...> - 2012-02-15 19:39:46

Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv3198

Modified Files:
	pentom.f 
Log Message:
Added Authors name and $Id:$

Index: pentom.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/pentom.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** pentom.f	5 May 2005 09:43:29 -0000	1.2
--- pentom.f	15 Feb 2012 19:39:44 -0000	1.3
***************
*** 1,2 ****
--- 1,6 ----
+ \ $Id$
+ 
+ \ by Bruce Hoyt
+ 
  \ Compiling options
  0 constant mute                         \ disable printing for benchmark
***************
*** 225,227 ****
  
  elapse pentom
-

[Win32forth-cvs] win32forth/demos WINSER.F,1.5,1.6

From: George H. <geo...@us...> - 2012-02-15 19:37:08

Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv1992

Modified Files:
	WINSER.F 
Log Message:
Changed local char to charin to avoid confusion with standard word CHAR

Index: WINSER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINSER.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** WINSER.F	19 Apr 2011 20:30:03 -0000	1.5
--- WINSER.F	15 Feb 2012 19:37:06 -0000	1.6
***************
*** 238,244 ****
                  0 to Com2key-flg? ;             \ clear the save buffer
  
! : Com2emit      { char -- }     \ write a character to the serial port
                  begin
!                      &OF char 1 Com2Hndl write-file
                       if
                          Com2Hndl ComErrorClear drop
--- 238,244 ----
                  0 to Com2key-flg? ;             \ clear the save buffer
  
! : Com2emit      { charin -- }     \ write a character to the serial port
                  begin
!                      &OF charin 1 Com2Hndl write-file
                       if
                          Com2Hndl ComErrorClear drop

[Win32forth-cvs] win32forth/Templates MinimalWindow.f, 1.2, 1.3 SplitterWindow2.f, 1.2, 1.3 TreeViewInSplitWindow.f, 1.4, 1.5

From: Jos v.d.V. <jo...@us...> - 2012-02-14 13:59:24

Update of /cvsroot/win32forth/win32forth/Templates
In directory vz-cvs-4.sog:/tmp/cvs-serv21592

Modified Files:
	MinimalWindow.f SplitterWindow2.f TreeViewInSplitWindow.f 
Log Message:
Jos Removed Close: self from On_Done: since it might cause a loop

Index: SplitterWindow2.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/SplitterWindow2.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SplitterWindow2.f	17 Aug 2008 15:04:24 -0000	1.2
--- SplitterWindow2.f	14 Feb 2012 13:59:21 -0000	1.3
***************
*** 153,157 ****
  
  :M On_Done:     ( h m w l -- res )
-         Close: self
          0 call PostQuitMessage drop
          On_Done: super 0
--- 153,156 ----
***************
*** 171,175 ****
          turnkey? if MessageLoop bye then  ;
  
! turnkey? [if]
          ' main turnkey App.exe
          s" WIN32FOR.ICO" s" App.exe" AddAppIcon
--- 170,174 ----
          turnkey? if MessageLoop bye then  ;
  
! turnkey? not [if]
          ' main turnkey App.exe
          s" WIN32FOR.ICO" s" App.exe" AddAppIcon

Index: TreeViewInSplitWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/TreeViewInSplitWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TreeViewInSplitWindow.f	3 Jun 2010 08:56:38 -0000	1.4
--- TreeViewInSplitWindow.f	14 Feb 2012 13:59:21 -0000	1.5
***************
*** 271,275 ****
  
  :M On_Done:     ( h m w l -- res )
-         Close: self
          0 call PostQuitMessage drop
          On_Done: super 0
--- 271,274 ----

Index: MinimalWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Templates/MinimalWindow.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MinimalWindow.f	17 Aug 2008 15:04:24 -0000	1.2
--- MinimalWindow.f	14 Feb 2012 13:59:21 -0000	1.3
***************
*** 19,23 ****
  
  :M On_Done:             ( -- )
-                         Close: self
                          0 call PostQuitMessage drop
                          On_Done: super 0
--- 19,22 ----

[Win32forth-cvs] win32forth/src/lib/fmacro FMACRO.F,1.5,1.6

From: Jos v.d.V. <jo...@us...> - 2012-01-17 21:41:00

Update of /cvsroot/win32forth/win32forth/src/lib/fmacro
In directory vz-cvs-4.sog:/tmp/cvs-serv16132

Modified Files:
	FMACRO.F 
Log Message:
Jos a small bugfix.

Index: FMACRO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** FMACRO.F	18 Dec 2011 14:26:03 -0000	1.5
--- FMACRO.F	17 Jan 2012 21:40:58 -0000	1.6
***************
*** 1,5 ****
  \ needs src\old\optimize.f \ load the optimizer here when you would like to see its effect.
  
! anew fmacro.f \ December 26th, 2004 by J.v.d.Ven
  
  ((
--- 1,5 ----
  \ needs src\old\optimize.f \ load the optimizer here when you would like to see its effect.
  
! anew fmacro.f \ January 17th, 2012  by J.v.d.Ven
  
  ((
***************
*** 173,177 ****
                      when you are using the user-area.
  December 18th, 2011 addr@+ addr@< faddr@  faddr! are now also able to use the user-area
! 
  ))
  
--- 173,177 ----
                      when you are using the user-area.
  December 18th, 2011 addr@+ addr@< faddr@  faddr! are now also able to use the user-area
! January  17th, 2012 Bugfix in FLD_extended|double_[edx] and FSTP_extended|double_[edx]
  ))
  
***************
*** 223,227 ****
  B/FLOAT 10 =
  [IF]    $AFDB to FLD_extended|double       $BFDB to FSTP_extended|double
!         $AADD to FLD_extended|double_[edx] $BADD to FSTP_extended|double_[edx]
  [ELSE]  $87DD to FLD_extended|double       $9FDD to FSTP_extended|double
          $82DD to FLD_extended|double_[edx] $9ADD to FSTP_extended|double_[edx]
--- 223,227 ----
  B/FLOAT 10 =
  [IF]    $AFDB to FLD_extended|double       $BFDB to FSTP_extended|double
!         $AADB to FLD_extended|double_[edx] $BADB to FSTP_extended|double_[edx]
  [ELSE]  $87DD to FLD_extended|double       $9FDD to FSTP_extended|double
          $82DD to FLD_extended|double_[edx] $9ADD to FSTP_extended|double_[edx]
***************
*** 1016,1037 ****
  
  
!  ((  >>> Disable or delete this line to run the following BM test
  
  
  \ needs profiler.f
  
! \  B/FLOAT newuser t1
!  fvariable t1
  fvariable t2
  fvariable t3
  
! 99 t1 !
! 20001e t2 f!
  
  
  
  code BM
!      addr t1
! \     t1 faddr@+
  \     t1 faddr!
     next,   end-code
--- 1016,1037 ----
  
  
!  ((  >>> Disable or delete this line to run the following BM test section
  
  
  \ needs profiler.f
  
!   B/FLOAT newuser t1
! \ fvariable t1
  fvariable t2
  fvariable t3
  
! \ 99 t1 !
! 20001e t1 f!
  
  
  
  code BM
!       s>f t1 faddr!
! \     t1  faddr@
  \     t1 faddr!
     next,   end-code
***************
*** 1040,1044 ****
   see bm
  
! : x11   3 bm @ .s ;
  
   cr   x11  .s
--- 1040,1044 ----
   see bm
  
! : x11   20001 bm  t1 f@ f. ;
  
   cr   x11  .s

[Win32forth-cvs] win32forth/apps/PlayVirginRadio PlayVirginRadio.f, 1.18, 1.19

From: George H. <geo...@us...> - 2012-01-17 21:12:27

Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio
In directory vz-cvs-4.sog:/tmp/cvs-serv10106/PlayVirginRadio

Modified Files:
	PlayVirginRadio.f 
Log Message:
Added checksum

Index: PlayVirginRadio.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** PlayVirginRadio.f	19 Aug 2011 14:39:38 -0000	1.18
--- PlayVirginRadio.f	17 Jan 2012 21:12:25 -0000	1.19
***************
*** 179,183 ****
                 s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon
          [then]
! 
  
          1 pause-seconds bye
--- 179,184 ----
                 s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon
          [then]
!         Require Checksum.f
!         s" PlayVirginRadio.exe" prepend<home>\ (AddCheckSum)
  
          1 pause-seconds bye

[Win32forth-cvs] win32forth/Help/hdb Help.cfg, 1.7, 1.8 HelpCls.tv, 1.11, 1.12 HelpWrd.hdb, 1.15, 1.16 HelpWrd.ndx, 1.15, 1.16 HelpWrd.tv, 1.14, 1.15 HelpWrd.txt, 1.15, 1.16

From: George H. <geo...@us...> - 2012-01-17 21:07:51

Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv9611/hdb

Modified Files:
	Help.cfg HelpCls.tv HelpWrd.hdb HelpWrd.ndx HelpWrd.tv 
	HelpWrd.txt 
Log Message:
Added checksum and updated database

Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HelpCls.tv	18 Nov 2011 11:40:15 -0000	1.11
--- HelpCls.tv	17 Jan 2012 21:07:46 -0000	1.12
***************
*** 1,2291 ****
! 0 tvn| CLASSROOT| tvd| 5516|
  1 tvn| -methods-| tvd| 0|
! -2 tvn| CLASSINIT:| tvd| 5517|
! -2 tvn| ~:| tvd| 5518|
! -2 tvn| ADDR:| tvd| 5519|
! -2 tvn| PRINT:| tvd| 5520|
! 1 tvn| OBJECT| tvd| 5521|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 5522|
! -3 tvn| PUT:| tvd| 5523|
[...4553 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8580|
! -4 tvn| GETINT:| tvd| 8581|
! -4 tvn| GETDOUBLE:| tvd| 8582|
! -4 tvn| GETFLOAT:| tvd| 8583|
! -4 tvn| GETSTR:| tvd| 8584|
! -4 tvn| GETBLOB:| tvd| 8585|
! -4 tvn| ISNULL?:| tvd| 8586|
! -4 tvn| NEXTROW:| tvd| 8587|
! -4 tvn| (BIND):| tvd| 8588|
! -4 tvn| BINDINT:| tvd| 8589|
! -4 tvn| BINDDOUBLE:| tvd| 8590|
! -4 tvn| BINDFLOAT:| tvd| 8591|
! -4 tvn| BINDSTR:| tvd| 8592|
! -4 tvn| BINDBLOB:| tvd| 8593|
! 1 tvn| STRING| tvd| 8600|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8601|
! -3 tvn| PUT:| tvd| 8602|
! -3 tvn| ADD:| tvd| 8603|
! -3 tvn| APPEND:| tvd| 8604|

Index: Help.cfg
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Help.cfg	18 Nov 2011 01:36:48 -0000	1.7
--- Help.cfg	17 Jan 2012 21:07:46 -0000	1.8
***************
*** 3,7 ****
  [WindowW] 1021
  [WindowH] 708
! [SplitterV] 282
  [SplitterH] 112
    
\ No newline at end of file
--- 3,7 ----
  [WindowW] 1021
  [WindowH] 708
! [SplitterV] 285
  [SplitterH] 112
    
\ No newline at end of file

Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** HelpWrd.txt	18 Nov 2011 11:40:15 -0000	1.15
--- HelpWrd.txt	17 Jan 2012 21:07:46 -0000	1.16
***************
*** 1447,1453 ****
  CREATE USERCONFIG$ 
  BYTES &PS 
- : (CLASSINIT) ( n1 -- ) 
- : (CLASSINIT) ( x y width height -- ) 
  : (CLASSINIT) ( -- ) 
  CONSTANT 1/1 
  CONSTANT 1/2 
--- 1447,1453 ----
  CREATE USERCONFIG$ 
  BYTES &PS 
  : (CLASSINIT) ( -- ) 
+ : (CLASSINIT) ( x y width height -- ) 
+ : (CLASSINIT) ( n1 -- ) 
  CONSTANT 1/1 
  CONSTANT 1/2 
***************
*** 1493,1512 ****
  : BUTTON+H ( -- n1 ) 
  : BUTTON+V ( -- n1 ) 
- INT BVOFFSET \ Vertical offset
  INT BVOFFSET \ vertical   offset
  INT BWIDTH 
  INT BX 
  INT BY 
! :M CLASSINIT: ( -<toolbarname>- ) 
! \ follow by .BMP toolbar filename
! :M CLASSINIT: ( x y width height -- ) 
  :M CLASSINIT: ( -- ) 
  :M CLASSINIT: ( -- ) 
  :M CLASSINIT: ( -- ) 
  :M CLASSINIT: ( -- ) 
! :M CLASSINIT: ( editWidth -- ) 
! :M CLASSINIT: ( editWidth -- ) 
! :M CLASSINIT: ( n1 -- ) 
! :M CLASSINIT: ( n1 -- ) 
  :M CLOSE: ( -- ) 
  :CLASS COMBOFIELD 
--- 1493,1512 ----
  : BUTTON+H ( -- n1 ) 
  : BUTTON+V ( -- n1 ) 
  INT BVOFFSET \ vertical   offset
+ INT BVOFFSET \ Vertical offset
  INT BWIDTH 
  INT BX 
  INT BY 
! :M CLASSINIT: ( n1 -- ) 
! :M CLASSINIT: ( n1 -- ) 
  :M CLASSINIT: ( -- ) 
+ :M CLASSINIT: ( editWidth -- ) 
  :M CLASSINIT: ( -- ) 
+ :M CLASSINIT: ( editWidth -- ) 
  :M CLASSINIT: ( -- ) 
+ :M CLASSINIT: ( -<toolbarname>- ) 
+ \ follow by .BMP toolbar filename
  :M CLASSINIT: ( -- ) 
! :M CLASSINIT: ( x y width height -- ) 
  :M CLOSE: ( -- ) 
  :CLASS COMBOFIELD 
***************
*** 1740,1744 ****
  CONSTANT THROW_NO_FIND_VAR 
  CONSTANT THROW_NO_WM 
! CONSTANT THROW_OBJ_EXPO 
  CONSTANT THROW_UNDEF_METH 
  CONSTANT THROW_ZERO_BITS 
--- 1740,1744 ----
  CONSTANT THROW_NO_FIND_VAR 
  CONSTANT THROW_NO_WM 
! CONSTANT THROW_OBJ_EXPOSED 
  CONSTANT THROW_UNDEF_METH 
  CONSTANT THROW_ZERO_BITS 
***************
*** 1836,1841 ****
  \ return the indexed element width for a class
  : @WORD ( -<word>- addr ) 
- :M ADD: ( n/d -- ) 
  :M ADD: ( a1 n1 -- ) 
  :M ADDR: ( -- n1 ) 
  :M ADDR: ( -- addr ) 
--- 1836,1841 ----
  \ return the indexed element width for a class
  : @WORD ( -<word>- addr ) 
  :M ADD: ( a1 n1 -- ) 
+ :M ADD: ( n/d -- ) 
  :M ADDR: ( -- n1 ) 
  :M ADDR: ( -- addr ) 
***************
*** 1890,1896 ****
  DEFER CLASSINIT ( -- ) 
  \ send ClassInit: to newObject
- :M CLASSINIT: 
  :M CLASSINIT: ( -- ) 
  \ Initialise the object. The coordinates are set to zero.
  : CLASSPOINTER? ( class -- f ) 
  :CLASS CLASSROOT 
--- 1890,1896 ----
  DEFER CLASSINIT ( -- ) 
  \ send ClassInit: to newObject
  :M CLASSINIT: ( -- ) 
  \ Initialise the object. The coordinates are set to zero.
+ :M CLASSINIT: 
  : CLASSPOINTER? ( class -- f ) 
  :CLASS CLASSROOT 
***************
*** 4487,4494 ****
  :M CLASSINIT: ( -- ) 
  GDICOLORREF COLOR 
- :M CREATE: ( -- f ) 
- \ Creates a logical brush with the specified bitmap pattern.
- :M CREATE: ( -- f ) 
- \ Create the brush with the current color.
  :M CREATE: ( lplb -- f ) 
  \ The Create function creates a logical brush that has the specified style, color, and pattern.
--- 4487,4490 ----
***************
*** 4496,4499 ****
--- 4492,4497 ----
  :M CREATE: ( -- f ) 
  \ Create the brush with the current style and color.
+ :M CREATE: ( -- f ) 
+ \ Creates a logical brush with the specified bitmap pattern.
  :M CREATE: ( lpPackedDIB iUsage -- f ) 
  \ The Create function creates a logical brush that has the pattern specified
***************
*** 4513,4516 ****
--- 4511,4516 ----
  \ DIB_PAL_COLORS | A color table is provided and consists of an array of 16-bit indexes into the logical palette of the device context into which the brush is to be selected. |
  \ DIB_RGB_COLORS | A color table is provided and contains literal RGB values. |
+ :M CREATE: ( -- f ) 
+ \ Create the brush with the current color.
  :CLASS GDIBRUSH 
  :CLASS GDIBRUSH 
***************
*** 5925,5934 ****
  RECORD: &TEXTMETRIC 
  :M ADDR: ( -- addr ) 
! :M ADDR: ( -- addr ) 
! \ Get the address of the COLORREF struct
  :M ADDR: ( -- addr ) 
  \ Get the address of the point struct.
  :M ADDR: ( -- addr ) 
! \ Get the address of the SIZE struct
  BYTE B 
  :M CHOOSE: ( hWnd -- f ) 
--- 5925,5934 ----
  RECORD: &TEXTMETRIC 
  :M ADDR: ( -- addr ) 
! \ Get the address of the SIZE struct
  :M ADDR: ( -- addr ) 
  \ Get the address of the point struct.
  :M ADDR: ( -- addr ) 
! \ Get the address of the COLORREF struct
! :M ADDR: ( -- addr ) 
  BYTE B 
  :M CHOOSE: ( hWnd -- f ) 
***************
*** 6580,6583 ****
--- 6580,6584 ----
  VALUE BUILDTYPE \ EXE or DLL
  \ EXTERNAL
+ : CHECKSUM ( -- n ) 
  : COMPACT ( -- ) 
  : CONSOLEBOOT ( -- ) 
***************
*** 8532,8540 ****
  :M CLEARERRORS: ( -- ) 
  \ Clears the FIFO error queue
- :M CLOSE: ( -- ) 
- \ Closes the cursor.  Another query can be executed on the cursor once it has been closed.
  :M CLOSE: ( -- flag ) 
  \ Closes the database connection.  The COM component still exists and a new
  \ connection may be made if desired.
  :M COMMIT: ( -- ) 
  \ Commit all changes in the current transaction to the database.
--- 8533,8541 ----
  :M CLEARERRORS: ( -- ) 
  \ Clears the FIFO error queue
  :M CLOSE: ( -- flag ) 
  \ Closes the database connection.  The COM component still exists and a new
  \ connection may be made if desired.
+ :M CLOSE: ( -- ) 
+ \ Closes the cursor.  Another query can be executed on the cursor once it has been closed.
  :M COMMIT: ( -- ) 
  \ Commit all changes in the current transaction to the database.
***************
*** 9026,9030 ****
  \ condition exists if a program directly alters the contents of BLK.
  : BLKMESSAGE ( n1 -- ) 
- CONSTANT BLOCK 
  : BLOCK ( u -- a-addr ) 
  \ ANSI         Block
--- 9027,9030 ----
***************
*** 9042,9045 ****
--- 9042,9046 ----
  \ At the conclusion of the operation, the block buffer pointed to by a-addr is the
  \ current block buffer and is assigned to u.
+ CONSTANT BLOCK 
  CONSTANT BLOCK-EXT 
  VALUE BLOCKHANDLE \ W32F         Block extra
***************
*** 9253,9258 ****
  \ Set any additional style of the control. Must be done before the control
  \ is created.
- \ If you need more than one group of radio buttons within a dialog you must
- \ add the BS_GROUP style to the first button of each group.
  :M ADDSTYLE: ( n -- ) 
  \ Set any additional style of the control. Must be done before the control
--- 9254,9257 ----
***************
*** 9261,9264 ****
--- 9260,9265 ----
  \ Set any additional style of the control. Must be done before the control
  \ is created.
+ \ If you need more than one group of radio buttons within a dialog you must
+ \ add the BS_GROUP style to the first button of each group.
  :CLASS BITMAPBUTTON 
  :CLASS BITMAPBUTTON 
***************
*** 9269,9274 ****
  :CLASS CHECKBOX 
  :M CHECKBUTTON: ( -- ) 
- \ Set the button state to checked.
  :M CHECKBUTTON: ( -- ) 
  :M CLASSINIT: ( -- ) 
  \ Initialise the class.
--- 9270,9275 ----
  :CLASS CHECKBOX 
  :M CHECKBUTTON: ( -- ) 
  :M CHECKBUTTON: ( -- ) 
+ \ Set the button state to checked.
  :M CLASSINIT: ( -- ) 
  \ Initialise the class.
***************
*** 9284,9290 ****
  \ Initialise the class.
  :M CLOSE: ( -- ) 
- \ DeleteBitmap: self
- :M CLOSE: ( -- ) 
  \ DeleteIcon: self
  :CLASS DEFPUSHBUTTON 
  :CLASS DEFPUSHBUTTON 
--- 9285,9291 ----
  \ Initialise the class.
  :M CLOSE: ( -- ) 
  \ DeleteIcon: self
+ :M CLOSE: ( -- ) 
+ \ DeleteBitmap: self
  :CLASS DEFPUSHBUTTON 
  :CLASS DEFPUSHBUTTON 
***************
*** 10680,10683 ****
--- 10681,10687 ----
  :CLASS COMBOLISTBOX 
  :M DELETESTRING: ( index -- ) 
+ \ Delete a string.
+ \  index  specifies the zero-based index of the string to delete.
+ :M DELETESTRING: ( index -- ) 
  \ Delete a string from the list box.
  \  index  specifies the zero-based index of the string to be deleted.
***************
*** 10685,10691 ****
  \ cannot contain more than 32,767 items. Although the number of items is restricted, the total
  \ size in bytes of the items in a list box is limited only by available memory.
- :M DELETESTRING: ( index -- ) 
- \ Delete a string.
- \  index  specifies the zero-based index of the string to delete.
  :M DISABLE: ( -- ) 
  \ Disable the control.
--- 10689,10692 ----
***************
*** 13173,13182 ****
  :M CLASSINIT: 
  :M CLASSINIT: 
  :M CLASSINIT: ( check_flag -- ) 
- :M CLASSINIT: ( -- ) 
  :M CLASSINIT: 
  :M CLASSINIT: 
  :M CLASSINIT: ( -- ) 
! :M CLASSINIT: 
  :M CLASSINIT: ( -- ) 
  :M CLOSEMENU: ( -- ) 
--- 13174,13183 ----
  :M CLASSINIT: 
  :M CLASSINIT: 
+ :M CLASSINIT: 
  :M CLASSINIT: ( check_flag -- ) 
  :M CLASSINIT: 
  :M CLASSINIT: 
  :M CLASSINIT: ( -- ) 
! :M CLASSINIT: ( -- ) 
  :M CLASSINIT: ( -- ) 
  :M CLOSEMENU: ( -- ) 

Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
Binary files /tmp/cvsa7jfOO and /tmp/cvsTtroxm differ

Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** HelpWrd.tv	18 Nov 2011 11:40:15 -0000	1.14
--- HelpWrd.tv	17 Jan 2012 21:07:46 -0000	1.15
***************
*** 1,14576 ****
  0 tvn| Words| tvd| 0|
! 1 tvn| CLASSROOT| tvd| 5516|
  2 tvn| -methods-| tvd| 0|
! -3 tvn| CLASSINIT:| tvd| 5517|
! -3 tvn| ~:| tvd| 5518|
! -3 tvn| ADDR:| tvd| 5519|
! -3 tvn| PRINT:| tvd| 5520|
! 2 tvn| OBJECT| tvd| 5521|
  3 tvn| -methods-| tvd| 0|
! -4 tvn| GET:| tvd| 5522|
[...29124 lines suppressed...]
! 2 tvn| \+| tvd| 5333|
! 2 tvn| \-| tvd| 5334|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5339|
! 2 tvn| \S| tvd| 5388|
! 2 tvn| ]MACRO| tvd| 5229|
! 2 tvn| __STDCALL| tvd| 5220|
! 2 tvn| {| tvd| 5411|
! 2 tvn| {:| tvd| 5410|
! 2 tvn| |IF| tvd| 4948|
! 2 tvn| |OF| tvd| 4947|
  1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5090|
! 2 tvn| >BOLD| tvd| 4159|
! 2 tvn| >NORM| tvd| 4158|
! 2 tvn| ABS>REL| tvd| 5359|
! 2 tvn| REL>ABS| tvd| 5360|
! 2 tvn| TASK-SLEEP| tvd| 2594|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5088|
  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.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
Binary files /tmp/cvszPTSPH and /tmp/cvsZOU49l differ

[Win32forth-cvs] win32forth/Help HelpMain.f,1.11,1.12

From: George H. <geo...@us...> - 2012-01-17 21:07:48

Update of /cvsroot/win32forth/win32forth/Help
In directory vz-cvs-4.sog:/tmp/cvs-serv9611

Modified Files:
	HelpMain.f 
Log Message:
Added checksum and updated database

Index: HelpMain.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpMain.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HelpMain.f	18 Nov 2011 22:40:00 -0000	1.11
--- HelpMain.f	17 Jan 2012 21:07:46 -0000	1.12
***************
*** 581,584 ****
--- 581,586 ----
         ' main turnkey Help.exe
         s" Help\Res\Help.ICO" s" Help.exe" Prepend<home>\ AddAppIcon
+         Require Checksum.f
+         s" Help.exe" prepend<home>\ (AddCheckSum)
         1 pause-seconds bye
  [else]

[Win32forth-cvs] win32forth/src/console NewConsole.f,1.38,1.39

From: George H. <geo...@us...> - 2012-01-17 20:24:58

Update of /cvsroot/win32forth/win32forth/src/console
In directory vz-cvs-4.sog:/tmp/cvs-serv3618

Modified Files:
	NewConsole.f 
Log Message:
Minor bug fix

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** NewConsole.f	17 Jan 2012 19:50:41 -0000	1.38
--- NewConsole.f	17 Jan 2012 20:24:56 -0000	1.39
***************
*** 200,213 ****
  
  : c_emit ( c -- )
! dup
! case
! $D of getxy swap drop 0 swap gotoxy endof
! $A of getxy 1+ gotoxy endof
! $7 of beep endof
! $9 of BackSpace: cmd endof
! \in-system-ok sp@ 1 c_type
! endcase
! drop
! ;
  
  : c_cr ( -- )    cr: cmd ;
--- 200,211 ----
  
  : c_emit ( c -- )
!         case
!           $7 of beep endof
!           $8 of BackSpace: cmd endof
!           $A of getxy 1+ gotoxy endof
!           $D of getxy swap drop 0 swap gotoxy endof
!           sp@ 1 c_type
!         endcase
!         ;
  
  : c_cr ( -- )    cr: cmd ;

[Win32forth-cvs] win32forth/src/console CommandWindow.f, 1.29, 1.30 NewConsole.f, 1.37, 1.38

From: George H. <geo...@us...> - 2012-01-17 19:50:43

Update of /cvsroot/win32forth/win32forth/src/console
In directory vz-cvs-4.sog:/tmp/cvs-serv28343

Modified Files:
	CommandWindow.f NewConsole.f 
Log Message:
Modified c_emit to handle control characters the same as the old console

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** NewConsole.f	15 Jun 2010 23:49:20 -0000	1.37
--- NewConsole.f	17 Jan 2012 19:50:41 -0000	1.38
***************
*** 199,203 ****
          ;
  
! : c_emit ( c -- )   sp@ 1 c_type drop ;
  : c_cr ( -- )    cr: cmd ;
  : c_?cr ( n -- )   ?cr: cmd ;
--- 199,214 ----
          ;
  
! : c_emit ( c -- )
! dup
! case
! $D of getxy swap drop 0 swap gotoxy endof
! $A of getxy 1+ gotoxy endof
! $7 of beep endof
! $9 of BackSpace: cmd endof
! \in-system-ok sp@ 1 c_type
! endcase
! drop
! ;
! 
  : c_cr ( -- )    cr: cmd ;
  : c_?cr ( n -- )   ?cr: cmd ;

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** CommandWindow.f	29 May 2009 11:30:57 -0000	1.29
--- CommandWindow.f	17 Jan 2012 19:50:41 -0000	1.30
***************
*** 541,547 ****
                                 \ using all the lines of text and updating number of lines
          DRAWTEXTPARAMS  DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or
! \        ScrollRange  -1 Text GetHandle: mdc  call DrawTextEx  VertLine / to lines  
          ScrollRange  TextZero Text - Text  GetHandle: mdc  call DrawTextEx  VertLine / to lines
!         ScrollRange 8 + @ to ScrollRangeHMax 
          ;M
  
--- 541,547 ----
                                 \ using all the lines of text and updating number of lines
          DRAWTEXTPARAMS  DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or
! \        ScrollRange  -1 Text GetHandle: mdc  call DrawTextEx  VertLine / to lines
          ScrollRange  TextZero Text - Text  GetHandle: mdc  call DrawTextEx  VertLine / to lines
!         ScrollRange 8 + @ to ScrollRangeHMax
          ;M
  
***************
*** 690,695 ****
          a1 n1 +  a1 n +  TextZero a1 - n1 -  1+     move
          n n1 - +to TextZero
! \        a  a1  n  move
!         n  0 ?DO  a i + c@  dup 0= IF  drop 32  THEN  a1 i + c!  LOOP   \ replace 0 with space
          ;M
  
--- 690,695 ----
          a1 n1 +  a1 n +  TextZero a1 - n1 -  1+     move
          n n1 - +to TextZero
!         n  0 ?DO  a i + c@
!         dup 0= IF  drop 32  THEN  a1 i + c! LOOP   \ replace 0 with space
          ;M
  
***************
*** 769,773 ****
          ;M
  
! :M ?CR: ( n -- )   X +  VisibleCols: self  > IF  CR: self  THEN ;M 
  
  int wrap
--- 769,773 ----
          ;M
  
! :M ?CR: ( n -- )   X +  VisibleCols: self  > IF  CR: self  THEN ;M
  
  int wrap
***************
*** 776,783 ****
  : AdjustCount ( n -- n )   wrap IF  wrap 0< IF  VisibleCols: self  ELSE  wrap  THEN  X - min 0 max  THEN ;
  
! :M OverwriteTextAtXY: ( a n -- )   dup CheckTextBuffer   \ one line at a time
!         BEGIN  dup>r  2dup 2dup 13 scan nip -  AdjustCount dup>r  OverwriteLineAtXY: self  r@ 2r> -   \ chars inserted, chars remaining
! \        WHILE  CR: self  /string  13 skip 10 skip
!         WHILE  CR: self  /string  1 /string 10 skip
          REPEAT  3drop
          SCP
--- 776,784 ----
  : AdjustCount ( n -- n )   wrap IF  wrap 0< IF  VisibleCols: self  ELSE  wrap  THEN  X - min 0 max  THEN ;
  
! :M OverwriteTextAtXY: ( a n -- )
!         dup CheckTextBuffer   \ one line at a time
!         BEGIN 10 skip dup>r  2dup 2dup 13 scan nip -  AdjustCount
!         dup>r  OverwriteLineAtXY: self  r@ 2r> -   \ chars inserted, chars remaining
!         WHILE  CR: self  /string  1 /string
          REPEAT  3drop
          SCP
***************
*** 793,797 ****
  :M GoToXY: ( X Y -- )   \ add extra lines and lengthen lines with spaces if necessary
          to Y to X
- \        Y  dup LastRow - 0max 0 ?DO  crlf$ count InsertTextAtEnd: self  LOOP  to Y
          Y LastRow - 0max 0 ?DO  crlf$ count InsertTextAtEnd: self  LOOP
          Y RowString 2>r
--- 794,797 ----
***************
*** 800,804 ****
          UpdateScrollRange: self
          scp
- \        AutoScroll: self   ( best not to scroll every time GOTOXY is used )
          XYAddress to XYA
          ;M
--- 800,803 ----
***************
*** 831,834 ****
--- 830,840 ----
  :M emit: ( c -- )   sp@  InsertTextOnCommandLine: self  drop ;M
  
+ :M BackSpace:  ( -- )
+         x y or if
+           x if y x 1- swap gotoxy: self
+             else y 1- dup rowlength swap gotoxy: self
+             then then
+         ;M
+ 
  : On_DblClick  ( h m w -- h m w )   \ insert double-clicked word in commandline
          KeysOn not  ?shift or  ?exit
***************
*** 1169,1172 ****
--- 1175,1179 ----
  :M HandleChar: ( c -- )
          Case
+             7   of  beep endof
              8   of  DeleteBackward: self  endof
              9   of  9 emit: self  endof

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.83,1.84

From: George H. <geo...@us...> - 2012-01-17 19:40:45

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv25896

Modified Files:
	fkernel.f 
Log Message:
Minor corrections

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -d -r1.83 -r1.84
*** fkernel.f	23 Dec 2011 00:42:24 -0000	1.83
--- fkernel.f	17 Jan 2012 19:40:43 -0000	1.84
***************
*** 3833,3837 ****
            here winlib-last !                    \ point last at here
            winlib-link link,                     \ the link of all libraries
!           0 ,                                   \ the library handlehandle
            ", 0 c,                               \ counted string
          then
--- 3833,3837 ----
            here winlib-last !                    \ point last at here
            winlib-link link,                     \ the link of all libraries
!           0 ,                                   \ place-holder for the library handle
            ", 0 c,                               \ counted string
          then

[Win32forth-cvs] win32forth/apps/Internet/WebServer WebServer.F, 1.6, 1.7

From: George H. <geo...@us...> - 2012-01-17 19:38:25

Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer
In directory vz-cvs-4.sog:/tmp/cvs-serv25687

Modified Files:
	WebServer.F 
Log Message:
Minor corrections

Index: WebServer.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** WebServer.F	16 Sep 2008 11:18:40 -0000	1.6
--- WebServer.F	17 Jan 2012 19:38:23 -0000	1.7
***************
*** 2,6 ****
  \ Tom Dixon
  
- \ *D doc\
  \ *! WebServer
  \ *T WebServer -- Webserver
--- 2,5 ----
***************
*** 28,32 ****
  
  : server-choose-path   { \ $path -- }
! \ *G chosse the path for the folder with the web content
      z" Choose the web content folder."
      MAXSTRING LocalAlloc: $path webpath count $path place
--- 27,31 ----
  
  : server-choose-path   { \ $path -- }
! \ *G choose the path for the folder with the web content
      z" Choose the web content folder."
      MAXSTRING LocalAlloc: $path webpath count $path place
***************
*** 60,65 ****
  \ ** Assuming that the file p-index.htm is in your webpath. \n
  \ ** When you would like to use the websever over the internet. \n
! \ ** you must replace "localhost" by your IP-adres. \n
! \ ** The IP-adres can be seen at http://checkip.dyndns.org \n
  
      server-set-title
--- 59,64 ----
  \ ** Assuming that the file p-index.htm is in your webpath. \n
  \ ** When you would like to use the websever over the internet. \n
! \ ** you must replace "localhost" by your IP-adress. \n
! \ ** The IP-adress can be seen at http://checkip.dyndns.org \n
  
      server-set-title

[Win32forth-cvs] win32forth/apps/PictureViewer PictureViewer.f, 1.8, 1.9

From: George H. <geo...@us...> - 2012-01-17 19:36:13

Update of /cvsroot/win32forth/win32forth/apps/PictureViewer
In directory vz-cvs-4.sog:/tmp/cvs-serv24446/PictureViewer

Modified Files:
	PictureViewer.f 
Log Message:
Added checksums

Index: PictureViewer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PictureViewer.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** PictureViewer.f	21 Jul 2011 18:19:51 -0000	1.8
--- PictureViewer.f	17 Jan 2012 19:36:11 -0000	1.9
***************
*** 1366,1369 ****
--- 1366,1371 ----
            ' Main turnkey PictureViewer
            Needs PVResources
+         Require Checksum.f
+         s" PictureViewer.exe" prepend<home>\ (AddCheckSum)
            1 pause-seconds  bye
       [ELSE]  Main

[Win32forth-cvs] win32forth/src Extend.f, 1.28, 1.29 imageman.f, 1.25, 1.26

From: George H. <geo...@us...> - 2012-01-17 19:32:56

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv24136

Modified Files:
	Extend.f imageman.f 
Log Message:
Added checksum to files

Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Extend.f	25 May 2011 20:48:54 -0000	1.28
--- Extend.f	17 Jan 2012 19:32:54 -0000	1.29
***************
*** 125,131 ****
          false EndUpdate
  
! [else]
          s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
! [then]
  
  1 pause-seconds
--- 125,133 ----
          false EndUpdate
  
!  [else]
          s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
!  [then]
!         Require Checksum.f
!         s" Win32for.exe" prepend<home>\ (AddCheckSum)
  
  1 pause-seconds

Index: imageman.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** imageman.f	10 Aug 2011 16:55:58 -0000	1.25
--- imageman.f	17 Jan 2012 19:32:54 -0000	1.26
***************
*** 138,143 ****
  IN-APPLICATION
  
! \ WINLIBRARY IMAGEHLP.DLL
! \ 3 PROC MapFileAndCheckSum             \ helper; checksum for PE
  2 PROC SystemTimeToFileTime
  1 PROC GetSystemTimeAsFileTime
--- 138,143 ----
  IN-APPLICATION
  
! WINLIBRARY IMAGEHLP.DLL
! 3 PROC MapFileAndCheckSum             \ helper; checksum for PE
  2 PROC SystemTimeToFileTime
  1 PROC GetSystemTimeAsFileTime
***************
*** 163,166 ****
--- 163,167 ----
  
  CREATE PEIMG-NAME MAXSTRING ALLOT
+ 
  -1 VALUE PEIMG-HNDL
  
***************
*** 535,539 ****
               ;
  
- ((
  : CHECKSUM   ( -- n )
               0 SP@ >R                       \ pass two dwords
--- 536,539 ----
***************
*** 542,546 ****
               CALL MapFileAndCheckSum 0<> ABORT" Failed to checksum file"
               nip ;
- ))
  
  ((
--- 542,545 ----
***************
*** 653,657 ****
               PEIMG-FCLOSE
  
- ((
               cr ." Generating checksum "
               CHECKSUM DUP h.
--- 652,655 ----
***************
*** 661,665 ****
               SP@ 4 PEIMG-FWRITE DROP                  \ write out changed checksum
               PEIMG-FCLOSE
- ))
  
               R> cr ." Built length " dup . ." (" 1 H.R ." h) bytes"
--- 659,662 ----

[Win32forth-cvs] win32forth/src/lib checksum.f,NONE,1.1

From: George H. <geo...@us...> - 2012-01-17 19:31:42

Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv24047

Added Files:
	checksum.f 
Log Message:
New file added

--- NEW FILE: checksum.f ---
\ checksum.f

map-handle exemap

: (mapfile)     ( addr len -- a1 n1 )      \ map file name into memory
                exemap open-map-file
                abort" Failed to open and map the file!"
                exemap >hfileAddress @
                exemap >hfileLength  @ ;

: mapfile       ( "name" -- a1 n1 )
                /parse-s$ count (mapfile) ;

: unmapfile     ( -- )                  \ unmap and close the file
                exemap close-map-file drop ;

$d8 offset >checksum

winLibrary imagehlp

4 proc CheckSumMappedFile

variable oldSum
variable Checksum

: (Getsum)      ( addr len -- checksum )
                2>r checksum oldsum 2r> (mapfile) swap call CheckSumMappedFile drop
                checksum @ ;

: (GetChecksum) ( addr len -- checksum )
                (getsum) unmapfile ;

: (AddChecksum) ( addr len -- )
                (Getsum) exemap >hfileAddress @ >checksum ! unmapfile ;

: GetChecksum   ( "name" -- checksum )
                /parse-s$ count (GetChecksum) ;

: AddChecksum   ( "name" -- )
                /parse-s$ count (AddChecksum) ;

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.82,1.83

From: George H. <geo...@us...> - 2011-12-23 00:42:26

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv3094

Modified Files:
	fkernel.f 
Log Message:
Fixed bug in Task-status?

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -d -r1.82 -r1.83
*** fkernel.f	17 Nov 2011 19:36:22 -0000	1.82
--- fkernel.f	23 Dec 2011 00:42:24 -0000	1.83
***************
*** 2036,2040 ****
  : Task-Status?   ( -- f )
  \ *G Test task-status bit.
!                  Task-Status or 0 <> ;
  
  1 | Constant Main-Task
--- 2036,2040 ----
  : Task-Status?   ( -- f )
  \ *G Test task-status bit.
!                  Task-Status @ and 0 <> ;
  
  1 | Constant Main-Task

1040 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 9 10 11 12 13 .. 113 > >> (Page 11 of 113)