Commit c72d0b29 authored by bp's avatar bp

Added unescapes

git-svn-id: https://forth-ev.de/repos/bigforth@2121 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 14c222e7
......@@ -59,3 +59,8 @@ default-delimiter
: substitute ( addr1 len1 addr2 len2 -- addr2 len3 n )
2swap $substitute >r
2swap rot umin 2dup >r >r move r> r> r> ;
: unescapes ( addr1 u1 dest -- dest u2 ) dp push dup >r dp !
bounds ?DO
I c@ dup '%' = IF dup c, THEN c,
LOOP r> here over - ;
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment