[OpenBIOS] r702 - ofw/core
svn at openbios.org
svn at openbios.org
Mon Oct 29 17:21:34 CET 2007
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 )
More information about the OpenBIOS
mailing list