blob: 19245aad770cb0cd98bcca2b95aa3561ad926fa1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(ns cljcc.core.exception
(:require [cljcc.core.format :refer [safe-format]]))
(defn try-catch-ex
([f]
(try
(f)
(catch #?(:clj Throwable :cljs :default) e
[:error e])))
([f default]
(try
(f)
(catch #?(:clj Throwable :cljs :default) e
default))))
(defn lex-error [{line :line col :col :as data}]
(throw (ex-info
(safe-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 tacky-error [msg data]
(throw (ex-info msg (merge {:error/type :tacky} data))))
(defn compiler-error [msg data]
(throw (ex-info msg (merge {:error/type :compiler} data))))
(defn emit-error [msg data]
(throw (ex-info msg (merge {:error/type :emit} data))))
|
