Author: wmb Date: 2007-10-29 17:21:34 +0100 (Mon, 29 Oct 2007) New Revision: 702
Modified: ofw/core/filecmds.fth Log: In ofw/core/filecmds.fth, parse the volume name with "lex" instead of "right-parse-string", thus fixing a rarely-occuring bug with argument strings that contain embedded ':' characters.
Modified: ofw/core/filecmds.fth =================================================================== --- ofw/core/filecmds.fth 2007-10-29 16:17:51 UTC (rev 701) +++ ofw/core/filecmds.fth 2007-10-29 16:21:34 UTC (rev 702) @@ -60,11 +60,7 @@
: file&dir ( path$ -- basename$ dirname$ ) [char] \ right-split-string ; : parse-volume ( $1 -- path$ volume$ ) - [char] : right-split-string ( path$ volume$:|null$ ) - dup 0= if ( path$ null$ ) - 2drop current-volume-name ( path$ volume$: ) - then ( path$ volume$: ) - 1- \ Remove the : ( path$ volume$ ) + " :" lex if drop else current-volume-name 1- then ( path$ volume$: ) ; : drive-volume ( -- adr len false | xt true ) drive-name count dup if ( adr len )