Added get-lexer-errors-msgs-json get-lexems-json to results-generator

Author: TheStalkerDen

DiffBackend/src/results-generator.lisp

@@ -6,7 +6,9 @@
         :diff-backend/statistics)
   (:export #:get-json-res
            #:get-stats-res
-           #:get-json-comments))
+           #:get-json-comments
+           #:get-lexer-errors-msgs-json
+           #:get-lexems-json))
 
 (in-package :diff-backend/results-generator)
 
@@ -36,6 +38,16 @@
            :do (setf (gethash line-num ht) (alexandria:plist-hash-table val))))
    stream))
 
+(defun get-lexer-errors-msgs-json (lexer-errors-msgs stream)
+  (encode-json
+   lexer-errors-msgs
+   stream))
+
+(defun get-lexems-json (lexems stream)
+  (encode-json
+   lexems
+   stream))
+
 (defgeneric gener-res-object (obj))
 
 (defmethod gener-res-object ((obj defun-node))