core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / cpu / 8080 / test / test.factor

diff --git a/extra/cpu/8080/test/test.factor b/extra/cpu/8080/test/test.factor
index a7b1624bda491f1ba9ef9c7a7e47704922bfaedd..8bbf743602f4b070f402dcd34aa828d1a38d216a 100644 (file)
--- a/extra/cpu/8080/test/test.factor
+++ b/extra/cpu/8080/test/test.factor
@@ -1,70 +1,70 @@
-USING: \r
-    accessors\r
-    combinators\r
-    cpu.8080\r
-    cpu.8080.emulator\r
-    io\r
-    io.files\r
-    io.encodings.ascii\r
-    kernel \r
-    math\r
-    math.bits\r
-    sequences\r
-    tools.time\r
-;\r
-IN: cpu.8080.test\r
-\r
-: step ( cpu -- )\r
-  #! Run a single 8080 instruction\r
-  [ read-instruction ] keep ! n cpu\r
-  over get-cycles over inc-cycles\r
-  [ swap instructions nth call( cpu -- ) ] keep\r
-  [ pc>> 0xFFFF bitand ] keep \r
-  [ pc<< ] keep \r
-  process-interrupts ;\r
-\r
-: test-step ( cpu -- cpu )\r
-  [ step ] keep dup cpu. ;\r
-\r
-: invaders ( -- seq )\r
-  {\r
-    { 0x0000 "invaders/invaders.h" }\r
-    { 0x0800 "invaders/invaders.g" }\r
-    { 0x1000 "invaders/invaders.f" }\r
-    { 0x1800 "invaders/invaders.e" }\r
-  } ;\r
-\r
-: test-cpu ( -- cpu )\r
-  <cpu> invaders over load-rom* dup cpu. ;\r
-\r
-: test-n ( n -- )\r
-  test-cpu swap [ test-step ] times drop ;\r
-\r
-: run-n ( cpu n -- cpu )\r
-  [ dup step ] times ;\r
-\r
-: each-8bit ( n quot -- )\r
-  [ 8 <bits> ] dip each ; inline\r
-\r
-: >ppm ( cpu filename -- cpu )\r
-  #! Dump the current screen image to a ppm image file with the given name.\r
-  ascii [\r
-    "P3" print\r
-    "256 224" print\r
-    "1" print\r
-    224 [\r
-      32 [\r
-        over 32 * over +  0x2400 + ! cpu h w addr\r
-        [ pick ] dip swap ram>> nth [\r
-          [\r
-            " 0 0 0" write\r
-          ] [\r
-            " 1 1 1" write\r
-          ] if\r
-        ] each-8bit drop\r
-      ] each drop nl\r
-    ] each\r
-  ] with-file-writer ;\r
-\r
-: time-test ( -- )\r
-  test-cpu [ 1000000 run-n drop ] time ;\r
+USING:
+    accessors
+    combinators
+    cpu.8080
+    cpu.8080.emulator
+    io
+    io.files
+    io.encodings.ascii
+    kernel
+    math
+    math.bits
+    sequences
+    tools.time
+;
+IN: cpu.8080.test
+
+: step ( cpu -- )
+  #! Run a single 8080 instruction
+  [ read-instruction ] keep ! n cpu
+  over get-cycles over inc-cycles
+  [ swap instructions nth call( cpu -- ) ] keep
+  [ pc>> 0xFFFF bitand ] keep
+  [ pc<< ] keep
+  process-interrupts ;
+
+: test-step ( cpu -- cpu )
+  [ step ] keep dup cpu. ;
+
+: invaders ( -- seq )
+  {
+    { 0x0000 "invaders/invaders.h" }
+    { 0x0800 "invaders/invaders.g" }
+    { 0x1000 "invaders/invaders.f" }
+    { 0x1800 "invaders/invaders.e" }
+  } ;
+
+: test-cpu ( -- cpu )
+  <cpu> invaders over load-rom* dup cpu. ;
+
+: test-n ( n -- )
+  test-cpu swap [ test-step ] times drop ;
+
+: run-n ( cpu n -- cpu )
+  [ dup step ] times ;
+
+: each-8bit ( n quot -- )
+  [ 8 <bits> ] dip each ; inline
+
+: >ppm ( cpu filename -- cpu )
+  #! Dump the current screen image to a ppm image file with the given name.
+  ascii [
+    "P3" print
+    "256 224" print
+    "1" print
+    224 [
+      32 [
+        over 32 * over +  0x2400 + ! cpu h w addr
+        [ pick ] dip swap ram>> nth [
+          [
+            " 0 0 0" write
+          ] [
+            " 1 1 1" write
+          ] if
+        ] each-8bit drop
+      ] each drop nl
+    ] each
+  ] with-file-writer ;
+
+: time-test ( -- )
+  test-cpu [ 1000000 run-n drop ] time ;