File indexing completed on 2024-05-12 04:02:07
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.lisp</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Common Lisp) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887">;; This test file tests kates common lisp highlighting</span> 0008 <span style="color:#898887">#|</span> 0009 <span style="color:#898887">multilinecomment :)</span> 0010 <span style="color:#898887">|#</span> 0011 0012 <span style="color:#0057ae;background-color:#e0e9f8">;BEGIN region marker</span> 0013 0014 <span style="color:#0057ae;background-color:#e0e9f8">;END end</span> 0015 0016 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defun</span><span style="color:#644a9b"> bin-search </span><span style="color:#0000ff;font-weight:bold">(</span>obj vec<span style="color:#0000ff;font-weight:bold">)</span> 0017 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#0000ff;font-weight:bold">((</span>len <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">length</span> vec<span style="color:#0000ff;font-weight:bold">)))</span> 0018 <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">not</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">zerop</span> len<span style="color:#0000ff;font-weight:bold">))</span> 0019 <span style="color:#0000ff;font-weight:bold">(</span>finder obj vec <span style="color:#b08000">0</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#ca60ca">-</span> len <span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)))))</span> 0020 0021 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defun</span><span style="color:#644a9b"> parse-date </span><span style="color:#0000ff;font-weight:bold">(</span>str<span style="color:#0000ff;font-weight:bold">)</span> 0022 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#0000ff;font-weight:bold">((</span>toks <span style="color:#0000ff;font-weight:bold">(</span>tokens str <span style="color:#ca60ca">#'</span>constituent <span style="color:#b08000">0</span><span style="color:#0000ff;font-weight:bold">)))</span> 0023 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">list</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">parse-integer</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">first</span> toks<span style="color:#0000ff;font-weight:bold">))</span> 0024 <span style="color:#0000ff;font-weight:bold">(</span>parse-month <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">second</span> toks<span style="color:#0000ff;font-weight:bold">))</span> 0025 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">parse-integer</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">third</span> toks<span style="color:#0000ff;font-weight:bold">)))))</span> 0026 0027 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defconstant</span><span style="color:#644a9b"> month-names</span> 0028 #<span style="color:#0000ff;font-weight:bold">(</span><span style="color:#bf0303">"jan"</span> <span style="color:#bf0303">"feb"</span> <span style="color:#bf0303">"mar"</span> <span style="color:#bf0303">"apr"</span> <span style="color:#bf0303">"may"</span> <span style="color:#bf0303">"jun"</span> 0029 <span style="color:#bf0303">"jul"</span> <span style="color:#bf0303">"aug"</span> <span style="color:#bf0303">"sep"</span> <span style="color:#bf0303">"oct"</span> <span style="color:#bf0303">"nov"</span> <span style="color:#bf0303">"dec"</span><span style="color:#0000ff;font-weight:bold">))</span> 0030 0031 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defstruct</span><span style="color:#644a9b"> buf</span> 0032 vec <span style="color:#0000ff;font-weight:bold">(</span>start <span style="color:#ca60ca">-</span><span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>used <span style="color:#ca60ca">-</span><span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>new <span style="color:#ca60ca">-</span><span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>end <span style="color:#ca60ca">-</span><span style="color:#b08000">1</span><span style="color:#0000ff;font-weight:bold">))</span> 0033 0034 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defparameter</span><span style="color:#644a9b"> *words* </span><span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">make-hash-table</span> :size <span style="color:#b08000">10000</span><span style="color:#0000ff;font-weight:bold">))</span> 0035 0036 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defmacro</span><span style="color:#644a9b"> while </span><span style="color:#0000ff;font-weight:bold">(</span>test <span style="color:#ca60ca">&rest</span> body<span style="color:#0000ff;font-weight:bold">)</span> 0037 `<span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">do</span> <span style="color:#0000ff;font-weight:bold">()</span> 0038 <span style="color:#0000ff;font-weight:bold">((</span><span style="font-weight:bold">not</span> ,test<span style="color:#0000ff;font-weight:bold">))</span> 0039 ,@body<span style="color:#0000ff;font-weight:bold">))</span> 0040 0041 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">define-modify-macro</span><span style="color:#644a9b"> append1f </span><span style="color:#0000ff;font-weight:bold">(</span>val<span style="color:#0000ff;font-weight:bold">)</span> 0042 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#0000ff;font-weight:bold">(</span>lst val<span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">append</span> lst <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">list</span> val<span style="color:#0000ff;font-weight:bold">))))</span> 0043 0044 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">defmethod</span><span style="color:#644a9b"> add </span><span style="color:#0000ff;font-weight:bold">((</span>a <span style="font-weight:bold">vector</span><span style="color:#0000ff;font-weight:bold">)</span> <span style="color:#0000ff;font-weight:bold">(</span>b <span style="font-weight:bold">vector</span><span style="color:#0000ff;font-weight:bold">))</span> 0045 <span style="color:#0000ff;font-weight:bold">(</span><span style="font-weight:bold">map</span> <span style="color:#0057ae">'vector</span> <span style="color:#ca60ca">#'</span>+ a b<span style="color:#0000ff;font-weight:bold">))</span> 0046 0047 <span style="color:#0000ff;font-weight:bold">((</span><span style="font-weight:bold">lambda</span> <span style="color:#0000ff;font-weight:bold">(</span>a <span style="color:#ca60ca">&optional</span> <span style="color:#0000ff;font-weight:bold">(</span>b <span style="color:#b08000">2</span><span style="color:#0000ff;font-weight:bold">))</span> <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#ca60ca">+</span> a <span style="color:#0000ff;font-weight:bold">(</span><span style="color:#ca60ca">*</span> b <span style="color:#b08000">3</span><span style="color:#0000ff;font-weight:bold">)))</span> <span style="color:#b08000">4</span> <span style="color:#b08000">5</span><span style="color:#0000ff;font-weight:bold">)</span> 0048 </pre></body></html>