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

modern: delete some paths.

locals-and-roots
Doug Coleman 2016-06-22 15:09:15 -07:00
parent c519a52b57
commit 24bfc798fc
2 changed files with 2 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
core/modern/modern.factor
View File

@ -552,7 +552,6 @@ CONSTANT: factor-lexing-rules {
".private" ?tail drop ".private" ?tail drop
vocab-source-path path>literals ; vocab-source-path path>literals ;
! What a lexer body looks like, produced by make-lexer ! What a lexer body looks like, produced by make-lexer
! : lex ( n/f string -- n'/f string literal ) ! : lex ( n/f string -- n'/f string literal )
! "!`\\\"[{(\s\r\n" slice-til-either { ! "!`\\\"[{(\s\r\n" slice-til-either {
@ -567,27 +566,4 @@ CONSTANT: factor-lexing-rules {
! { char: \r [ read-token-or-whitespace ] } ! { char: \r [ read-token-or-whitespace ] }
! { char: \n [ read-token-or-whitespace ] } ! { char: \n [ read-token-or-whitespace ] }
! { f [ f like dup [ make-tag-literal ] when ] } ! { f [ f like dup [ make-tag-literal ] when ] }
! } case ; inline ! } case ; inline
![[
vocab-roots get [ vocabs-from reject-some-paths ] map concat
{
"specialized-arrays" "specialized-vectors"
"math.blas.matrices" "math.blas.vectors" "math.vectors.simd"
"math.vectors.simd.cords" "game.debug" "gpu.util" "gpu.effects.blur"
"gpu.effects.step" "model-viewer" "terrain.shaders" "spheres"
"bunny.cel-shaded" "bunny.outlined"
} diff
[ modern-source-path dup <pathname> . path>literals ] map-zip
vocab-roots get [ vocabs-from reject-some-paths ] map concat
{
"specialized-arrays" "specialized-vectors"
"math.blas.matrices" "math.blas.vectors" "math.vectors.simd"
"math.vectors.simd.cords" "game.debug" "gpu.util" "gpu.effects.blur"
"gpu.effects.step" "model-viewer" "terrain.shaders" "spheres"
"bunny.cel-shaded" "bunny.outlined"
} diff
[ modern-source-path ] map
[ ] rewrite-paths
]]

13
core/modern/paths/paths.factor
View File

@ -55,8 +55,6 @@ IN: modern.paths
"resource:core/vocabs/loader/test/n/n.factor" "resource:core/vocabs/loader/test/n/n.factor"
"resource:core/vocabs/loader/test/o/o.factor" "resource:core/vocabs/loader/test/o/o.factor"
"resource:core/vocabs/loader/test/p/p.factor" "resource:core/vocabs/loader/test/p/p.factor"
"resource:extra/math/blas/vectors/vectors.factor" ! need .modern file
"resource:extra/math/blas/matrices/matrices.factor" ! need .modern file
} diff } diff
! Don't parse .modern files yet ! Don't parse .modern files yet
[ ".modern" tail? ] reject ; [ ".modern" tail? ] reject ;
@ -68,14 +66,6 @@ IN: modern.paths
: modern-tests-paths ( names -- paths ) : modern-tests-paths ( names -- paths )
[ vocab-tests-path ] map filter-exists reject-some-paths ; [ vocab-tests-path ] map filter-exists reject-some-paths ;
: unsupported-vocabs ( -- seq )
{
"specialized-arrays" "specialized-vectors"
"math.blas.matrices" "math.blas.vectors" "math.vectors.simd"
"math.vectors.simd.cords"
} ;
: all-vocabs ( -- seq ) : all-vocabs ( -- seq )
[ [
vocab-roots get [ vocabs-from ] map concat vocab-roots get [ vocabs-from ] map concat
@ -84,10 +74,9 @@ IN: modern.paths
: all-vocab-paths ( -- seq ) : all-vocab-paths ( -- seq )
[ [
all-vocabs less-core-test-vocabs all-vocabs less-core-test-vocabs
unsupported-vocabs diff
[ modern-source-paths ] [ modern-docs-paths ] [ modern-tests-paths ] tri [ modern-source-paths ] [ modern-docs-paths ] [ modern-tests-paths ] tri
] { } append-outputs-as reject-some-paths filter-exists ; ] { } append-outputs-as reject-some-paths filter-exists ;
: all-paths ( -- seq ) : all-paths ( -- seq )
vocab-roots get [ [ ".factor" tail? ] find-all-files ] map concat vocab-roots get [ [ ".factor" tail? ] find-all-files ] map concat
reject-some-paths ; reject-some-paths ;