steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Remote listener functionality factored to a separate vocab.

db4
Jose A. Ortega Ruiz 2009-01-21 12:21:21 +01:00
parent f6b0fa45fb
commit f8632b46ce
3 changed files with 33 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
extra/fuel/fuel.factor
View File

@ -2,10 +2,10 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs compiler.units definitions fuel.eval USING: accessors arrays assocs compiler.units definitions fuel.eval
fuel.help help.markup help.topics io io.encodings.utf8 io.pathnames fuel.help fuel.remote help.markup help.topics io.pathnames kernel math
io.servers.connection kernel listener math math.order memoize math.order memoize namespaces parser sequences sets sorting
namespaces parser sequences sets sorting tools.crossref tools.scaffold tools.crossref tools.scaffold tools.vocabs vocabs vocabs.loader
tools.vocabs vocabs vocabs.loader vocabs.parser words ; vocabs.parser words ;
IN: fuel IN: fuel
@ -177,19 +177,4 @@ PRIVATE>
! Remote connection ! 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* MAIN: fuel-start-remote-listener*

1
extra/fuel/remote/authors.txt Normal file
View File

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

28
extra/fuel/remote/remote.factor Normal file
View File

@ -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 ;