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

[factor.git] / basis / alien / prettyprint / prettyprint-tests.factor

diff --git a/basis/alien/prettyprint/prettyprint-tests.factor b/basis/alien/prettyprint/prettyprint-tests.factor
index 09d02507887376ad7cfff974193aea2b2df7a088..b3ca2f0e7fa6bfd0b0a1b02aa0a92dc11b662b80 100644 (file)
--- a/basis/alien/prettyprint/prettyprint-tests.factor
+++ b/basis/alien/prettyprint/prettyprint-tests.factor
@@ -1,73 +1,73 @@
-USING: alien.c-types alien.prettyprint alien.syntax\r
-io.streams.string see tools.test prettyprint\r
-io.encodings.ascii ;\r
-IN: alien.prettyprint.tests\r
-\r
-CONSTANT: FOO 10\r
-\r
-FUNCTION: int function_test ( float x, int[4][FOO] y, char* z, ushort *w ) ;\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-FUNCTION: int function_test\r
-    ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline\r
-" ] [\r
-    [ \ function_test see ] with-string-writer\r
-] unit-test\r
-\r
-FUNCTION-ALIAS: function-test int function_test\r
-    ( float x, int[4][FOO] y, char* z, ushort *w ) ;\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-FUNCTION-ALIAS: function-test int function_test\r
-    ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline\r
-" ] [\r
-    [ \ function-test see ] with-string-writer\r
-] unit-test\r
-\r
-TYPEDEF: c-string[ascii] string-typedef\r
-TYPEDEF: char[1][2][3] array-typedef\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-TYPEDEF: c-string[ascii] string-typedef\r
-" ] [\r
-    [ \ string-typedef see ] with-string-writer\r
-] unit-test\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-TYPEDEF: char[1][2][3] array-typedef\r
-" ] [\r
-    [ \ array-typedef see ] with-string-writer\r
-] unit-test\r
-\r
-C-TYPE: opaque-c-type\r
-\r
-[ "USING: alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-C-TYPE: opaque-c-type\r
-" ] [\r
-    [ \ opaque-c-type see ] with-string-writer\r
-] unit-test\r
-\r
-TYPEDEF: pointer: int pint\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-TYPEDEF: int* pint\r
-" ] [\r
-    [ \ pint see ] with-string-writer\r
-] unit-test\r
-\r
-[ "pointer: int" ] [ pointer: int unparse ] unit-test\r
-\r
-CALLBACK: void callback-test ( int x, float[4] y ) ;\r
-\r
-[ "USING: alien.c-types alien.syntax ;\r
-IN: alien.prettyprint.tests\r
-CALLBACK: void callback-test ( int x, float[4] y ) ;\r
-" ] [\r
-    [ \ callback-test see ] with-string-writer\r
-] unit-test\r
+USING: alien.c-types alien.prettyprint alien.syntax
+io.streams.string see tools.test prettyprint
+io.encodings.ascii ;
+IN: alien.prettyprint.tests
+
+CONSTANT: FOO 10
+
+FUNCTION: int function_test ( float x, int[4][FOO] y, char* z, ushort *w ) ;
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+FUNCTION: int function_test
+    ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline
+" ] [
+    [ \ function_test see ] with-string-writer
+] unit-test
+
+FUNCTION-ALIAS: function-test int function_test
+    ( float x, int[4][FOO] y, char* z, ushort *w ) ;
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+FUNCTION-ALIAS: function-test int function_test
+    ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline
+" ] [
+    [ \ function-test see ] with-string-writer
+] unit-test
+
+TYPEDEF: c-string[ascii] string-typedef
+TYPEDEF: char[1][2][3] array-typedef
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+TYPEDEF: c-string[ascii] string-typedef
+" ] [
+    [ \ string-typedef see ] with-string-writer
+] unit-test
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+TYPEDEF: char[1][2][3] array-typedef
+" ] [
+    [ \ array-typedef see ] with-string-writer
+] unit-test
+
+C-TYPE: opaque-c-type
+
+[ "USING: alien.syntax ;
+IN: alien.prettyprint.tests
+C-TYPE: opaque-c-type
+" ] [
+    [ \ opaque-c-type see ] with-string-writer
+] unit-test
+
+TYPEDEF: pointer: int pint
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+TYPEDEF: int* pint
+" ] [
+    [ \ pint see ] with-string-writer
+] unit-test
+
+[ "pointer: int" ] [ pointer: int unparse ] unit-test
+
+CALLBACK: void callback-test ( int x, float[4] y ) ;
+
+[ "USING: alien.c-types alien.syntax ;
+IN: alien.prettyprint.tests
+CALLBACK: void callback-test ( int x, float[4] y ) ;
+" ] [
+    [ \ callback-test see ] with-string-writer
+] unit-test