From: morioka Date: Tue, 10 Mar 1998 06:32:32 +0000 (+0000) Subject: tm 7.95. X-Git-Tag: tm-7_95~1 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c05511f2ffab1a179eaf7842ba6a4620936799f8;p=elisp%2Fsinfo.git tm 7.95. --- c05511f2ffab1a179eaf7842ba6a4620936799f8 diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..c589fa3 --- /dev/null +++ b/ChangeLog @@ -0,0 +1,11 @@ +Wed Dec 4 05:03:04 1996 MORIOKA Tomohiko + + * sinfo: Version 3.3 was released. + + * Makefile: New file. + +Thu Nov 28 13:35:39 1996 MORIOKA Tomohiko + + * SINFO-MK, SINFO-ELS, SINFO-CFG: New file. + + * sinfo.el (sinfo-texi-mapping-file): New module. diff --git a/sinfo.dtd b/sinfo.dtd new file mode 100644 index 0000000..164dc6d --- /dev/null +++ b/sinfo.dtd @@ -0,0 +1,437 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +%general; + + + + + + + + + +' > +

' > + + + + + + + + + + +' -- formula begin -- > +'> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +"> +"> + + + + + + + + + + + + + + + + + + + + + + + + + + + + +' -- formula end -- > + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +" > +" > + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +' > + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +"> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/sinfo.el b/sinfo.el new file mode 100644 index 0000000..d6c4793 --- /dev/null +++ b/sinfo.el @@ -0,0 +1,252 @@ +;;; sinfo.el --- sinfo to Texinfo converter + +;; Copyright (C) 1996 MORIOKA Tomohiko + +;; Author: MORIOKA Tomohiko +;; Version: $Id: sinfo.el,v 3.3 1996/11/28 13:34:51 morioka Exp $ +;; Keywords: outline-mode, Texinfo, plain2 + +;; This file is part of sinfo (SGML based info system). + +;; 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. + +;;; Comment: + +;; This program is for Emacs/mule (mule-19.33-delta) and requires +;; sgmls. + +;;; Code: + +(require 'tl-list) +(require 'tl-str) +(require 'texinfmt) +(require 'texi-util) + +(defvar sinfo-texi-mapping-file + "/usr/local/share/sgml/rep/sinfo/texi-mapping" + "*SGML mapping file to convert into Texinfo.") + +(defun sinfo-texi-swap-node () + (interactive) + (goto-char (point-min)) + (while (re-search-forward + "^\\(@\\(chapter\\|\\(sub\\)*section\\) .*\\) +\\(@node .*\\)\n" nil t) + (let* ((md (match-data)) + (nd (last md 2)) + (nb (car nd)) + (ne (second nd)) + ) + (replace-match (format "%s\n%s" + (buffer-substring nb ne) + (buffer-substring (match-beginning 0) nb) + )) + ))) + +(defun sinfo-filter-for-standard () + (goto-char (point-min)) + (while (re-search-forward + "@noindent\n\\[\\([^][]*\\)\\]\n@quotation\n\\([^,]*\\)," nil t) + (let ((name (buffer-substring (match-beginning 1)(match-end 1))) + (org (buffer-substring (match-beginning 2)(match-end 2))) + (dest "@quotation\n") + (b (match-beginning 0)) + ) + (save-restriction + (and (eq (aref name 0) ?:) + (eq (aref name 1) ?\ ) + (setq name (substring name 2)) + ) + (or (string= name "") + (setq dest (concat "@noindent\n[" name "]\n" dest)) + ) + (or (string= org "") + (setq dest (concat dest org ",")) + ) + (replace-match dest) + (search-forward "@end quotation") + (narrow-to-region b (match-beginning 0)) + (goto-char b) + (if (search-forward " (obsolete RFC )" nil t) + (replace-match "") + ) + (goto-char b) + (while (search-forward "『』" nil t) + (replace-match "") + ) + (goto-char b) + (while (search-forward "``''" nil t) + (replace-match "") + ) + (goto-char b) + (while (re-search-forward ",[ \t\n]*," nil t) + (replace-match ",") + (goto-char b) + ) + (and (re-search-forward "^,[ \t\n]*" nil t) + (replace-match "") + ) + (if (search-forward ", ." nil t) + (replace-match ".") + ) + (goto-char (point-max)) + (fill-paragraph nil) + )))) + +(defun sinfo-to-texi () + (interactive) + (let* ((the-buf (current-buffer)) + (src-name (buffer-file-name)) + (name (file-name-non-extension src-name)) + (dst-name (concat name ".texi")) + (fname (concat (file-name-nondirectory name) ".info")) + (cs buffer-file-coding-system) + status) + (find-file dst-name) + (erase-buffer) + (insert-buffer the-buf) + (goto-char (point-min)) + (while (re-search-forward "[@{}]" nil t) + (replace-match (concat "@" (buffer-substring (match-beginning 0) + (match-end 0)))) + ) + (let ((coding-system-for-read 'coding-system-internal) + (coding-system-for-write 'coding-system-internal) + ) + (setq status + (call-process-region (point-min)(point-max) + "sh" t t t + "-c" + (format "sgmls|sgmlsasp %s" + (expand-file-name + sinfo-texi-mapping-file) + ) + ) + ) + ) + (goto-char (point-min)) + (if (and (search-forward "sgmls:" nil t) + (re-search-forward "line \\([0-9]+\\)" nil t) + ) + (let ((line (string-to-number + (buffer-substring (match-beginning 1) + (match-end 1))) + )) + (progn + (pop-to-buffer the-buf) + (goto-line line) + )) + (set-buffer-file-coding-system cs) + (sinfo-texi-swap-node) + (let ((title + (progn + (goto-char (point-min)) + (and (re-search-forward "@title \\(.*\\)\n" nil t) + (buffer-substring (match-beginning 1)(match-end 1)) + ))) + ) + (goto-char (point-min)) + (and (re-search-forward "@setfilename$" nil t) + (replace-match + (format "@setfilename %s" fname) + )) + (and (re-search-forward "@settitle{}" nil t) + (replace-match + (format "@settitle{%s}" title) + )) + (and (re-search-forward "@top$" nil t) + (replace-match + (format "@top %s" title) + )) + ) + (goto-char (point-min)) + (while (re-search-forward + "@DREF{\\(([^{}()]*)\\)\\([^{}]+\\)}" + nil t) + (let ((file (buffer-substring (match-beginning 1)(match-end 1))) + (word (buffer-substring (match-beginning 2)(match-end 2))) + ) + (replace-match "") + (re-search-forward "@end DREF") + (replace-match + (concat word " (@ref{" + (if (string= file "()") + word + (concat file word) + ) "})")) + )) + (goto-char (point-min)) + (while (re-search-forward + "@AREF{\\([^{}]*\\)}{()]*\\)>}\n*" + nil t) + (let ((node (buffer-substring (match-beginning 1)(match-end 1))) + (url (buffer-substring (match-beginning 2)(match-end 2))) + ) + (replace-match "") + (re-search-forward "@end AREF") + (replace-match + (if (string= node "()") + (concat "(" url ")") + (concat "(@ref{" node "})") + )) + )) + (sinfo-filter-for-standard) + (goto-char (point-min)) + (while (re-search-forward "@CONCEPT{\\([^{}]+\\)}" nil t) + (let ((name (buffer-substring (match-beginning 1) (match-end 1)))) + (replace-match (format "@cindex{%s}@strong{%s}" name name) + 'fixed-case) + )) + (goto-char (point-min)) + (while (search-forward "{}" nil t) + (replace-match "") + ) + (goto-char (point-min)) + (while (search-forward "@ref{()" nil t) + (replace-match "@ref{") + ) + (goto-char (point-min)) + (while (search-forward "@ref{}" nil t) + (replace-match "") + ) + (goto-char (point-min)) + (while (search-forward "@cindex{}" nil t) + (replace-match "") + ) + (goto-char (point-min)) + (while (re-search-forward "{@refill}" nil t) + (replace-match "") + (if (= (current-column) 0) + (delete-char 1) + ;;(fill-paragraph nil) + (if (looking-at "\n\n") + (insert "@refill") + ) + (fill-paragraph nil) + )) + (texinfo-every-node-update) + (texinfo-all-menus-update) + (texinfo-all-menu-titles-update) + (goto-char (point-min)) + ))) + + +;;; @ end +;;; + +(provide 'sinfo) + +;;; sinfo.el ends here