]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert Windows console encoding since the DOS prompt is not really cp1252
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 27 Jan 2009 10:29:44 +0000 (04:29 -0600)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 27 Jan 2009 10:29:44 +0000 (04:29 -0600)
basis/io/backend/windows/windows.factor
core/io/backend/backend.factor

index bf01f1d621dca16b014520d3ac66191255931c78..6ecbc49f2af249a6f701d6f0c0434444bcc013cb 100755 (executable)
@@ -1,7 +1,7 @@
 ! Copyright (C) 2004, 2008 Mackenzie Straight, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types arrays destructors io io.backend io.buffers
-io.files io.ports io.binary io.timeouts io.encodings.8-bit
+USING: alien alien.c-types arrays destructors io io.backend
+io.buffers io.files io.ports io.binary io.timeouts
 windows.errors strings kernel math namespaces sequences windows
 windows.kernel32 windows.shell32 windows.types windows.winsock
 splitting continuations math.bitwise system accessors ;
@@ -51,6 +51,4 @@ HOOK: add-completion io-backend ( port -- )
 : default-security-attributes ( -- obj )
     "SECURITY_ATTRIBUTES" <c-object>
     "SECURITY_ATTRIBUTES" heap-size
-    over set-SECURITY_ATTRIBUTES-nLength ;
-
-M: windows console-encoding windows-1252 ;
\ No newline at end of file
+    over set-SECURITY_ATTRIBUTES-nLength ;
\ No newline at end of file
index dc22c7a9755e0d0de3493d8340413e8101849a95..322a6031446efb172e7959c71a0d7a336563c66d 100644 (file)
@@ -14,15 +14,11 @@ HOOK: init-io io-backend ( -- )
 
 HOOK: (init-stdio) io-backend ( -- stdin stdout stderr )
 
-HOOK: console-encoding os ( -- encoding )
-
-M: object console-encoding utf8 ;
-
 : init-stdio ( -- )
     (init-stdio)
-    [ console-encoding <decoder> input-stream set-global ]
-    [ console-encoding <encoder> output-stream set-global ]
-    [ console-encoding <encoder> error-stream set-global ] tri* ;
+    [ utf8 <decoder> input-stream set-global ]
+    [ utf8 <encoder> output-stream set-global ]
+    [ utf8 <encoder> error-stream set-global ] tri* ;
 
 HOOK: io-multiplex io-backend ( us -- )