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. ! Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs compiler.units continuations fuel.eval
USING: accessors assocs compiler.units continuations fuel.eval fuel.help fuel.help fuel.xref help.topics io.pathnames kernel namespaces parser
fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser sequences tools.scaffold vocabs vocabs.files vocabs.hierarchy
sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files vocabs.loader vocabs.metadata vocabs.parser words ;
vocabs.metadata vocabs vocabs.hierarchy ;
IN: fuel IN: fuel
@ -165,7 +164,3 @@ PRIVATE>
[ drop [ vocab-platforms-path ] keep swap vocab-append-path absolute-path fuel-eval-set-result ] 2bi ; [ 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 ; : 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. ! Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.servers kernel math tty-server ;
USING: accessors io io.encodings.utf8 io.servers kernel math
namespaces tty-server ;
IN: fuel.remote IN: fuel.remote
@ -18,3 +16,6 @@ PRIVATE>
print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ; print-banner integer? [ 9000 ] unless* <tty-server> start-server drop ;
: fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ; : fuel-start-remote-listener* ( -- ) f fuel-start-remote-listener ;
! Remote connection
MAIN: fuel-start-remote-listener*