Menu
▾
▴
[Win32forth-cvs] win32forth/apps/WinEd Ed_FileFuncs.F, 1.3, 1.4 WinEd.f, 1.8, 1.9
|
From: Jos v.d.V. <jo...@us...> - 2006-07-12 11:23:12
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11382/apps/WinEd Modified Files: Ed_FileFuncs.F WinEd.f Log Message: Jos: Repaired WinEd. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** WinEd.f 28 Aug 2005 07:28:07 -0000 1.8 --- WinEd.f 12 Jul 2006 11:23:09 -0000 1.9 *************** *** 14,19 **** anew -wined.f ! 1 value CreateTurnkey ! \ 1 value (WinEdDbg) s" apps\WinEd" "fpath+ --- 14,20 ---- anew -wined.f ! ! 1 value CreateTurnkey ! \ 1 value (WinEdDbg) \ Enable to debug s" apps\WinEd" "fpath+ *************** *** 148,153 **** 1 pause-seconds bye [else] ! s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon ! WinEd [then] [then] --- 149,154 ---- 1 pause-seconds bye [else] ! s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon ! WinEd [then] [then] *************** *** 223,225 **** same file. It seems preferable to me that ONLY the desired text should be highlighted. rls ! \ No newline at end of file --- 224,226 ---- same file. It seems preferable to me that ONLY the desired text should be highlighted. rls ! Index: Ed_FileFuncs.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FileFuncs.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Ed_FileFuncs.F 28 Aug 2005 07:28:06 -0000 1.3 --- Ed_FileFuncs.F 12 Jul 2006 11:23:09 -0000 1.4 *************** *** 101,109 **** name-buf count "+open-text ; ! : *-open-file { sadr slen \ spath$ smask$ -- } ! MAXSTRING LocalAlloc: spath$ MAXSTRING LocalAlloc: smask$ mask-ptr >r - path-ptr >r spath$ MAXSTRING erase smask$ MAXSTRING erase --- 101,109 ---- name-buf count "+open-text ; ! : *-open-file { sadr slen \ SpathSource spath$ smask$ -- } ! MAXSTRING 2 cells+ LocalAlloc: SpathSource MAXSTRING LocalAlloc: smask$ + SpathSource 2 cells+ to spath$ mask-ptr >r spath$ MAXSTRING erase smask$ MAXSTRING erase *************** *** 112,116 **** IF current-dir$ count spath$ place THEN - spath$ to path-ptr sadr slen "to-pathend" smask$ place smask$ to mask-ptr --- 112,115 ---- *************** *** 119,125 **** 1 seconds FALSE to search-aborted? ! do-files-process message-off - r> to path-ptr r> to mask-ptr ; --- 118,123 ---- 1 seconds FALSE to search-aborted? ! spath$ (do-files-process message-off r> to mask-ptr ; *************** *** 205,213 **** THEN ; ! : word-count-file { sadr slen \ spath$ smask$ -- } ! MAXSTRING LocalAlloc: spath$ MAXSTRING LocalAlloc: smask$ mask-ptr >r - path-ptr >r spath$ MAXSTRING erase smask$ MAXSTRING erase --- 203,211 ---- THEN ; ! : word-count-file { sadr slen \ SpathSource spath$ smask$ -- } ! MAXSTRING 2 cells+ LocalAlloc: SpathSource MAXSTRING LocalAlloc: smask$ + SpathSource 2 cells+ to spath$ mask-ptr >r spath$ MAXSTRING erase smask$ MAXSTRING erase *************** *** 216,229 **** IF current-dir$ count spath$ place THEN - spath$ to path-ptr sadr slen "to-pathend" smask$ place smask$ to mask-ptr ! ['] count-1-file is process-1file 1 seconds FALSE to search-aborted? word-storage TO append-pointer 0 to words-found ! do-files-process ! r> to path-ptr r> to mask-ptr s" WORDCOUNTS.TXT" 2dup 2>r "save-counts --- 214,225 ---- IF current-dir$ count spath$ place THEN sadr slen "to-pathend" smask$ place smask$ to mask-ptr ! ['] count-1-file is process-1file 1 seconds FALSE to search-aborted? word-storage TO append-pointer 0 to words-found ! spath$ (do-files-process r> to mask-ptr s" WORDCOUNTS.TXT" 2dup 2>r "save-counts *************** *** 329,338 **** nadr nlen "to-pathend" "CLIP" open$ place - ( dbu ) path-ptr to org-path-ptr \ save search path - ( dbu ) MAXSTRING localAlloc: path$ \ set default search path - ( dbu ) path$ to path-ptr program-path-init open$ count "path-file \ search through the Forth path drop "CLIP" open$ place - ( dbu ) org-path-ptr to path-ptr \ restore search path open$ ?defext \ make sure it has an extension ELSE close-file drop \ else close if we opened it --- 325,330 ---- |
