steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs.refresh.monitor: use resolve-symlinks 

It already exists and actually works on windows
db4
Joe Groff 2011-11-16 20:35:42 -08:00
parent 72feb14521
commit 07f206b31b
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/vocabs/refresh/monitor/monitor.factor
View File

@ -17,15 +17,11 @@ TR: convert-separators "/\\" ".." ;
: path>vocab-name ( path -- vocab ) : path>vocab-name ( path -- vocab )
dup ".factor" tail? [ parent-directory ] when ; dup ".factor" tail? [ parent-directory ] when ;
: scrub-links-in-path ( path -- path' )
normalize-path path-components "/"
[ append-path follow-links ] reduce ;
: chop-vocab-root ( path -- path' ) : chop-vocab-root ( path -- path' )
"resource:" prepend-path normalize-path "resource:" prepend-path normalize-path
dup vocab-roots get dup vocab-roots get
[ [ normalize-path ] map ] [ [ normalize-path ] map ]
[ [ scrub-links-in-path ] map ] bi append [ [ resolve-symlinks ] map ] bi append
[ head? ] with find nip [ head? ] with find nip
?head drop ; ?head drop ;