47 lines
1.3 KiB
Factor
47 lines
1.3 KiB
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: jedit
|
|
USING: files kernel lists namespaces parser sequences stdio
|
|
streams strings unparser words ;
|
|
|
|
: jedit-server-file ( -- path )
|
|
"jedit-server-file" get
|
|
[ "~" get "/.jedit/server" cat2 ] unless* ;
|
|
|
|
: jedit-server-info ( -- port auth )
|
|
jedit-server-file <file-reader> [
|
|
read-line drop
|
|
read-line parse-number
|
|
read-line parse-number
|
|
] with-stream ;
|
|
|
|
: make-jedit-request ( files params -- code )
|
|
[
|
|
"EditServer.handleClient(false,false,false,null," ,
|
|
"new String[] {" ,
|
|
[ unparse , "," , ] each
|
|
"null});\n" ,
|
|
] make-string ;
|
|
|
|
: send-jedit-request ( request -- )
|
|
jedit-server-info swap "localhost" swap <client> [
|
|
write-big-endian-32
|
|
dup length write-big-endian-16
|
|
write flush
|
|
] with-stream ;
|
|
|
|
: jedit-line/file ( file line -- )
|
|
unparse "+line:" swap cat2 2list
|
|
make-jedit-request send-jedit-request ;
|
|
|
|
: jedit-file ( file -- )
|
|
unit make-jedit-request send-jedit-request ;
|
|
|
|
: jedit ( word -- )
|
|
#! Note that line numbers here start from 1
|
|
dup word-file dup [
|
|
swap "line" word-prop jedit-line/file
|
|
] [
|
|
2drop "Unknown source" print
|
|
] ifte ;
|