(in-package :asdf-ecs)

(defclass c-compiler ()
  ((compiler-path :initarg :path
                  :accessor compiler-path
                  :documentation "The pathname of the compiler program.")))

(defvar *compilers*
  `((:gcc . ,(make-instance 'c-compiler :path "gcc")))
  "An alist of supported compilers and where to find them.")

(defvar *compiler*
  :gcc
  "The compiler which should be used to, well, compile C files.")

(defun get-compiler (compiler-name)
  "Returns the compiler object associated with compiler-name in *compilers*, if one exists."
  (cdr (assoc compiler-name *compilers*)))