FUEL: Remote listener functionality factored to a separate vocab.

extra/fuel/fuel.factor

@@ -2,10 +2,10 @@
 ! See http://factorcode.org/license.txt for BSD license.
 
 USING: accessors arrays assocs compiler.units definitions fuel.eval
-fuel.help help.markup help.topics io io.encodings.utf8 io.pathnames
-io.servers.connection kernel listener math math.order memoize
-namespaces parser sequences sets sorting tools.crossref tools.scaffold
-tools.vocabs vocabs vocabs.loader vocabs.parser words ;
+fuel.help fuel.remote help.markup help.topics io.pathnames kernel math
+math.order memoize namespaces parser sequences sets sorting
+tools.crossref tools.scaffold tools.vocabs vocabs vocabs.loader
+vocabs.parser words ;
 
 IN: fuel
 
@@ -177,19 +177,4 @@ PRIVATE>
 
 ! Remote connection
 
-: fuel-start-server ( port -- )
-    <threaded-server>
-        "tty-server" >>name
-        utf8 >>encoding
-        swap local-server >>insecure
-        [ listener ] >>handler
-        f >>timeout
-    start-server ;
-
-: fuel-start-remote-listener ( port/f -- )
-    "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
-    write nl flush number? [ 9000 ] unless* fuel-start-server ;
-
-: fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
-
 MAIN: fuel-start-remote-listener*

extra/fuel/remote/authors.txt

@@ -0,0 +1 @@
+Jose Antonio Ortega Ruiz

extra/fuel/remote/remote.factor

@@ -0,0 +1,28 @@
+! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors io io.encodings.utf8 io.servers.connection kernel
+listener math ;
+
+IN: fuel.remote
+
+<PRIVATE
+
+: server ( port -- server )
+    <threaded-server>
+        "tty-server" >>name
+        utf8 >>encoding
+        swap local-server >>insecure
+        [ listener ] >>handler
+        f >>timeout ;
+
+: print-banner ( -- )
+    "Starting server. Connect with 'M-x connect-to-factor' in Emacs"
+    write nl flush ;
+
+PRIVATE>
+
+: fuel-start-remote-listener ( port/f -- )
+    print-banner integer? [ 9000 ] unless* server start-server ;
+
+: fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
+