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

mason: use short host name not fully qualified host name

Slava Pestov 2009-05-21 19:19:12 -05:00
parent 79de3d9833
commit c779fccd4d
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/mason/common/common.factor
View File

@ -5,9 +5,12 @@ math.functions make io io.files io.pathnames io.directories
io.directories.hierarchy io.launcher io.encodings.utf8 prettyprint io.directories.hierarchy io.launcher io.encodings.utf8 prettyprint
combinators.short-circuit parser combinators calendar combinators.short-circuit parser combinators calendar
calendar.format arrays mason.config locals debugger fry calendar.format arrays mason.config locals debugger fry
continuations strings ; continuations strings io.sockets ;
IN: mason.common IN: mason.common
: short-host-name ( -- string )
host-name "." split1 drop ;
SYMBOL: current-git-id SYMBOL: current-git-id
: short-running-process ( command -- ) : short-running-process ( command -- )

2
extra/mason/notify/notify.factor
View File

@ -10,7 +10,7 @@ IN: mason.notify
[ [
"ssh" , status-host get , "-l" , status-username get , "ssh" , status-host get , "-l" , status-username get ,
"./mason-notify" , "./mason-notify" ,
host-name , short-host-name ,
target-cpu get , target-cpu get ,
target-os get , target-os get ,
] { } make prepend ] { } make prepend

3
extra/mason/report/report.factor
View File

@ -7,9 +7,6 @@ prettyprint sequences xml.syntax xml.writer combinators.short-circuit
literals splitting ; literals splitting ;
IN: mason.report IN: mason.report
: short-host-name ( -- string )
host-name "." split1 drop ;
: common-report ( -- xml ) : common-report ( -- xml )
target-os get target-os get
target-cpu get target-cpu get