Add 'unportable' tag in place of hard-coded list of 'dangerous' vocabs in load-everything

basis/calendar/unix/tags.txt

@@ -0,0 +1 @@
+unportable

basis/calendar/windows/tags.txt

@@ -1 +1,2 @@
+unportable
 windows

basis/cocoa/application/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/callbacks/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/dialogs/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/enumeration/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/messages/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/nibs/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/pasteboard/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/plists/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/runtime/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/subclassing/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/tags.txt

@@ -1 +1,2 @@
+unportable
 bindings

basis/cocoa/types/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/views/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cocoa/windows/tags.txt

@@ -0,0 +1 @@
+unportable

basis/core-foundation/fsevents/tags.txt

@@ -0,0 +1 @@
+unportable

basis/core-foundation/run-loop/tags.txt

@@ -0,0 +1 @@
+unportable

basis/core-foundation/tags.txt

@@ -1 +1,2 @@
+unportable
 bindings

basis/cpu/ppc/allot/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/ppc/architecture/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/ppc/assembler/backend/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/ppc/intrinsics/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/ppc/tags.txt

@@ -1 +1,2 @@
+unportable
 compiler

basis/cpu/x86/32/tags.txt

@@ -1 +1,2 @@
+unportable
 compiler

basis/cpu/x86/64/tags.txt

@@ -1 +1,2 @@
+unportable
 compiler

basis/cpu/x86/allot/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/x86/architecture/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/x86/assembler/syntax/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/x86/intrinsics/tags.txt

@@ -0,0 +1 @@
+unportable

basis/cpu/x86/sse2/tags.txt

@@ -0,0 +1 @@
+unportable

basis/disjoint-sets/disjoint-sets.factor

@@ -86,3 +86,7 @@ M:: disjoint-set equate ( a b disjoint-set -- )
         [ swap ] [ over disjoint-set inc-rank ] [ ] branch
         disjoint-set link-sets
     ] if ;
+
+M: disjoint-set clone
+    [ parents>> ] [ ranks>> ] [ counts>> ] tri [ clone ] tri@
+    disjoint-set boa ;

basis/editors/editpadpro/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/editplus/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/emacs/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/emeditor/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/gvim/backend/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/gvim/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/gvim/unix/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/gvim/windows/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/jedit/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/notepadpp/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/scite/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/ted-notepad/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/textmate/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/textwrangler/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/ultraedit/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/vim/generate-syntax/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/vim/tags.txt

@@ -0,0 +1 @@
+unportable

basis/editors/wordpad/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/backend/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/bsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/epoll/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/files/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/files/unique/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/freebsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/kqueue/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/launcher/parser/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/launcher/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/linux/monitors/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/linux/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/macosx/monitors/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/macosx/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/mmap/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/netbsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/openbsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/pipes/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/select/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/sockets/secure/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/sockets/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/unix/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/files/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/files/unique/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/launcher/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/mmap/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/backend/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/files/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/launcher/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/monitors/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/pipes/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/privileges/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/sockets/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/nt/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/privileges/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/sockets/tags.txt

@@ -0,0 +1 @@
+unportable

basis/io/windows/tags.txt

@@ -1 +1,2 @@
+unportable
 windows

basis/random/unix/tags.txt

@@ -0,0 +1 @@
+unportable

basis/random/windows/tags.txt

@@ -1 +1,2 @@
+unportable
 windows

basis/tools/deploy/macosx/tags.txt

@@ -1 +1,2 @@
+unportable
 tools

basis/tools/deploy/unix/tags.txt

@@ -1 +1,2 @@
+unportable
 tools

basis/tools/deploy/windows/tags.txt

@@ -1,2 +1,3 @@
+unportable
 windows
 tools

basis/tools/vocabs/vocabs.factor

@@ -232,39 +232,15 @@ M: vocab-link summary vocab-summary ;
 MEMO: all-vocabs-seq ( -- seq )
     all-vocabs values concat ;
 
-: dangerous? ( name -- ? )
+: unportable? ( name -- ? )
-    #! Hack
+    vocab-tags "unportable" swap member? ;
-    {
-        { [ "cpu." ?head ] [ t ] }
-        { [ "io.unix" ?head ] [ t ] }
-        { [ "io.windows" ?head ] [ t ] }
-        { [ "ui.x11" ?head ] [ t ] }
-        { [ "ui.windows" ?head ] [ t ] }
-        { [ "ui.cocoa" ?head ] [ t ] }
-        { [ "cocoa" ?head ] [ t ] }
-        { [ "core-foundation" ?head ] [ t ] }
-        { [ "vocabs.loader.test" ?head ] [ t ] }
-        { [ "editors." ?head ] [ t ] }
-        { [ ".windows" ?tail ] [ t ] }
-        { [ ".unix" ?tail ] [ t ] }
-        { [ "unix" ?head ] [ t ] }
-        { [ ".linux" ?tail ] [ t ] }
-        { [ ".bsd" ?tail ] [ t ] }
-        { [ ".macosx" ?tail ] [ t ] }
-        { [ "windows." ?head ] [ t ] }
-        { [ "cocoa" ?head ] [ t ] }
-        { [ ".test" ?tail ] [ t ] }
-        { [ "raptor" ?head ] [ t ] }
-        { [ dup "tools.deploy.app" = ] [ t ] }
-        [ f ]
-    } cond nip ;
 
-: filter-dangerous ( seq -- seq' )
+: filter-unportable ( seq -- seq' )
-    [ vocab-name dangerous? not ] filter ;
+    [ vocab-name unportable? not ] filter ;
 
 : try-everything ( -- failures )
     all-vocabs-seq
-    filter-dangerous
+    filter-unportable
     require-all ;
 
 : load-everything ( -- )

basis/unix/bsd/freebsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/bsd/macosx/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/bsd/netbsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/bsd/openbsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/bsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/kqueue/freebsd/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/kqueue/macosx/tags.txt

@@ -0,0 +1 @@
+unportable

basis/unix/kqueue/netbsd/tags.txt

@@ -0,0 +1 @@
+unportable