Menu
▾
▴
[Win32forth-cvs] win32forth/src editor_io.f,NONE,1.1 ANSFILE.F,1.2,1.3 CALLBACK.f,1.3,1.4 CLASSDBG.F,1.5,1.6 COLORS.F,1.1,1.2 CONTROLS.F,1.3,1.4 Class.f,1.4,1.5 DBGSRC1.F,1.2,1.3 DIS486.F,1.3,1.4 DTHREAD.F,1.1,1.2 Dc.f,1.4,1.5 Debug.f,1.9,1.10 ENVIRON.F,1.1,1.2 EXCEPTIO.F,1.5,1.6 Extend.f,1.8,1.9 FLOAT.F,1.15,1.16 FONTS.F,1.4,1.5 GENERIC.F,1.2,1.3 INTERPIF.F,1.1,1.2 MAPFILE.F,1.7,1.8 Menu.f,1.3,1.4 Nforget.f,1.1,1.2 Order.f,1.3,1.4 POINTER.F,1.3,1.4 Primutil.f,1.9,1.10 REGISTRY.F,1.6,1.7 SCRNCTRL.F,1.1,1.2 SEE.F,1.5,1.6 Utils.f,1.9,1.10 WORDS.F,1.5,1.6 Window.f,1.3,1.4 imageman.f,1.7,1.8 paths.f,1.4,1.5 xfiledlg.f,1.2,1.3
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31814/src Modified Files: ANSFILE.F CALLBACK.f CLASSDBG.F COLORS.F CONTROLS.F Class.f DBGSRC1.F DIS486.F DTHREAD.F Dc.f Debug.f ENVIRON.F EXCEPTIO.F Extend.f FLOAT.F FONTS.F GENERIC.F INTERPIF.F MAPFILE.F Menu.f Nforget.f Order.f POINTER.F Primutil.f REGISTRY.F SCRNCTRL.F SEE.F Utils.f WORDS.F Window.f imageman.f paths.f xfiledlg.f Added Files: editor_io.f Log Message: - Marked >BOLD , >NORM and set-font as depreacted (they don't work anyway) - Marked SP>COL as depreacted (use COL instead) - Removed >BOLD and >NORM from the files - Removed the supporting code for WinEd's internal console window. - Moved then code for communication between WinEd/SciEdit from Mapfile.f into EditorIO.f. - Moved some code around in the files to minimize the file dependencices (there can more done...) - Marked the xxx-pointer words in ScrnCtrl.f as depreacted (use the xxx-cursor words from utils.f) instead. Index: ANSFILE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ANSFILE.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ANSFILE.F 3 May 2005 10:04:30 -0000 1.2 --- ANSFILE.F 29 Aug 2005 15:56:27 -0000 1.3 *************** *** 191,195 **** : .dir->file-size ( -- ;print file size ) _win32-find-data @ FILE_ATTRIBUTE_DIRECTORY and ! if >bold ." dir " >norm else _win32-find-data 8 cells+ @ dup 12 u,.r space \ print nFileSizeLow total-file-bytes +! --- 191,195 ---- : .dir->file-size ( -- ;print file size ) _win32-find-data @ FILE_ATTRIBUTE_DIRECTORY and ! if ." dir " else _win32-find-data 8 cells+ @ dup 12 u,.r space \ print nFileSizeLow total-file-bytes +! *************** *** 213,223 **** : print-dir-files ( adr slen -- ) ! cr >bold ." Directory of: " 2dup type >norm ['] _print-dir-files catch IF 2drop \ discard abort results THEN find-close drop ! cr >bold #files @ . ." Files displayed, using " ! total-file-bytes @ 1 u,.r ." bytes of disk." >norm ; : dir ( -<name>- ) \ name = f.e where f or e can be ascii's, * , or ? --- 213,223 ---- : print-dir-files ( adr slen -- ) ! cr ." Directory of: " 2dup type ['] _print-dir-files catch IF 2drop \ discard abort results THEN find-close drop ! cr #files @ . ." Files displayed, using " ! total-file-bytes @ 1 u,.r ." bytes of disk." ; : dir ( -<name>- ) \ name = f.e where f or e can be ascii's, * , or ? *************** *** 261,268 **** EXIT \ leave if no names specified THEN ! cr >bold ." Rename Files: " RenameFrom$ count type ." from: " RenamePart1$ count type ." To: " ! RenamePart2$ count type >norm 0 #files ! \ reset # of files in dir RenameFrom$ count find-first-file nip 0= \ adrd ior - find first file --- 261,268 ---- EXIT \ leave if no names specified THEN ! cr ." Rename Files: " RenameFrom$ count type ." from: " RenamePart1$ count type ." To: " ! RenamePart2$ count type 0 #files ! \ reset # of files in dir RenameFrom$ count find-first-file nip 0= \ adrd ior - find first file *************** *** 275,279 **** do-rename-afile REPEAT find-close drop ! cr >bold #files @ . ." Files renamed" >norm ELSE cr ." No matching files Found" \ if file is not found, exit THEN ; --- 275,279 ---- do-rename-afile REPEAT find-close drop ! cr #files @ . ." Files renamed" ELSE cr ." No matching files Found" \ if file is not found, exit THEN ; *************** *** 281,283 **** IN-APPLICATION - |
