;;; -*- Emacs-Lisp -*-
;;; $Id: sample.emacs,v 3.1 1999/01/15 17:32:28 tsuchiya Exp $


(cond
 ((getenv "IREX_ROOT")
  ;; irex-judge を実行する判定者の PID
  ;;	この変数を設定しておくと、irex-judge 起動時に PID を確認しないようになる
  ; (setq irex-judge-default-pid "1234")

  ;; IREX 関連ファイルの基準ディレクトリを設定
  (setq irex-root-directory (getenv "IREX_ROOT"))

  (setq load-path (append
		   (list (expand-file-name "IR_TOOLS/lisp" irex-root-directory)
			 (expand-file-name "lisp" irex-root-directory))
		   load-path))

  (autoload 'irex-judge "irex-judge" "IREX Evaluation Kit" t nil)
  (autoload 'irex-browse "irex-browse" "IREX Evaluation Kit" t nil))

 (t ;; 環境変数 IREX_ROOT が設定されていない場合
  (defun irex-judge ()
    "Dummy IREX Evaluation Kit"
    (interactive)
    (ding)
    (message "環境変数 IREX_ROOT を設定して下さい。"))))