Author: wmb Date: 2009-12-06 14:57:39 +0100 (Sun, 06 Dec 2009) New Revision: 1542
Modified: ofw/fs/zipfs.fth Log: Fixed a bug in zipfs's handling of symlinks - it caused dir to hang.
Modified: ofw/fs/zipfs.fth =================================================================== --- ofw/fs/zipfs.fth 2009-12-06 13:56:04 UTC (rev 1541) +++ ofw/fs/zipfs.fth 2009-12-06 13:57:39 UTC (rev 1542) @@ -45,6 +45,8 @@ 0 instance value name-len : zip-name$ ( -- adr len ) zip-name name-len ;
+d# 512 instance buffer: saved-name + d# 512 instance buffer: path-prefix 0 instance value prefix-len : prefix$ ( -- adr len ) path-prefix prefix-len ; @@ -376,7 +378,7 @@ \ di-expansion be-l@ ( id s m h d m y size ) \ ?dup 0= if di-size be-l@ then ( id s m h d m y size ) zip-attrs ( id s m h d m y size attributes ) - zip-name$ ( id s m h d m y size attr name$ ) + zip-name$ saved-name $save ( id s m h d m y size attr name$ ) prefix-len /string ( id s m h d m y size attr name$' ) true ( id s m h d m y size attr name$ true ) exit