|
jEdit example source code file (clojure.xml)
This example jEdit source code file (clojure.xml) is included in the DevDaily.com
"Java Source Code
Warehouse" project. The intent of this project is to help you "Learn Java by Example" TM.
The jEdit clojure.xml source code
<?xml version="1.0"?>
<!DOCTYPE MODE SYSTEM "xmode.dtd">
<!--
This file is partially based on lisp.xml and mostly in
the documentation found at: http://clojure.org/
author: dsm
date: 24/10/08
version:0.1
-->
<MODE>
<PROPS>
<PROPERTY NAME="lineComment" VALUE=";" />
<PROPERTY NAME="noWordSep" VALUE=".*+!-_?/" />
<PROPERTY NAME="indentOpenBrackets" VALUE="(" />
<PROPERTY NAME="indentCloseBrackets" VALUE=")" />
<PROPERTY NAME="lineUpClosingBracket" VALUE="false" />
</PROPS>
<RULES IGNORE_CASE="FALSE"
HIGHLIGHT_DIGITS="TRUE"
NO_WORD_SEP=".*+!-_?/"
DIGIT_RE="([0-9]+)|(([0-9]*\.[0-9]+)M?)|([0-9]+/[0-9]+)">
<!-- S-exps / lists.
Quoted first so as to not break the normal ones.
This is highly repetitive, there must be a better way
-->
<SPAN TYPE="MARKUP" DELEGATE="MAIN">
<BEGIN>#^(
<END>)
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>@(
<END>)
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>^(
<END>)
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>`(
<END>)
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>'(
<END>)
</SPAN>
<SPAN TYPE="FUNCTION" DELEGATE="MAIN">
<BEGIN>#(
<END>)
</SPAN>
<SPAN TYPE="MARKUP" DELEGATE="MAIN">
<BEGIN>(
<END>)
</SPAN>
<!-- Vectors -->
<SPAN TYPE="MARKUP" DELEGATE="MAIN">
<BEGIN>#^[
<END>]
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>@[
<END>]
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>^[
<END>]
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>'[
<END>]
</SPAN>
<SPAN TYPE="LABEL" DELEGATE="MAIN">
<BEGIN>[
<END>]
</SPAN>
<!-- Maps -->
<SPAN TYPE="MARKUP" DELEGATE="MAIN">
<BEGIN>#^{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>@{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>^{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>'{
<END>}
</SPAN>
<SPAN TYPE="LABEL" DELEGATE="MAIN">
<BEGIN>{
<END>}
</SPAN>
<!-- Sets -->
<SPAN TYPE="MARKUP" DELEGATE="MAIN">
<BEGIN>#^#{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>@#{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>^#{
<END>}
</SPAN>
<SPAN TYPE="LITERAL3" DELEGATE="MAIN">
<BEGIN>'#{
<END>}
</SPAN>
<SPAN TYPE="LABEL" DELEGATE="MAIN">
<BEGIN>#{
<END>}
</SPAN>
<!-- Quoted symbols -->
<SEQ AT_WORD_START="TRUE" TYPE="KEYWORD1">#'
<MARK_FOLLOWING
AT_WORD_START="TRUE"
TYPE="LITERAL3">'</MARK_FOLLOWING>
<!-- Meta symbols -->
<MARK_FOLLOWING
AT_WORD_START="TRUE"
TYPE="LABEL">^</MARK_FOLLOWING>
<!-- Deref symbols -->
<MARK_FOLLOWING
AT_WORD_START="TRUE"
TYPE="LABEL">@</MARK_FOLLOWING>
<!-- Metadata -->
<MARK_FOLLOWING
AT_WORD_START="TRUE"
TYPE="MARKUP">#^</MARK_FOLLOWING>
<!-- Based on convention discussed here:
http://www.gigamonkeys.com/book/syntax-and-semantics.html -->
<EOL_SPAN TYPE="COMMENT4">;;;;
<EOL_SPAN TYPE="COMMENT3">;;;
<EOL_SPAN TYPE="COMMENT2">;;
<EOL_SPAN TYPE="COMMENT1">;
<SPAN TYPE="LITERAL2" DELEGATE="REGEXPS" ESCAPE="\">
<BEGIN>#"
<END>"
</SPAN>
<SPAN TYPE="LITERAL1" DELEGATE="STRINGS" ESCAPE="\">
<BEGIN>"
<END>"
</SPAN>
<!-- Character literals -->
<SEQ_REGEXP
HASH_CHAR="\"
AT_WORD_START="TRUE"
TYPE="LITERAL2">\\(.|newline|space|tab)</SEQ_REGEXP>
<!-- The '.' special form -->
<SEQ AT_WORD_START="TRUE" TYPE="KEYWORD1">.
<!-- Namespace separators -->
<!--
<MARK_PREVIOUS
TYPE="LITERAL4"
MATCH_TYPE="CONTEXT">.</MARK_PREVIOUS> -->
<!-- Keywords -->
<MARK_FOLLOWING
AT_WORD_START="TRUE"
TYPE="KEYWORD4">:</MARK_FOLLOWING>
<KEYWORDS>
<!-- Evaluation -->
<KEYWORD4>read
<KEYWORD4>load
<KEYWORD4>load-file
<KEYWORD4>eval
<KEYWORD4>apply
<KEYWORD4>symbol
<KEYWORD4>keyword
<!-- Special Forms -->
<KEYWORD1>quote
<KEYWORD1>monitor-enter
<KEYWORD1>monitor-exit
<KEYWORD1>locking
<KEYWORD1>macroexpand-1
<KEYWORD1>macroexpand
<KEYWORD3>partial
<KEYWORD3>complement
<KEYWORD3>comparator
<KEYWORD3>constantly
<KEYWORD3>identity
<KEYWORD3>comp
<!-- Other functions -->
<KEYWORD1>map
<KEYWORD1>mapcat
<KEYWORD1>str
<KEYWORD1>time
<KEYWORD1>line-seq
<KEYWORD1>reduce
<!-- Printing -->
<KEYWORD1>pr
<KEYWORD1>prn
<KEYWORD1>print
<KEYWORD1>println
<KEYWORD1>pr-str
<KEYWORD1>prn-str
<KEYWORD1>print-str
<KEYWORD1>println-str
<KEYWORD2>with-out-str
<KEYWORD2>with-open
<LITERAL1>newline
<!-- RegExps -->
<KEYWORD1>re-matcher
<KEYWORD1>re-find
<KEYWORD1>re-matches
<KEYWORD1>re-groups
<KEYWORD1>re-seq
<!-- Flow control -->
<KEYWORD2>do
<KEYWORD2>dotimes
<KEYWORD2>loop
<KEYWORD2>recur
<KEYWORD2>throw
<KEYWORD2>try
<KEYWORD2>catch
<KEYWORD2>finally
<KEYWORD2>when
<KEYWORD2>when-not
<KEYWORD2>cond
<KEYWORD2>if
<KEYWORD3>assert
<KEYWORD3>for
<KEYWORD3>doseq
<KEYWORD3>dorun
<KEYWORD3>doall
<KEYWORD3>when-first
<KEYWORD3>refer
<KEYWORD3>import
<KEYWORD3>in-ns
<KEYWORD3>find-ns
<KEYWORD3>all-ns
<KEYWORD3>dosync
<KEYWORD3>deref
<KEYWORD3>ensure
<KEYWORD3>alter
<KEYWORD3>shutdown
<KEYWORD3>send
<KEYWORD3>send-off
<KEYWORD3>await
<KEYWORD3>await-for
<KEYWORD3>doto
<!-- Constructors -->
<FUNCTION>defmulti
<FUNCTION>defmethod
<FUNCTION>remove-method
<FUNCTION>meta
<FUNCTION>remove-ns
<FUNCTION>create-ns
<FUNCTION>binding
<FUNCTION>with-local-vars
<FUNCTION>ref
<FUNCTION>ref-set
<FUNCTION>commute
<FUNCTION>agent
<FUNCTION>deref
<FUNCTION>memfn
<FUNCTION>bean
<FUNCTION>proxy
<FUNCTION>make-array
<FUNCTION>list
<FUNCTION>sorted-map
<FUNCTION>sorted-map-by
<FUNCTION>hash-map
<FUNCTION>vector
<FUNCTION>create-struct
<FUNCTION>def
<FUNCTION>defstruct
<FUNCTION>defn
<FUNCTION>fn
<FUNCTION>defmacro
<FUNCTION>var
<FUNCTION>new
<FUNCTION>let
<FUNCTION>set!
<FUNCTION>struct-map
<FUNCTION>struct
<FUNCTION>array-map
<FUNCTION>hash-set
<FUNCTION>sorted-set
<FUNCTION>set
<FUNCTION>seq
<FUNCTION>cons
<FUNCTION>lazy-cons
<FUNCTION>set
<FUNCTION>int
<FUNCTION>long
<FUNCTION>double
<FUNCTION>char
<FUNCTION>boolean
<FUNCTION>short
<FUNCTION>byte
<FUNCTION>parse
<!-- Collections -->
<KEYWORD1>count
<KEYWORD1>seq
<KEYWORD1>peek
<KEYWORD1>pop
<KEYWORD1>assoc
<KEYWORD1>dissoc
<KEYWORD1>get
<KEYWORD1>nth
<KEYWORD1>rseq
<KEYWORD1>subvec
<KEYWORD1>find
<KEYWORD1>select-keys
<KEYWORD1>key
<KEYWORD1>val
<KEYWORD1>keys
<KEYWORD1>vals
<KEYWORD1>merge
<KEYWORD1>merge-with
<KEYWORD1>accessor
<KEYWORD1>conj
<KEYWORD1>disj
<KEYWORD1>first
<KEYWORD1>rest
<KEYWORD1>ffirst
<KEYWORD1>frest
<KEYWORD1>rfirst
<KEYWORD1>rrest
<KEYWORD1>second
<KEYWORD1>some
<KEYWORD1>concat
<KEYWORD1>filter
<KEYWORD1>take
<KEYWORD1>take-nth
<KEYWORD1>take-while
<KEYWORD1>drop
<KEYWORD1>nthrest
<KEYWORD1>drop-while
<KEYWORD1>reverse
<KEYWORD1>cycle
<KEYWORD1>interleave
<KEYWORD1>split-at
<KEYWORD1>split-with
<KEYWORD1>repeat
<KEYWORD1>replicate
<KEYWORD1>iterate
<KEYWORD1>range
<KEYWORD1>into
<KEYWORD1>sort
<KEYWORD1>sort-by
<KEYWORD1>zipmap
<KEYWORD1>fnseq
<KEYWORD1>lazy-cons
<KEYWORD1>lazy-cat
<KEYWORD1>with-meta
<KEYWORD1>ns-name
<KEYWORD1>ns-map
<KEYWORD1>ns-interns
<KEYWORD1>ns-publics
<KEYWORD1>ns-imports
<KEYWORD1>ns-refers
<KEYWORD1>ns-resolve
<KEYWORD1>resolve
<KEYWORD1>ns-unmap
<KEYWORD1>name
<KEYWORD1>namespace
<KEYWORD1>find-var
<KEYWORD1>var-get
<KEYWORD1>var-set
<KEYWORD1>put
<KEYWORD1>agent-errors
<KEYWORD1>clear-agent-errors
<KEYWORD1>alength
<KEYWORD1>aget
<KEYWORD1>aset
<KEYWORD1>to-array
<KEYWORD1>into-array
<KEYWORD1>to-array-2d
<!-- Tests, operators and numerical fns -->
<KEYWORD4>->
<KEYWORD4>instance?
<KEYWORD4>every?
<KEYWORD4>not-every?
<KEYWORD4>not-any?
<KEYWORD4>contains?
<KEYWORD4>string?
<KEYWORD4>symbol?
<KEYWORD4>map?
<KEYWORD4>seq?
<KEYWORD4>vector?
<KEYWORD4>identical?
<KEYWORD4>pos?
<KEYWORD4>neg?
<KEYWORD4>zero?
<KEYWORD4>nil?
<KEYWORD4>false?
<KEYWORD4>true?
<KEYWORD4>inc
<KEYWORD4>dec
<KEYWORD4>+
<KEYWORD4>-
<KEYWORD4>=
<KEYWORD4>==
<KEYWORD4>not=
<KEYWORD4><=
<KEYWORD4>>=
<KEYWORD4><
<KEYWORD4>>
<KEYWORD4>/
<KEYWORD4>*
<KEYWORD4>%
<KEYWORD4>quot
<KEYWORD4>inc
<KEYWORD4>dec
<KEYWORD4>rem
<KEYWORD4>min
<KEYWORD4>max
<KEYWORD4>and
<KEYWORD4>or
<KEYWORD4>not
<KEYWORD4>bit-and
<KEYWORD4>bit-or
<KEYWORD4>bit-not
<KEYWORD4>bit-shift-right
<KEYWORD4>bit-shift-left
<KEYWORD4>union
<KEYWORD4>diffference
<KEYWORD4>intersection
<KEYWORD4>select
<KEYWORD4>index
<KEYWORD4>rename
<KEYWORD4>join
<KEYWORD4>distinct
<KEYWORD4>submit
<!-- Pre-defined vars -->
<KEYWORD3>*ns*
<KEYWORD3>*out*
<KEYWORD3>*print-readably*
<KEYWORD3>*print-readably*
<KEYWORD3>*warn-on-reflection*
<!-- Special symbols -->
<KEYWORD3>&
<!-- Literals -->
<LITERAL4>true
<LITERAL4>false
<LITERAL4>nil
</KEYWORDS>
</RULES>
<RULES SET="STRINGS"
HIGHLIGHT_DIGITS="FALSE"
DEFAULT="LITERAL1"
IGNORE_CASE="TRUE">
<SEQ_REGEXP
HASH_CHAR="\"
AT_WORD_START="FALSE"
TYPE="LABEL">\\.</SEQ_REGEXP>
<KEYWORDS>
<INVALID>"
</KEYWORDS>
</RULES>
<RULES SET="REGEXPS"
HIGHLIGHT_DIGITS="FALSE"
DEFAULT="LITERAL1"
IGNORE_CASE="TRUE">
<!-- TODO: Put actual regexp syntax hilighting -->
<SEQ_REGEXP
HASH_CHAR="\"
AT_WORD_START="FALSE"
TYPE="LABEL">\\.</SEQ_REGEXP>
<KEYWORDS>
<INVALID>"
</KEYWORDS>
</RULES>
</MODE>
Other jEdit examples (source code examples)
Here is a short list of links related to this jEdit clojure.xml source code file:
|