blob: bf98ed4f1ad6acb056e885d0a5555d2d8b1c0ed9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(ns cljcc.exception)
(defn lex-error [{line :line col :col :as data}]
(throw (ex-info
(format "Invalid token at line: %s, col: %s." line col)
(merge {:error/type :lexer} data))))
(defn parser-error [msg data]
(throw (ex-info msg (merge {:error/type :parser} data))))
(defn analyzer-error [msg data]
(throw (ex-info msg (merge {:error/type :analyzer} data))))
(defn compiler-error [msg data]
(throw (ex-info msg (merge {:error/type :compiler} data))))
|
