Initial revision

diff --git a/SINFO-CFG b/SINFO-CFG
new file mode 100644 (file)
index 0000000..c74bb1f
--- /dev/null
+++ b/SINFO-CFG
@@ -0,0 +1,68 @@
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: SINFO-CFG,v 1.1 1996-11-28 13:35:05 morioka Exp $
+;;;
+
+(defvar default-load-path load-path)
+(setq load-path (nconc
+                (mapcar (function
+                         (lambda (path)
+                           (expand-file-name path (getenv "PWD"))
+                           ))
+                        '("." "../emu" "../tl" "../sinfo")
+                        )
+                load-path))
+
+(require 'tl-misc)
+(require 'install)
+
+
+;;; @ shell
+;;;
+
+;; Please specify shell command path.
+(setq SHELL
+      (find-if (function file-exists-p)
+              '("/bin/sh" "/usr/bin/sh")
+              ))
+
+;; Please specify shell command option.
+(setq SHELLOPTION "-c")
+
+
+;;; @ Please specify prefix of install directory.
+;;;
+
+;; Please specify install path prefix.
+;; If it is omitted, shared directory (maybe /usr/local is used).
+(defvar PREFIX install-prefix)
+;;(setq PREFIX "~/")
+
+;; Please specify tl prefix [optional]
+;;(setq TL_PREFIX "tl")
+(setq TL_PREFIX
+      (if (string-match "XEmacs" emacs-version)
+         "tl"
+       ""))
+
+(setq SINFO_PREFIX "sinfo")
+
+
+;;; @ optional settings
+;;;
+
+;; It is generated by automatically. Please set variable `PREFIX'.
+;; If you don't like default directory tree, please set it.
+(defvar LISPDIR (install-detect-elisp-directory PREFIX))
+;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
+
+(setq EMU_DIR (install-detect-elisp-directory PREFIX nil
+                                             'version-specific))
+
+(setq TL_DIR (expand-file-name TL_PREFIX LISPDIR))
+(setq SINFO_DIR (expand-file-name SINFO_PREFIX LISPDIR))
+
+(setq DTD_DIR (expand-file-name "share/sgml/dtd" PREFIX))
+(setq TEXI_REP_DIR (expand-file-name "share/sgml/rep/sinfo" PREFIX))
+
+;;; SINFO-CFG ends here

diff --git a/SINFO-ELS b/SINFO-ELS
new file mode 100644 (file)
index 0000000..c48a3a7
--- /dev/null
+++ b/SINFO-ELS
@@ -0,0 +1,11 @@
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: SINFO-ELS,v 1.1 1996-11-28 13:35:16 morioka Exp $
+;;;
+
+(setq sinfo-modules
+      (cond (running-mule-merged-emacs
+            '(sinfo)
+            )))
+
+;;; SINFO-ELS ends here

diff --git a/SINFO-MK b/SINFO-MK
new file mode 100644 (file)
index 0000000..125dd0a
--- /dev/null
+++ b/SINFO-MK
@@ -0,0 +1,41 @@
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: SINFO-MK,v 1.1 1996-11-28 13:35:39 morioka Exp $
+;;;
+
+(defun config-sinfo ()
+  (let (prefix exec-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 "SINFO-CFG")
+  (load-file "../emu/EMU-ELS")
+  (load-file "../tl/TL-ELS")
+  (load-file "SINFO-ELS")
+  (princ (format "PREFIX=%s\n" PREFIX))
+  )
+
+(defun compile-sinfo ()
+  (config-sinfo)
+  (print load-path)
+  (compile-elisp-modules emu-modules   "../emu")
+  (compile-elisp-modules tl-modules    "../tl")
+  (compile-elisp-modules sinfo-modules ".")
+  )
+
+(defun install-sinfo ()
+  (config-sinfo)
+  (princ (format "%s\n" emacs-version))
+  (install-elisp-modules emu-modules   "../emu"        EMU_DIR)
+  (install-elisp-modules tl-modules    "../tl"         TL_DIR)
+  (install-elisp-modules sinfo-modules "."             SINFO_DIR)
+  (install-files '("sinfo.dtd")        "."     DTD_DIR         nil 'overwrite)
+  (install-files '("texi-mapping") "." TEXI_REP_DIR    nil 'overwrite)
+  )
+
+;;; MK-SINFO ends here