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

[factor.git] / basis / ascii / ascii.factor

diff --git a/basis/ascii/ascii.factor b/basis/ascii/ascii.factor
index cf3f62c7c11b916470e524b590681b456ea75b11..d2e12ac55146218a9e43c83b38cead690205afab 100644 (file)
--- a/basis/ascii/ascii.factor
+++ b/basis/ascii/ascii.factor
@@ -1,31 +1,31 @@
-! Copyright (C) 2005, 2009 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: combinators.short-circuit hints kernel math math.order\r
-sequences strings ;\r
-IN: ascii\r
-\r
-: ascii? ( ch -- ? ) 0 127 between? ; inline\r
-: blank? ( ch -- ? ) " \t\n\r" member? ; inline\r
-: letter? ( ch -- ? ) CHAR: a CHAR: z between? ; inline\r
-: LETTER? ( ch -- ? ) CHAR: A CHAR: Z between? ; inline\r
-: digit? ( ch -- ? ) CHAR: 0 CHAR: 9 between? ; inline\r
-: printable? ( ch -- ? ) CHAR: \s CHAR: ~ between? ; inline\r
-: control? ( ch -- ? ) { [ 0 0x1F between? ] [ 0x7F = ] } 1|| ; inline\r
-: quotable? ( ch -- ? ) { [ printable? ] [ "\"\\" member? not ] } 1&& ; inline\r
-: Letter? ( ch -- ? ) { [ letter? ] [ LETTER? ] } 1|| ; inline\r
-: alpha? ( ch -- ? ) { [ Letter? ] [ digit? ] } 1|| ; inline\r
-: ch>lower ( ch -- lower ) dup LETTER? [ 0x20 + ] when ; inline\r
-: >lower ( str -- lower ) [ ch>lower ] map ;\r
-: ch>upper ( ch -- upper ) dup letter? [ 0x20 - ] when ; inline\r
-: >upper ( str -- upper ) [ ch>upper ] map ;\r
-: >words ( str -- words )\r
-    [ dup empty? not ] [\r
-        dup [ blank? ] find drop\r
-        [ [ 1 ] when-zero cut-slice swap ]\r
-        [ f 0 rot [ length ] keep <slice> ] if*\r
-    ] produce nip ;\r
-: capitalize ( str -- str' ) unclip [ >lower ] [ ch>upper ] bi* prefix ;\r
-: >title ( str -- title ) >words [ capitalize ] map concat ;\r
-\r
-HINTS: >lower string ;\r
-HINTS: >upper string ;\r
+! Copyright (C) 2005, 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: combinators.short-circuit hints kernel math math.order
+sequences strings ;
+IN: ascii
+
+: ascii? ( ch -- ? ) 0 127 between? ; inline
+: blank? ( ch -- ? ) " \t\n\r" member? ; inline
+: letter? ( ch -- ? ) CHAR: a CHAR: z between? ; inline
+: LETTER? ( ch -- ? ) CHAR: A CHAR: Z between? ; inline
+: digit? ( ch -- ? ) CHAR: 0 CHAR: 9 between? ; inline
+: printable? ( ch -- ? ) CHAR: \s CHAR: ~ between? ; inline
+: control? ( ch -- ? ) { [ 0 0x1F between? ] [ 0x7F = ] } 1|| ; inline
+: quotable? ( ch -- ? ) { [ printable? ] [ "\"\\" member? not ] } 1&& ; inline
+: Letter? ( ch -- ? ) { [ letter? ] [ LETTER? ] } 1|| ; inline
+: alpha? ( ch -- ? ) { [ Letter? ] [ digit? ] } 1|| ; inline
+: ch>lower ( ch -- lower ) dup LETTER? [ 0x20 + ] when ; inline
+: >lower ( str -- lower ) [ ch>lower ] map ;
+: ch>upper ( ch -- upper ) dup letter? [ 0x20 - ] when ; inline
+: >upper ( str -- upper ) [ ch>upper ] map ;
+: >words ( str -- words )
+    [ dup empty? not ] [
+        dup [ blank? ] find drop
+        [ [ 1 ] when-zero cut-slice swap ]
+        [ f 0 rot [ length ] keep <slice> ] if*
+    ] produce nip ;
+: capitalize ( str -- str' ) unclip [ >lower ] [ ch>upper ] bi* prefix ;
+: >title ( str -- title ) >words [ capitalize ] map concat ;
+
+HINTS: >lower string ;
+HINTS: >upper string ;