win32forth-cvs Mailing List for Win32Forth (Page 100)

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 .. 98 99 100 101 102 .. 113 > >> (Page 100 of 113)

[Win32forth-cvs] win32forth/src Debug.f,1.2,1.3

From: Alex M. <ale...@us...> - 2005-07-13 22:36:18

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13410/src

Modified Files:
	Debug.f 
Log Message:
arm: replace _EXIT in fkernel and debug with EXIT for consistency, by using RESOLVES to UNNEST
Update of meta-compiler to modernise and support alternative compile sources, memory access words started

Index: Debug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Debug.f	7 Jun 2005 15:59:27 -0000	1.2
--- Debug.f	13 Jul 2005 22:36:08 -0000	1.3
***************
*** 352,356 ****
                          ['] (+loop)  of TRUE    endof
                          ['] _of      of TRUE    endof
!                         ['] _EXIT    of TRUE    endof
                                          FALSE swap
                  endcase
--- 352,356 ----
                          ['] (+loop)  of TRUE    endof
                          ['] _of      of TRUE    endof
!                         ['] UNNEST   of TRUE    endof
                                          FALSE swap
                  endcase
***************
*** 767,769 ****
  
  
-

[Win32forth-cvs] win32forth fkernel.exe,1.17,1.18 setup.exe,1.8,1.9

From: Alex M. <ale...@us...> - 2005-07-13 22:36:18

Update of /cvsroot/win32forth/win32forth
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13410

Modified Files:
	fkernel.exe setup.exe 
Log Message:
arm: replace _EXIT in fkernel and debug with EXIT for consistency, by using RESOLVES to UNNEST
Update of meta-compiler to modernise and support alternative compile sources, memory access words started

Index: setup.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/setup.exe,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
Binary files /tmp/cvsuOpfkV and /tmp/cvsCHSKyF differ

Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
Binary files /tmp/cvsWSPqA7 and /tmp/cvsYpyGTR differ

[Win32forth-cvs] win32forth/src/lib eStruct.f,1.1,1.2

From: George H. <geo...@us...> - 2005-07-11 10:37:21

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18972/win32forth/src/lib

Modified Files:
	eStruct.f 
Log Message:
gah:suppressed warnings

Index: eStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/eStruct.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** eStruct.f	21 Dec 2004 00:19:10 -0000	1.1
--- eStruct.f	11 Jul 2005 10:37:11 -0000	1.2
***************
*** 160,164 ****
                  \ update count on stack and link
                  mysize + linkaddr link-member
!                     does> { myself -- member-addr }
                      myself resolve-member ;
  
--- 160,164 ----
                  \ update count on stack and link
                  mysize + linkaddr link-member
! \in-system-ok       does> { myself -- member-addr }
                      myself resolve-member ;
  
***************
*** 203,207 ****
--- 203,209 ----
  */
  
+ warning off
  : :struct   ( <name> -- addr n )
+    [ warning on ]
     \in-system-ok also struct-voc
     def-struct abort" :STRUCT missing an ;STRUCT'"
***************
*** 230,234 ****
                  myself cell+ @ ,        \ struct-id
            then
!           does> { myaddr -- }
                  def-struct abort" Can't use instance in structure definition!"
                  myaddr resolve-instance ;
--- 232,236 ----
                  myself cell+ @ ,        \ struct-id
            then
! \in-system-ok   does> { myaddr -- }
                  def-struct abort" Can't use instance in structure definition!"
                  myaddr resolve-instance ;
***************
*** 455,456 ****
--- 457,459 ----
  
  tst() dum()
+

[Win32forth-cvs] win32forth/src/lib ENUM.F,1.1,1.2

From: George H. <geo...@us...> - 2005-07-11 10:23:47

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth/src/lib

Modified Files:
	ENUM.F 
Log Message:
gah:moved more code to system space

Index: ENUM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ENUM.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsCUbUrg and /tmp/cvsp9zk5U differ

[Win32forth-cvs] win32forth/src Primutil.f,1.8,1.9

From: George H. <geo...@us...> - 2005-07-11 10:23:47

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth/src

Modified Files:
	Primutil.f 
Log Message:
gah:moved more code to system space

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Primutil.f	6 Jul 2005 08:51:56 -0000	1.8
--- Primutil.f	11 Jul 2005 10:23:35 -0000	1.9
***************
*** 582,585 ****
--- 582,587 ----
  initialization-chain chain-add init-handles
  
+ in-system
+ 
  \ handles can be treated like values, but they are auto zeroed at startup
  
***************
*** 589,592 ****
--- 591,596 ----
                  handles-list link, ;     
  
+ in-application
+ 
  :noname         ( -- )         \ chain for cleanup
                  unload-chain do-chain ; is unload-forth \ install in kernel word

[Win32forth-cvs] win32forth fkernel.exe,1.16,1.17

From: George H. <geo...@us...> - 2005-07-11 10:23:47

Update of /cvsroot/win32forth/win32forth
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth

Modified Files:
	fkernel.exe 
Log Message:
gah:moved more code to system space

Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
Binary files /tmp/cvspZRi40 and /tmp/cvs4IdrNE differ

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.17,1.18

From: George H. <geo...@us...> - 2005-07-11 10:23:46

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah:moved more code to system space

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** fkernel.f	1 Jul 2005 09:42:41 -0000	1.17
--- fkernel.f	11 Jul 2005 10:23:35 -0000	1.18
***************
*** 87,91 ****
                  next    c;
  
! CFA-CODE DO2VALUE ( -- d1 )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
--- 87,91 ----
                  next    c;
  
! CFA-CODE DO2VALUE ( d1 -- )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
***************
*** 94,98 ****
                  next    c;
  
! CFA-CODE DOOFF     ( n1 -- n2 )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
--- 94,98 ----
                  next    c;
  
! CFA-CODE DOOFF     ( n -- )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
***************
*** 4330,4333 ****
--- 4330,4335 ----
  0 VALUE PARMS   \ number of parameters (locals)
  
+ in-system
+ 
  : PARMS-INIT    ( -- )
                  FALSE TO ?:M
***************
*** 4349,4354 ****
  \ -------------------- Defining Words ---------------------------------------
  
- in-system
- 
  VARIABLE DEFER-LIST             \ The head of a linked-list of deferred words
  
--- 4351,4354 ----
***************
*** 4358,4361 ****
--- 4358,4363 ----
                  HEADER DOVAR COMPILE, ;
  
+ in-system
+ 
  : CONSTANT      ( n -<name>- )  \ create a constant (unchangable) value
                  HEADER DOCON COMPILE, , ;
***************
*** 4365,4369 ****
  
  : DEFER         ( -<name>- )    \ create a deferred execution function
! \ *p create a deferred execution function, defaults to a NOOP
  \ ** Typical usage    ' new-action is deferred-action
  \ ** -or- : new-word ['] new-action is deferred-action ;
--- 4367,4371 ----
  
  : DEFER         ( -<name>- )    \ create a deferred execution function
! \ *G create a deferred execution function, defaults to a NOOP
  \ ** Typical usage    ' new-action is deferred-action
  \ ** -or- : new-word ['] new-action is deferred-action ;
***************
*** 4381,4386 ****
--- 4383,4392 ----
                  USER ;
  
+ in-application
+ 
  1 4096 *        CONSTANT USERSIZE   \ user area size for task variables
  
+ in-system
+ 
  : 2CONSTANT     ( n1 n2 -- )
                  CREATE , ,
***************
*** 4394,4397 ****
--- 4400,4405 ----
                  VARIABLE 0 , ;
  
+ in-application
+ 
  \ -------------------- Redefine DEFER-red Words -----------------------------
  
***************
*** 4424,4429 ****
  \ -------------------- Value ------------------------------------------------
  
- in-application
- 
  : VALUE         ( n -<name>- )  \ create a self fetching changeable value
                  HEADER           \ 'n TO value-name' will change a value
--- 4432,4435 ----
***************
*** 4433,4438 ****
                  DOVALUE+! COMPILE,   ;
                  
- in-system
- 
  |: ?TO_CHECK    ( xt -- xt_body )
                  DUP @ >R
--- 4439,4442 ----

[Win32forth-cvs] win32forth-610old fkernel.exe,1.4,1.5

From: George H. <geo...@us...> - 2005-07-11 10:23:46

Update of /cvsroot/win32forth/win32forth-610old
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11581/win32forth-610old

Modified Files:
	fkernel.exe 
Log Message:
gah:moved more code to system space

Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/fkernel.exe,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
Binary files /tmp/cvsChVirm and /tmp/cvsdH4qDZ differ

[Win32forth-cvs] win32forth/apps/ProMgr/res ToolbarBitmaps.bmp,NONE,1.1

From: Rod O. <rod...@us...> - 2005-07-10 19:55:55

Update of /cvsroot/win32forth/win32forth/apps/ProMgr/res
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19554/apps/ProMgr/res

Added Files:
	ToolbarBitmaps.bmp 
Log Message:
Rod: smaller bitmaps for Project Manager version 2

--- NEW FILE: ToolbarBitmaps.bmp ---
(This appears to be a binary file; contents omitted.)

[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f,1.5,1.6

From: Rod O. <rod...@us...> - 2005-07-10 19:54:23

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18305/apps/ProMgr

Modified Files:
	ProjectManager.f 
Log Message:
Rod: additional features and tidying of code for Project Manager version 2

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ProjectManager.f	4 Jun 2005 08:51:18 -0000	1.5
--- ProjectManager.f	10 Jul 2005 19:54:13 -0000	1.6
***************
*** 1,3 ****
! \ $Id$
  
  anew -ProjectManager.f
--- 1,3 ----
! \ ProjectManager.f    version 2
  
  anew -ProjectManager.f
***************
*** 5,8 ****
--- 5,38 ----
[...2448 lines suppressed...]
!         s" src\res\Project.ico" Prepend<home>\ s" Project.exe" AddAppIcon
! 
!         1 pause-seconds bye
  
  [ELSE]
  
!         \ debug PM
!         PM
  
  [THEN]
+ 
+ DOC
+ s" doc\promgr\ProjectManager.htm" needed-file
+ s" doc\promgr\prjFileMenu.gif" needed-file   ****  these are not found with spaces in filenames!
+ s" doc\promgr\prjHelpMenu.gif" needed-file   ****  e.g. "prjFile Menu.gif"  
+ s" doc\promgr\prjProjectMenu.gif" needed-file 
+ s" doc\promgr\prjProjectWindow.gif" needed-file 
+ ENDDOC

[Win32forth-cvs] win32forth/apps/ProMgr AboutForm.f,1.1,1.2

From: Rod O. <rod...@us...> - 2005-07-10 19:52:12

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17828/apps/ProMgr

Modified Files:
	AboutForm.f 
Log Message:
Rod: simpler ProjectVersion string for ProjectManager version 2

Index: AboutForm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/AboutForm.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AboutForm.f	21 Dec 2004 00:18:46 -0000	1.1
--- AboutForm.f	10 Jul 2005 19:52:02 -0000	1.2
***************
*** 3,8 ****
  create about-ProjectManager-message
  z," Project Manager Version "
! (.proj_version) +z", +z," \n\n"
! +z," Developed by Ezra Boyce, Dirk Busch\n\n"
  +z," Email: win...@ya...\n\n"
  +z," This program uses Zip32.dll, the free zip utility from\n"
--- 3,8 ----
  create about-ProjectManager-message
  z," Project Manager Version "
! ProjectVersion count +z", +z," \n\n"
! +z," Developed by Ezra Boyce, Dirk Busch and Rod Oakford\n\n"
  +z," Email: win...@ya...\n\n"
  +z," This program uses Zip32.dll, the free zip utility from\n"
***************
*** 56,60 ****
                  self Start: btnOk
                  118 177 113 30 Move: btnOk
!                 s" &Ok" SetText: btnOk
  
                  0 ParentWindow: self call EnableWindow drop  \ disable parent
--- 56,60 ----
                  self Start: btnOk
                  118 177 113 30 Move: btnOk
!                 s" OK" SetText: btnOk
  
                  0 ParentWindow: self call EnableWindow drop  \ disable parent

[Win32forth-cvs] win32forth/apps/ProMgr RegistrySupport.f,NONE,1.1

From: Rod O. <rod...@us...> - 2005-07-10 19:50:28

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16609/apps/ProMgr

Added Files:
	RegistrySupport.f 
Log Message:
Rod: for registry settings in ProjectManager version 2

--- NEW FILE: RegistrySupport.f ---
\ RegistrySupport.f       Extensions to the words in Registry.f  by Rod Oakford
\                   July 20th, 2004   Works in v5.2 and v6.09.xx

\                   SetRegistryValue and GetRegistryValue are like
\                   RegSetString and RegGetString except that they take
\                   an extra parameter RegType.  For REG_DWORD the integer value
\                   is returned and the length is 4.  For REG_BINARY and REG_SZ
\                   address and length are returned.  The registry key no longer
\                   includes "Settings" but any key name can be set in progreg.
\                   Values are set in the key HKEY_CURRENT_USER\Software\<progreg>

\                   Words are also included to save and restore sets of registry entries.
\                   A registry entry requires:
\                   Address, Length, DefaultAddress, DefaultLength, Reg Type and Reg Value Name
\                   For REG_DWORD length is omitted and default value is just an integer.
\                   For REG_SZ the address of a counted string and the max length that
\                   will be returned (to prevent a buffer overrun) are needed in address,
\                   the default value needs address and length.
\                   For REG_BINARY address and length are needed for both address and default.
\                   Please see the example at the end of this file.
\                   The address of Height, Width, OriginX, and OriginY in an object derived
\                   from class Window are 12, 16, 20 and 24 bytes offset from the object address.
\                   The address of the integer stored in a "value" is  ' <value> 4 +


cr .( Loading Registry Support...)

INTERNAL

[UNDEFINED] Messagebox [IF]   \ must not be MessageBox in v6.09.08 or Windows procedure is found
: MessageBox ( szText szTitle style hOwnerWindow -- result )
            >r  -rot  swap  r>
            Call MessageBox ;
[THEN]

0 value RegistryTable    \ address of current registry table in dictionary
0 value CurrentSet       \ address of data in current registry entries set
0 value RegEntries       \ number of registry entries in current set
0 value CurrentRegEntry  \ index of registry entry in registry table
50 value MaxLength       \ the maximum length of a ValueName incl null (clipped if longer)
                         \ 50 makes a reg entry 64 bytes long ( 50 + count + 13 )
: RegistryTableEntry ( n -- a )   RegistryTable CurrentRegEntry MaxLength 14 + * + + MaxLength + ; 
: ValueName ( -- a n )      MaxLength negate RegistryTableEntry count ;
: RegistryType ( -- n )     1 RegistryTableEntry c@ ;
: DefaultLength ( -- n )    2 RegistryTableEntry w@ ;
: DefaultAddress ( -- a )   4 RegistryTableEntry  @ ;
: Length ( -- n )           8 RegistryTableEntry w@ ;
: Address ( -- a )          10 RegistryTableEntry @ ;
: UpdateAddress ( a n -- )
        RegistryType
        Case
            REG_DWORD   of  drop Address !            endof 
            REG_BINARY  of  drop Address Length move  endof
            ( REG_SZ default )  -rot  Length min  Address place
        EndCase 
        ;
: SetCurrentRegSet ( a -- )   dup to CurrentSet  dup @ to RegEntries
        cell+ dup @ to RegistryTable  cell+ count progreg place ;

EXTERNAL

: SetRegistryValue  { a1 n1 a2 n2 RegType \ khdl -- }   \ a1,n1=value string, a2,n2=key string
        0 0 RegGetKey to khdl                 \ no s" settings", include in progreg if needed
        khdl -1 = IF  EXIT  THEN              \ just return, ignore error
        a1 n1 asciiz                          \ null-terminate value string
        RegType REG_SZ = IF  1 +to n1  THEN   \ include null in count for REG_SZ
        n1 swap
        RegType
        0 a2  2dup n2 + c!                    \ null-terminate key string
        khdl Call RegSetValueEx drop 
        khdl Call RegCloseKey drop
        ;

: GetRegistryValue ( a1 n1 RegType -- a2 n2 )            \ a1,n1=key string, a2,n2=value string
        >r  0 0 RegGetString                             \ n2=0 if key not found
        RegType @
        Case
            REG_DWORD   of  drop @  RegLen @  endof      \ for REG_DWORD a2=the value, n2=4
            REG_BINARY  of  drop    RegLen @  endof      \ no extra 0 in length
            ( REG_SZ default )
        EndCase 
        dup r> RegType @ = not and
        IF                                               \ RegType not as requested and n2>0
            z" Registry type different"
            z" GetRegistrySetting"
            MB_ICONEXCLAMATION MB_OK or NULL MessageBox drop
        THEN
        ;

: RegistrySet ( a n <name> -- )   \ creates a new named registry entries set
        Create  here >r  ( RegEntries ) 0 ,  ( RegistryTable ) 0 ,  ( s" KeyName" ) dup c, Z",
                here r@ cell+ !  r> SetCurrentRegSet
        Does> ( -- )   SetCurrentRegSet ;

: Entries ( -- )    here CurrentSet cell+ !  0 to RegEntries ;

: RegEntry  ( Address a [n]  Default a [n]  RegistryType n  <"RegValueName"> -- )
        MaxLength
        here ,"Text"
        dup c@ MaxLength min over c!   \ clip RegValueName to MaxLength characters incl null
        here - + 1+ allot              \ allot for counted string and null (MaxLength 1+)
        dup c,
        REG_DWORD = IF  4 swap 4  THEN 
        w, , w, ,
        1 +to RegEntries
        ;

: EndEntries ( -- )   RegEntries CurrentSet ! ;

: SaveSettings ( -- )
        RegEntries 0 ?DO
            i to CurrentRegEntry
            Address Length
            RegistryType REG_SZ = IF  drop count  THEN
            ValueName RegistryType SetRegistryValue
        LOOP
        ;

: DefaultSettings ( -- )
        RegEntries 0 ?DO
            i to CurrentRegEntry
            DefaultAddress DefaultLength
            UpdateAddress
        LOOP
        ;

: RestoreSettings ( -- )
        RegEntries 0 ?DO
            i to CurrentRegEntry
            ValueName RegistryType GetRegistryValue
            RegType @ REG_SZ REG_DWORD between  over or 0= IF  2drop DefaultAddress DefaultLength  THEN
            UpdateAddress
        LOOP
        ;

: DeleteKey ( -- )   \ deletes key HKEY_CURRENT_USER\Software\<progreg>
        basereg count pad place   \ Software\
        progreg count pad +place   \ user defined key
        pad count asciiz
        HKEY_CURRENT_USER Call RegDeleteKey
        IF
            s" Unable to delete " pad place
            progreg count pad +place
            pad count asciiz
            z" DeleteKey"
            MB_ICONEXCLAMATION MB_OK or NULL MessageBox drop
        THEN 
        ;

MODULE


\s

\ RegistryExample
\               An example on how to save Window and other settings in the registry by Rod Oakford
\               Fload this file, resize the window, close the window, window settings are saved.

\             1.  Near the beginning of an application define some sets of registry entries that
\               you will want to save and restore e.g.
\               s" MyName\MyApp\WindowPlacement" RegistrySet WindowSettings
\               These sets are initially empty but contain the registry key name.  This is placed
\               in progreg when the "RegSetName" e.g. WindowSettings is executed and values are saved
\               (or restored) in the key HKEY_CURRENT_USER\Software\<progreg>

\             2.  Near the end of the application add specific entries to these sets then SaveSettings,
\               DefaultSettings and RestoreSettings will work.

\               A registry entry contains an address of the bytes to save, a default value which
\               will be used if the key is not found, the type of registry entry (REG_DWORD, REG_BINARY
\               or REG_SZ) and the name of the registry setting value.  A set of registry enties is
\               stored in a Registry table in the dictionary which is selected when "RegSetName" is
\               executed.

\               NOTE if you set a menu with MyMenu SetMenuBar: self you must also
\               override the late bound method WindowHasMenu: to return TRUE
\               otherwise the start size of the window will be wrong.  Even so
\               the height will still be wrong if the menu wraps to two or more rows.
\               (AdjustWindowRect does not take this into account)
\               It is better to use MyMenu to CurrentMenu in ClassInit:
\               otherwise you are setting the default menu then replacing it.


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ **********EXAMPLE**********
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\ Needs RegistrySupport


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\       Define two registry sets
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

s" MyName\MyApp\Window"   RegistrySet WindowSettings
s" MyName\MyApp\Options"  RegistrySet Options


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\       Define a simple window
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

0 value WindowState

:Object Frame   <Super Window

:M ClassInit:
        ClassInit: super
\        MyMenu to CurrentMenu
        ;M

:M WindowHasMenu: ( -- f )   True ;M   \ default menu will be displayed if another is not set

:M On_Size: ( h m w -- h m w )
        dup to WindowState   \ get WindowState, don't save size of maximised or minimised window 
        ;M

:M On_Done:
        MenuHandle: CurrentMenu Call DestroyMenu drop   \ need to destroy menu in v6.09
        ZeroMenu: CurrentMenu                           \ otherwise window won't open again
        On_Done: super
        WindowState SIZE_RESTORED = IF  WindowSettings SaveSettings  THEN
        Options SaveSettings
        ;M

;Object


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\       Some other values to save and restore
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Create Title ," Window Title"   \ limited later to 9 characters in Options entries
Create DefTitle ," Default"
Create BinaryData  -1 , -1 ,
Create DefaultBin  1 c, 2 c, 3 c, 4 c, 5 c, 6 c, 7 c, 8 c,
False value Toolbar?


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\       Registry settings
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

WindowSettings entries
\ Address        Length    Default Value    Reg Type                Reg Value Name
Frame 12 +       ( 4 )     300              REG_DWORD     RegEntry  "WindowWidth"
Frame 16 +                 200              REG_DWORD     RegEntry  "WindowHeight"
Frame 20 +                 100              REG_DWORD     RegEntry  "WindowLeft"
Frame 24 +                 100              REG_DWORD     RegEntry  "WindowTop"
EndEntries

Options entries
\ Address        Length    Default Value    Reg Type                Reg Value Name
' Toolbar? 4 +   ( 4 )     True             REG_DWORD     RegEntry  "Toolbar?"
Title            9         DefTitle count   REG_SZ        RegEntry  "Title"
BinaryData       8         DefaultBin 8     REG_BINARY    RegEntry  "BinaryData"
EndEntries


: go
        WindowSettings RestoreSettings
        Start: frame
        Title count SetText: frame
        ;
go


\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\       Other testing words
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

: Close ( -- )   Close: frame ;

: ShowData ( -- )
        cr ." Window: "  Frame 12 + ?  Frame 16 + ?  Frame 20 + ?  Frame 24 + ?
        cr ." Title: "  Title count type
        cr ." Binary: "  BinaryData  8 0 DO  dup i + c@ .  LOOP  drop
        cr ." Toolbar: "  Toolbar?  IF  ." True"  ELSE  ." False"  THEN
        ;

: Open ( -- )
        WindowSettings RestoreSettings
        Options RestoreSettings
        Start: frame
        Title count SetText: frame
        ShowData
        ;

: Default ( -- )
        WindowSettings DefaultSettings
        Options DefaultSettings
        Start: frame
        Title count SetText: frame
        ShowData
        ;

: S1 ( -- )   WindowSettings  SaveSettings ;
: S2 ( -- )   Options  SaveSettings ;
: N1 ( -- )   BinaryData 8 erase  s" New Title" Title place
                false to Toolbar?  S2  open ;  
: N2 ( -- )   BinaryData 8 -1 fill  s" Old Title" Title place
                true to Toolbar?  S2  open ;  
: D1 ( -- )   WindowSettings  DeleteKey ;  
: D2 ( -- )   Options  DeleteKey ;

comment:

DeleteKey should be fairly safe as it will not delete keys containing subkeys.
To delete MyName from the registry entirely delete Window, Options then MyApp first:

s" MyName" RegistrySet MyName
s" MyName\MyApp" RegistrySet MyApp
WindowSettings DeleteKey
Options DeleteKey
MyApp DeleteKey
MyName DeleteKey

comment;

[Win32forth-cvs] win32forth/apps/ProMgr RecentFiles.f,NONE,1.1

From: Rod O. <rod...@us...> - 2005-07-10 19:49:31

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16074/apps/ProMgr

Added Files:
	RecentFiles.f 
Log Message:
Rod: recent files on file menu in ProjectManager version 2

--- NEW FILE: RecentFiles.f ---
\ RecentFiles.f         RecentFiles class by Rod Oakford
\                       July 2003
\
\                       Use when defining menuitems before a MenuSeparator, usually on the File menu e.g.
\           POPUP "&File"
\               MENUITEM     "Page Set&up..."   ( word to do Page Setup )            ;
\               9 RECENTFILES   RecentFiles  ( -- FileName$ )  ( word to open file ) ;
\               MENUSEPARATOR
\               MENUITEM     "E&xit  \tAlt-F4"  bye                                  ;
\
\               9 RECENTFILES RecentFiles creates an object of the class RECENTFILES with space for 9 menuitems
\               You can use the following methods:
\               FileName$  Insert: RecentFiles  to add FileName to the top of the list and push the others down
\               Number  SetNumber: RecentFiles  to set the max number of Files shown in the list (max 9 in this case)
\               nth GetRecentFile: RecentFiles  to get the nth FileName$ in the list


cr  .( Loading RecentFiles class...)

INTERNAL

:Class  RECENTFILES  <Super MENUITEMS
int mfunc               \ the menu function
int AllocatedFiles      \ Maximum number of recent files allocated for
int MaxFiles            \ Largest number of recent files saved on file menu
int NumberOfFiles       \ Menu separator is removed if no recent files
int FirstPos            \ Pos of first recent file on file menu

: WithoutFileNumber ( text$ -- text$ )  dup c@ 3 - 0 max >r  3 +  r> over c! ;

:M DoMenu:   { ID \ Text$ -- }
        ID mid mid MaxFiles + within
        IF
            MAXSTRING LocalAlloc: Text$
            MF_BYCOMMAND MAXSTRING Text$ 1+
            ID popid Call GetMenuString Text$ c!
            Text$ WithoutFileNumber  mfunc execute-menufunc
        THEN
        ;M

:M ClassInit: ( n -- )   \ allot n menu IDs to recent files
        dup to AllocatedFiles to MaxFiles
        ClassInit: Super
        here to mfunc
        hide !csp docol , ]
        AllocatedFiles 1- +to IDcounter
        ;M

:M LoadMenu: ( pid parent -- )   \ don't add anything to menu
        to parent to popid
        popid Call GetMenuItemCount 1+ to FirstPos
        0 to NumberOfFiles
        ;M

int ID
int Pos
:M Reset: { \ Text$ -- }    \ Numbers recent files and deletes any more than allowed
    NumberOfFiles           \ There must be a menu separator before any further menu items
    IF
        MAXSTRING LocalAlloc: Text$
        FirstPos to Pos
        BEGIN 
            MF_BYPOSITION MAXSTRING Text$ 1+
            Pos popid Call GetMenuString dup Text$ c!
        WHILE
            Pos FirstPos MaxFiles + < 
            IF
                Pos FirstPos - 49 + Text$ 2 + c!  Text$ 1+ mid Pos + FirstPos - 
                MF_BYPOSITION Pos popid Call ModifyMenu drop 1 +to Pos
            ELSE
                MF_BYPOSITION Pos popid Call DeleteMenu drop  -1 +to NumberOfFiles
            THEN 
        REPEAT
        MF_BYPOSITION MAXSTRING Text$ 1+ FirstPos popid Call GetMenuString 0=
        IF                  \ Remove second separator if no recent files
            MF_BYPOSITION FirstPos 1- popid Call DeleteMenu drop
        THEN
    THEN
        ;M

:M Insert:   { FileName$  \ MenuText$ Text$ -- }   FileName$ c@
    IF
        MAXSTRING LocalAlloc: MenuText$
        s" &1 " MenuText$ place FileName$ count MenuText$ +place MenuText$ +NULL
        MAXSTRING LocalAlloc: Text$
        NumberOfFiles 0=
        IF                  \ Insert second separator if no recent files
            0 0 MF_BYPOSITION MF_SEPARATOR or FirstPos 1- popid Call InsertMenu drop
        THEN 
        mid to ID
        BEGIN
            MF_BYCOMMAND MAXSTRING Text$ 1+
            ID popid Call GetMenuString  Text$ c!
            Text$ WithoutFileNumber count  FileName$ count  CAPS-COMPARE
            IF
                -1
            ELSE
                MF_BYCOMMAND ID popid Call DeleteMenu drop  -1 +to NumberOfFiles  0
            THEN
            ID mid MaxFiles 1- + < and   \ Text$ contains menutext of last recent file
        WHILE                            \ or menutext of matched file
            1 +to ID                     \ or 0 if last Pos is empty and no match
        REPEAT                           \ insert filename with ID of match or last recent file
        MenuText$ 1+  ID MF_BYPOSITION FirstPos popid Call InsertMenu drop
        1 +to NumberOfFiles
        Reset: self
    THEN
        ;M

:M SetNumber: ( n -- )
        AllocatedFiles min to MaxFiles
        Reset: self
        ;M

:M GetRecentFile: { Index -- FileName$ }
        Index 1 NumberOfFiles between
        IF
            MF_BYPOSITION MAXSTRING temp$ 1+
            Index FirstPos + 1- popid Call GetMenuString
        ELSE
            0 
        THEN
        temp$ c! temp$ WithoutFileNumber
        ;M

;Class

MODULE

[Win32forth-cvs] win32forth/apps/ProMgr PMMenu.f,NONE,1.1

From: Rod O. <rod...@us...> - 2005-07-10 19:48:37

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15645/apps/ProMgr

Added Files:
	PMMenu.f 
Log Message:
Rod: separate file for menu and command IDs for ProjectManager version 2

--- NEW FILE: PMMenu.f ---
\ PMMenu.f

needs RecentFiles

cr .( Loading Menu and Command ID's...)

: NewID ( <name> -- )
        defined
        IF  drop
        ELSE  count "header NextID DOCON , ,
        THEN ;

IDCounter constant IDM_FIRST

\ File menu
NewID IDM_NEW_MODULE
NewID IDM_DELETE
NewID IDM_ADD
NewID IDM_ADD_FORMS
NewID IDM_ZIP
NewID IDM_ZIP_ALL
NewID IDM_COPY
NewID IDM_COPY_ALL
NewID IDM_OPEN_FILE
NewID IDM_SHOW_FILE
NewID IDM_EXIT

\ View menu
NewID IDM_TOGGLE_FLAT
NewID IDM_TOGGLE_TOOLBAR
NewID IDM_TOGGLE_STATUSBAR
NewID IDM_COLLAPSE_ALL
NewID IDM_EXPAND_ALL

\ Project menu
NewID IDM_NEW
NewID IDM_OPEN
NewID IDM_CLOSE
NewID IDM_SAVE
NewID IDM_SAVE_AS
NewID IDM_RENAME
NewID IDM_SET_BUILD_PATH
NewID IDM_BUILD
NewID IDM_COMPILE
NewID IDM_SET_FORTH
NewID IDM_EXECUTEFILE

\ Help menu
NewID IDM_HELP
NewID IDM_ABOUT
NewID IDM_UNINSTALL
NewID IDM_SAVE_SETTINGS
NewID IDM_RESTORE_SETTINGS
NewID IDM_DEFAULT_SETTINGS

IdCounter constant IDM_LAST

: allot-erase ( n -- )
        here over allot swap erase ;

Create CommandTable  IDM_LAST IDM_FIRST - cells allot-erase

: IsCommand? ( ID -- f )
        IDM_FIRST IDM_LAST within ;

: >CommandTable ( ID -- addr )
        dup IsCommand?
        IF  IDM_FIRST - cells CommandTable +
        ELSE  drop abort" error - command ID out of range"
        THEN ;

: DoCommand	( ID -- ) 
        >CommandTable @ ?dup IF execute THEN ;

: SetCommand ( ID -- )
        last @ name> swap >CommandTable ! ;


MENUBAR ProjectMenu

Popup "&File"
        MenuItem "&New...  \tCtrl+N"                       IDM_NEW DoCommand ;
        MenuItem "&Open... \tCtrl+O"                      IDM_OPEN DoCommand ;
        MenuItem "&Save    \tCtrl+S"                      IDM_SAVE DoCommand ;
        MenuItem "Save &As..."                         IDM_SAVE_AS DoCommand ;
        MenuItem "&Rename...\tCtrl+R"                   IDM_RENAME DoCommand ;
      9 RECENTFILES  RecentFiles                     IDM_OPEN_FILE DoCommand ;
        MenuSeparator
        MenuItem "E&xit  \tAlt+F4"                        IDM_EXIT DoCommand ;

Popup "&View"
        :MENUITEM  hFlat       "&Flat Toolbar"    IDM_TOGGLE_FLAT  DoCommand ;
        :MENUITEM  hToolbar    "&Toolbar"      IDM_TOGGLE_TOOLBAR  DoCommand ;
        :MENUITEM  hStatusBar  "&Statusbar"  IDM_TOGGLE_STATUSBAR  DoCommand ;
        MenuSeparator
        MenuItem "&Collapse All \tCtrl++"         IDM_COLLAPSE_ALL DoCommand ;
        MenuItem "&Expand All \tCtrl+-"             IDM_EXPAND_ALL DoCommand ;

Popup "&Project"
        MenuItem "&Build   \tCtrl+B" ( fixed with new splitter ) IDM_BUILD DoCommand ;
        MenuItem "Set search &path for build..." IDM_SET_BUILD_PATH DoCommand ;
        MenuSeparator
        MenuItem "&Compile \tF12"                      IDM_COMPILE DoCommand ;
        MenuItem "&Set Forth Name..."                IDM_SET_FORTH DoCommand ;
        MenuSeparator
        MenuItem "&New Module... \tCtrl+M"          IDM_NEW_MODULE DoCommand ;
        MenuSeparator
        MenuItem "&Add files to project... \tCtrl+A"       IDM_ADD DoCommand ;
        MenuItem "&Delete from project \tCtrl+D"        IDM_DELETE DoCommand ;
        MenuItem "Add open &forms \tCtrl+F"          IDM_ADD_FORMS DoCommand ;
        MenuSeparator
        SubMenu "Copy/&Zip files"
            MenuItem "&Zip non-library files..."           IDM_ZIP DoCommand ;
            MenuItem "Zip all files..."                IDM_ZIP_ALL DoCommand ;
            MenuItem "&Copy non-library files..."         IDM_COPY DoCommand ;
            MenuItem "Copy all files..."              IDM_COPY_ALL DoCommand ;
        EndSubMenu
 
Popup "&Help"
        MenuItem "&Help    \tF1"                          IDM_HELP DoCommand ;
        MenuItem "&About"                                IDM_ABOUT DoCommand ;
        MenuItem "&Uninstall"                        IDM_UNINSTALL DoCommand ;
\        MenuItem "&Save settings"                IDM_SAVE_SETTINGS DoCommand ;
\        MenuItem "&Restore settings"          IDM_RESTORE_SETTINGS DoCommand ;
\        MenuItem "&Default settings"          IDM_DEFAULT_SETTINGS DoCommand ;

ENDBAR

[Win32forth-cvs] win32forth/src 486ASM.F,1.3,1.4

From: George H. <geo...@us...> - 2005-07-06 08:54:38

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31322/win32forth/src

Modified Files:
	486ASM.F 
Log Message:
gah:reverted -IF to DUP IF for ANSI compatibility

Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 486ASM.F	2 Jun 2005 21:14:55 -0000	1.3
--- 486ASM.F	6 Jul 2005 08:54:29 -0000	1.4
***************
*** 2083,2087 ****
  : /set-prefix ( set the assembler to prefix mode, leave a mode flag )
          ( -- prev. mode==postfix )
!         /postfix? -if >r a; /prefix r> then ;
  
  : /set-postfix ( set the assembler to postfix mode, leave a mode flag )
--- 2083,2087 ----
  : /set-prefix ( set the assembler to prefix mode, leave a mode flag )
          ( -- prev. mode==postfix )
!         /postfix? dup if >r a; /prefix r> then ;
  
  : /set-postfix ( set the assembler to postfix mode, leave a mode flag )
***************
*** 2094,2095 ****
--- 2094,2096 ----
  
  only forth definitions base !
+

[Win32forth-cvs] win32forth/src Primutil.f,1.7,1.8

From: George H. <geo...@us...> - 2005-07-06 08:52:12

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30036/win32forth/src

Modified Files:
	Primutil.f 
Log Message:
gah:moved some code in-system in pimutil..f 

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Primutil.f	20 Jun 2005 07:40:46 -0000	1.7
--- Primutil.f	6 Jul 2005 08:51:56 -0000	1.8
***************
*** 823,829 ****
                  ;
  
- 
- in-application
- 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 823,826 ----
***************
*** 845,848 ****
--- 842,847 ----
                          \ and should be defined and used in UPPERCASE
  
+ in-application
+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       Locking for Windows

[Win32forth-cvs] win32forth/src/tools xref.f,1.2,1.3

From: George H. <geo...@us...> - 2005-07-06 08:45:54

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26953/win32forth/src/tools

Modified Files:
	xref.f 
Log Message:
gah: modified xref.f to search better. Improved formatting of listing 

Index: xref.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/xref.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** xref.f	5 Jul 2005 07:44:11 -0000	1.2
--- xref.f	6 Jul 2005 08:45:44 -0000	1.3
***************
*** 88,100 ****
      \ start address specified.  Start address can be any
      \ executable text or number
!     cr ." ------------------------------------------------ "
!     defined 0= abort" Can't find name"
!     cr
!     ( FindAddr )
!     \ init LatestCfa to [unknown] and clear ValidFlag
      0 ( StartAddr )
!     0 ( EndAddr )
!     { FindAddr StartAddr EndAddr -- }
!     here aligned 4 - to EndAddr
      ?in-empty
      if
--- 88,96 ----
      \ start address specified.  Start address can be any
      \ executable text or number
!     ' cr ." ------------------------------------------------ " cr
!          ."         Application Space                        " cr
!          ." ------------------------------------------------ " cr
      0 ( StartAddr )
!     { FindAddr StartAddr -- }
      ?in-empty
      if
***************
*** 105,118 ****
      depth 1 <> abort" Param Stack Error!"
  
!     ['] loadfile umax
      to StartAddr
!     StartAddr EndAddr u>
      if
!         ['] loadfile to StartAddr
      then
!     EndAddr StartAddr FindAddr
      xref_FindLoop
      0= if ." No Cross References found in Application Space" then cr
      ." ------------------------------------------------ " cr
  
      sys-here sys-origin FindAddr
--- 101,116 ----
      depth 1 <> abort" Param Stack Error!"
  
!     app-origin umax
      to StartAddr
!     StartAddr App-here u>
      if
!         App-origin to StartAddr
      then
!     App-here StartAddr FindAddr
      xref_FindLoop
      0= if ." No Cross References found in Application Space" then cr
      ." ------------------------------------------------ " cr
+     ."              System Space                        " cr
+     ." ------------------------------------------------ " cr
  
      sys-here sys-origin FindAddr

[Win32forth-cvs] win32forth/src/tools xref.f,1.1,1.2

From: George H. <geo...@us...> - 2005-07-05 07:44:20

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17160/win32forth/src/tools

Modified Files:
	xref.f 
Log Message:
gah: modified xref.f to suppress false entries caused by cfa pointer(s) in name(s) of the word being cross-referenced. Improved formatting of listing 

Index: xref.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/xref.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** xref.f	21 Dec 2004 00:19:11 -0000	1.1
--- xref.f	5 Jul 2005 07:44:11 -0000	1.2
***************
*** 6,14 ****
  \ This is by Rainbow sally circa December 2002 by John Peters' request
  \ Optimized xref_inhileveldef? gah Thursday, June 24 2004 - 0:22
! \ Anew Cross-Reference  ( Anew does not work in this particular case )
  
  internal
  
! \ Fun\IN-EMPTY.F -- -- checks for additional input
  : ?in-empty     ( -- tf )
      \ Returns TRUE flag if line being interpreted
--- 6,15 ----
  \ This is by Rainbow sally circa December 2002 by John Peters' request
  \ Optimized xref_inhileveldef? gah Thursday, June 24 2004 - 0:22
! \ gah Monday, July 04 2005 added test to suppress treating the cfaptr as a reference
! \     which caused the last word in system space to be printed. Improved output format
  
  internal
  
! \ checks for additional input
  : ?in-empty     ( -- tf )
      \ Returns TRUE flag if line being interpreted
***************
*** 16,25 ****
      >in @ bl word c@ 0= swap >in ! ;
  
! 
! \ Fun\QuitKey.F -- Returns TRUE flag if key is <esc> or Q (case insensitive)
  : ?quitkey
          key upc 'Q' over = swap 27 = or
          if sp0 @ sp! cr ." Quitting.." cr quit then ;
  
  external
  
--- 17,41 ----
      >in @ bl word c@ 0= swap >in ! ;
  
! \ Returns TRUE flag if key is <esc> or Q (case insensitive)
  : ?quitkey
          key upc 'Q' over = swap 27 = or
          if sp0 @ sp! cr ." Quitting.." cr quit then ;
  
+ \ Is addr the cfaptr of a word
+ : ?cfaptr         { addr \ flag -- f }
+                 false to flag
+                 voc-link
+                 begin   @ ?dup
+                 while   dup vlink>voc
+                         dup voc#threads 0
+                         do      dup i cells +
+                                 begin   @ ?dup
+                                 while   dup l>name n>cfaptr addr =
+                                         if      true to flag
+                                         then
+                                 repeat
+                         loop    drop
+                 repeat  flag ;
+ 
  external
  
***************
*** 35,58 ****
  
  : xref_FindLoop ( end start find-cfa -- found=T )
-     0 \ to ValidFlg
      0 \ to FoundFlg
!     0 \ to LatestCFA
!     { ValidFlg FoundFlg LatestCFA \ StartAddr FindAddr -- FoundFlg }
      to FindAddr
      do
          i @ FindAddr =
          if
              TRUE to FoundFlg
              i
!             xref_InHiLevelDef?
!             ( a -- cfa flg ) to ValidFlg to LatestCfa
!             ValidFlg 0=
!             if ." [ ??? "
!             then
! \in-system-ok LatestCfa >name .id
!             ValidFlg 0=
!             if
!             ."  ]"
!             then
              25 tab-size >r to tab-size
                  tab
--- 51,68 ----
  
  : xref_FindLoop ( end start find-cfa -- found=T )
      0 \ to FoundFlg
!     { FoundFlg \ StartAddr FindAddr -- FoundFlg }
      to FindAddr
      do
          i @ FindAddr =
          if
+         i ?cfaptr 0= if
              TRUE to FoundFlg
              i
!             xref_InHiLevelDef? 
!             0= tuck
!             if ." [ ??? " then
! \in-system-ok  >name .id
!             if ."  ]" then
              25 tab-size >r to tab-size
                  tab
***************
*** 60,64 ****
              getxy drop
              ?cr
-             0 to ValidFlg
              key?
              if cr ." Current Search Address: " i .
--- 70,73 ----
***************
*** 67,71 ****
                  key drop ?quitkey cr
              then
!         then
          xref_Aligned    \ check if only looking in lists (TRUE to xref_Aligned)
          if      4
--- 76,80 ----
                  key drop ?quitkey cr
              then
!         then then
          xref_Aligned    \ check if only looking in lists (TRUE to xref_Aligned)
          if      4
***************
*** 79,83 ****
      \ start address specified.  Start address can be any
      \ executable text or number
!     cr ." -------------------- "
      defined 0= abort" Can't find name"
      cr
--- 88,92 ----
      \ start address specified.  Start address can be any
      \ executable text or number
!     cr ." ------------------------------------------------ "
      defined 0= abort" Can't find name"
      cr
***************
*** 104,116 ****
      EndAddr StartAddr FindAddr
      xref_FindLoop
!     0= >r
  
      sys-here sys-origin FindAddr
      xref_FindLoop
!     0= r> and
!     if
!         ." No Cross Refs Found"
!     then
!     cr ;
  
  external
--- 113,124 ----
      EndAddr StartAddr FindAddr
      xref_FindLoop
!     0= if ." No Cross References found in Application Space" then cr
!     ." ------------------------------------------------ " cr
  
      sys-here sys-origin FindAddr
      xref_FindLoop
!     0= if ." No Cross References found in System Space" then cr
!     ." ------------------------------------------------ " cr
!  ;
  
  external

[Win32forth-cvs] win32forth/src FLOAT.F,1.11,1.12

From: George H. <geo...@us...> - 2005-07-04 07:58:36

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18172/win32forth/src

Modified Files:
	FLOAT.F 
Log Message:
gah: made Float.f more thread-safe ( F. FE. FS. etc ) and optimized some code

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** FLOAT.F	1 Jul 2005 09:42:41 -0000	1.11
--- FLOAT.F	4 Jul 2005 07:58:26 -0000	1.12
***************
*** 1326,1330 ****
                  ELSE    fdup f0=
                          IF      fdrop FLOATSTACK FLOATSP @ + B/FLOAT - dup B/FLOAT -
!                                 swap B/FLOAT swap B/FLOAT compare 0=
                                  f2drop
                          ELSE    \ January 16th, 1998 rls add "fswap"
--- 1326,1330 ----
                  ELSE    fdup f0=
                          IF      fdrop FLOATSTACK FLOATSP @ + B/FLOAT - dup B/FLOAT -
!                                 swap B/FLOAT swap B/FLOAT str=
                                  f2drop
                          ELSE    \ January 16th, 1998 rls add "fswap"
***************
*** 1507,1513 ****
  
  fvariable ftemp
! create $ftemp 128 allot
  create $ftemp1 128 allot
! create fbcd-buf 10 allot
  
  external
--- 1507,1513 ----
  
  fvariable ftemp
! 128 newuser $ftemp
  create $ftemp1 128 allot
! 10 newuser fbcd-buf
  
  external
***************
*** 1889,1894 ****
  : +represent    { $buf \ -- flag }
                  $ftemp precision represent 0=
!                 IF   2drop $ftemp precision $buf +PLACE s"  " $buf +PLACE true
!                 ELSE false
                  THEN ;
  
--- 1889,1893 ----
  : +represent    { $buf \ -- flag }
                  $ftemp precision represent 0=
!                 -IF  3drop $ftemp precision $buf +PLACE s"  " $buf +PLACE true
                  THEN ;
  
***************
*** 2044,2058 ****
  \ synonym f** f^x
  
! : fsqr          f0.5 f** ;
  
! : 1/f           -1 f**n ;
  
! : f>r           r> rp@ b/float - rp! rp@ f! >r ;
  
! : fdup>r        r> fdup rp@ b/float - rp! rp@ f! >r ;
  
! : r>f           r> rp@ f@ b/float rp@ + rp! >r ;
  
! : fr@           r> r@ f@ >r ;
  \ <-- rbs
  
--- 2043,2058 ----
  \ synonym f** f^x
  
! \ : fsqr          f0.5 f** ;
! synonym fsqr fsqrt deprecated
  
! : 1/f           -1 f**n ; deprecated
  
! : f>r           r> rp@ b/float - rp! rp@ f! >r ; deprecated
  
! : fdup>r        r> fdup rp@ b/float - rp! rp@ f! >r ; deprecated
  
! : r>f           r> rp@ f@ b/float rp@ + rp! >r ; deprecated
  
! : fr@           r> r@ f@ >r ; deprecated
  \ <-- rbs

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.16,1.17

From: George H. <geo...@us...> - 2005-07-01 09:42:50

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16037/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah: modified rep-normal to (hopefully) work correctly for precision of 1 and fixed a few stack comments

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** fkernel.f	20 Jun 2005 07:40:47 -0000	1.16
--- fkernel.f	1 Jul 2005 09:42:41 -0000	1.17
***************
*** 87,91 ****
                  next    c;
  
! CFA-CODE DO2VALUE ( d1 -- )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
--- 87,91 ----
                  next    c;
  
! CFA-CODE DO2VALUE ( -- d1 )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
***************
*** 94,98 ****
                  next    c;
  
! CFA-CODE DOOFF     ( n -- )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
--- 94,98 ----
                  next    c;
  
! CFA-CODE DOOFF     ( n1 -- n2 )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;

[Win32forth-cvs] win32forth/src FLOAT.F,1.10,1.11

From: George H. <geo...@us...> - 2005-07-01 09:42:49

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16037/win32forth/src

Modified Files:
	FLOAT.F 
Log Message:
gah: modified rep-normal to (hopefully) work correctly for precision of 1 and fixed a few stack comments

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** FLOAT.F	25 Jun 2005 16:29:02 -0000	1.10
--- FLOAT.F	1 Jul 2005 09:42:41 -0000	1.11
***************
*** 27,30 ****
--- 27,32 ----
  \ gah Thursday, May 26 2005 added macro 2>FPU
  \ gah Saturday, June 25 2005 modified rep-zero to correct bug in represent
+ \ gah Thursday, June 30 2005 modified rep-normal to correct bug in represent
+ \ gah Thursday, June 30 2005 made FLOOR FROUND FTRUNC thread-safe
  \ -------------------------------------------------------------------------
  
***************
*** 696,700 ****
  internal
  
! variable cwtemp
  
  in-system
--- 698,702 ----
  internal
  
! cell newuser cwtemp
  
  in-system
***************
*** 704,714 ****
  \ output: bx = org FPU Control Word
  macro:  set-rounding-mode
!                 fstcw   word cwtemp
!                 mov     ax, cwtemp
                  push    ax
                  and     ax, # 0x0f3ff
                  or      ax, bx
!                 mov     cwtemp , ax
!                 fldcw   word cwtemp
                  pop     bx
                  endm
--- 706,716 ----
  \ output: bx = org FPU Control Word
  macro:  set-rounding-mode
!                 fstcw   word cwtemp [up]
!                 mov     ax, cwtemp [up]
                  push    ax
                  and     ax, # 0x0f3ff
                  or      ax, bx
!                 mov     cwtemp [up], ax
!                 fldcw   word cwtemp [up]
                  pop     bx
                  endm
***************
*** 717,725 ****
  \ input: bx = org FPU Control Word
  macro:  restore-rounding-mode
!                 mov     cwtemp , bx
!                 fldcw   word cwtemp
                  endm
  
! \ Subroutine to round a floating point value
  \ input:  bx = rounding mode mask for the FPU Control Word
  macro:  (fround)
--- 719,727 ----
  \ input: bx = org FPU Control Word
  macro:  restore-rounding-mode
!                 mov     cwtemp [up], bx
!                 fldcw   word cwtemp [up]
                  endm
  
! \ Macro to round a floating point value
  \ input:  bx = rounding mode mask for the FPU Control Word
  macro:  (fround)
***************
*** 1565,1578 ****
                  THEN ;
  
! : rep-normal    ( addr u -- n true )
!                 1 max 2dup ascii 0 fill 18 umin
!                 fabs fdup dup 10**n-0.5 f<
!                 IF   fdup dup dup 1- 10**n-0.5 f<
!                      IF   fdup flog floor f>s 1+ dup>r
!                           - f*10**n
!                      ELSE >r
!                      THEN
!                 ELSE fdup flog floor f>s 1+ dup>r
!                      over - 10**n f/
                  THEN
                  fround fdup dup 10**n f<
--- 1567,1576 ----
                  THEN ;
  
! : rep-normal    ( addr u -- n true )  ( f: r -- )
!                 1 max 2dup [char] 0 fill 18 umin
!                 fdup flog floor f>s 1+ dup>r over -
!                 fdup over 10**n-0.5 f<
!                 IF   negate f*10**n
!                 ELSE 10**n f/
                  THEN
                  fround fdup dup 10**n f<
***************
*** 1588,1598 ****
                  ;
  
! : rep-denormal  ( addr u -- n true )
!                 rep-normal ;
  
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
  : rep-zero      ( addr u -- 1 true )  ( f: r -- )
!                 ascii 0 fill 1 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )
--- 1586,1595 ----
                  ;
  
! ' rep-normal alias rep-denormal  ( addr u -- n true )  ( f: r -- )
  
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
  : rep-zero      ( addr u -- 1 true )  ( f: r -- )
!                 [char] 0 fill 1 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )

[Win32forth-cvs] win32forth/src Utils.f,1.8,1.9

From: Rod O. <rod...@us...> - 2005-06-29 18:32:54

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12606/src

Modified Files:
	Utils.f 
Log Message:
Rod: changed editor-wait to return after 10s rather than 1000s

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Utils.f	20 Jun 2005 07:40:46 -0000	1.8
--- Utils.f	29 Jun 2005 18:32:42 -0000	1.9
***************
*** 178,182 ****
                  0 to ?deadlook     \ return's after 10 seconds even when the editor is not ready
  		begin 100 ms WINPAUSE
! 		      ?deadlook 1+ dup to ?deadlook 10000 =
  		      editor-present? or
  		until ;
--- 178,182 ----
                  0 to ?deadlook     \ return's after 10 seconds even when the editor is not ready
  		begin 100 ms WINPAUSE
! 		      ?deadlook 1+ dup to ?deadlook 100 =
  		      editor-present? or
  		until ;

[Win32forth-cvs] win32for4web downloads.htm,1.2,1.3 index.htm,1.7,1.8

From: Dirk B. <db...@us...> - 2005-06-29 16:05:45

Update of /cvsroot/win32forth/win32for4web
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29571

Modified Files:
	downloads.htm index.htm 
Log Message:
Fixed a broken link in downloads.htm; and get the CVS in sync with the HP

Index: downloads.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/downloads.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** downloads.htm	13 Jun 2005 15:41:58 -0000	1.2
--- downloads.htm	29 Jun 2005 16:05:31 -0000	1.3
***************
*** 3,9 ****
  <head>
  <meta http-equiv="Content-Language" content="en-gb">
! <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  <meta name="ProgId" content="FrontPage.Editor.Document">
! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Win32Forth Project Group </title>
  <style>
--- 3,10 ----
  <head>
  <meta http-equiv="Content-Language" content="en-gb">
! <meta http-equiv="Content-Type"
! content="text/html; charset=iso-8859-1">
  <meta name="ProgId" content="FrontPage.Editor.Document">
! <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
  <title>Win32Forth Project Group </title>
  <style>
***************
*** 17,128 ****
  <body>
  
! <a href="index.htm">
! 
! <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
! width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="forthpro.gif" width="32" height="32"><br>Project Group</h1>
! 
! </a>
! 
! <center>
  
  <hr>
- <h2>Download's</h2>
- 
- <table border="0" width="100%">
- <tr>
- <th align=left><a href="./downloads/ansify.f">ansify.f</a></th>
- <th align=left>Convert ANSI Forth standard definition names from lower to upper case</th>
- </tr>
- 
- <tr>
- <th align=left><a href="./downloads/vibe-2.1.f">vibe-2.1.f</a></th>
- <th align=left>VIBE - A portable block editor</th>
- </tr>
- 
- <tr>
- <th align=left><a href="./downloads/color.f">color.f</a></th>
- <th align=left>Forth to HTML converter</th>
- </tr>
- 
- <tr>
- <th align=left><a href="./downloads/bezier.f">bezier.f</a></th>
- <th align=left>Bézier splines</th>
- </tr>
- 
- <tr>
- <th align=left><a href="./downloads/blowfish.f">blowfish.f</a></th>
- <th align=left>Blowfish encryption algorithm</th>
- </tr>
- 
- <tr>
- <th align=left><a href="./downloads/DumpWindows.f">DumpWindows.f</a></th>
- <th align=left>Dump's all Top-Level-Windows to the console</th>
- </tr>
  
! <tr>
! <th align=left><a href="./downloads/isaac.f">isaac.f</a></th>
! <th align=left>ISAAC random number generator</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/NUMBER.F">NUMBER.F</a></th>
! <th align=left>Display numbers according to the international settings of the control panel</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/ods.f">ods.f</a></th>
! <th align=left>OutputDebugString() support</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/reorder.f">reorder.f</a></th>
! <th align=left>Reorder the stack</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/ShellExecute.f">ShellExecute.f</a></th>
! <th align=left>ShellExecute() support</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/Sockets.f">Sockets.f</a></th>
! <th align=left>Support for Windows Sockets (updated May 15th, 2004)</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/STRUCT.F">STRUCT.F</a></th>
! <th align=left>C like structures</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/dzfloat-test.zip">dzfloat-test.zip</a></th>
! <th align=left>Dirk Zoller's Float Tests</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/tetris.f">tetris.f</a></th>
! <th align=left>Win32Forth Version of Dirk Zoller's Tetris clone (updated March 27th, 2004)</th>
! </tr>
! 
! <tr>
! <th align=left><a href="./downloads/ClassBrowser.zip">ClassBrowser.zip</a></th>
! <th align=left>Win32Forth Class and Vocabulary browser. It display's the classes, methods, vocabularies and words in a Treeview. If you hold down the CTRL-key while clicking on an entry in the Treeview the source is shown in WinEd. (<b>updated May 29th, 2004</b>)</th>
! </tr>
  
  </table>
  
! <p>
! More to come soon...
! </p>
  
  <hr>
- <p>
- Copyright 2004 by the <a href="mailto:web...@wi...">Win32Forth Project Group</a>.<br>
- Last change June 12th, 2005
- </p>
- 
- </center>
  
  </body>
  </html>
--- 18,126 ----
  <body>
  
! <h1 align="center"><a href="index.htm">The Home of the<br>
! <img src="forthpro.gif" border="0" width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img
! src="forthpro.gif" border="0" width="32" height="32"><br>
! Project Group</a></h1>
  
  <hr>
  
! <h2 align="center">Download's</h2>
! <div align="center"><center>
  
+ <table border="0" width="100%">
+     <tr>
+         <th align="left"><a href="downloads/ansify.f">ansify.f</a></th>
+         <th align="left">Convert ANSI Forth standard definition
+         names from lower to upper case</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/vibe-2.1.f">vibe-2.1.f</a></th>
+         <th align="left">VIBE - A portable block editor</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/color.f">color.f</a></th>
+         <th align="left">Forth to HTML converter</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/bezier.f">bezier.f</a></th>
+         <th align="left">Bézier splines</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/blowfish.f">blowfish.f</a></th>
+         <th align="left">Blowfish encryption algorithm</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/DumpWindows.f">DumpWindows.f</a></th>
+         <th align="left">Dump's all Top-Level-Windows to the
+         console</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/isaac.f">isaac.f</a></th>
+         <th align="left">ISAAC random number generator</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/NUMBER.F">NUMBER.F</a></th>
+         <th align="left">Display numbers according to the
+         international settings of the control panel</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/ods.f">ods.f</a></th>
+         <th align="left">OutputDebugString() support</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/reorder.f">reorder.f</a></th>
+         <th align="left">Reorder the stack</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/ShellExecute.f">ShellExecute.f</a></th>
+         <th align="left">ShellExecute() support</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/Sockets.f">Sockets.f</a></th>
+         <th align="left">Support for Windows Sockets (updated May
+         15th, 2004)</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/STRUCT.F">STRUCT.F</a></th>
+         <th align="left">C like structures</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/dzfloat-test.zip">dzfloat-test.zip</a></th>
+         <th align="left">Dirk Zoller's Float Tests</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/tetris.f">tetris.f</a></th>
+         <th align="left">Win32Forth Version of Dirk Zoller's
+         Tetris clone (updated March 27th, 2004)</th>
+     </tr>
+     <tr>
+         <th align="left"><a href="downloads/ClassBrowser.zip">ClassBrowser.zip</a></th>
+         <th align="left">Win32Forth Class and Vocabulary browser.
+         It display's the classes, methods, vocabularies and words
+         in a Treeview. If you hold down the CTRL-key while
+         clicking on an entry in the Treeview the source is shown
+         in WinEd. (<b>updated May 29th, 2004</b>)</th>
+     </tr>
+     <tr>
+         <td><a href="downloads/organ.zip"><strong>organ.zip</strong></a></td>
+         <td><strong>Program the Sound Board ( PCM mono )</strong></td>
+     </tr>
+     <tr>
+         <td><a href="downloads/en_de_crypt.f"><strong>en_de_crypt.f</strong></a></td>
+         <td><strong>A simple encrypt/decrypt tool. It Uses one
+         key.</strong></td>
+     </tr>
  </table>
+ </center></div>
  
! <p align="center">More to come soon... </p>
  
  <hr>
  
+ <p align="center">Copyright 2004 by the <a
+ href="mailto:web...@wi...">Win32Forth Project Group</a>.<br>
+ Last change <!--webbot bot="Timestamp" startspan
+ s-type="REGENERATED" s-format="%m/%d/%y %H:%M" -->06/18/05 23:58<!--webbot
+ bot="Timestamp" i-checksum="16432" endspan --></p>
  </body>
  </html>

Index: index.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/index.htm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** index.htm	20 Jun 2005 15:27:58 -0000	1.7
--- index.htm	29 Jun 2005 16:05:31 -0000	1.8
***************
*** 3,9 ****
  <head>
  <meta http-equiv="Content-Language" content="en-gb">
! <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  <meta name="ProgId" content="FrontPage.Editor.Document">
! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  <title>Win32Forth Project Group </title>
  <style>
--- 3,10 ----
  <head>
  <meta http-equiv="Content-Language" content="en-gb">
! <meta http-equiv="Content-Type"
! content="text/html; charset=iso-8859-1">
  <meta name="ProgId" content="FrontPage.Editor.Document">
! <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
  <title>Win32Forth Project Group </title>
  <style>
***************
*** 17,140 ****
  <body>
  
! <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
! width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="forthpro.gif" width="32" height="32"><br>Project Group</h1>
  
  <hr>
  <h2>About Win32Forth</h2>
  
  <ul>
! <li>
! <a href="./doc/p-index.htm">Win32Forth</a> is a public domain, ANS compatible,
! Forth language application development system. It was initially written by
! Andrew McKewan, Tom Zimmer, Robert Smith and Jim Schneider during 1994 and 1995,
! and released into the public domain (with the exception of Jim Schneider's assembler
! which was under the GPL).
! Win32Forth is a FAT (as in BIG) system, adhering to the philosophy that if some
! tools are good, many tools must be better. It includes an interactive console
! and an integrated extensible source level debugger. Editing of source text is
! facilitated by the included WinEd hypertext file editor, which allows easy
! exploration of the many mega-bytes of source code that makes up Win32Forth.
! </li>
  </ul>
  
  <hr>
  <h2>About us</h2>
  
  <ul>
! <li>
! The <a href="http://groups.yahoo.com/group/win32forth">Win32Forth Project Group</a>
! was formed in 2002, by John A. Peters, on TopicA.com.  It grew in to a loose
! affiliation of programmers and users of <a href="http://www.radiks.net/~jimbo/art/int6.htm">Tom Zimmer's</a>
! Win32Forth system. Tom interests took him elsewhere in 2001 and 2002 (mainly Java),
! and he no longer took an active interest in his system. Tom re-affirmed that his product
! was in the public domain; this group intends furthering the work of maintaining and
! developing a Forth product suitable for Windows and the 21st century based on his
! work.
! </li>
  </ul>
  
  <hr>
  <h2>How to find us</h2>
  <ul>
! <li>
! You can find us, on our maillist at: <a href="http://groups.yahoo.com/group/win32forth">http://groups.yahoo.com/group/win32forth</a>.
! </li>
  </ul>
  
  <hr>
! <h2>Download's</h2>
  <ul>
! <li>
! <a href="http://sourceforge.net/project/showfiles.php?group_id=55294&package_id=50210&release_id=102027">Tom Zimmer's last
! Win32Forth Version 4.2 Build 671</a>
! </li>
  
! <li>
! Our new stable Win32Forth release <a href="./downloads/w32f61003.exe">6.10.03</a>
! (This Version was released on <b>June 20th,</b> 2005). See release
! <a href="./doc/p-relnotes.6.10.htm">notes</a> for more information.
! </li>
  
! <li>
! <a href="./downloads/w32f61103.exe">Our current Win32Forth developer release 6.11.03</a>
! (the snapshot was taken from our CVS on <b>June 12th,</b> 2005). See release
! <a href="./doc/p-relnotes.6.12.htm">notes</a> for more information.
! </li>
  
! <li>
! And <a href="downloads.htm">here</a> you'll find some more useful sources.
! </li>
  </ul>
  
  <hr>
- <h2>Links to other Win32Forth websites</h2>
- <ul>
- <li><a href="http://sourceforge.net/projects/win32forth">Win32Forth on sourceforge.net</a></li>
- <li><a href="http://home.planet.nl/~josv/">Jos v.d.Ven is using Win32Forth for Graphics and parallel arithmetic</a></li>
- <li><a href="http://www.sunterr.demon.co.uk/">Working with Win32Forth</a></li>
- <li><a href="http://www.concentric.net/~jkelm/win32for/index.htm">Jeff's Win32 Programming Examples using Win32Forth</a></li>
- <li><a href="http://www.forth.org/svfig/Win32Forth/items.html">Win32Forth at the FIG Silicon Valley Chapter</a></li>
- <li><a href="http://users.cybercity.dk/~ccc27382/">Michael Hillerström Win32Forth page</a></li>
- <li><a href="http://win32forth.de.vu">Dirk's Win32Forth page</a></li>
- <li><a href="http://mrrainbowsallysir.1afm.com/Win32Forth/FUN.htm">The FUN series for Win32Forth</a></li>
- <li><a href="http://phma.hn.org/Software/csv2html.html">A csv to html converter written with Win32Forth</a></li>
- <li><a href="http://www.marioferrari.org/emupbforth/emupbforth.html">A pbForth emulator.</a> <a href="http://www.hempeldesigngroup.com/lego/pbForth/">
- pbForth</a> is designed to work with the LEGO Mindstorms RCX brick</li>
  
  
  </ul>
  
  <hr>
! <p>
! <table border=1 width="100%" cellpadding=2 cellspacing=0 bordercolor="#990066"><tr><td><table border=0 cellpadding=1 cellspacing=0 bgcolor="#ffcccc" width="100%"><tr><td><table border=0 cellpadding=0 cellspacing=4 width="100%" ><tr><td nowrap><font face=arial color="#000000"><b>Forth Programming Webring </b></font></td></tr><tr><td nowrap colspan=2 ><font face=arial size=-1 color="#000000"> [ <a href="http://T.webring.com/wrman?ring=forth&addsite" target=_top>Join Now</a> | <a href="http://T.webring.com/hub?ring=forth&id=20&hub" target=_top>Ring Hub</a> | <a href="http://T.webring.com/go?ring=forth&id=20&random" target=_top>Random</a> | <b><a href="http://T.webring.com/go?ring=forth&id=20&prev" target=_top>&lt;&lt; Prev</a> | <a href="http://T.webring.com/go?ring=forth&id=20&next" target=_top>Next &gt;&gt;</a></b> ] </font></td></tr></table></td></tr></table></td></tr></table>
! </p>
  
  <hr>
- <p>
- Copyright 2004-2005 by the <a href="mailto:web...@wi...">Win32Forth Project Group</a>.<br>
- Last change June 12th, 2005
- </p>
  
! <p>
! <!-- Begin Nedstat Basic code -->
! <!-- Title: Win32Forth Project Group -->
! <!-- URL: http://www.win32forth.org/ -->
! <script language="JavaScript" type="text/javascript"
  src="http://m1.nedstatbasic.net/basic.js"> </script> <script
! language="JavaScript" type="text/javascript" > <!--
    nedstatbasic("ACuuJgGYTcxB9cKZQqe7Qfv26SzA", 0);
  // -->
! </script>
! <noscript>
! <a target="_blank"
! href="http://www.nedstatbasic.net/stats?ACuuJgGYTcxB9cKZQqe7Qfv26SzA">
! <img src="http://m1.nedstatbasic.net/n?id=ACuuJgGYTcxB9cKZQqe7Qfv26SzA"
! border="0" width="18" height="18" alt="Nedstat Basic"></a><br>
! <a target="_blank" href="http://www.nedstatbasic.net/">Nedstat Basic</a>
! </noscript>
! <!-- End Nedstat Basic code -->
! </p>
! 
  </body>
  </html>
--- 18,208 ----
  <body>
  
! <h1 align="center">The Home of the<br>
! <img src="forthpro.gif" width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img
! src="forthpro.gif" width="32" height="32"><br>
! Project Group</h1>
  
  <hr>
+ 
  <h2>About Win32Forth</h2>
  
  <ul>
!     <li><a href="doc/p-index.htm">Win32Forth</a> is a public
!         domain, ANS compatible, Forth language application
!         development system. It was initially written by Andrew
!         McKewan, Tom Zimmer, Robert Smith and Jim Schneider
!         during 1994 and 1995, and released into the public domain
!         (with the exception of Jim Schneider's assembler which
!         was under the GPL). Win32Forth is a FAT (as in BIG)
!         system, adhering to the philosophy that if some tools are
!         good, many tools must be better. It includes an
!         interactive console and an integrated extensible source
!         level debugger. Editing of source text is facilitated by
!         the included WinEd hypertext file editor, which allows
!         easy exploration of the many mega-bytes of source code
!         that makes up Win32Forth. </li>
  </ul>
  
  <hr>
+ 
  <h2>About us</h2>
  
  <ul>
!     <li>The <a href="http://groups.yahoo.com/group/win32forth">Win32Forth
!         Project Group</a> was formed in 2002, by John A. Peters,
!         on TopicA.com. It grew in to a loose affiliation of
!         programmers and users of <a
!         href="http://www.radiks.net/~jimbo/art/int6.htm">Tom
!         Zimmer's</a> Win32Forth system. Tom interests took him
!         elsewhere in 2001 and 2002 (mainly Java), and he no
!         longer took an active interest in his system. Tom
!         re-affirmed that his product was in the public domain;
!         this group intends furthering the work of maintaining and
!         developing a Forth product suitable for Windows and the
!         21st century based on his work. </li>
  </ul>
  
  <hr>
+ 
  <h2>How to find us</h2>
+ 
  <ul>
!     <li>You can find us, on our maillist at: <a
!         href="http://groups.yahoo.com/group/win32forth">http://groups.yahoo.com/group/win32forth</a>.
!     </li>
  </ul>
  
  <hr>
! 
! <h2>How to join us</h2>
! 
  <ul>
!     <li>Here is a <a href="howtojoin.htm">description and short
!         manual </a>of the used resouces for the Internet we use
!         to develop Win32Forth.</li>
! </ul>
  
! <hr>
  
! <h2>Download's</h2>
  
! <ul>
!     <li><a
!         href="http://sourceforge.net/project/showfiles.php?group_id=55294&amp;package_id=50210&amp;release_id=102027">Tom
!         Zimmer's last Win32Forth Version 4.2 Build 671</a> </li>
!     <li>Our new stable Win32Forth release <a
!         href="downloads/w32f61003.exe">6.10.03</a> (This Version
!         was released on <b>June 20th,</b> 2005). See release <a
!         href="doc/p-relnotes.6.10.htm">notes</a> for more
!         information. </li>
!     <li><a href="downloads/w32f61103.exe">Our current Win32Forth
!         developer release 6.11.03</a> (the snapshot was taken
!         from our CVS on <b>June 12th,</b> 2005). See release <a
!         href="doc/p-relnotes.6.12.htm">notes</a> for more
!         information. </li>
!     <li>And <a href="downloads.htm">here</a> you'll find some
!         more useful sources. </li>
  </ul>
  
  <hr>
  
+ <h2>Links to other Win32Forth websites</h2>
  
+ <ul>
+     <li><a href="http://sourceforge.net/projects/win32forth">Win32Forth
+         on sourceforge.net</a></li>
+     <li><a href="http://home.planet.nl/~josv/">Jos v.d.Ven is
+         using Win32Forth for Graphics and parallel arithmetic</a></li>
+     <li><a href="http://www.sunterr.demon.co.uk/">Working with
+         Win32Forth</a></li>
+     <li><a
+         href="http://www.concentric.net/~jkelm/win32for/index.htm">Jeff's
+         Win32 Programming Examples using Win32Forth</a></li>
+     <li><a
+         href="http://www.forth.org/svfig/Win32Forth/items.html">Win32Forth
+         at the FIG Silicon Valley Chapter</a></li>
+     <li><a href="http://users.cybercity.dk/~ccc27382/">Michael
+         Hillerström Win32Forth page</a></li>
+     <li><a href="http://win32forth.de.vu">Dirk's Win32Forth page</a></li>
+     <li><a
+         href="http://mrrainbowsallysir.1afm.com/Win32Forth/FUN.htm">The
+         FUN series for Win32Forth</a></li>
+     <li><a href="http://phma.hn.org/Software/csv2html.html">A csv
+         to html converter written with Win32Forth</a></li>
+     <li><a
+         href="http://www.marioferrari.org/emupbforth/emupbforth.html">A
+         pbForth emulator.</a> <a
+         href="http://www.hempeldesigngroup.com/lego/pbForth/">pbForth</a>
+         is designed to work with the LEGO Mindstorms RCX brick</li>
  </ul>
  
  <hr>
! 
! <table border="1" cellpadding="2" cellspacing="0" width="100%"
! bordercolor="#990066">
!     <tr>
!         <td><table border="0" cellspacing="0" width="100%"
!         bgcolor="#FFCCCC">
!             <tr>
!                 <td><table border="0" cellpadding="0"
!                 cellspacing="4" width="100%">
!                     <tr>
!                         <td nowrap><font color="#000000"
!                         face="arial"><b>Forth Programming Webring
!                         </b></font></td>
!                     </tr>
!                     <tr>
!                         <td colspan="2" nowrap><font
!                         color="#000000" size="2" face="arial">[ </font><a
!                         href="http://T.webring.com/wrman?ring=forth&amp;addsite"
!                         target="_top"><font color="#000000"
!                         size="2" face="arial">Join Now</font></a><font
!                         color="#000000" size="2" face="arial"> | </font><a
!                         href="http://T.webring.com/hub?ring=forth&amp;id=20&amp;hub"
!                         target="_top"><font color="#000000"
!                         size="2" face="arial">Ring Hub</font></a><font
!                         color="#000000" size="2" face="arial"> | </font><a
!                         href="http://T.webring.com/go?ring=forth&amp;id=20&amp;random"
!                         target="_top"><font color="#000000"
!                         size="2" face="arial">Random</font></a><font
!                         color="#000000" size="2" face="arial"> | </font><a
!                         href="http://T.webring.com/go?ring=forth&amp;id=20&amp;prev"
!                         target="_top"><font color="#000000"
!                         size="2" face="arial"><b>&lt;&lt; Prev</b></font></a><font
!                         color="#000000" size="2" face="arial"><b>
!                         | </b></font><a
!                         href="http://T.webring.com/go?ring=forth&amp;id=20&amp;next"
!                         target="_top"><font color="#000000"
!                         size="2" face="arial"><b>Next &gt;&gt;</b></font></a><font
!                         color="#000000" size="2" face="arial"> ] </font></td>
!                     </tr>
!                 </table>
!                 </td>
!             </tr>
!         </table>
!         </td>
!     </tr>
! </table>
  
  <hr>
  
! <p>Copyright 2004-2005 by the <a
! href="mailto:web...@wi...">Win32Forth Project Group</a>.<br>
! Last change <!--webbot bot="Timestamp" startspan s-type="EDITED"
! s-format="%m/%d/%y" -->06/23/05<!--webbot bot="Timestamp"
! i-checksum="12920" endspan --></p>
! 
! <p><!-- Begin Nedstat Basic code --> <!-- Title: Win32Forth Project Group --> <!-- URL: http://www.win32forth.org/ --> <script language="JavaScript" type="text/javascript"
  src="http://m1.nedstatbasic.net/basic.js"> </script> <script
! language="JavaScript" type="text/javascript"> <!--
    nedstatbasic("ACuuJgGYTcxB9cKZQqe7Qfv26SzA", 0);
  // -->
! </script> <noscript> <a
! href="http://www.nedstatbasic.net/stats?ACuuJgGYTcxB9cKZQqe7Qfv26SzA"
! target="_blank"><img
! src="http://m1.nedstatbasic.net/n?id=ACuuJgGYTcxB9cKZQqe7Qfv26SzA"
! alt="Nedstat Basic" border="0" width="18" height="18"></a><br>
! <a href="http://www.nedstatbasic.net/" target="_blank">Nedstat
! Basic</a> </noscript> <!-- End Nedstat Basic code --> </p>
  </body>
  </html>

[Win32forth-cvs] win32for4web/downloads en_de_crypt.f,NONE,1.1 organ.zip,NONE,1.1

From: Dirk B. <db...@us...> - 2005-06-29 16:05:43

Update of /cvsroot/win32forth/win32for4web/downloads
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29571/downloads

Added Files:
	en_de_crypt.f organ.zip 
Log Message:
Fixed a broken link in downloads.htm; and get the CVS in sync with the HP

--- NEW FILE: en_de_crypt.f ---
anew en_de_crypt.f

Needs apps\Chess\toolset.f

\ A simple encrypt/decrypt tool. It Uses one key.

: encryption-key ( - adr count  )    s" 4ePost"  ;

: encrypt/decrypt$ ( orginal$|encrypted$ count - encrypted$|orginal$ count )
   encryption-key third 0 locals| key-char cnt max-key |
   -rot 0
       do   i  max-key /mod drop third + c@ to key-char  \ key-char
            dup i + c@                                   \ char to encript/decript
            dup i 1+ key-char + 8 /mod drop tuck test-bit not swap bit! \ encript/decript
            i tmp$ + c!                                  \ store it
       loop
    2drop tmp$ cnt
   ;


\s Use

s" Secret" encrypt/decrypt$ 2dup dump .(  Encrypted) cr encrypt/decrypt$  dump .(  Decrypted)

\s
\ Shows:

  43B185 | 73 E5 6B 7A 64 70                                |såkzdp| Encrypted

  43B185 | 53 65 63 72 65 74                                |Secret| Decrypted


--- NEW FILE: organ.zip ---
(This appears to be a binary file; contents omitted.)

[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.16,1.17

From: Jos v.d.V. <jo...@us...> - 2005-06-27 19:17:37

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18187/win32forth/apps/Player4

Modified Files:
	PLAYER4.F 
Log Message:
Jos: Changed the way the icon is added. Thank's to Rod Oakford.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** PLAYER4.F	26 Jun 2005 15:49:31 -0000	1.16
--- PLAYER4.F	27 Jun 2005 19:16:54 -0000	1.17
***************
*** 534,544 ****
          false to MciDebug?
          ' player4 turnkey Player4.exe
! \        s" apps\Player4\Player4.ico" s" Player4.exe" AddAppIcon
!         s" Player4.ico" s" Player4.exe" AddAppIcon   
          1 pause-seconds
  [else]
          true to MciDebug?
! \        s" apps\Player4\Player4.ico" s" Player4.exe" AddAppIcon
!         s" Player4.ico" s" Player4.exe" AddAppIcon
          PLAYER4
  [then]
--- 534,543 ----
          false to MciDebug?
          ' player4 turnkey Player4.exe
!         s" apps\Player4\Player4.ico" Prepend<home>\ s" Player4.exe" AddAppIcon
! 
          1 pause-seconds
  [else]
          true to MciDebug?
!         s" apps\Player4\Player4.ico" Prepend<home>\ s" Player4.exe" AddAppIcon
          PLAYER4
  [then]

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

Flat | Threaded

<< < 1 .. 98 99 100 101 102 .. 113 > >> (Page 100 of 113)