1 ! Copyright (C) 2007, 2008 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors assocs kernel sequences sets sorting unicode ;
6 ! Based on org.gjt.sp.jedit.syntax.KeywordMap
7 TUPLE: keyword-map no-word-sep ignore-case? assoc ;
9 : <keyword-map> ( ignore-case? -- map )
14 : invalid-no-word-sep ( keyword-map -- ) f >>no-word-sep drop ;
16 : handle-case ( key keyword-map -- key assoc )
17 [ ignore-case?>> [ >upper ] when ] [ assoc>> ] bi ;
19 M: keyword-map assoc-size
22 M: keyword-map at* handle-case at* ;
25 [ handle-case set-at ] [ invalid-no-word-sep ] bi ;
27 M: keyword-map clear-assoc
28 [ assoc>> clear-assoc ] [ invalid-no-word-sep ] bi ;
33 : (keyword-map-no-word-sep) ( assoc -- str )
34 keys union-all [ alpha? ] reject sort ;
36 : keyword-map-no-word-sep* ( keyword-map -- str )
37 dup no-word-sep>> [ ] [
38 dup (keyword-map-no-word-sep) >>no-word-sep
39 keyword-map-no-word-sep*
42 INSTANCE: keyword-map assoc