included commits to RCS files with non-trunk default branches.
--- /dev/null
+#
+# $Id: Makefile,v 1.1 1996-12-04 05:03:04 morioka Exp $
+#
+
+EMACS = emacs
+FLAGS = -batch -q -no-site-file -l SINFO-MK
+
+PREFIX =
+
+FILES = sinfo/Makefile sinfo/SINFO-* \
+ sinfo/*.el \
+ tl/*.el tl/TL-ELS \
+ emu/*.el emu/EMU-ELS
+
+TARFILE = sinfo-0.1.tar
+
+
+elc:
+ $(EMACS) $(FLAGS) -f compile-sinfo
+
+install: elc
+ $(EMACS) $(FLAGS) -f install-sinfo $(PREFIX)
+
+
+clean:
+ -rm *.elc
+
+
+tar:
+ cd ..; tar cvf $(TARFILE) $(FILES); gzip -best $(TARFILE)
--- /dev/null
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: SINFO-CFG,v 1.2 1997-01-01 06:53:26 morioka Exp $
+;;;
+
+(defvar default-load-path load-path)
+(setq load-path (nconc
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path default-directory)
+ ))
+ '("." "../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
--- /dev/null
+;;; -*-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
--- /dev/null
+;;; -*-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
--- /dev/null
+% sinfo to texinfo replacement file
+% by MORIOKA Tomohiko
+% $Id: texi-mapping,v 1.1 1996-12-23 20:13:11 morioka Exp $:
+
+<qwertz> +
+</qwertz> +
+
+<head> "\\input texinfo.tex\n@setfilename\n@settitle{}\n" +
+</head>
+
+<body> + "@node Top\n@top\n" +
+</body> + "@bye" +
+
+<dina4> + "@afourpaper" +
+</dina4>
+
+% Manual Pages are expected to be formatted using nroff (or groff), unless
+% they are included as sections of other qwertz documents.
+
+<manpage>
+</manpage>
+
+<titlepag> + "@titlepage" +
+</titlepag> + "@end titlepage" +
+
+<title> + "@title "
+</title>
+
+<subtitle> + "@subtitle "
+</subtitle>
+
+<author> + "@author "
+</author>
+
+<name>
+</name>
+
+<and> " and "
+</and>
+
+<thanks> " thanks to "
+</thanks>
+
+% ???
+<inst> " \\\\\n\\\\" +
+</inst>
+
+<date> + "@subtitle "
+</date>
+
+<newline> "@*"
+</newline>
+
+<label> + "@LABEL [ID]"
+</label> +
+
+<header> + "@c %% "
+</header>
+
+<lhead> "{"
+</lhead> "}"
+
+<rhead> "{"
+</rhead> "}" +
+
+<comment> + "@example" +
+</comment> + "@end example" +
+
+<abstract> + "\n@ifinfo" +
+</abstract> + "@end ifinfo" +
+
+<appendix> + "\n@appendix "
+</appendix>
+
+<toc>
+</toc>
+
+<cindex> + "@printindex cp" +
+</cindex>
+
+<findex> + "@printindex fn" +
+</findex>
+
+<vindex> + "@printindex vr" +
+</vindex>
+
+<lof> + "\\listoffigures" +
+</lof>
+
+<lot> + "\\listoftables" +
+</lot>
+
+<h1> + "\n@chapter "
+</h1>
+
+<h2> + "\n@section "
+</h2>
+
+<h3> + "\n@subsection "
+</h3>
+
+<h4> + "\n@subsubsection "
+</h4>
+
+<h5> + "\n@subsubsubsection "
+</h4>
+
+<node> + "@node "
+</node>
+
+<heading> ""
+</heading> "\n"
+
+<p> + "\n" +
+</p> "{@refill}" +
+
+<noindent> + "@noindent" +
+</noindent>
+
+<ul> + "@itemize @bullet" +
+</ul> + "@end itemize" +
+
+<ol> + "@enumerate" +
+</ol> + "@end enumerate" +
+
+<list> + "\\begin{list}{}{}\n" +
+</list> + "\\end{list}" +
+
+<dl> + "@table @samp" +
+</dl> + "@end table" +
+<dt> + "@item "
+<dd> +
+</dd> + "\n"
+<vl> + "@table @var" +
+</vl> + "@end table" +
+<kl> + "@table @kbd" +
+</kl> + "@end table" +
+<kt> + "@item @key{"
+<kd> "}\n"
+</kd> + "\n"
+<li> + "@item\n"
+</li> +
+
+<tag> + "@item "
+</tag> "\n"
+
+<cite> "\\cite{[ID]"
+</cite> "}"
+
+<ncite> "\\cite\[[NOTE]\]{[ID]"
+</ncite> "}"
+
+<idx> "\\idx{"
+</idx> "}"
+
+<cdx> "\\cdx{"
+</cdx> "}"
+
+<footnote> "\\footnote{"
+</footnote> "}"
+
+<sq> "``"
+</sq> "''"
+
+<lq> + "\\begin{quotation}\n" +
+</lq> + "\n\\end{quotation}\n\n" +
+
+<em> "`"
+</em> "'"
+
+<bf> "@strong{"
+</bf> "}"
+
+<it> "@emph{"
+</it> "}"
+
+<sf> ""
+</sf> ""
+
+<sl> "`"
+</sl> "'"
+
+<rm> "`"
+</rm> "'"
+
+<tt> "`"
+</tt> "'"
+
+% Added by mdw
+<cparam> "\\cparam{"
+</cparam> "}"
+
+<concept> "@CONCEPT{"
+</concept> "}"
+
+<a> "@AREF{([file])[node]}{<URL:[href]>}"
+</a> "@end AREF"
+
+<cf> "(cf. [p]@ref{([file])[node]}{<URL:[href]>}"
+</cf> "{@refill})" +
+
+<ref> "@ref{([file])[node]}"
+</ref>
+
+<dref> "@DREF{([file])"
+</dref> "}@end DREF{@refill}"
+
+<x>
+</x>
+
+<mc>
+</mc>
+
+<biblio>
+</biblio>
+
+<code> "@code{"
+</code> "}"
+
+<verb> + "@example" +
+</verb> + "@end example" +
+
+<tscreen> + "@example" +
+</tscreen> + "@end example" +
+
+<quote> + "@quotation" +
+</quote> + "@end quotation" +
+
+% theorems and such
+
+<def> + "@deffn"
+</def> + "@end deffn" +
+
+<defun> + "@defun [name]"
+</defun> + "@end defun" +
+
+<opts> " &optional "
+<rest> " &rest "
+
+<define> + "@deffn{[type]} [name]"
+</define> + "@end deffn" +
+
+<defvar> + "@defvar [name]" +
+</defvar> + "@end defvar" +
+
+<prop> + "\\begin{proposition}" +
+</prop> + "\\end{proposition}" +
+
+<lemma> + "\\begin{lemma}"
+</lemma> + "\\end{lemma}\n\n" +
+
+<coroll> + "\\begin{corollary}"
+</coroll> + "\\end{corollary}\n\n" +
+
+<proof> + "\n{\\noindent{\\bf Proof.} " +
+</proof> + "}"
+
+<theorem> + "\\begin{theorem}"
+</theorem> + "\\end{theorem}\n\n" +
+
+<thtag> "\["
+</thtag> "\]" +
+
+<var> "@var{"
+</var> "}"
+
+<lisp> + "@lisp" +
+</lisp> + "@end lisp" +
+
+<mail> "<"
+</mail> ">"
+
+<file> "@file{"
+</file> "}"
+
+<kbd> "@kbd{"
+</kbd> "}"
+
+<key> "@key{"
+</key> "}"
+
+<memo> + "@noindent\n@strong{\[[title]\]}\n@quotation\n" +
+</memo> + "@end quotation" +
+
+<rfc> "@cindex{[name]}@cindex{[type]}@cindex{RFC [number]}\n@noindent\n\[[name]: RFC [number]\]\n@quotation\n[author], ``[title]'', [date], [type] (obsolete RFC [obsolete]).\n@end quotation" +
+
+<standard> "@cindex{[abbrev]}@cindex{[number]:[year]}\n@noindent\n\[[abbrev]]\n@quotation\n[org],\92¡Ø[title-cn]\92¡Ù,\92¡Ø[title-ja]\92¡Ù, ``[title-fr]'', ``[title-en]'', [number]:[year].\n@end quotation" +
+
+<report> "@cindex{[abbrev]}\n@noindent\n\[[abbrev]]\n@quotation\n[author],\92¡Ø[title-cn]\92¡Ù,\92¡Ø[title-ja]\92¡Ù, ``[title-fr]'', ``[title-en]'', [date].\n@end quotation" +
+
+<inproc> "@cindex{[abbrev]}\n@noindent\n\[[abbrev]]\n@quotation\n[author],\92¡Ø[title-cn]\92¡Ù,\92¡Ø[title-ja]\92¡Ù, ``[title-fr]'', ``[title-en]'', [book-cn], [book-en], [book-ja], [book-fr], [date].\n@end quotation" +
+
+% mathematics
+
+<f> "$"
+</f> "$"
+
+<dm> + "\\\["
+</dm> "\\\]" +
+
+<eq> + "\\begin{equation}" +
+</eq> + "\\end{equation}\n" +
+
+<fr> "\\frac"
+</fr>
+
+<nu> "{"
+</nu> "}"
+
+<de> "{"
+</de> "}"
+
+<lim>
+</lim>
+
+<op>
+</op>
+
+<sub> "_{"
+</sub> "}"
+
+<super> "^{"
+</super> "}"
+
+<opd>
+</opd>
+
+<pr> "\\prod"
+</pr>
+
+<in> "\\int"
+</in>
+
+<sum> "\\sum"
+</sum>
+
+<root> "\\sqrt\[[n]\]{"
+</root> "}"
+
+<ar> + "\\begin{array}{[ca]}" +
+</ar> + "\\end{array}" +
+
+<arr> " \\\\ " +
+</arr>
+
+<arc> " & "
+</arc>
+
+
+<sup> "^("
+</sup> ")"
+
+<inf> "_("
+</inf> ")"
+
+<unl> "*"
+</unl> "*"
+
+<ovl> "ol("
+</ovl> ")"
+
+<rf> "\\mbox{\\tt "
+</rf> "}"
+
+<v> "\\vec{"
+</v> "}"
+
+<fi> ""
+</fi> ""
+
+<phr> "{@r{}"
+</phr> "}"
+
+<tu> "\\\\ \n"
+</tu>
+
+% figures
+
+<figure> + "\\begin{figure}\[[LOC]\]" +
+</figure> + "\\end{figure}\n" +
+
+<eps> + "\\centerline{\\epsffile{[FILE].ps}}" +
+</eps>
+
+
+<ph> + "\\vspace{[VSPACE]}\n\\par" +
+</ph>
+
+<caption> + "\\caption{"
+</caption> "}" +
+
+% tables
+
+<table> + "\\begin{table}\[[LOC]\]" +
+</table> + "\\end{table}" +
+
+<tabular> + "\\begin{center}\n"
+ "\\begin{tabular}{[ca]}" +
+</tabular> + "\\end{tabular}\n"
+ "\\end{center}" +
+
+<rowsep> "\\\\ " +
+</rowsep>
+
+<colsep> "& "
+</colsep>
+
+<hline> + "\\hline" +
+</hline>
+
+% end of texinfo replacement file
+
--- /dev/null
+;;; texi-util.el --- Texinfo utility
+
+;; Copyright (C) 1996 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Version: $Id: texi-util.el,v 1.2 1996/10/10 14:20:38 morioka Exp $
+;; Keywords: Texinfo
+
+;; This file is part of tl (Tiny Library).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(defun texinfo-all-menu-titles-update ()
+ (interactive)
+ (goto-char (point-min))
+ (while (search-forward "\n@menu\n" nil t)
+ (goto-char (match-end 0))
+ (while (looking-at "* \\([^:]+\\)::")
+ (let ((title (buffer-substring (match-beginning 1)(match-end 1)))
+ subj)
+ (save-excursion
+ (let ((ret
+ (re-search-forward
+ (format
+ "@node %s.*\n@\\(chapter\\|\\(sub\\)*section\\) \\(.+\\)"
+ (regexp-quote title)))))
+ (if ret
+ (let ((data (last (match-data) 2)))
+ (setq subj (buffer-substring (car data)
+ (car (cdr data))))
+ ))
+ ))
+ (if subj
+ (or (string= subj title)
+ (progn
+ (end-of-line)
+ (insert subj)
+ )))
+ (end-of-line)
+ (forward-char)
+ ))))
+
+
+;;; @ end
+;;;
+
+(provide 'texi-util)
+
+;;; texi-util.el ends here
projects / elisp / sinfo.git / commitdiff