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

globs: simpler separator regexp.

windows-drag
John Benediktsson 2019-03-17 13:13:27 -07:00
parent 9f0bce7622
commit 31f309a829
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/globs/globs.factor
View File

@ -7,10 +7,10 @@ unicode multiline ;
IN: globs
: not-path-separator ( -- sep )
os windows? R/ [^\\/\\]/ R/ [^\\/]/ ? ; foldable
os windows? R/ [^\\/]/ R/ [^/]/ ? ; foldable
: wild-path-separator ( -- sep )
os windows? R/ [^\\/\\][\\/\\]|[^\\/\\]/ R/ [^\\/][\\/]|[^\\/]/ ? ; foldable
os windows? R/ [^\\/][\\/]|[^\\/]/ R/ [^/][/]|[^/]/ ? ; foldable
EBNF: <glob> [=[