(in-package "XWORD")

(defvar +ordered-dictionaries+)

(defun initialize-ordered-dictionaries (words-path)
  (setq +ordered-dictionaries+
	(read-ordered-dictionaries words-path)) nil)

(initialize-ordered-dictionaries "home:/extern/arccc-0.1a/examples/wlist.txt")

;;; A key-space is an array of charsets. The charset at index n
;;; specifies say which chars are present at that position.
;;;
(defun make-key-space (length)
  "Returns an empty key-space."
  (let ((array (make-array length :initial-element nil)))
    (loop for i below length do (setf (aref array i) (make-empty-charset)))
    array))