;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: mk-yk,v 0.2 1996/09/18 09:17:39 morioka Exp $
;;;

(defun config-yk ()
  (let (prefix)
    (setq prefix (car command-line-args-left))
    (and prefix
	 (not (string-equal "NONE" prefix))
	 (progn
	   (defvar PREFIX prefix)
	   (setq command-line-args-left (cdr command-line-args-left))
	   ))
    (load-file "YK-CFG")
    (load-file "../tl/TL-ELS")
    (load-file "YK-ELS")
    (princ (format "PREFIX=%s\n" PREFIX))
    ))

(defun compile-yk ()
  (config-yk)
  (require 'roman-to-kana)
  (compile-elisp-modules tl-modules		"../tl")
  (compile-elisp-modules yude-kkc-modules	".")
  )

(defun install-yk ()
  (config-yk)
  (install-elisp-modules tl-modules		"../tl" TL_DIR)
  (install-elisp-modules yude-kkc-modules	"./"	YK_DIR)
  )

;;; mk-yk ends here
