213 lines
14 KiB
HTML
213 lines
14 KiB
HTML
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<link rel="stylesheet" href="../coverage.css"/> <title> mw_parser/errors.clj </title>
|
|
</head>
|
|
<body>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
001 (ns ^{:doc "Display parse errors in a format which makes it easy for the user
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
002 to see where the error occurred."
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
003 :author "Simon Brooke"}
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
004 mw-parser.errors)
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
005
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
006 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
007 ;;
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
008 ;; This program is free software; you can redistribute it and/or
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
009 ;; modify it under the terms of the GNU General Public License
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
010 ;; as published by the Free Software Foundation; either version 2
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
011 ;; of the License, or (at your option) any later version.
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
012 ;;
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
013 ;; This program is distributed in the hope that it will be useful,
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
014 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
015 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
016 ;; GNU General Public License for more details.
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
017 ;;
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
018 ;; You should have received a copy of the GNU General Public License
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
019 ;; along with this program; if not, write to the Free Software
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
020 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
021 ;; USA.
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
022 ;;
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
023 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
024
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
025
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
026 ;; error thrown when an attempt is made to set a reserved property
|
|
</span><br/>
|
|
<span class="covered" title="2 out of 2 forms covered">
|
|
027 (def reserved-properties-error
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
028 "The properties 'x' and 'y' of a cell are reserved and should not be set in rule actions")
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
029 ;; error thrown when a rule cannot be parsed. Slots are for
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
030 ;; (1) rule text
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
031 ;; (2) cursor showing where in the rule text the error occurred
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
032 ;; (3) the reason for the error
|
|
</span><br/>
|
|
<span class="covered" title="2 out of 2 forms covered">
|
|
033 (def bad-parse-error "I did not understand:\n '%s'\n %s\n %s")
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
034
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
035
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
036 (defn- explain-parse-error-reason
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
037 "Attempt to explain the reason for the parse error."
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
038 [reason]
|
|
</span><br/>
|
|
<span class="covered" title="17 out of 17 forms covered">
|
|
039 (str "Expecting one of (" (apply str (map #(str (:expecting %) " ") reason)) ")"))
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
040
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
041
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
042 (defn- parser-error-to-map
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
043 [parser-error]
|
|
</span><br/>
|
|
<span class="covered" title="16 out of 16 forms covered">
|
|
044 (let [m (reduce (fn [map item](merge map {(first item)(second item)})) {} parser-error)
|
|
</span><br/>
|
|
<span class="covered" title="3 out of 3 forms covered">
|
|
045 reason (map
|
|
</span><br/>
|
|
<span class="covered" title="15 out of 15 forms covered">
|
|
046 #(reduce (fn [map item] (merge {(first item) (second item)} map)) {} %)
|
|
</span><br/>
|
|
<span class="covered" title="3 out of 3 forms covered">
|
|
047 (:reason m))]
|
|
</span><br/>
|
|
<span class="covered" title="6 out of 6 forms covered">
|
|
048 (merge m {:reason reason})))
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
049
|
|
</span><br/>
|
|
<span class="blank" title="0 out of 0 forms covered">
|
|
050
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
051 (defn throw-parse-exception
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
052 "Construct a helpful error message from this `parser-error`, and throw an exception with that message."
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
053 [parser-error]
|
|
</span><br/>
|
|
<span class="partial" title="5 out of 16 forms covered">
|
|
054 (assert (coll? parser-error) "Expected a paser error structure?")
|
|
</span><br/>
|
|
<span class="covered" title="1 out of 1 forms covered">
|
|
055 (let
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
056 [
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
057 ;; the error structure is a list, such that each element is a list of two items, and
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
058 ;; the first element in each sublist is a keyword. Easier to work with it as a map
|
|
</span><br/>
|
|
<span class="covered" title="3 out of 3 forms covered">
|
|
059 error-map (parser-error-to-map parser-error)
|
|
</span><br/>
|
|
<span class="covered" title="3 out of 3 forms covered">
|
|
060 text (:text error-map)
|
|
</span><br/>
|
|
<span class="covered" title="5 out of 5 forms covered">
|
|
061 reason (explain-parse-error-reason (:reason error-map))
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
062 ;; rules have only one line, by definition; we're interested in the column
|
|
</span><br/>
|
|
<span class="partial" title="7 out of 8 forms covered">
|
|
063 column (if (:column error-map)(:column error-map) 0)
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
064 ;; create a cursor to point to that column
|
|
</span><br/>
|
|
<span class="covered" title="12 out of 12 forms covered">
|
|
065 cursor (apply str (reverse (conj (repeat column " ") "^")))
|
|
</span><br/>
|
|
<span class="covered" title="6 out of 6 forms covered">
|
|
066 message (format bad-parse-error text cursor reason)
|
|
</span><br/>
|
|
<span class="not-tracked" title="0 out of 0 forms covered">
|
|
067 ]
|
|
</span><br/>
|
|
<span class="covered" title="3 out of 3 forms covered">
|
|
068 (throw (Exception. message))))
|
|
</span><br/>
|
|
</body>
|
|
</html>
|