Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: George H. <geo...@us...> - 2011-11-17 20:38:17
|
Update of /cvsroot/win32forth/win32forth/Help/html
In directory vz-cvs-4.sog:/tmp/cvs-serv27838
Modified Files:
dexh-AcceleratorTables.htm dexh-paths.htm
w32f-relnotes.6.14.htm w32f-relnotes.6.15.htm
Log Message:
Added to release notes plus some minor edits
Index: w32f-relnotes.6.15.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-relnotes.6.15.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** w32f-relnotes.6.15.htm 14 Feb 2010 19:52:07 -0000 1.1
--- w32f-relnotes.6.15.htm 17 Nov 2011 20:38:15 -0000 1.2
***************
*** 8,12 ****
! <h1>Release Notes for version 6.14.00 </h2>
<h2>Contributors (in alphabetical order) </h2>
--- 8,12 ----
! <h1>Release Notes for version 6.16.00 </h2>
<h2>Contributors (in alphabetical order) </h2>
***************
*** 31,36 ****
<h3>System Changes</h3>
<ul>
! <li>Line to be replaced by the first change</li>
!
</ul>
--- 31,46 ----
<h3>System Changes</h3>
<ul>
! <li>Number of locals increased to 16.</li>
! <li>200X {: :} locals syntax added.</li>
! <li>EXECUTE-PARSING added.</li>
! <li>200X PARSE-NAME added.</li>
! <li>RECURSE now works correctly with :NONAME</li>
! <li>RESTORE-INPUT now repositions the file and rereads the line if input source is a file.</li>
! <li>USER area increased to 8192 bytes</li>
! <li>USER area moved down closer to parameter stack.</li>
! <li>New user variable TASK-STATUS added to provide 32 bit flags (8 for applications), plus access words.</li>
! <li>Assychronous callbacks in multi-media automatically handled.</li>
! <li>Opening source files associated with an editor (WinEd, SciEdit or Win32ForthIDE) when the editor is
! running causes the file to display in the running instance.</li>
</ul>
***************
*** 67,71 ****
<hr>
! <p>Document : w32f-relnotes.6.15.htm -- 2010/02/14 -- </p>
</body>
--- 77,81 ----
<hr>
! <p>Document : w32f-relnotes.6.16.htm -- 2010/02/14 -- </p>
</body>
Index: dexh-AcceleratorTables.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-AcceleratorTables.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dexh-AcceleratorTables.htm 15 May 2008 06:28:27 -0000 1.1
--- dexh-AcceleratorTables.htm 17 Nov 2011 20:38:15 -0000 1.2
***************
*** 29,33 ****
</code></b><br>Start a table of entries in the dictionary
</p><p><b><code>: AccelEntry ( flags key-code command-id -- ) \ W32F sys
! </code></b><br>Add a entry to the current table
</p><p><b><code>: HandlesThem ( Window -- ) \ W32F
</code></b><br>Close a table and assign it to the given window.
--- 29,33 ----
</code></b><br>Start a table of entries in the dictionary
</p><p><b><code>: AccelEntry ( flags key-code command-id -- ) \ W32F sys
! </code></b><br>Add an entry to the current table
</p><p><b><code>: HandlesThem ( Window -- ) \ W32F
</code></b><br>Close a table and assign it to the given window.
Index: w32f-relnotes.6.14.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-relnotes.6.14.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** w32f-relnotes.6.14.htm 14 Feb 2010 19:48:03 -0000 1.4
--- w32f-relnotes.6.14.htm 17 Nov 2011 20:38:15 -0000 1.5
***************
*** 62,66 ****
<h2>New Libraries</h2>
! <ul> <li><b>EscapedStrings.f</b> Initial written by Stephen Pelc modified for Win32Forth by Dirk Busch.</li>
</ul>
--- 62,66 ----
<h2>New Libraries</h2>
! <ul> <li><b>EscapedStrings.f</b> Initially written by Stephen Pelc modified for Win32Forth by Dirk Busch.</li>
</ul>
Index: dexh-paths.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-paths.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** dexh-paths.htm 18 Aug 2011 15:43:28 -0000 1.3
--- dexh-paths.htm 17 Nov 2011 20:38:15 -0000 1.4
***************
*** 23,27 ****
</p><p><b><code>: path: ( -- )
</code></b><br>Defines a directory search path. <br />
! The first 2 cells are used to handle a search path. <br />
The next 260 bytes are reserved for a counted string of a path. <br />
followed by null. <br />
--- 23,27 ----
</p><p><b><code>: path: ( -- )
</code></b><br>Defines a directory search path. <br />
! The first cell holds a pointer to 2 cells in the user area which are used to handle a search path. <br />
The next 260 bytes are reserved for a counted string of a path. <br />
followed by null. <br />
|
|
From: George H. <geo...@us...> - 2011-11-17 19:36:25
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv7362
Modified Files:
fkernel.f
Log Message:
Tidied up.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** fkernel.f 9 Nov 2011 22:00:07 -0000 1.81
--- fkernel.f 17 Nov 2011 19:36:22 -0000 1.82
***************
*** 5054,5060 ****
IF
LOADFILE COUNT CUR-FILE PLACE \ make current again
- \ 0 to source-position
- \ 0 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
- \ >in @ LOADLINE @ 0 LoadLine ! 0 ?do refill drop loop >in !
source-position 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
TIB MAXSTRING SOURCE-ID READ-LINE THROW_FILEREADFAIL ?THROW drop (SOURCE) !
--- 5054,5057 ----
|
|
From: George H. <geo...@us...> - 2011-11-09 23:31:35
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv20221
Modified Files:
CALLBACK.f
Log Message:
Oops! added missing initialisation code.
Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** CALLBACK.f 9 Nov 2011 22:00:07 -0000 1.16
--- CALLBACK.f 9 Nov 2011 23:31:33 -0000 1.17
***************
*** 82,85 ****
--- 82,86 ----
sub esp, # 32
mov SP0 [UP] , esp \ reset SP0
+ and useroffs negate [edx] , # Assync-task
jmp L$2
L$1: push SP0 [UP] \ save sp0 on stack
|
|
From: George H. <geo...@us...> - 2011-11-09 22:00:09
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv4075/kernel
Modified Files:
fkernel.f
Log Message:
Added extra comments and finished assynchronous callback code.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.80
retrieving revision 1.81
diff -C2 -d -r1.80 -r1.81
*** fkernel.f 17 Sep 2011 14:30:19 -0000 1.80
--- fkernel.f 9 Nov 2011 22:00:07 -0000 1.81
***************
*** 2019,2032 ****
--- 2019,2039 ----
TCB TASK-STATUS - CONSTANT USEROFFS ( user offset, 3 cells )
+ \ *P The following words are for altering the task-status bits so u should be a power of 2 representing
+ \ ** the relevant mask.
+
: Task-Set ( u -- )
+ \ *G Set task-status bit to true.
Task-Status @ or Task-Status ! ;
: Task-Clear ( u -- )
+ \ *G Clear task-status bit.
Invert Task-Status @ and Task-Status ! ;
: Task-Flip ( u -- )
+ \ *G Toggle task-status bit.
Task-Status @ xor Task-Status ! ;
: Task-Status? ( -- f )
+ \ *G Test task-status bit.
Task-Status or 0 <> ;
***************
*** 2035,2038 ****
--- 2042,2046 ----
: Main? ( -- f )
+ \ *G Returns true if this is the main (i.e. console task).
Main-Task Task-Status? ;
|
|
From: George H. <geo...@us...> - 2011-11-09 21:57:49
|
Update of /cvsroot/win32forth/win32forth/src/tools
In directory vz-cvs-4.sog:/tmp/cvs-serv3889
Modified Files:
DexH.f DumpWindows.f
Log Message:
Dex now accepts quoted file names
Index: DumpWindows.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DumpWindows.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DumpWindows.f 24 Feb 2007 13:58:54 -0000 1.3
--- DumpWindows.f 9 Nov 2011 21:57:47 -0000 1.4
***************
*** 26,30 ****
2 CallBack: DumpWindowCallback { hWnd lParam \ buff$ -- int }
\ *G The callback function for EnumWindows().
! \ *P CallBack: Need's the NUMBER OF PARAMTERS passed to the funtion by
\ ** Windows on TOS
\ **
--- 26,30 ----
2 CallBack: DumpWindowCallback { hWnd lParam \ buff$ -- int }
\ *G The callback function for EnumWindows().
! \ *P CallBack: Need's the NUMBER OF PARAMETERS passed to the funtion by
\ ** Windows on TOS
\ **
Index: DexH.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** DexH.f 23 Dec 2008 21:12:06 -0000 1.9
--- DexH.f 9 Nov 2011 21:57:47 -0000 1.10
***************
*** 408,412 ****
( *G Convert a file or files to HTML. Output filenames are included in the )
( ** source file. )
! BL PARSE (dex) ;
: q ( <string> -- )
--- 408,412 ----
( *G Convert a file or files to HTML. Output filenames are included in the )
( ** source file. )
! /PARSE-S$ count (dex) ;
: q ( <string> -- )
|
|
From: George H. <geo...@us...> - 2011-09-17 14:45:16
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv3398
Modified Files:
Class.f
Log Message:
More work on errors (still work in progress)
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** Class.f 18 Aug 2011 15:28:47 -0000 1.38
--- Class.f 17 Sep 2011 14:45:13 -0000 1.39
***************
*** 99,103 ****
THROW_NO_BITS ?throw
dup 0=
! abort" Zero length bit fields are not allowed"
bitcnt bitmaxval =
if 0 to bitcnt
--- 99,103 ----
THROW_NO_BITS ?throw
dup 0=
! THROW_ZERO_BITS ?throw
bitcnt bitmaxval =
if 0 to bitcnt
***************
*** 106,110 ****
dup >mask bitcnt lshift , \ save bit mask of data in item
dup bitcnt + bitmaxval >
! abort" Bit field exceeded bits allowed in this field"
+to bitcnt ;
--- 106,110 ----
dup >mask bitcnt lshift , \ save bit mask of data in item
dup bitcnt + bitmaxval >
! THROW_BIG_BITS ?throw
+to bitcnt ;
***************
*** 218,222 ****
: [self] ( -- )
! true abort" Use only for self-reference to object" ; immediate
: ?isObj ( cfa -- f )
--- 218,222 ----
: [self] ( -- )
! THROW_NOT_SELF throw ; immediate
: ?isObj ( cfa -- f )
***************
*** 243,247 ****
\ ERROR if not compiling a new class definition
: ?Class ( -- )
! ^class 0= abort" Not in a class" ;
\ Determine if next word is an instance var.
--- 243,247 ----
\ ERROR if not compiling a new class definition
: ?Class ( -- )
! ^class 0= THROW_NOT_IN_CLASS ?throw ;
\ Determine if next word is an instance var.
***************
*** 343,347 ****
dup XFA @ >r dup>r \ save XFA contents and class ptr
>in @
! @word Vfind abort" Duplicate Instance Variable"
swap >in !
contiguous-data? \ if contiguous flag non zero
--- 343,347 ----
dup XFA @ >r dup>r \ save XFA contents and class ptr
>in @
! @word Vfind THROW_IVAR_EXISTS ?throw
swap >in !
contiguous-data? \ if contiguous flag non zero
***************
*** 434,438 ****
\ *G Allocate memory for an object of -<class>- on the heap, initialise the object
\ ** and return the object address.
! ' dup ?isClass not abort" Use: New> classname "
>body
STATE @
--- 434,438 ----
\ *G Allocate memory for an object of -<class>- on the heap, initialise the object
\ ** and return the object address.
! ' dup ?isClass not THROW_NEW> ?throw
>body
STATE @
***************
*** 550,554 ****
' dup ?isClass
if >Class inherit
! else dup ?isObj 0= abort" not a class or object"
>Class @ inherit
then ;
--- 550,554 ----
' dup ?isClass
if >Class inherit
! else dup ?isObj 0= THROW_NOT_CLASS_OR_OBJ ?throw
>Class @ inherit
then ;
|
|
From: George H. <geo...@us...> - 2011-09-17 14:30:22
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv1203
Modified Files:
fkernel.f
Log Message:
Improved RESTORE-INPUT and error reporting
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.79
retrieving revision 1.80
diff -C2 -d -r1.79 -r1.80
*** fkernel.f 14 Sep 2011 13:18:19 -0000 1.79
--- fkernel.f 17 Sep 2011 14:30:19 -0000 1.80
***************
*** 5046,5052 ****
IF
LOADFILE COUNT CUR-FILE PLACE \ make current again
! 0 to source-position
! 0 0 source-id reposition-file drop
! >in @ LOADLINE @ 0 LoadLine ! 0 ?do refill drop loop >in !
THEN
FALSE ;
--- 5046,5054 ----
IF
LOADFILE COUNT CUR-FILE PLACE \ make current again
! \ 0 to source-position
! \ 0 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
! \ >in @ LOADLINE @ 0 LoadLine ! 0 ?do refill drop loop >in !
! source-position 0 source-id reposition-file THROW_FILEREADFAIL ?THROW
! TIB MAXSTRING SOURCE-ID READ-LINE THROW_FILEREADFAIL ?THROW drop (SOURCE) !
THEN
FALSE ;
***************
*** 5572,5582 ****
S>D (D.) TYPE ." ): " \ i.e "Error(-234): <name> "
POCKET ?TYPE \ show whatever was parsed by WORD
- MSG @ ?TYPE \ if message already set, print it
- NULLMSG MSG ! \ set null message
THROW_MSGS \ list of message
BEGIN @ ?DUP \ get pointer to next message
WHILE DUP CELL+ @ LAST-ERROR = \ if it matches
! IF 2 CELLS+ ?TYPE PTRNULL THEN \ print the message, set ptr 2 null to stop loop
REPEAT
LOADING? IF
." in file " LOADFILE ?TYPE
--- 5574,5585 ----
S>D (D.) TYPE ." ): " \ i.e "Error(-234): <name> "
POCKET ?TYPE \ show whatever was parsed by WORD
THROW_MSGS \ list of message
BEGIN @ ?DUP \ get pointer to next message
WHILE DUP CELL+ @ LAST-ERROR = \ if it matches
! IF 2 CELLS+ ?TYPE NULLMSG MSG ! \ print the message and clear it
! PTRNULL THEN \ set ptr to null to stop loop
REPEAT
+ MSG @ ?TYPE \ if message already set, print it
+ NULLMSG MSG ! \ set null message
LOADING? IF
." in file " LOADFILE ?TYPE
|
|
From: George H. <geo...@us...> - 2011-09-14 13:35:11
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv1434
Modified Files:
Window.f
Log Message:
Minor corrections
Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Window.f 14 Feb 2010 17:46:23 -0000 1.25
--- Window.f 14 Sep 2011 13:35:08 -0000 1.26
***************
*** 661,665 ****
:M PushKey: ( c1 -- )
! \ *G override to process keys yoruself.
pushkey ;M
--- 661,665 ----
:M PushKey: ( c1 -- )
! \ *G override to process keys yourself.
pushkey ;M
|
|
From: George H. <geo...@us...> - 2011-09-14 13:18:21
|
Update of /cvsroot/win32forth/win32forth/src/kernel
In directory vz-cvs-4.sog:/tmp/cvs-serv32515
Modified Files:
fkernel.f
Log Message:
Modified Restore-input to work if Save-input is used within a file.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -d -r1.78 -r1.79
*** fkernel.f 18 Aug 2011 12:59:52 -0000 1.78
--- fkernel.f 14 Sep 2011 13:18:19 -0000 1.79
***************
*** 5024,5027 ****
--- 5024,5029 ----
\ -------------------- save/restore file input ------------------------------
+
+
: SAVE-INPUT ( -- ... 7 ) \ save input
LOADFILE
***************
*** 5044,5047 ****
--- 5046,5052 ----
IF
LOADFILE COUNT CUR-FILE PLACE \ make current again
+ 0 to source-position
+ 0 0 source-id reposition-file drop
+ >in @ LOADLINE @ 0 LoadLine ! 0 ?do refill drop loop >in !
THEN
FALSE ;
|
|
From: Jos v.d.V. <jo...@us...> - 2011-09-09 11:16:11
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv9245
Modified Files:
SUB_DIRS.F
Log Message:
Jos, Added sub_dir_access for more flexibility.
An application can now decide what right should be used.
Index: SUB_DIRS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** SUB_DIRS.F 11 Jul 2010 02:34:01 -0000 1.9
--- SUB_DIRS.F 9 Sep 2011 11:16:09 -0000 1.10
***************
*** 11,14 ****
--- 11,18 ----
\ July 4th, 2003 - 17:28 Changed for use in WinEd 2.21.00 - dbu
+ \ September 9th, 2011 Added sub_dir_access.
+ \ Using FILE_READ_ATTRIBUTES in it is faster and can be used when you do not need to open a file.
+ \ R/O is needed for the IDE or WinEd
+
IN-APPLICATION
***************
*** 31,34 ****
--- 35,39 ----
2variable mask-source
+ R/O value sub_dir_access
: next-mask" ( -- a1 n1 ) \ get the next path from dir list
***************
*** 47,51 ****
name-buf +place \ append filename
open-file?
! if name-buf count r/o open-file 0= \ open the file
IF to search-hndl \ store file handle
process-1file \ process it
--- 52,56 ----
name-buf +place \ append filename
open-file?
! if name-buf count sub_dir_access open-file 0= \ open the file
IF to search-hndl \ store file handle
process-1file \ process it
|
|
From: George H. <geo...@us...> - 2011-09-08 23:38:36
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv19906
Modified Files:
Main.f
Log Message:
Now only updates on the first change
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.72
retrieving revision 1.73
diff -C2 -d -r1.72 -r1.73
*** Main.f 8 Sep 2011 23:12:19 -0000 1.72
--- Main.f 8 Sep 2011 23:38:34 -0000 1.73
***************
*** 1133,1137 ****
UpdateSelectionMode? if
SelectionMode SetSelectionMode: ChildWindow \ update
! SelectionMode SC_SEL_STREAM = if false to UpdateSelectionMode? then then
SelectionMode
virtualspace?
--- 1133,1140 ----
UpdateSelectionMode? if
SelectionMode SetSelectionMode: ChildWindow \ update
! \ SelectionMode SC_SEL_STREAM = if
! false to UpdateSelectionMode?
! \ then
! then
SelectionMode
virtualspace?
|
|
From: George H. <geo...@us...> - 2011-09-08 23:12:21
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv13781
Modified Files:
EdCommand.f Main.f
Log Message:
Modified IDE to only update selection modes when not normal
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** Main.f 7 Sep 2011 03:00:23 -0000 1.71
--- Main.f 8 Sep 2011 23:12:19 -0000 1.72
***************
*** 47,50 ****
--- 47,51 ----
0 value FormList \ pointer to list of open forms
0 value ActiveCoder \ the MDI child window used for editing form code
+ 0 value UpdateSelectionMode?
SC_SEL_STREAM value SelectionMode \ default mode for editing
***************
*** 1130,1134 ****
--- 1131,1138 ----
if Update: ChildParent
RefreshColors
+ UpdateSelectionMode? if
SelectionMode SetSelectionMode: ChildWindow \ update
+ SelectionMode SC_SEL_STREAM = if false to UpdateSelectionMode? then then
+ SelectionMode
virtualspace?
if [ SCVS_USERACCESSIBLE SCVS_RECTANGULARSELECTION or ] LITERAL
***************
*** 1612,1616 ****
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
: Main ( -- )
! \ Removed setting the thread priority of the main task. It block's the system
\ too much and isn't really needed (Montag, Oktober 09 2006, dbu).
w32fsharep 0=
--- 1616,1620 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
: Main ( -- )
! \ Removed setting the thread priority of the main task. It blocks the system
\ too much and isn't really needed (Montag, Oktober 09 2006, dbu).
w32fsharep 0=
Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** EdCommand.f 7 Sep 2011 03:00:23 -0000 1.19
--- EdCommand.f 8 Sep 2011 23:12:19 -0000 1.20
***************
*** 224,234 ****
: NormalSelectionMode ( -- )
! SC_SEL_STREAM to SelectionMode Update ; IDM_NORMALSELECTION SetCommand
: ColumnSelectionMode ( -- )
! SC_SEL_RECTANGLE to SelectionMode Update ; IDM_COLUMNSELECTION SetCommand
: LineSelectionMode ( -- )
! SC_SEL_LINES to SelectionMode Update ; IDM_LINESELECTION SetCommand
--- 224,234 ----
: NormalSelectionMode ( -- )
! SC_SEL_STREAM to SelectionMode True to UpdateSelectionMode? Update ; IDM_NORMALSELECTION SetCommand
: ColumnSelectionMode ( -- )
! SC_SEL_RECTANGLE to SelectionMode True to UpdateSelectionMode? Update ; IDM_COLUMNSELECTION SetCommand
: LineSelectionMode ( -- )
! SC_SEL_LINES to SelectionMode True to UpdateSelectionMode? Update ; IDM_LINESELECTION SetCommand
|
|
From: Ezra B. <ezr...@us...> - 2011-09-07 03:00:25
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv20162
Modified Files:
EdCommand.f Main.f ScintillaMDI.f
Log Message:
IDE bug fixes. EAB
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -d -r1.70 -r1.71
*** Main.f 19 Aug 2011 12:59:47 -0000 1.70
--- Main.f 7 Sep 2011 03:00:23 -0000 1.71
***************
*** 324,327 ****
--- 324,330 ----
VK_CONTROL Call GetKeyState 0x8000 and ;
+ : shift-key? ( -- f ) \ console not available in IDE
+ VK_SHIFT Call GetKeyState 0x8000 and ;
+
\ ************************************************************************************
Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** EdCommand.f 26 Jul 2011 20:29:55 -0000 1.18
--- EdCommand.f 7 Sep 2011 03:00:23 -0000 1.19
***************
*** 94,100 ****
0= if call PostQuitMessage drop then ; IDM_EXIT SetCommand
! : OpenRecentFile { \ ctrl? -- }
( File$ -- )
control-key? to ctrl?
count LoadFile: ViewerFile 0= ?exit
GetName: ViewerFile count 2dup OpenedByExtension?
--- 94,101 ----
0= if call PostQuitMessage drop then ; IDM_EXIT SetCommand
! : OpenRecentFile { \ ctrl? shift? -- }
( File$ -- )
control-key? to ctrl?
+ shift-key? to shift?
count LoadFile: ViewerFile 0= ?exit
GetName: ViewerFile count 2dup OpenedByExtension?
***************
*** 112,116 ****
else (OpenSourceFile)
then exit
! then ctrl?
if (OpenBinaryFile) \ open text file as hex
else (OpenSourceFile)
--- 113,117 ----
else (OpenSourceFile)
then exit
! then ctrl? shift? 0= and
if (OpenBinaryFile) \ open text file as hex
else (OpenSourceFile)
Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ScintillaMDI.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ScintillaMDI.f 26 Jul 2011 20:29:55 -0000 1.15
--- ScintillaMDI.f 7 Sep 2011 03:00:23 -0000 1.16
***************
*** 187,198 ****
:M FindText: { \ SelBuf$ -- }
\ move selected text into find-buf
! 0 GetSelText: ChildWindow LocalAlloc: SelBuf$
SelBuf$ GetSelText: ChildWindow
! if SelBuf$ zcount BL skip -trailing 10 -TRAILCHARS 13 -TRAILCHARS
?dup if FindText$ place else drop then
then
FindText$ self Start: FindTextDlg
! case 0 of exitm endof
1 of 0 endof \ ignore case
2 of SCFIND_MATCHCASE endof
--- 187,198 ----
:M FindText: { \ SelBuf$ -- }
\ move selected text into find-buf
! 0 GetSelText: ChildWindow malloc to SelBuf$
SelBuf$ GetSelText: ChildWindow
! if SelBuf$ zcount maxcounted min BL skip -trailing 10 -TRAILCHARS 13 -TRAILCHARS
?dup if FindText$ place else drop then
then
FindText$ self Start: FindTextDlg
! case 0 of SelBuf$ free exitm endof
1 of 0 endof \ ignore case
2 of SCFIND_MATCHCASE endof
***************
*** 207,211 ****
then
else drop
! then ;M
:M Find: ( addr cnt -- )
--- 207,211 ----
then
else drop
! then SelBuf$ free ;M
:M Find: ( addr cnt -- )
|
|
From: George H. <geo...@us...> - 2011-09-06 18:03:20
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory vz-cvs-4.sog:/tmp/cvs-serv22477 Modified Files: Catalog.f CommandID.f Log Message: Minor mods Index: CommandID.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/CommandID.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** CommandID.f 8 Jul 2006 19:58:52 -0000 1.4 --- CommandID.f 6 Sep 2011 18:03:18 -0000 1.5 *************** *** 1,5 **** \ $Id$ ! \ File: CommandID.f ! \ \ Author: Dirk Busch (dbu) \ Email: dir...@wi... --- 1,4 ---- \ $Id$ ! \ Author: Dirk Busch (dbu) \ Email: dir...@wi... Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 *** Catalog.f 26 Sep 2008 12:00:27 -0000 1.42 --- Catalog.f 6 Sep 2011 18:03:18 -0000 1.43 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + anew catalog.f \ 15-10-2005 |
|
From: George H. <geo...@us...> - 2011-08-20 16:07:03
|
Update of /cvsroot/win32forth/win32forth/doc
In directory vz-cvs-4.sog:/tmp/cvs-serv27925
Added Files:
Paths.htm
Log Message:
Added missing Dexed file (needs adding to help)
--- NEW FILE: Paths.htm ---
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" />
<meta name="GENERATOR" content="DexH v03" />
<style type="text/css">
</style>
<title>
</title>
</head>
<body>
<hr /><h1>Paths -- Multiple search path support
</h1><hr /><h2>Glossary
</h2><pre><b><a name="0">: .program ( -- )
</a></b></pre><p>Type the program path.
</p><pre><b><a name="1">: .forthdir ( -- )
</a></b></pre><p>Type the forth directory.
</p><pre><b><a name="2">: "chdir ( a1 n1 -- )
</a></b></pre><p>Set the current directory.
</p><pre><b><a name="3">: .dir ( -- )
</a></b></pre><p>Print the current directory.
</p><pre><b><a name="4">: chdir ( -<optional_new_directory>- -- )
</a></b></pre><p>Set the current directory.
</p><pre><b><a name="5">: path: ( -- )
</a></b></pre><p>Defines a directory search path. <br />
The first cell holds a pointer to 2 cells in the user area which are used to handle a search path. <br />
The next 260 bytes are reserved for a counted string of a path. <br />
followed by null. <br />
At runtime it returns address of the counted string of a path.
</p><pre><b><a name="6">: path-source ( path -- 2variable_path-source )
</a></b></pre><p>Path-source points to a substring in a path. <br />
Path-source returns this address.
</p><pre><b><a name="7">: next-path" ( path -- a1 n1 ) \ w32f path
</a></b></pre><p>Get the next path from dir list.
</p><pre><b><a name="8">: reset-path-source ( path -- ) \ w32f path
</a></b></pre><p>Points the path-source to the whole path.
</p><pre><b><a name="9">: first-path" ( path -- a1 n1 ) \ w32f path
</a></b></pre><p>Get the first forth directory path.
</p><pre><b><a name="10">: "path+ ( a1 n1 path -- ) \ w32f path
</a></b></pre><p>Append a directory to a path.
</p><pre><b><a name="11">: .path ( path -- ) \ w32f path system
</a></b></pre><p>Display a directory search path list.
Note: The path source will be reset for this path.
</p><pre><b><a name="12">: full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 }
</a></b></pre><p>Find the file <i> a1,n1 </i> in the path <i> path </i> and return the full path.
<i> a2,n2 </i> . <i> f1 </i> = false if successful.
</p><pre><b><a name="13">: find-path { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 }
</a></b></pre><p>Find the file <i> a1,n1 </i> in the path <i> basepath </i> by scanning the sub folders
defined in <i> path </i>. Returns the full path of the file if possible.
<i> a2,n2 </i> . <i> f1 </i> = false if succeeded.
</p><pre><b><a name="14">path: search-base-path \ w32f path
</a></b></pre><p>The path buffer for the base search folders for Forth.<br />
Applications that let Forth compile should not change it.
</p><pre><b><a name="15">path: search-path \ w32f path
</a></b></pre><p>The path buffer for the sub folders to search in.
Applications that let Forth compile should not change it.
</p><pre><b><a name="16">: "fbase-path+ ( a1 n1 -- ) \ w32f path
</a></b></pre><p>Append a directory to the Forth search base path.
</p><pre><b><a name="17">: "fpath+ ( a1 n1 -- ) \ w32f path
</a></b></pre><p>Append a directory to the Forth search path.
</p><pre><b><a name="18">: fbase-path+ ( -<directory>- -- ) \ w32f path system
</a></b></pre><p>Append a directory to the Forth search base path.
</p><pre><b><a name="19">: fpath+ ( -<directory>- -- ) \ w32f path system
</a></b></pre><p>Append a directory to the Forth search path.
</p><pre><b><a name="20">: .fpath ( -- ) \ w32f path system
</a></b></pre><p>Display the Forth directory search path list.
</p><pre><b><a name="21">: program-path-init ( -- )
</a></b></pre><p>Initialize the Forth directory search path list. Automatically done at program
initialization and when Paths.f is loaded.
</p><pre><b><a name="22">: "path-file ( a1 n1 -- a2 n2 f1 )
</a></b></pre><p>Find file a1,n1 in the Forth search path and return the full path. <br />
a2,n2 and f1=false, succeeded.
</p><pre><b><a name="23">: n"open ( a1 n1 -- handle f1 )
</a></b></pre><p>Open file a1,n1 with a Forth path search.
</p><pre><b><a name="24">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 )
</a></b></pre><p>Make path a1 n1 absolute to path a2 n2.
</p><pre><b><a name="25">: IsPathRelativeTo? { a1 n1 a2 n2 -- f }
</a></b></pre><p>Return true if path a1 n1 is relative to path a2 n2
</p><pre><b><a name="26">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 )
</a></b></pre><p>Make path a1 n1 relative to path a2 n2.
</p><pre><b><a name="27">: FindRelativePath ( a1 n1 path - a2 n2 )
</a></b></pre><p>Returns a relative path for file a1 n1 in path ( first part ). <br />
n2=0 means not in search path.
</p><pre><b><a name="28">: FindRelativeName ( a1 n1 path - a2 n2 f )
</a></b></pre><p>Returns a relative name for file a1 n1 in path ( last-part ). <br />
n2=0 means not in search path.
</p><pre><b><a name="29">: "LOADED? ( addr len -- flag )
</a></b></pre><p>True if a file addr len is loaded. The filename must contain a full path.
</p><pre><b><a name="30">: LOADED? ( -<name>- -- flag ) { \ current$ }
</a></b></pre><p>True if the following file is loaded. The filename may be relative.
</p><pre><b><a name="31">: \LOADED- ( -<name>- )
</a></b></pre><p>If the following file IS NOT LOADED interpret line.
</p><pre><b><a name="32">: \LOADED ( -<name>- )
</a></b></pre><p> If the following file IS LOADED interpret line.
</p><pre><b><a name="33">: NEEDS ( -<name>- )
</a></b></pre><p>Conditionally load file "name" if not loaded.
</p><pre><b><a name="34">: Require \ synonym of NEEDS
</a></b></pre><p>Forth 200X name for needs.
</p><pre><b><a name="35">: "file-clip" { addr len limit | temp$ pre -- addr len2 }
</a></b></pre><p>Clip filename to limit. If limit is less than 20 then the filename is clipped to
20. len2=len if len < limit or len < 20. len2 = 20 if limit < 20. len2 = limt
otherwise. The string (if clipped) contains ... in the middle to indicate that#
it has been clipped.
</p><hr />
</body></html>
|
|
From: George H. <geo...@us...> - 2011-08-20 16:05:30
|
Update of /cvsroot/win32forth/win32forth/src In directory vz-cvs-4.sog:/tmp/cvs-serv27846 Modified Files: paths.f Log Message: Updated doc Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** paths.f 18 Aug 2011 15:28:47 -0000 1.37 --- paths.f 20 Aug 2011 16:05:27 -0000 1.38 *************** *** 49,53 **** : path: ( -- ) \ *G Defines a directory search path. \n ! \ ** The first 2 cells are used to handle a search path. \n \ ** The next 260 bytes are reserved for a counted string of a path. \n \ ** followed by null. \n --- 49,53 ---- : path: ( -- ) \ *G Defines a directory search path. \n ! \ ** The first cell holds a pointer to 2 cells in the user area which are used to handle a search path. \n \ ** The next 260 bytes are reserved for a counted string of a path. \n \ ** followed by null. \n |
|
From: George H. <geo...@us...> - 2011-08-19 21:25:40
|
Update of /cvsroot/win32forth/win32forth/demos
In directory vz-cvs-4.sog:/tmp/cvs-serv1903
Modified Files:
DIALOGS.F DLGTEST.F
Log Message:
Updated to match V6.15
Index: DIALOGS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/DIALOGS.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DIALOGS.F 21 Dec 2004 00:18:52 -0000 1.1
--- DIALOGS.F 19 Aug 2011 21:25:38 -0000 1.2
***************
*** 1,4 ****
! \ DIALOGS.F sample dialogs from forthdlg.dlg inline compiled
! \ mi...@ki... (Michael Schroeder)
\
\ updated for Win32Forth Version 6.09.05
--- 1,6 ----
! \ $Id$
!
! \ sample dialogs from forthdlg.dlg inline compiled
! \ mi...@ki... (Michael Schroeder)
\
\ updated for Win32Forth Version 6.09.05
***************
*** 43,47 ****
END-DIALOG
! ( IDD_ABOUT_FORTH DIALOG 97, 55, 212, 173
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
--- 45,49 ----
END-DIALOG
! ( IDD_ABOUT_FORTH DIALOG 97, 55, 212, 202
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
***************
*** 49,55 ****
FONT 8, "MS Sans Serif"
BEGIN
! PUSHBUTTON "Done", IDCANCEL, 166, 153, 40, 14
! LTEXT "", IDD_ABOUT_TEXT, 14, 12, 187, 36
! LTEXT "", IDD_ABOUT_TEXT2, 14, 52, 187, 93
END )
--- 51,59 ----
FONT 8, "MS Sans Serif"
BEGIN
! PUSHBUTTON "Done", IDCANCEL, 150, 180, 50, 14
! CTEXT "", IDD_ABOUT_HEAD, 15, 10, 185, 15
! LTEXT "", IDD_ABOUT_TEXT, 15, 30, 185, 45
! LTEXT "", IDD_ABOUT_TEXT2, 15, 80, 185, 45
! LTEXT "", IDD_ABOUT_TEXT3, 15, 125, 185, 50
END )
***************
*** 59,67 ****
8 DIALOG-FONT "MS Sans Serif"
DIALOG-CAPTION "About"
! IDD_ABOUT_FORTH 97 55 212 173
BEGIN-DIALOG
! IDCANCEL 166 153 40 14 PUSHBUTTON "Done"
! IDD_ABOUT_TEXT 14 12 187 36 LTEXT ""
! IDD_ABOUT_TEXT2 14 52 187 93 LTEXT ""
END-DIALOG
--- 63,73 ----
8 DIALOG-FONT "MS Sans Serif"
DIALOG-CAPTION "About"
! IDD_ABOUT_FORTH 97 55 212 202
BEGIN-DIALOG
! IDCANCEL 150 180 50 14 PUSHBUTTON "OK"
! IDD_ABOUT_HEAD 15 10 185 15 CTEXT ""
! IDD_ABOUT_TEXT 15 30 185 45 LTEXT ""
! IDD_ABOUT_TEXT2 15 80 185 45 LTEXT ""
! IDD_ABOUT_TEXT3 15 125 185 50 LTEXT ""
END-DIALOG
Index: DLGTEST.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/DLGTEST.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DLGTEST.F 5 May 2005 09:43:28 -0000 1.2
--- DLGTEST.F 19 Aug 2011 21:25:38 -0000 1.3
***************
*** 1,3 ****
! \ DLGTEST.F a copy of FORTHDLG.F
\ the names have all a "2" appended, to distinguish from original
\
--- 1,5 ----
! \ $Id$
!
! \ a copy of FORTHDLG.F
\ the names have all a "2" appended, to distinguish from original
\
***************
*** 248,250 ****
- |
|
From: George H. <geo...@us...> - 2011-08-19 21:23:27
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv1759
Modified Files:
BROWSEFLD.F CTYPE.F ExtStruct.f Volinfo.f binsearch.f
Log Message:
Added $Id:$
Index: CTYPE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/CTYPE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CTYPE.F 21 Dec 2004 00:19:10 -0000 1.1
--- CTYPE.F 19 Aug 2011 21:23:24 -0000 1.2
***************
*** 1,3 ****
! ( ctype.f )
( C-ish ctype macros, rendered in FORTH )
( Placed in the public domain on 8aug96, by Jim Schneider )
--- 1,4 ----
! \ $Id$
!
( C-ish ctype macros, rendered in FORTH )
( Placed in the public domain on 8aug96, by Jim Schneider )
Index: ExtStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ExtStruct.f 30 Aug 2010 13:10:16 -0000 1.10
--- ExtStruct.f 19 Aug 2011 21:23:24 -0000 1.11
***************
*** 139,147 ****
: create-struct-voc ( addr len -- wid )
get-current >r also Structs definitions
! >SYSTEM "HEADER dovoc , #threads #WORDLIST SYSTEM> ( wid )
previous r> set-current ;
: create-struct ( addr len wid -- ptr-size ) \ Map: WID size
! -rot ( create ) "HEADER DOVAR COMPILE, , immediate
here -2 ,
does> @ +order state @
--- 139,148 ----
: create-struct-voc ( addr len -- wid )
get-current >r also Structs definitions
! ['] vocabulary execute-parsing
! voc-link @ cell+ ( wid )
previous r> set-current ;
: create-struct ( addr len wid -- ptr-size ) \ Map: WID size
! -rot ['] create execute-parsing , immediate
here -2 ,
does> @ +order state @
Index: Volinfo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Volinfo.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Volinfo.f 29 Jun 2008 05:12:40 -0000 1.3
--- Volinfo.f 19 Aug 2011 21:23:24 -0000 1.4
***************
*** 1,6 ****
\ $Id$
- \ Volinfo.f
-
cr .( Loading Volinfo.f : drive information...)
--- 1,4 ----
Index: BROWSEFLD.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/BROWSEFLD.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BROWSEFLD.F 21 Dec 2004 00:19:10 -0000 1.1
--- BROWSEFLD.F 19 Aug 2011 21:23:24 -0000 1.2
***************
*** 1,5 ****
\ $Id$
- \ File: browsefld.f
\ Author: Jos v.d. Ven, Dirk Busch
\ Created: ??? - jos
--- 1,4 ----
Index: binsearch.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/binsearch.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** binsearch.f 21 Dec 2004 00:19:10 -0000 1.1
--- binsearch.f 19 Aug 2011 21:23:24 -0000 1.2
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
((
Binary Search by Charles Melice
***************
*** 44,48 ****
(( non-local version [Wil Baden]
! : UNDER ( x y z -- z y ) ROT DROP SWAP ;
: BSEARCH ( key array count -- index flag )
--- 46,50 ----
(( non-local version [Wil Baden]
! : UNDER ( x y z -- z y ) ROT DROP SWAP ;
: BSEARCH ( key array count -- index flag )
|
|
From: George H. <geo...@us...> - 2011-08-19 21:22:34
|
Update of /cvsroot/win32forth/win32forth/src/lib
In directory vz-cvs-4.sog:/tmp/cvs-serv1713
Modified Files:
BLOCK.F DIALOGRC.F
Log Message:
Ported to V6.15
Index: BLOCK.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/BLOCK.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** BLOCK.F 28 Oct 2006 10:58:58 -0000 1.6
--- BLOCK.F 19 Aug 2011 21:22:32 -0000 1.7
***************
*** 1,4 ****
\ $Id$
! \ BLOCK.F Tom's Forth virtual block system. by Tom Zimmer
cr .( Loading BLOCK...)
--- 1,5 ----
\ $Id$
!
! \ Tom's Forth virtual block system. by Tom Zimmer
cr .( Loading BLOCK...)
Index: DIALOGRC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/DIALOGRC.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DIALOGRC.F 21 Dec 2004 00:19:10 -0000 1.1
--- DIALOGRC.F 19 Aug 2011 21:22:32 -0000 1.2
***************
*** 1,3 ****
! \ DIALOGRC.F a Dialog Ressource Compiler wordset
\ by mi...@ki... (Michael Schroeder)
--- 1,3 ----
! \ DIALOGRC.F a Dialog Resource Compiler wordset
\ by mi...@ki... (Michael Schroeder)
***************
*** 6,25 ****
\ which is not needed any longer since FIND-DIALOG-ID has been changed to be
\ compatible with the use of FIND-DIALOG-TEMPLATE.
- \
- \ updated for Win32Forth Version 6.09.05
- \ Sonntag, Mai 02 2004 - dbu
\ --------------------------------------------------------------
! \ A Dialog Ressource Compiler Add-On for Win32Forth
\
\ The package contains the following files:
\ - DIALOGRC.F
! \ this file, the main source of the ressource
\ compiler wordset
\ - DIALOGS.F
! \ the dialog ressources from FORTHDLG.DLG
\ ported to the DIALOGRC syntax with the original
! \ ressource scripts as comments. Shows the way of
! \ porting existing ressource scripts and was used
\ to test the output of dialogrc.
\ - DLGTEST.F
--- 6,22 ----
\ which is not needed any longer since FIND-DIALOG-ID has been changed to be
\ compatible with the use of FIND-DIALOG-TEMPLATE.
\ --------------------------------------------------------------
! \ A Dialog Resource Compiler Add-On for Win32Forth
\
\ The package contains the following files:
\ - DIALOGRC.F
! \ this file, the main source of the Resource
\ compiler wordset
\ - DIALOGS.F
! \ the dialog Resources from FORTHDLG.DLG
\ ported to the DIALOGRC syntax with the original
! \ resource scripts as comments. Shows the way of
! \ porting existing resource scripts and was used
\ to test the output of dialogrc.
\ - DLGTEST.F
***************
*** 28,32 ****
\ I used it, to see if DIALOGRC proper works.
\ - DIALOGRC.TXT
! \ glossary of the Dialog Ressource Compiler wordset
\ (still incomplete)
\
--- 25,29 ----
\ I used it, to see if DIALOGRC proper works.
\ - DIALOGRC.TXT
! \ glossary of the Dialog Resource Compiler wordset
\ (still incomplete)
\
***************
*** 54,58 ****
mov eax, [ebp]
mov ebx, eax
! sub ebx, edi \ relative address
sub ecx, ecx
mov cx, [eax]
--- 51,55 ----
mov eax, [ebp]
mov ebx, eax
! \ sub ebx, edi \ relative address
sub ecx, ecx
mov cx, [eax]
***************
*** 155,167 ****
\ --------------------------------------------------------------
! \ -------------------- Ressource Scope -------------------------
! : BEGIN-RESSOURCE ( --<RessourceName>-- -- a 6 )
NOSTACK \ suppress stack check at line end
! CREATE HERE \ start of named ressource
! 0 , \ placeholder for the ressource length
6 \ check value for ?pairs
; \ to check scope integrity
! : END-RESSOURCE
6 ?PAIRS \ abort if scope IDD isn't paired
HERE OVER - CELL- SWAP ! \ fill the placeholder
--- 152,170 ----
\ --------------------------------------------------------------
! \ -------------------- Resource Scope -------------------------
!
! in-system
!
! : BEGIN-RESOURCE ( --<ResourceName>-- -- a 6 )
NOSTACK \ suppress stack check at line end
! CREATE HERE \ start of named resource
! 0 , \ placeholder for the resource length
6 \ check value for ?pairs
; \ to check scope integrity
! : BEGIN-RESSOURCE ( --<ResourceName>-- -- a 6 )
! Begin-Resource ;
!
! : END-RESOURCE ( -- )
6 ?PAIRS \ abort if scope IDD isn't paired
HERE OVER - CELL- SWAP ! \ fill the placeholder
***************
*** 169,172 ****
--- 172,178 ----
;
+ : END-RESSOURCE ( -- )
+ END-RESOURCE ;
+
\ --------------------------------------------------------------
\ -------------------- Dialog Scope ----------------------------
***************
*** 197,202 ****
: BEGIN-DIALOG { id x y cx cy -- addr0 addr1 7 }
! ALIGN HERE >R \ save start of ressource entry
! \ first create a 32 Byte generic ressource header (not part of the template)
0 , \ placeholder for length of the following res. data
0x00000020 , \ length of this header (32 Bytes)
--- 203,208 ----
: BEGIN-DIALOG { id x y cx cy -- addr0 addr1 7 }
! ALIGN HERE >R \ save start of resource entry
! \ first create a 32 Byte generic resource header (not part of the template)
0 , \ placeholder for length of the following res. data
0x00000020 , \ length of this header (32 Bytes)
***************
*** 224,228 ****
THEN 0 TO STYLEFLAGS \ reset STYLEFLAGS
ALIGN \ once more for safety
! DUP 6 ?PAIRS \ check ressource scope
2R> 7 \ open another scope ... until END-DIALOG
;
--- 230,234 ----
THEN 0 TO STYLEFLAGS \ reset STYLEFLAGS
ALIGN \ once more for safety
! DUP 6 ?PAIRS \ check resource scope
2R> 7 \ open another scope ... until END-DIALOG
;
***************
*** 281,286 ****
\ See DIALOGS.F for an example.
! : aCONTROL ( identifier classID xpos ypos xsize ysize --<quoted text>-- -- )
! { identifier classID xpos ypos xsize ysize -- }
STYLEFLAGS WS_CHILD WS_VISIBLE OR OR TO STYLEFLAGS
"PARSE-TEXT" ANSI>WIDECHAR \ get following "quoted text"
--- 287,291 ----
\ See DIALOGS.F for an example.
! : aCONTROL { identifier classID xpos ypos xsize ysize -- "quoted text" }
STYLEFLAGS WS_CHILD WS_VISIBLE OR OR TO STYLEFLAGS
"PARSE-TEXT" ANSI>WIDECHAR \ get following "quoted text"
***************
*** 296,301 ****
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : PUSHBUTTON ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS BS_PUSHBUTTON WS_TABSTOP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 301,305 ----
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : PUSHBUTTON { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS BS_PUSHBUTTON WS_TABSTOP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 315,320 ****
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : DEFPUSHBUTTON ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS BS_DEFPUSHBUTTON WS_TABSTOP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 319,323 ----
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : DEFPUSHBUTTON { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS BS_DEFPUSHBUTTON WS_TABSTOP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 365,370 ****
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : CHECKBOX ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS BS_CHECKBOX WS_CHILD WS_TABSTOP WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 368,372 ----
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : CHECKBOX { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS BS_CHECKBOX WS_CHILD WS_TABSTOP WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 381,386 ****
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : AUTOCHECKBOX ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS BS_AUTOCHECKBOX WS_CHILD WS_TABSTOP WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 383,387 ----
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : AUTOCHECKBOX { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS BS_AUTOCHECKBOX WS_CHILD WS_TABSTOP WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 397,402 ****
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : RADIOBUTTON ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS BS_RADIOBUTTON WS_CHILD WS_VISIBLE
OR OR OR TO STYLEFLAGS
--- 398,402 ----
\ Additional control styles may be preset with: "... TO STYLEFLAGS"
! : RADIOBUTTON { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS BS_RADIOBUTTON WS_CHILD WS_VISIBLE
OR OR OR TO STYLEFLAGS
***************
*** 462,467 ****
\ (But is this useful?)
! : CTEXT ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS SS_CENTER WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 462,466 ----
\ (But is this useful?)
! : CTEXT { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS SS_CENTER WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 472,475 ****
--- 471,476 ----
;
+
+
\ LTEXT ( identifier xpos ypos xsize ysize --<quoted text>-- -- )
\ defines a left-justified static text control within a dialog structure.
***************
*** 478,483 ****
\ (But is this useful?)
! : LTEXT ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS SS_LEFT WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 479,483 ----
\ (But is this useful?)
! : LTEXT { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS SS_LEFT WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 494,499 ****
\ (But is this useful?)
! : RTEXT ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS SS_RIGHT WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
--- 494,498 ----
\ (But is this useful?)
! : RTEXT { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS SS_RIGHT WS_GROUP WS_CHILD WS_VISIBLE
OR OR OR OR TO STYLEFLAGS
***************
*** 506,515 ****
\ ICON ( identifier xpos ypos xsize ysize --<quoted text>-- -- )
\ defines an "icon" bitmap control within a dialog structure. The bitmap is
! \ an icon ressource in the executable file. Therefore ICON cannot be used to
! \ create new icons without commercial ressource compiler :-( sorry!
\ The control styles used by ICON are: SS_ICON WS_CHILD WS_VISIBLE.
! : ICON ( identifier xpos ypos xsize ysize --<text>-- -- )
! { identifier xpos ypos xsize ysize -- }
STYLEFLAGS SS_ICON WS_CHILD WS_VISIBLE
OR OR OR TO STYLEFLAGS
--- 505,513 ----
\ ICON ( identifier xpos ypos xsize ysize --<quoted text>-- -- )
\ defines an "icon" bitmap control within a dialog structure. The bitmap is
! \ an icon resource in the executable file. Therefore ICON cannot be used to
! \ create new icons without commercial Resource compiler :-( sorry!
\ The control styles used by ICON are: SS_ICON WS_CHILD WS_VISIBLE.
! : ICON { identifier xpos ypos xsize ysize -- "text" }
STYLEFLAGS SS_ICON WS_CHILD WS_VISIBLE
OR OR OR TO STYLEFLAGS
***************
*** 520,522 ****
;
!
--- 518,520 ----
;
! in-application
|
|
From: George H. <geo...@us...> - 2011-08-19 14:42:05
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory vz-cvs-4.sog:/tmp/cvs-serv20258 Modified Files: AcceleratorTables.f FCOM.F RESOURCES.F TrayWindow.f Log Message: Added $Id:$ Index: RESOURCES.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** RESOURCES.F 3 Aug 2008 11:08:51 -0000 1.8 --- RESOURCES.F 19 Aug 2011 14:42:03 -0000 1.9 *************** *** 1,3 **** ! \ Resources.f Utilities to copy, add and enumerate resources in .dll and .exe files. \ Rod Oakford Feb 2005 ****Does not work in Win98, need NT, Win2k or later**** \ --- 1,4 ---- ! \ $Id$ ! \ Utilities to copy, add and enumerate resources in .dll and .exe files. \ Rod Oakford Feb 2005 ****Does not work in Win98, need NT, Win2k or later**** \ Index: TrayWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TrayWindow.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TrayWindow.f 26 Apr 2008 11:14:37 -0000 1.3 --- TrayWindow.f 19 Aug 2011 14:42:03 -0000 1.4 *************** *** 1,3 **** ! \ File: TrayWindow.f \ \ Author: Dirk Busch (dbu) --- 1,3 ---- ! \ $Id$ \ \ Author: Dirk Busch (dbu) *************** *** 11,15 **** \ *T TrayWindow class \ *P Windows that are created with this class will hide themself ! \ ** in the windows traybar when they are minimized. cr .( Loading TrayWindow class...) --- 11,15 ---- \ *T TrayWindow class \ *P Windows that are created with this class will hide themself ! \ ** in the windows traybar when they are minimized, rather than on the task bar. cr .( Loading TrayWindow class...) Index: AcceleratorTables.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/AcceleratorTables.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** AcceleratorTables.f 26 May 2006 12:41:05 -0000 1.5 --- AcceleratorTables.f 19 Aug 2011 14:42:03 -0000 1.6 *************** *** 1,3 **** ! \ AcceleratorTables.f Windows Accelerator Table support for Win32Forth \ October 2004 Rod Oakford --- 1,5 ---- ! \ $Id$ ! ! \ Windows Accelerator Table support for Win32Forth \ October 2004 Rod Oakford Index: FCOM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/FCOM.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** FCOM.F 6 Jul 2011 12:04:34 -0000 1.7 --- FCOM.F 19 Aug 2011 14:42:03 -0000 1.8 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ Component Object Module Interface for Win32forth \ Tom Dixon |
|
From: George H. <geo...@us...> - 2011-08-19 14:39:41
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory vz-cvs-4.sog:/tmp/cvs-serv20085 Modified Files: PlayVirginRadio.f Log Message: Added $Id:$ Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** PlayVirginRadio.f 19 Aug 2011 12:59:47 -0000 1.17 --- PlayVirginRadio.f 19 Aug 2011 14:39:38 -0000 1.18 *************** *** 1,3 **** ! \ File: PlayVirginRadio.f \ \ Authors: Dirk Busch di...@wi... --- 1,3 ---- ! \ $Id$ \ \ Authors: Dirk Busch di...@wi... *************** *** 10,14 **** \ \ It also shows how to use the 'TrayWindow' and 'HtmlControl' classes. ! \ http://player.absoluteradio.co.uk/core/radioplayer/ar/ cr .( Loading Play Virgin Radio...) --- 10,14 ---- \ \ It also shows how to use the 'TrayWindow' and 'HtmlControl' classes. ! cr .( Loading Play Virgin Radio...) |
|
From: George H. <geo...@us...> - 2011-08-19 13:13:15
|
Update of /cvsroot/win32forth/win32forth In directory vz-cvs-4.sog:/tmp/cvs-serv9748 Modified Files: setup.exe Log Message: updated setup Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 Binary files /tmp/cvsS5sAwV and /tmp/cvsfeojKa differ |
|
From: George H. <geo...@us...> - 2011-08-19 13:10:47
|
Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv9610
Modified Files:
PRIMHASH.F Primutil.f sysload.f
Log Message:
Modified to use execute-parsing
Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** Primutil.f 24 Jun 2011 17:02:02 -0000 1.51
--- Primutil.f 19 Aug 2011 13:10:45 -0000 1.52
***************
*** 129,133 ****
\ September 16th, 2003 - 10:27 dbu
: cfa-func ( -<name>- )
! header docon compile, ( code-here , ) hide !csp dodoes-call, ] ;
defer enter-assembler ' noop is enter-assembler
--- 129,134 ----
\ September 16th, 2003 - 10:27 dbu
: cfa-func ( -<name>- )
! 0 constant -cell allot \ header docon compile, ( code-here , )
! hide !csp dodoes-call, ] ;
defer enter-assembler ' noop is enter-assembler
***************
*** 135,139 ****
: cfa-code ( -<name>- )
! header docon compile, code-here ,
enter-assembler ;
--- 136,140 ----
: cfa-code ( -<name>- )
! code-here constant \ header docon compile, ,
enter-assembler ;
Index: PRIMHASH.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** PRIMHASH.F 15 May 2008 04:28:26 -0000 1.9
--- PRIMHASH.F 19 Aug 2011 13:10:45 -0000 1.10
***************
*** 120,127 ****
next c;
! \ ' UNNESTM ALIAS EXITM \ made a colon def - [cdo-2008May13]
: EXITM ( -- ) \ exit a method definition
! unnestm ;
\ -------------------- Runtime for Objects --------------------
--- 120,129 ----
next c;
! in-system
!
: EXITM ( -- ) \ exit a method definition
! ?comp postpone unnestm ; immediate
+ in-application
\ -------------------- Runtime for Objects --------------------
***************
*** 300,307 ****
r> 4drop ( already found )
else
! hash-wid swap-current >r
! "header docon ,
r> set-current
! r> dup , clash
then ;
--- 302,309 ----
r> 4drop ( already found )
else
! r@ -rot hash-wid swap-current >r
! ['] Constant execute-parsing
r> set-current
! r> clash
then ;
Index: sysload.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/sysload.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sysload.f 15 May 2008 04:28:27 -0000 1.2
--- sysload.f 19 Aug 2011 13:10:45 -0000 1.3
***************
*** 114,118 ****
LibPath$ ?DEFEXT
\ check if already loaded
! LibPath$ count "TO-PATHEND"
[ sys-warning-off also hidden ] "Loaded?
[ previous sys-warning-on ]
--- 114,118 ----
LibPath$ ?DEFEXT
\ check if already loaded
! LibPath$ count \ "TO-PATHEND"
[ sys-warning-off also hidden ] "Loaded?
[ previous sys-warning-on ]
|
|
From: George H. <geo...@us...> - 2011-08-19 13:03:19
|
Update of /cvsroot/win32forth/win32forth/Help/hdb
In directory vz-cvs-4.sog:/tmp/cvs-serv8047/hdb
Modified Files:
HelpCls.tv HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt
Log Message:
minor corrections plus new db
Index: HelpCls.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpCls.tv,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** HelpCls.tv 18 Aug 2011 15:47:23 -0000 1.8
--- HelpCls.tv 19 Aug 2011 13:03:15 -0000 1.9
***************
*** 1,2291 ****
! 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|
[...4553 lines suppressed...]
! -4 tvn| FIELDNAME:| tvd| 8577|
! -4 tvn| GETINT:| tvd| 8578|
! -4 tvn| GETDOUBLE:| tvd| 8579|
! -4 tvn| GETFLOAT:| tvd| 8580|
! -4 tvn| GETSTR:| tvd| 8581|
! -4 tvn| GETBLOB:| tvd| 8582|
! -4 tvn| ISNULL?:| tvd| 8583|
! -4 tvn| NEXTROW:| tvd| 8584|
! -4 tvn| (BIND):| tvd| 8585|
! -4 tvn| BINDINT:| tvd| 8586|
! -4 tvn| BINDDOUBLE:| tvd| 8587|
! -4 tvn| BINDFLOAT:| tvd| 8588|
! -4 tvn| BINDSTR:| tvd| 8589|
! -4 tvn| BINDBLOB:| tvd| 8590|
! 1 tvn| STRING| tvd| 8597|
2 tvn| -methods-| tvd| 0|
! -3 tvn| GET:| tvd| 8598|
! -3 tvn| PUT:| tvd| 8599|
! -3 tvn| ADD:| tvd| 8600|
! -3 tvn| APPEND:| tvd| 8601|
Index: HelpWrd.txt
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** HelpWrd.txt 18 Aug 2011 15:47:23 -0000 1.12
--- HelpWrd.txt 19 Aug 2011 13:03:15 -0000 1.13
***************
*** 1447,1452 ****
CREATE USERCONFIG$
BYTES &PS
- : (CLASSINIT) ( x y width height -- )
: (CLASSINIT) ( n1 -- )
: (CLASSINIT) ( -- )
CONSTANT 1/1
--- 1447,1452 ----
CREATE USERCONFIG$
BYTES &PS
: (CLASSINIT) ( n1 -- )
[...1142 lines suppressed...]
+ INT PARENT \ the parent window
INT PARENT
INT PARENT
***************
*** 13244,13250 ****
INT PM \ temp for popup menu list processing
INT PM \ temp for popup menu list processing
- INT POPID
INT POPID \ handle of this items popup menu
INT POPID
|CLASS POPUP
|CLASS POPUP
--- 13240,13246 ----
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
Index: HelpWrd.hdb
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
Binary files /tmp/cvsgYC1AE and /tmp/cvsq1OVq7 differ
Index: HelpWrd.tv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HelpWrd.tv 18 Aug 2011 15:47:23 -0000 1.11
--- HelpWrd.tv 19 Aug 2011 13:03:15 -0000 1.12
***************
*** 1,7375 ****
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|
[...28455 lines suppressed...]
! 2 tvn| \+| tvd| 5330|
! 2 tvn| \-| tvd| 5331|
! 2 tvn| \IN-SYSTEM-OK| tvd| 5336|
! 2 tvn| \S| tvd| 5385|
! 2 tvn| ]MACRO| tvd| 5226|
! 2 tvn| __STDCALL| tvd| 5217|
! 2 tvn| {| tvd| 5408|
! 2 tvn| {:| tvd| 5407|
! 2 tvn| |IF| tvd| 4946|
! 2 tvn| |OF| tvd| 4945|
1 tvn| Deprecated| tvd| 0|
! 2 tvn| .DIR->FILE-NAME| tvd| 5088|
! 2 tvn| >BOLD| tvd| 4158|
! 2 tvn| >NORM| tvd| 4157|
! 2 tvn| ABS>REL| tvd| 5356|
! 2 tvn| REL>ABS| tvd| 5357|
! 2 tvn| TASK-SLEEP| tvd| 2592|
! 2 tvn| _PRINT-DIR-FILES| tvd| 5086|
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.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
Binary files /tmp/cvs5cnfJr and /tmp/cvspuNUAY differ
|
|
From: George H. <geo...@us...> - 2011-08-19 13:03:17
|
Update of /cvsroot/win32forth/win32forth/Help In directory vz-cvs-4.sog:/tmp/cvs-serv8047 Modified Files: HelpMain.f Log Message: minor corrections plus new db Index: HelpMain.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/HelpMain.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** HelpMain.f 2 Sep 2008 06:48:38 -0000 1.8 --- HelpMain.f 19 Aug 2011 13:03:15 -0000 1.9 *************** *** 11,25 **** \ ------------------------------ ASSUMPTIONS & NOTES ---------------------------------- ! \ - In searching parent class for a method, it is assumed that the parent class is ! \ unique, ie: classes cannot be redefined \ - In analyzing source files, it is assumed that no word can overlap on 2 lines ! \ - In getting word's comments, it is assumed that comments immediately follow the word \ - For TV-structure-text-files handling, it is assumed that in texts containing \ "|" no space can follow | ! \ Note: xt are not recorded as they may be different if libraries are subsequently ! \ loaded at different places in dictionary ! \ Note: in order to get coherent quickinfo, which itself come from source via the ! \ VIEW info, the help database should be built right after rebuilding the whole ! \ win32forth system \ ------------------------------------------------------------------------------------- --- 11,25 ---- \ ------------------------------ ASSUMPTIONS & NOTES ---------------------------------- ! \ - In searching the parent class for a method, it is assumed that the parent class is ! \ unique, ie: classes haven't been redefined. \ - In analyzing source files, it is assumed that no word can overlap on 2 lines ! \ - In getting a word's comments, it is assumed that the comments immediately follow the word. \ - For TV-structure-text-files handling, it is assumed that in texts containing \ "|" no space can follow | ! \ Note: xts are not recorded as they will be different if libraries are subsequently ! \ loaded at different places in dictionary. ! \ Note: in order to get coherent quickinfo, which itself comes from the source via the ! \ VIEW info, the help database should be rebuilt right after rebuilding the whole ! \ win32forth system. \ ------------------------------------------------------------------------------------- |
1040 messages has been excluded from this view by a project administrator.
