thodg/cl-css-parser/parser.lisp

Branch : - branch - master - tag -

• Show log

  Commit

• Author : Thomas de Grivel
  Date : 2017-02-13 12:13:55
  Hash : 987e989c
  Message : WIP css-parser

• parser.lisp

• (in-package :parse-css)
  
  (defclass token ()
    ((string :initarg :string
  	   :accessor token-string
  	   :type string)
     (line :initarg :line
  	 :initform 0
  	 :accessor token-line
  	 :type fixnum)
     (character :initarg :character
  	      :initform 0
  	      :accessor token-character
  	      :type fixnum)))
  
  (defclass parser-token (token)
    ((start :initarg :start
  	  :accessor token-start
  	  :type fixnum)))
  
  (defclass parser ()
    ((input :initarg :stream
  	   :reader parser-input
  	   :type stream)
     (input-line :initarg :input-line
  	       :initform 0
  	       :accessor parser-input-line
  	       :type fixnum)
     (input-character :initarg :input-character
  		    :initform -1
  		    :accessor parser-input-character
  		    :type fixnum)
     (eof :initform nil
  	:accessor parser-eof)
     (ib :initform (make-input-buffer)
         :accessor parser-ib
         :type array)
     (match-start :initform 0
  		:accessor parser-match-start
  		:type fixnum)
     (token-stack :initform ()
  		:accessor parser-token-stack
  		:type list)
     (ib :initform (make-item-buffer)
         :accessor parser-ib
         :type vector)
     (item-match-start :initform 0
  		     :accessor parser-item-match-start
  		     :type fixnum)))