From f8632b46cec5ce600f2bb87e890a088771e6ccef Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Wed, 21 Jan 2009 12:21:21 +0100
Subject: [PATCH] FUEL: Remote listener functionality factored to a separate
 vocab.

---
 extra/fuel/fuel.factor          | 23 ++++-------------------
 extra/fuel/remote/authors.txt   |  1 +
 extra/fuel/remote/remote.factor | 28 ++++++++++++++++++++++++++++
 3 files changed, 33 insertions(+), 19 deletions(-)
 create mode 100644 extra/fuel/remote/authors.txt
 create mode 100644 extra/fuel/remote/remote.factor

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index fa0831f5f8..6efc1a9fef 100644
--- a/extra/fuel/fuel.factor
+++ b/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*
diff --git a/extra/fuel/remote/authors.txt b/extra/fuel/remote/authors.txt
new file mode 100644
index 0000000000..48f802a3cd
--- /dev/null
+++ b/extra/fuel/remote/authors.txt
@@ -0,0 +1 @@
+Jose Antonio Ortega Ruiz
\ No newline at end of file
diff --git a/extra/fuel/remote/remote.factor b/extra/fuel/remote/remote.factor
new file mode 100644
index 0000000000..454265d5d8
--- /dev/null
+++ b/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 ;
+