From: Jos v.d.V. <jo...@us...> - 2006-07-10 21:31:44
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21259/src Modified Files: paths.f Log Message: Jos: Update to get the path right Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** paths.f 10 Jul 2006 19:29:06 -0000 1.11 --- paths.f 10 Jul 2006 21:31:36 -0000 1.12 *************** *** 46,49 **** --- 46,52 ---- /parse-word count "chdir cr .dir ; + + IN-APPLICATION + : path: ( - ) \ map: 2variable_path-source counted_path create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path-ptr ) *************** *** 51,56 **** ; - IN-APPLICATION - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Multiple directory path search capability for file open --- 54,57 ---- |