![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to texinfo.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp|
Return to texinfo.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp |
1.1 root 1: ;; Convert texinfo files to info files.
2: ;; Copyright (C) 1985 Richard M. Stallman.
3:
4: ;; This file is part of GNU Emacs.
5:
6: ;; GNU Emacs is distributed in the hope that it will be useful,
7: ;; but WITHOUT ANY WARRANTY. No author or distributor
8: ;; accepts responsibility to anyone for the consequences of using it
9: ;; or for whether it serves any particular purpose or works at all,
10: ;; unless he says so in writing. Refer to the GNU Emacs General Public
11: ;; License for full details.
12:
13: ;; Everyone is granted permission to copy, modify and redistribute
14: ;; GNU Emacs, but only under the conditions described in the
15: ;; GNU Emacs General Public License. A copy of this license is
16: ;; supposed to have been given to you along with GNU Emacs so you
17: ;; can know your rights and responsibilities. It should be in a
18: ;; file named COPYING. Among other things, the copyright notice
19: ;; and this notice must be preserved on all copies.
20:
21:
22: (defvar texinfo-mode-syntax-table nil)
23:
24: (defvar texinfo-format-syntax-table nil)
25:
26: (defvar texinfo-vindex)
27: (defvar texinfo-findex)
28: (defvar texinfo-cindex)
29: (defvar texinfo-pindex)
30: (defvar texinfo-tindex)
31: (defvar texinfo-kindex)
32:
33: (let ((st (syntax-table)))
34: (unwind-protect
35: (progn
36: (setq texinfo-mode-syntax-table (make-syntax-table))
37: (set-syntax-table texinfo-mode-syntax-table)
38: (modify-syntax-entry ?\" " ")
39: (modify-syntax-entry ?\\ " ")
40: (modify-syntax-entry ?@ "\\")
41: (modify-syntax-entry ?\^q "\\")
42: (modify-syntax-entry ?\[ "(]")
43: (modify-syntax-entry ?\] ")[")
44: (modify-syntax-entry ?{ "(}")
45: (modify-syntax-entry ?} "){")
46: (modify-syntax-entry ?\' "w")
47: (setq texinfo-format-syntax-table (copy-sequence texinfo-mode-syntax-table))
48: (set-syntax-table texinfo-format-syntax-table)
49: (modify-syntax-entry ?\' ".")
50: (modify-syntax-entry ?\[ ".")
51: (modify-syntax-entry ?\] ".")
52: (modify-syntax-entry ?\( ".")
53: (modify-syntax-entry ?\) "."))
54: (set-syntax-table st)))
55:
56: (defun texinfo-mode ()
57: "Major mode for editing texinfo files.
58: These are files that are input for TEX and also to be turned
59: into Info files by M-x texinfo-format-buffer.
60: These files must be written in a very restricted and
61: modified version of TEX input format.
62:
63: As for editing commands, like text-mode except for syntax table,
64: which is set up so expression commands skip texinfo bracket groups."
65: (interactive)
66: (text-mode)
67: (setq mode-name "Texinfo")
68: (setq major-mode 'texinfo-mode)
69: (set-syntax-table texinfo-mode-syntax-table)
70: (make-local-variable 'require-final-newline)
71: (setq require-final-newline t)
72: (make-local-variable 'paragraph-separate)
73: (setq paragraph-separate (concat "^\b\\|^@[a-z]*[ \n]\\|" paragraph-separate))
74: (make-local-variable 'paragraph-start)
75: (setq paragraph-start (concat "^\b\\|^@[a-z]*[ \n]\\|" paragraph-start))
76: (make-local-variable 'fill-column)
77: (setq fill-column 75)
78: (run-hooks 'text-mode-hook 'texinfo-mode-hook))
79:
80: (defun texinfo-format-buffer ()
81: "Process the current buffer as texinfo code, into an Info file.
82: The Info file output is generated in a buffer
83: visiting the Info file names specified in the @setfilename command."
84: (interactive)
85: (let (texinfo-format-filename
86: texinfo-example-start
87: texinfo-command-start
88: texinfo-command-end
89: texinfo-command-name
90: texinfo-last-node
91: texinfo-vindex
92: texinfo-findex
93: texinfo-cindex
94: texinfo-pindex
95: texinfo-tindex
96: texinfo-kindex
97: texinfo-stack
98: outfile
99: (fill-column fill-column)
100: (input-buffer (current-buffer)))
101: (save-excursion
102: (goto-char (point-min))
103: (search-forward "@setfilename")
104: (setq texinfo-command-end (point))
105: (setq outfile (texinfo-parse-line-arg)))
106: (find-file outfile)
107: (message "Formatting Info file...")
108: (texinfo-mode)
109: (set-syntax-table texinfo-format-syntax-table)
110: (erase-buffer)
111: (insert-buffer-substring input-buffer)
112: (goto-char (point-min))
113: (search-forward "@setfilename")
114: (beginning-of-line)
115: (delete-region (point-min) (point))
116: (while (search-forward "``" nil t)
117: (replace-match "\""))
118: (goto-char (point-min))
119: (while (search-forward "''" nil t)
120: (replace-match "\""))
121: (goto-char (point-min))
122: (while (search-forward "@" nil t)
123: ;; If the @ is preceded by an odd number of ^Q's, do nothing,
124: (if (and (eq (char-after (- (point) 2)) ?\^Q)
125: (save-excursion
126: (forward-char -1)
127: (let ((opoint (point)))
128: (skip-chars-backward "\^Q")
129: (= (logand 1 (- opoint (point))) 1))))
130: nil
131: (if (looking-at "[@{}'` *]")
132: (if (= (following-char) ?*)
133: (delete-region (1- (point)) (1+ (point)))
134: (delete-char -1)
135: (forward-char 1))
136: (setq texinfo-command-start (1- (point)))
137: (if (= (char-syntax (following-char)) ?w)
138: (forward-word 1)
139: (forward-char 1))
140: (setq texinfo-command-end (point))
141: (setq texinfo-command-name
142: (intern (buffer-substring (1+ texinfo-command-start)
143: texinfo-command-end)))
144: (let ((cmd (get texinfo-command-name 'texinfo-format)))
145: (if cmd (funcall cmd)
146: (texinfo-unsupported))))))
147: (cond (texinfo-stack
148: (goto-char (nth 2 (car texinfo-stack)))
149: (error "Unterminated @%s" (car (car texinfo-stack)))))
150: (goto-char (point-min))
151: (while (search-forward "\^q" nil t)
152: (delete-char -1)
153: (forward-char 1))
154: (goto-char (point-min))
155: (message "Formatting Info file...done. Now save it.")))
156:
157: (put 'begin 'texinfo-format 'texinfo-format-begin)
158: (defun texinfo-format-begin ()
159: (texinfo-format-begin-end 'texinfo-format))
160:
161: (put 'end 'texinfo-format 'texinfo-format-end)
162: (defun texinfo-format-end ()
163: (texinfo-format-begin-end 'texinfo-end))
164:
165: (defun texinfo-format-begin-end (prop)
166: (setq texinfo-command-name (intern (texinfo-parse-line-arg)))
167: (setq cmd (get texinfo-command-name prop))
168: (if cmd (funcall cmd)
169: (texinfo-unsupported)))
170:
171: (defun texinfo-parse-line-arg ()
172: (goto-char texinfo-command-end)
173: (let ((start (point)))
174: (cond ((looking-at " ")
175: (skip-chars-forward " ")
176: (setq start (point))
177: (end-of-line)
178: (setq texinfo-command-end (1+ (point))))
179: ((looking-at "{")
180: (setq start (1+ (point)))
181: (forward-list 1)
182: (setq texinfo-command-end (point))
183: (forward-char -1))
184: (t
185: (error "Invalid texinfo command arg format")))
186: (prog1 (buffer-substring start (point))
187: (if (eolp) (forward-char 1)))))
188:
189: (defun texinfo-parse-arg-discard ()
190: (prog1 (texinfo-parse-line-arg)
191: (texinfo-discard-command)))
192:
193: (defun texinfo-discard-command ()
194: (delete-region texinfo-command-start texinfo-command-end))
195:
196: (defun texinfo-format-parse-line-args ()
197: (let ((start (1- (point)))
198: next beg end
199: args)
200: (skip-chars-forward " ")
201: (while (not (eolp))
202: (setq beg (point))
203: (re-search-forward "[\n,]")
204: (setq next (point))
205: (if (bolp) (setq next (1- next)))
206: (forward-char -1)
207: (skip-chars-backward " ")
208: (setq end (point))
209: (setq args (cons (if (> end beg) (buffer-substring beg end))
210: args))
211: (goto-char next)
212: (skip-chars-forward " "))
213: (if (eolp) (forward-char 1))
214: (setq texinfo-command-end (point))
215: (nreverse args)))
216:
217: (defun texinfo-format-parse-args ()
218: (let ((start (1- (point)))
219: next beg end
220: args)
221: (search-forward "{")
222: (while (/= (preceding-char) ?\})
223: (skip-chars-forward " \t\n")
224: (setq beg (point))
225: (re-search-forward "[},]")
226: (setq next (point))
227: (forward-char -1)
228: (skip-chars-backward " \t\n")
229: (setq end (point))
230: (cond ((< beg end)
231: (goto-char beg)
232: (while (search-forward "\n" end t)
233: (replace-match " "))))
234: (setq args (cons (if (> end beg) (buffer-substring beg end))
235: args))
236: (goto-char next))
237: (if (eolp) (forward-char 1))
238: (setq texinfo-command-end (point))
239: (nreverse args)))
240:
241: (put 'setfilename 'texinfo-format 'texinfo-format-setfilename)
242: (defun texinfo-format-setfilename ()
243: (let ((arg (texinfo-parse-arg-discard)))
244: (setq texinfo-format-filename (file-name-nondirectory arg))
245: (insert "Info file "
246: texinfo-format-filename
247: ", produced by texinfo-format-buffer -*-Text-*-\nfrom "
248: (if (buffer-file-name input-buffer)
249: (concat "file "
250: (file-name-nondirectory (buffer-file-name input-buffer)))
251: (concat "buffer " (buffer-name input-buffer)))
252: ?\n)))
253:
254: (put 'node 'texinfo-format 'texinfo-format-node)
255: (defun texinfo-format-node ()
256: (let* ((args (texinfo-format-parse-line-args))
257: (name (nth 0 args))
258: (next (nth 1 args))
259: (prev (nth 2 args))
260: (up (nth 3 args)))
261: (texinfo-discard-command)
262: (setq texinfo-last-node name)
263: (or (bolp)
264: (insert ?\n))
265: (insert "\^_\nFile: " texinfo-format-filename
266: " Node: " name)
267: (if prev
268: (insert ", Prev: " prev))
269: (if up
270: (insert ", Up: " up))
271: (if next
272: (insert ", Next: " next))
273: (insert ?\n)))
274:
275: (put 'menu 'texinfo-format 'texinfo-format-menu)
276: (defun texinfo-format-menu ()
277: (texinfo-discard-line)
278: (insert "* Menu:\n\n"))
279:
280: (put 'menu 'texinfo-end 'texinfo-discard-command)
281: (defun texinfo-discard-line ()
282: (goto-char texinfo-command-end)
283: (or (eolp)
284: (error "Extraneous text at end of command line."))
285: (goto-char texinfo-command-start)
286: (or (bolp)
287: (error "Extraneous text at beginning of command line."))
288: (delete-region (point) (progn (forward-line 1) (point))))
289:
290: ; @xref {NODE, FNAME, NAME, FILE, DOCUMENT}
291: ; -> *Note FNAME: (FILE)NODE
292: ; If FILE is missing,
293: ; *Note FNAME: NODE
294: ; If FNAME is empty and NAME is present
295: ; *Note NAME: Node
296: ; If both NAME and FNAME are missing
297: ; *Note NODE::
298: ; texinfo ignores the DOCUMENT argument.
299: ; -> See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
300: ; If FILE is specified, (FILE)NODE is used for xrefs.
301: ; If fifth argument DOCUMENT is specified, produces
302: ; See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
303: ; of DOCUMENT
304: (put 'xref 'texinfo-format 'texinfo-format-xref)
305: (defun texinfo-format-xref ()
306: (let ((args (texinfo-format-parse-args)))
307: (texinfo-discard-command)
308: (insert "*Note ")
309: (let ((fname (or (nth 1 args) (nth 2 args))))
310: (if (null (or fname (nth 3 args)))
311: (insert (car args) "::")
312: (insert (or fname (car args)) ": ")
313: (if (nth 3 args)
314: (insert "(" (nth 3 args) ")"))
315: (insert (car args))))))
316:
317: (put 'pxref 'texinfo-format 'texinfo-format-pxref)
318: (defun texinfo-format-pxref ()
319: (texinfo-format-xref)
320: (or (save-excursion
321: (forward-char -2)
322: (looking-at "::"))
323: (insert ".")))
324:
325: ;@inforef{NODE, FNAME, FILE}
326: ;Like @xref{NODE, FNAME,,FILE} in texinfo.
327: ;In Tex, generates "See Info file FILE, node NODE"
328: (put 'inforef 'texinfo-format 'texinfo-format-inforef)
329: (defun texinfo-format-inforef ()
330: (let ((args (texinfo-format-parse-args)))
331: (texinfo-discard-command)
332: (insert "*Note " (nth 1 args) ": (" (nth 2 args) ")" (car args))))
333:
334: (put 'ichapter 'texinfo-format 'texinfo-format-chapter)
335: (put 'chapter 'texinfo-format 'texinfo-format-chapter)
336: (put 'iappendix 'texinfo-format 'texinfo-format-chapter)
337: (put 'appendix 'texinfo-format 'texinfo-format-chapter)
338: (put 'iunnumbered 'texinfo-format 'texinfo-format-chapter)
339: (put 'unnumbered 'texinfo-format 'texinfo-format-chapter)
340: (defun texinfo-format-chapter ()
341: (texinfo-format-chapter-1 ?*))
342:
343: (put 'isection 'texinfo-format 'texinfo-format-section)
344: (put 'section 'texinfo-format 'texinfo-format-section)
345: (put 'iappendixsection 'texinfo-format 'texinfo-format-section)
346: (put 'appendixsection 'texinfo-format 'texinfo-format-section)
347: (put 'iappendixsec 'texinfo-format 'texinfo-format-section)
348: (put 'appendixsec 'texinfo-format 'texinfo-format-section)
349: (put 'iunnumberedsec 'texinfo-format 'texinfo-format-section)
350: (put 'unnumberedsec 'texinfo-format 'texinfo-format-section)
351: (defun texinfo-format-section ()
352: (texinfo-format-chapter-1 ?=))
353:
354: (put 'isubsection 'texinfo-format 'texinfo-format-subsection)
355: (put 'subsection 'texinfo-format 'texinfo-format-subsection)
356: (put 'iappendixsubsec 'texinfo-format 'texinfo-format-subsection)
357: (put 'appendixsubsec 'texinfo-format 'texinfo-format-subsection)
358: (put 'iunnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
359: (put 'unnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
360: (defun texinfo-format-subsection ()
361: (texinfo-format-chapter-1 ?-))
362:
363: (put 'isubsubsection 'texinfo-format 'texinfo-format-subsubsection)
364: (put 'subsubsection 'texinfo-format 'texinfo-format-subsubsection)
365: (put 'iappendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
366: (put 'appendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
367: (put 'iunnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
368: (put 'unnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
369: (defun texinfo-format-subsubsection ()
370: (texinfo-format-chapter-1 ?.))
371:
372: (defun texinfo-format-chapter-1 (belowchar)
373: (let ((arg (texinfo-parse-arg-discard)))
374: (insert ?\n arg ?\n "@SectionPAD " belowchar ?\n)
375: (forward-line -2)))
376:
377: (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad)
378: (defun texinfo-format-sectionpad ()
379: (let ((str (texinfo-parse-arg-discard)))
380: (forward-char -1)
381: (let ((column (current-column)))
382: (forward-char 1)
383: (while (> column 0)
384: (insert str)
385: (setq column (1- column))))
386: (insert ?\n)))
387:
388: (put '\. 'texinfo-format 'texinfo-format-\.)
389: (defun texinfo-format-\. ()
390: (texinfo-discard-command)
391: (insert "."))
392:
393: (put '\: 'texinfo-format 'texinfo-format-\:)
394: (defun texinfo-format-\: ()
395: (texinfo-discard-command))
396:
397: ;; @itemize pushes (itemize "COMMANDS" STARTPOS) on texinfo-stack.
398: ;; @enumerate pushes (enumerate 0 STARTPOS).
399: ;; @item dispatches to the texinfo-item prop of the first elt of the list.
400: ;; For itemize, this puts in and rescans the COMMANDS.
401: ;; For enumerate, this increments the number and puts it in.
402: ;; In either case, it puts a Backspace at the front of the line
403: ;; which marks it not to be indented later.
404: ;; All other lines get indented by 5 when the @end is reached.
405:
406: (defun texinfo-push-stack (check arg)
407: (setq texinfo-stack
408: (cons (list check arg texinfo-command-start)
409: texinfo-stack)))
410:
411: (defun texinfo-pop-stack (check)
412: (if (null texinfo-stack)
413: (error "Unmatched @end %s" check))
414: (if (not (eq (car (car texinfo-stack)) check))
415: (error "@end %s matches @%s"
416: check (car (car texinfo-stack))))
417: (prog1 (cdr (car texinfo-stack))
418: (setq texinfo-stack (cdr texinfo-stack))))
419:
420: (put 'itemize 'texinfo-format 'texinfo-itemize)
421: (defun texinfo-itemize ()
422: (texinfo-push-stack 'itemize (texinfo-parse-arg-discard))
423: (setq fill-column (- fill-column 5)))
424:
425: (put 'itemize 'texinfo-end 'texinfo-end-itemize)
426: (defun texinfo-end-itemize ()
427: (setq fill-column (+ fill-column 5))
428: (texinfo-discard-command)
429: (let ((stacktop
430: (texinfo-pop-stack 'itemize)))
431: (texinfo-do-itemize (nth 1 stacktop))))
432:
433: (put 'enumerate 'texinfo-format 'texinfo-enumerate)
434: (defun texinfo-enumerate ()
435: (texinfo-push-stack 'enumerate 0)
436: (setq fill-column (- fill-column 5))
437: (texinfo-discard-line))
438:
439: (put 'enumerate 'texinfo-end 'texinfo-end-enumerate)
440: (defun texinfo-end-enumerate ()
441: (setq fill-column (+ fill-column 5))
442: (texinfo-discard-command)
443: (let ((stacktop
444: (texinfo-pop-stack 'enumerate)))
445: (texinfo-do-itemize (nth 1 stacktop))))
446:
447: (put 'table 'texinfo-format 'texinfo-table)
448: (defun texinfo-table ()
449: (texinfo-push-stack 'table (texinfo-parse-arg-discard))
450: (setq fill-column (- fill-column 5)))
451:
452: (put 'ftable 'texinfo-format 'texinfo-ftable)
453: (defun texinfo-ftable ()
454: (texinfo-push-stack 'table "@code")
455: (setq fill-column (- fill-column 5))
456: (texinfo-discard-line))
457:
458: (put 'description 'texinfo-format 'texinfo-description)
459: (defun texinfo-description ()
460: (texinfo-push-stack 'table "@asis")
461: (setq fill-column (- fill-column 5))
462: (texinfo-discard-line))
463:
464: (put 'table 'texinfo-end 'texinfo-end-table)
465: (put 'ftable 'texinfo-end 'texinfo-end-table)
466: (put 'description 'texinfo-end 'texinfo-end-table)
467: (defun texinfo-end-table ()
468: (setq fill-column (+ fill-column 5))
469: (texinfo-discard-command)
470: (let ((stacktop
471: (texinfo-pop-stack 'table)))
472: (texinfo-do-itemize (nth 1 stacktop))))
473:
474: ;; At the @end, indent all the lines within the construct
475: ;; except those marked with backspace. FROM says where
476: ;; construct started.
477: (defun texinfo-do-itemize (from)
478: (save-excursion
479: (while (progn (forward-line -1)
480: (>= (point) from))
481: (if (= (following-char) ?\b)
482: (save-excursion
483: (delete-char 1)
484: (end-of-line)
485: (delete-char 6))
486: (save-excursion (insert " "))))))
487:
488: (put 'item 'texinfo-format 'texinfo-item)
489: (put 'itemx 'texinfo-format 'texinfo-item)
490: (defun texinfo-item ()
491: (funcall (get (car (car texinfo-stack)) 'texinfo-item)))
492:
493: (put 'itemize 'texinfo-item 'texinfo-itemize-item)
494: (defun texinfo-itemize-item ()
495: (texinfo-discard-line)
496: (insert "\b " (nth 1 (car texinfo-stack)) " \n")
497: (forward-line -1))
498:
499: (put 'enumerate 'texinfo-item 'texinfo-enumerate-item)
500: (defun texinfo-enumerate-item ()
501: (texinfo-discard-line)
502: (let ((next (1+ (car (cdr (car texinfo-stack))))))
503: (setcar (cdr (car texinfo-stack)) next)
504: (insert ?\b (format "%3d. " next) ?\n))
505: (forward-line -1))
506:
507: (put 'table 'texinfo-item 'texinfo-table-item)
508: (defun texinfo-table-item ()
509: (let ((arg (texinfo-parse-arg-discard))
510: (itemfont (car (cdr (car texinfo-stack)))))
511: (insert ?\b itemfont ?\{ arg "}\n \n"))
512: (forward-line -2))
513:
514: (put 'ifinfo 'texinfo-format 'texinfo-discard-command)
515: (put 'ifinfo 'texinfo-end 'texinfo-discard-command)
516:
517: (put 'iftex 'texinfo-format 'texinfo-format-iftex)
518: (defun texinfo-format-iftex ()
519: (delete-region texinfo-command-start
520: (progn (re-search-forward "@end iftex\n")
521: (point))))
522:
523: (put 'titlepage 'texinfo-format 'texinfo-format-titlepage)
524: (defun texinfo-format-titlepage ()
525: (delete-region texinfo-command-start
526: (progn (search-forward "@end titlepage\n")
527: (point))))
528:
529: (put 'endtitlepage 'texinfo-format 'texinfo-discard-line)
530:
531: (put 'ignore 'texinfo-format 'texinfo-format-ignore)
532: (defun texinfo-format-ignore ()
533: (delete-region texinfo-command-start
534: (progn (search-forward "@end ignore\n")
535: (point))))
536:
537: (put 'endignore 'texinfo-format 'texinfo-discard-line)
538:
539: (put 'var 'texinfo-format 'texinfo-format-var)
540: (put 'heading 'texinfo-format 'texinfo-format-var)
541: (defun texinfo-format-var ()
542: (insert (upcase (texinfo-parse-arg-discard)))
543: (goto-char texinfo-command-start))
544:
545: (put 'asis 'texinfo-format 'texinfo-format-noop)
546: (put 'b 'texinfo-format 'texinfo-format-noop)
547: (put 't 'texinfo-format 'texinfo-format-noop)
548: (put 'i 'texinfo-format 'texinfo-format-noop)
549: (put 'key 'texinfo-format 'texinfo-format-noop)
550: (put 'w 'texinfo-format 'texinfo-format-noop)
551: (defun texinfo-format-noop ()
552: (insert (texinfo-parse-arg-discard))
553: (goto-char texinfo-command-start))
554:
555: (put 'code 'texinfo-format 'texinfo-format-code)
556: (put 'samp 'texinfo-format 'texinfo-format-code)
557: (put 'file 'texinfo-format 'texinfo-format-code)
558: (put 'kbd 'texinfo-format 'texinfo-format-code)
559: (defun texinfo-format-code ()
560: (insert "`" (texinfo-parse-arg-discard) "'")
561: (goto-char texinfo-command-start))
562:
563: (put 'defn 'texinfo-format 'texinfo-format-defn)
564: (put 'dfn 'texinfo-format 'texinfo-format-defn)
565: (defun texinfo-format-defn ()
566: (insert "\"" (texinfo-parse-arg-discard) "\"")
567: (goto-char texinfo-command-start))
568:
569: (put 'bullet 'texinfo-format 'texinfo-format-bullet)
570: (defun texinfo-format-bullet ()
571: (texinfo-discard-command)
572: (insert "*"))
573:
574: (put 'smallexample 'texinfo-format 'texinfo-format-example)
575: (put 'example 'texinfo-format 'texinfo-format-example)
576: (put 'quotation 'texinfo-format 'texinfo-format-example)
577: (put 'lisp 'texinfo-format 'texinfo-format-example)
578: (put 'display 'texinfo-format 'texinfo-format-example)
579: (put 'format 'texinfo-format 'texinfo-format-example)
580: (put 'flushleft 'texinfo-format 'texinfo-format-example)
581: (defun texinfo-format-example ()
582: (texinfo-push-stack 'example nil)
583: (setq fill-column (- fill-column 5))
584: (texinfo-discard-line))
585:
586: (put 'smallexample 'texinfo-end 'texinfo-end-example)
587: (put 'example 'texinfo-end 'texinfo-end-example)
588: (put 'quotation 'texinfo-end 'texinfo-end-example)
589: (put 'lisp 'texinfo-end 'texinfo-end-example)
590: (put 'display 'texinfo-end 'texinfo-end-example)
591: (put 'format 'texinfo-end 'texinfo-end-example)
592: (put 'flushleft 'texinfo-end 'texinfo-end-example)
593: (defun texinfo-end-example ()
594: (setq fill-column (+ fill-column 5))
595: (texinfo-discard-command)
596: (let ((stacktop
597: (texinfo-pop-stack 'example)))
598: (texinfo-do-itemize (nth 1 stacktop))))
599:
600:
601: (put 'exdent 'texinfo-format 'texinfo-format-exdent)
602: (defun texinfo-format-exdent ()
603: (texinfo-discard-command)
604: (delete-region (point)
605: (progn
606: (skip-chars-forward " ")
607: (point)))
608: (insert ?\b)
609: ;; Cancel out the deletion that texinfo-do-itemize
610: ;; is going to do at the end of this line.
611: (save-excursion
612: (end-of-line)
613: (insert "\n ")))
614:
615: (put 'ctrl 'texinfo-format 'texinfo-format-ctrl)
616: (defun texinfo-format-ctrl ()
617: (let ((str (texinfo-parse-arg-discard)))
618: (insert (logand 31 (aref str 0)))))
619:
620: (put 'TeX 'texinfo-format 'texinfo-format-TeX)
621: (defun texinfo-format-TeX ()
622: (texinfo-parse-arg-discard)
623: (insert "TeX"))
624:
625: (put 'copyright 'texinfo-format 'texinfo-format-copyright)
626: (defun texinfo-format-copyright ()
627: (texinfo-parse-arg-discard)
628: (insert "(C)"))
629:
630: (put 'dots 'texinfo-format 'texinfo-format-dots)
631: (defun texinfo-format-dots ()
632: (texinfo-parse-arg-discard)
633: (insert "..."))
634:
635: (put 'refill 'texinfo-format 'texinfo-format-refill)
636: (defun texinfo-format-refill ()
637: (texinfo-discard-command)
638: (fill-paragraph nil))
639:
640: ;; Index generation
641:
642: (put 'vindex 'texinfo-format 'texinfo-format-vindex)
643: (defun texinfo-format-vindex ()
644: (texinfo-index 'texinfo-vindex))
645:
646: (put 'cindex 'texinfo-format 'texinfo-format-cindex)
647: (defun texinfo-format-cindex ()
648: (texinfo-index 'texinfo-cindex))
649:
650: (put 'findex 'texinfo-format 'texinfo-format-findex)
651: (defun texinfo-format-findex ()
652: (texinfo-index 'texinfo-findex))
653:
654: (put 'pindex 'texinfo-format 'texinfo-format-pindex)
655: (defun texinfo-format-pindex ()
656: (texinfo-index 'texinfo-pindex))
657:
658: (put 'tindex 'texinfo-format 'texinfo-format-tindex)
659: (defun texinfo-format-tindex ()
660: (texinfo-index 'texinfo-tindex))
661:
662: (put 'kindex 'texinfo-format 'texinfo-format-kindex)
663: (defun texinfo-format-kindex ()
664: (texinfo-index 'texinfo-kindex))
665:
666: (defun texinfo-index (indexvar)
667: (set indexvar
668: (cons (list (texinfo-parse-arg-discard) texinfo-last-node)
669: (symbol-value indexvar))))
670:
671: (defconst texinfo-indexvar-alist
672: '(("cp" . texinfo-cindex)
673: ("fn" . texinfo-findex)
674: ("vr" . texinfo-vindex)
675: ("tp" . texinfo-tindex)
676: ("pg" . texinfo-pindex)
677: ("ky" . texinfo-kindex)))
678:
679: (put 'printindex 'texinfo-format 'texinfo-format-printindex)
680: (defun texinfo-format-printindex ()
681: (let ((indexelts (symbol-value
682: (cdr (assoc (texinfo-parse-arg-discard)
683: texinfo-indexvar-alist))))
684: opoint)
685: (insert "\n* Menu:\n\n")
686: (setq opoint (point))
687: (while indexelts
688: (insert "* " (car (car indexelts)) ": " (nth 1 (car indexelts)) ".\n")
689: (setq indexelts (cdr indexelts)))
690: (shell-command-on-region opoint (point) "sort -f" 1)))
691:
692: ;; Lots of bolio constructs do nothing in texinfo.
693:
694: (put 'page 'texinfo-format 'texinfo-discard-line-with-args)
695: (put 'c 'texinfo-format 'texinfo-discard-line-with-args)
696: (put 'comment 'texinfo-format 'texinfo-discard-line-with-args)
697: (put 'setchapternewpage 'texinfo-format 'texinfo-discard-line-with-args)
698: (put 'contents 'texinfo-format 'texinfo-discard-line-with-args)
699: (put 'summarycontents 'texinfo-format 'texinfo-discard-line-with-args)
700: (put 'nopara 'texinfo-format 'texinfo-discard-line-with-args)
701: (put 'noindent 'texinfo-format 'texinfo-discard-line-with-args)
702: (put 'setx 'texinfo-format 'texinfo-discard-line-with-args)
703: (put 'setq 'texinfo-format 'texinfo-discard-line-with-args)
704: (put 'settitle 'texinfo-format 'texinfo-discard-line-with-args)
705: (put 'defindex 'texinfo-format 'texinfo-discard-line-with-args)
706: (put 'synindex 'texinfo-format 'texinfo-discard-line-with-args)
707: (put 'hsize 'texinfo-format 'texinfo-discard-line-with-args)
708: (put 'parindent 'texinfo-format 'texinfo-discard-line-with-args)
709: (put 'lispnarrowing 'texinfo-format 'texinfo-discard-line-with-args)
710: (put 'itemindent 'texinfo-format 'texinfo-discard-line-with-args)
711: (put 'headings 'texinfo-format 'texinfo-discard-line-with-args)
712: (put 'group 'texinfo-format 'texinfo-discard-line-with-args)
713: (put 'group 'texinfo-end 'texinfo-discard-line-with-args)
714: (put 'bye 'texinfo-format 'texinfo-discard-line)
715:
716: (defun texinfo-discard-line-with-args ()
717: (goto-char texinfo-command-start)
718: (delete-region (point) (progn (forward-line 1) (point))))
719:
720: ;; Some cannot be handled
721:
722: (defun texinfo-unsupported ()
723: (error "%s is not handled by texinfo"
724: (buffer-substring texinfo-command-start texinfo-command-end)))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.