1 ;;; texinfmt.el --- format Texinfo files into Info files.
3 ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993 Free Software
6 ;; Maintainer: Robert J. Chassell <bug-texinfo@prep.ai.mit.edu>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 ;;; Emacs lisp functions to convert Texinfo files to Info files.
29 (defvar texinfmt-version
"2.32 of 19 November 1993")
31 ;;; Variable definitions
33 (require 'texinfo
) ; So `texinfo-footnote-style' is defined.
34 (require 'texnfo-upd
) ; So `texinfo-section-types-regexp' is defined.
36 (defvar texinfo-format-syntax-table nil
)
38 (defvar texinfo-vindex
)
39 (defvar texinfo-findex
)
40 (defvar texinfo-cindex
)
41 (defvar texinfo-pindex
)
42 (defvar texinfo-tindex
)
43 (defvar texinfo-kindex
)
44 (defvar texinfo-last-node
)
45 (defvar texinfo-node-names
)
46 (defvar texinfo-enclosure-list
)
47 (defvar texinfo-alias-list
)
49 (defvar texinfo-command-start
)
50 (defvar texinfo-command-end
)
51 (defvar texinfo-command-name
)
52 (defvar texinfo-defun-type
)
53 (defvar texinfo-last-node-pos
)
54 (defvar texinfo-stack
)
55 (defvar texinfo-short-index-cmds-alist
)
56 (defvar texinfo-short-index-format-cmds-alist
)
57 (defvar texinfo-format-filename
)
58 (defvar texinfo-footnote-number
)
59 (defvar texinfo-start-of-header
)
60 (defvar texinfo-end-of-header
)
61 (defvar texinfo-raisesections-alist
)
62 (defvar texinfo-lowersections-alist
)
66 (if texinfo-format-syntax-table
68 (setq texinfo-format-syntax-table
(make-syntax-table))
69 (modify-syntax-entry ?
\" " " texinfo-format-syntax-table
)
70 (modify-syntax-entry ?
\\ " " texinfo-format-syntax-table
)
71 (modify-syntax-entry ?
@ "\\" texinfo-format-syntax-table
)
72 (modify-syntax-entry ?\^q
"\\" texinfo-format-syntax-table
)
73 (modify-syntax-entry ?\
[ "." texinfo-format-syntax-table
)
74 (modify-syntax-entry ?\
] "." texinfo-format-syntax-table
)
75 (modify-syntax-entry ?\
( "." texinfo-format-syntax-table
)
76 (modify-syntax-entry ?\
) "." texinfo-format-syntax-table
)
77 (modify-syntax-entry ?
{ "(}" texinfo-format-syntax-table
)
78 (modify-syntax-entry ?
} "){" texinfo-format-syntax-table
)
79 (modify-syntax-entry ?
\' "." texinfo-format-syntax-table
))
82 ;;; Top level buffer and region formatting functions
85 (defun texinfo-format-buffer (&optional notagify
)
86 "Process the current buffer as texinfo code, into an Info file.
87 The Info file output is generated in a buffer visiting the Info file
88 names specified in the @setfilename command.
90 Non-nil argument (prefix, if interactive) means don't make tag table
91 and don't split the file if large. You can use Info-tagify and
92 Info-split to do these manually."
94 (let ((lastmessage "Formatting Info file..."))
96 (texinfo-format-buffer-1)
99 (if (> (buffer-size) 30000)
101 (message (setq lastmessage
"Making tags table for Info file..."))
103 (if (> (buffer-size) 100000)
105 (message (setq lastmessage
"Splitting Info file..."))
107 (message (concat lastmessage
108 (if (interactive-p) "done. Now save it." "done.")))))
110 (defvar texinfo-region-buffer-name
"*Info Region*"
111 "*Name of the temporary buffer used by \\[texinfo-format-region].")
114 (defun texinfo-format-region (region-beginning region-end
)
115 "Convert the current region of the Texinfo file to Info format.
116 This lets you see what that part of the file will look like in Info.
117 The command is bound to \\[texinfo-format-region]. The text that is
118 converted to Info is stored in a temporary buffer."
120 (message "Converting region to Info format...")
121 (let (texinfo-command-start
131 (texinfo-format-filename "")
132 texinfo-example-start
133 texinfo-last-node-pos
136 (texinfo-footnote-number 0)
138 (fill-column-for-info fill-column
)
139 (input-buffer (current-buffer))
140 (input-directory default-directory
)
145 ;;; Copy lines between beginning and end of header lines,
146 ;;; if any, or else copy the `@setfilename' line, if any.
150 (goto-char (point-min))
151 (let ((search-end (save-excursion (forward-line 100) (point))))
153 ;; Either copy header text.
156 (search-forward tex-start-of-header search-end t
)
158 ;; Mark beginning of header.
159 (setq header-beginning
(point)))
161 (search-forward tex-end-of-header nil t
)
163 ;; Mark end of header
164 (setq header-end
(point))))
165 ;; Or copy @filename line.
167 (goto-char (point-min))
168 (search-forward "@setfilename" search-end t
)
170 (setq header-beginning
(point))
172 (setq header-end
(point))))
177 (min header-beginning region-beginning
)
180 ;;; Find a buffer to use.
181 (switch-to-buffer (get-buffer-create texinfo-region-buffer-name
))
183 ;; Insert the header into the buffer.
185 ;; Insert the region into the buffer.
186 (insert-buffer-substring
188 (max region-beginning header-end
)
190 ;; Make sure region ends in a newline.
191 (or (= (preceding-char) ?
\n)
194 (goto-char (point-min))
196 (message "Converting region to Info format...")
197 (setq fill-column fill-column-for-info
)
198 ;; Install a syntax table useful for scanning command operands.
199 (set-syntax-table texinfo-format-syntax-table
)
201 ;; Insert @include files so `texinfo-raise-lower-sections' can
202 ;; work on them without losing track of multiple
203 ;; @raise/@lowersections commands.
204 (while (re-search-forward "^@include" nil t
)
205 (setq texinfo-command-end
(point))
206 (let ((filename (concat input-directory
207 (texinfo-parse-line-arg))))
208 (re-search-backward "^@include")
209 (delete-region (point) (save-excursion (forward-line 1) (point)))
210 (message "Reading included file: %s" filename
)
215 (+ (point) (car (cdr (insert-file-contents filename
)))))
216 (goto-char (point-min))
217 ;; Remove `@setfilename' line from included file, if any,
218 ;; so @setfilename command not duplicated.
219 (if (re-search-forward
220 "^@setfilename" (save-excursion (forward-line 100) (point)) t
)
224 (point) (save-excursion (forward-line 1) (point)))))))))
226 ;; Raise or lower level of each section, if necessary.
227 (goto-char (point-min))
228 (texinfo-raise-lower-sections)
229 ;; Append @refill to appropriate paragraphs for filling.
230 (goto-char (point-min))
231 (texinfo-append-refill)
232 ;; If the region includes the effective end of the data,
233 ;; discard everything after that.
234 (goto-char (point-max))
235 (if (re-search-backward "^@bye" nil t
)
236 (delete-region (point) (point-max)))
237 ;; Make sure buffer ends in a newline.
238 (or (= (preceding-char) ?
\n)
240 ;; Don't use a previous value of texinfo-enclosure-list.
241 (setq texinfo-enclosure-list nil
)
242 (setq texinfo-alias-list nil
)
244 (goto-char (point-min))
245 (if (looking-at "\\\\input[ \t]+texinfo")
246 (delete-region (point) (save-excursion (forward-line 1) (point))))
248 ;; Insert Info region title text.
249 (goto-char (point-min))
251 "@setfilename" (save-excursion (forward-line 100) (point)) t
)
253 (setq texinfo-command-end
(point))
255 (setq texinfo-command-start
(point))
256 (let ((arg (texinfo-parse-arg-discard)))
258 texinfo-region-buffer-name
260 (insert (file-name-nondirectory (expand-file-name arg
)))
261 (insert "', -*-Text-*-\n")))
262 ;; Else no `@setfilename' line
264 texinfo-region-buffer-name
265 " buffer -*-Text-*-\n"))
266 (insert "produced by `texinfo-format-region'\n"
268 (if (buffer-file-name input-buffer
)
270 (file-name-sans-versions
271 (file-name-nondirectory
272 (buffer-file-name input-buffer
)))
274 (concat "buffer `" (buffer-name input-buffer
) "'"))
275 "\nusing `texinfmt.el' version "
279 ;; Now convert for real.
280 (goto-char (point-min))
281 (texinfo-format-scan)
282 (goto-char (point-min))
287 ;;; Primary internal formatting function for the whole buffer.
289 (defun texinfo-format-buffer-1 ()
290 (let (texinfo-format-filename
291 texinfo-example-start
292 texinfo-command-start
296 texinfo-last-node-pos
305 (texinfo-footnote-number 0)
308 (fill-column-for-info fill-column
)
309 (input-buffer (current-buffer))
310 (input-directory default-directory
))
311 (setq texinfo-enclosure-list nil
)
312 (setq texinfo-alias-list nil
)
314 (goto-char (point-min))
315 (or (search-forward "@setfilename" nil t
)
316 (error "Texinfo file needs an `@setfilename FILENAME' line."))
317 (setq texinfo-command-end
(point))
318 (setq outfile
(texinfo-parse-line-arg)))
321 (setq fill-column fill-column-for-info
)
322 (set-syntax-table texinfo-format-syntax-table
)
324 (insert-buffer-substring input-buffer
)
325 (message "Converting %s to Info format..." (buffer-name input-buffer
))
327 ;; Insert @include files so `texinfo-raise-lower-sections' can
328 ;; work on them without losing track of multiple
329 ;; @raise/@lowersections commands.
330 (goto-char (point-min))
331 (while (re-search-forward "^@include" nil t
)
332 (setq texinfo-command-end
(point))
333 (let ((filename (concat input-directory
334 (texinfo-parse-line-arg))))
335 (re-search-backward "^@include")
336 (delete-region (point) (save-excursion (forward-line 1) (point)))
337 (message "Reading included file: %s" filename
)
342 (+ (point) (car (cdr (insert-file-contents filename
)))))
343 (goto-char (point-min))
344 ;; Remove `@setfilename' line from included file, if any,
345 ;; so @setfilename command not duplicated.
346 (if (re-search-forward
348 (save-excursion (forward-line 100) (point)) t
)
352 (point) (save-excursion (forward-line 1) (point)))))))))
353 ;; Raise or lower level of each section, if necessary.
354 (goto-char (point-min))
355 (texinfo-raise-lower-sections)
356 ;; Append @refill to appropriate paragraphs
357 (goto-char (point-min))
358 (texinfo-append-refill)
359 (goto-char (point-min))
360 (search-forward "@setfilename")
362 (delete-region (point-min) (point))
363 ;; Remove @bye at end of file, if it is there.
364 (goto-char (point-max))
365 (if (search-backward "@bye" nil t
)
366 (delete-region (point) (point-max)))
367 ;; Make sure buffer ends in a newline.
368 (or (= (preceding-char) ?
\n)
370 ;; Scan the whole buffer, converting to Info format.
371 (texinfo-format-scan)
372 ;; Return data for indices.
373 (goto-char (point-min))
375 texinfo-vindex texinfo-findex texinfo-cindex
376 texinfo-pindex texinfo-tindex texinfo-kindex
)))
379 ;;; Perform non-@-command file conversions: quotes and hyphens
381 (defun texinfo-format-convert (min max
)
382 ;; Convert left and right quotes to typewriter font quotes.
384 (while (search-forward "``" max t
)
385 (replace-match "\""))
387 (while (search-forward "''" max t
)
388 (replace-match "\""))
389 ;; Convert three hyphens in a row to two.
391 (while (re-search-forward "\\( \\|\\w\\)\\(---\\)\\( \\|\\w\\)" max t
)
392 (delete-region (1+ (match-beginning 2)) (+ 2 (match-beginning
396 ;;; Handle paragraph filling
398 (defvar texinfo-no-refill-regexp
399 "^@\\(example\\|smallexample\\|lisp\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|menu\\|titlepage\\|iftex\\|ifhtml\\|tex\\|html\\)"
400 "Regexp specifying environments in which paragraphs are not filled.")
402 (defvar texinfo-part-of-para-regexp
403 "^@\\(b{\\|bullet{\\|cite{\\|code{\\|emph{\\|equiv{\\|error{\\|expansion{\\|file{\\|i{\\|inforef{\\|kbd{\\|key{\\|lisp{\\|minus{\\|point{\\|print{\\|pxref{\\|r{\\|ref{\\|result{\\|samp{\\|sc{\\|t{\\|TeX{\\|today{\\|var{\\|w{\\|xref{\\)"
404 "Regexp specifying @-commands found within paragraphs.")
406 (defun texinfo-append-refill ()
407 "Append @refill at end of each paragraph that should be filled.
408 Do not append @refill to paragraphs within @example and similar environments.
409 Do not append @refill to paragraphs containing @w{TEXT} or @*."
411 ;; It is necessary to append @refill before other processing because
412 ;; the other processing removes information that tells Texinfo
413 ;; whether the text should or should not be filled.
415 (while (< (point) (point-max))
416 (let ((refill-blank-lines "^[ \t\n]*$")
417 (case-fold-search nil
)) ; Don't confuse @TeX and @tex....
419 ;; 1. Skip over blank lines;
420 ;; skip over lines beginning with @-commands,
421 ;; but do not skip over lines
422 ;; that are no-refill environments such as @example or
423 ;; that begin with within-paragraph @-commands such as @code.
424 (while (and (looking-at (concat "^@\\|^\\\\\\|" refill-blank-lines
))
428 texinfo-no-refill-regexp
430 texinfo-part-of-para-regexp
432 (< (point) (point-max)))
434 ;; 2. Skip over @example and similar no-refill environments.
435 (if (looking-at texinfo-no-refill-regexp
)
437 (buffer-substring (match-beginning 1) (match-end 1))))
438 (progn (re-search-forward (concat "^@end " environment
) nil t
)
440 ;; 3. Do not refill a paragraph containing @w or @*
442 (>= (point) (point-max))
444 "@w{\\|@\\*" (save-excursion (forward-paragraph) (point)) t
))
445 ;; Go to end of paragraph and do nothing.
447 ;; 4. Else go to end of paragraph and insert @refill
453 (save-excursion (skip-chars-backward " \t") (point)))
454 ;; `looking-at-backward' not available in v. 18.57
455 ;; (if (not (looking-at-backward "@refill\\|@bye")) ;)
456 (if (not (re-search-backward
458 (save-excursion (beginning-of-line) (point))
461 (forward-line 1))))))
464 ;;; Handle `@raisesections' and `@lowersections' commands
466 ;; These commands change the hierarchical level of chapter structuring
469 ;; @raisesections changes @subsection to @section,
470 ;; @section to @chapter,
473 ;; @lowersections changes @chapter to @section
474 ;; @subsection to @subsubsection,
477 ;; An @raisesections/@lowersections command changes only those
478 ;; structuring commands that follow the @raisesections/@lowersections
481 ;; Repeated @raisesections/@lowersections continue to raise or lower
482 ;; the heading level.
484 ;; An @lowersections command cancels an @raisesections command, and
487 ;; You cannot raise or lower "beyond" chapters or subsubsections, but
488 ;; trying to do so does not elicit an error---you just get more
489 ;; headings that mean the same thing as you keep raising or lowering
490 ;; (for example, after a single @raisesections, both @chapter and
491 ;; @section produce chapter headings).
493 (defun texinfo-raise-lower-sections ()
494 "Raise or lower the hierarchical level of chapters, sections, etc.
496 This function acts according to `@raisesections' and `@lowersections'
497 commands in the Texinfo file.
499 For example, an `@lowersections' command is useful if you wish to
500 include what is written as an outer or standalone Texinfo file in
501 another Texinfo file as an inner, included file. The `@lowersections'
502 command changes chapters to sections, sections to subsections and so
505 @raisesections changes @subsection to @section,
506 @section to @chapter,
507 @heading to @chapheading,
510 @lowersections changes @chapter to @section,
511 @subsection to @subsubsection,
512 @heading to @subheading,
515 An `@raisesections' or `@lowersections' command changes only those
516 structuring commands that follow the `@raisesections' or
517 `@lowersections' command.
519 An `@lowersections' command cancels an `@raisesections' command, and
522 Repeated use of the commands continue to raise or lower the hierarchical
523 level a step at a time.
525 An attempt to raise above `chapters' reproduces chapter commands; an
526 attempt to lower below subsubsections reproduces subsubsection
529 ;; `texinfo-section-types-regexp' is defined in `texnfo-upd.el';
530 ;; it is a regexp matching chapter, section, other headings
531 ;; (but not the top node).
533 (let (type (level 0))
537 "\\(\\(^@\\(raise\\|lower\\)sections\\)\\|\\("
538 texinfo-section-types-regexp
542 (save-excursion (setq type
(read (current-buffer))))
545 ;; 1. Increment level
546 ((eq type
'@raisesections
)
547 (setq level
(1+ level
))
549 (point) (save-excursion (forward-line 1) (point))))
551 ;; 2. Decrement level
552 ((eq type
'@lowersections
)
553 (setq level
(1- level
))
555 (point) (save-excursion (forward-line 1) (point))))
557 ;; Now handle structuring commands
560 ;; 3. Raise level when positive
566 (cdr (assq new-level texinfo-raisesections-alist
)))
567 (setq count
(1- count
)))
569 (insert (symbol-name new-level
))))
571 ;; 4. Do nothing except move point when level is zero
572 ((= level
0) (forward-line 1))
574 ;; 5. Lower level when positive
580 (cdr (assq new-level texinfo-lowersections-alist
)))
581 (setq count
(1+ count
)))
583 (insert (symbol-name new-level
))))))))))
585 (defvar texinfo-raisesections-alist
586 '((@chapter .
@chapter
) ; Cannot go higher
587 (@unnumbered .
@unnumbered
)
589 (@majorheading .
@majorheading
)
590 (@chapheading .
@chapheading
)
591 (@appendix .
@appendix
)
593 (@section .
@chapter
)
594 (@unnumberedsec .
@unnumbered
)
595 (@heading .
@chapheading
)
596 (@appendixsec .
@appendix
)
598 (@subsection .
@section
)
599 (@unnumberedsubsec .
@unnumberedsec
)
600 (@subheading .
@heading
)
601 (@appendixsubsec .
@appendixsec
)
603 (@subsubsection .
@subsection
)
604 (@unnumberedsubsubsec .
@unnumberedsubsec
)
605 (@subsubheading .
@subheading
)
606 (@appendixsubsubsec .
@appendixsubsec
))
607 "*An alist of next higher levels for chapters, sections. etc.
608 For example, section to chapter, subsection to section.
609 Used by `texinfo-raise-lower-sections'.
610 The keys specify types of section; the values correspond to the next
613 (defvar texinfo-lowersections-alist
614 '((@chapter .
@section
)
615 (@unnumbered .
@unnumberedsec
)
616 (@majorheading .
@heading
)
617 (@chapheading .
@heading
)
618 (@appendix .
@appendixsec
)
620 (@section .
@subsection
)
621 (@unnumberedsec .
@unnumberedsubsec
)
622 (@heading .
@subheading
)
623 (@appendixsec .
@appendixsubsec
)
625 (@subsection .
@subsubsection
)
626 (@unnumberedsubsec .
@unnumberedsubsubsec
)
627 (@subheading .
@subsubheading
)
628 (@appendixsubsec .
@appendixsubsubsec
)
630 (@subsubsection .
@subsubsection
) ; Cannot go lower.
631 (@unnumberedsubsubsec .
@unnumberedsubsubsec
)
632 (@subsubheading .
@subsubheading
)
633 (@appendixsubsubsec .
@appendixsubsubsec
))
634 "*An alist of next lower levels for chapters, sections. etc.
635 For example, chapter to section, section to subsection.
636 Used by `texinfo-raise-lower-sections'.
637 The keys specify types of section; the values correspond to the next
641 ;;; Perform those texinfo-to-info conversions that apply to the whole input
644 (defun texinfo-format-scan ()
645 (texinfo-format-convert (point-min) (point-max))
646 ;; Scan for @-commands.
647 (goto-char (point-min))
648 (while (search-forward "@" nil t
)
649 (if (looking-at "[@{}^'` *\"?!]")
650 ;; Handle a few special @-followed-by-one-char commands.
651 (if (= (following-char) ?
*)
654 (delete-region (1- (point)) (1+ (point)))
655 ;; insert return if not at end of line;
656 ;; else line is already broken.
657 (if (not (= (following-char) ?
\n))
659 ;; The other characters are simply quoted. Delete the @.
662 ;; @ is followed by a command-word; find the end of the word.
663 (setq texinfo-command-start
(1- (point)))
664 (if (= (char-syntax (following-char)) ?w
)
667 (setq texinfo-command-end
(point))
668 ;; Handle let aliasing
669 (setq texinfo-command-name
673 (1+ texinfo-command-start
) texinfo-command-end
)))
674 (while (setq trial
(assoc cmdname texinfo-alias-list
))
675 (setq cmdname
(cdr trial
)))
677 ;; Call the handler for this command.
678 (let ((enclosure-type
680 (symbol-name texinfo-command-name
)
681 texinfo-enclosure-list
)))
685 (car (car (cdr enclosure-type
)))
686 (texinfo-parse-arg-discard)
687 (car (cdr (car (cdr enclosure-type
)))))
688 (goto-char texinfo-command-start
))
689 (let ((cmd (get texinfo-command-name
'texinfo-format
)))
690 (if cmd
(funcall cmd
) (texinfo-unsupported)))))))
693 (goto-char (nth 2 (car texinfo-stack
)))
694 (error "Unterminated @%s" (car (car texinfo-stack
))))))
696 (put 'begin
'texinfo-format
'texinfo-format-begin
)
697 (defun texinfo-format-begin ()
698 (texinfo-format-begin-end 'texinfo-format
))
700 (put 'end
'texinfo-format
'texinfo-format-end
)
701 (defun texinfo-format-end ()
702 (texinfo-format-begin-end 'texinfo-end
))
704 (defun texinfo-format-begin-end (prop)
705 (setq texinfo-command-name
(intern (texinfo-parse-line-arg)))
706 (let ((cmd (get texinfo-command-name prop
)))
707 (if cmd
(funcall cmd
)
708 (texinfo-unsupported))))
710 ;;; Parsing functions
712 (defun texinfo-parse-line-arg ()
713 (goto-char texinfo-command-end
)
714 (let ((start (point)))
715 (cond ((looking-at " ")
716 (skip-chars-forward " ")
719 (skip-chars-backward " ")
720 (delete-region (point) (progn (end-of-line) (point)))
721 (setq texinfo-command-end
(1+ (point))))
723 (setq start
(1+ (point)))
725 (setq texinfo-command-end
(point))
728 (error "Invalid texinfo command arg format")))
729 (prog1 (buffer-substring start
(point))
730 (if (eolp) (forward-char 1)))))
732 (defun texinfo-parse-expanded-arg ()
733 (goto-char texinfo-command-end
)
734 (let ((start (point))
736 (cond ((looking-at " ")
737 (skip-chars-forward " ")
740 (setq texinfo-command-end
(1+ (point))))
742 (setq start
(1+ (point)))
744 (setq texinfo-command-end
(point))
747 (error "Invalid texinfo command arg format")))
748 (setq marker
(move-marker (make-marker) texinfo-command-end
))
749 (texinfo-format-expand-region start
(point))
750 (setq texinfo-command-end
(marker-position marker
))
751 (move-marker marker nil
)
752 (prog1 (buffer-substring start
(point))
753 (if (eolp) (forward-char 1)))))
755 (defun texinfo-format-expand-region (start end
)
757 (narrow-to-region start end
)
758 (let (texinfo-command-start
762 (texinfo-format-scan))
763 (goto-char (point-max))))
765 (defun texinfo-parse-arg-discard ()
766 (prog1 (texinfo-parse-line-arg)
767 (texinfo-discard-command)))
769 (defun texinfo-discard-command ()
770 (delete-region texinfo-command-start texinfo-command-end
))
772 (defun texinfo-optional-braces-discard ()
773 "Discard braces following command, if any."
774 (goto-char texinfo-command-end
)
775 (let ((start (point)))
776 (cond ((looking-at "[ \t]*\n")) ; do nothing
777 ((looking-at "{") ; remove braces, if any
779 (setq texinfo-command-end
(point)))
782 "Invalid `texinfo-optional-braces-discard' format \(need braces?\)")))
783 (delete-region texinfo-command-start texinfo-command-end
)))
785 (defun texinfo-format-parse-line-args ()
786 (let ((start (1- (point)))
789 (skip-chars-forward " ")
792 (re-search-forward "[\n,]")
794 (if (bolp) (setq next
(1- next
)))
796 (skip-chars-backward " ")
798 (setq args
(cons (if (> end beg
) (buffer-substring beg end
))
801 (skip-chars-forward " "))
802 (if (eolp) (forward-char 1))
803 (setq texinfo-command-end
(point))
806 (defun texinfo-format-parse-args ()
807 (let ((start (1- (point)))
812 (texinfo-format-expand-region
814 (save-excursion (up-list 1) (1- (point)))))
815 ;; The following does not handle cross references of the form:
816 ;; `@xref{bullet, , @code{@@bullet}@{@}}.' because the
817 ;; re-search-forward finds the first right brace after the second
819 (while (/= (preceding-char) ?\
})
820 (skip-chars-forward " \t\n")
822 (re-search-forward "[},]")
825 (skip-chars-backward " \t\n")
829 (while (search-forward "\n" end t
)
830 (replace-match " "))))
831 (setq args
(cons (if (> end beg
) (buffer-substring beg end
))
834 (if (eolp) (forward-char 1))
835 (setq texinfo-command-end
(point))
838 (defun texinfo-format-parse-defun-args ()
839 (goto-char texinfo-command-end
)
840 (let ((start (point)))
842 (setq texinfo-command-end
(1+ (point)))
843 (let ((marker (move-marker (make-marker) texinfo-command-end
)))
844 (texinfo-format-expand-region start
(point))
845 (setq texinfo-command-end
(marker-position marker
))
846 (move-marker marker nil
))
850 (skip-chars-forward " ")
852 (cond ((looking-at "{")
853 (setq beg
(1+ (point)))
855 (setq end
(1- (point))))
858 (re-search-forward "[\n ]")
861 (setq args
(cons (buffer-substring beg end
) args
))
862 (skip-chars-forward " "))
866 (defun texinfo-discard-line ()
867 (goto-char texinfo-command-end
)
868 (skip-chars-forward " \t")
870 (error "Extraneous text at end of command line."))
871 (goto-char texinfo-command-start
)
873 (error "Extraneous text at beginning of command line."))
874 (delete-region (point) (progn (forward-line 1) (point))))
876 (defun texinfo-discard-line-with-args ()
877 (goto-char texinfo-command-start
)
878 (delete-region (point) (progn (forward-line 1) (point))))
883 ;; Only `texinfo-format-buffer' handles @setfilename with this
884 ;; definition; `texinfo-format-region' handles @setfilename, if any,
886 (put 'setfilename
'texinfo-format
'texinfo-format-setfilename
)
887 (defun texinfo-format-setfilename ()
888 (let ((arg (texinfo-parse-arg-discard)))
889 (message "Formatting Info file: %s" arg
)
890 (setq texinfo-format-filename
891 (file-name-nondirectory (expand-file-name arg
)))
892 (insert "Info file: "
893 texinfo-format-filename
", -*-Text-*-\n"
894 ;; Date string removed so that regression testing is easier.
896 ;; (substring (current-time-string) 8 10) " "
897 ;; (substring (current-time-string) 4 7) " "
898 ;; (substring (current-time-string) -4) " "
899 "produced by `texinfo-format-buffer'\n"
901 (if (buffer-file-name input-buffer
)
903 (file-name-sans-versions
904 (file-name-nondirectory
905 (buffer-file-name input-buffer
)))
907 (concat "buffer `" (buffer-name input-buffer
) "'"))
908 "\nusing `texinfmt.el' version "
914 (put 'node
'texinfo-format
'texinfo-format-node
)
915 (put 'nwnode
'texinfo-format
'texinfo-format-node
)
916 (defun texinfo-format-node ()
917 (let* ((args (texinfo-format-parse-line-args))
922 (texinfo-discard-command)
923 (setq texinfo-last-node name
)
924 (let ((tem (downcase name
)))
925 (if (assoc tem texinfo-node-names
)
926 (error "Duplicate node name: %s" name
)
927 (setq texinfo-node-names
(cons (list tem
) texinfo-node-names
))))
928 (setq texinfo-footnote-number
0)
929 ;; insert "\n\^_" unconditionally since this is what info is looking for
930 (insert "\n\^_\nFile: " texinfo-format-filename
933 (insert ", Next: " next
))
935 (insert ", Prev: " prev
))
937 (insert ", Up: " up
))
939 (setq texinfo-last-node-pos
(point))))
941 (put 'menu
'texinfo-format
'texinfo-format-menu
)
942 (defun texinfo-format-menu ()
943 (texinfo-discard-line)
944 (insert "* Menu:\n\n"))
946 (put 'menu
'texinfo-end
'texinfo-discard-command
)
951 ; @xref {NODE, FNAME, NAME, FILE, DOCUMENT}
952 ; -> *Note FNAME: (FILE)NODE
953 ; If FILE is missing,
955 ; If FNAME is empty and NAME is present
957 ; If both NAME and FNAME are missing
959 ; texinfo ignores the DOCUMENT argument.
960 ; -> See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
961 ; If FILE is specified, (FILE)NODE is used for xrefs.
962 ; If fifth argument DOCUMENT is specified, produces
963 ; See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
966 ; @ref a reference that does not put `See' or `see' in
967 ; the hardcopy and is the same as @xref in Info
968 (put 'ref
'texinfo-format
'texinfo-format-xref
)
970 (put 'xref
'texinfo-format
'texinfo-format-xref
)
971 (defun texinfo-format-xref ()
972 (let ((args (texinfo-format-parse-args)))
973 (texinfo-discard-command)
975 (let ((fname (or (nth 1 args
) (nth 2 args
))))
976 (if (null (or fname
(nth 3 args
)))
977 (insert (car args
) "::")
978 (insert (or fname
(car args
)) ": ")
980 (insert "(" (nth 3 args
) ")"))
981 (insert (car args
))))))
983 (put 'pxref
'texinfo-format
'texinfo-format-pxref
)
984 (defun texinfo-format-pxref ()
985 (texinfo-format-xref)
991 ;@inforef{NODE, FNAME, FILE}
992 ;Like @xref{NODE, FNAME,,FILE} in texinfo.
993 ;In Tex, generates "See Info file FILE, node NODE"
994 (put 'inforef
'texinfo-format
'texinfo-format-inforef
)
995 (defun texinfo-format-inforef ()
996 (let ((args (texinfo-format-parse-args)))
997 (texinfo-discard-command)
999 (insert "*Note " (nth 1 args
) ": (" (nth 2 args
) ")" (car args
))
1000 (insert "*Note " "(" (nth 2 args
) ")" (car args
) "::"))))
1003 ;;; Section headings
1005 (put 'majorheading
'texinfo-format
'texinfo-format-chapter
)
1006 (put 'chapheading
'texinfo-format
'texinfo-format-chapter
)
1007 (put 'ichapter
'texinfo-format
'texinfo-format-chapter
)
1008 (put 'chapter
'texinfo-format
'texinfo-format-chapter
)
1009 (put 'iappendix
'texinfo-format
'texinfo-format-chapter
)
1010 (put 'appendix
'texinfo-format
'texinfo-format-chapter
)
1011 (put 'iunnumbered
'texinfo-format
'texinfo-format-chapter
)
1012 (put 'top
'texinfo-format
'texinfo-format-chapter
)
1013 (put 'unnumbered
'texinfo-format
'texinfo-format-chapter
)
1014 (defun texinfo-format-chapter ()
1015 (texinfo-format-chapter-1 ?
*))
1017 (put 'heading
'texinfo-format
'texinfo-format-section
)
1018 (put 'isection
'texinfo-format
'texinfo-format-section
)
1019 (put 'section
'texinfo-format
'texinfo-format-section
)
1020 (put 'iappendixsection
'texinfo-format
'texinfo-format-section
)
1021 (put 'appendixsection
'texinfo-format
'texinfo-format-section
)
1022 (put 'iappendixsec
'texinfo-format
'texinfo-format-section
)
1023 (put 'appendixsec
'texinfo-format
'texinfo-format-section
)
1024 (put 'iunnumberedsec
'texinfo-format
'texinfo-format-section
)
1025 (put 'unnumberedsec
'texinfo-format
'texinfo-format-section
)
1026 (defun texinfo-format-section ()
1027 (texinfo-format-chapter-1 ?
=))
1029 (put 'subheading
'texinfo-format
'texinfo-format-subsection
)
1030 (put 'isubsection
'texinfo-format
'texinfo-format-subsection
)
1031 (put 'subsection
'texinfo-format
'texinfo-format-subsection
)
1032 (put 'iappendixsubsec
'texinfo-format
'texinfo-format-subsection
)
1033 (put 'appendixsubsec
'texinfo-format
'texinfo-format-subsection
)
1034 (put 'iunnumberedsubsec
'texinfo-format
'texinfo-format-subsection
)
1035 (put 'unnumberedsubsec
'texinfo-format
'texinfo-format-subsection
)
1036 (defun texinfo-format-subsection ()
1037 (texinfo-format-chapter-1 ?-
))
1039 (put 'subsubheading
'texinfo-format
'texinfo-format-subsubsection
)
1040 (put 'isubsubsection
'texinfo-format
'texinfo-format-subsubsection
)
1041 (put 'subsubsection
'texinfo-format
'texinfo-format-subsubsection
)
1042 (put 'iappendixsubsubsec
'texinfo-format
'texinfo-format-subsubsection
)
1043 (put 'appendixsubsubsec
'texinfo-format
'texinfo-format-subsubsection
)
1044 (put 'iunnumberedsubsubsec
'texinfo-format
'texinfo-format-subsubsection
)
1045 (put 'unnumberedsubsubsec
'texinfo-format
'texinfo-format-subsubsection
)
1046 (defun texinfo-format-subsubsection ()
1047 (texinfo-format-chapter-1 ?.
))
1049 (defun texinfo-format-chapter-1 (belowchar)
1050 (let ((arg (texinfo-parse-arg-discard)))
1051 (message "Formatting: %s ... " arg
) ; So we can see where we are.
1052 (insert ?
\n arg ?
\n "@SectionPAD " belowchar ?
\n)
1055 (put 'SectionPAD
'texinfo-format
'texinfo-format-sectionpad
)
1056 (defun texinfo-format-sectionpad ()
1057 (let ((str (texinfo-parse-arg-discard)))
1059 (let ((column (current-column)))
1063 (setq column
(1- column
))))
1067 ;;; Space controlling commands: @. and @:, and the soft hyphen.
1069 (put '\.
'texinfo-format
'texinfo-format-\.
)
1070 (defun texinfo-format-\.
()
1071 (texinfo-discard-command)
1074 (put '\
: 'texinfo-format
'texinfo-format-\
:)
1075 (defun texinfo-format-\
: ()
1076 (texinfo-discard-command))
1078 (put '\-
'texinfo-format
'texinfo-format-soft-hyphen
)
1079 (defun texinfo-format-soft-hyphen ()
1080 (texinfo-discard-command))
1083 ;;; @center, @sp, and @br
1085 (put 'center
'texinfo-format
'texinfo-format-center
)
1086 (defun texinfo-format-center ()
1087 (let ((arg (texinfo-parse-expanded-arg)))
1088 (texinfo-discard-command)
1092 (goto-char (1- (point)))
1093 (let ((indent-tabs-mode nil
))
1096 (put 'sp
'texinfo-format
'texinfo-format-sp
)
1097 (defun texinfo-format-sp ()
1098 (let* ((arg (texinfo-parse-arg-discard))
1100 (insert-char ?
\n num
)))
1102 (put 'br
'texinfo-format
'texinfo-format-paragraph-break
)
1103 (defun texinfo-format-paragraph-break ()
1104 "Force a paragraph break.
1105 If used within a line, follow `@br' with braces."
1106 (texinfo-optional-braces-discard)
1107 ;; insert one return if at end of line;
1108 ;; else insert two returns, to generate a blank line.
1109 (if (= (following-char) ?
\n)
1111 (insert-char ?
\n 2)))
1114 ;;; @footnote and @footnotestyle
1116 ; In Texinfo, footnotes are created with the `@footnote' command.
1117 ; This command is followed immediately by a left brace, then by the text of
1118 ; the footnote, and then by a terminating right brace. The
1119 ; template for a footnote is:
1123 ; Info has two footnote styles:
1125 ; * In the End of node style, all the footnotes for a single node
1126 ; are placed at the end of that node. The footnotes are
1127 ; separated from the rest of the node by a line of dashes with
1128 ; the word `Footnotes' within it.
1130 ; * In the Separate node style, all the footnotes for a single node
1131 ; are placed in an automatically constructed node of their own.
1133 ; Footnote style is specified by the @footnotestyle command, either
1134 ; @footnotestyle separate
1136 ; @footnotestyle end
1138 ; The default is separate
1140 (defvar texinfo-footnote-style
"separate"
1141 "Footnote style, either separate or end.")
1143 (put 'footnotestyle
'texinfo-format
'texinfo-footnotestyle
)
1144 (defun texinfo-footnotestyle ()
1145 "Specify whether footnotes are at end of node or in separate nodes.
1146 Argument is either end or separate."
1147 (setq texinfo-footnote-style
(texinfo-parse-arg-discard)))
1149 (defvar texinfo-footnote-number
)
1151 (put 'footnote
'texinfo-format
'texinfo-format-footnote
)
1152 (defun texinfo-format-footnote ()
1153 "Format a footnote in either end of node or separate node style.
1154 The texinfo-footnote-style variable controls which style is used."
1155 (setq texinfo-footnote-number
(1+ texinfo-footnote-number
))
1156 (cond ((string= texinfo-footnote-style
"end")
1157 (texinfo-format-end-node))
1158 ((string= texinfo-footnote-style
"separate")
1159 (texinfo-format-separate-node))))
1161 (defun texinfo-format-separate-node ()
1162 "Format footnote in Separate node style, with notes in own node.
1163 The node is constructed automatically."
1165 (arg (texinfo-parse-line-arg))
1166 (node-name-beginning
1169 "^File: \\w+\\(\\w\\|\\s_\\|\\.\\|,\\)*[ \t]+Node:")
1174 (progn (goto-char node-name-beginning
) ; skip over node command
1175 (skip-chars-forward " \t") ; and over spaces
1179 (save-excursion (end-of-line) (point)) t
) ; bound search
1181 (end-of-line) (point))))))
1182 (texinfo-discard-command) ; remove or insert whitespace, as needed
1183 (delete-region (save-excursion (skip-chars-backward " \t\n") (point))
1185 (insert (format " (%d) (*Note %s-Footnotes::)"
1186 texinfo-footnote-number node-name
))
1187 (fill-paragraph nil
)
1189 (if (re-search-forward "^@node" nil
'move
)
1192 ;; two cases: for the first footnote, we must insert a node header;
1193 ;; for the second and subsequent footnotes, we need only insert
1194 ;; the text of the footnote.
1198 (concat node-name
"-Footnotes, Up: ")
1201 (progn ; already at least one footnote
1202 (setq start
(point))
1203 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg
))
1204 (fill-region start
(point)))
1205 ;; else not yet a footnote
1206 (insert "\n\^_\nFile: " texinfo-format-filename
1207 " Node: " node-name
"-Footnotes, Up: " node-name
"\n")
1208 (setq start
(point))
1209 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg
))
1210 (fill-region start
(point))))))
1212 (defun texinfo-format-end-node ()
1213 "Format footnote in the End of node style, with notes at end of node."
1215 (arg (texinfo-parse-line-arg)))
1216 (texinfo-discard-command) ; remove or insert whitespace, as needed
1217 (delete-region (save-excursion (skip-chars-backward " \t\n") (point))
1219 (insert (format " (%d) " texinfo-footnote-number
))
1220 (fill-paragraph nil
)
1222 (if (search-forward "\n--------- Footnotes ---------\n" nil t
)
1223 (progn ; already have footnote, put new one before end of node
1224 (if (re-search-forward "^@node" nil
'move
)
1226 (setq start
(point))
1227 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg
))
1228 (fill-region start
(point)))
1229 ;; else no prior footnote
1230 (if (re-search-forward "^@node" nil
'move
)
1232 (insert "\n--------- Footnotes ---------\n")
1233 (setq start
(point))
1234 (insert (format "\n(%d) %s\n" texinfo-footnote-number arg
))))))
1237 ;;; @itemize, @enumerate, and similar commands
1239 ;; @itemize pushes (itemize "COMMANDS" STARTPOS) on texinfo-stack.
1240 ;; @enumerate pushes (enumerate 0 STARTPOS).
1241 ;; @item dispatches to the texinfo-item prop of the first elt of the list.
1242 ;; For itemize, this puts in and rescans the COMMANDS.
1243 ;; For enumerate, this increments the number and puts it in.
1244 ;; In either case, it puts a Backspace at the front of the line
1245 ;; which marks it not to be indented later.
1246 ;; All other lines get indented by 5 when the @end is reached.
1248 (defvar texinfo-stack-depth
0
1249 "Count of number of unpopped texinfo-push-stack calls.
1250 Used by @refill indenting command to avoid indenting within lists, etc.")
1252 (defun texinfo-push-stack (check arg
)
1253 (setq texinfo-stack-depth
(1+ texinfo-stack-depth
))
1255 (cons (list check arg texinfo-command-start
)
1258 (defun texinfo-pop-stack (check)
1259 (setq texinfo-stack-depth
(1- texinfo-stack-depth
))
1260 (if (null texinfo-stack
)
1261 (error "Unmatched @end %s" check
))
1262 (if (not (eq (car (car texinfo-stack
)) check
))
1263 (error "@end %s matches @%s"
1264 check
(car (car texinfo-stack
))))
1265 (prog1 (cdr (car texinfo-stack
))
1266 (setq texinfo-stack
(cdr texinfo-stack
))))
1268 (put 'itemize
'texinfo-format
'texinfo-itemize
)
1269 (defun texinfo-itemize ()
1272 (progn (skip-chars-forward " \t")
1275 (texinfo-parse-line-arg))))
1276 (texinfo-discard-line-with-args)
1277 (setq fill-column
(- fill-column
5)))
1279 (put 'itemize
'texinfo-end
'texinfo-end-itemize
)
1280 (defun texinfo-end-itemize ()
1281 (setq fill-column
(+ fill-column
5))
1282 (texinfo-discard-command)
1284 (texinfo-pop-stack 'itemize
)))
1285 (texinfo-do-itemize (nth 1 stacktop
))))
1287 (put 'enumerate
'texinfo-format
'texinfo-enumerate
)
1288 (defun texinfo-enumerate ()
1291 (progn (skip-chars-forward " \t")
1294 (read (current-buffer)))))
1295 (if (and (symbolp (car (cdr (car texinfo-stack
))))
1296 (> 1 (length (symbol-name (car (cdr (car texinfo-stack
)))))))
1298 "@enumerate: Use a number or letter, eg: 1, A, a, 3, B, or d." ))
1299 (texinfo-discard-line-with-args)
1300 (setq fill-column
(- fill-column
5)))
1302 (put 'enumerate
'texinfo-end
'texinfo-end-enumerate
)
1303 (defun texinfo-end-enumerate ()
1304 (setq fill-column
(+ fill-column
5))
1305 (texinfo-discard-command)
1307 (texinfo-pop-stack 'enumerate
)))
1308 (texinfo-do-itemize (nth 1 stacktop
))))
1310 ;; @alphaenumerate never became a standard part of Texinfo
1311 (put 'alphaenumerate
'texinfo-format
'texinfo-alphaenumerate
)
1312 (defun texinfo-alphaenumerate ()
1313 (texinfo-push-stack 'alphaenumerate
(1- ?a
))
1314 (setq fill-column
(- fill-column
5))
1315 (texinfo-discard-line))
1317 (put 'alphaenumerate
'texinfo-end
'texinfo-end-alphaenumerate
)
1318 (defun texinfo-end-alphaenumerate ()
1319 (setq fill-column
(+ fill-column
5))
1320 (texinfo-discard-command)
1322 (texinfo-pop-stack 'alphaenumerate
)))
1323 (texinfo-do-itemize (nth 1 stacktop
))))
1325 ;; @capsenumerate never became a standard part of Texinfo
1326 (put 'capsenumerate
'texinfo-format
'texinfo-capsenumerate
)
1327 (defun texinfo-capsenumerate ()
1328 (texinfo-push-stack 'capsenumerate
(1- ?A
))
1329 (setq fill-column
(- fill-column
5))
1330 (texinfo-discard-line))
1332 (put 'capsenumerate
'texinfo-end
'texinfo-end-capsenumerate
)
1333 (defun texinfo-end-capsenumerate ()
1334 (setq fill-column
(+ fill-column
5))
1335 (texinfo-discard-command)
1337 (texinfo-pop-stack 'capsenumerate
)))
1338 (texinfo-do-itemize (nth 1 stacktop
))))
1340 ;; At the @end, indent all the lines within the construct
1341 ;; except those marked with backspace. FROM says where
1342 ;; construct started.
1343 (defun texinfo-do-itemize (from)
1345 (while (progn (forward-line -
1)
1347 (if (= (following-char) ?
\b)
1352 (if (not (looking-at "[ \t]*$"))
1353 (save-excursion (insert " ")))))))
1355 (put 'item
'texinfo-format
'texinfo-item
)
1356 (put 'itemx
'texinfo-format
'texinfo-item
)
1357 (defun texinfo-item ()
1358 (funcall (get (car (car texinfo-stack
)) 'texinfo-item
)))
1360 (put 'itemize
'texinfo-item
'texinfo-itemize-item
)
1361 (defun texinfo-itemize-item ()
1362 ;; (texinfo-discard-line) ; Did not handle text on same line as @item.
1363 (delete-region (1+ (point)) (save-excursion (beginning-of-line) (point)))
1364 (if (looking-at "[ \t]*[^ \t\n]+")
1365 ;; Text on same line as @item command.
1366 (insert "\b " (nth 1 (car texinfo-stack
)) " \n")
1367 ;; Else text on next line.
1368 (insert "\b " (nth 1 (car texinfo-stack
)) " "))
1371 (put 'enumerate
'texinfo-item
'texinfo-enumerate-item
)
1372 (defun texinfo-enumerate-item ()
1373 (texinfo-discard-line)
1374 (let (enumerating-symbol)
1375 (cond ((integerp (car (cdr (car texinfo-stack
))))
1376 (setq enumerating-symbol
(car (cdr (car texinfo-stack
))))
1377 (insert ?
\b (format "%3d. " enumerating-symbol
) ?
\n)
1378 (setcar (cdr (car texinfo-stack
)) (1+ enumerating-symbol
)))
1379 ((symbolp (car (cdr (car texinfo-stack
))))
1380 (setq enumerating-symbol
1381 (symbol-name (car (cdr (car texinfo-stack
)))))
1382 (if (or (equal ?\
[ (string-to-char enumerating-symbol
))
1383 (equal ?\
{ (string-to-char enumerating-symbol
)))
1385 "Too many items in enumerated list; alphabet ends at Z."))
1386 (insert ?
\b (format "%3s. " enumerating-symbol
) ?
\n)
1387 (setcar (cdr (car texinfo-stack
))
1391 (string-to-char enumerating-symbol
))))))
1394 "@enumerate: Use a number or letter, eg: 1, A, a, 3, B or d." )))
1397 (put 'alphaenumerate
'texinfo-item
'texinfo-alphaenumerate-item
)
1398 (defun texinfo-alphaenumerate-item ()
1399 (texinfo-discard-line)
1400 (let ((next (1+ (car (cdr (car texinfo-stack
))))))
1402 (error "More than 26 items in @alphaenumerate; get a bigger alphabet."))
1403 (setcar (cdr (car texinfo-stack
)) next
)
1404 (insert "\b " next
". \n"))
1407 (put 'capsenumerate
'texinfo-item
'texinfo-capsenumerate-item
)
1408 (defun texinfo-capsenumerate-item ()
1409 (texinfo-discard-line)
1410 (let ((next (1+ (car (cdr (car texinfo-stack
))))))
1412 (error "More than 26 items in @capsenumerate; get a bigger alphabet."))
1413 (setcar (cdr (car texinfo-stack
)) next
)
1414 (insert "\b " next
". \n"))
1420 ; The `@table' command produces two-column tables.
1422 (put 'table
'texinfo-format
'texinfo-table
)
1423 (defun texinfo-table ()
1426 (progn (skip-chars-forward " \t")
1429 (texinfo-parse-line-arg))))
1430 (texinfo-discard-line-with-args)
1431 (setq fill-column
(- fill-column
5)))
1433 (put 'table
'texinfo-item
'texinfo-table-item
)
1434 (defun texinfo-table-item ()
1435 (let ((arg (texinfo-parse-arg-discard))
1436 (itemfont (car (cdr (car texinfo-stack
)))))
1437 (insert ?
\b itemfont ?\
{ arg
"}\n \n"))
1440 (put 'table
'texinfo-end
'texinfo-end-table
)
1441 (defun texinfo-end-table ()
1442 (setq fill-column
(+ fill-column
5))
1443 (texinfo-discard-command)
1445 (texinfo-pop-stack 'table
)))
1446 (texinfo-do-itemize (nth 1 stacktop
))))
1448 ;; @description appears to be an undocumented variant on @table that
1449 ;; does not require an arg. It fails in texinfo.tex 2.58 and is not
1450 ;; part of makeinfo.c The command appears to be a relic of the past.
1451 (put 'description
'texinfo-end
'texinfo-end-table
)
1452 (put 'description
'texinfo-format
'texinfo-description
)
1453 (defun texinfo-description ()
1454 (texinfo-push-stack 'table
"@asis")
1455 (setq fill-column
(- fill-column
5))
1456 (texinfo-discard-line))
1459 ;;; @ftable, @vtable
1461 ; The `@ftable' and `@vtable' commands are like the `@table' command
1462 ; but they also insert each entry in the first column of the table
1463 ; into the function or variable index.
1465 ;; Handle the @ftable and @vtable commands:
1467 (put 'ftable
'texinfo-format
'texinfo-ftable
)
1468 (put 'vtable
'texinfo-format
'texinfo-vtable
)
1470 (defun texinfo-ftable () (texinfo-indextable 'ftable
))
1471 (defun texinfo-vtable () (texinfo-indextable 'vtable
))
1473 (defun texinfo-indextable (table-type)
1474 (texinfo-push-stack table-type
(texinfo-parse-arg-discard))
1475 (setq fill-column
(- fill-column
5)))
1477 ;; Handle the @item commands within ftable and vtable:
1479 (put 'ftable
'texinfo-item
'texinfo-ftable-item
)
1480 (put 'vtable
'texinfo-item
'texinfo-vtable-item
)
1482 (defun texinfo-ftable-item () (texinfo-indextable-item 'texinfo-findex
))
1483 (defun texinfo-vtable-item () (texinfo-indextable-item 'texinfo-vindex
))
1485 (defun texinfo-indextable-item (index-type)
1486 (let ((item (texinfo-parse-arg-discard))
1487 (itemfont (car (cdr (car texinfo-stack
))))
1488 (indexvar index-type
))
1489 (insert ?
\b itemfont ?\
{ item
"}\n \n")
1492 (list item texinfo-last-node
)
1493 (symbol-value indexvar
)))
1496 ;; Handle @end ftable, @end vtable
1498 (put 'ftable
'texinfo-end
'texinfo-end-ftable
)
1499 (put 'vtable
'texinfo-end
'texinfo-end-vtable
)
1501 (defun texinfo-end-ftable () (texinfo-end-indextable 'ftable
))
1502 (defun texinfo-end-vtable () (texinfo-end-indextable 'vtable
))
1504 (defun texinfo-end-indextable (table-type)
1505 (setq fill-column
(+ fill-column
5))
1506 (texinfo-discard-command)
1508 (texinfo-pop-stack table-type
)))
1509 (texinfo-do-itemize (nth 1 stacktop
))))
1512 ;;; @ifinfo, @iftex, @tex, @ifhtml, @html
1514 (put 'ifinfo
'texinfo-format
'texinfo-discard-line
)
1515 (put 'ifinfo
'texinfo-end
'texinfo-discard-command
)
1517 (put 'iftex
'texinfo-format
'texinfo-format-iftex
)
1518 (defun texinfo-format-iftex ()
1519 (delete-region texinfo-command-start
1520 (progn (re-search-forward "@end iftex[ \t]*\n")
1523 (put 'ifhtml
'texinfo-format
'texinfo-format-ifhtml
)
1524 (defun texinfo-format-ifhtml ()
1525 (delete-region texinfo-command-start
1526 (progn (re-search-forward "@end ifhtml[ \t]*\n")
1529 (put 'tex
'texinfo-format
'texinfo-format-tex
)
1530 (defun texinfo-format-tex ()
1531 (delete-region texinfo-command-start
1532 (progn (re-search-forward "@end tex[ \t]*\n")
1535 (put 'html
'texinfo-format
'texinfo-format-html
)
1536 (defun texinfo-format-html ()
1537 (delete-region texinfo-command-start
1538 (progn (re-search-forward "@end html[ \t]*\n")
1544 (put 'titlepage
'texinfo-format
'texinfo-format-titlepage
)
1545 (defun texinfo-format-titlepage ()
1546 (delete-region texinfo-command-start
1547 (progn (re-search-forward "@end titlepage[ \t]*\n")
1550 (put 'endtitlepage
'texinfo-format
'texinfo-discard-line
)
1552 ; @titlespec an alternative titling command; ignored by Info
1554 (put 'titlespec
'texinfo-format
'texinfo-format-titlespec
)
1555 (defun texinfo-format-titlespec ()
1556 (delete-region texinfo-command-start
1557 (progn (re-search-forward "@end titlespec[ \t]*\n")
1560 (put 'endtitlespec
'texinfo-format
'texinfo-discard-line
)
1565 (put 'today
'texinfo-format
'texinfo-format-today
)
1567 ; Produces Day Month Year style of output. eg `1 Jan 1900'
1568 ; The `@today{}' command requires a pair of braces, like `@dots{}'.
1569 (defun texinfo-format-today ()
1570 (texinfo-parse-arg-discard)
1571 (insert (format "%s %s %s"
1572 (substring (current-time-string) 8 10)
1573 (substring (current-time-string) 4 7)
1574 (substring (current-time-string) -
4))))
1579 (put 'ignore
'texinfo-format
'texinfo-format-ignore
)
1580 (defun texinfo-format-ignore ()
1581 (delete-region texinfo-command-start
1582 (progn (re-search-forward "@end ignore[ \t]*\n")
1585 (put 'endignore
'texinfo-format
'texinfo-discard-line
)
1588 ;;; Define the Info enclosure command: @definfoenclose
1590 ; A `@definfoenclose' command may be used to define a highlighting
1591 ; command for Info, but not for TeX. A command defined using
1592 ; `@definfoenclose' marks text by enclosing it in strings that precede
1593 ; and follow the text.
1595 ; Presumably, if you define a command with `@definfoenclose` for Info,
1596 ; you will also define the same command in the TeX definitions file,
1597 ; `texinfo.tex' in a manner appropriate for typesetting.
1599 ; Write a `@definfoenclose' command on a line and follow it with three
1600 ; arguments separated by commas (commas are used as separators in an
1601 ; `@node' line in the same way). The first argument to
1602 ; `@definfoenclose' is the @-command name \(without the `@'\); the
1603 ; second argument is the Info start delimiter string; and the third
1604 ; argument is the Info end delimiter string. The latter two arguments
1605 ; enclose the highlighted text in the Info file. A delimiter string
1606 ; may contain spaces. Neither the start nor end delimiter is
1607 ; required. However, if you do not provide a start delimiter, you
1608 ; must follow the command name with two commas in a row; otherwise,
1609 ; the Info formatting commands will misinterpret the end delimiter
1610 ; string as a start delimiter string.
1612 ; If you do a @definfoenclose{} on the name of a pre-defined macro (such
1613 ; as @emph{}, @strong{}, @tt{}, or @i{}) the enclosure definition will
1614 ; override the built-in definition.
1616 ; An enclosure command defined this way takes one argument in braces.
1618 ; For example, you can write:
1621 ; @definfoenclose phoo, //, \\
1624 ; near the beginning of a Texinfo file at the beginning of the lines
1625 ; to define `@phoo' as an Info formatting command that inserts `//'
1626 ; before and `\\' after the argument to `@phoo'. You can then write
1627 ; `@phoo{bar}' wherever you want `//bar\\' highlighted in Info.
1629 ; Also, for TeX formatting, you could write
1632 ; @global@let@phoo=@i
1635 ; to define `@phoo' as a command that causes TeX to typeset
1636 ; the argument to `@phoo' in italics.
1638 ; Note that each definition applies to its own formatter: one for TeX,
1639 ; the other for texinfo-format-buffer or texinfo-format-region.
1641 ; Here is another example: write
1643 ; @definfoenclose headword, , :
1645 ; near the beginning of the file, to define `@headword' as an Info
1646 ; formatting command that inserts nothing before and a colon after the
1647 ; argument to `@headword'.
1649 (put 'definfoenclose
'texinfo-format
'texinfo-define-info-enclosure
)
1650 (defun texinfo-define-info-enclosure ()
1651 (let* ((args (texinfo-format-parse-line-args))
1652 (command-name (nth 0 args
))
1653 (beginning-delimiter (or (nth 1 args
) ""))
1654 (end-delimiter (or (nth 2 args
) "")))
1655 (texinfo-discard-command)
1656 (setq texinfo-enclosure-list
1662 texinfo-enclosure-list
))))
1665 ;;; @var, @code and the like
1667 (put 'var
'texinfo-format
'texinfo-format-var
)
1668 ; @sc a small caps font for TeX; formatted as `var' in Info
1669 (put 'sc
'texinfo-format
'texinfo-format-var
)
1670 (defun texinfo-format-var ()
1671 (insert (upcase (texinfo-parse-arg-discard)))
1672 (goto-char texinfo-command-start
))
1676 (put 'b
'texinfo-format
'texinfo-format-noop
)
1677 (put 'i
'texinfo-format
'texinfo-format-noop
)
1678 (put 'r
'texinfo-format
'texinfo-format-noop
)
1679 (put 't
'texinfo-format
'texinfo-format-noop
)
1680 (put 'w
'texinfo-format
'texinfo-format-noop
)
1681 (put 'asis
'texinfo-format
'texinfo-format-noop
)
1682 (put 'dmn
'texinfo-format
'texinfo-format-noop
)
1683 (put 'key
'texinfo-format
'texinfo-format-noop
)
1684 (put 'math
'texinfo-format
'texinfo-format-noop
)
1685 (put 'titlefont
'texinfo-format
'texinfo-format-noop
)
1686 (defun texinfo-format-noop ()
1687 (insert (texinfo-parse-arg-discard))
1688 (goto-char texinfo-command-start
))
1690 (put 'cite
'texinfo-format
'texinfo-format-code
)
1691 (put 'code
'texinfo-format
'texinfo-format-code
)
1692 (put 'file
'texinfo-format
'texinfo-format-code
)
1693 (put 'kbd
'texinfo-format
'texinfo-format-code
)
1694 (put 'samp
'texinfo-format
'texinfo-format-code
)
1695 (defun texinfo-format-code ()
1696 (insert "`" (texinfo-parse-arg-discard) "'")
1697 (goto-char texinfo-command-start
))
1699 (put 'emph
'texinfo-format
'texinfo-format-emph
)
1700 (put 'strong
'texinfo-format
'texinfo-format-emph
)
1701 (defun texinfo-format-emph ()
1702 (insert "*" (texinfo-parse-arg-discard) "*")
1703 (goto-char texinfo-command-start
))
1705 (put 'dfn
'texinfo-format
'texinfo-format-defn
)
1706 (put 'defn
'texinfo-format
'texinfo-format-defn
)
1707 (defun texinfo-format-defn ()
1708 (insert "\"" (texinfo-parse-arg-discard) "\"")
1709 (goto-char texinfo-command-start
))
1711 (put 'bullet
'texinfo-format
'texinfo-format-bullet
)
1712 (defun texinfo-format-bullet ()
1713 "Insert an asterisk.
1714 If used within a line, follow `@bullet' with braces."
1715 (texinfo-optional-braces-discard)
1719 ;;; @example, @lisp, @quotation, @display, @smalllisp, @smallexample
1721 (put 'display
'texinfo-format
'texinfo-format-example
)
1722 (put 'example
'texinfo-format
'texinfo-format-example
)
1723 (put 'lisp
'texinfo-format
'texinfo-format-example
)
1724 (put 'quotation
'texinfo-format
'texinfo-format-example
)
1725 (put 'smallexample
'texinfo-format
'texinfo-format-example
)
1726 (put 'smalllisp
'texinfo-format
'texinfo-format-example
)
1727 (defun texinfo-format-example ()
1728 (texinfo-push-stack 'example nil
)
1729 (setq fill-column
(- fill-column
5))
1730 (texinfo-discard-line))
1732 (put 'example
'texinfo-end
'texinfo-end-example
)
1733 (put 'display
'texinfo-end
'texinfo-end-example
)
1734 (put 'lisp
'texinfo-end
'texinfo-end-example
)
1735 (put 'quotation
'texinfo-end
'texinfo-end-example
)
1736 (put 'smallexample
'texinfo-end
'texinfo-end-example
)
1737 (put 'smalllisp
'texinfo-end
'texinfo-end-example
)
1738 (defun texinfo-end-example ()
1739 (setq fill-column
(+ fill-column
5))
1740 (texinfo-discard-command)
1742 (texinfo-pop-stack 'example
)))
1743 (texinfo-do-itemize (nth 1 stacktop
))))
1745 (put 'exdent
'texinfo-format
'texinfo-format-exdent
)
1746 (defun texinfo-format-exdent ()
1747 (texinfo-discard-command)
1748 (delete-region (point)
1750 (skip-chars-forward " ")
1753 ;; Cancel out the deletion that texinfo-do-itemize
1754 ;; is going to do at the end of this line.
1762 ; The @cartouche command is a noop in Info; in a printed manual,
1763 ; it makes a box with rounded corners.
1765 (put 'cartouche
'texinfo-format
'texinfo-discard-line
)
1766 (put 'cartouche
'texinfo-end
'texinfo-discard-command
)
1769 ;;; @flushleft and @format
1771 ; The @flushleft command left justifies every line but leaves the
1772 ; right end ragged. As far as Info is concerned, @flushleft is a
1773 ; `do-nothing' command
1775 ; The @format command is similar to @example except that it does not
1776 ; indent; this means that in Info, @format is similar to @flushleft.
1778 (put 'format
'texinfo-format
'texinfo-format-flushleft
)
1779 (put 'flushleft
'texinfo-format
'texinfo-format-flushleft
)
1780 (defun texinfo-format-flushleft ()
1781 (texinfo-discard-line))
1783 (put 'format
'texinfo-end
'texinfo-end-flushleft
)
1784 (put 'flushleft
'texinfo-end
'texinfo-end-flushleft
)
1785 (defun texinfo-end-flushleft ()
1786 (texinfo-discard-command))
1791 ; The @flushright command right justifies every line but leaves the
1792 ; left end ragged. Spaces and tabs at the right ends of lines are
1793 ; removed so that visible text lines up on the right side.
1795 (put 'flushright
'texinfo-format
'texinfo-format-flushright
)
1796 (defun texinfo-format-flushright ()
1797 (texinfo-push-stack 'flushright nil
)
1798 (texinfo-discard-line))
1800 (put 'flushright
'texinfo-end
'texinfo-end-flushright
)
1801 (defun texinfo-end-flushright ()
1802 (texinfo-discard-command)
1805 (texinfo-pop-stack 'flushright
)))
1807 (texinfo-do-flushright (nth 1 stacktop
))))
1809 (defun texinfo-do-flushright (from)
1811 (while (progn (forward-line -
1)
1820 (skip-chars-backward " \t")
1821 (delete-region (point) (progn (end-of-line) (point)))
1826 ;;; @ctrl, @TeX, @copyright, @minus, @dots
1828 (put 'ctrl
'texinfo-format
'texinfo-format-ctrl
)
1829 (defun texinfo-format-ctrl ()
1830 (let ((str (texinfo-parse-arg-discard)))
1831 (insert (logand 31 (aref str
0)))))
1833 (put 'TeX
'texinfo-format
'texinfo-format-TeX
)
1834 (defun texinfo-format-TeX ()
1835 (texinfo-parse-arg-discard)
1838 (put 'copyright
'texinfo-format
'texinfo-format-copyright
)
1839 (defun texinfo-format-copyright ()
1840 (texinfo-parse-arg-discard)
1843 (put 'minus
'texinfo-format
'texinfo-format-minus
)
1844 (defun texinfo-format-minus ()
1845 "Insert a minus sign.
1846 If used within a line, follow `@minus' with braces."
1847 (texinfo-optional-braces-discard)
1850 (put 'dots
'texinfo-format
'texinfo-format-dots
)
1851 (defun texinfo-format-dots ()
1852 (texinfo-parse-arg-discard)
1855 (put 'enddots
'texinfo-format
'texinfo-format-enddots
)
1856 (defun texinfo-format-enddots ()
1857 (texinfo-parse-arg-discard)
1861 ;;; Refilling and indenting: @refill, @paragraphindent, @noindent
1863 ;;; Indent only those paragraphs that are refilled as a result of an
1864 ;;; @refill command.
1866 ; * If the value is `asis', do not change the existing indentation at
1867 ; the starts of paragraphs.
1869 ; * If the value zero, delete any existing indentation.
1871 ; * If the value is greater than zero, indent each paragraph by that
1874 ;;; But do not refill paragraphs with an @refill command that are
1875 ;;; preceded by @noindent or are part of a table, list, or deffn.
1877 (defvar texinfo-paragraph-indent
"asis"
1878 "Number of spaces for @refill to indent a paragraph; else to leave as is.")
1880 (put 'paragraphindent
'texinfo-format
'texinfo-paragraphindent
)
1882 (defun texinfo-paragraphindent ()
1883 "Specify the number of spaces for @refill to indent a paragraph.
1884 Default is to leave the number of spaces as is."
1885 (let ((arg (texinfo-parse-arg-discard)))
1886 (if (string= "asis" arg
)
1887 (setq texinfo-paragraph-indent
"asis")
1888 (setq texinfo-paragraph-indent
(string-to-int arg
)))))
1890 (put 'refill
'texinfo-format
'texinfo-format-refill
)
1891 (defun texinfo-format-refill ()
1892 "Refill paragraph. Also, indent first line as set by @paragraphindent.
1893 Default is to leave paragraph indentation as is."
1894 (texinfo-discard-command)
1895 (forward-paragraph -
1)
1896 (if (looking-at "[ \t\n]*$") (forward-line 1))
1897 ;; Do not indent if an entry in a list, table, or deffn,
1898 ;; or if paragraph is preceded by @noindent.
1899 ;; Otherwise, indent
1901 ;; delete a @noindent line and do not indent paragraph
1902 ((save-excursion (forward-line -
1)
1903 (looking-at "^@noindent"))
1905 (delete-region (point) (progn (forward-line 1) (point))))
1906 ;; do nothing if "asis"
1907 ((equal texinfo-paragraph-indent
"asis"))
1908 ;; do no indenting in list, etc.
1909 ((> texinfo-stack-depth
0))
1910 ;; otherwise delete existing whitespace and indent
1912 (delete-region (point) (progn (skip-chars-forward " \t") (point)))
1913 (insert (make-string texinfo-paragraph-indent ?
))))
1914 (forward-paragraph 1)
1917 ;; Do not fill a section title line with asterisks, hyphens, etc. that
1918 ;; are used to underline it. This could occur if the line following
1919 ;; the underlining is not an index entry and has text within it.
1920 (let* ((previous-paragraph-separate paragraph-separate
)
1921 (paragraph-separate (concat paragraph-separate
"\\|[-=*.]+"))
1922 (previous-paragraph-start paragraph-start
)
1923 (paragraph-start (concat paragraph-start
"\\|[-=*.]+")))
1925 (fill-paragraph nil
)
1926 (setq paragraph-separate previous-paragraph-separate
)
1927 (setq paragraph-start previous-paragraph-start
))))
1929 (put 'noindent
'texinfo-format
'texinfo-noindent
)
1930 (defun texinfo-noindent ()
1932 (forward-paragraph 1)
1933 (if (search-backward "@refill"
1934 (save-excursion (forward-line -
1) (point)) t
)
1935 () ; leave @noindent command so @refill command knows not to indent
1937 (texinfo-discard-line))))
1940 ;;; Index generation
1942 (put 'vindex
'texinfo-format
'texinfo-format-vindex
)
1943 (defun texinfo-format-vindex ()
1944 (texinfo-index 'texinfo-vindex
))
1946 (put 'cindex
'texinfo-format
'texinfo-format-cindex
)
1947 (defun texinfo-format-cindex ()
1948 (texinfo-index 'texinfo-cindex
))
1950 (put 'findex
'texinfo-format
'texinfo-format-findex
)
1951 (defun texinfo-format-findex ()
1952 (texinfo-index 'texinfo-findex
))
1954 (put 'pindex
'texinfo-format
'texinfo-format-pindex
)
1955 (defun texinfo-format-pindex ()
1956 (texinfo-index 'texinfo-pindex
))
1958 (put 'tindex
'texinfo-format
'texinfo-format-tindex
)
1959 (defun texinfo-format-tindex ()
1960 (texinfo-index 'texinfo-tindex
))
1962 (put 'kindex
'texinfo-format
'texinfo-format-kindex
)
1963 (defun texinfo-format-kindex ()
1964 (texinfo-index 'texinfo-kindex
))
1966 (defun texinfo-index (indexvar)
1967 (let ((arg (texinfo-parse-expanded-arg)))
1968 (texinfo-discard-command)
1972 ;; Region formatting may not provide last node position.
1973 (if texinfo-last-node-pos
1974 (1+ (count-lines texinfo-last-node-pos
(point)))
1976 (symbol-value indexvar
)))))
1978 (defconst texinfo-indexvar-alist
1979 '(("cp" . texinfo-cindex
)
1980 ("fn" . texinfo-findex
)
1981 ("vr" . texinfo-vindex
)
1982 ("tp" . texinfo-tindex
)
1983 ("pg" . texinfo-pindex
)
1984 ("ky" . texinfo-kindex
)))
1987 ;;; @defindex @defcodeindex
1988 (put 'defindex
'texinfo-format
'texinfo-format-defindex
)
1989 (put 'defcodeindex
'texinfo-format
'texinfo-format-defindex
)
1991 (defun texinfo-format-defindex ()
1992 (let* ((index-name (texinfo-parse-arg-discard)) ; eg: `aa'
1993 (indexing-command (intern (concat index-name
"index")))
1994 (index-formatting-command ; eg: `texinfo-format-aaindex'
1995 (intern (concat "texinfo-format-" index-name
"index")))
1996 (index-alist-name ; eg: `texinfo-aaindex'
1997 (intern (concat "texinfo-" index-name
"index"))))
1999 (set index-alist-name nil
)
2001 (put indexing-command
; eg, aaindex
2003 index-formatting-command
) ; eg, texinfo-format-aaindex
2005 ;; eg: "aa" . texinfo-aaindex
2006 (or (assoc index-name texinfo-indexvar-alist
)
2007 (setq texinfo-indexvar-alist
2011 texinfo-indexvar-alist
)))
2013 (fset index-formatting-command
2015 (list 'texinfo-index
2016 (list 'quote index-alist-name
))))))
2019 ;;; @synindex @syncodeindex
2021 (put 'synindex
'texinfo-format
'texinfo-format-synindex
)
2022 (put 'syncodeindex
'texinfo-format
'texinfo-format-synindex
)
2024 (defun texinfo-format-synindex ()
2025 (let* ((args (texinfo-parse-arg-discard))
2026 (second (cdr (read-from-string args
)))
2027 (joiner (symbol-name (car (read-from-string args
))))
2028 (joined (symbol-name (car (read-from-string args second
)))))
2030 (if (assoc joiner texinfo-short-index-cmds-alist
)
2032 (cdr (assoc joiner texinfo-short-index-cmds-alist
))
2034 (or (cdr (assoc joined texinfo-short-index-format-cmds-alist
))
2035 (intern (concat "texinfo-format-" joined
"index"))))
2037 (intern (concat joiner
"index"))
2039 (or (cdr(assoc joined texinfo-short-index-format-cmds-alist
))
2040 (intern (concat "texinfo-format-" joined
"index")))))))
2042 (defconst texinfo-short-index-cmds-alist
2050 (defconst texinfo-short-index-format-cmds-alist
2051 '(("cp" . texinfo-format-cindex
)
2052 ("fn" . texinfo-format-findex
)
2053 ("vr" . texinfo-format-vindex
)
2054 ("tp" . texinfo-format-tindex
)
2055 ("pg" . texinfo-format-pindex
)
2056 ("ky" . texinfo-format-kindex
)))
2059 ;;; Sort and index (for VMS)
2061 ;; Sort an index which is in the current buffer between START and END.
2062 ;; Used on VMS, where the `sort' utility is not available.
2063 (defun texinfo-sort-region (start end
)
2066 (narrow-to-region start end
)
2067 (sort-subr nil
'forward-line
'end-of-line
'texinfo-sort-startkeyfun
)))
2069 ;; Subroutine for sorting an index.
2070 ;; At start of a line, return a string to sort the line under.
2071 (defun texinfo-sort-startkeyfun ()
2073 (buffer-substring (point) (save-excursion (end-of-line) (point)))))
2074 ;; Canonicalize whitespace and eliminate funny chars.
2075 (while (string-match "[ \t][ \t]+\\|[^a-z0-9 ]+" line
)
2076 (setq line
(concat (substring line
0 (match-beginning 0))
2078 (substring line
(match-end 0) (length line
)))))
2084 (put 'printindex
'texinfo-format
'texinfo-format-printindex
)
2086 (defun texinfo-format-printindex ()
2087 (let ((indexelts (symbol-value
2088 (cdr (assoc (texinfo-parse-arg-discard)
2089 texinfo-indexvar-alist
))))
2091 (insert "\n* Menu:\n\n")
2092 (setq opoint
(point))
2093 (texinfo-print-index nil indexelts
)
2095 (if (eq system-type
'vax-vms
)
2096 (texinfo-sort-region opoint
(point))
2097 (shell-command-on-region opoint
(point) "sort -fd" 1))))
2099 (defun texinfo-print-index (file indexelts
)
2101 (if (stringp (car (car indexelts
)))
2103 (insert "* " (car (car indexelts
)) ": " )
2106 (if file
(concat "(" file
")") "")
2107 (nth 1 (car indexelts
)) ".")
2110 (if (nth 2 (car indexelts
))
2111 (format " %d." (nth 2 (car indexelts
)))
2114 ;; index entries from @include'd file
2115 (texinfo-print-index (nth 1 (car indexelts
))
2116 (nth 2 (car indexelts
))))
2117 (setq indexelts
(cdr indexelts
))))
2120 ;;; Glyphs: @equiv, @error, etc
2122 ;; @equiv to show that two expressions are equivalent
2123 ;; @error to show an error message
2124 ;; @expansion to show what a macro expands to
2125 ;; @point to show the location of point in an example
2126 ;; @print to show what an evaluated expression prints
2127 ;; @result to indicate the value returned by an expression
2129 (put 'equiv
'texinfo-format
'texinfo-format-equiv
)
2130 (defun texinfo-format-equiv ()
2131 (texinfo-parse-arg-discard)
2134 (put 'error
'texinfo-format
'texinfo-format-error
)
2135 (defun texinfo-format-error ()
2136 (texinfo-parse-arg-discard)
2137 (insert "error-->"))
2139 (put 'expansion
'texinfo-format
'texinfo-format-expansion
)
2140 (defun texinfo-format-expansion ()
2141 (texinfo-parse-arg-discard)
2144 (put 'point
'texinfo-format
'texinfo-format-point
)
2145 (defun texinfo-format-point ()
2146 (texinfo-parse-arg-discard)
2149 (put 'print
'texinfo-format
'texinfo-format-print
)
2150 (defun texinfo-format-print ()
2151 (texinfo-parse-arg-discard)
2154 (put 'result
'texinfo-format
'texinfo-format-result
)
2155 (defun texinfo-format-result ()
2156 (texinfo-parse-arg-discard)
2160 ;;; Definition formatting: @deffn, @defun, etc
2162 ;; What definition formatting produces:
2164 ;; @deffn category name args...
2165 ;; In Info, `Category: name ARGS'
2166 ;; In index: name: node. line#.
2168 ;; @defvr category name
2169 ;; In Info, `Category: name'
2170 ;; In index: name: node. line#.
2172 ;; @deftp category name attributes...
2173 ;; `category name attributes...' Note: @deftp args in lower case.
2174 ;; In index: name: node. line#.
2176 ;; Specialized function-like or variable-like entity:
2178 ;; @defun, @defmac, @defspec, @defvar, @defopt
2180 ;; @defun name args In Info, `Function: name ARGS'
2181 ;; @defmac name args In Info, `Macro: name ARGS'
2182 ;; @defvar name In Info, `Variable: name'
2184 ;; In index: name: node. line#.
2186 ;; Generalized typed-function-like or typed-variable-like entity:
2187 ;; @deftypefn category data-type name args...
2188 ;; In Info, `Category: data-type name args...'
2189 ;; @deftypevr category data-type name
2190 ;; In Info, `Category: data-type name'
2191 ;; In index: name: node. line#.
2193 ;; Specialized typed-function-like or typed-variable-like entity:
2194 ;; @deftypefun data-type name args...
2195 ;; In Info, `Function: data-type name ARGS'
2196 ;; In index: name: node. line#.
2198 ;; @deftypevar data-type name
2199 ;; In Info, `Variable: data-type name'
2200 ;; In index: name: node. line#. but include args after name!?
2202 ;; Generalized object oriented entity:
2203 ;; @defop category class name args...
2204 ;; In Info, `Category on class: name ARG'
2205 ;; In index: name on class: node. line#.
2207 ;; @defcv category class name
2208 ;; In Info, `Category of class: name'
2209 ;; In index: name of class: node. line#.
2211 ;; Specialized object oriented entity:
2212 ;; @defmethod class name args...
2213 ;; In Info, `Method on class: name ARGS'
2214 ;; In index: name on class: node. line#.
2216 ;; @defivar class name
2217 ;; In Info, `Instance variable of class: name'
2218 ;; In index: name of class: node. line#.
2221 ;;; The definition formatting functions
2223 (defun texinfo-format-defun ()
2224 (texinfo-push-stack 'defun
nil)
2225 (setq fill-column
(- fill-column
5))
2226 (texinfo-format-defun-1 t
))
2228 (defun texinfo-end-defun ()
2229 (setq fill-column
(+ fill-column
5))
2230 (texinfo-discard-command)
2231 (let ((start (nth 1 (texinfo-pop-stack 'defun
))))
2232 (texinfo-do-itemize start
)
2233 ;; Delete extra newline inserted after header.
2238 (defun texinfo-format-defunx ()
2239 (texinfo-format-defun-1 nil
))
2241 (defun texinfo-format-defun-1 (first-p)
2242 (let ((parse-args (texinfo-format-parse-defun-args))
2243 (texinfo-defun-type (get texinfo-command-name
'texinfo-defun-type
)))
2244 (texinfo-discard-command)
2245 ;; Delete extra newline inserted after previous header line.
2249 (get texinfo-command-name
'texinfo-deffn-formatting-property
) parse-args
)
2250 ;; Insert extra newline so that paragraph filling does not mess
2251 ;; with header line.
2253 (rplaca (cdr (cdr (car texinfo-stack
))) (point))
2255 (get texinfo-command-name
'texinfo-defun-indexing-property
) parse-args
)))
2257 ;;; Formatting the first line of a definition
2259 ;; @deffn, @defvr, @deftp
2260 (put 'deffn
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2261 (put 'deffnx
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2262 (put 'defvr
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2263 (put 'defvrx
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2264 (put 'deftp
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2265 (put 'deftpx
'texinfo-deffn-formatting-property
'texinfo-format-deffn
)
2266 (defun texinfo-format-deffn (parsed-args)
2267 ;; Generalized function-like, variable-like, or generic data-type entity:
2268 ;; @deffn category name args...
2269 ;; In Info, `Category: name ARGS'
2270 ;; @deftp category name attributes...
2271 ;; `category name attributes...' Note: @deftp args in lower case.
2272 (let ((category (car parsed-args
))
2273 (name (car (cdr parsed-args
)))
2274 (args (cdr (cdr parsed-args
))))
2275 (insert " -- " category
": " name
)
2278 (if (or (= ?
& (aref (car args
) 0))
2279 (eq (eval (car texinfo-defun-type
)) 'deftp-type
))
2281 (upcase (car args
))))
2282 (setq args
(cdr args
)))))
2284 ;; @defun, @defmac, @defspec, @defvar, @defopt: Specialized, simple
2285 (put 'defun
'texinfo-deffn-formatting-property
2286 'texinfo-format-specialized-defun
)
2287 (put 'defunx
'texinfo-deffn-formatting-property
2288 'texinfo-format-specialized-defun
)
2289 (put 'defmac
'texinfo-deffn-formatting-property
2290 'texinfo-format-specialized-defun
)
2291 (put 'defmacx
'texinfo-deffn-formatting-property
2292 'texinfo-format-specialized-defun
)
2293 (put 'defspec
'texinfo-deffn-formatting-property
2294 'texinfo-format-specialized-defun
)
2295 (put 'defspecx
'texinfo-deffn-formatting-property
2296 'texinfo-format-specialized-defun
)
2297 (put 'defvar
'texinfo-deffn-formatting-property
2298 'texinfo-format-specialized-defun
)
2299 (put 'defvarx
'texinfo-deffn-formatting-property
2300 'texinfo-format-specialized-defun
)
2301 (put 'defopt
'texinfo-deffn-formatting-property
2302 'texinfo-format-specialized-defun
)
2303 (put 'defoptx
'texinfo-deffn-formatting-property
2304 'texinfo-format-specialized-defun
)
2305 (defun texinfo-format-specialized-defun (parsed-args)
2306 ;; Specialized function-like or variable-like entity:
2307 ;; @defun name args In Info, `Function: Name ARGS'
2308 ;; @defmac name args In Info, `Macro: Name ARGS'
2309 ;; @defvar name In Info, `Variable: Name'
2310 ;; Use cdr of texinfo-defun-type to determine category:
2311 (let ((category (car (cdr texinfo-defun-type
)))
2312 (name (car parsed-args
))
2313 (args (cdr parsed-args
)))
2314 (insert " -- " category
": " name
)
2317 (if (= ?
& (aref (car args
) 0))
2319 (upcase (car args
))))
2320 (setq args
(cdr args
)))))
2322 ;; @deftypefn, @deftypevr: Generalized typed
2323 (put 'deftypefn
'texinfo-deffn-formatting-property
'texinfo-format-deftypefn
)
2324 (put 'deftypefnx
'texinfo-deffn-formatting-property
'texinfo-format-deftypefn
)
2325 (put 'deftypevr
'texinfo-deffn-formatting-property
'texinfo-format-deftypefn
)
2326 (put 'deftypevrx
'texinfo-deffn-formatting-property
'texinfo-format-deftypefn
)
2327 (defun texinfo-format-deftypefn (parsed-args)
2328 ;; Generalized typed-function-like or typed-variable-like entity:
2329 ;; @deftypefn category data-type name args...
2330 ;; In Info, `Category: data-type name args...'
2331 ;; @deftypevr category data-type name
2332 ;; In Info, `Category: data-type name'
2333 ;; Note: args in lower case, unless modified in command line.
2334 (let ((category (car parsed-args
))
2335 (data-type (car (cdr parsed-args
)))
2336 (name (car (cdr (cdr parsed-args
))))
2337 (args (cdr (cdr (cdr parsed-args
)))))
2338 (insert " -- " category
": " data-type
" " name
)
2340 (insert " " (car args
))
2341 (setq args
(cdr args
)))))
2343 ;; @deftypefun, @deftypevar: Specialized typed
2344 (put 'deftypefun
'texinfo-deffn-formatting-property
'texinfo-format-deftypefun
)
2345 (put 'deftypefunx
'texinfo-deffn-formatting-property
2346 'texinfo-format-deftypefun
)
2347 (put 'deftypevar
'texinfo-deffn-formatting-property
'texinfo-format-deftypefun
)
2348 (put 'deftypevarx
'texinfo-deffn-formatting-property
2349 'texinfo-format-deftypefun
)
2350 (defun texinfo-format-deftypefun (parsed-args)
2351 ;; Specialized typed-function-like or typed-variable-like entity:
2352 ;; @deftypefun data-type name args...
2353 ;; In Info, `Function: data-type name ARGS'
2354 ;; @deftypevar data-type name
2355 ;; In Info, `Variable: data-type name'
2356 ;; Note: args in lower case, unless modified in command line.
2357 ;; Use cdr of texinfo-defun-type to determine category:
2358 (let ((category (car (cdr texinfo-defun-type
)))
2359 (data-type (car parsed-args
))
2360 (name (car (cdr parsed-args
)))
2361 (args (cdr (cdr parsed-args
))))
2362 (insert " -- " category
": " data-type
" " name
)
2364 (insert " " (car args
))
2365 (setq args
(cdr args
)))))
2367 ;; @defop: Generalized object-oriented
2368 (put 'defop
'texinfo-deffn-formatting-property
'texinfo-format-defop
)
2369 (put 'defopx
'texinfo-deffn-formatting-property
'texinfo-format-defop
)
2370 (defun texinfo-format-defop (parsed-args)
2371 ;; Generalized object oriented entity:
2372 ;; @defop category class name args...
2373 ;; In Info, `Category on class: name ARG'
2374 ;; Note: args in upper case; use of `on'
2375 (let ((category (car parsed-args
))
2376 (class (car (cdr parsed-args
)))
2377 (name (car (cdr (cdr parsed-args
))))
2378 (args (cdr (cdr (cdr parsed-args
)))))
2379 (insert " -- " category
" on " class
": " name
)
2381 (insert " " (upcase (car args
)))
2382 (setq args
(cdr args
)))))
2384 ;; @defcv: Generalized object-oriented
2385 (put 'defcv
'texinfo-deffn-formatting-property
'texinfo-format-defcv
)
2386 (put 'defcvx
'texinfo-deffn-formatting-property
'texinfo-format-defcv
)
2387 (defun texinfo-format-defcv (parsed-args)
2388 ;; Generalized object oriented entity:
2389 ;; @defcv category class name
2390 ;; In Info, `Category of class: name'
2391 ;; Note: args in upper case; use of `of'
2392 (let ((category (car parsed-args
))
2393 (class (car (cdr parsed-args
)))
2394 (name (car (cdr (cdr parsed-args
))))
2395 (args (cdr (cdr (cdr parsed-args
)))))
2396 (insert " -- " category
" of " class
": " name
)
2398 (insert " " (upcase (car args
)))
2399 (setq args
(cdr args
)))))
2401 ;; @defmethod: Specialized object-oriented
2402 (put 'defmethod
'texinfo-deffn-formatting-property
'texinfo-format-defmethod
)
2403 (put 'defmethodx
'texinfo-deffn-formatting-property
'texinfo-format-defmethod
)
2404 (defun texinfo-format-defmethod (parsed-args)
2405 ;; Specialized object oriented entity:
2406 ;; @defmethod class name args...
2407 ;; In Info, `Method on class: name ARGS'
2408 ;; Note: args in upper case; use of `on'
2409 ;; Use cdr of texinfo-defun-type to determine category:
2410 (let ((category (car (cdr texinfo-defun-type
)))
2411 (class (car parsed-args
))
2412 (name (car (cdr parsed-args
)))
2413 (args (cdr (cdr parsed-args
))))
2414 (insert " -- " category
" on " class
": " name
)
2416 (insert " " (upcase (car args
)))
2417 (setq args
(cdr args
)))))
2419 ;; @defivar: Specialized object-oriented
2420 (put 'defivar
'texinfo-deffn-formatting-property
'texinfo-format-defivar
)
2421 (put 'defivarx
'texinfo-deffn-formatting-property
'texinfo-format-defivar
)
2422 (defun texinfo-format-defivar (parsed-args)
2423 ;; Specialized object oriented entity:
2424 ;; @defivar class name
2425 ;; In Info, `Instance variable of class: name'
2426 ;; Note: args in upper case; use of `of'
2427 ;; Use cdr of texinfo-defun-type to determine category:
2428 (let ((category (car (cdr texinfo-defun-type
)))
2429 (class (car parsed-args
))
2430 (name (car (cdr parsed-args
)))
2431 (args (cdr (cdr parsed-args
))))
2432 (insert " -- " category
" of " class
": " name
)
2434 (insert " " (upcase (car args
)))
2435 (setq args
(cdr args
)))))
2438 ;;; Indexing for definitions
2440 ;; An index entry has three parts: the `entry proper', the node name, and the
2441 ;; line number. Depending on the which command is used, the entry is
2442 ;; formatted differently:
2448 ;; @defopt all use their 1st argument as the entry-proper
2454 ;; @deftypevar all use their 2nd argument as the entry-proper
2457 ;; @deftypevr both use their 3rd argument as the entry-proper
2459 ;; @defmethod uses its 2nd and 1st arguments as an entry-proper
2460 ;; formatted: NAME on CLASS
2462 ;; @defop uses its 3rd and 2nd arguments as an entry-proper
2463 ;; formatted: NAME on CLASS
2465 ;; @defivar uses its 2nd and 1st arguments as an entry-proper
2466 ;; formatted: NAME of CLASS
2468 ;; @defcv uses its 3rd and 2nd argument as an entry-proper
2469 ;; formatted: NAME of CLASS
2471 (put 'defun
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2472 (put 'defunx
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2473 (put 'defmac
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2474 (put 'defmacx
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2475 (put 'defspec
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2476 (put 'defspecx
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2477 (put 'defvar
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2478 (put 'defvarx
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2479 (put 'defopt
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2480 (put 'defoptx
'texinfo-defun-indexing-property
'texinfo-index-defun
)
2481 (defun texinfo-index-defun (parsed-args)
2482 ;; use 1st parsed-arg as entry-proper
2483 ;; `index-list' will be texinfo-findex or the like
2484 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2487 ;; Three elements: entry-proper, node-name, line-number
2491 ;; Region formatting may not provide last node position.
2492 (if texinfo-last-node-pos
2493 (1+ (count-lines texinfo-last-node-pos
(point)))
2495 (symbol-value index-list
)))))
2497 (put 'deffn
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2498 (put 'deffnx
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2499 (put 'defvr
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2500 (put 'defvrx
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2501 (put 'deftp
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2502 (put 'deftpx
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2503 (put 'deftypefun
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2504 (put 'deftypefunx
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2505 (put 'deftypevar
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2506 (put 'deftypevarx
'texinfo-defun-indexing-property
'texinfo-index-deffn
)
2507 (defun texinfo-index-deffn (parsed-args)
2508 ;; use 2nd parsed-arg as entry-proper
2509 ;; `index-list' will be texinfo-findex or the like
2510 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2513 ;; Three elements: entry-proper, node-name, line-number
2515 (car (cdr parsed-args
))
2517 ;; Region formatting may not provide last node position.
2518 (if texinfo-last-node-pos
2519 (1+ (count-lines texinfo-last-node-pos
(point)))
2521 (symbol-value index-list
)))))
2523 (put 'deftypefn
'texinfo-defun-indexing-property
'texinfo-index-deftypefn
)
2524 (put 'deftypefnx
'texinfo-defun-indexing-property
'texinfo-index-deftypefn
)
2525 (put 'deftypevr
'texinfo-defun-indexing-property
'texinfo-index-deftypefn
)
2526 (put 'deftypevrx
'texinfo-defun-indexing-property
'texinfo-index-deftypefn
)
2527 (defun texinfo-index-deftypefn (parsed-args)
2528 ;; use 3rd parsed-arg as entry-proper
2529 ;; `index-list' will be texinfo-findex or the like
2530 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2533 ;; Three elements: entry-proper, node-name, line-number
2535 (car (cdr (cdr parsed-args
)))
2537 ;; Region formatting may not provide last node position.
2538 (if texinfo-last-node-pos
2539 (1+ (count-lines texinfo-last-node-pos
(point)))
2541 (symbol-value index-list
)))))
2543 (put 'defmethod
'texinfo-defun-indexing-property
'texinfo-index-defmethod
)
2544 (put 'defmethodx
'texinfo-defun-indexing-property
'texinfo-index-defmethod
)
2545 (defun texinfo-index-defmethod (parsed-args)
2546 ;; use 2nd on 1st parsed-arg as entry-proper
2547 ;; `index-list' will be texinfo-findex or the like
2548 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2551 ;; Three elements: entry-proper, node-name, line-number
2554 (car (cdr parsed-args
))
2557 ;; Region formatting may not provide last node position.
2558 (if texinfo-last-node-pos
2559 (1+ (count-lines texinfo-last-node-pos
(point)))
2561 (symbol-value index-list
)))))
2563 (put 'defop
'texinfo-defun-indexing-property
'texinfo-index-defop
)
2564 (put 'defopx
'texinfo-defun-indexing-property
'texinfo-index-defop
)
2565 (defun texinfo-index-defop (parsed-args)
2566 ;; use 3rd on 2nd parsed-arg as entry-proper
2567 ;; `index-list' will be texinfo-findex or the like
2568 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2571 ;; Three elements: entry-proper, node-name, line-number
2574 (car (cdr (cdr parsed-args
)))
2575 (car (cdr parsed-args
)))
2577 ;; Region formatting may not provide last node position.
2578 (if texinfo-last-node-pos
2579 (1+ (count-lines texinfo-last-node-pos
(point)))
2581 (symbol-value index-list
)))))
2583 (put 'defivar
'texinfo-defun-indexing-property
'texinfo-index-defivar
)
2584 (put 'defivarx
'texinfo-defun-indexing-property
'texinfo-index-defivar
)
2585 (defun texinfo-index-defivar (parsed-args)
2586 ;; use 2nd of 1st parsed-arg as entry-proper
2587 ;; `index-list' will be texinfo-findex or the like
2588 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2591 ;; Three elements: entry-proper, node-name, line-number
2594 (car (cdr parsed-args
))
2597 ;; Region formatting may not provide last node position.
2598 (if texinfo-last-node-pos
2599 (1+ (count-lines texinfo-last-node-pos
(point)))
2601 (symbol-value index-list
)))))
2603 (put 'defcv
'texinfo-defun-indexing-property
'texinfo-index-defcv
)
2604 (put 'defcvx
'texinfo-defun-indexing-property
'texinfo-index-defcv
)
2605 (defun texinfo-index-defcv (parsed-args)
2606 ;; use 3rd of 2nd parsed-arg as entry-proper
2607 ;; `index-list' will be texinfo-findex or the like
2608 (let ((index-list (get texinfo-command-name
'texinfo-defun-index
)))
2611 ;; Three elements: entry-proper, node-name, line-number
2614 (car (cdr (cdr parsed-args
)))
2615 (car (cdr parsed-args
)))
2617 ;; Region formatting may not provide last node position.
2618 (if texinfo-last-node-pos
2619 (1+ (count-lines texinfo-last-node-pos
(point)))
2621 (symbol-value index-list
)))))
2624 ;;; Properties for definitions
2626 ;; Each definition command has six properties:
2628 ;; 1. texinfo-deffn-formatting-property to format definition line
2629 ;; 2. texinfo-defun-indexing-property to create index entry
2630 ;; 3. texinfo-format formatting command
2631 ;; 4. texinfo-end end formatting command
2632 ;; 5. texinfo-defun-type type of deffn to format
2633 ;; 6. texinfo-defun-index type of index to use
2635 ;; The `x' forms of each definition command are used for the second
2636 ;; and subsequent header lines.
2638 ;; The texinfo-deffn-formatting-property and texinfo-defun-indexing-property
2639 ;; are listed just before the appropriate formatting and indexing commands.
2641 (put 'deffn
'texinfo-format
'texinfo-format-defun
)
2642 (put 'deffnx
'texinfo-format
'texinfo-format-defunx
)
2643 (put 'deffn
'texinfo-end
'texinfo-end-defun
)
2644 (put 'deffn
'texinfo-defun-type
'('deffn-type nil
))
2645 (put 'deffnx
'texinfo-defun-type
'('deffn-type nil
))
2646 (put 'deffn
'texinfo-defun-index
'texinfo-findex
)
2647 (put 'deffnx
'texinfo-defun-index
'texinfo-findex
)
2649 (put 'defun
'texinfo-format
'texinfo-format-defun
)
2650 (put 'defunx
'texinfo-format
'texinfo-format-defunx
)
2651 (put 'defun
'texinfo-end
'texinfo-end-defun
)
2652 (put 'defun
'texinfo-defun-type
'('defun-type
"Function"))
2653 (put 'defunx
'texinfo-defun-type
'('defun-type
"Function"))
2654 (put 'defun
'texinfo-defun-index
'texinfo-findex
)
2655 (put 'defunx
'texinfo-defun-index
'texinfo-findex
)
2657 (put 'defmac
'texinfo-format
'texinfo-format-defun
)
2658 (put 'defmacx
'texinfo-format
'texinfo-format-defunx
)
2659 (put 'defmac
'texinfo-end
'texinfo-end-defun
)
2660 (put 'defmac
'texinfo-defun-type
'('defun-type
"Macro"))
2661 (put 'defmacx
'texinfo-defun-type
'('defun-type
"Macro"))
2662 (put 'defmac
'texinfo-defun-index
'texinfo-findex
)
2663 (put 'defmacx
'texinfo-defun-index
'texinfo-findex
)
2665 (put 'defspec
'texinfo-format
'texinfo-format-defun
)
2666 (put 'defspecx
'texinfo-format
'texinfo-format-defunx
)
2667 (put 'defspec
'texinfo-end
'texinfo-end-defun
)
2668 (put 'defspec
'texinfo-defun-type
'('defun-type
"Special form"))
2669 (put 'defspecx
'texinfo-defun-type
'('defun-type
"Special form"))
2670 (put 'defspec
'texinfo-defun-index
'texinfo-findex
)
2671 (put 'defspecx
'texinfo-defun-index
'texinfo-findex
)
2673 (put 'defvr
'texinfo-format
'texinfo-format-defun
)
2674 (put 'defvrx
'texinfo-format
'texinfo-format-defunx
)
2675 (put 'defvr
'texinfo-end
'texinfo-end-defun
)
2676 (put 'defvr
'texinfo-defun-type
'('deffn-type nil
))
2677 (put 'defvrx
'texinfo-defun-type
'('deffn-type nil
))
2678 (put 'defvr
'texinfo-defun-index
'texinfo-vindex
)
2679 (put 'defvrx
'texinfo-defun-index
'texinfo-vindex
)
2681 (put 'defvar
'texinfo-format
'texinfo-format-defun
)
2682 (put 'defvarx
'texinfo-format
'texinfo-format-defunx
)
2683 (put 'defvar
'texinfo-end
'texinfo-end-defun
)
2684 (put 'defvar
'texinfo-defun-type
'('defun-type
"Variable"))
2685 (put 'defvarx
'texinfo-defun-type
'('defun-type
"Variable"))
2686 (put 'defvar
'texinfo-defun-index
'texinfo-vindex
)
2687 (put 'defvarx
'texinfo-defun-index
'texinfo-vindex
)
2689 (put 'defconst
'texinfo-format
'texinfo-format-defun
)
2690 (put 'defconstx
'texinfo-format
'texinfo-format-defunx
)
2691 (put 'defconst
'texinfo-end
'texinfo-end-defun
)
2692 (put 'defconst
'texinfo-defun-type
'('defun-type
"Constant"))
2693 (put 'defconstx
'texinfo-defun-type
'('defun-type
"Constant"))
2694 (put 'defconst
'texinfo-defun-index
'texinfo-vindex
)
2695 (put 'defconstx
'texinfo-defun-index
'texinfo-vindex
)
2697 (put 'defcmd
'texinfo-format
'texinfo-format-defun
)
2698 (put 'defcmdx
'texinfo-format
'texinfo-format-defunx
)
2699 (put 'defcmd
'texinfo-end
'texinfo-end-defun
)
2700 (put 'defcmd
'texinfo-defun-type
'('defun-type
"Command"))
2701 (put 'defcmdx
'texinfo-defun-type
'('defun-type
"Command"))
2702 (put 'defcmd
'texinfo-defun-index
'texinfo-findex
)
2703 (put 'defcmdx
'texinfo-defun-index
'texinfo-findex
)
2705 (put 'defopt
'texinfo-format
'texinfo-format-defun
)
2706 (put 'defoptx
'texinfo-format
'texinfo-format-defunx
)
2707 (put 'defopt
'texinfo-end
'texinfo-end-defun
)
2708 (put 'defopt
'texinfo-defun-type
'('defun-type
"User Option"))
2709 (put 'defoptx
'texinfo-defun-type
'('defun-type
"User Option"))
2710 (put 'defopt
'texinfo-defun-index
'texinfo-vindex
)
2711 (put 'defoptx
'texinfo-defun-index
'texinfo-vindex
)
2713 (put 'deftp
'texinfo-format
'texinfo-format-defun
)
2714 (put 'deftpx
'texinfo-format
'texinfo-format-defunx
)
2715 (put 'deftp
'texinfo-end
'texinfo-end-defun
)
2716 (put 'deftp
'texinfo-defun-type
'('deftp-type nil
))
2717 (put 'deftpx
'texinfo-defun-type
'('deftp-type nil
))
2718 (put 'deftp
'texinfo-defun-index
'texinfo-tindex
)
2719 (put 'deftpx
'texinfo-defun-index
'texinfo-tindex
)
2721 ;;; Object-oriented stuff is a little hairier.
2723 (put 'defop
'texinfo-format
'texinfo-format-defun
)
2724 (put 'defopx
'texinfo-format
'texinfo-format-defunx
)
2725 (put 'defop
'texinfo-end
'texinfo-end-defun
)
2726 (put 'defop
'texinfo-defun-type
'('defop-type nil
))
2727 (put 'defopx
'texinfo-defun-type
'('defop-type nil
))
2728 (put 'defop
'texinfo-defun-index
'texinfo-findex
)
2729 (put 'defopx
'texinfo-defun-index
'texinfo-findex
)
2731 (put 'defmethod
'texinfo-format
'texinfo-format-defun
)
2732 (put 'defmethodx
'texinfo-format
'texinfo-format-defunx
)
2733 (put 'defmethod
'texinfo-end
'texinfo-end-defun
)
2734 (put 'defmethod
'texinfo-defun-type
'('defmethod-type
"Method"))
2735 (put 'defmethodx
'texinfo-defun-type
'('defmethod-type
"Method"))
2736 (put 'defmethod
'texinfo-defun-index
'texinfo-findex
)
2737 (put 'defmethodx
'texinfo-defun-index
'texinfo-findex
)
2739 (put 'defcv
'texinfo-format
'texinfo-format-defun
)
2740 (put 'defcvx
'texinfo-format
'texinfo-format-defunx
)
2741 (put 'defcv
'texinfo-end
'texinfo-end-defun
)
2742 (put 'defcv
'texinfo-defun-type
'('defop-type nil
))
2743 (put 'defcvx
'texinfo-defun-type
'('defop-type nil
))
2744 (put 'defcv
'texinfo-defun-index
'texinfo-vindex
)
2745 (put 'defcvx
'texinfo-defun-index
'texinfo-vindex
)
2747 (put 'defivar
'texinfo-format
'texinfo-format-defun
)
2748 (put 'defivarx
'texinfo-format
'texinfo-format-defunx
)
2749 (put 'defivar
'texinfo-end
'texinfo-end-defun
)
2750 (put 'defivar
'texinfo-defun-type
'('defmethod-type
"Instance variable"))
2751 (put 'defivarx
'texinfo-defun-type
'('defmethod-type
"Instance variable"))
2752 (put 'defivar
'texinfo-defun-index
'texinfo-vindex
)
2753 (put 'defivarx
'texinfo-defun-index
'texinfo-vindex
)
2755 ;;; Typed functions and variables
2757 (put 'deftypefn
'texinfo-format
'texinfo-format-defun
)
2758 (put 'deftypefnx
'texinfo-format
'texinfo-format-defunx
)
2759 (put 'deftypefn
'texinfo-end
'texinfo-end-defun
)
2760 (put 'deftypefn
'texinfo-defun-type
'('deftypefn-type nil
))
2761 (put 'deftypefnx
'texinfo-defun-type
'('deftypefn-type nil
))
2762 (put 'deftypefn
'texinfo-defun-index
'texinfo-findex
)
2763 (put 'deftypefnx
'texinfo-defun-index
'texinfo-findex
)
2765 (put 'deftypefun
'texinfo-format
'texinfo-format-defun
)
2766 (put 'deftypefunx
'texinfo-format
'texinfo-format-defunx
)
2767 (put 'deftypefun
'texinfo-end
'texinfo-end-defun
)
2768 (put 'deftypefun
'texinfo-defun-type
'('deftypefun-type
"Function"))
2769 (put 'deftypefunx
'texinfo-defun-type
'('deftypefun-type
"Function"))
2770 (put 'deftypefun
'texinfo-defun-index
'texinfo-findex
)
2771 (put 'deftypefunx
'texinfo-defun-index
'texinfo-findex
)
2773 (put 'deftypevr
'texinfo-format
'texinfo-format-defun
)
2774 (put 'deftypevrx
'texinfo-format
'texinfo-format-defunx
)
2775 (put 'deftypevr
'texinfo-end
'texinfo-end-defun
)
2776 (put 'deftypevr
'texinfo-defun-type
'('deftypefn-type nil
))
2777 (put 'deftypevrx
'texinfo-defun-type
'('deftypefn-type nil
))
2778 (put 'deftypevr
'texinfo-defun-index
'texinfo-vindex
)
2779 (put 'deftypevrx
'texinfo-defun-index
'texinfo-vindex
)
2781 (put 'deftypevar
'texinfo-format
'texinfo-format-defun
)
2782 (put 'deftypevarx
'texinfo-format
'texinfo-format-defunx
)
2783 (put 'deftypevar
'texinfo-end
'texinfo-end-defun
)
2784 (put 'deftypevar
'texinfo-defun-type
'('deftypevar-type
"Variable"))
2785 (put 'deftypevarx
'texinfo-defun-type
'('deftypevar-type
"Variable"))
2786 (put 'deftypevar
'texinfo-defun-index
'texinfo-vindex
)
2787 (put 'deftypevarx
'texinfo-defun-index
'texinfo-vindex
)
2790 ;;; @set, @clear, @ifset, @ifclear
2792 ;; If a flag is set with @set FLAG, then text between @ifset and @end
2793 ;; ifset is formatted normally, but if the flag is is cleared with
2794 ;; @clear FLAG, then the text is not formatted; it is ignored.
2796 ;; If a flag is cleared with @clear FLAG, then text between @ifclear
2797 ;; and @end ifclear is formatted normally, but if the flag is is set with
2798 ;; @set FLAG, then the text is not formatted; it is ignored. @ifclear
2799 ;; is the opposite of @ifset.
2801 ;; If a flag is set to a string with @set FLAG,
2802 ;; replace @value{FLAG} with the string.
2803 ;; If a flag with a value is cleared,
2804 ;; @value{FLAG} is invalid,
2805 ;; as if there had never been any @set FLAG previously.
2807 (put 'clear
'texinfo-format
'texinfo-clear
)
2808 (defun texinfo-clear ()
2809 "Clear the value of the flag."
2810 (let* ((arg (texinfo-parse-arg-discard))
2811 (flag (car (read-from-string arg
)))
2812 (value (substring arg
(cdr (read-from-string arg
)))))
2813 (put flag
'texinfo-whether-setp
'flag-cleared
)
2814 (put flag
'texinfo-set-value
"")))
2816 (put 'set
'texinfo-format
'texinfo-set
)
2817 (defun texinfo-set ()
2818 "Set the value of the flag, optionally to a string.
2819 The command `@set foo This is a string.'
2820 sets flag foo to the value: `This is a string.'
2821 The command `@value{foo}' expands to the value."
2822 (let* ((arg (texinfo-parse-arg-discard))
2823 (flag (car (read-from-string arg
)))
2824 (value (substring arg
(cdr (read-from-string arg
)))))
2825 (put flag
'texinfo-whether-setp
'flag-set
)
2826 (put flag
'texinfo-set-value value
)))
2828 (put 'value
'texinfo-format
'texinfo-value
)
2829 (defun texinfo-value ()
2830 "Insert the string to which the flag is set.
2831 The command `@set foo This is a string.'
2832 sets flag foo to the value: `This is a string.'
2833 The command `@value{foo}' expands to the value."
2834 (let ((arg (texinfo-parse-arg-discard)))
2836 (eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2838 (get (car (read-from-string arg
)) 'texinfo-set-value
))
2839 (insert (get (car (read-from-string arg
)) 'texinfo-set-value
)))
2840 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2842 (insert (format "{No value for \"%s\"}" arg
)))
2843 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
) nil
)
2844 (insert (format "{No value for \"%s\"}" arg
))))))
2846 (put 'ifset
'texinfo-end
'texinfo-discard-command
)
2847 (put 'ifset
'texinfo-format
'texinfo-if-set
)
2848 (defun texinfo-if-set ()
2849 "If set, continue formatting; else do not format region up to @end ifset"
2850 (let ((arg (texinfo-parse-arg-discard)))
2852 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2854 ;; Format the text (i.e., do not remove it); do nothing here.
2856 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2858 ;; Clear region (i.e., cause the text to be ignored).
2859 (delete-region texinfo-command-start
2860 (progn (re-search-forward "@end ifset[ \t]*\n")
2862 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2864 ;; In this case flag is neither set nor cleared.
2865 ;; Act as if set, i.e. do nothing.
2868 (put 'ifclear
'texinfo-end
'texinfo-discard-command
)
2869 (put 'ifclear
'texinfo-format
'texinfo-if-clear
)
2870 (defun texinfo-if-clear ()
2871 "If clear, continue formatting; if set, do not format up to @end ifset"
2872 (let ((arg (texinfo-parse-arg-discard)))
2874 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2876 ;; Clear region (i.e., cause the text to be ignored).
2877 (delete-region texinfo-command-start
2878 (progn (re-search-forward "@end ifclear[ \t]*\n")
2880 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2882 ;; Format the text (i.e., do not remove it); do nothing here.
2884 ((eq (get (car (read-from-string arg
)) 'texinfo-whether-setp
)
2886 ;; In this case flag is neither set nor cleared.
2887 ;; Act as if clear, i.e. do nothing.
2891 ;;; Process included files: `@include' command
2893 ;; Updated 19 October 1990
2894 ;; In the original version, include files were ignored by Info but
2895 ;; incorporated in to the printed manual. To make references to the
2896 ;; included file, the Texinfo source file has to refer to the included
2897 ;; files using the `(filename)nodename' format for referring to other
2898 ;; Info files. Also, the included files had to be formatted on their
2899 ;; own. It was just like they were another file.
2901 ;; Currently, include files are inserted into the buffer that is
2902 ;; formatted for Info. If large, the resulting info file is split and
2903 ;; tagified. For current include files to work, the master menu must
2904 ;; refer to all the nodes, and the highest level nodes in the include
2905 ;; files must have the correct next, prev, and up pointers.
2907 ;; The included file may have an @setfilename and even an @settitle,
2908 ;; but not an `\input texinfo' line.
2910 ;; Updated 24 March 1993
2911 ;; In order for @raisesections and @lowersections to work, included
2912 ;; files must be inserted into the buffer holding the outer file
2913 ;; before other Info formatting takes place. So @include is no longer
2914 ;; is treated like other @-commands.
2915 (put 'include
'texinfo-format
'texinfo-format-noop
)
2917 ; Original definition:
2918 ; (defun texinfo-format-include ()
2919 ; (let ((filename (texinfo-parse-arg-discard))
2920 ; (default-directory input-directory)
2925 ; (cond ((file-readable-p (concat filename ".texinfo"))
2926 ; (concat filename ".texinfo"))
2927 ; ((file-readable-p (concat filename ".texi"))
2928 ; (concat filename ".texi"))
2929 ; ((file-readable-p (concat filename ".tex"))
2930 ; (concat filename ".tex"))
2931 ; ((file-readable-p filename)
2933 ; (t (error "@include'd file %s not found"
2935 ; (texinfo-format-buffer-1))))
2936 ; (texinfo-subindex 'texinfo-vindex (car subindex) (nth 1 subindex))
2937 ; (texinfo-subindex 'texinfo-findex (car subindex) (nth 2 subindex))
2938 ; (texinfo-subindex 'texinfo-cindex (car subindex) (nth 3 subindex))
2939 ; (texinfo-subindex 'texinfo-pindex (car subindex) (nth 4 subindex))
2940 ; (texinfo-subindex 'texinfo-tindex (car subindex) (nth 5 subindex))
2941 ; (texinfo-subindex 'texinfo-kindex (car subindex) (nth 6 subindex))))
2943 ;(defun texinfo-subindex (indexvar file content)
2944 ; (set indexvar (cons (list 'recurse file content)
2945 ; (symbol-value indexvar))))
2947 ; Second definition:
2948 ; (put 'include 'texinfo-format 'texinfo-format-include)
2949 ; (defun texinfo-format-include ()
2950 ; (let ((filename (concat input-directory
2951 ; (texinfo-parse-arg-discard)))
2952 ; (default-directory input-directory))
2953 ; (message "Reading: %s" filename)
2958 ; (+ (point) (car (cdr (insert-file-contents filename)))))
2959 ; (goto-char (point-min))
2960 ; (texinfo-append-refill)
2961 ; (texinfo-format-convert (point-min) (point-max))))
2962 ; (setq last-input-buffer input-buffer) ; to bypass setfilename
2966 ;;; Numerous commands do nothing in Texinfo
2968 ;; These commands are defined in texinfo.tex for printed output.
2970 (put 'bye
'texinfo-format
'texinfo-discard-line
)
2971 (put 'c
'texinfo-format
'texinfo-discard-line-with-args
)
2972 (put 'comment
'texinfo-format
'texinfo-discard-line-with-args
)
2973 (put 'contents
'texinfo-format
'texinfo-discard-line-with-args
)
2974 (put 'finalout
'texinfo-format
'texinfo-discard-line
)
2975 (put 'group
'texinfo-end
'texinfo-discard-line-with-args
)
2976 (put 'group
'texinfo-format
'texinfo-discard-line-with-args
)
2977 (put 'headings
'texinfo-format
'texinfo-discard-line-with-args
)
2978 (put 'hsize
'texinfo-format
'texinfo-discard-line-with-args
)
2979 (put 'itemindent
'texinfo-format
'texinfo-discard-line-with-args
)
2980 (put 'lispnarrowing
'texinfo-format
'texinfo-discard-line-with-args
)
2981 (put 'need
'texinfo-format
'texinfo-discard-line-with-args
)
2982 (put 'nopara
'texinfo-format
'texinfo-discard-line-with-args
)
2983 (put 'page
'texinfo-format
'texinfo-discard-line-with-args
)
2984 (put 'parindent
'texinfo-format
'texinfo-discard-line-with-args
)
2985 (put 'setchapternewpage
'texinfo-format
'texinfo-discard-line-with-args
)
2986 (put 'setq
'texinfo-format
'texinfo-discard-line-with-args
)
2987 (put 'settitle
'texinfo-format
'texinfo-discard-line-with-args
)
2988 (put 'setx
'texinfo-format
'texinfo-discard-line-with-args
)
2989 (put 'shortcontents
'texinfo-format
'texinfo-discard-line-with-args
)
2990 (put 'smallbook
'texinfo-format
'texinfo-discard-line
)
2991 (put 'summarycontents
'texinfo-format
'texinfo-discard-line-with-args
)
2994 ;;; Some commands cannot be handled
2996 (defun texinfo-unsupported ()
2997 (error "%s is not handled by texinfo"
2998 (buffer-substring texinfo-command-start texinfo-command-end
)))
3000 ;;; Batch formatting
3002 (defun batch-texinfo-format ()
3003 "Runs texinfo-format-buffer on the files remaining on the command line.
3004 Must be used only with -batch, and kills emacs on completion.
3005 Each file will be processed even if an error occurred previously.
3007 \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
3008 (if (not noninteractive
)
3009 (error "batch-texinfo-format may only be used -batch."))
3010 (let ((version-control t
)
3011 (auto-save-default nil
)
3012 (find-file-run-dired nil
)
3013 (kept-old-versions 259259)
3014 (kept-new-versions 259259))
3018 (while command-line-args-left
3019 (setq file
(expand-file-name (car command-line-args-left
)))
3020 (cond ((not (file-exists-p file
))
3021 (message ">> %s does not exist!" file
)
3023 command-line-args-left
(cdr command-line-args-left
)))
3024 ((file-directory-p file
)
3025 (setq command-line-args-left
3026 (nconc (directory-files file
)
3027 (cdr command-line-args-left
))))
3029 (setq files
(cons file files
)
3030 command-line-args-left
(cdr command-line-args-left
)))))
3032 (setq file
(car files
)
3036 (if buffer-file-name
(kill-buffer (current-buffer)))
3038 (buffer-disable-undo (current-buffer))
3039 (set-buffer-modified-p nil
)
3041 (message "texinfo formatting %s..." file
)
3042 (texinfo-format-buffer nil
)
3043 (if (buffer-modified-p)
3044 (progn (message "Saving modified %s" (buffer-file-name))
3047 (message ">> Error: %s" (prin1-to-string err
))
3048 (message ">> point at")
3049 (let ((s (buffer-substring (point)
3050 (min (+ (point) 100)
3053 (while (setq tem
(string-match "\n+" s tem
))
3054 (setq s
(concat (substring s
0 (match-beginning 0))
3056 (substring s
(match-end 0)))
3058 (message ">> %s" s
))
3060 (kill-emacs error
))))
3063 ;;; Place `provide' at end of file.
3066 ;;; texinfmt.el ends here.