(defn split-compound-prefix-match? [#^String symbol-string #^String potential]
(if (.startsWith symbol-string ".")
(and (.startsWith potential ".")
(camel-compound-prefix-match? symbol-string potential))
(let [[sym-ns sym-name] (symbol-name-parts symbol-string)
[pot-ns pot-name] (symbol-name-parts potential)]
(and (or (= sym-ns pot-ns)
(and sym-ns pot-ns
(delimited-compound-prefix-match-acronym? "." sym-ns pot-ns)))
(or (delimited-compound-prefix-match-acronym? "-." sym-name pot-name)
(camel-compound-prefix-match? sym-name pot-name))))))
Vars in
swank.commands.contrib.swank-c-p-c.internal/split-compound-prefix-match?:
=
and
defn
let
or
Used in 0 other vars
Source
swank/commands/contrib/swank_c_p_c/internal.clj:49
top
Comments top
No comments for split-compound-prefix-match?. Log in to add a comment.