Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / unmaintained / 4DNav / space-file-decoder / space-file-decoder.factor

diff --git a/unmaintained/4DNav/space-file-decoder/space-file-decoder.factor b/unmaintained/4DNav/space-file-decoder/space-file-decoder.factor
index 8ef5c9e906a454486da8c7d6ff6e5e4f9755cdf7..872ddbcee3701f5c63aaa70684eb8b5035b329b5 100755 (executable)
--- a/unmaintained/4DNav/space-file-decoder/space-file-decoder.factor
+++ b/unmaintained/4DNav/space-file-decoder/space-file-decoder.factor
@@ -1,26 +1,34 @@
 ! Copyright (C) 2008 Jeff Bigot\r
 ! See http://factorcode.org/license.txt for BSD license.\r
-USING: adsoda xml xml.utilities xml.dispatch accessors combinators\r
-sequences math.parser kernel splitting values continuations ;\r
+USING: adsoda xml xml.utilities xml.dispatch accessors \r
+combinators sequences math.parser kernel splitting values \r
+continuations ;\r
 IN: 4DNav.space-file-decoder\r
 \r
-: decode-number-array ( x -- y )  "," split [ string>number ] map ;\r
+: decode-number-array ( x -- y )  \r
+    "," split [ string>number ] map ;\r
 \r
 PROCESS: adsoda-read-model ( tag -- )\r
 \r
-TAG: dimension adsoda-read-model children>> first string>number ;\r
-TAG: direction adsoda-read-model children>> first decode-number-array ;\r
-TAG: color     adsoda-read-model children>> first decode-number-array ;\r
-TAG: name      adsoda-read-model children>> first ;\r
-TAG: face      adsoda-read-model children>> first decode-number-array ;\r
+TAG: dimension adsoda-read-model \r
+    children>> first string>number ;\r
+TAG: direction adsoda-read-model \r
+    children>> first decode-number-array ;\r
+TAG: color     adsoda-read-model \r
+    children>> first decode-number-array ;\r
+TAG: name      adsoda-read-model \r
+    children>> first ;\r
+TAG: face      adsoda-read-model \r
+    children>> first decode-number-array ;\r
 \r
 TAG: solid adsoda-read-model \r
     <solid> swap  \r
     { \r
-        [ "dimension" tag-named adsoda-read-model >>dimension ] \r
+        [ "dimension" tag-named adsoda-read-model >>dimension ]\r
         [ "name"      tag-named adsoda-read-model >>name ] \r
         [ "color"     tag-named adsoda-read-model >>color ] \r
-        [ "face"      tags-named [ adsoda-read-model cut-solid ] each ] \r
+        [ "face"      \r
+            tags-named [ adsoda-read-model cut-solid ] each ] \r
     } cleave\r
     ensure-adjacencies\r
 ;\r
@@ -28,7 +36,7 @@ TAG: solid adsoda-read-model
 TAG: light adsoda-read-model \r
    <light> swap  \r
     { \r
-        [ "direction" tag-named adsoda-read-model >>direction ] \r
+        [ "direction" tag-named adsoda-read-model >>direction ]\r
         [ "color"     tag-named adsoda-read-model >>color ] \r
     } cleave\r
 ;\r
@@ -36,11 +44,14 @@ TAG: light adsoda-read-model
 TAG: space adsoda-read-model \r
     <space> swap  \r
     { \r
-        [ "dimension" tag-named adsoda-read-model >>dimension ] \r
+        [ "dimension" tag-named adsoda-read-model >>dimension ]\r
         [ "name"      tag-named adsoda-read-model >>name ] \r
-        [ "color"     tag-named adsoda-read-model >>ambient-color ] \r
-        [ "solid"     tags-named [ adsoda-read-model suffix-solids ] each ] \r
-        [ "light"     tags-named [ adsoda-read-model suffix-lights ] each ]         \r
+        [ "color"     tag-named \r
+            adsoda-read-model >>ambient-color ] \r
+        [ "solid"     tags-named \r
+            [ adsoda-read-model suffix-solids ] each ] \r
+        [ "light"     tags-named \r
+            [ adsoda-read-model suffix-lights ] each ]\r
     } cleave\r
 ;\r
 \r