alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Normalize ./

Browse Source
This commit is contained in:
Brad Nelson
2022-04-24 14:37:17 -07:00
parent 287974a58c
commit 0495134a0f
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
common/including.fs
View File

@ -25,6 +25,10 @@ internals definitions
2dup ends/ if exit then 1- 2dup ends/ if exit then 1-
repeat ; repeat ;
: starts./ ( a n -- f )
2 < if drop 0 exit then
2 s" ./" str= ;
: starts../ ( a n -- f ) : starts../ ( a n -- f )
3 < if drop 0 exit then 3 < if drop 0 exit then
3 s" ../" str= ; 3 s" ../" str= ;
@ -54,6 +58,10 @@ internals definitions
a# b# + { r# } r# cell+ cell+ allocate throw { r } a# b# + { r# } r# cell+ cell+ allocate throw { r }
2 cells +to r 2 cells +to r
b c@ [char] / = if 0 to a# then b c@ [char] / = if 0 to a# then
begin b b# starts./ while
2 +to b -2 +to b#
a# b# + to r#
repeat
begin b b# starts../ a# 0<> and while begin b b# starts../ a# 0<> and while
3 +to b -3 +to b# 3 +to b -3 +to b#
a a# dirname to a# to a a a# dirname to a# to a