File indexing completed on 2024-05-12 04:02:06
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>clojure.clj</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Clojure) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887">; Test file, released under MIT License</span> 0008 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">ns</span> <span style="color:#0000ff;font-weight:bold">^{</span><span style="color:#0057ae">:doc</span> <span style="color:#607880">"Syntax highlighting test file"</span> 0009 <span style="color:#0057ae">:author</span> <span style="color:#607880">"Markus Brenneis"</span><span style="color:#0000ff;font-weight:bold">}</span> 0010 highlighting<span style="color:#0000ff;font-weight:bold">)</span> 0011 0012 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn</span><span style="color:#644a9b"> something-else </span><span style="color:#3333ff">[</span>f xs<span style="color:#3333ff">]</span> 0013 <span style="color:#898887">#_</span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">map</span> #<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">apply</span> f <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#0057ae">%</span> <span style="color:#3333ff">[</span><span style="color:#0057ae">%</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">))</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">cons</span> <span style="color:#b08000">1</span> xs<span style="color:#0000ff;font-weight:bold">))</span> 0014 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">map</span> #<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">apply</span> f <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#0057ae">%</span> xs<span style="color:#0000ff;font-weight:bold">))</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">cons</span> <span style="color:#b08000">1</span> xs<span style="color:#0000ff;font-weight:bold">))</span> 0015 <span style="color:#898887">#_</span><span style="color:#3333ff">[</span><span style="color:#b08000">1</span> '<span style="color:#0000ff;font-weight:bold">(</span><span style="color:#b08000">2</span><span style="color:#0000ff;font-weight:bold">)</span><span style="color:#3333ff">]</span> 0016 xs<span style="color:#0000ff;font-weight:bold">)</span> 0017 0018 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> foo </span><span style="color:#3333ff">[</span><span style="color:#924c9d">\a</span> <span style="color:#924c9d">\b</span> <span style="color:#924c9d">\n</span> <span style="color:#924c9d">\ucafe</span> <span style="color:#924c9d">\o123</span> <span style="color:#924c9d">\n</span> 0019 <span style="color:#924c9d">\newline</span> <span style="color:#924c9d">\tab</span> <span style="color:#924c9d">\space</span> <span style="color:#924c9d">\formfeed</span> <span style="color:#924c9d">\backspace</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">)</span> 0020 0021 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> fizz </span><span style="color:#33ab33">{</span><span style="color:#0000ff">#{</span><span style="color:#924c9d">\a</span> <span style="color:#924c9d">\b</span><span style="color:#0000ff">}</span> 0022 <span style="color:#0000ff">#{</span><span style="color:#924c9d">\n</span> <span style="color:#924c9d">\newline</span><span style="color:#0000ff">}</span><span style="color:#33ab33">}</span><span style="color:#0000ff;font-weight:bold">)</span> 0023 0024 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> fizz' </span><span style="color:#0000ff">#{</span><span style="color:#33ab33">{</span><span style="color:#924c9d">\a</span> <span style="color:#924c9d">\b</span><span style="color:#33ab33">}</span> 0025 <span style="color:#33ab33">{</span><span style="color:#924c9d">\n</span> <span style="color:#924c9d">\newline</span><span style="color:#33ab33">}</span><span style="color:#0000ff">}</span><span style="color:#0000ff;font-weight:bold">)</span> 0026 0027 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn</span><span style="color:#644a9b"> bar </span><span style="color:#3333ff">[</span>xs<span style="color:#3333ff">]</span> 0028 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">as-></span> xs <> 0029 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">cons</span> <span style="color:#0057ae">:a</span> <><span style="color:#0000ff;font-weight:bold">)</span> 0030 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">map</span> #<span style="color:#0000ff;font-weight:bold">(</span><span style="color:#0057ae">%1</span> <span style="color:#0057ae">%2</span><span style="color:#0000ff;font-weight:bold">)</span> <><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#898887">; </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">TODO</span><span style="color:#898887"> improve</span> 0031 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">into</span> <> <span style="color:#3333ff">[</span><span style="color:#0057ae">:konjure.logic.specs/numShips</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">)))</span> 0032 0033 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> x-2-y</span> 0034 <span style="color:#898887">#_</span><span style="color:#bf0303">"do </span><span style="color:#3daee9">\"</span><span style="color:#bf0303"> sth"</span> 0035 <span style="color:#0000ff;font-weight:bold">(</span>domonad set-m 0036 <span style="color:#3333ff">[</span>x <span style="color:#0000ff">#{</span><span style="color:#b08000">1.1</span>, <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">+</span> -2 +4<span style="color:#0000ff;font-weight:bold">)</span><span style="color:#0000ff">}</span> 0037 y <span style="color:#0000ff">#{</span><span style="color:#b08000">1.1</span>, <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">-</span> -2.<span style="color:#b08000">0</span> <span style="color:#b08000">4.0</span><span style="color:#0000ff;font-weight:bold">)</span><span style="color:#0000ff">}</span><span style="color:#3333ff">]</span> 0038 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">*'</span> x y<span style="color:#0000ff;font-weight:bold">)))</span> 0039 0040 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> bases</span> 0041 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">and</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> -1 -1N<span style="color:#0000ff;font-weight:bold">)</span> 0042 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> <span style="color:#b08000">1/4</span> -2.<span style="color:#b08000">5</span>e-1<span style="color:#0000ff;font-weight:bold">)</span> 0043 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> -<span style="color:#b08000">1/2</span> -0.<span style="color:#b08000">5</span>M<span style="color:#0000ff;font-weight:bold">)</span> 0044 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> -<span style="color:#b08000">0x1Ab</span> -<span style="color:#b08000">0X1ab</span><span style="color:#0000ff;font-weight:bold">)</span> 0045 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> +<span style="color:#b08000">2r101010</span> <span style="color:#b08000">25R1h</span><span style="color:#0000ff;font-weight:bold">)</span> 0046 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> <span style="color:#bf0303;text-decoration:underline">39r13</span> <span style="color:#bf0303;text-decoration:underline">42R10</span><span style="color:#0000ff;font-weight:bold">)))</span> <span style="color:#898887">; </span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">FIXME</span><span style="color:#898887"> this one is not correct</span> 0047 0048 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> </span><span style="color:#0000ff;font-weight:bold">^{</span><span style="color:#0057ae">:private</span> <span style="color:#0057ae">true</span><span style="color:#0000ff;font-weight:bold">}</span> 0049 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">last</span> <span style="color:#0000ff">#{#{}}</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff">#{</span><span style="color:#33ab33">{</span><span style="color:#0000ff">#{}</span><span style="color:#33ab33">}</span><span style="color:#0000ff">}</span><span style="color:#0000ff;font-weight:bold">))</span> 0050 0051 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> s </span><span style="color:#bf0303">"#repl</span><span style="color:#3daee9">\n</span><span style="color:#bf0303">"</span><span style="color:#0000ff;font-weight:bold">)</span> 0052 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> r </span><span style="color:#ff5500">#"repl"</span><span style="color:#0000ff;font-weight:bold">)</span> 0053 0054 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn-</span><span style="color:#644a9b"> stuff!</span> 0055 <span style="color:#3333ff">[</span>a<span style="color:#3333ff">]</span> 0056 <span style="color:#bf0303">"This is no </span><span style="color:#3daee9">\"</span><span style="color:#bf0303">documentation</span><span style="color:#3daee9">\"</span><span style="color:#bf0303">!"</span> 0057 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">class</span> <span style="color:#0057ae">#'+</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">class</span> <span style="color:#0057ae">#'foo</span><span style="color:#0000ff;font-weight:bold">))</span> 0058 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#3333ff">[</span><span style="font-weight:bold">+</span> <span style="font-weight:bold">-</span><span style="color:#3333ff">]</span> <span style="color:#3333ff">[</span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">+</span> a <span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#0057ae">@#'+</span> a <span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">))</span> 0059 0060 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn-</span><span style="color:#644a9b"> throwIllegalArgumentException!</span> 0061 <span style="color:#bf0303">"Throws an </span><span style="color:#3daee9">\"</span><span style="color:#bf0303">IllegalArgumentException</span><span style="color:#3daee9">\"</span><span style="color:#bf0303"> or</span> 0062 <span style="color:#bf0303"> a js/Error."</span> 0063 <span style="color:#3333ff">[</span>message<span style="color:#3333ff">]</span> 0064 <span style="color:#006e28">#?</span><span style="color:#0000ff;font-weight:bold">(</span><span style="color:#0057ae">:clj</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">throw</span> <span style="color:#0000ff;font-weight:bold">(</span>IllegalArgumentException. message<span style="color:#0000ff;font-weight:bold">))</span> 0065 <span style="color:#0057ae">:cljs</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">throw</span> <span style="color:#0000ff;font-weight:bold">(</span>js/Error. message<span style="color:#0000ff;font-weight:bold">))))</span> 0066 0067 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defmacro</span><span style="color:#644a9b"> let-fn </span><span style="color:#607880">"a nonsense macro"</span> <span style="color:#3333ff">[</span>one-binding & body<span style="color:#3333ff">]</span> 0068 `<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">+</span> <span style="color:#b08000">1</span> ~<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">inc'</span> <span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">))</span> 0069 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#3333ff">[[</span>identifier & fn-body<span style="color:#3333ff">]</span> one-binding<span style="color:#3333ff">]</span> 0070 `<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#3333ff">[</span><span style="color:#0057ae">~identifier</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">fn</span> <span style="color:#0057ae">~identifier</span> <span style="color:#0057ae">~@fn-body</span><span style="color:#0000ff;font-weight:bold">)</span><span style="color:#3333ff">]</span> 0071 <span style="color:#0057ae">~@body</span> <span style="color:#0057ae">`a#</span><span style="color:#0000ff;font-weight:bold">)))</span> 0072 0073 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">def</span><span style="color:#644a9b"> state </span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">atom</span> <span style="color:#3333ff">[</span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">=</span> <span style="color:#0057ae">false</span> <span style="color:#0057ae">true</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0057ae">nil</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">))</span> 0074 0075 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn</span><span style="color:#644a9b"> something-cool </span><span style="color:#3333ff">[]</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">first</span> <span style="color:#0057ae">@state</span><span style="color:#0000ff;font-weight:bold">))</span> 0076 0077 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn-</span><span style="color:#644a9b"> something-different </span><span style="color:#3333ff">[]</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">first</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">into</span> <span style="color:#0057ae">@state</span> <span style="color:#3333ff">[</span><span style="color:#b08000">12</span><span style="color:#3333ff">]</span><span style="color:#0000ff;font-weight:bold">)))</span> 0078 0079 <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#644a9b;font-weight:bold">defn-</span><span style="color:#644a9b"> instance-getfield </span><span style="color:#3333ff">[</span>this k<span style="color:#3333ff">]</span> <span style="color:#0000ff;font-weight:bold">(</span>@<span style="color:#0000ff;font-weight:bold">(</span>.state this<span style="color:#0000ff;font-weight:bold">)</span> k<span style="color:#0000ff;font-weight:bold">))</span> 0080 </pre></body></html>