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

fuel: move the server-starting main to the fuel.remote vocab

db4
Björn Lindqvist 2015-10-06 13:54:33 +02:00
parent 03301bf6cf
commit 97de22755c
2 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/fuel/fuel.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs compiler.units continuations fuel.eval fuel.help
fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser
sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files
vocabs.metadata vocabs vocabs.hierarchy ;
USING: accessors assocs compiler.units continuations fuel.eval
fuel.help fuel.xref help.topics io.pathnames kernel namespaces parser
sequences tools.scaffold vocabs vocabs.files vocabs.hierarchy
vocabs.loader vocabs.metadata vocabs.parser words ;
IN: fuel
@ -165,7 +164,3 @@ PRIVATE>
[ drop [ vocab-platforms-path ] keep swap vocab-append-path absolute-path fuel-eval-set-result ] 2bi ;
: fuel-scaffold-get-root ( name -- ) find-vocab-root fuel-eval-set-result ;
! Remote connection
MAIN: fuel-start-remote-listener*

7
extra/fuel/remote/remote.factor
View File

@ -1,8 +1,6 @@
! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors io io.encodings.utf8 io.servers kernel math
namespaces tty-server ;
USING: io io.servers kernel math tty-server ;
IN: fuel.remote
@ -18,3 +16,6 @@ PRIVATE>
print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ;
: fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
! Remote connection
MAIN: fuel-start-remote-listener*