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

terminfo: hex only on macosx.

db4
John Benediktsson 2013-04-26 07:09:15 -07:00
parent 14ccb55b72
commit 1d93236129
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/terminfo/terminfo.factor
View File

@ -4,7 +4,7 @@
USING: accessors assocs combinators formatting fry grouping
hashtables io io.binary io.directories io.encodings.binary
io.files kernel math math.parser memoize pack sequences
sequences.generalizations splitting strings ;
sequences.generalizations splitting strings system ;
IN: terminfo
@ -66,7 +66,8 @@ PRIVATE>
binary [ read-terminfo ] with-file-reader ;
: terminfo-path ( name -- path )
[ first >hex ] keep "/usr/share/terminfo/%s/%s" sprintf ;
[ first os macosx? [ >hex ] when ] keep
"/usr/share/terminfo/%s/%s" sprintf ;
MEMO: terminfo-names ( -- names )
"/usr/share/terminfo" [