basic error reporting to character and string literals

errors.lisp

@@ -8,16 +8,60 @@
         (write-char #\Space stream))
   (format stream "^~%"))
 
-(define-condition char-not-closed ()
+(defun char-num-pair (ch?)
+  (if (characterp ch?)
+      (list ch? (char-code ch?))
+      ch?))
+
+(define-condition char-error ()
   ((line :initarg :line :reader line)
    (col :initarg :col :reader col)
-   (line-num :initarg :line-num :reader line-num))
+   (line-num :initarg :line-num :reader line-num)
+   (ch :initarg :ch :reader ch :initform 'yok)))
+
+(define-condition char-not-closed (char-error) ()
   (:report (lambda (condition stream)
-             (format stream "Karakterin kapanış sembolü ' eksik.~%")
+             (format stream "Karakterin kapanış sembolü ' (tek tırnak) eksik.~%Okunan karakter: ~s~%" (char-num-pair (ch condition)))
              (report-line (line-num condition) (line condition) (col condition) stream))))
 
-(defun handle-char-not-closed (line-num line token-or-col)
-  (make-condition 'char-not-closed :line-num line-num :line line :col token-or-col))
+(define-condition empty-char (char-error) ()
+  (:report (lambda (condition stream)
+             (format stream "Boş karakter oluşturulamaz.~%")
+             (report-line (line-num condition) (line condition) (col condition) stream))))
+
+(defun cond-char-not-closed (line-num line token-or-col ch)
+  (make-condition 'char-not-closed :line-num line-num :line line :col token-or-col :ch ch))
+
+(defun cond-empty-char (line-num line token-or-col)
+  (make-condition 'empty-char :line-num line-num :line line :col token-or-col))
+
+
+
+(define-condition string-error ()
+  ((line :initarg :line :reader line)
+   (col :initarg :col :reader col)
+   (line-num :initarg :line-num :reader line-num)
+   (content :initarg :content :reader content :initform 'yok)))
+
+(define-condition string-not-closed (string-error) ()
+  (:report (lambda (condition stream)
+             (format stream "Metnin kapanış sembolü \" (çift tırnak) eksik.~%Okunan metin: ~s~%"
+                     (list (content condition) (length (content condition))))
+             (report-line (line-num condition) (line condition) (col condition) stream))))
+
+(defun cond-string-not-closed (line-num line token-or-col &optional (content 'yok))
+  (make-condition 'string-not-closed :line-num line-num :line line
+                                     :col token-or-col :content content))
+
+(define-condition empty-string (string-error) ()
+  (:report (lambda (condition stream)
+             (format stream "Boş metin oluşturulamaz.~%")
+             (report-line (line-num condition) (line condition) (col condition) stream))))
+
+(defun cond-empty-string (line-num line token-or-col)
+  (make-condition 'empty-string :line-num line-num :line line :col token-or-col))
+
+
 
 ;; (define-condition op-not-implemented (style-warning)
 ;;   ((undef-ops :initarg :ops :reader undef-ops))