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: Rod O. <rod...@us...> - 2006-08-10 22:50:53
|
Update of /cvsroot/win32forth/win32forth/apps/PictureViewer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2368/apps/PictureViewer Added Files: PictureViewer.exe.manifest Log Message: Rod: Added manifest file for PictureViewer --- NEW FILE: PictureViewer.exe.manifest --- <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="PictureViewer.exe" type="win32" /> <description>see http://www.win32forth.org/</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly> |
|
From: Rod O. <rod...@us...> - 2006-08-10 22:34:07
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28026 Removed Files: Sudoku.exe.manifest Log Message: Rod: Manifest moved to Sudoku folder --- Sudoku.exe.manifest DELETED --- |
|
From: Rod O. <rod...@us...> - 2006-08-10 22:31:21
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27013/apps/Sudoku Modified Files: SudokuResources.f Log Message: Rod: Put manifest for XP visual styles into resources. Index: SudokuResources.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuResources.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** SudokuResources.f 3 Aug 2006 20:35:44 -0000 1.3 --- SudokuResources.f 10 Aug 2006 22:31:18 -0000 1.4 *************** *** 12,15 **** --- 12,16 ---- pad count "path-file drop AddToFile + CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST s" Sudoku.exe.manifest" "path-file drop AddResource 101 s" res\Sudoku.ico" "path-file drop AddIcon 142 s" res\arrow_m0.cur" "path-file drop AddCursor *************** *** 25,28 **** --- 26,30 ---- 153 s" WAVE" asciiz s" Applause7.wav" "path-file drop AddResource + false EndUpdate |
|
From: Rod O. <rod...@us...> - 2006-08-10 22:27:47
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25400/apps/Sudoku Modified Files: SudokuToolbar.f Log Message: Rod: Added TBSTYLE_TRANSPARENT to stop flicker with XP visual style Index: SudokuToolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuToolbar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** SudokuToolbar.f 3 Aug 2006 20:32:31 -0000 1.2 --- SudokuToolbar.f 10 Aug 2006 22:27:43 -0000 1.3 *************** *** 150,155 **** :M WindowStyle: ( -- style ) ! WS_CHILD \ not WS_VISIBLE - start hidden, not flat TBSTYLE_TOOLTIPS or CCS_ADJUSTABLE or WS_CLIPSIBLINGS or --- 150,156 ---- :M WindowStyle: ( -- style ) ! WS_CHILD \ not WS_VISIBLE - start hidden TBSTYLE_TOOLTIPS or + TBSTYLE_TRANSPARENT or \ less flicker for XP style CCS_ADJUSTABLE or WS_CLIPSIBLINGS or |
|
From: Rod O. <rod...@us...> - 2006-08-10 22:25:35
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24617/apps/Sudoku Added Files: Sudoku.exe.manifest Log Message: Rod: Put manifest in Sudoku directory --- NEW FILE: Sudoku.exe.manifest --- (This appears to be a binary file; contents omitted.) |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-10 20:23:56
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5530/apps/Player4 Modified Files: NUMBER.F Log Message: Jos: Added .fint.r for big floats in which you like too see the integer part only. Index: NUMBER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/NUMBER.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** NUMBER.F 14 May 2005 11:40:21 -0000 1.3 --- NUMBER.F 10 Aug 2006 20:23:51 -0000 1.4 *************** *** 128,132 **** : l.f ( f: f - ) (l.f) type ; ! : l.fr ( r - ) ( f: f - ) (l.f) rot type-r ; : #zeros-in$? ( adr count - #zeros ) --- 128,133 ---- : l.f ( f: f - ) (l.f) type ; ! : l.fr ( r - ) ( f: f - ) (l.f) rot type-r ; ! : .fint.r ( r - ) ( F: f - ) (l.f) no_idigits rot type-r ; : #zeros-in$? ( adr count - #zeros ) *************** *** 152,156 **** cr -12345e 12 l.fr cr 1239.47e 12 l.fr ! cr cr 9841 l. --- 153,157 ---- cr -12345e 12 l.fr cr 1239.47e 12 l.fr ! cr 1240.58e 12 .fint.r cr cr 9841 l. *************** *** 186,188 **** \s ! |
|
From: George H. <geo...@us...> - 2006-08-08 14:10:04
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30461/win32forth/src Modified Files: POINTER.F Log Message: gah:Added missing 0= Index: POINTER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** POINTER.F 8 Aug 2006 13:55:29 -0000 1.7 --- POINTER.F 8 Aug 2006 14:09:08 -0000 1.8 *************** *** 93,97 **** dup (pointerlock) @ if (pointerunlock) @ exit then \ another task won the race ! dup 2 cells+ @ allocate if dup off \ set first cell to zeros tuck swap ! (pointerunlock) exit --- 93,97 ---- dup (pointerlock) @ if (pointerunlock) @ exit then \ another task won the race ! dup 2 cells+ @ allocate 0= if dup off \ set first cell to zeros tuck swap ! (pointerunlock) exit |
|
From: George H. <geo...@us...> - 2006-08-08 13:55:37
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24809/win32forth/src Modified Files: POINTER.F Log Message: gah:Changed to use ALLOCATE for better error handling Index: POINTER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** POINTER.F 5 Aug 2006 12:30:52 -0000 1.6 --- POINTER.F 8 Aug 2006 13:55:29 -0000 1.7 *************** *** 82,87 **** drop FALSE \ things went just fine. EXIT \ April 15th, 1999 - 10:51 tjz corrected ! THEN (pointerlock) ! dup r@ @ realloc 0= if r> ! FALSE else drop r>drop TRUE --- 82,87 ---- drop FALSE \ things went just fine. EXIT \ April 15th, 1999 - 10:51 tjz corrected ! THEN ! dup r@ @ (pointerlock) realloc 0= if r> ! FALSE else drop r>drop TRUE *************** *** 91,102 **** DOES> dup @ if @ exit then \ ok, straight fetch ! (pointerlock) ! dup @ if @ (pointerunlock) exit then \ another task won the race ! dup 2 cells+ @ malloc ! -if dup off \ set first cell to zeros ! tuck swap ! (pointerunlock) ! else (pointerunlock) 1- ! abort" Failed to allocate POINTER" ! then ; in-system --- 91,101 ---- DOES> dup @ if @ exit then \ ok, straight fetch ! dup (pointerlock) ! @ if (pointerunlock) @ exit then \ another task won the race ! dup 2 cells+ @ allocate ! if dup off \ set first cell to zeros ! tuck swap ! (pointerunlock) exit ! then (pointerunlock) 1- ! abort" Failed to allocate POINTER" ; in-system |
|
From: Dirk B. <db...@us...> - 2006-08-06 07:58:40
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23124 Added Files: PlayVirginRadio.exe.manifest Player4.exe.manifest Project.exe.manifest Sudoku.exe.manifest Win32ForthIde.exe.manifest Win32for.exe.manifest WinEd.exe.manifest solipion.exe.manifest Log Message: - Mainfest files added; in order to use the Windows XP Styles within our applications. - Mainfest files not added for ForthForm and SciEdit, because it doesn't work with the changeable Toolbars. --- NEW FILE: PlayVirginRadio.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Player4.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Win32ForthIde.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Win32for.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Sudoku.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: solipion.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: WinEd.exe.manifest --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Project.exe.manifest --- (This appears to be a binary file; contents omitted.) |
|
From: George H. <geo...@us...> - 2006-08-05 14:51:04
|
Update of /cvsroot/win32forth/win32forth-610old/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18551/win32forth-610old/src Modified Files: Primutil.f Log Message: gah:Moved RADIX: to application space so words defined with it work in turnkeyed apps. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/src/Primutil.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Primutil.f 14 Dec 2004 23:53:57 -0000 1.1 --- Primutil.f 5 Aug 2006 14:51:00 -0000 1.2 *************** *** 491,496 **** \ BINARY double number display with commas - in-system - : RADIX: ( n1 -<name>- ) CREATE , DOCOL , !CSP ] --- 491,494 ---- *************** *** 498,503 **** LCOUNT BASE ! EXECUTE \ run headerless definition R> BASE ! ; - - in-application 2 RADIX: BUD,.R ( ud width -- ) UD,.R ; --- 496,499 ---- *************** *** 591,595 **** ( -- hndl ) \ Win32Forths startup initialization 0 value ! handles-list link, ; :noname ( -- ) \ chain for cleanup --- 587,591 ---- ( -- hndl ) \ Win32Forths startup initialization 0 value ! handles-list link, ; :noname ( -- ) \ chain for cleanup |
|
From: George H. <geo...@us...> - 2006-08-05 12:30:58
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29799/win32forth/src/lib Modified Files: task.f Log Message: gah:Made pointers thread-safe and improved initialisation. Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** task.f 8 Jun 2006 07:41:41 -0000 1.10 --- task.f 5 Aug 2006 12:30:52 -0000 1.11 *************** *** 252,255 **** --- 252,257 ---- make-lock dialog-lock \ to make linking dialogs thread safe make-lock classname-lock \ to make unique window class naming thread safe + make-lock pointer-lock \ to make allocating pointers thread safe + make-lock dyn-lock \ to make new$ thread safe : _memlock ( -- ) mem-lock lock ; \ for overriding defered lock memory word *************** *** 261,264 **** --- 263,271 ---- : _classnamelock ( -- ) classname-lock lock ; \ : _classnameunlock ( -- ) classname-lock unlock ; + : _pointerlock ( -- ) pointer-lock lock ; + : _pointerunlock ( -- ) pointer-lock unlock ; + : _dynlock ( -- ) dyn-lock lock ; + : _dynunlock ( -- ) dyn-lock unlock ; + : init-system-locks ( -- ) \ initialize system locks for multitasking *************** *** 270,274 **** ['] _dialogunlock is (dialogunlock) ['] _classnamelock is (classnamelock) ! ['] _classnameunlock is (classnameunlock) ; init-system-locks --- 277,285 ---- ['] _dialogunlock is (dialogunlock) ['] _classnamelock is (classnamelock) ! ['] _classnameunlock is (classnameunlock) ! ['] _pointerlock is (pointerlock) ! ['] _pointerunlock is (pointerunlock) ! ['] _dynlock is (dynlock) ! ['] _dynunlock is (dynunlock) ; init-system-locks |
|
From: George H. <geo...@us...> - 2006-08-05 12:30:55
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29799/win32forth/src Modified Files: POINTER.F Primutil.f Log Message: gah:Made pointers thread-safe and improved initialisation. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Primutil.f 3 Aug 2006 13:08:22 -0000 1.15 --- Primutil.f 5 Aug 2006 12:30:52 -0000 1.16 *************** *** 865,874 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! defer (controllock) ' noop is (controllock) ! defer (controlunlock) ' noop is (controlunlock) ! defer (dialoglock) ' noop is (dialoglock) ! defer (dialogunlock) ' noop is (dialogunlock) ! defer (classnamelock) ' noop is (classnamelock) ! defer (classnameunlock) ' noop is (classnameunlock) \s --- 865,898 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! defer (controllock) ! defer (controlunlock) ! defer (dialoglock) ! defer (dialogunlock) ! defer (classnamelock) ! defer (classnameunlock) ! defer (pointerlock) ! defer (pointerunlock) ! defer (dynlock) ! defer (dynunlock) ! ! : init-system-locks-off ( -- ) ! \ *G Set all the system deferred words for locking to noops. This is done automatically ! \ ** by the system at start-up so code that uses it will work correctly before the locks ! \ ** are initialised. ! ['] noop is (controllock) ! ['] noop is (controlunlock) ! ['] noop is (dialoglock) ! ['] noop is (dialogunlock) ! ['] noop is (classnamelock) ! ['] noop is (classnameunlock) ! ['] noop is (pointerlock) ! ['] noop is (pointerunlock) ! ['] noop is (dynlock) ! ['] noop is (dynunlock) ! ; ! ! init-system-locks-off ! ! initialization-chain chain-add init-system-locks-off \s Index: POINTER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** POINTER.F 4 Aug 2006 09:48:43 -0000 1.5 --- POINTER.F 5 Aug 2006 12:30:52 -0000 1.6 *************** *** 82,99 **** drop FALSE \ things went just fine. EXIT \ April 15th, 1999 - 10:51 tjz corrected ! THEN dup r@ @ realloc 0= if r> ! FALSE else drop r>drop TRUE ! then ; : DOES>Pointer ( -- address ) \ it's location DOES> ! dup @ ! if @ exit then \ ok, straight fetch dup 2 cells+ @ malloc -if dup off \ set first cell to zeros ! dup>r swap ! r> ! else 1- abort" Failed to allocate POINTER" then ; --- 82,100 ---- drop FALSE \ things went just fine. EXIT \ April 15th, 1999 - 10:51 tjz corrected ! THEN (pointerlock) dup r@ @ realloc 0= if r> ! FALSE else drop r>drop TRUE ! then (pointerunlock) ; : DOES>Pointer ( -- address ) \ it's location DOES> ! dup @ if @ exit then \ ok, straight fetch ! (pointerlock) ! dup @ if @ (pointerunlock) exit then \ another task won the race dup 2 cells+ @ malloc -if dup off \ set first cell to zeros ! tuck swap ! (pointerunlock) ! else (pointerunlock) 1- abort" Failed to allocate POINTER" then ; *************** *** 144,148 **** \ released when the program terminates. ! 8192 constant max-dyn-string \ dynamic string space is this big max-dyn-string Pointer dyn-ptr \ the dynamic string buffer --- 145,149 ---- \ released when the program terminates. ! 32768 constant max-dyn-string \ dynamic string space is this big (increased for tasks) max-dyn-string Pointer dyn-ptr \ the dynamic string buffer *************** *** 153,161 **** \ return a1 a buffer of n1 bytes dup ! max-dyn-string 4 / > \ limit one string to 1/4 of total abort" Can't allocate a dynamic string this large" ! dyn-offset over + max-dyn-string >= if 0 to dyn-offset ! then dyn-ptr dyn-offset + swap +to dyn-offset ; : _new$ ( -- a1 ) \ allocate the next MAXSTRING buffer --- 154,162 ---- \ return a1 a buffer of n1 bytes dup ! max-dyn-string 16 / > \ limit one string to 1/16 of total abort" Can't allocate a dynamic string this large" ! (dynlock) dyn-offset over + max-dyn-string >= if 0 to dyn-offset ! then dyn-ptr dyn-offset + swap +to dyn-offset (dynunlock) ; : _new$ ( -- a1 ) \ allocate the next MAXSTRING buffer |
|
From: George H. <geo...@us...> - 2006-08-05 12:28:52
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28590/win32forth/doc Modified Files: Paths.htm Log Message: gah:Minor correction to docs Index: Paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Paths.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Paths.htm 4 Aug 2006 09:53:29 -0000 1.3 --- Paths.htm 5 Aug 2006 12:27:39 -0000 1.4 *************** *** 67,102 **** </p><pre><b><a name="20">: program-path-init ( -- ) </a></b></pre><p>Initialize the Forth directory search path list. Automatically done at program ! </p><pre><b><a name="21">\ *G Initialize the Forth directory search path list. Automatically done at program ! </a></b></pre><p>initialization and when Paths.f is loaded. ! </p><pre><b><a name="22">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth 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-ptr - a2 n2 ) </a></b></pre><p>Returns a relative path for file a1 n1 in path-ptr ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="28">: FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) </a></b></pre><p>Returns a releative name for file a1 n1 in path-ptr ( 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 cointain 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">synonym Require needs </a></b></pre><p>Forth 200X name for needs. ! </p><pre><b><a name="35">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. </p><hr><p>Document $Id$</p> --- 67,101 ---- </p><pre><b><a name="20">: 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="21">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="22">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="23">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="24">: 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="25">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. ! </p><pre><b><a name="26">: FindRelativePath ( a1 n1 path-ptr - a2 n2 ) </a></b></pre><p>Returns a relative path for file a1 n1 in path-ptr ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="27">: FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) </a></b></pre><p>Returns a releative name for file a1 n1 in path-ptr ( last-part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="28">: "LOADED? ( addr len -- flag ) </a></b></pre><p>True if a file addr len is loaded. The filename must cointain a full path. ! </p><pre><b><a name="29">: 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="30">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. ! </p><pre><b><a name="31">: \LOADED ( -<name>- ) </a></b></pre><p> If the following file IS LOADED interpret line. ! </p><pre><b><a name="32">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="33">synonym Require needs </a></b></pre><p>Forth 200X name for needs. ! </p><pre><b><a name="34">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. </p><hr><p>Document $Id$</p> |
|
From: George H. <geo...@us...> - 2006-08-05 12:28:29
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28590/win32forth/src Modified Files: paths.f Log Message: gah:Minor correction to docs Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** paths.f 4 Aug 2006 09:52:10 -0000 1.22 --- paths.f 5 Aug 2006 12:27:39 -0000 1.23 *************** *** 194,198 **** : program-path-init ( -- ) \ *G Initialize the Forth directory search path list. Automatically done at program ! \ *G initialization and when Paths.f is loaded. path-ptr off \ clear path list s" %CURRENTDIR%" "fpath+ --- 194,198 ---- : program-path-init ( -- ) \ *G Initialize the Forth directory search path list. Automatically done at program ! \ ** initialization and when Paths.f is loaded. path-ptr off \ clear path list s" %CURRENTDIR%" "fpath+ |
|
From: George H. <geo...@us...> - 2006-08-04 09:58:55
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25375/win32forth Modified Files: fkernel.exe Log Message: gah:Needed for setup (at least on W98) Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 Binary files /tmp/cvseNQ2MH and /tmp/cvsQccXsU differ |
|
From: George H. <geo...@us...> - 2006-08-04 09:53:32
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23503/win32forth/doc Modified Files: Paths.htm Log Message: gah:minor changes Index: Paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Paths.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Paths.htm 27 Jul 2006 07:25:56 -0000 1.2 --- Paths.htm 4 Aug 2006 09:53:29 -0000 1.3 *************** *** 40,44 **** </p><pre><b><a name="8">: path-source ( path-ptr - 2variable_path-source ) </a></b></pre><p>Path-source points to a substring in a path. <br /> ! Path-source returns this adres. </p><pre><b><a name="9">path: path-ptr </a></b></pre><p>Path-ptr defines the path buffer for Forth. Applications that let Forth --- 40,44 ---- </p><pre><b><a name="8">: path-source ( path-ptr - 2variable_path-source ) </a></b></pre><p>Path-source points to a substring in a path. <br /> ! Path-source returns this adress. </p><pre><b><a name="9">path: path-ptr </a></b></pre><p>Path-ptr defines the path buffer for Forth. Applications that let Forth *************** *** 52,57 **** </p><pre><b><a name="13">: "path+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="14">: "fpath+ ( a1 n1 path-ptr -- ) ! </a></b></pre><p>Append a directory to a path. </p><pre><b><a name="15">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. --- 52,57 ---- </p><pre><b><a name="13">: "path+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="14">: "fpath+ ( a1 n1 -- ) ! </a></b></pre><p>Append a directory to the Forth path. </p><pre><b><a name="15">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. *************** *** 60,96 **** </p><pre><b><a name="17">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="18">: full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="19">: program-path-init ( -- ) ! </a></b></pre><p>Initialize the Forth directory search path list. ! </p><pre><b><a name="20">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="21">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="22">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="23">: 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="24">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. ! </p><pre><b><a name="25">: FindRelativePath ( a1 n1 path-ptr - a2 n2 ) ! </a></b></pre><p>Returns a releative path for file a1 n1 in path-ptr ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="26">: FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) </a></b></pre><p>Returns a releative name for file a1 n1 in path-ptr ( last-part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="27">: "LOADED? ( addr len -- flag ) </a></b></pre><p>True if a file addr len is loaded. The filename must cointain a full path. ! </p><pre><b><a name="28">: 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="29">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. ! </p><pre><b><a name="30">: \LOADED ( -<name>- ) </a></b></pre><p> If the following file IS LOADED interpret line. ! </p><pre><b><a name="31">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="32">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. </p><hr><p>Document $Id$</p> --- 60,102 ---- </p><pre><b><a name="17">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="18">: volume-indication? ( adr - flag ) ! </a></b></pre><p>True when the counted string at adr starts with x: or \name ! </p><pre><b><a name="19">: full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="20">: program-path-init ( -- ) ! </a></b></pre><p>Initialize the Forth directory search path list. Automatically done at program ! </p><pre><b><a name="21">\ *G Initialize the Forth directory search path list. Automatically done at program ! </a></b></pre><p>initialization and when Paths.f is loaded. ! </p><pre><b><a name="22">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth 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-ptr - a2 n2 ) ! </a></b></pre><p>Returns a relative path for file a1 n1 in path-ptr ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="28">: FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) </a></b></pre><p>Returns a releative name for file a1 n1 in path-ptr ( 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 cointain 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">synonym Require needs ! </a></b></pre><p>Forth 200X name for needs. ! </p><pre><b><a name="35">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. </p><hr><p>Document $Id$</p> |
|
From: George H. <geo...@us...> - 2006-08-04 09:52:13
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23088/win32forth/src Modified Files: paths.f Log Message: gah:Removed conditional code (since NEW$ now works properly). plus minor doc changes Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** paths.f 3 Aug 2006 12:26:24 -0000 1.21 --- paths.f 4 Aug 2006 09:52:10 -0000 1.22 *************** *** 1,3 **** ! \ $Id$ Ed_FileStack.f \ *D doc\ --- 1,3 ---- ! \ $Id$ \ *D doc\ *************** *** 80,84 **** : path-source ( path-ptr - 2variable_path-source ) \ *G Path-source points to a substring in a path. \n ! \ ** Path-source returns this adres. 2 cells- ; --- 80,84 ---- : path-source ( path-ptr - 2variable_path-source ) \ *G Path-source points to a substring in a path. \n ! \ ** Path-source returns this adress. 2 cells- ; *************** *** 122,127 **** then r>drop ; ! : "fpath+ ( a1 n1 path-ptr -- ) ! \ *G Append a directory to a path. path-ptr "path+ ; --- 122,127 ---- then r>drop ; ! : "fpath+ ( a1 n1 -- ) ! \ *G Append a directory to the Forth path. path-ptr "path+ ; *************** *** 193,200 **** : program-path-init ( -- ) ! \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list ! [ winver win98 = ] [if] s" ." ! [else] s" %CURRENTDIR%" [then] "fpath+ s" %FORTHDIR%" "fpath+ s" %APPDIR%" "fpath+ --- 193,200 ---- : program-path-init ( -- ) ! \ *G Initialize the Forth directory search path list. Automatically done at program ! \ *G initialization and when Paths.f is loaded. path-ptr off \ clear path list ! s" %CURRENTDIR%" "fpath+ s" %FORTHDIR%" "fpath+ s" %APPDIR%" "fpath+ *************** *** 202,206 **** s" src" "fpath+ s" src\lib" "fpath+ ! \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE... s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ --- 202,206 ---- s" src" "fpath+ s" src\lib" "fpath+ ! \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE... s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ *************** *** 274,278 **** : FindRelativePath ( a1 n1 path-ptr - a2 n2 ) ! \ *G Returns a releative path for file a1 n1 in path-ptr ( first part ). \n \ ** n2=0 means not in search path. dup>r reset-path-source --- 274,278 ---- : FindRelativePath ( a1 n1 path-ptr - a2 n2 ) ! \ *G Returns a relative path for file a1 n1 in path-ptr ( first part ). \n \ ** n2=0 means not in search path. dup>r reset-path-source *************** *** 355,358 **** --- 355,361 ---- then r>drop ; + synonym Require needs + \ *G Forth 200X name for needs. + in-application *************** *** 362,366 **** : "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } \ *G Clip filename to limit. ! MAX-PATH LocalAlloc: temp$ limit 20 max to limit \ must be at east 16 limit 20 - 2 / 6 + to pre \ balance start and end --- 365,369 ---- : "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } \ *G Clip filename to limit. ! new$ to temp$ \ so string isn't de-allocated on exit limit 20 max to limit \ must be at east 16 limit 20 - 2 / 6 + to pre \ balance start and end |
|
From: George H. <geo...@us...> - 2006-08-04 09:48:47
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21538/win32forth/src Modified Files: POINTER.F Log Message: gah:Fixed bug where NEW$ was faulty until pointers were initialised Index: POINTER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** POINTER.F 29 Aug 2005 15:56:27 -0000 1.4 --- POINTER.F 4 Aug 2006 09:48:43 -0000 1.5 *************** *** 162,165 **** MAXSTRING DynAlloc ; ! ' _new$ is new$ --- 162,170 ---- MAXSTRING DynAlloc ; ! : init-new$ ( -- ) ! ['] _new$ is new$ ; ! ! init-new$ ! ! initialization-chain chain-add init-new$ |
|
From: George H. <geo...@us...> - 2006-08-04 09:48:46
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21538/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah:Fixed bug where NEW$ was faulty until pointers were initialised Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** fkernel.f 3 Aug 2006 13:08:22 -0000 1.32 --- fkernel.f 4 Aug 2006 09:48:43 -0000 1.33 *************** *** 5459,5462 **** --- 5459,5463 ---- init-proc \ *** MUST BE FIRST IN MAIN *** init-malloc + ['] TEMP$ IS NEW$ \ Must be set until pointers are inited buffs-len malloc dup to CUR-FILE |
|
From: George H. <geo...@us...> - 2006-08-04 09:45:57
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20408/win32forth/src/lib Modified Files: STRUCT.F Log Message: gah:Used module to hide (}strust) correctly Index: STRUCT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** STRUCT.F 3 Aug 2006 13:08:22 -0000 1.9 --- STRUCT.F 4 Aug 2006 09:45:53 -0000 1.10 *************** *** 35,43 **** does> cell+ @ add-struct ; \ get the offset and create a field with it that is itself that offsetword ! module : }struct sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ; \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - ) --- 35,45 ---- does> cell+ @ add-struct ; \ get the offset and create a field with it that is itself that offsetword ! external : }struct sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ; + module + \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - ) |
|
From: George H. <geo...@us...> - 2006-08-04 09:43:41
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19615/win32forth/apps/Win32ForthIDE Modified Files: Main.f Log Message: gah:Minor mods and tidy up Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** Main.f 3 Aug 2006 22:47:45 -0000 1.26 --- Main.f 4 Aug 2006 09:43:27 -0000 1.27 *************** *** 969,974 **** [defined] sysgen [IF] ! : InitDir current-dir$ ( -- ) ! count SetDir: SourceFileOpenDialog ; Initialization-chain Chain-add InitDir --- 969,975 ---- [defined] sysgen [IF] ! : InitDir ( -- ) ! current-dir$ count SetDir: SourceFileOpenDialog ; ! Initialization-chain Chain-add InitDir |
|
From: George H. <geo...@us...> - 2006-08-04 09:43:35
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19615/win32forth/apps/SciEdit Modified Files: Main.f Log Message: gah:Minor mods and tidy up Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** Main.f 27 Jul 2006 07:29:31 -0000 1.23 --- Main.f 4 Aug 2006 09:43:27 -0000 1.24 *************** *** 704,707 **** --- 704,712 ---- [defined] sysgen [IF] + : InitDir ( -- ) + current-dir$ count SetDir: SourceFileOpenDialog ; + + Initialization-chain Chain-add InitDir + : my-hello ( -- ) init-console |
|
From: George H. <geo...@us...> - 2006-08-04 09:43:30
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19615/win32forth/apps/ProMgr Modified Files: ProjectManager.f Log Message: gah:Minor mods and tidy up Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** ProjectManager.f 23 Jul 2006 10:12:56 -0000 1.16 --- ProjectManager.f 4 Aug 2006 09:43:27 -0000 1.17 *************** *** 1941,1944 **** --- 1941,1949 ---- [defined] sysgen [IF] + : InitDir ( -- ) + current-dir$ count SetDir: OpenProjectDialog ; + + Initialization-chain Chain-add InitDir + :noname ( -- ) init-console |
|
From: Rod O. <rod...@us...> - 2006-08-03 22:47:50
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21776/apps/Win32ForthIDE Modified Files: EdCommand.f EdRemote.f Main.f Log Message: Rod: Open .fpj files in project tab from commandline and by drag & drop Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** Main.f 27 Jul 2006 07:29:31 -0000 1.25 --- Main.f 3 Aug 2006 22:47:45 -0000 1.26 *************** *** 938,947 **** strip-cmdline ! 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenRemoteFile) ActiveChild ! if bBrowse SetBrowseMode: ActiveChild ! #line 1- GotoLine: ActiveChild ! then then else drop --- 938,951 ---- strip-cmdline ! 2dup IsProjectFile? ! if (open-project) ! else ! 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenRemoteFile) ActiveChild ! if bBrowse SetBrowseMode: ActiveChild ! #line 1- GotoLine: ActiveChild ! then ! then then else drop Index: EdCommand.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** EdCommand.f 23 Jul 2006 09:36:40 -0000 1.7 --- EdCommand.f 3 Aug 2006 22:47:45 -0000 1.8 *************** *** 98,104 **** else (OpenBinaryFile) then ! else 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenSourceFile) then then --- 98,108 ---- else (OpenBinaryFile) then ! else 2dup IsProjectFile? ! if (open-project) ! else ! 2dup IsHtmlFile? ! if (OpenHtmlFile) ! else (OpenSourceFile) ! then then then Index: EdRemote.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdRemote.f 23 Jul 2006 09:36:40 -0000 1.2 --- EdRemote.f 3 Aug 2006 22:47:45 -0000 1.3 *************** *** 88,91 **** --- 88,95 ---- 2dup s" .HTM" compare 0= -rot s" .HTML" compare 0= or ; + : IsProjectFile? ( adr len -- f ) + ".ext-only" 2dup upper + s" .FPJ" compare 0= ; + :noname { wParam -- } ed-ptr 0= ?EXIT \ leave if shared memory not inited |
|
From: Rod O. <rod...@us...> - 2006-08-03 21:30:22
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23950/apps/Sudoku Removed Files: Sudoku.fpj Log Message: Rod: Removed Sudoku project file from here --- Sudoku.fpj DELETED --- |
1040 messages has been excluded from this view by a project administrator.
