vocabs.platforms: Add <LINUX LINUX> sections that ignore code for the wrong platform.

diff --git a/basis/vocabs/platforms/authors.txt b/basis/vocabs/platforms/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
+++ b/basis/vocabs/platforms/authors.txt
@@ -0,0 +1 @@
+Doug Coleman

diff --git a/basis/vocabs/platforms/platforms.factor b/basis/vocabs/platforms/platforms.factor
new file mode 100644 (file)
index 0000000..4cab775
--- /dev/null
+++ b/basis/vocabs/platforms/platforms.factor
@@ -0,0 +1,36 @@
+! Copyright (C) 2018 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors compiler.units kernel multiline parser
+sequences splitting system vocabs.parser ;
+IN: vocabs.platforms
+
+: with-vocabulary ( quot suffix -- )
+    [
+        [ [ current-vocab name>> ] dip ?tail drop ]
+        [ append ] bi set-current-vocab
+        call
+    ] [
+        [ current-vocab name>> ] dip ?tail drop set-current-vocab
+    ] bi ; inline
+
+: parse-platform-section ( string suffix -- )
+    [
+        [ [ string-lines parse-lines ] curry with-nested-compilation-unit ]
+        curry
+    ] dip with-vocabulary drop ; inline
+
+SYNTAX: <UNIX
+    "UNIX>" parse-multiline-string
+    os unix? [ ".unix" parse-platform-section ] [ drop ] if ;
+
+SYNTAX: <MACOSX
+    "MACOSX>" parse-multiline-string
+    os macosx? [ ".macosx" parse-platform-section ] [ drop ] if ;
+
+SYNTAX: <LINUX
+    "LINUX>" parse-multiline-string
+    os linux? [ ".linux" parse-platform-section ] [ drop ] if ;
+
+SYNTAX: <WINDOWS
+    "WINDOWS>" parse-multiline-string
+    os windows? [ ".windows" parse-platform-section ] [ drop ] if ;