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

readline-listener: readline-listener can call listener-main which prints version-info

db4
Björn Lindqvist 2015-10-06 13:28:38 +02:00
parent 2f4c8ee07a
commit 03301bf6cf
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/readline-listener/readline-listener.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2011 Erik Charlebois. ! Copyright (C) 2011 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs colors.constants combinators fry io USING: accessors assocs colors.constants combinators fry io kernel
kernel listener readline sequences splitting system threads listener readline sequences splitting threads tools.completion
tools.completion unicode.data vocabs vocabs.hierarchy ; unicode.data vocabs vocabs.hierarchy ;
IN: readline-listener IN: readline-listener
<PRIVATE <PRIVATE
@ -54,9 +54,6 @@ PRIVATE>
swap get-completions ?nth swap get-completions ?nth
[ clear-completions f ] unless* [ clear-completions f ] unless*
] set-completion ] set-completion
readline-reader new [ listener ] with-input-stream* ; readline-reader new [ listener-main ] with-input-stream* ;
: readline-listener-main ( -- ) MAIN: readline-listener
version-info print flush readline-listener ;
MAIN: readline-listener-main