Kibitised.
This commit is contained in:
parent
34d3745ecb
commit
03733f8ddf
6 changed files with 33 additions and 35 deletions
|
|
@ -3115,7 +3115,7 @@ front of the sequence of tokens it returns nil.</p>
|
|||
</td><td class="codes"></td></tr><tr><td class="docs"><p>Parse a number.</p>
|
||||
</td><td class="codes"><pre class="brush: clojure">(defn parse-numeric-value
|
||||
[[value & remainder]]
|
||||
(if (re-matches re-number value) [(read-string value) remainder]))</pre></td></tr><tr><td class="docs"><p>Parse a token assumed to be the name of a property of the current cell,
|
||||
(if (and value (re-matches re-number value)) [(read-string value) remainder]))</pre></td></tr><tr><td class="docs"><p>Parse a token assumed to be the name of a property of the current cell,
|
||||
whose value is assumed to be an integer.</p>
|
||||
</td><td class="codes"><pre class="brush: clojure">(defn parse-property-int
|
||||
[[value & remainder]]
|
||||
|
|
@ -3217,7 +3217,7 @@ front of the sequence of tokens it returns nil.</p>
|
|||
comparator (cond (= MORE "more") '>
|
||||
(member? MORE '("fewer" "less")) '<)]
|
||||
(cond
|
||||
(not (= WITHIN "within"))
|
||||
(not= WITHIN "within")
|
||||
(parse-comparator-neighbours-condition
|
||||
(flatten
|
||||
;; two tokens were mis-parsed as 'within distance' that weren't
|
||||
|
|
@ -3256,7 +3256,7 @@ front of the sequence of tokens it returns nil.</p>
|
|||
(cond
|
||||
(and quantity (= NEIGHBOURS "neighbours"))
|
||||
(cond
|
||||
(not (= WITHIN "within"))
|
||||
(not= WITHIN "within")
|
||||
(parse-simple-neighbours-condition
|
||||
(flatten
|
||||
;; two tokens were mis-parsed as 'within distance' that weren't
|
||||
|
|
@ -3325,7 +3325,7 @@ front of the sequence of tokens it returns nil.</p>
|
|||
</td><td class="codes"><pre class="brush: clojure">(defn- parse-arithmetic-action
|
||||
[previous [prop1 SHOULD BE prop2 operator value & rest]]
|
||||
(cond
|
||||
(member? prop2 '("x" "y"))
|
||||
(member? prop1 '("x" "y"))
|
||||
(throw
|
||||
(Exception. reserved-properties-error))
|
||||
(and (= SHOULD "should")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue