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-05-16 21:52:41
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8468/win32forth/src/lib Modified Files: STRUCT.F Log Message: Jos: Now it can be used with create. Index: STRUCT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** STRUCT.F 24 Apr 2005 12:01:13 -0000 1.3 --- STRUCT.F 16 May 2005 14:56:45 -0000 1.4 *************** *** 117,121 **** \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body cell+ getsize-struct + postpone literal ; immediate : struct{ ( -- ) --- 117,121 ---- \ >struct compiles the adress and offset as 1 adress inside a definition : >struct ( -<name-struct>- -<member>- - adress+offset_in_structure ) ! ' >body getsize-struct + postpone literal ; immediate : struct{ ( -- ) *************** *** 125,129 **** : mkstruct: ( size-struct - ) create dup , allot ;code push ebx ! lea ebx, 8 [eax] next c; --- 125,129 ---- : mkstruct: ( size-struct - ) create dup , allot ;code push ebx ! lea ebx, 4 [eax] next c; |
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25021/apps/Player4 Modified Files: MciInterface.f MciVideo.f Mediatree.f PLAYER4.F Pl_About.f Pl_MciWindow.f Pl_Toolset.f Pl_Version.f Added Files: MCIWnd.f Log Message: Replaced my MciClass with Rod's MCIControl class Index: Pl_About.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_About.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsmfMhxH and /tmp/cvsTAioHz differ Index: MciVideo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciVideo.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** MciVideo.f 5 May 2005 09:43:26 -0000 1.3 --- MciVideo.f 15 May 2005 17:21:52 -0000 1.4 *************** *** 44,48 **** : (MciSendString) ( n1 n2 n3 addr -- ) \ send a MCI-command string MciDebug? if cr ." MciVideo: " 4dup zcount type . . . then ! Call mciSendString drop ; \ ---------------------------------------------------------------------------- --- 44,48 ---- : (MciSendString) ( n1 n2 n3 addr -- ) \ send a MCI-command string MciDebug? if cr ." MciVideo: " 4dup zcount type . . . then ! call mciSendString drop ; \ ---------------------------------------------------------------------------- *************** *** 134,138 **** buf$ +null ! 0 255 buf1$ buf$ 1+ (MciSendString) --- 134,138 ---- buf$ +null ! 0 255 buf1$ buf$ 1+ (MciSendString) Index: MciInterface.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciInterface.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** MciInterface.f 5 May 2005 09:43:26 -0000 1.4 --- MciInterface.f 15 May 2005 17:21:52 -0000 1.5 *************** *** 112,116 **** :M Height: ( -- height ) ! vheight ;M : GetStatus ( addr len -- n ) --- 112,116 ---- :M Height: ( -- height ) ! vHeight ;M : GetStatus ( addr len -- n ) Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Mediatree.f 10 May 2005 15:48:45 -0000 1.9 --- Mediatree.f 15 May 2005 17:21:52 -0000 1.10 *************** *** 6,309 **** needs shell_r.f needs catalog.f ! ! (( TreeView.F A rudimentary TreeView class by Michael Hillerström ! mic...@us... ! ! ! This TreeView class hooks into Windows own library class. ! But be warned; this is a very 'stripped to the bone implementation' ! i.e. it has just what I need for DiaEdit... Some day (soon) I ! will try to correct this. ! ! Please note that this code needs a new version of WINCON.DLL ! (dated September 15, 1997 or later). ! ! An example is included last in this file... ! ! ! Any comments/suggestions to: mic...@us... ! ! ! ! Change log: ! November 23rd, 1997 - 21:59 MIH ! Added the line: WinLibrary COMCTL32.DLL to this source. ! ! September 16th, 1997 - 21:42 MIH ! Removed reference to COMMCTRL.F as Tom Zimmer has released an ! extended WINCON.DLL. Thanks, Tom! ! ! August 31st, 1997 - 23:15 MIH ! First attempt...(which is VERY bare bones...) ! Need to convince Tom Zimmer to include #define's from COMMCTRL.H ! in WINCON.DLL. For the time beeing, we'll have to cope with my ! FORTH constants in COMMCTRL.F. ! ! )) ! ! cr .( Loading TreeView Class...) ! ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Prerequisites... ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! WinLibrary COMCTL32.DLL \ Make sure that ComCtl32.dll is loaded... ! ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ TreeView Constants and their significance... ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! comment: ! ! A treeview can have a combination of the following styles: ! ! ! TVS_DISABLEDRAGDROP disables drag n' drop of tree-view items. ! ! TVS_LINESATROOT draws lines linking child items to the root of the hierarchy. ! ! TVS_HASLINES enhances the graphic representation of a tree-view by ! drawing lines that link child items to their parent item. ! To link items at the root of the hierarchy, you need to ! combine this and the TVS_LINESATROOT style. ! ! TVS_HASBUTTONS adds a button to the left side of each parent item. The ! user can click the button to expand or collapse the child ! items as an alternative to double-clicking the parent ! item. To add buttons to items at the root of the ! hierarchy, this style must be combined with TVS_HASLINES, ! and TVS_LINESATROOT. ! ! TVS_EDITLABELS makes it possible for the user to edit the labels of ! tree-view items. ! ! TVS_SHOWSELALWAYS causes a selected item to remain selected when the ! tree-view control loses focus. ! ! ! comment; ! ! ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ TreeView Class... ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! :Class TreeViewControl <super Child-Window ! ! Record: nmhdr ! int hWndFrom ! int idFrom ! int code ! ;RecordSize: /nmhdr ! ! Record: tvitem ! int mask ! int hItem ! int state ! int stateMask ! int pszText ! int cchTextMax ! int iImage ! int iSelectedImage ! int cChildren ! int lParam ! ;RecordSize: /tvitem ! ! Record: tvins ! int hParent ! int hInsertAfter ! \ TV_ITEM item ! /tvitem bytes item ! ;RecordSize: /tvins ! ! \ Record: tvdi ! \ NMHDR hdr ! \ TV_ITEM item ! \ ;Record ! ! ! Record: tvkd ! \ NMHDR hdr ! int wVKey ! int flags ! ;RecordSize: /tvkd ! ! ! Record: nmtv ! \ NMHDR hdr ! int action ! \ TV_ITEM itemOld ! int maskOld ! int hItemOld ! int stateOld ! int stateMaskOld ! int pszTextOld ! int cchTextMaxOld ! int iImageOld ! int iSelectedImageOld ! int cChildrenOld ! int lParamOld ! \ TV_ITEM itemNew ! int maskNew ! int hItemNew ! int stateNew ! int stateMaskNew ! int pszTextNew ! int cchTextMaxNew ! int iImageNew ! int iSelectedImageNew ! int cChildrenNew ! int lParamNew ! \ POINT ptDrag ! int x ! int y ! ;RecordSize: /nmtv ! ! ! : fill-nmhdr ( l -- ) ! nmhdr /nmhdr 2dup erase move ; ! ! : fill-tvkd ( l -- ) ! 3 cells+ ! tvkd /tvkd 2dup erase move ; ! ! : fill-tvitem ( l -- ) ! 3 cells+ ! tvitem /tvitem 2dup erase move ; ! ! : fill-nmtv ( addr -- ) ! 3 cells+ ! nmtv /nmtv 2dup erase move ; ! ! : tvitem->tvins ( -- ) ! tvitem item /tvitem move ; ! ! ! \ -------------------- Create Tree-View Control -------------------- ! ! create treeview-class z," SysTreeView32" \ Pre-registered class ! ! : create-treeview ( -- hWnd ) ! \ Make sure Common Controls are loaded ! Call InitCommonControls drop ! ! NULL \ Creation parameter ! appInst \ Instance handle ! id \ Child id ! Parent conhndl = ! if conhndl ! else GetHandle: Parent \ parent window handle ! then ! tempRect.AddrOf GetClientRect: Parent ! Bottom: tempRect Right: tempRect \ Size h,w ! 0 0 \ Position y,x ! WindowStyle: [ self ] \ Style ! NULL \ Window name ! treeview-class \ Pre-registered class ! 0 \ Extended style ! Call CreateWindowEx ! ; ! ! ! :M WindowStyle: ( -- style ) ! [ WS_CHILD WS_VISIBLE or ] literal ! ;M ! ! :M Start: ( Parent -- ) ! hWnd ! if drop ! SW_SHOWNOACTIVATE Show: self ! else ! to Parent ! create-treeview to hWnd ! then ! ;M ! ! :M AutoSize: ( -- ) ! tempRect.AddrOf GetClientRect: Parent ! 0 0 Right: tempRect Bottom: tempRect \ x,y,h,w ! Move: self ! ;M ! ! :M Handle_Notify: ( h m w l -- f ) ! dup fill-nmhdr ! code ! case ! TVN_BEGINDRAGA of fill-nmtv On_BeginDrag: [ self ] endof ! TVN_BEGINRDRAGA of fill-nmtv On_BeginRDrag: [ self ] endof ! TVN_BEGINLABELEDITA of fill-tvitem On_BeginLabelEdit: [ self ] endof ! TVN_DELETEITEMA of fill-nmtv On_DeleteItem: [ self ] endof ! TVN_ENDLABELEDITA of fill-tvitem On_EndLabelEdit: [ self ] endof ! TVN_GETDISPINFOA of fill-tvitem On_GetDispInfo: [ self ] endof ! TVN_ITEMEXPANDEDA of fill-nmtv On_ItemExpanded: [ self ] endof ! TVN_ITEMEXPANDINGA of fill-nmtv On_ItemExpanding: [ self ] endof ! TVN_KEYDOWN of fill-tvkd On_KeyDown: [ self ] endof ! TVN_SELCHANGEDA of fill-nmtv On_SelChanged: [ self ] endof ! TVN_SELCHANGINGA of fill-nmtv On_SelChanging: [ self ] endof ! TVN_SETDISPINFOA of fill-tvitem On_SetDispInfo: [ self ] endof ! false swap ( default) ! endcase ! ;M ! ! ! :M ToggleExpandItem: ( hItem -- ) ! TVE_TOGGLE TVM_EXPAND hWnd Call SendMessage drop ! ;M ! ! :M SortChildren: ( hItem -- ) ! false TVM_SORTCHILDREN hWnd Call SendMessage drop ! ;M ! ! :M DeleteItem: ( hItem -- ) \ takes time ! 0 TVM_DELETEITEM hWnd Call SendMessage drop ! ;M ! ! \ --------------------- Overridable methods ---------------------- ! ! :M On_BeginDrag: ( -- f ) ! false ! ;M ! :M On_BeginRDrag: ( -- f ) ! false ! ;M ! :M On_BeginLabelEdit: ( -- f ) \ f=true, cancel edit, f=false, ok edit ! false ! ;M ! :M On_DeleteItem: ( -- f ) ! false ! ;M ! :M On_EndLabelEdit: ( -- f ) ! false ! ;M ! :M On_GetDispInfo: ( -- f ) ! false ! ;M ! :M On_ItemExpanded: ( -- f ) ! false ! ;M ! :M On_ItemExpanding: ( -- f ) \ f=true, don't expand/collapse, f=false, ok go ahead ! false ! ;M ! :M On_KeyDown: ( -- f ) ! false ! ;M ! :M On_SelChanged: ( -- f ) ! false ! ;M ! :M On_SelChanging: ( -- f ) \ f=true, don't change, f=false, ok change ! false ! ;M ! :M On_SetDispInfo: ( -- f ) ! false ! ;M ! ;Class ! ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ End of Class definition(s) ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 0 value hItem-last-selected --- 6,10 ---- needs shell_r.f needs catalog.f ! needs TreeView.F 0 value hItem-last-selected *************** *** 313,345 **** \ *************************************************** ! ! :Class NewTVC <super TreeViewControl ! :M WindowStyle: ( -- style ) WindowStyle: super ! \ TVS_HASLINES or ! \ TVS_HASBUTTONS or ! TVS_DISABLEDRAGDROP or ! TVS_SHOWSELALWAYS or ! \ TVS_LINESATROOT or ;M : add-record ( n - ) \ Add when not deleted and found in a collection dup n>record dup Deleted- c@ 0= show-deleted = swap Excluded- c@ or ! if drop ! Else dup to lParam ! dup (l.int) InlineRecord place ! s" " InlineRecord +place ! n>record dup File_name swap Cnt_File_name c@ ! InlineRecord +place ! InlineRecord +null ! InlineRecord 1+ to pszText ! tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hInsertAfter ! then ! ; ! :M FillTreeView: ( -- ) --- 14,39 ---- \ *************************************************** ! :Class MediaTree <super TreeViewControl :M WindowStyle: ( -- style ) WindowStyle: super ! [ TVS_DISABLEDRAGDROP TVS_SHOWSELALWAYS or ] literal or ;M : add-record ( n - ) \ Add when not deleted and found in a collection dup n>record dup Deleted- c@ 0= show-deleted = swap Excluded- c@ or ! if drop ! Else dup to lParam ! dup (l.int) InlineRecord place ! s" " InlineRecord +place ! n>record dup File_name swap Cnt_File_name c@ ! InlineRecord +place ! InlineRecord +null ! InlineRecord 1+ to pszText ! tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ! to hInsertAfter ! then ! ; :M FillTreeView: ( -- ) *************** *** 369,377 **** lParam to last-selected-rec ! last-selected-rec n>record dup>r File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! 2dup cr type-space ! PlayFile: PLAYER4W false ;M --- 63,71 ---- lParam to last-selected-rec ! last-selected-rec n>record dup>r File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! 2dup cr type-space ! PlayFile: PLAYER4W false ;M *************** *** 397,401 **** : CreateTreeView ( -- ) \ create a treeview window TreeView 0<> ?exit ! New> NewTVC to TreeView 1001 SetId: TreeView self Start: TreeView ; --- 91,95 ---- : CreateTreeView ( -- ) \ create a treeview window TreeView 0<> ?exit ! New> MediaTree to TreeView 1001 SetId: TreeView self Start: TreeView ; *************** *** 417,422 **** :M Refresh: ( -- ) MciDebug? ! if cr timer-reset ! then wait-cursor --- 111,116 ---- :M Refresh: ( -- ) MciDebug? ! if cr timer-reset ! then wait-cursor *************** *** 438,443 **** arrow-cursor MciDebug? ! if .elapsed ! then ;M --- 132,137 ---- arrow-cursor MciDebug? ! if .elapsed ! then ;M *************** *** 455,457 **** \s ! |
|
From: George H. <geo...@us...> - 2005-05-14 12:41:17
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19844/win32forth/src/lib Modified Files: MessageLoop.f Log Message: gah: reformatted to remove extra blank lines which seem to have mysteriously appeared Index: MessageLoop.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/MessageLoop.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsGo1pYG and /tmp/cvsPhqiN6 differ |
|
From: George H. <geo...@us...> - 2005-05-14 12:37:02
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18885/win32forth/src/kernel Modified Files: meta-compiler.f Log Message: gah: modified to work with hidden float? Index: meta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** meta-compiler.f 26 Apr 2005 19:56:50 -0000 1.3 --- meta-compiler.f 14 May 2005 12:36:49 -0000 1.4 *************** *** 765,770 **** if false else double? abort" Doubles not supported in meta-compiler" float? abort" Floats not supported in metacompiler" ! drop true then ; \ ====================================================================== --- 765,772 ---- if false else double? abort" Doubles not supported in meta-compiler" + [ also hidden ] float? abort" Floats not supported in metacompiler" ! [ previous ] ! drop true then ; \ ====================================================================== *************** *** 819,820 **** --- 821,823 ---- + |
|
From: Dirk B. <db...@us...> - 2005-05-14 11:40:30
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10339/apps/Player4 Modified Files: NUMBER.F Log Message: Some minor changes, to make the code work with my changes to Float.f Index: NUMBER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/NUMBER.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** NUMBER.F 5 May 2005 09:43:26 -0000 1.2 --- NUMBER.F 14 May 2005 11:40:21 -0000 1.3 *************** *** 29,73 **** ! : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f. ! >r 0 r@ c! \ Now it puts a float in a string ! fdepth 0 <= ! IF ." Empty " r> drop EXIT ! THEN ! precision 1 max set-precision ! fexam 0x0200 and ! IF fabs s" -" r@ +place ! THEN ! fdup f0.5 f< ! IF s" ." r@ +place f1.0 f+ $ftemp ! precision 1+ maxsig umin ! represent ! drop drop drop ! $ftemp 1+ precision maxsig 1- umin ! r@ +place s" " r@ +place ! ELSE $ftemp precision represent 0= ! IF drop drop $ftemp precision ! r@ +place s" " r@ +place ! ELSE drop dup precision < ! IF dup 0= ! IF drop s" ." r@ +place ! $ftemp precision ! r@ +place s" " r> +place EXIT ! THEN ! $ftemp over r@ +place s" ." r@ +place ! $ftemp over + swap precision ! swap - r@ +place s" " r@ +place ! ELSE dup precision = ! IF $ftemp swap r@ +place ! s" . " r> +place ! EXIT ! THEN ! $ftemp precision r@ +place r@ pad ! ! precision - 0 ! DO s" 0" pad @ +place ! LOOP ! s" . " r@ +place ! THEN ! THEN ! THEN r> drop ; : lfprep ( f: f - ) ( - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT ) --- 29,74 ---- ! \ : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f. ! \ >r 0 r@ c! \ Now it puts a float in a string ! \ fdepth 0 <= ! \ IF ." Empty " r> drop EXIT ! \ THEN ! \ precision 1 max set-precision ! \ fexam 0x0200 and ! \ IF fabs s" -" r@ +place ! \ THEN ! \ fdup f0.5 f< ! \ IF s" ." r@ +place f1.0 f+ $ftemp ! \ precision 1+ maxsig umin ! \ represent ! \ drop drop drop ! \ $ftemp 1+ precision maxsig 1- umin ! \ r@ +place s" " r@ +place ! \ ELSE $ftemp precision represent 0= ! \ IF drop drop $ftemp precision ! \ r@ +place s" " r@ +place ! \ ELSE drop dup precision < ! \ IF dup 0= ! \ IF drop s" ." r@ +place ! \ $ftemp precision ! \ r@ +place s" " r> +place EXIT ! \ THEN ! \ $ftemp over r@ +place s" ." r@ +place ! \ $ftemp over + swap precision ! \ swap - r@ +place s" " r@ +place ! \ ELSE dup precision = ! \ IF $ftemp swap r@ +place ! \ s" . " r> +place ! \ EXIT ! \ THEN ! \ $ftemp precision r@ +place r@ pad ! ! \ precision - 0 ! \ DO s" 0" pad @ +place ! \ LOOP ! \ s" . " r@ +place ! \ THEN ! \ THEN ! \ THEN r> drop ; ! ' (f.) alias fvalue-to-string : lfprep ( f: f - ) ( - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT ) |
|
From: Dirk B. <db...@us...> - 2005-05-14 11:40:30
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10339/apps/Chess Modified Files: TOOLSET.F Log Message: Some minor changes, to make the code work with my changes to Float.f Index: TOOLSET.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TOOLSET.F 5 May 2005 09:43:25 -0000 1.3 --- TOOLSET.F 14 May 2005 11:40:20 -0000 1.4 *************** *** 11,15 **** \ Solved a bug in set-priority ! \ Additions are made at the end. )) Forth --- 11,16 ---- \ Solved a bug in set-priority ! \ Additions are made at the end. ! )) Forth *************** *** 146,150 **** : test2 test ; ! test2 \ )) : here! ( n - ) here ! ; --- 147,152 ---- : test2 test ; ! test2 \ ! )) : here! ( n - ) here ! ; *************** *** 656,701 **** : fchoose 100000 * random s>f 100000e f/ ; \ <n> --- <> F: <> --- <r> ! : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f. ! >r 0 r@ c! \ Now it puts a float in a string ! fdepth 0 <= ! IF ." Empty " r> drop EXIT ! THEN ! precision 1 max set-precision ! fexam 0x0200 and ! IF fabs s" -" r@ +place ! THEN ! fdup f0.5 f< ! IF s" ." r@ +place f1.0 f+ $ftemp ! precision 1+ maxsig umin ! represent ! drop drop drop ! $ftemp 1+ precision maxsig 1- umin ! r@ +place s" " r@ +place ! ELSE $ftemp precision represent 0= ! IF drop drop $ftemp precision ! r@ +place s" " r@ +place ! ELSE drop dup precision < ! IF dup 0= ! IF drop s" ." r@ +place ! $ftemp precision ! r@ +place s" " r> +place EXIT ! THEN ! $ftemp over r@ +place s" ." r@ +place ! $ftemp over + swap precision ! swap - r@ +place s" " r@ +place ! ELSE dup precision = ! IF $ftemp swap r@ +place ! s" . " r> +place ! EXIT ! THEN ! $ftemp precision r@ +place r@ pad ! ! precision - 0 ! DO s" 0" pad @ +place ! LOOP ! s" . " r@ +place ! THEN ! THEN ! THEN r> drop ; : string>float \ ( adr - f ) FS: ( - n ) \ Note: 0 on FS when f is false count >float dup not --- 658,705 ---- : fchoose 100000 * random s>f 100000e f/ ; \ <n> --- <> F: <> --- <r> ! \ : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f. ! \ >r 0 r@ c! \ Now it puts a float in a string ! \ fdepth 0 <= ! \ IF ." Empty " r> drop EXIT ! \ THEN ! \ precision 1 max set-precision ! \ fexam 0x0200 and ! \ IF fabs s" -" r@ +place ! \ THEN ! \ fdup f0.5 f< ! \ IF s" ." r@ +place f1.0 f+ $ftemp ! \ precision 1+ maxsig umin ! \ represent ! \ drop drop drop ! \ $ftemp 1+ precision maxsig 1- umin ! \ r@ +place s" " r@ +place ! \ ELSE $ftemp precision represent 0= ! \ IF drop drop $ftemp precision ! \ r@ +place s" " r@ +place ! \ ELSE drop dup precision < ! \ IF dup 0= ! \ IF drop s" ." r@ +place ! \ $ftemp precision ! \ r@ +place s" " r> +place EXIT ! \ THEN ! \ $ftemp over r@ +place s" ." r@ +place ! \ $ftemp over + swap precision ! \ swap - r@ +place s" " r@ +place ! \ ELSE dup precision = ! \ IF $ftemp swap r@ +place ! \ s" . " r> +place ! \ EXIT ! \ THEN ! \ $ftemp precision r@ +place r@ pad ! ! \ precision - 0 ! \ DO s" 0" pad @ +place ! \ LOOP ! \ s" . " r@ +place ! \ THEN ! \ THEN ! \ THEN r> drop ; + ' (f.) alias fvalue-to-string + : string>float \ ( adr - f ) FS: ( - n ) \ Note: 0 on FS when f is false count >float dup not *************** *** 906,910 **** z" TEST" DelEnvironmentVariable z" TEST" s" 2Hello" setEnvironmentVariable ! z" TEST" buffer 256 GetEnvironmentVariable cr dump abort )) : computername$! ( adr - ) \ March 30th, 2002 was GetComputerName --- 910,915 ---- z" TEST" DelEnvironmentVariable z" TEST" s" 2Hello" setEnvironmentVariable ! z" TEST" buffer 256 GetEnvironmentVariable cr dump abort ! )) : computername$! ( adr - ) \ March 30th, 2002 was GetComputerName *************** *** 963,967 **** LPTSTR lpReturnedString, // points to destination buffer DWORD nSize, // size of destination buffer ! LPCTSTR lpFileName // points to initialization filename )) \ lpReturnedString will contain a counted string with a 0 at the end --- 968,973 ---- LPTSTR lpReturnedString, // points to destination buffer DWORD nSize, // size of destination buffer ! LPCTSTR lpFileName // points to initialization filename ! )) \ lpReturnedString will contain a counted string with a 0 at the end *************** *** 994,998 **** test_WritePrivateProfileString ! test_GetPrivateProfileString profile$ .string \ )) : s>tmp$ ( n - adr ) s>d (d.) tmp$ place tmp$ dup 0terminated 1+ ; --- 1000,1005 ---- test_WritePrivateProfileString ! test_GetPrivateProfileString profile$ .string \ ! )) : s>tmp$ ( n - adr ) s>d (d.) tmp$ place tmp$ dup 0terminated 1+ ; *************** *** 1133,1137 **** : test foo foo + . ; ! cr see test test \ )) --- 1140,1145 ---- : test foo foo + . ; ! cr see test test \ ! )) *************** *** 1255,1259 **** \ ( w2k) GetRegistryEntry drop ? ." Mhz" cr ; ! test_reg$ \ )) \ November 3rd, 2001 - 21:19 added: u,. ?u,. ?u,.cr --- 1263,1268 ---- \ ( w2k) GetRegistryEntry drop ? ." Mhz" cr ; ! test_reg$ \ ! )) \ November 3rd, 2001 - 21:19 added: u,. ?u,. ?u,.cr *************** *** 1333,1337 **** ^ ^ REG PTR EBX --> <-- ECX ! ESP OFFSET 16 12 8 4 0 )) --- 1342,1347 ---- ^ ^ REG PTR EBX --> <-- ECX ! ESP OFFSET 16 12 8 4 0 ! )) *************** *** 1517,1521 **** [3] -1087358 3 -1 4293879938 45 53 74 ESt ok ! )) \ June 8th, 2003 --- 1527,1531 ---- [3] -1087358 3 -1 4293879938 45 53 74 ESt ok ! )) \ June 8th, 2003 |
|
From: Dirk B. <db...@us...> - 2005-05-14 11:37:22
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9842/src Modified Files: FLOAT.F Log Message: Float.f: Major changes to make mutch more readable and shorter. Also fixed a lot of wrong stack coments. Note: A lot of the stack operators still should optimized without using the FPU. Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** FLOAT.F 1 May 2005 06:27:41 -0000 1.4 --- FLOAT.F 14 May 2005 11:37:11 -0000 1.5 *************** *** 3,10 **** --- 3,14 ---- \ Modified substantially by R. Smith + \ Floating point values are maintained on a separate stack. + \ Major changes by rls to convert to a software stack + \ ------------------- Bug Fix Log ----------------------------------------- \ rls 09-21-97 Bug fixes for FTANH and E by itself. \ rls 09-30-97 correction to restore change by SMuB, which we don't have a \ comment to explain [...2925 lines suppressed...] *** 2213,2216 **** --- 2238,2247 ---- \ changed arm 25/04/2005 23:09:50 to use new number chain technique (see numconv.f) + internal + + 0 value float? + + external + : FLOAT-NUMBER? ( a1 n1 -- d ) \ input parameters \ floating point number should only be accepted if we are in DECIMAL *************** *** 2314,2316 **** --- 2345,2348 ---- end-code + |
|
From: Dirk B. <db...@us...> - 2005-05-14 11:13:34
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4704/src/lib Modified Files: ScintillaLexer.f Log Message: Added CFA-FUNC to the Scintilla-Lexer, so that it's displayed as a defining word in SciEdit. Index: ScintillaLexer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ScintillaLexer.f 7 May 2005 15:53:14 -0000 1.2 --- ScintillaLexer.f 14 May 2005 11:13:26 -0000 1.3 *************** *** 64,68 **** ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: } create UserWords2 --- 64,68 ---- ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } ! ,{ MACRO: ENDM SUBR: CFA-FUNC } create UserWords2 |
|
From: Jos v.d.V. <jo...@us...> - 2005-05-10 15:49:02
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11417/win32forth/apps/Player4 Modified Files: Catalog.f Mediatree.f PLAYER4.F Pl_MciWindow.f Pl_Version.f Log Message: Jos: - When the catalog is randomsized the least played file will be shown first in its randomsized group. - Made it possible to change the maximum randomlevel. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** PLAYER4.F 5 May 2005 09:43:26 -0000 1.9 --- PLAYER4.F 10 May 2005 15:48:45 -0000 1.10 *************** *** 32,35 **** --- 32,36 ---- defer UndeleteAll ' noop is UndeleteAll defer ShowDeleted ' noop is ShowDeleted + defer SetRandomLevel ' noop is SetRandomLevel *************** *** 79,82 **** --- 80,84 ---- SUBMENU "S&ort" + MENUITEM "Se&t maximum random level" SetRandomLevel ; MENUITEM "&Randomsize catalog" RandomizeCatalog ; MENUITEM "S&ort by filename" SortCatalog ; *************** *** 312,318 **** then ; is SearchCatalog :noname ( -- ) catalog-exist? ! if Refresh: Catalog then ; is RefreshCatalog --- 314,325 ---- then ; is SearchCatalog + :noname ( -- ) \ search the catalog + catalog-exist? + if player-base ask-max-random-level + then ; is SetRandomLevel + :noname ( -- ) catalog-exist? ! if Refresh: Catalog then ; is RefreshCatalog Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Pl_MciWindow.f 4 May 2005 19:08:47 -0000 1.5 --- Pl_MciWindow.f 10 May 2005 15:48:46 -0000 1.6 *************** *** 225,234 **** Playing?: Self not ! if next-not-played dup -1 = if cr cr ." All done. Reset randomlevel and shuffle..." set-all-not-played random-shuffle else cr 2 spaces dup . 2 spaces n>record dup>r File_name r@ Cnt_File_name c@ 2dup type-space ! -1 r> Played- c! PlayFile: Self 2drop then --- 225,235 ---- Playing?: Self not ! if next-not-played dup -1 = if cr cr ." All done. Reset randomlevel and shuffle..." set-all-not-played random-shuffle else cr 2 spaces dup . 2 spaces n>record dup>r File_name r@ Cnt_File_name c@ 2dup type-space ! r@ incr-#played ! r> mark-played PlayFile: Self 2drop then Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Mediatree.f 5 May 2005 09:43:26 -0000 1.8 --- Mediatree.f 10 May 2005 15:48:45 -0000 1.9 *************** *** 308,312 **** 0 value hItem-last-selected - 0 value last-selected-rec \ *************************************************** --- 308,311 ---- *************** *** 345,348 **** --- 344,348 ---- :M FillTreeView: ( -- ) + 0 to last-selected-rec tvins /tvins erase tvitem /tvitem erase *************** *** 370,375 **** last-selected-rec n>record dup>r File_name r@ Cnt_File_name c@ ! -1 r> Played- c! ! 2dup cr type-space PlayFile: PLAYER4W false --- 370,376 ---- last-selected-rec n>record dup>r File_name r@ Cnt_File_name c@ ! r@ incr-#played ! r> mark-played ! 2dup cr type-space PlayFile: PLAYER4W false *************** *** 454,456 **** \s ! |
|
From: Alex M. <ale...@us...> - 2005-05-09 19:17:41
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28366/src Modified Files: ASMWIN32.F Log Message: arm: incorrect override of data-, to code section removed Index: ASMWIN32.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ASMWIN32.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ASMWIN32.F 2 Jan 2005 23:04:55 -0000 1.2 --- ASMWIN32.F 9 May 2005 19:17:17 -0000 1.3 *************** *** 1,2 **** --- 1,4 ---- + \ $Id: + \ ASMWIN32.F 486ASM/Win32Forth Interface File *************** *** 4,7 **** --- 6,10 ---- \ ASMWIN32.F beta 3.3D 2002/10/08 Consolidation \ arm 02/01/2005 21:28:34 factor macro[ ]macro to reduce postpone word count + \ arm 09/05/2005 20:16:11 incorrect override of data-, to code section removed cr .( Loading 486ASM/Win32Forth Interface File...) *************** *** 28,32 **** forth ' code-w, asm-hidden is code-w, ( x -- ) forth ' code-, asm-hidden is code-d, ( x -- ) - forth ' code-, asm-hidden is data-, ( x -- ) forth ' code-here asm-hidden is code-here ( -- a ) forth ' code-align asm-hidden is code-align ( -- ) --- 31,34 ---- |
|
From: Dirk B. <db...@us...> - 2005-05-07 15:53:24
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21049/src/lib Modified Files: ScintillaLexer.f Log Message: Added MACRO: ENDM SUBR: to the Scintilla-Lexer, so that they are displayed as defining words in SciEdit. Index: ScintillaLexer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ScintillaLexer.f 21 Dec 2004 00:19:10 -0000 1.1 --- ScintillaLexer.f 7 May 2005 15:53:14 -0000 1.2 *************** *** 64,67 **** --- 64,68 ---- ,{ CATCH THROW ABORT QUIT AS MACRO #DEFINE } ,{ RECORD: ;RECORD ;RECORDSIZE: BYTES BYTE BITS SHORT INT DINT } + ,{ MACRO: ENDM SUBR: } create UserWords2 |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:44:07
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/ProMgr Modified Files: ProjectManager.f zipper.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ProjectManager.f 3 May 2005 12:21:09 -0000 1.3 --- ProjectManager.f 5 May 2005 09:43:27 -0000 1.4 *************** *** 442,446 **** GetName: ThisItem name-only? if zcount "to-pathend" asciiz ! then rel>abs to pszText ThisItem to lparam ?itemimages to iImage --- 442,446 ---- GetName: ThisItem name-only? if zcount "to-pathend" asciiz ! then to pszText ThisItem to lparam ?itemimages to iImage *************** *** 449,453 **** TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins rel>abs 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem ; --- 449,453 ---- TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem ; *************** *** 509,515 **** ( hParent) to hParent ( hAfter) to hInsertAfter ! ( lparam) to lparam ! getname: lparam ! rel>abs to pszText 0 to iImage 1 to iSelectedImage --- 509,514 ---- ( hParent) to hParent ( hAfter) to hInsertAfter ! ( lparam) to lparam ! getname: lparam to pszText 0 to iImage 1 to iSelectedImage *************** *** 517,521 **** TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins rel>abs 0 TVM_INSERTITEMA hWnd Call SendMessage ; : AddParentLists ( -- ) --- 516,520 ---- TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask tvitem->tvins ! tvins 0 TVM_INSERTITEMA hWnd Call SendMessage ; : AddParentLists ( -- ) *************** *** 674,679 **** hwndmain to hitem TVIF_TEXT to mask ! ProjectName 1+ rel>abs to psztext ! tvitem rel>abs 0 TVM_SETITEM hwnd Call SendMessage drop ProjectName count SetName: mainlist ;m --- 673,678 ---- hwndmain to hitem TVIF_TEXT to mask ! ProjectName 1+ to psztext ! tvitem 0 TVM_SETITEM hwnd Call SendMessage drop ProjectName count SetName: mainlist ;m *************** *** 776,780 **** :M WM_NOTIFY ( h m w l -- f ) ! dup abs>rel @ GetHandle: TheProject = if dup 2 cells+ @ NM_DBLCLK = if ItemId: SelectedItem 0= --- 775,779 ---- :M WM_NOTIFY ( h m w l -- f ) ! dup @ GetHandle: TheProject = if dup 2 cells+ @ NM_DBLCLK = if ItemId: SelectedItem 0= Index: zipper.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/zipper.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** zipper.f 21 Dec 2004 00:18:46 -0000 1.1 --- zipper.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 142,146 **** 2 CallBack: Zip32Print ( addr n -- res ) ! drop abs>rel zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Print --- 142,146 ---- 2 CallBack: Zip32Print ( addr n -- res ) ! drop zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Print *************** *** 155,159 **** 2 CallBack: Zip32Service ( addr n -- res ) \ if res = 1 zip will abort ! drop abs>rel zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Service ; --- 155,159 ---- 2 CallBack: Zip32Service ( addr n -- res ) \ if res = 1 zip will abort ! drop zcount 2dup + 1- c@ 0x0A = if 1- \ remove trailing linefeed then -trailing doZip32Service ; *************** *** 162,166 **** 4 CallBack: Zip32Password { addr1 addr2 n addr3 -- res } ! addr1 abs>rel addr2 abs>rel n addr3 abs>rel doZip32Password 0 ; --- 162,166 ---- 4 CallBack: Zip32Password { addr1 addr2 n addr3 -- res } ! addr1 addr2 n addr3 doZip32Password 0 ; *************** *** 169,173 **** 1 CallBack: Zip32Comment ( addr -- ) ! abs>rel doZip32Comment 1 ; --- 169,173 ---- 1 CallBack: Zip32Comment ( addr -- ) ! doZip32Comment 1 ; *************** *** 176,185 **** zset? ?exit \ already set with{ ZipCallBacks }with ! &Zip32Print rel>abs put> ZDLLPRNT ! &Zip32Service rel>abs put> ZDLLSERVICE ! &Zip32Password rel>abs put> ZDLLPASSWORD ! &Zip32Comment rel>abs put> ZDLLCOMMENT end-with ! ZipCallBacks sizeof() drop rel>abs Init-Zip32 to zcode true to zset? ; --- 176,185 ---- zset? ?exit \ already set with{ ZipCallBacks }with ! &Zip32Print put> ZDLLPRNT ! &Zip32Service put> ZDLLSERVICE ! &Zip32Password put> ZDLLPASSWORD ! &Zip32Comment put> ZDLLCOMMENT end-with ! ZipCallBacks sizeof() drop Init-Zip32 to zcode true to zset? ; *************** *** 192,196 **** : SetZipOptions ( -- ) ! ZipOptions sizeof() drop rel>abs DoSetZipOptions to zcode ; external --- 192,196 ---- : SetZipOptions ( -- ) ! ZipOptions sizeof() drop DoSetZipOptions to zcode ; external *************** *** 207,212 **** NextAddress fcnt 1+ + ZipBuffer ZipBufferSize + u< not abort" Buffer full!" faddr NextAddress fcnt move ! \ nextaddress must be rel>abs for passing to DLL ! NextAddress rel>abs #FilesAdded cells ZipBuffer + ! NextAddress fcnt + 0 over c! \ null terminate 1+ to NextAddress 1 +to #FilesAdded ; --- 207,211 ---- NextAddress fcnt 1+ + ZipBuffer ZipBufferSize + u< not abort" Buffer full!" faddr NextAddress fcnt move ! NextAddress #FilesAdded cells ZipBuffer + ! NextAddress fcnt + 0 over c! \ null terminate 1+ to NextAddress 1 +to #FilesAdded ; *************** *** 220,225 **** SetZipCallBacks SetZipOptions ! ZipBuffer rel>abs ! zname zcnt asciiz rel>abs #FilesToBeZipped Zip dup to zcode ?zip-error ; --- 219,224 ---- SetZipCallBacks SetZipOptions ! ZipBuffer ! zname zcnt asciiz #FilesToBeZipped Zip dup to zcode ?zip-error ; *************** *** 247,248 **** --- 246,248 ---- That all folks! + |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:44:07
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/ForthForm Modified Files: ABOUT.F CreateMenu.f FORMOBJECT.F FORMPROPERTY.F FORTHFORM.F FileLister.f IMAGEWINDOW.F Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: ABOUT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/ABOUT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsTX2E8D and /tmp/cvsSv37Ak differ Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** FORMOBJECT.F 21 Dec 2004 00:18:45 -0000 1.1 --- FORMOBJECT.F 5 May 2005 09:43:26 -0000 1.2 *************** *** 878,882 **** 0 \ no menu WindowStyle: [ self ] \ the window style ! AddrOf: TempRect rel>abs \ make a new rectangle call AdjustWindowRect ?win-error \ adjust the window Right: TempRect Left: TempRect - \ adjusted width --- 878,882 ---- 0 \ no menu WindowStyle: [ self ] \ the window style ! AddrOf: TempRect \ make a new rectangle call AdjustWindowRect ?win-error \ adjust the window Right: TempRect Left: TempRect - \ adjusted width *************** *** 1794,1796 **** ;Class ! \s \ No newline at end of file --- 1794,1796 ---- ;Class ! \s |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:44:06
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/Player4 Modified Files: MciInterface.f MciVideo.f Mediatree.f NUMBER.F PLAYER4.F Pl_Toolset.f W_SEARCH.F Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: MciVideo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciVideo.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** MciVideo.f 2 May 2005 20:47:57 -0000 1.2 --- MciVideo.f 5 May 2005 09:43:26 -0000 1.3 *************** *** 44,48 **** : (MciSendString) ( n1 n2 n3 addr -- ) \ send a MCI-command string MciDebug? if cr ." MciVideo: " 4dup zcount type . . . then ! rel>abs Call mciSendString drop ; \ ---------------------------------------------------------------------------- --- 44,48 ---- : (MciSendString) ( n1 n2 n3 addr -- ) \ send a MCI-command string MciDebug? if cr ." MciVideo: " 4dup zcount type . . . then ! Call mciSendString drop ; \ ---------------------------------------------------------------------------- *************** *** 134,138 **** buf$ +null ! 0 255 buf1$ rel>abs buf$ 1+ (MciSendString) --- 134,138 ---- buf$ +null ! 0 255 buf1$ buf$ 1+ (MciSendString) *************** *** 260,262 **** module ! |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:44:06
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/Chess Modified Files: BMPIO.F Fullscreen.f Oglwin.f Opengl.f PIXELFRM.F TOOLSET.F Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: TOOLSET.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TOOLSET.F 5 May 2005 08:55:27 -0000 1.2 --- TOOLSET.F 5 May 2005 09:43:25 -0000 1.3 *************** *** 90,95 **** MB_OK MB_ICONSTOP or MB_TASKMODAL or ! z" Error:" rel>abs ! message$ 1+ rel>abs NULL call MessageBox drop ; --- 90,95 ---- MB_OK MB_ICONSTOP or MB_TASKMODAL or ! z" Error:" ! message$ 1+ NULL call MessageBox drop ; *************** *** 134,138 **** : (ABORT") ( f -- ) \ _.rstack ! 2r@ abs>rel at-word ! drop ((")) SWAP IF MSG ! THROW_ABORTQ THROW --- 134,138 ---- : (ABORT") ( f -- ) \ _.rstack ! 2r@ at-word ! drop ((")) SWAP IF MSG ! THROW_ABORTQ THROW *************** *** 176,180 **** drop ; ! \ 1234 here ! here rel>abs 10 cadump abort --- 176,180 ---- drop ; ! \ 1234 here ! here 10 cadump abort *************** *** 505,509 **** time-buf 2 + w! \ month time-buf 6 + w! \ day ! hld-max hld rel>abs 0 time-buf rel>abs r> LOCALE_SYSTEM_DEFAULT call GetDateFormat dup 0= abort" ldate failed" hld-count --- 505,509 ---- time-buf 2 + w! \ month time-buf 6 + w! \ day ! hld-max hld 0 time-buf r> LOCALE_SYSTEM_DEFAULT call GetDateFormat dup 0= abort" ldate failed" hld-count *************** *** 515,519 **** : ltime ( time-buf - adr count ) \ time-buf must be filled ! hld-max hld rel>abs 0 time-buf rel>abs TIME_FORCE24HOURFORMAT LOCALE_SYSTEM_DEFAULT call GetTimeFormat dup 0= abort" ltime failed" hld-count --- 515,519 ---- : ltime ( time-buf - adr count ) \ time-buf must be filled ! hld-max hld 0 time-buf TIME_FORCE24HOURFORMAT LOCALE_SYSTEM_DEFAULT call GetTimeFormat dup 0= abort" ltime failed" hld-count *************** *** 815,823 **** 0 \ last written time and date not needed 0 \ last access time not needed ! file-time-buf-created rel>abs \ creation time needed r> call GetFileTime drop ! _systemtime rel>abs \ where to put results ! file-time-buf rel>abs \ file time/date to convert call FileTimeToSystemTime drop _systemtime ; --- 815,823 ---- 0 \ last written time and date not needed 0 \ last access time not needed ! file-time-buf-created \ creation time needed r> call GetFileTime drop ! _systemtime \ where to put results ! file-time-buf \ file time/date to convert call FileTimeToSystemTime drop _systemtime ; *************** *** 885,902 **** : OpenProcessToken ( - token ) ! here rel>abs TOKEN_ADJUST_PRIVILEGES TOKEN_QUERY or call GetCurrentProcess call OpenProcessToken drop here @ ; : GetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - adr n ) ! swap dup >r rel>abs rot rel>abs call GetEnvironmentVariable r> swap ; : SetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - ) ! pad +place pad dup +null 1+ rel>abs swap rel>abs call SetEnvironmentVariable drop ; : DelEnvironmentVariable ( zstr-EnvironmentVariable-name - ) ! rel>abs 0 pad ! pad rel>abs swap call SetEnvironmentVariable drop ; --- 885,902 ---- : OpenProcessToken ( - token ) ! here TOKEN_ADJUST_PRIVILEGES TOKEN_QUERY or call GetCurrentProcess call OpenProcessToken drop here @ ; : GetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - adr n ) ! swap dup >r rot call GetEnvironmentVariable r> swap ; : SetEnvironmentVariable ( zstr-EnvironmentVariable-name buffer n - ) ! pad +place pad dup +null 1+ swap call SetEnvironmentVariable drop ; : DelEnvironmentVariable ( zstr-EnvironmentVariable-name - ) ! 0 pad ! pad swap call SetEnvironmentVariable drop ; *************** *** 909,918 **** : computername$! ( adr - ) \ March 30th, 2002 was GetComputerName ! 100 pad ! pad rel>abs \ lpszName ! over 1+ rel>abs \ lpdwbuffer call GetComputerName drop pad @ swap c! ; : username$! ( adr - ) \ March 30th, 2002 was GetUserName ! 100 pad! pad rel>abs over 1+ rel>abs call GetUserName drop pad@ 1- swap c! ; --- 909,918 ---- : computername$! ( adr - ) \ March 30th, 2002 was GetComputerName ! 100 pad ! pad \ lpszName ! over 1+ \ lpdwbuffer call GetComputerName drop pad @ swap c! ; : username$! ( adr - ) \ March 30th, 2002 was GetUserName ! 100 pad! pad over 1+ call GetUserName drop pad@ 1- swap c! ; *************** *** 934,938 **** title$ place title$ +NULL r> ! title$ 1+ rel>abs message$ 1+ rel>abs NULL call MessageBox ; --- 934,938 ---- title$ place title$ +NULL r> ! title$ 1+ message$ 1+ NULL call MessageBox ; *************** *** 956,960 **** 0 do i to-cell tmp-array loop ; ! : nrel>abs ( start end -- ...abs ) swap do i tmp-array rel>abs loop ; (( DWORD lpAppName, // points to section name --- 956,960 ---- 0 do i to-cell tmp-array loop ; ! : nrel>abs ( start end -- ...abs ) swap do i tmp-array loop ; (( DWORD lpAppName, // points to section name *************** *** 967,971 **** \ lpReturnedString will contain a counted string with a 0 at the end : GetPrivateProfileString ( lpAppName lpKeyName lpDefault lpReturnedString nSize lpFileName - ncopied ) ! 1+ 6 to-tmp-array 0 tmp-array rel>abs 1 tmp-array 2 tmp-array dup >r 1+ rel>abs 3 6 nrel>abs call GetPrivateProfileString r> c! ; --- 967,971 ---- \ lpReturnedString will contain a counted string with a 0 at the end : GetPrivateProfileString ( lpAppName lpKeyName lpDefault lpReturnedString nSize lpFileName - ncopied ) ! 1+ 6 to-tmp-array 0 tmp-array 1 tmp-array 2 tmp-array dup >r 1+ 3 6 nrel>abs call GetPrivateProfileString r> c! ; *************** *** 1182,1186 **** : sounds ( z"sound-file" - ) sounds_on/off ! if SND_FILENAME NULL rot rel>abs call PlaySound then drop ; \ October 22nd, 2001 - 23:46 --- 1182,1186 ---- : sounds ( z"sound-file" - ) sounds_on/off ! if SND_FILENAME NULL rot call PlaySound then drop ; \ October 22nd, 2001 - 23:46 *************** *** 1205,1210 **** key$ +NULL >r ! disposition rel>abs \ we get it, but don't use it ! regkey rel>abs \ the return value NULL samDesired --- 1205,1210 ---- key$ +NULL >r ! disposition \ we get it, but don't use it ! regkey \ the return value NULL samDesired *************** *** 1212,1216 **** NULL 0 ! key$ 1+ rel>abs r> \ root-key Call RegCreateKeyEx --- 1212,1216 ---- NULL 0 ! key$ 1+ r> \ root-key Call RegCreateKeyEx *************** *** 1233,1241 **** then >r drop >r MAXCOUNTED reglen ! \ init max length of string ! reglen rel>abs ! ReturnedKey$ 1+ rel>abs ! regtype rel>abs 0 ! r> rel>abs r@ Call RegQueryValueEx --- 1233,1241 ---- then >r drop >r MAXCOUNTED reglen ! \ init max length of string ! reglen ! ReturnedKey$ 1+ ! regtype 0 ! r> r@ Call RegQueryValueEx *************** *** 1366,1373 **** \ October 7th, 2002 - 10:12 ! : mkdir ( pSecurityAttributes z"path" - ior ) rel>abs call CreateDirectory ; \ Empty the directory before using rd ! : rd ( z"path" - ior ) rel>abs call RemoveDirectory ; : -string ( adr1 cnt1 adr2 cnt2 - adr1+cnt2 cnt1-cnt2 ) --- 1366,1373 ---- \ October 7th, 2002 - 10:12 ! : mkdir ( pSecurityAttributes z"path" - ior ) call CreateDirectory ; \ Empty the directory before using rd ! : rd ( z"path" - ior ) call RemoveDirectory ; : -string ( adr1 cnt1 adr2 cnt2 - adr1+cnt2 cnt1-cnt2 ) *************** *** 1528,1532 **** &InfoRect 3 cells+ constant height ! : windowposition ( hWnd - ) &InfoRect rel>abs swap Call GetWindowRect ?win-error ; 250 string: inifile$ --- 1528,1532 ---- &InfoRect 3 cells+ constant height ! : windowposition ( hWnd - ) &InfoRect swap Call GetWindowRect ?win-error ; 250 string: inifile$ Index: Oglwin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Oglwin.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Oglwin.f 21 Dec 2004 00:18:43 -0000 1.1 --- Oglwin.f 5 May 2005 09:43:25 -0000 1.2 *************** *** 131,135 **** 12 cells to cbSizeEx CS_HREDRAW CS_VREDRAW or CS_OWNDC or CS_BYTEALIGNCLIENT or to StyleEx ! TheWndProc rel>abs to wndProcEx 0 to clsExtraEx 0 to wndExtraEx --- 131,135 ---- 12 cells to cbSizeEx CS_HREDRAW CS_VREDRAW or CS_OWNDC or CS_BYTEALIGNCLIENT or to StyleEx ! TheWndProc to wndProcEx 0 to clsExtraEx 0 to wndExtraEx *************** *** 139,148 **** 0 to hbrBackgroundEx NULL to MenuNameEx ! WindowClassName 1+ rel>abs to ClassNameEx 0 to hIconSmEx ; : register-the-classEx ( -- f ) \ register the class structure ! WndClassEx rel>abs Call RegisterClassEx ; : register-openGL-window ( -- f ) --- 139,148 ---- 0 to hbrBackgroundEx NULL to MenuNameEx ! WindowClassName 1+ to ClassNameEx 0 to hIconSmEx ; : register-the-classEx ( -- f ) \ register the class structure ! WndClassEx Call RegisterClassEx ; : register-openGL-window ( -- f ) *************** *** 158,162 **** WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WndRect rel>abs \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window --- 158,162 ---- WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WndRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window *************** *** 169,174 **** StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle ! WindowTitle: [ self ] rel>abs \ the window title lpWindowName ! WindowClassName 1+ rel>abs \ class name pClassName ExStyle Call CreateWindowEx --- 169,174 ---- StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle ! WindowTitle: [ self ] \ the window title lpWindowName ! WindowClassName 1+ \ class name pClassName ExStyle Call CreateWindowEx *************** *** 283,284 **** --- 283,285 ---- \s + |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:43:53
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/WinEd Modified Files: EdDebug.f EdFindInFiles.f Ed_EditWindowObj.F Ed_MessageBrodcast.F Ed_Search.F W_SEARCH.F WinEd_Menu.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: EdDebug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/EdDebug.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdDebug.f 21 Dec 2004 00:18:50 -0000 1.1 --- EdDebug.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 80,84 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; --- 80,84 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; *************** *** 87,91 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; --- 87,91 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; *************** *** 131,135 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; --- 131,135 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; Index: WinEd_Menu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd_Menu.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WinEd_Menu.f 21 Dec 2004 00:18:50 -0000 1.1 --- WinEd_Menu.f 5 May 2005 09:43:28 -0000 1.2 *************** *** 104,108 **** IF MF_BYCOMMAND MAXSTRING ! text$ 1+ rel>abs theID pid Call GetMenuString text$ c! --- 104,108 ---- IF MF_BYCOMMAND MAXSTRING ! text$ 1+ theID pid Call GetMenuString text$ c! *************** *** 126,130 **** MF_BYCOMMAND MAXSTRING ! r> 1+ rel>abs mid[] r> CELLS+ @ pid Call GetMenuString r> c! --- 126,130 ---- MF_BYCOMMAND MAXSTRING ! r> 1+ mid[] r> CELLS+ @ pid Call GetMenuString r> c! *************** *** 155,159 **** IF MF_BYCOMMAND MAXSTRING ! text$ 1+ rel>abs mid[] i CELLS+ @ \ use the ID to get text pid Call GetMenuString text$ c! --- 155,159 ---- IF MF_BYCOMMAND MAXSTRING ! text$ 1+ mid[] i CELLS+ @ \ use the ID to get text pid Call GetMenuString text$ c! *************** *** 168,172 **** pFunc mfunc[] insertedMenus CELLS+ ! \ set the function ! zMenuText rel>abs mid[] insertedMenus cells+ @ MF_STRING --- 168,172 ---- pFunc mfunc[] insertedMenus CELLS+ ! \ set the function ! zMenuText mid[] insertedMenus cells+ @ MF_STRING *************** *** 190,194 **** THEN \ insert the new entry in menu ! zMenuText rel>abs mid[] @ MF_STRING --- 190,194 ---- THEN \ insert the new entry in menu ! zMenuText mid[] @ MF_STRING *************** *** 214,218 **** pFunc mfunc[] ! \ insert the new entry in menu ! zMenuText rel>abs mid[] @ MF_STRING --- 214,218 ---- pFunc mfunc[] ! \ insert the new entry in menu ! zMenuText mid[] @ MF_STRING Index: Ed_MessageBrodcast.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MessageBrodcast.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvswgBTGP and /tmp/cvsI2Flym differ Index: Ed_Search.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Search.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Ed_Search.F 30 Apr 2005 20:52:42 -0000 1.2 --- Ed_Search.F 5 May 2005 09:43:28 -0000 1.3 *************** *** 264,268 **** begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rel>abs rot call GetWindowText pad swap 2r@ 2swap w-search nip never else never 0 true --- 264,268 ---- begin GW_HWNDNEXT swap call GetWindow dup 0<> ! if dup MAXSTRING pad rot call GetWindowText pad swap 2r@ 2swap w-search nip never else never 0 true *************** *** 679,681 **** THEN SetFocus: DocWindow ; ! |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:43:52
|
Update of /cvsroot/win32forth/win32forth/demos/AccelDemo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/demos/AccelDemo Modified Files: Accel.f AccelDemo.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: Accel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/Accel.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Accel.f 21 Dec 2004 00:18:51 -0000 1.1 --- Accel.f 5 May 2005 09:43:28 -0000 1.2 *************** *** 118,122 **** \ Create the Accelerator Table from the global memory handle ! addr @ addr2 rel>abs ( count addr2 ) call CreateAcceleratorTable ( hAccelTable ) --- 118,122 ---- \ Create the Accelerator Table from the global memory handle ! addr @ addr2 ( count addr2 ) call CreateAcceleratorTable ( hAccelTable ) Index: AccelDemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/AccelDemo.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** AccelDemo.f 21 Dec 2004 00:18:52 -0000 1.1 --- AccelDemo.f 5 May 2005 09:43:28 -0000 1.2 *************** *** 332,336 **** StartSize: self drop width max StartSize: Demo-Tool-Bar nip SetRect: DemoRect ! DemoRect.AddrOf rel>abs GetHandle: dc call FillRect ?win-error EraseRect: DemoRect On_Paint: super --- 332,336 ---- StartSize: self drop width max StartSize: Demo-Tool-Bar nip SetRect: DemoRect ! DemoRect.AddrOf GetHandle: dc call FillRect ?win-error EraseRect: DemoRect On_Paint: super *************** *** 597,601 **** NULL IMAGE_BITMAP ! open$ dup +NULL 1+ rel>abs NULL Call LoadImage to hbm --- 597,601 ---- NULL IMAGE_BITMAP ! open$ dup +NULL 1+ NULL Call LoadImage to hbm *************** *** 726,730 **** DIB_RGB_COLORS ! pbmi rel>abs NULL SCREEN-HEIGHT --- 726,730 ---- DIB_RGB_COLORS ! pbmi NULL SCREEN-HEIGHT *************** *** 736,744 **** \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc rel>abs to lpBits ! lpBits abs>rel pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi rel>abs lpBits SCREEN-HEIGHT --- 736,744 ---- \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc to lpBits ! lpBits pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi lpBits SCREEN-HEIGHT *************** *** 781,785 **** hfile write-file drop ! lpBits abs>rel pbmi biSizeImage + @ hfile write-file drop --- 781,785 ---- hfile write-file drop ! lpBits pbmi biSizeImage + @ hfile write-file drop *************** *** 790,794 **** hbm call DeleteObject ?win-error ! lpBits abs>rel release pbmi release ELSE drop --- 790,794 ---- hbm call DeleteObject ?win-error ! lpBits release pbmi release ELSE drop *************** *** 1016,1020 **** DIB_RGB_COLORS ! pbmi rel>abs NULL SCREEN-HEIGHT --- 1016,1020 ---- DIB_RGB_COLORS ! pbmi NULL SCREEN-HEIGHT *************** *** 1026,1034 **** \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc rel>abs to lpBits ! lpBits abs>rel pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi rel>abs lpBits SCREEN-HEIGHT --- 1026,1034 ---- \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc to lpBits ! lpBits pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi lpBits SCREEN-HEIGHT *************** *** 1042,1046 **** SRCCOPY DIB_RGB_COLORS ! pbmi rel>abs lpBits --- 1042,1046 ---- SRCCOPY DIB_RGB_COLORS ! pbmi lpBits *************** *** 1060,1064 **** hbm call DeleteObject ?win-error ! lpBits abs>rel release pbmi release ; --- 1060,1064 ---- hbm call DeleteObject ?win-error ! lpBits release pbmi release ; |
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/demos Modified Files: DLGTEST.F HELLO.F MDIExample.f WINBROWS.F WINDEMO.F WINDILOG.F WINPAR.F WINSER.F pentom.f taskdemo.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: WINDILOG.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINDILOG.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINDILOG.F 21 Dec 2004 00:18:53 -0000 1.1 --- WINDILOG.F 5 May 2005 09:43:29 -0000 1.2 *************** *** 65,81 **** 4 140 100 60 Move: List_1 0 0 LB_RESETCONTENT GetID: List_1 SendDlgItemMessage: self drop ! z" Ola1 " rel>abs 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop ! z" Ola2 " rel>abs 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop ! z" Ola3 " rel>abs 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop self Start: CbList_1 4 220 100 90 Move: CbList_1 0 0 CB_RESETCONTENT GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola4 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola5 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola6 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola7 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola8 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola9 " rel>abs 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop 0 0 CB_SETCURSEL GetID: CbList_1 SendDlgItemMessage: self drop --- 65,81 ---- 4 140 100 60 Move: List_1 0 0 LB_RESETCONTENT GetID: List_1 SendDlgItemMessage: self drop ! z" Ola1 " 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop ! z" Ola2 " 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop ! z" Ola3 " 0 LB_ADDSTRING GetID: List_1 SendDlgItemMessage: self drop self Start: CbList_1 4 220 100 90 Move: CbList_1 0 0 CB_RESETCONTENT GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola4 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola5 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola6 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola7 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola8 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop ! z" Ola9 " 0 CB_ADDSTRING GetID: CbList_1 SendDlgItemMessage: self drop 0 0 CB_SETCURSEL GetID: CbList_1 SendDlgItemMessage: self drop Index: WINDEMO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINDEMO.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINDEMO.F 21 Dec 2004 00:18:53 -0000 1.1 --- WINDEMO.F 5 May 2005 09:43:29 -0000 1.2 *************** *** 316,320 **** StartSize: self drop width max StartSize: Demo-Tool-Bar nip SetRect: DemoRect ! DemoRect.AddrOf rel>abs GetHandle: dc call FillRect ?win-error EraseRect: DemoRect On_Paint: super --- 316,320 ---- StartSize: self drop width max StartSize: Demo-Tool-Bar nip SetRect: DemoRect ! DemoRect.AddrOf GetHandle: dc call FillRect ?win-error EraseRect: DemoRect On_Paint: super *************** *** 560,564 **** NULL IMAGE_BITMAP ! open$ dup +NULL 1+ rel>abs NULL Call LoadImage to hbm --- 560,564 ---- NULL IMAGE_BITMAP ! open$ dup +NULL 1+ NULL Call LoadImage to hbm *************** *** 691,695 **** DIB_RGB_COLORS ! pbmi rel>abs NULL SCREEN-HEIGHT --- 691,695 ---- DIB_RGB_COLORS ! pbmi NULL SCREEN-HEIGHT *************** *** 702,711 **** \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc rel>abs to lpBits ! lpBits abs>rel pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi rel>abs lpBits SCREEN-HEIGHT --- 702,711 ---- \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc to lpBits ! lpBits pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi lpBits SCREEN-HEIGHT *************** *** 749,753 **** hfile write-file drop ! lpBits abs>rel pbmi biSizeImage + @ hfile write-file drop --- 749,753 ---- hfile write-file drop ! lpBits pbmi biSizeImage + @ hfile write-file drop *************** *** 759,763 **** ! lpBits abs>rel release pbmi release ELSE drop --- 759,763 ---- ! lpBits release pbmi release ELSE drop *************** *** 987,991 **** DIB_RGB_COLORS ! pbmi rel>abs NULL SCREEN-HEIGHT --- 987,991 ---- DIB_RGB_COLORS ! pbmi NULL SCREEN-HEIGHT *************** *** 998,1007 **** \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc rel>abs to lpBits ! lpBits abs>rel pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi rel>abs lpBits SCREEN-HEIGHT --- 998,1007 ---- \ pbmi show-bitmapinfoheader ! pbmi biSizeImage + @ malloc to lpBits ! lpBits pbmi biSizeImage + @ erase DIB_RGB_COLORS ! pbmi lpBits SCREEN-HEIGHT *************** *** 1016,1020 **** SRCCOPY DIB_RGB_COLORS ! pbmi rel>abs lpBits --- 1016,1020 ---- SRCCOPY DIB_RGB_COLORS ! pbmi lpBits *************** *** 1035,1039 **** ! lpBits abs>rel release pbmi release ; --- 1035,1039 ---- ! lpBits release pbmi release ; Index: WINPAR.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINPAR.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvswrC0fV and /tmp/cvs0XndSg differ Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** taskdemo.f 21 Dec 2004 00:18:53 -0000 1.1 --- taskdemo.f 5 May 2005 09:43:29 -0000 1.2 *************** *** 61,65 **** taskwaits while ! INFINITE false taskhndls rel>abs \ wait for 1 or more tasks to end taskwaits call WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error --- 61,65 ---- taskwaits while ! INFINITE false taskhndls \ wait for 1 or more tasks to end taskwaits call WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error *************** *** 108,112 **** speed . cr console-lock unlock ! s" src\task.f" Prepend<home>\ t2-openfile begin pad 256 fhndl @ read-line abort" IO Error!" --- 108,112 ---- speed . cr console-lock unlock ! s" src\lib\task.f" Prepend<home>\ t2-openfile begin pad 256 fhndl @ read-line abort" IO Error!" *************** *** 140,141 **** --- 140,142 ---- .( Type Demo2 to start Demo2, any key to stop) cr + |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:43:37
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/SciEdit Modified Files: EdDebug.f EdFindInFiles.f RecentFiles.f W_SEARCH.F Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: EdDebug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdDebug.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdDebug.f 21 Dec 2004 00:18:47 -0000 1.1 --- EdDebug.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 81,85 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; --- 81,85 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_STACK SendDlgItemMessage: self drop ; *************** *** 88,92 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; --- 88,92 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_RETURN SendDlgItemMessage: self drop ; *************** *** 132,136 **** ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp rel>abs 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; --- 132,136 ---- ztemp MAXSTRING erase \ null fill buffer adr ztemp len MAXSTRING 1- min move \ move text to buffer ! ztemp 0 LB_ADDSTRING IDL_WORDS SendDlgItemMessage: self drop ; *************** *** 232,233 **** --- 232,234 ---- THEN ; + |
|
From: Dirk B. <db...@us...> - 2005-05-05 09:43:36
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/apps/Setup Modified Files: COM01.F dtop_lnk.f Log Message: Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version Index: COM01.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/COM01.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsSwRFcF and /tmp/cvsuGcQNZ differ Index: dtop_lnk.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/dtop_lnk.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dtop_lnk.f 21 Dec 2004 00:18:49 -0000 1.1 --- dtop_lnk.f 5 May 2005 09:43:27 -0000 1.2 *************** *** 109,114 **** 2 PROC SHGetPathFromIDList : GetSpecialFolderLocation ( nFolder - adr count ) ! &DesktopPidl rel>abs swap NULL call SHGetSpecialFolderLocation drop ! tmp$ rel>abs &DesktopPidl @ call SHGetPathFromIDList drop tmp$ zcount ; --- 109,114 ---- 2 PROC SHGetPathFromIDList : GetSpecialFolderLocation ( nFolder - adr count ) ! &DesktopPidl swap NULL call SHGetSpecialFolderLocation drop ! tmp$ &DesktopPidl @ call SHGetPathFromIDList drop tmp$ zcount ; *************** *** 116,122 **** : init_dtop_for_link CoInitialize ! &pLink rel>abs IID_IShellLink rel>abs CLSCTX_INPROC_SERVER ! NULL CLSID_ShellLink rel>abs call CoCreateInstance ?failed ! &pPersistFile rel>abs IID_IPersistFile rel>abs *QueryInterface ->pLink ; --- 116,122 ---- : init_dtop_for_link CoInitialize ! &pLink IID_IShellLink CLSCTX_INPROC_SERVER ! NULL CLSID_ShellLink call CoCreateInstance ?failed ! &pPersistFile IID_IPersistFile *QueryInterface ->pLink ; *************** *** 137,141 **** : buf+null ( buf$ n - abs_adr$incl_0 ) ! pad ascii-z rel>abs ; --- 137,141 ---- : buf+null ( buf$ n - abs_adr$incl_0 ) ! pad ascii-z ; *************** *** 143,147 **** buf+null *SetPath ->plink SW_SHOW *SetShowCmd ->plink ! rel>abs *SetDescription ->pLink ; --- 143,147 ---- buf+null *SetPath ->plink SW_SHOW *SetShowCmd ->plink ! *SetDescription ->pLink ; *************** *** 149,153 **** { \ buffer -- } 1024 LocalAlloc: buffer \ dbu ! buffer ansi>unicode true buffer rel>abs *Save ->pPersistFile ; --- 149,153 ---- { \ buffer -- } 1024 LocalAlloc: buffer \ dbu ! buffer ansi>unicode true buffer *Save ->pPersistFile ; |
|
From: Dirk B. <db...@us...> - 2005-05-05 08:55:39
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21295/apps/Chess Modified Files: TOOLSET.F Log Message: Added some words that were removed from the kernel some time ago. Note that the complete file needs a major cleenup. Index: TOOLSET.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TOOLSET.F 21 Dec 2004 00:18:43 -0000 1.1 --- TOOLSET.F 5 May 2005 08:55:27 -0000 1.2 *************** *** 1191,1194 **** --- 1191,1200 ---- \ They are copied from registry.f with a few small changes. + variable disposition + variable regkey + variable regtype + variable reglen + named-new$ ReturnedKey$ + \ sadr,slen = the registry section to get the key of \ return -1 if we could not get the key *************** *** 1547,1548 **** --- 1553,1555 ---- \s + |
|
From: Jos v.d.V. <jo...@us...> - 2005-05-04 19:09:18
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18034/win32forth/apps/Player4 Modified Files: Pl_MciWindow.f Pl_Version.f Log Message: Jos: Fixed 1 small irratating bug in add-to-catalog. Sometimes it is a miracle that a program is able to work. Index: Pl_MciWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Pl_MciWindow.f 2 May 2005 20:47:57 -0000 1.4 --- Pl_MciWindow.f 4 May 2005 19:08:47 -0000 1.5 *************** *** 237,242 **** : add-to-catalog ( -- ) \ Delete the *.dat files to start a new catalog ! z" Folder(s) to catalog" ! config-mhndl map-hndl>vadr PathMediaFiles GetHandle: Self BrowseForFolder If \ PathMediaFiles count --- 237,242 ---- : add-to-catalog ( -- ) \ Delete the *.dat files to start a new catalog ! z" Folder(s) to catalog" ! config-mhndl map-hndl>vadr PathMediaFiles dup +null GetHandle: Self BrowseForFolder If \ PathMediaFiles count Index: Pl_Version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_Version.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Pl_Version.f 3 May 2005 22:35:31 -0000 1.7 --- Pl_Version.f 4 May 2005 19:08:48 -0000 1.8 *************** *** 109,110 **** --- 109,115 ---- - Fixed 2 bugs. Now PathMediaFiles.dat must exist. + \ changes for Version 1.01.14 + Jos May 4th, 2005 + - Fixed 1 bug in add-to-catalog. + + |
|
From: Jos v.d.V. <jo...@us...> - 2005-05-03 22:35:41
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12348/win32forth/apps/Player4 Modified Files: Catalog.f Mediatree.f PLAYER4.F Pl_Version.f Log Message: Jos: Fixed 2 bugs Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** PLAYER4.F 2 May 2005 20:47:57 -0000 1.7 --- PLAYER4.F 3 May 2005 22:35:31 -0000 1.8 *************** *** 314,324 **** :noname ( -- ) ! Refresh: Catalog ; is RefreshCatalog :noname ( -- ) ! 0 to show-deleted Refresh: Catalog ! 255 to show-deleted ; is ShowDeleted --- 314,326 ---- :noname ( -- ) ! catalog-exist? ! if Refresh: Catalog ! then ; is RefreshCatalog :noname ( -- ) ! true to show-deleted Refresh: Catalog ! false to show-deleted ; is ShowDeleted *************** *** 485,492 **** \ Resize the configuration file when needed. ! DatFile$ count file-exist? [IF] ! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw ! pad @ sizeof ConfigDef = check-config ! [THEN] \ ----------------------------------------------------------------------------- --- 487,496 ---- \ Resize the configuration file when needed. ! DatFile$ count file-exist? [IF] ! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw ! pad @ sizeof ConfigDef = check-config ! [ELSE] DatFile$ create/open close-file throw ! 0 sizeof ConfigDef = check-config ! [THEN] \ ----------------------------------------------------------------------------- Index: Mediatree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Mediatree.f 2 May 2005 20:47:57 -0000 1.6 --- Mediatree.f 3 May 2005 22:35:31 -0000 1.7 *************** *** 327,333 **** ;M ! : add-record ( n - ) ! dup n>record Deleted- w@ \ Not deleted and found in the collection ! show-deleted = if drop Else dup to lParam --- 327,332 ---- ;M ! : add-record ( n - ) \ Add when not deleted and found in a collection ! dup n>record dup Deleted- c@ 0= show-deleted = swap Excluded- c@ or if drop Else dup to lParam Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Catalog.f 2 May 2005 20:47:57 -0000 1.4 --- Catalog.f 3 May 2005 22:35:31 -0000 1.5 *************** *** 176,180 **** ; ! : delete-record ( n - ) dup true swap n>record Deleted- c! free-list-check ; : mark-as-undeleted ( adr - ) --- 176,184 ---- ; ! : delete-record ( n - ) ! dup true swap n>record dup>r Deleted- c! ! 0 r> Excluded- c! ! free-list-check ! ; : mark-as-undeleted ( adr - ) *************** *** 195,199 **** ; ! 255 value show-deleted : delete-record-in-collection ( n - ) --- 199,203 ---- ; ! false value show-deleted : delete-record-in-collection ( n - ) *************** *** 229,232 **** --- 233,237 ---- r@ RandomLevel ? r@ Played- c@ . + r@ Excluded- c@ . then r>drop *************** *** 284,288 **** : catalog-exist? ( -- f ) DatFile$ count file-exist? ! database-mhndl map-file-open? or MciDebug? if cr ." catalog-exist? " dup . --- 289,294 ---- : catalog-exist? ( -- f ) DatFile$ count file-exist? ! database$ count file-exist? and ! \ database-mhndl map-file-open? or MciDebug? if cr ." catalog-exist? " dup . *************** *** 327,330 **** --- 333,337 ---- : init-dlg ( base adr count - pad base ) pad place pad swap ; + NewEditDialog searchDlg "Search for artist/album in the catalog." "The name contains:" "Ok" "Cancel" "" Index: Pl_Version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_Version.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Pl_Version.f 2 May 2005 20:47:58 -0000 1.6 --- Pl_Version.f 3 May 2005 22:35:31 -0000 1.7 *************** *** 3,7 **** anew -Pl_Version.f ! 10112 value player_version# \ Version numbers: v.ww.rr --- 3,7 ---- anew -Pl_Version.f ! 10113 value player_version# \ Version numbers: v.ww.rr *************** *** 104,106 **** (The Treeview was loaded 2 times when it was refreshed) - Added a freelist, delete and undelete ! |
|
From: George H. <geo...@us...> - 2005-05-03 15:06:31
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth/apps/Setup Modified Files: HYPER.F Log Message: gah: replaced 2swap 2drop with 2nip and other minor optimizations Index: HYPER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** HYPER.F 23 Apr 2005 12:27:21 -0000 1.2 --- HYPER.F 3 May 2005 15:05:52 -0000 1.3 *************** *** 125,129 **** bl skip \ and skip it dup \ any text left ! while 2swap 2drop repeat 2drop ; \ if any text left, then --- 125,129 ---- bl skip \ and skip it dup \ any text left ! while 2nip repeat 2drop ; \ if any text left, then *************** *** 198,202 **** ?do +word 2drop \ skip a word loop +word \ pick up next word ! 2swap 2drop write.onename \ and write one index name then ; --- 198,202 ---- ?do +word 2drop \ skip a word loop +word \ pick up next word ! 2nip write.onename \ and write one index name then ; *************** *** 224,228 **** ?do -word 2drop \ find last word in line and discard it loop -word \ find the word before it ! 2swap 2drop \ discard leading remainder of line write.onename \ and write one index name else 2drop --- 224,228 ---- ?do -word 2drop \ find last word in line and discard it loop -word \ find the word before it ! 2nip \ discard leading remainder of line write.onename \ and write one index name else 2drop |
|
From: George H. <geo...@us...> - 2005-05-03 15:06:05
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth/src/tools Modified Files: dfc.F Log Message: gah: replaced 2swap 2drop with 2nip and other minor optimizations Index: dfc.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/dfc.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dfc.F 21 Dec 2004 00:19:11 -0000 1.1 --- dfc.F 3 May 2005 15:05:54 -0000 1.2 *************** *** 597,601 **** dup 1+ X ! SLOT @ CANDIDATE Y ! ( ) ! ELSE 2DROP DROP THEN R> LCS @ = ( flag) dup IF ( Move fence. ) --- 597,601 ---- dup 1+ X ! SLOT @ CANDIDATE Y ! ( ) ! ELSE 3DROP THEN R> LCS @ = ( flag) dup IF ( Move fence. ) *************** *** 871,872 **** --- 871,873 ---- \\ End of Differential File Comparison + |
1040 messages has been excluded from this view by a project administrator.
