From 54d0ee10e9c5b901dbc1e9038fb277d1433a2414 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 28 Nov 1996 13:35:39 +0000 Subject: [PATCH] Initial revision --- SINFO-CFG | 68 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ SINFO-ELS | 11 ++++++++++ SINFO-MK | 41 +++++++++++++++++++++++++++++++++++++ 3 files changed, 120 insertions(+) create mode 100644 SINFO-CFG create mode 100644 SINFO-ELS create mode 100644 SINFO-MK diff --git a/SINFO-CFG b/SINFO-CFG new file mode 100644 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 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 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 -- 1.7.10.4