Subversion Repositories core_arm

; Konrad Eisele <eiselekd@web.de>

; cdef_lib_i1.el: Some vhdl printing functions

;-----------------------------------------------------------------------

; binary list to hex string

; (conv-hex-vhd '(0 0 1 1 1 ))

; (conv-hex-vhd (make-list 10 1))

(defun conv-hex-vhd (k)

  (concat "\"" (mapconcat 'number-to-string k "") "\"")

)

(defun print-decode-vhd-hash (dec depth)

  (cond

     ((hash-table-p dec)

     (let ((p ""))

       ( maphash (function (lambda (k v)

         (let ((p2 ""))

           (setq p2 (concat p2 (space-string (- depth 1) " ") "when " (conv-hex-vhd k) "=>\n"   ))

           (if (is-decoder v)

               (setq p2 (concat p2 (print-decoder-vhd v depth)))

               (setq p2 (concat p2 (space-string depth  " ") "return " (mapconcat 'symbol-name v "," ) ";\n"))

           )

           (setq p (concat p p2))

         ))) dec )

       `,p

     ))

     ((listp dec)

      (mapconcat 'print-list dec " ")

     )

     ((t) ('"?")))

)

;(print-insnrange-vhd 10 1)

(defun print-insnrange-vhd (l r)

  (concat "insn(" (number-to-string l) " downto " (number-to-string r) ")")

)

(defun print-decoder-vhd (d depth)

  (let ((l (- 31 (nth 1 d)))

        (r (+ (- 31 (nth 2 d)) 1))

        (dec (nth 3 d))

        (def (nth 4 d))

        (p ""))

    (if (not (and (eq l 31) (eq r 32)))

        (progn

          (setq p (concat p (space-string depth " ") "case " (print-insnrange-vhd l r) " is  \n"  ))

          (setq p (concat p (print-decode-vhd-hash dec (+ 1 depth) ) ))

          (setq p (concat p (space-string depth " ") "when others =>\n" (space-string depth " ") "end case;\n"))

        )

    )

    (if (eq (length def) 5)

        (if (and (eq (nth 0 def) 0) (eq (nth 1 def) 0) (> (length (nth 4 def)) 0))

            (setq p (concat p (space-string depth " ")  "return " (mapconcat 'symbol-name (nth 4 def)  " ") "; --default\n" ))

            (setq p (concat p (space-string depth " ")  " -- default:\n" (space-string depth " ") (print-decoder-vhd def depth)  ) )

        )

    )

    `,p

  )

)

(defun print-decoder-vhd-pre (d)

  (let ((v ""))

    (setq v (print-decoder-vhd d 0))

    ;(setq v (concat "unsigned int decode(unsigned int insn, insn_union *s) {\n" v "\n};"))

    `,v

  )

)

;-----------------------------------------------------------------------