path: root/cparse.lisp

(defpackage #:cparse
  (:use #:common-lisp #:cutil #:clex #:cabs-syn)
  (:export
   #:parse))
(in-package #:cparse)

(defclass <exp-elem> () () (:metaclass <abstract-class>))
(defclass <elem-exp> (<exp-elem>) ((exp :accessor exp)))
(defclass <elem-bin> (<exp-elem>) ((bin-op :accessor bin-op)))
(defclass <elem-unr> (<exp-elem>) ((unr-op :accessor unr-op)))
(defclass <elem-lp> (<exp-elem) ())

(defun unr-symb (s)
  (cond ((string= s "!") 'not)
	((string= s "-") 'uminus)
	(t (error "Parse error"))))

(defun bin-symb (s)
  (cond ((string= s "+") 'plus)
	((string= s "-") 'minus)
	((string= s "*") 'mult)
	((string= s "/") 'div)
	((string= s "%") 'mod)
	((string= s "=") 'equal)
	((string= s "<") 'less)
	((string= s "<=") 'lesseq)
	((string= s ">") 'great)))

(defun parse (str)
  (let* ((cl (init-lex str))
	 (tok (lexer cl)))
    (cond ((instancep tok (find-class '<lint>))
	   (make-instance (find-class '<line>) 'n n 'c (parse-cmd cl)))
	  ((instancep tok (find-class '<lident>))
	   (cond ((string= (ident tok) "LIST")
		  (make-instance (find-class '<phrase-list>)))
		 ((string= (ident tok) "RUN")
		  (make-instance (find-class '<phrase-run>)))
		 ((string= (ident tok) "END")
		  (make-instance (find-class '<phrase-p-end>)))
		 (t (error "Parse error"))))
	  (t (error "Parse error")))))