From 30fcc1389e0ea23b82a3b438ac4c0d6cc4f99fff Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 24 Aug 2006 04:49:25 +0000
Subject: [PATCH] Remove jEdit plugin support code

---
 library/tools/jedit.factor    | 55 -----------------------------------
 library/tools/listener.factor | 11 +++++++
 2 files changed, 11 insertions(+), 55 deletions(-)

diff --git a/library/tools/jedit.factor b/library/tools/jedit.factor
index fdfb411b04..3316cea020 100644
--- a/library/tools/jedit.factor
+++ b/library/tools/jedit.factor
@@ -4,9 +4,6 @@ IN: jedit
 USING: arrays definitions errors io kernel listener math
 namespaces parser prettyprint sequences strings words shells ;
 
-! Some words to send requests to a running jEdit instance to
-! edit files and position the cursor on a specific line number.
-
 : jedit-server-info ( -- port auth )
     "~" get "/.jedit/server" path+ <file-reader> [
         readln drop
@@ -38,55 +35,3 @@ namespaces parser prettyprint sequences strings words shells ;
 
 : jedit ( defspec -- )
     where first2 >r ?resource-path r> jedit-line/file ;
-
-! Wire protocol for jEdit to evaluate Factor code.
-! Packets are of the form:
-!
-! 4 bytes length
-! <n> bytes data
-!
-! jEdit sends a packet with code to eval, it receives the output
-! captured with string-out.
-
-: write-len ( seq -- ) length 4 >be write ;
-
-: write-packet ( string -- ) dup write-len write flush ;
-
-: read-packet ( -- string ) 4 read be> read ;
-
-: wire-server ( -- )
-    #! Repeatedly read jEdit requests and execute them. Return
-    #! on EOF.
-    read-packet [ eval>string write-packet wire-server ] when* ;
-
-: jedit-lookup ( word -- list )
-    #! A utility word called by the Factor plugin to get some
-    #! required word info.
-    dup [
-        [
-            dup definer ,
-            dup word-vocabulary ,
-            dup word-name ,
-            stack-effect dup [ effect>string ] when ,
-        ] [ ] make
-    ] when ;
-
-: completions ( str pred -- seq )
-    #! Make a list of completions. Each element of the list is
-    #! a vocabulary/name/stack-effect triplet list.
-    word-subset-with [ jedit-lookup ] map ;
-
-! The telnet server is for the jEdit plugin.
-: telnetd ( port -- )
-    \ telnetd [ tty ] with-server ;
-
-: search ( name vocabs -- word )
-    dupd [ lookup ] find-with nip lookup ;
-
-IN: shells
-
-: telnet
-    "telnetd-port" get string>number telnetd ;
-
-! This is a string since we string>number it above.
-"9999" "telnetd-port" set-global
diff --git a/library/tools/listener.factor b/library/tools/listener.factor
index 00325d4dce..17fbac1385 100644
--- a/library/tools/listener.factor
+++ b/library/tools/listener.factor
@@ -54,3 +54,14 @@ SYMBOL: eval-hook
 IN: shells
 
 : tty [ print-banner ] listener ;
+
+IN: listener
+
+: telnetd ( port -- ) \ telnetd [ tty ] with-server ;
+
+IN: shells
+
+: telnet "telnetd-port" get string>number telnetd ;
+
+! This is a string since we string>number it above.
+"9999" "telnetd-port" set-global