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: Jos v.d.V. <jo...@us...> - 2005-08-23 18:29:37
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13414/src/lib Modified Files: w_search.f Log Message: Jos: Restored compareia. Index: w_search.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** w_search.f 22 Aug 2005 10:47:56 -0000 1.3 --- w_search.f 23 Aug 2005 18:29:28 -0000 1.4 *************** *** 53,56 **** --- 53,110 ---- + \ Initial Made by Ron Aharon. + \ COMPAREI is the same as COMPARE , but case-insensitive + \ Modifications to get a better shell-sort: + \ 1. The version leaves the chars from 0 to 2F unchanged. + \ The effect is that in a sort the non-alphanumeric characters will not be + \ between the alphanumeric characters. + \ 2. It uses jnb instead of jns which makes sure that the character FF is at + \ the end of a sorted list. + \ 3. Changed the name to COMPAREIA to avoid future conflicts. + + + code compareia ( adr1 len1 adr2 len2 -- n ) + sub ebp, # 8 + mov 0 [ebp], edi + mov 4 [ebp], esi + pop eax \ eax = adr2 + pop ecx \ ecx = len1 + pop esi \ esi = adr1 + add esi, edi \ absolute address + add edi, eax \ edi = adr2 (abs) + sub eax, eax \ default is 0 (strings match) + cmp ecx, ebx \ compare lengths + je short @@2 + ja short @@1 + dec eax \ if len1 < len2, default is -1 + jmp short @@2 + @@1: + inc eax \ if len1 > len2, default is 1 + mov ecx, ebx \ and use shorter length + @@2: + mov bl, BYTE [esi] + mov bh, BYTE [edi] + inc esi + inc edi + cmp bx, # $2F2F \ skip chars beteen 0 and 2F ( now lower case ) + jle short @@7 + or bx, # $2020 \ May 21st, 2003 or is better then xor + @@7: + cmp bh, bl + loopz @@2 + + je short @@4 \ if equal, return default + jnb short @@3 \ ** jnb for an unsigned test ( was jns ) + mov eax, # 1 \ if str1 > str2, return 1 + jmp short @@4 + @@3: + mov eax, # -1 \ if str1 < str2, return -1 + @@4: + mov ebx, eax + mov edi, 0 [ebp] + mov esi, 4 [ebp] + add ebp, # 8 + next c; + \ Searchai str1 for substring str2 in a case-insenitive manner. \ If found, return the address of the start of the *************** *** 122,126 **** dup -rot adr-search over CaseSensitive? if compare ! else istr= then not dup --- 176,180 ---- dup -rot adr-search over CaseSensitive? if compare ! else compareia then not dup |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-22 10:48:04
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11282/src/lib Modified Files: w_search.f Log Message: Jos: Replaced compareia by ISTR= after extensive testing. Index: w_search.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** w_search.f 21 Aug 2005 07:58:15 -0000 1.2 --- w_search.f 22 Aug 2005 10:47:56 -0000 1.3 *************** *** 53,110 **** - \ Initial Made by Ron Aharon. - \ COMPAREI is the same as COMPARE , but case-insensitive - \ Modifications to get a better shell-sort: - \ 1. The version leaves the chars from 0 to 2F unchanged. - \ The effect is that in a sort the non-alphanumeric characters will not be - \ between the alphanumeric characters. - \ 2. It uses jnb instead of jns which makes sure that the character FF is at - \ the end of a sorted list. - \ 3. Changed the name to COMPAREIA to avoid future conflicts. - - - code compareia ( adr1 len1 adr2 len2 -- n ) - sub ebp, # 8 - mov 0 [ebp], edi - mov 4 [ebp], esi - pop eax \ eax = adr2 - pop ecx \ ecx = len1 - pop esi \ esi = adr1 - add esi, edi \ absolute address - add edi, eax \ edi = adr2 (abs) - sub eax, eax \ default is 0 (strings match) - cmp ecx, ebx \ compare lengths - je short @@2 - ja short @@1 - dec eax \ if len1 < len2, default is -1 - jmp short @@2 - @@1: - inc eax \ if len1 > len2, default is 1 - mov ecx, ebx \ and use shorter length - @@2: - mov bl, BYTE [esi] - mov bh, BYTE [edi] - inc esi - inc edi - cmp bx, # $2F2F \ skip chars beteen 0 and 2F ( now lower case ) - jle short @@7 - or bx, # $2020 \ May 21st, 2003 or is better then xor - @@7: - cmp bh, bl - loopz @@2 - - je short @@4 \ if equal, return default - jnb short @@3 \ ** jnb for an unsigned test ( was jns ) - mov eax, # 1 \ if str1 > str2, return 1 - jmp short @@4 - @@3: - mov eax, # -1 \ if str1 < str2, return -1 - @@4: - mov ebx, eax - mov edi, 0 [ebp] - mov esi, 4 [ebp] - add ebp, # 8 - next c; - \ Searchai str1 for substring str2 in a case-insenitive manner. \ If found, return the address of the start of the --- 53,56 ---- *************** *** 176,180 **** dup -rot adr-search over CaseSensitive? if compare ! else compareia then not dup --- 122,126 ---- dup -rot adr-search over CaseSensitive? if compare ! else istr= then not dup |
|
From: Dirk B. <db...@us...> - 2005-08-21 11:11:14
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4666/apps/SciEdit Modified Files: CommandID.f EdCommand.f EdCompile.f EdMenu.f EdRemote.f EdVersion.f Main.f ScintillaHyperMDI.f Log Message: SciEdit update: - Fixed some bugs in the hyper-linking and in the debug-interface. - New menu entry "Handle debug messages?" in the Win32Forth menu to turn off the handling of the debug messages from the console window. - Made the communication beetween SciEdit and the console window work a better (I hope). Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdVersion.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** EdVersion.f 21 Aug 2005 06:22:01 -0000 1.4 --- EdVersion.f 21 Aug 2005 11:11:04 -0000 1.5 *************** *** 23,37 **** \ ---------------------- Initals of developers ----------------------------- \ --------------------------------------------------------------------------- ! DBU Dirk Busch (di...@SP...) ! ^^ ^^^^ remove this \ --------------------------------------------------------------------------- \ ---------------------- Known bugs ---------------------------------------- \ --------------------------------------------------------------------------- ! - ctrl+a ctrl+c in the html browser window does not copy to the clipboard (jos) ! - in a html browser window, the filename isn't updated in the tiltlebar when a file is opened by selecting a link in the html file (dbu) - When using hyperlinking somtimes SciEdit ends in an endless loop displaying ! error messages in a MessageBox. (dbu) \ --------------------------------------------------------------------------- --- 23,37 ---- \ ---------------------- Initals of developers ----------------------------- \ --------------------------------------------------------------------------- ! DBU Dirk Busch (di...@wi...) ! EAB Ezra Boyce \ --------------------------------------------------------------------------- \ ---------------------- Known bugs ---------------------------------------- \ --------------------------------------------------------------------------- ! - Ctrl+a ctrl+c in the html browser window does not copy to the clipboard (jos) ! - In a html browser window, the filename isn't updated in the tiltlebar when a file is opened by selecting a link in the html file (dbu) - When using hyperlinking somtimes SciEdit ends in an endless loop displaying ! error messages in a MessageBox. (dbu) - Fixed: Samstag, August 20 2005 dbu \ --------------------------------------------------------------------------- *************** *** 39,44 **** \ --------------------------------------------------------------------------- - Ability to compile a line or selected text (erza) ! - text search with regular expressions (the sintilla control can do this) (dbu) ! - search and replace text (dbu) - The hyperlinking to this source code my places the source about three lines from the bottom of the screen in a 25 lines screen. --- 39,44 ---- \ --------------------------------------------------------------------------- - Ability to compile a line or selected text (erza) ! - Text search with regular expressions (the sintilla control can do this) (dbu) ! - Search and replace text (dbu) - The hyperlinking to this source code my places the source about three lines from the bottom of the screen in a 25 lines screen. *************** *** 50,53 **** --- 50,57 ---- - User defined color's for the Background and the Text (dbu) - Convert Tab's to spaces and spaces to Tab's (RBS) + - If a second copy of a file is opend SciEdit currently activates the first + copy only. It should better check if the copy on the disk is newer than + the ony in memory, and ask the user to load the newer one. (dbu) + - Monitor the file-system, and ask the user to reload a file if it was modified. \ --------------------------------------------------------------------------- *************** *** 86,90 **** dbu Samstag, August 28 2004 - New Menu entries "Line cut...", "Line copy", "Line transpose", ! "Line duplicate", "Lowercase" and "Uppercase" in the "Edit" menu. - Little enhancement of the debug support --- 90,94 ---- dbu Samstag, August 28 2004 - New Menu entries "Line cut...", "Line copy", "Line transpose", ! "Line duplicate", "Lowercase" and "Uppercase" in the "Edit" menu. - Little enhancement of the debug support *************** *** 128,132 **** dbu Donnerstag, September 09 2004 - Fixed the WM_COMMAND handling problems (I hope) ! - Fixed the NewFile: method of the EditorChild class witch was complety broken \ changes for Version 1.01.12 --- 132,136 ---- dbu Donnerstag, September 09 2004 - Fixed the WM_COMMAND handling problems (I hope) ! - Fixed the NewFile: method of the EditorChild class whitch was complety broken \ changes for Version 1.01.12 *************** *** 185,192 **** - SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug. ! \ changes for Version 1.01.23 ! EAB August 21, 2005 ! - Added a little integration with ForthForm. If SciEdit is open ! ForthForm will use it for editing/viewing sources. Modification ! in EdRemote.f. --- 189,204 ---- - SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug. ! \ changes for Version 1.01.23 ! dbu Samstag, August 20 2005 ! - Fixed some bugs in the hyper-linking and in the debug-interface. ! EAB August 21, 2005 ! - Added a little integration with ForthForm. If SciEdit is open ! ForthForm will use it for editing/viewing sources. Modification ! in EdRemote.f. ! dbu August 21, 2005 ! - Made the communication beetween SciEdit and the console window ! work a better (I hope). ! - New menu entry "Handle debug messages?" in the Win32Forth menu ! to turn off the handling of the debug messages from the console ! window. \ No newline at end of file Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdMenu.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdMenu.f 6 Jan 2005 16:54:52 -0000 1.2 --- EdMenu.f 21 Aug 2005 11:11:04 -0000 1.3 *************** *** 29,40 **** \ :MenuItem mf_reload "&Revert to last saved version\tCtrl+R" IDM_RELOAD DoCommand ; \ MenuSeparator ! :MenuItem mf_openhl "Open Highlighted File\tCtrl+Shift+O" IDM_OPEN_HIGHLIGHTED_FILE DoCommand ; MenuSeparator ! MENUITEM "Open &HTML File..." IDM_OPEN_HTML_FILE DoCommand ; MenuSeparator MenuItem "E&xit\tALT+F4" IDM_EXIT DoCommand ; \ MenuSeparator ! 8 RECENTFILES RecentFiles IDM_OPEN_RECENT_FILE DoCommand ; Popup "&Edit" --- 29,40 ---- \ :MenuItem mf_reload "&Revert to last saved version\tCtrl+R" IDM_RELOAD DoCommand ; \ MenuSeparator ! :MenuItem mf_openhl "Open Highlighted File\tCtrl+Shift+O" IDM_OPEN_HIGHLIGHTED_FILE DoCommand ; MenuSeparator ! MENUITEM "Open &HTML File..." IDM_OPEN_HTML_FILE DoCommand ; MenuSeparator MenuItem "E&xit\tALT+F4" IDM_EXIT DoCommand ; \ MenuSeparator ! 8 RECENTFILES RecentFiles IDM_OPEN_RECENT_FILE DoCommand ; Popup "&Edit" *************** *** 95,103 **** :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; ! :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ; Popup "&Win32Forth" :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_debug "&Debug...\tF11" IDM_DEBUG DoCommand ; MenuSeparator :MenuItem mp_browser "Class and &Vocabulary browser..." IDM_VOC_BROWSER DoCommand ; --- 95,104 ---- :MenuItem mp_showsb "&Show Statusbar" IDM_SHOW_STATUSBAR DoCommand ; :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; ! :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ; Popup "&Win32Forth" :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_debug "&Debug...\tF11" IDM_DEBUG DoCommand ; + :MenuItem mp_HandleW32FMsg "&Handle debug messages?" IDM_HANDLEW32FMSG DoCommand ; MenuSeparator :MenuItem mp_browser "Class and &Vocabulary browser..." IDM_VOC_BROWSER DoCommand ; *************** *** 141,145 **** pad GetSelText: ActiveChild if pad zcount BL skip BL -TRAILCHARS ! IsAnsWord? else false then ; --- 142,146 ---- pad GetSelText: ActiveChild if pad zcount BL skip BL -TRAILCHARS ! IsAnsWord? else false then ; *************** *** 194,197 **** --- 195,199 ---- dup Enable: mp_compile dup Enable: mp_debug + \ dup Enable: mp_HandleW32FMsg \ Help menu *************** *** 248,252 **** \ Win32Forth menu GetTextLength: ActiveChild Enable: mp_compile ! ActiveRemote ActiveChild = Enable: mp_debug \ Help menu --- 250,255 ---- \ Win32Forth menu GetTextLength: ActiveChild Enable: mp_compile ! ActiveRemote ActiveChild = HandleW32FMsg? and Enable: mp_debug ! HandleW32FMsg? Check: mp_HandleW32FMsg \ Help menu *************** *** 268,270 **** 0 ; - |
|
From: Dirk B. <db...@us...> - 2005-08-21 07:58:26
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2878/src/lib Modified Files: w_search.f Log Message: Removed the last rel>abs from the source. Index: w_search.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** w_search.f 20 Aug 2005 12:39:40 -0000 1.1 --- w_search.f 21 Aug 2005 07:58:15 -0000 1.2 *************** *** 294,298 **** begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rel>abs rot call GetWindowText pad swap 2r@ 2swap 2dup temp$ place false *search rot drop else never 0 true --- 294,298 ---- begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rot call GetWindowText pad swap 2r@ 2swap 2dup temp$ place false *search rot drop else never 0 true *************** *** 320,322 **** \s - |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:16
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/apps/ForthForm Modified Files: ABOUT.F CONTROLPROPERTYII.ff CreateMenu.f CreateToolBar.f FORMCONTROLS.F FORMOBJECT.F FORMPROPERTY.F FORMPROPERTY.ff FORTHFORM.F FormPad.f Forms.frm GroupAction.ff PREFERENCES.ff RECT.F SplitterWindow.f Added Files: FormHelp.f FormMenu.f GroupAction.f TabPropertyWindow.ff Log Message: Updated ForthForm, docs and some associated files. - EAB Index: RECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/RECT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** RECT.F 21 Dec 2004 00:18:45 -0000 1.1 --- RECT.F 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 22,25 **** --- 22,27 ---- int drawmode int drawcolor + ColorObject DotColor + :M ClassInit: ( -- ) *************** *** 28,31 **** --- 30,36 ---- BLACK to drawcolor R2_NOT to drawmode \ inverse drawing by default + Color: RED NewColor: DotColor + PS_DOT Put: DotColor.PenStyle + InitColor: DotColor ;M *************** *** 54,63 **** left top Lineto: thedc ; ! :M Draw: ( -- ) thedc if drawcolor LineColor: thedc drawrectangle then ;M ! /* \ Works better on hi-color systems --- 59,74 ---- left top Lineto: thedc ; ! :M DrawNormal: ( -- ) thedc if drawcolor LineColor: thedc drawrectangle then ;M ! ! :M DrawDotted: ( -- ) ! drawcolor drawmode \ save on stack ! R2_COPYPEN ( R2_NOTCOPYPEN ) SetRop2: thedc drop ! Addr: DotColor to drawcolor ! DrawNormal: self ! to drawmode to drawcolor ;M /* \ Works better on hi-color systems *************** *** 105,109 **** :M DrawFilled: { fillcolor -- } Left Top Right Bottom fillcolor FillArea: thedc ! Draw: self ;M --- 116,120 ---- :M DrawFilled: { fillcolor -- } Left Top Right Bottom fillcolor FillArea: thedc ! DrawNormal: self ;M Index: ABOUT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/ABOUT.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsNf0f8i and /tmp/cvs9RNEKd differ Index: CreateToolBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/CreateToolBar.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CreateToolBar.f 21 Dec 2004 00:18:45 -0000 1.1 --- CreateToolBar.f 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 685,692 **** : ViewSource ( -- ) \ view source code for a toolbar CompileToolBar TheBuffer ! new$ >r ! s" Toolbar: " r@ place ! name count r@ +place ! r> count View: FormPad ; :M Close: ( -- ) --- 685,691 ---- : ViewSource ( -- ) \ view source code for a toolbar CompileToolBar TheBuffer ! s" Toolbar-" pad place ! name count pad +place ! pad count ShowSource ; :M Close: ( -- ) *************** *** 726,730 **** ;Object ! : CreateToolBar ( -- ) ! Start: frmCreateToolBar ; ! --- 725,728 ---- ;Object ! :NoName ( -- ) ! Start: frmCreateToolBar ; is doCreateToolBar Index: Forms.frm =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/Forms.frm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Forms.frm 21 Dec 2004 00:18:45 -0000 1.1 --- Forms.frm 21 Aug 2005 06:22:00 -0000 1.2 *************** *** 1,7 **** ! \ FORMPROPERTY.FRM \- textbox needs excontrols.f ! :Object frmEditFormProperties <Super DialogWindow Font WinFont --- 1,7 ---- ! \ TABPROPERTYWINDOW.FRM \- textbox needs excontrols.f [...1172 lines suppressed...] + then 0 ;M + + :M SetCommand: ( cfa -- ) \ set WMCommand function + to WMCommand-Func + ;M + + :M On_Paint: ( -- ) + 0 0 GetSize: self Addr: FrmColor FillArea: dc + ;M + + :M On_Done: ( -- ) + Delete: WinFont + originx originy 2to XYPos + \ Insert your code here + On_Done: super + ;M + + ;Object + + Index: PREFERENCES.ff =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/PREFERENCES.ff,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvstRBr1J and /tmp/cvs2FuaKF differ Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FORTHFORM.F 12 Jun 2005 08:37:33 -0000 1.6 --- FORTHFORM.F 21 Aug 2005 06:22:00 -0000 1.7 *************** *** 7,11 **** anew -ForthForm.f ! : sysgen ; \ add the ForthForm folder's to our path list --- 7,11 ---- anew -ForthForm.f ! : sysgen ; [...1155 lines suppressed...] + forthform also \ add the Application Icon to the resource of the exe-file if possible ! \+ sysgen s" src\res\ForthForm.ico" s" ForthForm.exe" AddAppIcon ! \+ sysgen previous \+ sysgen 1 pause-seconds bye *************** *** 1335,1343 **** \s That's all folks! - Mark these files for the project manager - thisfile forthform.ico - thisfile forthform.exe - thisfile w32fconsole.dll - thisfile wincon.dll - thisfile forthform.cfg - |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:16
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/src/lib Modified Files: ScintillaEdit.f bitmap.f excontrols.f file.f Added Files: ExUtils.f Removed Files: formutils.f Log Message: Updated ForthForm, docs and some associated files. - EAB Index: ScintillaEdit.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ScintillaEdit.f 3 May 2005 12:21:10 -0000 1.2 --- ScintillaEdit.f 21 Aug 2005 06:22:01 -0000 1.3 *************** *** 16,20 **** needs ScintillaControl.f needs file.f ! needs RegistryWindowPos.f \ ------------------------------------------------------------------------------ --- 16,20 ---- needs ScintillaControl.f needs file.f ! \ needs RegistryWindowPos.f \ ------------------------------------------------------------------------------ *************** *** 427,430 **** MODULE - - |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:14
|
Update of /cvsroot/win32forth/win32forth/proj In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/proj Modified Files: ForthForm.fpj Log Message: Updated ForthForm, docs and some associated files. - EAB Index: ForthForm.fpj =================================================================== RCS file: /cvsroot/win32forth/win32forth/proj/ForthForm.fpj,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ForthForm.fpj 12 Mar 2005 09:37:19 -0000 1.3 --- ForthForm.fpj 21 Aug 2005 06:22:01 -0000 1.4 *************** *** 1,7 **** ProjectName= ForthForm BuildFile= apps\ForthForm\FORTHFORM.F ! SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;SRC\FORTHFORM;SRC\FORTHFORM\RES ForthForm,0 ! Modules,34 apps\ForthForm\FORTHFORM.F SRC\LIB\excontrols.f --- 1,7 ---- ProjectName= ForthForm BuildFile= apps\ForthForm\FORTHFORM.F ! SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;SRC\FORTHFORM;SRC\FORTHFORM\RES;APPS\FORTHFORM;APPS\FORTHFORM\RES;APPS\PROMGR\RES ForthForm,0 ! Modules,40 apps\ForthForm\FORTHFORM.F SRC\LIB\excontrols.f *************** *** 24,28 **** apps\ForthForm\testexample.f SRC\LIB\multiopen.f - SRC\LIB\formutils.f apps\ForthForm\formpad.f apps\ForthForm\CreateToolBar.f --- 24,27 ---- *************** *** 38,51 **** SRC\LIB\mdi.f SRC\LIB\mdidialog.f ! DLLs,4 FreeImage.dll w32fconsole.dll wincon.dll w32fHtmlDisplay.dll ! Forms,4 apps\ForthForm\controlpropertyII.frm apps\ForthForm\preferences.frm apps\ForthForm\example.frm apps\ForthForm\forms.frm Auxiliary Files,10 forthform.exe --- 37,59 ---- SRC\LIB\mdi.f SRC\LIB\mdidialog.f ! SRC\LIB\ExUtils.f ! SRC\LIB\HtmlDisplayWindow.f ! SRC\LIB\Win32Help.f ! SRC\LIB\Resources.f ! APPS\FORTHFORM\formhelp.f ! APPS\FORTHFORM\formmenu.f ! APPS\FORTHFORM\groupaction.f ! DLLs,5 FreeImage.dll w32fconsole.dll wincon.dll w32fHtmlDisplay.dll ! w32fScintilla.dll ! Forms,5 apps\ForthForm\controlpropertyII.frm apps\ForthForm\preferences.frm apps\ForthForm\example.frm apps\ForthForm\forms.frm + APPS\FORTHFORM\FormPad.frm Auxiliary Files,10 forthform.exe *************** *** 59,63 **** apps\ForthForm\FORMPROPERTY.ff apps\ForthForm\SplitterWindow.ff ! Resources,12 apps\ForthForm\RES\static.bmp apps\ForthForm\RES\picture.bmp --- 67,71 ---- apps\ForthForm\FORMPROPERTY.ff apps\ForthForm\SplitterWindow.ff ! Resources,20 apps\ForthForm\RES\static.bmp apps\ForthForm\RES\picture.bmp *************** *** 72,75 **** --- 80,91 ---- apps\ForthForm\res\Splitwin-type4.bmp apps\ForthForm\res\Splitwin-type5.bmp + apps\sciedit\res\toolbar.bmp + APPS\PROMGR\RES\treeimages.bmp + APPS\FORTHFORM\RES\scrlleft.bmp + APPS\FORTHFORM\RES\scrlright.bmp + APPS\FORTHFORM\RES\save1.bmp + APPS\FORTHFORM\RES\save2.bmp + APPS\FORTHFORM\RES\stop1.bmp + APPS\FORTHFORM\RES\stop2.bmp Docs,36 doc\ForthForm\FF-History.htm |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:14
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/apps/SciEdit Modified Files: EdRemote.f EdVersion.f Main.f Log Message: Updated ForthForm, docs and some associated files. - EAB Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Main.f 20 Jun 2005 07:40:44 -0000 1.7 --- Main.f 21 Aug 2005 06:22:01 -0000 1.8 *************** *** 701,703 **** Main [then] ! |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:14
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm/res In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/apps/ForthForm/res Added Files: SCRLRight.BMP SCRLleft.BMP save1.bmp save2.bmp stop1.BMP stop2.BMP Log Message: Updated ForthForm, docs and some associated files. - EAB --- NEW FILE: SCRLleft.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: stop2.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SCRLRight.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: save1.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: stop1.BMP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: save2.bmp --- (This appears to be a binary file; contents omitted.) |
|
From: Ezra B. <ezr...@us...> - 2005-08-21 06:22:13
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20967/apps/ProMgr Modified Files: ProjectManager.f zipper.f Log Message: Updated ForthForm, docs and some associated files. - EAB Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ProjectManager.f 7 Aug 2005 09:34:57 -0000 1.7 --- ProjectManager.f 21 Aug 2005 06:22:00 -0000 1.8 *************** *** 102,106 **** needs zipper.f \ interface for Info-Zip's free Zip32.dll needs multiopen.f \ allow the selection of multiple files ! needs formutils.f \ shared definitions from ForthForm needs ScintillaHyperEdit.f needs HtmlDisplayWindow.f --- 102,106 ---- needs zipper.f \ interface for Info-Zip's free Zip32.dll needs multiopen.f \ allow the selection of multiple files ! needs exutils.f \ shared definitions from ForthForm needs ScintillaHyperEdit.f needs HtmlDisplayWindow.f *************** *** 1783,1794 **** then tcnt Set#FilesToBeZipped ! \ I'm yet to figure out how to zip without pathnames ! \ it seems there is a little gotcha in the DLL to be able to do this ! \ I'll figure it out someday ! with{ zipoptions }with ! \ 1 put> fJunkDir \ don't store path info? ! 1 put> fNoDirEntries \ ditto? ! 6 put> flevel \ default compression level ! end-with GetList: TheProject lcount cells bounds --- 1783,1787 ---- then tcnt Set#FilesToBeZipped ! 1 zipoptions put> fJunkDir \ don't store path info GetList: TheProject lcount cells bounds *************** *** 2007,2009 **** s" doc\promgr\prjProjectWindow.gif" needed-file ENDDOC - |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-20 12:39:50
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26762/src/lib Added Files: w_search.f Log Message: Jos: Removed a bug from search-window --- NEW FILE: w_search.f --- anew w_search.f \ October 7th, 2002 By J.v.d.Ven. \ July 27th, 2002 \ Corrected a number of bugs. Now w-search returns the found string. \ May 23rd, 2003 \ - Made w-search case insensitive \ July 7th, 2003 \ - Made this source independed from toolset.f \ - added an extra flag to w-search. The flag determines if the search \ is case insensitive or not. \ - *search puts a * before the specification string. \ - Then it performs a w-search \ July 21st, 2003 \ - Changed w_search. Now it will return the stack right when a search \ buffer or a specification string has a lenght of 0. \ From toolset.f \ load it here when you would like to use it. defined toolset.f nip not [IF] : never ( flag - false ) drop false ; : -dup ( n1 n2 - n1 n1 n2 ) >r dup r> ; \ October 15th, 2002, "Lcc Wizard" Gave me a 2nip in assembler [undefined] 2nip [if] CODE 2nip ( n1 n2 n3 n4 -- n3 n4 ) \ 2swap 2drop pop eax mov 4 [esp], eax pop eax next c; [then] \ May 22nd, 2002 - 18:50 \ s-exchange to prevent roll when posible code s-exchange ( ... n[k]..0 k -- ... 0..n[k] ) mov eax, ebx \ save k mov ecx, [esp] \ save nos mov ebx, 0 [esp] [eax*4] \ duplicate n[k] in tos mov 0 [esp] [eax*4] , ecx \ put nos where n[k] was pop eax \ discard second item on data stack next c; \ Usage: \ 10 20 30 40 3 cr .s s-exchange cr .s \ result: \ [5] 10 20 30 40 3 \ [4] 40 20 30 10 ok.... \ Initial Made by Ron Aharon. \ COMPAREI is the same as COMPARE , but case-insensitive \ Modifications to get a better shell-sort: \ 1. The version leaves the chars from 0 to 2F unchanged. \ The effect is that in a sort the non-alphanumeric characters will not be \ between the alphanumeric characters. \ 2. It uses jnb instead of jns which makes sure that the character FF is at \ the end of a sorted list. \ 3. Changed the name to COMPAREIA to avoid future conflicts. code compareia ( adr1 len1 adr2 len2 -- n ) sub ebp, # 8 mov 0 [ebp], edi mov 4 [ebp], esi pop eax \ eax = adr2 pop ecx \ ecx = len1 pop esi \ esi = adr1 add esi, edi \ absolute address add edi, eax \ edi = adr2 (abs) sub eax, eax \ default is 0 (strings match) cmp ecx, ebx \ compare lengths je short @@2 ja short @@1 dec eax \ if len1 < len2, default is -1 jmp short @@2 @@1: inc eax \ if len1 > len2, default is 1 mov ecx, ebx \ and use shorter length @@2: mov bl, BYTE [esi] mov bh, BYTE [edi] inc esi inc edi cmp bx, # $2F2F \ skip chars beteen 0 and 2F ( now lower case ) jle short @@7 or bx, # $2020 \ May 21st, 2003 or is better then xor @@7: cmp bh, bl loopz @@2 je short @@4 \ if equal, return default jnb short @@3 \ ** jnb for an unsigned test ( was jns ) mov eax, # 1 \ if str1 > str2, return 1 jmp short @@4 @@3: mov eax, # -1 \ if str1 < str2, return -1 @@4: mov ebx, eax mov edi, 0 [ebp] mov esi, 4 [ebp] add ebp, # 8 next c; \ Searchai str1 for substring str2 in a case-insenitive manner. \ If found, return the address of the start of the \ string, the characters remaining in str1 and a true flag. \ Otherwise return the original str1 and a false flag. \ ESI = pointer to source string (str2) \ EBX = length of source string \ EDI = pointer to destination string (str1) \ ECX = length of destination string \ EDX = pointer for compare CODE searchia ( adr1 len1 adr2 len2 -- adr3 len3 flag ) test ebx, ebx jne short @@1 pop eax dec ebx \ zero length matches jmp short @@6 @@1: sub ebp, # 12 mov 0 [ebp], edx \ save UP mov 4 [ebp], edi mov 8 [ebp], esi pop esi add esi, edi mov ecx, 0 [esp] add edi, 4 [esp] jmp short @@2 @@4: inc edi \ go to next c; char in destination dec ecx @@2: cmp ecx, ebx \ enough room for match? jb short @@5 sub edx, edx \ starting index @@3: mov al, 0 [edx] [esi] mov ah, 0 [edx] [edi] or ax, # $2020 \ make it lowercase cmp al, ah jne short @@4 inc edx cmp edx, ebx jne short @@3 mov eax, edi \ found mov edx, 0 [ebp] mov edi, 4 [ebp] mov esi, 8 [ebp] add ebp, # 12 sub eax, edi \ relative address mov 4 [esp], eax mov 0 [esp], ecx mov ebx, # -1 \ true flag jmp short @@6 @@5: sub ebx, ebx \ not found mov edx, 0 [ebp] \ restore UP mov edi, 4 [ebp] mov esi, 8 [ebp] add ebp, # 12 @@6: next c; [THEN] 0 value last-cnt 0 value CaseSensitive? : starting-with? ( adres-spec /spec adr-search /search - next-adr /next flag ) locals| /spec adr-search | dup -rot adr-search over CaseSensitive? if compare else compareia then not dup if >r dup dup +to last-cnt adr-search + /spec rot - r> \ First else nip adr-search /spec rot then ; : containing? ( adres-spec /spec adr-search /search -- next-adr /next flag ) drop dup>r 2swap CaseSensitive? if search else searchia then dup if r> 2 pick - +to last-cnt else r>drop then ; ascii * value wildcard-char : continue-w-search? ( /search /spec result - /search flag ) swap 0> and over 0> and ; : scan-for-wildcard ( adr-spec /spec - adr len flag ) wildcard-char scan dup 0= ; : target-search ( >adr-spec max-spec adr-spec /spec adr-search /search - >adr-spec1 max-spec1 adr-spec /spec adr-search /search ) 2over scan-for-wildcard if 2drop else dup 7 s-exchange swap - 4 s-exchange drop 6 s-exchange drop then ; : next-search ( >adr-spec max-spec adr-spec /spec adr-search /search - >adr-spec max-spec adr-spec1 /spec2 adr-search /search ) 2>r 2drop 2dup 2r> ; : wildcard ( >adr-spec max-spec adr-spec /spec adr-search /search - >adr-spec max-spec adr-spec1 /spec2 adr-search /search ) 2>r 2drop 1- swap 1+ swap \ in spec$ 2dup scan-for-wildcard if 2drop >r 0 over r> else 2swap 2 pick - then 2r> ; \ adr and len are invalid when the flag returns 0 in w-search \ w-search is might be case sensitive \ CaseSensitive? 0= stands for case insensitive. \ A * in the specification string skips 0 or more characters until \ the next substring is found. A duplicate substring might be confusing. : w-search ( adr-spec /spec adr-search /search flag - adr len flag ) to CaseSensitive? 0 0 locals| /last adr | dup 0> 3 pick 0> and if 2>r 2dup 2r> true >r 2 pick r@ continue-w-search? 0 to last-cnt if begin 2 pick r@ continue-w-search? while 3 pick c@ wildcard-char = if wildcard 4dup adr containing? adr 0= \ * if 0 to last-cnt then else target-search 4dup adr 0= if over to adr then starting-with? then r> and dup>r adr 0= and if over to adr then 2nip 2 pick to /last next-search repeat 4drop 2drop last-cnt /last + else drop then adr swap r@ 0<> and r> else 2nip false \ July 21st, 2003 Solves the zero buffer problem then ; : +trailing ( adr count char - adr2 count2 ) -rot dup>r over + swap dup>r ?do i c@ over <> if i leave then loop nip r> -dup - r> swap - ; : #number-line> ( adr count which seperator - n flag ) locals| seperator | dup 0> if >r seperator +trailing r> 0 do seperator scan seperator +trailing loop else drop seperator +trailing then -dup seperator scan drop over - number? -rot d>s swap ; create *buffer maxstring allot \ *search puts a * before the specification string. \ Then it performs a w-search : *search ( adr-spec /spec adr-search /search flag - adr len flag ) >r 1 *buffer c! wildcard-char *buffer 1+ c! 2swap *buffer +place *buffer count 2swap r> w-search ; : search-window ( adr cnt - hwnd|0 ) 2>r call GetActiveWindow dup begin GW_HWNDNEXT swap call GetWindow dup 0<> if dup MAXSTRING pad rel>abs rot call GetWindowText pad swap 2r@ 2swap 2dup temp$ place false *search rot drop else never 0 true then or until nip 2r> 2drop ; \s create search-buffer maxstring allot s" xxxx <ccc>" search-buffer place s" *<*>" search-buffer count false w-search cr .s [if] .( Found: ) type [else] .( String not found:) 2drop [Then] \s \ Result Found: <ccc> s" <*>" search-buffer count false *search cr .s [if] .( Found: ) type [else] .( String not found:) 2drop [Then] \ Result Found: <ccc> \s |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-20 12:36:33
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26178/apps/WinEd Removed Files: W_SEARCH.F Log Message: Jos: w_search is 3 times in the CVS --- W_SEARCH.F DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-20 12:35:36
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26010/apps/SciEdit Removed Files: W_SEARCH.F Log Message: Jos: w_search is 3 times in the CVS --- W_SEARCH.F DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-20 12:34:41
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25847/apps/Player4 Removed Files: W_SEARCH.F Log Message: Jos: w_search is 3 times in the CVS --- W_SEARCH.F DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2005-08-20 11:39:43
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18053/src/lib Modified Files: excontrols.f Log Message: Jos: Made it possible to select a textbox by default. Index: excontrols.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** excontrols.f 1 May 2005 06:27:42 -0000 1.2 --- excontrols.f 20 Aug 2005 11:39:35 -0000 1.3 *************** *** 53,56 **** --- 53,65 ---- ;M + :M SetSelection: ( nEnd nStart -- ) \ Set selection range. + EM_SETSEL SendMessage:self drop + ;M + + :M SelectAll: ( -- ) \ Select all the text in control. + SetFocus: Self \ Change the focus for deselecting. + -1 0 SetSelection: self + ;M + :M Setfont: ( handle -- ) 1 swap WM_SETFONT SendMessage:Self drop *************** *** 1980,1982 **** MODULE \S ! |
|
From: Dirk B. <db...@us...> - 2005-08-19 16:08:24
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29423/src/kernel Modified Files: fkernel.f Log Message: Removed my (checksource) hack from REFILL, since the real bug was in SciEdit and not in the kernel. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** fkernel.f 18 Aug 2005 16:18:23 -0000 1.20 --- fkernel.f 19 Aug 2005 16:08:11 -0000 1.21 *************** *** 4607,4623 **** 0 value len-prev - \ added for cf32 port (Samstag, August 13 2005 dbu) - \ I don't know why, but when the last line of a source file is read - \ then the last byte in TIB is a null byte. In older w32f version's - \ (V3.5) there was no null byte in TIB. So this is makeing trubble - \ in cf32, so I added this check as a quick and dirty fix. - : (checksource) ( -- ) - (SOURCE) @ - if source + 1- c@ 0= - if (source) @ 1- (source) ! - \ ." - source adjust" - then - then ; - : REFILL ( -- f ) \ refill TIB from current input stream SOURCE-ID ?DUP --- 4607,4610 ---- *************** *** 4632,4636 **** IF DUP 2 + TO LEN-PREV (SOURCE) ! - (checksource) \ added for cf32 port (Samstag, August 13 2005 dbu) >IN OFF .REFILL --- 4619,4622 ---- *************** *** 5781,5783 **** ' ?THROW RESOLVES ?THROW ' WARNMSG RESOLVES WARNMSG - |
|
From: Dirk B. <db...@us...> - 2005-08-19 16:08:24
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29423 Modified Files: fkernel.exe Log Message: Removed my (checksource) hack from REFILL, since the real bug was in SciEdit and not in the kernel. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 Binary files /tmp/cvs36TccI and /tmp/cvshaDcb9 differ |
|
From: Dirk B. <db...@us...> - 2005-08-19 16:05:56
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28505/apps/SciEdit Modified Files: EdVersion.f ScintillaMDI.f Log Message: SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug. Index: EdVersion.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdVersion.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdVersion.f 6 Jan 2005 16:54:52 -0000 1.2 --- EdVersion.f 19 Aug 2005 16:05:46 -0000 1.3 *************** *** 1,5 **** \ $Id$ ! 10121 value sciedit_version# \ Version numbers: v.ww.rr --- 1,5 ---- \ $Id$ ! 10122 value sciedit_version# \ Version numbers: v.ww.rr *************** *** 181,183 **** your Win32Forth version ! |
|
From: Dirk B. <db...@us...> - 2005-08-19 16:05:55
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28505/src/lib Modified Files: file.f Log Message: SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug. Index: file.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/file.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** file.f 3 May 2005 12:21:10 -0000 1.3 --- file.f 19 Aug 2005 16:05:47 -0000 1.4 *************** *** 199,202 **** --- 199,216 ---- then ;M + :M GetLength: ( -- len ) \ get the length of the file-buffer + FileBuffer ?dup + if @ + else 0 + then ;M + + :M SetLength: ( len -- ) \ set the length of the file-buffer + \ NOTE: You can set the length with this method behind the + \ allocated memory of the file-buffer! So take care. + FileBuffer ?dup + if ! + else drop + then ;M + :M SetBuffer: ( addr len -- ) \ set the address and len of the file-buffer ReleaseBuffer: self |
|
From: Alex M. <ale...@us...> - 2005-08-16 00:01:13
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18056/src/kernel Modified Files: fkernext.f meta-compiler.f Log Message: arm: remove meta MACRO word, use standard macro: word; tidy up of meta-compiler source Index: meta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** meta-compiler.f 14 Jul 2005 20:32:03 -0000 1.6 --- meta-compiler.f 16 Aug 2005 00:01:05 -0000 1.7 *************** *** 168,175 **** ' TCODE-ALIGN ASSEMBLER ASM-HIDDEN IS CODE-ALIGN META - \ ASSEMBLER MACROS - : MACRO ASSEMBLER DEFINITIONS : ; - : END-MACRO POSTPONE ; META DEFINITIONS ; IMMEDIATE - \ ====================================================================== \ Define Meta Branching Constructs --- 168,171 ---- *************** *** 181,185 **** : ?>RESOLVE ( f addr -- ) t-here CELL+ SWAP t-! ?CONDITION ; ! : ?<RESOLVE ( f addr -- ) t-, ?CONDITION ; \ ====================================================================== --- 177,181 ---- : ?>RESOLVE ( f addr -- ) t-here CELL+ SWAP t-! ?CONDITION ; ! : ?<RESOLVE ( f addr -- ) t-, ?CONDITION ; \ ====================================================================== *************** *** 335,341 **** 2dup THREAD DUP @ tsys-here ROT ! tsys-, \ LFA 0 tsys-, \ CFA-PTR - \ IN-SYS-T? NOT DUP IF IN-SYSTEM THEN \ desperately needs >tapp, tapp> - \ [FORWARD] <COMPILE,> - \ IF IN-APPLICATION THEN BFA_VFA_PRESENT tsys-c, \ BFA (VFA only) tsys-here LAST-H ! \ remember nfa --- 331,334 ---- *************** *** 534,542 **** T: [COMPILE] 'T EXECUTE T; - : >BODY-T CELL+ ; - FORWARD: <(IS)> T: IS [FORWARD] <(IS)> T; ! : IS 'T >BODY @ >BODY-T 2DUP t-! 8 + t-! ; ( patches both current and default value of deferred word ) --- 527,533 ---- T: [COMPILE] 'T EXECUTE T; FORWARD: <(IS)> T: IS [FORWARD] <(IS)> T; ! : IS 'T >BODY @ >body 2DUP t-! 8 + t-! ; ( patches both current and default value of deferred word ) *************** *** 572,576 **** : .UNRESOLVED ( -- f ) 0 TO #UNRESOLVED ! FORWARD-LINK BEGIN @ DUP WHILE DUP 2 CELLS - RESOLVED? 0= --- 563,567 ---- : .UNRESOLVED ( -- f ) 0 TO #UNRESOLVED ! FORWARD-LINK CR BEGIN @ DUP WHILE DUP 2 CELLS - RESOLVED? 0= *************** *** 578,582 **** 1 +TO #UNRESOLVED THEN - START/STOP REPEAT DROP #UNRESOLVED --- 569,572 ---- *************** *** 585,591 **** THEN DEPTH 0<> IF ! 1 TO #UNRESOLVED ! CR ." *** Stack was not clean on exit ***" ! ELSE CR ." Stack clean on exit" THEN #UNRESOLVED IF 3 0 DO BEEP 300 MS LOOP THEN --- 575,581 ---- THEN DEPTH 0<> IF ! 1 TO #UNRESOLVED CR ! ." *** Stack was not clean on exit ***" ! ELSE ." Stack clean on exit" THEN #UNRESOLVED IF 3 0 DO BEEP 300 MS LOOP THEN *************** *** 669,673 **** META DEFINITIONS ! : ALIAS ( xt -- ) TARGET-DEFINE ; --- 659,663 ---- META DEFINITIONS ! : ALIAS ( xt -- ) TARGET-DEFINE ; *************** *** 750,760 **** \ ====================================================================== \ Identify numbers (single numbers only) ! (( ! : NUMBER? ( addr -- n f ) ! count OVER C@ [CHAR] - = \ leading minus sign? ! DUP >R IF 1 /STRING THEN ! 0 0 2SWAP >NUMBER 0= NIP NIP ( -- u f ) ! R> IF SWAP NEGATE SWAP THEN ; ! )) : meta-number? ( ^str -- d n ) \ an extensible version of NUMBER count temp$ place --- 740,744 ---- \ ====================================================================== \ Identify numbers (single numbers only) ! : meta-number? ( ^str -- d n ) \ an extensible version of NUMBER count temp$ place *************** *** 806,810 **** : ALLOT t-allot ; : ," t-string, ; - : >BODY >BODY-T ; : ! t-! ; : ALIGN t-align ; --- 790,793 ---- Index: fkernext.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernext.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** fkernext.f 21 Dec 2004 00:19:10 -0000 1.1 --- fkernext.f 16 Aug 2005 00:01:05 -0000 1.2 *************** *** 40,88 **** )) ! macro: exec-fixed \ macro for fixed loadpoint exec jmp [eax] endm ! macro: next-fixed \ macro for fixed next mov eax, 0 [esi] add esi, # 4 jmp [eax] endm ! macro: branch-fixed \ macro to take a branch mov esi, 0 [esi] mov eax, -4 [esi] jmp [eax] endm - - \ is meta vocab undefined? [undefined] META [IF] \ in ASMWIN32.F cr .( Loading NEXT/EXEC ASM Support) - macro: exec ( assemble code to execute the cfa in eax ) - ( -- ) - /set-prefix >r - exec-fixed - r> reset-syntax - endm - - macro: next ( assemble the code to do a next ) - ( -- ) - /set-prefix >r - a; resolve-ofa \ resolve the optimizer field address - next-fixed - r> reset-syntax - endm - - macro: br-next ( assemble the code to do a branch to next ) - ( -- ) - /set-prefix >r - a; resolve-ofa \ resolve the optimizer field address - branch-fixed - r> reset-syntax - endm - macro: fcall ( a macro to assemble a call to callf ) xchg esp, ebp --- 40,75 ---- )) ! macro: exec ( assemble code to execute the cfa in eax ) ! ( -- ) ! /set-prefix >r jmp [eax] + r> reset-syntax endm ! macro: next ( assemble the code to do a next ) ! ( -- ) ! /set-prefix >r ! a; resolve-ofa \ resolve the optimizer field address mov eax, 0 [esi] add esi, # 4 jmp [eax] + r> reset-syntax endm ! macro: br-next ( assemble the code to do a branch to next ) ! ( -- ) ! /set-prefix >r ! a; resolve-ofa \ resolve the optimizer field address mov esi, 0 [esi] mov eax, -4 [esi] jmp [eax] + r> reset-syntax endm [undefined] META [IF] \ in ASMWIN32.F + \ is meta vocab undefined? cr .( Loading NEXT/EXEC ASM Support) macro: fcall ( a macro to assemble a call to callf ) xchg esp, ebp *************** *** 98,123 **** cr .( Loading META NEXT/EXEC ASM Support) ! MACRO NEXT ( -- ) \ Inner interpreter ! RESOLVE-OFA \ save size of code definition ! next-fixed ! END-MACRO ! ! MACRO EXEC ( -- ) \ execute absolutee cfa in eax ! NO-OFA \ reset OFA usage ! exec-fixed ! END-MACRO ! ! MACRO BR-NEXT ( -- ) \ take branch ! NO-OFA \ reset OFA usage ! branch-fixed ! END-MACRO ! ! ! MACRO FCALL ( a macro to assemble a call to callf ) ! xchg esp, ebp ! mov eax, # ' \ set eax to word ! s" call callf a;" evaluate ! xchg esp, ebp ! END-MACRO [THEN] \ end of META.F --- 85,94 ---- cr .( Loading META NEXT/EXEC ASM Support) ! macro: fcall ( a macro to assemble a call to callf ) ! xchg esp, ebp ! mov eax, # ' \ set eax to word ! s" call callf a;" evaluate ! xchg esp, ebp ! endm [THEN] \ end of META.F |
|
From: Alex M. <ale...@us...> - 2005-08-16 00:01:13
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18056 Modified Files: fkernel.exe setup.exe Log Message: arm: remove meta MACRO word, use standard macro: word; tidy up of meta-compiler source Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 Binary files /tmp/cvsZBxvgW and /tmp/cvsvKS7KA differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 Binary files /tmp/cvsG518wV and /tmp/cvseFdPoA differ |
|
From: Alex M. <ale...@us...> - 2005-08-15 19:46:47
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21560/src Modified Files: CALLBACK.f Log Message: arm: Extended callback to allow 19 callback args (!) Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** CALLBACK.f 2 Jan 2005 23:04:55 -0000 1.2 --- CALLBACK.f 15 Aug 2005 19:46:39 -0000 1.3 *************** *** 3,6 **** --- 3,7 ---- \ CALLBACK.F Windows Callback support by Tom Zimmer \ arm 21/12/2004 21:21:09 Callback support -- moved out of kernel + \ arm 15/08/2005 20:01:54 n callback -- n is now max of 19 args cr .( Loading Windows Callback...) *************** *** 35,38 **** --- 36,51 ---- ret 6 cells ret 7 cells + ret 8 cells + ret 9 cells + ret 10 cells + ret 11 cells + ret 12 cells + ret 13 cells + ret 14 cells + ret 15 cells + ret 16 cells + ret 17 cells + ret 18 cells + ret 19 cells c; *************** *** 51,62 **** and esp, # -16 \ align to 16 byte boundary mov SP0 [UP] , esp \ reset SP0 ! ! lea ebx, [ebp] [ecx*4] \ adjust ebx neg ecx \ negate ecx lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!) a; code-here cell- \ point at the offset (the 1234) in lea jmp ecx \ and leap... ! a; code-here 7 3 * + swap ! \ correct the lea calculation ! push ( 0 cells) [ebx] nop \ 7 callback, nop for short from push 1 cells [ebx] \ all entries 3 bytes push 2 cells [ebx] --- 64,75 ---- and esp, # -16 \ align to 16 byte boundary mov SP0 [UP] , esp \ reset SP0 ! ! lea ebx, 7 19 - cells [ebp] [ecx*4] \ adjust ebx neg ecx \ negate ecx lea ecx, 1234 [ecx] [ecx*2] \ calculate jump offset (4 byte lea version!) a; code-here cell- \ point at the offset (the 1234) in lea jmp ecx \ and leap... ! a; code-here 19 3 * + swap ! \ correct the lea calculation ! push ( 0 cells) [ebx] nop \ 19 callback, nop for short from push 1 cells [ebx] \ all entries 3 bytes push 2 cells [ebx] *************** *** 64,68 **** push 4 cells [ebx] push 5 cells [ebx] \ 2 callback ! push 6 cells [ebx] \ 1 callback pop ebx \ 0 callback -- recover ebx --- 77,93 ---- push 4 cells [ebx] push 5 cells [ebx] \ 2 callback ! push 6 cells [ebx] ! push 7 cells [ebx] ! push 8 cells [ebx] ! push 9 cells [ebx] ! push 10 cells [ebx] ! push 11 cells [ebx] ! push 12 cells [ebx] ! push 13 cells [ebx] ! push 14 cells [ebx] ! push 15 cells [ebx] ! push 16 cells [ebx] ! push 17 cells [ebx] \ 2 callback ! push 18 cells [ebx] \ 1 callback pop ebx \ 0 callback -- recover ebx *************** *** 77,80 **** --- 102,106 ---- : BUILD-CALLBACK ( n1 -- a1 a2 ) \ define a callback procedure + dup 20 0 within abort" arg value too large for callback" >r \ generated via macro[ ]macro code-here \ func address (a1) |
|
From: Dirk B. <db...@us...> - 2005-08-12 16:36:21
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3096/src Modified Files: Shell.f Log Message: Expanded TAB's into spaces. Index: Shell.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Shell.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Shell.f 2 Jun 2005 21:14:55 -0000 1.2 --- Shell.f 12 Aug 2005 16:36:13 -0000 1.3 *************** *** 50,54 **** 10 proc CreateProcess : (CreateProcess) ( a1 -- f1 ) \ pass to NT without any interpretation ! \ Note: a1 must point to a zString !!! ProcInfo 4 cells erase \ clear procinfo --- 50,54 ---- 10 proc CreateProcess : (CreateProcess) ( a1 -- f1 ) \ pass to NT without any interpretation ! \ Note: a1 must point to a zString !!! ProcInfo 4 cells erase \ clear procinfo *************** *** 316,321 **** bl word count conhndl "Web-Link ; ! : "file-link ( adr len hWnd -- ) \ open a local file in default browser ! s" file:" temp$ place \ build string ! >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext> ! temp$ count r> "web-link ; --- 316,322 ---- bl word count conhndl "Web-Link ; ! : "file-link ( adr len hWnd -- ) \ open a local file in default browser ! s" file:" temp$ place \ build string ! >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext> ! temp$ count r> "web-link ; ! |
|
From: Dirk B. <db...@us...> - 2005-08-12 16:34:36
|
Update of /cvsroot/win32forth/win32for4web In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2800 Modified Files: index.htm Log Message: Changed the download location of V6.10.03 to the SF release system. Index: index.htm =================================================================== RCS file: /cvsroot/win32forth/win32for4web/index.htm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** index.htm 6 Aug 2005 09:18:04 -0000 1.9 --- index.htm 12 Aug 2005 16:34:24 -0000 1.10 *************** *** 92,98 **** Zimmer's last Win32Forth Version 4.2 Build 671</a> </li> <li>Our new stable Win32Forth release <a ! href="downloads/w32f61003.exe">6.10.03</a> (This Version ! was released on <b>June 20th,</b> 2005). See release <a ! href="doc/p-relnotes.6.10.htm">notes</a> for more information. </li> <li><a href="downloads/w32f61104.exe">Our current Win32Forth --- 92,98 ---- Zimmer's last Win32Forth Version 4.2 Build 671</a> </li> <li>Our new stable Win32Forth release <a ! href="http://sourceforge.net/project/showfiles.php?group_id=55294&package_id=51497&release_id=348768">6.10.03</a> ! (This Version was released on <b>June 20th,</b> 2005). ! See release <a href="doc/p-relnotes.6.10.htm">notes</a> for more information. </li> <li><a href="downloads/w32f61104.exe">Our current Win32Forth |
|
From: George H. <geo...@us...> - 2005-08-11 15:16:50
|
Update of /cvsroot/win32forth/win32forth-610old/demos In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18269/win32forth-610old/demos Modified Files: WINSER.F Log Message: gah: changed &LOCAL to &OF Index: WINSER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/demos/WINSER.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINSER.F 14 Dec 2004 23:53:45 -0000 1.1 --- WINSER.F 11 Aug 2005 15:16:42 -0000 1.2 *************** *** 188,192 **** : Com1emit { char -- } \ write a character to the serial port ! &LOCAL char 1 Com1Hndl write-file abort" Failed to write serial port" ; --- 188,192 ---- : Com1emit { char -- } \ write a character to the serial port ! &OF char 1 Com1Hndl write-file abort" Failed to write serial port" ; *************** *** 280,281 **** --- 280,282 ---- AGAIN ; + |
1040 messages has been excluded from this view by a project administrator.
