![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to texinfmt.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to texinfmt.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 root 1: ;; Convert texinfo files to info files.
2: ;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
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-format-syntax-table nil)
23:
24: (defvar texinfo-vindex)
25: (defvar texinfo-findex)
26: (defvar texinfo-cindex)
27: (defvar texinfo-pindex)
28: (defvar texinfo-tindex)
29: (defvar texinfo-kindex)
30: (defvar texinfo-last-node)
31: (defvar texinfo-node-names)
32:
33: (if texinfo-format-syntax-table
34: nil
35: (setq texinfo-format-syntax-table (make-syntax-table))
36: (modify-syntax-entry ?\" " " texinfo-format-syntax-table)
37: (modify-syntax-entry ?\\ " " texinfo-format-syntax-table)
38: (modify-syntax-entry ?@ "\\" texinfo-format-syntax-table)
39: (modify-syntax-entry ?\^q "\\" texinfo-format-syntax-table)
40: (modify-syntax-entry ?\[ "." texinfo-format-syntax-table)
41: (modify-syntax-entry ?\] "." texinfo-format-syntax-table)
42: (modify-syntax-entry ?\( "." texinfo-format-syntax-table)
43: (modify-syntax-entry ?\) "." texinfo-format-syntax-table)
44: (modify-syntax-entry ?{ "(}" texinfo-format-syntax-table)
45: (modify-syntax-entry ?} "){" texinfo-format-syntax-table)
46: (modify-syntax-entry ?\' "." texinfo-format-syntax-table))
47:
48: (defun texinfo-format-buffer (&optional notagify)
49: "Process the current buffer as texinfo code, into an Info file.
50: The Info file output is generated in a buffer visiting the Info file
51: names specified in the @setfilename command.
52:
53: Non-nil argument (prefix, if interactive) means don't make tag table
54: and don't split the file if large. You can use Info-tagify and
55: Info-split to do these manually."
56: (interactive "P")
57: (let ((lastmessage "Formatting Info file..."))
58: (message lastmessage)
59: (texinfo-format-buffer-1)
60: (if notagify
61: nil
62: (if (> (buffer-size) 30000)
63: (progn
64: (message (setq lastmessage "Making tags table for Info file..."))
65: (Info-tagify)))
66: (if (> (buffer-size) 100000)
67: (progn
68: (message (setq lastmessage "Splitting Info file..."))
69: (Info-split))))
70: (message (concat lastmessage
71: (if (interactive-p) "done. Now save it." "done.")))))
72:
73: (defun texinfo-format-buffer-1 ()
74: (let (texinfo-format-filename
75: texinfo-example-start
76: texinfo-command-start
77: texinfo-command-end
78: texinfo-command-name
79: texinfo-last-node
80: texinfo-vindex
81: texinfo-findex
82: texinfo-cindex
83: texinfo-pindex
84: texinfo-tindex
85: texinfo-kindex
86: texinfo-stack
87: texinfo-node-names
88: outfile
89: (fill-column fill-column)
90: (input-buffer (current-buffer))
91: (input-directory default-directory))
92: (save-excursion
93: (goto-char (point-min))
94: (search-forward "@setfilename")
95: (setq texinfo-command-end (point))
96: (setq outfile (texinfo-parse-line-arg)))
97: (find-file outfile)
98: (texinfo-mode)
99: (set-syntax-table texinfo-format-syntax-table)
100: (erase-buffer)
101: (insert-buffer-substring input-buffer)
102: (goto-char (point-min))
103: (search-forward "@setfilename")
104: (beginning-of-line)
105: (delete-region (point-min) (point))
106: ;; Remove @bye at end of file, if it is there.
107: (goto-char (point-max))
108: (if (search-backward "@bye" nil t)
109: (delete-region (point) (point-max)))
110: ;; Make sure buffer ends in a newline.
111: (or (= (preceding-char) ?\n)
112: (insert "\n"))
113: ;; Scan the whole buffer, converting to Info format.
114: (texinfo-format-scan)
115: ;; Return data for indices.
116: (goto-char (point-min))
117: (list outfile
118: texinfo-vindex texinfo-findex texinfo-cindex
119: texinfo-pindex texinfo-tindex texinfo-kindex)))
120:
121: (defvar texinfo-region-buffer-name "*Info Region*"
122: "*Name of the temporary buffer used by \\[texinfo-format-region].")
123:
124: (defun texinfo-format-region (region-beginning region-ending)
125: "Convert the the current region of the Texinfo file to Info format.
126: This lets you see what that part of the file will look like in Info.
127: The command is bound to \\[texinfo-format-region]. The text that is
128: converted to Info is stored in a temporary buffer."
129: (interactive "r")
130: (message "Converting region to Info format...")
131: (let (texinfo-command-start
132: texinfo-command-end
133: texinfo-command-name
134: texinfo-vindex
135: texinfo-findex
136: texinfo-cindex
137: texinfo-pindex
138: texinfo-tindex
139: texinfo-kindex
140: texinfo-stack
141: texinfo-format-filename
142: texinfo-example-start
143: texinfo-last-node
144: texinfo-node-names
145: (fill-column fill-column)
146: (input-buffer (current-buffer))
147: (input-directory default-directory)
148: filename-beginning
149: filename-ending)
150:
151: ;;; Find a buffer to use.
152:
153: (switch-to-buffer (get-buffer-create texinfo-region-buffer-name))
154:
155: ;; Insert the region into the buffer.
156: (erase-buffer)
157:
158: (save-excursion
159: (set-buffer input-buffer)
160: (save-excursion
161: (save-restriction
162: (widen)
163: (goto-char (point-min))
164: ;; Initialize the buffer with the filename
165: ;; or else explain that a filename is needed.
166: (or (search-forward "@setfilename"
167: (save-excursion (forward-line 100) (point)) t)
168: (error "The texinfo file needs a line saying: @setfilename <name>"))
169: (beginning-of-line)
170: (setq filename-beginning (point))
171: (forward-line 1)
172: (setq filename-ending (point)))))
173:
174: ;; Insert the @setfilename line into the buffer.
175: (insert-buffer-substring input-buffer
176: (min filename-beginning region-beginning)
177: filename-ending)
178:
179: ;; Insert the region into the buffer.
180: (insert-buffer-substring input-buffer
181: (max region-beginning filename-ending)
182: region-ending)
183:
184: (texinfo-mode)
185:
186: ;; Install a syntax table useful for scanning command operands.
187: (set-syntax-table texinfo-format-syntax-table)
188:
189: ;; If the region includes the effective end of the data,
190: ;; discard everything after that.
191: (goto-char (point-max))
192: (if (re-search-backward "^@bye" nil t)
193: (delete-region (point) (point-max)))
194: ;; Make sure buffer ends in a newline.
195: (or (= (preceding-char) ?\n)
196: (insert "\n"))
197:
198: ;; Now convert for real.
199: (goto-char (point-min))
200: (texinfo-format-scan)
201: (goto-char (point-min)))
202:
203: (message "Done."))
204:
205: ;; Perform those texinfo-to-info conversions that apply to the whole input
206: ;; uniformly.
207: (defun texinfo-format-scan ()
208: ;; Convert left and right quotes to typewriter font quotes.
209: (goto-char (point-min))
210: (while (search-forward "``" nil t)
211: (replace-match "\""))
212: (goto-char (point-min))
213: (while (search-forward "''" nil t)
214: (replace-match "\""))
215: ;; Scan for @-commands.
216: (goto-char (point-min))
217: (while (search-forward "@" nil t)
218: (if (looking-at "[@{}'` *]")
219: ;; Handle a few special @-followed-by-one-char commands.
220: (if (= (following-char) ?*)
221: ;; @* has no effect, since we are not filling.
222: (delete-region (1- (point)) (1+ (point)))
223: ;; The other characters are simply quoted. Delete the @.
224: (delete-char -1)
225: (forward-char 1))
226: ;; @ is followed by a command-word; find the end of the word.
227: (setq texinfo-command-start (1- (point)))
228: (if (= (char-syntax (following-char)) ?w)
229: (forward-word 1)
230: (forward-char 1))
231: (setq texinfo-command-end (point))
232: ;; Call the handler for this command.
233: (setq texinfo-command-name
234: (intern (buffer-substring (1+ texinfo-command-start)
235: texinfo-command-end)))
236: (let ((cmd (get texinfo-command-name 'texinfo-format)))
237: (if cmd (funcall cmd)
238: (texinfo-unsupported)))))
239: (cond (texinfo-stack
240: (goto-char (nth 2 (car texinfo-stack)))
241: (error "Unterminated @%s" (car (car texinfo-stack))))))
242:
243: (put 'begin 'texinfo-format 'texinfo-format-begin)
244: (defun texinfo-format-begin ()
245: (texinfo-format-begin-end 'texinfo-format))
246:
247: (put 'end 'texinfo-format 'texinfo-format-end)
248: (defun texinfo-format-end ()
249: (texinfo-format-begin-end 'texinfo-end))
250:
251: (defun texinfo-format-begin-end (prop)
252: (setq texinfo-command-name (intern (texinfo-parse-line-arg)))
253: (setq cmd (get texinfo-command-name prop))
254: (if cmd (funcall cmd)
255: (texinfo-unsupported)))
256:
257: (defun texinfo-parse-line-arg ()
258: (goto-char texinfo-command-end)
259: (let ((start (point)))
260: (cond ((looking-at " ")
261: (skip-chars-forward " ")
262: (setq start (point))
263: (end-of-line)
264: (setq texinfo-command-end (1+ (point))))
265: ((looking-at "{")
266: (setq start (1+ (point)))
267: (forward-list 1)
268: (setq texinfo-command-end (point))
269: (forward-char -1))
270: (t
271: (error "Invalid texinfo command arg format")))
272: (prog1 (buffer-substring start (point))
273: (if (eolp) (forward-char 1)))))
274:
275: (defun texinfo-parse-expanded-arg ()
276: (goto-char texinfo-command-end)
277: (let ((start (point))
278: marker)
279: (cond ((looking-at " ")
280: (skip-chars-forward " ")
281: (setq start (point))
282: (end-of-line)
283: (setq texinfo-command-end (1+ (point))))
284: ((looking-at "{")
285: (setq start (1+ (point)))
286: (forward-list 1)
287: (setq texinfo-command-end (point))
288: (forward-char -1))
289: (t
290: (error "Invalid texinfo command arg format")))
291: (setq marker (move-marker (make-marker) texinfo-command-end))
292: (texinfo-format-expand-region start (point))
293: (setq texinfo-command-end (marker-position marker))
294: (move-marker marker nil)
295: (prog1 (buffer-substring start (point))
296: (if (eolp) (forward-char 1)))))
297:
298: (defun texinfo-format-expand-region (start end)
299: (save-restriction
300: (narrow-to-region start end)
301: (let (texinfo-command-start
302: texinfo-command-end
303: texinfo-command-name
304: texinfo-stack)
305: (texinfo-format-scan))
306: (goto-char (point-max))))
307:
308: (defun texinfo-parse-arg-discard ()
309: (prog1 (texinfo-parse-line-arg)
310: (texinfo-discard-command)))
311:
312: (defun texinfo-discard-command ()
313: (delete-region texinfo-command-start texinfo-command-end))
314:
315: (defun texinfo-format-parse-line-args ()
316: (let ((start (1- (point)))
317: next beg end
318: args)
319: (skip-chars-forward " ")
320: (while (not (eolp))
321: (setq beg (point))
322: (re-search-forward "[\n,]")
323: (setq next (point))
324: (if (bolp) (setq next (1- next)))
325: (forward-char -1)
326: (skip-chars-backward " ")
327: (setq end (point))
328: (setq args (cons (if (> end beg) (buffer-substring beg end))
329: args))
330: (goto-char next)
331: (skip-chars-forward " "))
332: (if (eolp) (forward-char 1))
333: (setq texinfo-command-end (point))
334: (nreverse args)))
335:
336: (defun texinfo-format-parse-args ()
337: (let ((start (1- (point)))
338: next beg end
339: args)
340: (search-forward "{")
341: (while (/= (preceding-char) ?\})
342: (skip-chars-forward " \t\n")
343: (setq beg (point))
344: (re-search-forward "[},]")
345: (setq next (point))
346: (forward-char -1)
347: (skip-chars-backward " \t\n")
348: (setq end (point))
349: (cond ((< beg end)
350: (goto-char beg)
351: (while (search-forward "\n" end t)
352: (replace-match " "))))
353: (setq args (cons (if (> end beg) (buffer-substring beg end))
354: args))
355: (goto-char next))
356: (if (eolp) (forward-char 1))
357: (setq texinfo-command-end (point))
358: (nreverse args)))
359:
360: (defun texinfo-format-parse-defun-args ()
361: (goto-char texinfo-command-end)
362: (let ((start (point)))
363: (end-of-line)
364: (setq texinfo-command-end (1+ (point)))
365: (let ((marker (move-marker (make-marker) texinfo-command-end)))
366: (texinfo-format-expand-region start (point))
367: (setq texinfo-command-end (marker-position marker))
368: (move-marker marker nil))
369: (goto-char start)
370: (let ((args '())
371: beg end)
372: (skip-chars-forward " ")
373: (while (not (eolp))
374: (cond ((looking-at "{")
375: (setq beg (1+ (point)))
376: (forward-list 1)
377: (setq end (1- (point))))
378: (t
379: (setq beg (point))
380: (re-search-forward "[\n ]")
381: (forward-char -1)
382: (setq end (point))))
383: (setq args (cons (buffer-substring beg end) args))
384: (skip-chars-forward " "))
385: (forward-char 1)
386: (nreverse args))))
387:
388: (put 'setfilename 'texinfo-format 'texinfo-format-setfilename)
389: (defun texinfo-format-setfilename ()
390: (let ((arg (texinfo-parse-arg-discard)))
391: (setq texinfo-format-filename
392: (file-name-nondirectory (expand-file-name arg)))
393: (insert "Info file: "
394: texinfo-format-filename ", -*-Text-*-\n"
395: "produced by texinfo-format-buffer\nfrom "
396: (if (buffer-file-name input-buffer)
397: (concat "file: "
398: (file-name-sans-versions
399: (file-name-nondirectory
400: (buffer-file-name input-buffer))))
401: (concat "buffer " (buffer-name input-buffer)))
402: "\n\n")))
403:
404: (put 'node 'texinfo-format 'texinfo-format-node)
405: (defun texinfo-format-node ()
406: (let* ((args (texinfo-format-parse-line-args))
407: (name (nth 0 args))
408: (next (nth 1 args))
409: (prev (nth 2 args))
410: (up (nth 3 args)))
411: (texinfo-discard-command)
412: (setq texinfo-last-node name)
413: (let ((tem (downcase name)))
414: (if (assoc tem texinfo-node-names)
415: (error "Duplicate node name: %s" name)
416: (setq texinfo-node-names (cons tem texinfo-node-names))))
417: (or (bolp)
418: (insert ?\n))
419: (insert "\^_\nFile: " texinfo-format-filename
420: " Node: " name)
421: (if prev
422: (insert ", Prev: " prev))
423: (if up
424: (insert ", Up: " up))
425: (if next
426: (insert ", Next: " next))
427: (insert ?\n)))
428:
429: (put 'menu 'texinfo-format 'texinfo-format-menu)
430: (defun texinfo-format-menu ()
431: (texinfo-discard-line)
432: (insert "* Menu:\n\n"))
433:
434: (put 'menu 'texinfo-end 'texinfo-discard-command)
435: (defun texinfo-discard-line ()
436: (goto-char texinfo-command-end)
437: (skip-chars-forward " \t")
438: (or (eolp)
439: (error "Extraneous text at end of command line."))
440: (goto-char texinfo-command-start)
441: (or (bolp)
442: (error "Extraneous text at beginning of command line."))
443: (delete-region (point) (progn (forward-line 1) (point))))
444:
445: ; @xref {NODE, FNAME, NAME, FILE, DOCUMENT}
446: ; -> *Note FNAME: (FILE)NODE
447: ; If FILE is missing,
448: ; *Note FNAME: NODE
449: ; If FNAME is empty and NAME is present
450: ; *Note NAME: Node
451: ; If both NAME and FNAME are missing
452: ; *Note NODE::
453: ; texinfo ignores the DOCUMENT argument.
454: ; -> See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
455: ; If FILE is specified, (FILE)NODE is used for xrefs.
456: ; If fifth argument DOCUMENT is specified, produces
457: ; See section <xref to NODE> [NAME, else NODE], page <xref to NODE>
458: ; of DOCUMENT
459: (put 'xref 'texinfo-format 'texinfo-format-xref)
460: (defun texinfo-format-xref ()
461: (let ((args (texinfo-format-parse-args)))
462: (texinfo-discard-command)
463: (insert "*Note ")
464: (let ((fname (or (nth 1 args) (nth 2 args))))
465: (if (null (or fname (nth 3 args)))
466: (insert (car args) "::")
467: (insert (or fname (car args)) ": ")
468: (if (nth 3 args)
469: (insert "(" (nth 3 args) ")"))
470: (insert (car args))))))
471:
472: (put 'pxref 'texinfo-format 'texinfo-format-pxref)
473: (defun texinfo-format-pxref ()
474: (texinfo-format-xref)
475: (or (save-excursion
476: (forward-char -2)
477: (looking-at "::"))
478: (insert ".")))
479:
480: ;@inforef{NODE, FNAME, FILE}
481: ;Like @xref{NODE, FNAME,,FILE} in texinfo.
482: ;In Tex, generates "See Info file FILE, node NODE"
483: (put 'inforef 'texinfo-format 'texinfo-format-inforef)
484: (defun texinfo-format-inforef ()
485: (let ((args (texinfo-format-parse-args)))
486: (texinfo-discard-command)
487: (insert "*Note " (nth 1 args) ": (" (nth 2 args) ")" (car args))))
488:
489: (put 'chapheading 'texinfo-format 'texinfo-format-chapter)
490: (put 'ichapter 'texinfo-format 'texinfo-format-chapter)
491: (put 'chapter 'texinfo-format 'texinfo-format-chapter)
492: (put 'iappendix 'texinfo-format 'texinfo-format-chapter)
493: (put 'appendix 'texinfo-format 'texinfo-format-chapter)
494: (put 'iunnumbered 'texinfo-format 'texinfo-format-chapter)
495: (put 'unnumbered 'texinfo-format 'texinfo-format-chapter)
496: (defun texinfo-format-chapter ()
497: (texinfo-format-chapter-1 ?*))
498:
499: (put 'heading 'texinfo-format 'texinfo-format-section)
500: (put 'isection 'texinfo-format 'texinfo-format-section)
501: (put 'section 'texinfo-format 'texinfo-format-section)
502: (put 'iappendixsection 'texinfo-format 'texinfo-format-section)
503: (put 'appendixsection 'texinfo-format 'texinfo-format-section)
504: (put 'iappendixsec 'texinfo-format 'texinfo-format-section)
505: (put 'appendixsec 'texinfo-format 'texinfo-format-section)
506: (put 'iunnumberedsec 'texinfo-format 'texinfo-format-section)
507: (put 'unnumberedsec 'texinfo-format 'texinfo-format-section)
508: (defun texinfo-format-section ()
509: (texinfo-format-chapter-1 ?=))
510:
511: (put 'subheading 'texinfo-format 'texinfo-format-subsection)
512: (put 'isubsection 'texinfo-format 'texinfo-format-subsection)
513: (put 'subsection 'texinfo-format 'texinfo-format-subsection)
514: (put 'iappendixsubsec 'texinfo-format 'texinfo-format-subsection)
515: (put 'appendixsubsec 'texinfo-format 'texinfo-format-subsection)
516: (put 'iunnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
517: (put 'unnumberedsubsec 'texinfo-format 'texinfo-format-subsection)
518: (defun texinfo-format-subsection ()
519: (texinfo-format-chapter-1 ?-))
520:
521: (put 'subsubheading 'texinfo-format 'texinfo-format-subsubsection)
522: (put 'isubsubsection 'texinfo-format 'texinfo-format-subsubsection)
523: (put 'subsubsection 'texinfo-format 'texinfo-format-subsubsection)
524: (put 'iappendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
525: (put 'appendixsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
526: (put 'iunnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
527: (put 'unnumberedsubsubsec 'texinfo-format 'texinfo-format-subsubsection)
528: (defun texinfo-format-subsubsection ()
529: (texinfo-format-chapter-1 ?.))
530:
531: (defun texinfo-format-chapter-1 (belowchar)
532: (let ((arg (texinfo-parse-arg-discard)))
533: (insert ?\n arg ?\n "@SectionPAD " belowchar ?\n)
534: (forward-line -2)))
535:
536: (put 'SectionPAD 'texinfo-format 'texinfo-format-sectionpad)
537: (defun texinfo-format-sectionpad ()
538: (let ((str (texinfo-parse-arg-discard)))
539: (forward-char -1)
540: (let ((column (current-column)))
541: (forward-char 1)
542: (while (> column 0)
543: (insert str)
544: (setq column (1- column))))
545: (insert ?\n)))
546:
547: (put '\. 'texinfo-format 'texinfo-format-\.)
548: (defun texinfo-format-\. ()
549: (texinfo-discard-command)
550: (insert "."))
551:
552: (put '\: 'texinfo-format 'texinfo-format-\:)
553: (defun texinfo-format-\: ()
554: (texinfo-discard-command))
555:
556: (put 'center 'texinfo-format 'texinfo-format-center)
557: (defun texinfo-format-center ()
558: (texinfo-discard-command)
559: (let ((indent-tabs-mode nil))
560: (center-line)))
561:
562: ;; @itemize pushes (itemize "COMMANDS" STARTPOS) on texinfo-stack.
563: ;; @enumerate pushes (enumerate 0 STARTPOS).
564: ;; @item dispatches to the texinfo-item prop of the first elt of the list.
565: ;; For itemize, this puts in and rescans the COMMANDS.
566: ;; For enumerate, this increments the number and puts it in.
567: ;; In either case, it puts a Backspace at the front of the line
568: ;; which marks it not to be indented later.
569: ;; All other lines get indented by 5 when the @end is reached.
570:
571: (defun texinfo-push-stack (check arg)
572: (setq texinfo-stack
573: (cons (list check arg texinfo-command-start)
574: texinfo-stack)))
575:
576: (defun texinfo-pop-stack (check)
577: (if (null texinfo-stack)
578: (error "Unmatched @end %s" check))
579: (if (not (eq (car (car texinfo-stack)) check))
580: (error "@end %s matches @%s"
581: check (car (car texinfo-stack))))
582: (prog1 (cdr (car texinfo-stack))
583: (setq texinfo-stack (cdr texinfo-stack))))
584:
585: (put 'itemize 'texinfo-format 'texinfo-itemize)
586: (defun texinfo-itemize ()
587: (texinfo-push-stack 'itemize (texinfo-parse-arg-discard))
588: (setq fill-column (- fill-column 5)))
589:
590: (put 'itemize 'texinfo-end 'texinfo-end-itemize)
591: (defun texinfo-end-itemize ()
592: (setq fill-column (+ fill-column 5))
593: (texinfo-discard-command)
594: (let ((stacktop
595: (texinfo-pop-stack 'itemize)))
596: (texinfo-do-itemize (nth 1 stacktop))))
597:
598: (put 'enumerate 'texinfo-format 'texinfo-enumerate)
599: (defun texinfo-enumerate ()
600: (texinfo-push-stack 'enumerate 0)
601: (setq fill-column (- fill-column 5))
602: (texinfo-discard-line))
603:
604: (put 'enumerate 'texinfo-end 'texinfo-end-enumerate)
605: (defun texinfo-end-enumerate ()
606: (setq fill-column (+ fill-column 5))
607: (texinfo-discard-command)
608: (let ((stacktop
609: (texinfo-pop-stack 'enumerate)))
610: (texinfo-do-itemize (nth 1 stacktop))))
611:
612: (put 'table 'texinfo-format 'texinfo-table)
613: (defun texinfo-table ()
614: (texinfo-push-stack 'table (texinfo-parse-arg-discard))
615: (setq fill-column (- fill-column 5)))
616:
617: (put 'ftable 'texinfo-format 'texinfo-ftable)
618: (defun texinfo-ftable ()
619: (texinfo-push-stack 'table "@code")
620: (setq fill-column (- fill-column 5))
621: (texinfo-discard-line))
622:
623: (put 'description 'texinfo-format 'texinfo-description)
624: (defun texinfo-description ()
625: (texinfo-push-stack 'table "@asis")
626: (setq fill-column (- fill-column 5))
627: (texinfo-discard-line))
628:
629: (put 'table 'texinfo-end 'texinfo-end-table)
630: (put 'ftable 'texinfo-end 'texinfo-end-table)
631: (put 'description 'texinfo-end 'texinfo-end-table)
632: (defun texinfo-end-table ()
633: (setq fill-column (+ fill-column 5))
634: (texinfo-discard-command)
635: (let ((stacktop
636: (texinfo-pop-stack 'table)))
637: (texinfo-do-itemize (nth 1 stacktop))))
638:
639: ;; At the @end, indent all the lines within the construct
640: ;; except those marked with backspace. FROM says where
641: ;; construct started.
642: (defun texinfo-do-itemize (from)
643: (save-excursion
644: (while (progn (forward-line -1)
645: (>= (point) from))
646: (if (= (following-char) ?\b)
647: (save-excursion
648: (delete-char 1)
649: (end-of-line)
650: (delete-char 6))
651: (if (not (looking-at "[ \t]*$"))
652: (save-excursion (insert " ")))))))
653:
654: (put 'item 'texinfo-format 'texinfo-item)
655: (put 'itemx 'texinfo-format 'texinfo-item)
656: (defun texinfo-item ()
657: (funcall (get (car (car texinfo-stack)) 'texinfo-item)))
658:
659: (put 'itemize 'texinfo-item 'texinfo-itemize-item)
660: (defun texinfo-itemize-item ()
661: (texinfo-discard-line)
662: (insert "\b " (nth 1 (car texinfo-stack)) " \n")
663: (forward-line -1))
664:
665: (put 'enumerate 'texinfo-item 'texinfo-enumerate-item)
666: (defun texinfo-enumerate-item ()
667: (texinfo-discard-line)
668: (let ((next (1+ (car (cdr (car texinfo-stack))))))
669: (setcar (cdr (car texinfo-stack)) next)
670: (insert ?\b (format "%3d. " next) ?\n))
671: (forward-line -1))
672:
673: (put 'table 'texinfo-item 'texinfo-table-item)
674: (defun texinfo-table-item ()
675: (let ((arg (texinfo-parse-arg-discard))
676: (itemfont (car (cdr (car texinfo-stack)))))
677: (insert ?\b itemfont ?\{ arg "}\n \n"))
678: (forward-line -2))
679:
680: (put 'ifinfo 'texinfo-format 'texinfo-discard-line)
681: (put 'ifinfo 'texinfo-end 'texinfo-discard-command)
682:
683: (put 'iftex 'texinfo-format 'texinfo-format-iftex)
684: (defun texinfo-format-iftex ()
685: (delete-region texinfo-command-start
686: (progn (re-search-forward "@end iftex\n")
687: (point))))
688:
689: (put 'tex 'texinfo-format 'texinfo-format-tex)
690: (defun texinfo-format-tex ()
691: (delete-region texinfo-command-start
692: (progn (re-search-forward "@end tex\n")
693: (point))))
694:
695: (put 'titlepage 'texinfo-format 'texinfo-format-titlepage)
696: (defun texinfo-format-titlepage ()
697: (delete-region texinfo-command-start
698: (progn (search-forward "@end titlepage\n")
699: (point))))
700:
701: (put 'endtitlepage 'texinfo-format 'texinfo-discard-line)
702:
703: (put 'ignore 'texinfo-format 'texinfo-format-ignore)
704: (defun texinfo-format-ignore ()
705: (delete-region texinfo-command-start
706: (progn (search-forward "@end ignore\n")
707: (point))))
708:
709: (put 'endignore 'texinfo-format 'texinfo-discard-line)
710:
711: (put 'var 'texinfo-format 'texinfo-format-var)
712: (defun texinfo-format-var ()
713: (insert (upcase (texinfo-parse-arg-discard)))
714: (goto-char texinfo-command-start))
715:
716: (put 'asis 'texinfo-format 'texinfo-format-noop)
717: (put 'b 'texinfo-format 'texinfo-format-noop)
718: (put 't 'texinfo-format 'texinfo-format-noop)
719: (put 'i 'texinfo-format 'texinfo-format-noop)
720: (put 'r 'texinfo-format 'texinfo-format-noop)
721: (put 'key 'texinfo-format 'texinfo-format-noop)
722: (put 'w 'texinfo-format 'texinfo-format-noop)
723: (defun texinfo-format-noop ()
724: (insert (texinfo-parse-arg-discard))
725: (goto-char texinfo-command-start))
726:
727: (put 'code 'texinfo-format 'texinfo-format-code)
728: (put 'samp 'texinfo-format 'texinfo-format-code)
729: (put 'file 'texinfo-format 'texinfo-format-code)
730: (put 'kbd 'texinfo-format 'texinfo-format-code)
731: (put 'cite 'texinfo-format 'texinfo-format-code)
732: (defun texinfo-format-code ()
733: (insert "`" (texinfo-parse-arg-discard) "'")
734: (goto-char texinfo-command-start))
735:
736: (put 'emph 'texinfo-format 'texinfo-format-emph)
737: (put 'strong 'texinfo-format 'texinfo-format-emph)
738: (defun texinfo-format-emph ()
739: (insert "*" (texinfo-parse-arg-discard) "*")
740: (goto-char texinfo-command-start))
741:
742: (put 'defn 'texinfo-format 'texinfo-format-defn)
743: (put 'dfn 'texinfo-format 'texinfo-format-defn)
744: (defun texinfo-format-defn ()
745: (insert "\"" (texinfo-parse-arg-discard) "\"")
746: (goto-char texinfo-command-start))
747:
748: (put 'bullet 'texinfo-format 'texinfo-format-bullet)
749: (defun texinfo-format-bullet ()
750: (texinfo-discard-command)
751: (insert "*"))
752:
753: (put 'smallexample 'texinfo-format 'texinfo-format-example)
754: (put 'example 'texinfo-format 'texinfo-format-example)
755: (put 'quotation 'texinfo-format 'texinfo-format-example)
756: (put 'lisp 'texinfo-format 'texinfo-format-example)
757: (put 'display 'texinfo-format 'texinfo-format-example)
758: (put 'format 'texinfo-format 'texinfo-format-example)
759: (put 'flushleft 'texinfo-format 'texinfo-format-example)
760: (defun texinfo-format-example ()
761: (texinfo-push-stack 'example nil)
762: (setq fill-column (- fill-column 5))
763: (texinfo-discard-line))
764:
765: (put 'smallexample 'texinfo-end 'texinfo-end-example)
766: (put 'example 'texinfo-end 'texinfo-end-example)
767: (put 'quotation 'texinfo-end 'texinfo-end-example)
768: (put 'lisp 'texinfo-end 'texinfo-end-example)
769: (put 'display 'texinfo-end 'texinfo-end-example)
770: (put 'format 'texinfo-end 'texinfo-end-example)
771: (put 'flushleft 'texinfo-end 'texinfo-end-example)
772: (defun texinfo-end-example ()
773: (setq fill-column (+ fill-column 5))
774: (texinfo-discard-command)
775: (let ((stacktop
776: (texinfo-pop-stack 'example)))
777: (texinfo-do-itemize (nth 1 stacktop))))
778:
779: (put 'exdent 'texinfo-format 'texinfo-format-exdent)
780: (defun texinfo-format-exdent ()
781: (texinfo-discard-command)
782: (delete-region (point)
783: (progn
784: (skip-chars-forward " ")
785: (point)))
786: (insert ?\b)
787: ;; Cancel out the deletion that texinfo-do-itemize
788: ;; is going to do at the end of this line.
789: (save-excursion
790: (end-of-line)
791: (insert "\n ")))
792:
793: (put 'ctrl 'texinfo-format 'texinfo-format-ctrl)
794: (defun texinfo-format-ctrl ()
795: (let ((str (texinfo-parse-arg-discard)))
796: (insert (logand 31 (aref str 0)))))
797:
798: (put 'TeX 'texinfo-format 'texinfo-format-TeX)
799: (defun texinfo-format-TeX ()
800: (texinfo-parse-arg-discard)
801: (insert "TeX"))
802:
803: (put 'copyright 'texinfo-format 'texinfo-format-copyright)
804: (defun texinfo-format-copyright ()
805: (texinfo-parse-arg-discard)
806: (insert "(C)"))
807:
808: (put 'minus 'texinfo-format 'texinfo-format-minus)
809: (defun texinfo-format-minus ()
810: (texinfo-parse-arg-discard)
811: (insert "-"))
812:
813: (put 'dots 'texinfo-format 'texinfo-format-dots)
814: (defun texinfo-format-dots ()
815: (texinfo-parse-arg-discard)
816: (insert "..."))
817:
818: (put 'refill 'texinfo-format 'texinfo-format-refill)
819: (defun texinfo-format-refill ()
820: (texinfo-discard-command)
821: (fill-paragraph nil))
822:
823: ;; Index generation
824:
825: (put 'vindex 'texinfo-format 'texinfo-format-vindex)
826: (defun texinfo-format-vindex ()
827: (texinfo-index 'texinfo-vindex))
828:
829: (put 'cindex 'texinfo-format 'texinfo-format-cindex)
830: (defun texinfo-format-cindex ()
831: (texinfo-index 'texinfo-cindex))
832:
833: (put 'findex 'texinfo-format 'texinfo-format-findex)
834: (defun texinfo-format-findex ()
835: (texinfo-index 'texinfo-findex))
836:
837: (put 'pindex 'texinfo-format 'texinfo-format-pindex)
838: (defun texinfo-format-pindex ()
839: (texinfo-index 'texinfo-pindex))
840:
841: (put 'tindex 'texinfo-format 'texinfo-format-tindex)
842: (defun texinfo-format-tindex ()
843: (texinfo-index 'texinfo-tindex))
844:
845: (put 'kindex 'texinfo-format 'texinfo-format-kindex)
846: (defun texinfo-format-kindex ()
847: (texinfo-index 'texinfo-kindex))
848:
849: (defun texinfo-index (indexvar)
850: (let ((arg (texinfo-parse-expanded-arg)))
851: (texinfo-discard-command)
852: (set indexvar
853: (cons (list arg texinfo-last-node)
854: (symbol-value indexvar)))))
855:
856: (defconst texinfo-indexvar-alist
857: '(("cp" . texinfo-cindex)
858: ("fn" . texinfo-findex)
859: ("vr" . texinfo-vindex)
860: ("tp" . texinfo-tindex)
861: ("pg" . texinfo-pindex)
862: ("ky" . texinfo-kindex)))
863:
864: (put 'printindex 'texinfo-format 'texinfo-format-printindex)
865: (defun texinfo-format-printindex ()
866: (let ((indexelts (symbol-value
867: (cdr (assoc (texinfo-parse-arg-discard)
868: texinfo-indexvar-alist))))
869: opoint)
870: (insert "\n* Menu:\n\n")
871: (setq opoint (point))
872: (texinfo-print-index nil indexelts)
873: (if (eq system-type 'vax-vms)
874: (texinfo-sort-region opoint (point))
875: (shell-command-on-region opoint (point) "sort -fd" 1))))
876:
877: (defun texinfo-print-index (file indexelts)
878: (while indexelts
879: (if (stringp (car (car indexelts)))
880: (insert "* " (car (car indexelts))
881: ": " (if file (concat "(" file ")") "")
882: (nth 1 (car indexelts)) ".\n")
883: ;; index entries from @include'd file
884: (texinfo-print-index (nth 1 (car indexelts))
885: (nth 2 (car indexelts))))
886: (setq indexelts (cdr indexelts))))
887:
888:
889: ;;;; Lisp Definitions
890:
891: (defun texinfo-format-defun ()
892: (texinfo-push-stack 'defun nil)
893: (setq fill-column (- fill-column 5))
894: (texinfo-format-defun-1 t))
895:
896: (defun texinfo-format-defunx ()
897: (texinfo-format-defun-1 nil))
898:
899: (defun texinfo-format-defun-1 (first-p)
900: (let ((args (texinfo-format-parse-defun-args))
901: (type (get texinfo-command-name 'texinfo-defun-type)))
902: (texinfo-discard-command)
903: (if (eq type 'arg)
904: (progn (setq type (car args))
905: (setq args (cdr args))))
906: (let ((formatter (get texinfo-command-name 'texinfo-defun-format-type)))
907: (if formatter
908: (setq type (funcall formatter type args))))
909: ;; Delete extra newline inserted after previous header line.
910: (if (not first-p)
911: (delete-char -1))
912: (insert "* " type ": " (car args))
913: (let ((args (cdr args)))
914: (while args
915: (insert " "
916: (if (= ?& (aref (car args) 0))
917: (car args)
918: (upcase (car args))))
919: (setq args (cdr args))))
920: ;; Insert extra newline so that paragraph filling does not mess
921: ;; with header line.
922: (insert "\n\n")
923: (rplaca (cdr (cdr (car texinfo-stack))) (point))
924: (let ((indexvar (get texinfo-command-name 'texinfo-defun-index))
925: (formatter (get texinfo-command-name 'texinfo-defun-format-index)))
926: (set indexvar
927: (cons (list (if formatter (funcall formatter type args) (car args))
928: texinfo-last-node)
929: (symbol-value indexvar))))))
930:
931: (defun texinfo-end-defun ()
932: (setq fill-column (+ fill-column 5))
933: (texinfo-discard-command)
934: (let ((start (nth 1 (texinfo-pop-stack 'defun))))
935: (texinfo-do-itemize start)
936: ;; Delete extra newline inserted after header.
937: (save-excursion
938: (goto-char start)
939: (delete-char -1))))
940:
941: (put 'deffn 'texinfo-format 'texinfo-format-defun)
942: (put 'deffnx 'texinfo-format 'texinfo-format-defunx)
943: (put 'deffn 'texinfo-end 'texinfo-end-defun)
944: (put 'deffn 'texinfo-defun-type 'arg)
945: (put 'deffnx 'texinfo-defun-type 'arg)
946: (put 'deffn 'texinfo-defun-index 'texinfo-findex)
947: (put 'deffnx 'texinfo-defun-index 'texinfo-findex)
948:
949: (put 'defun 'texinfo-format 'texinfo-format-defun)
950: (put 'defunx 'texinfo-format 'texinfo-format-defunx)
951: (put 'defun 'texinfo-end 'texinfo-end-defun)
952: (put 'defun 'texinfo-defun-type "Function")
953: (put 'defunx 'texinfo-defun-type "Function")
954: (put 'defun 'texinfo-defun-index 'texinfo-findex)
955: (put 'defunx 'texinfo-defun-index 'texinfo-findex)
956:
957: (put 'defmac 'texinfo-format 'texinfo-format-defun)
958: (put 'defmacx 'texinfo-format 'texinfo-format-defunx)
959: (put 'defmac 'texinfo-end 'texinfo-end-defun)
960: (put 'defmac 'texinfo-defun-type "Macro")
961: (put 'defmacx 'texinfo-defun-type "Macro")
962: (put 'defmac 'texinfo-defun-index 'texinfo-findex)
963: (put 'defmacx 'texinfo-defun-index 'texinfo-findex)
964:
965: (put 'defspec 'texinfo-format 'texinfo-format-defun)
966: (put 'defspecx 'texinfo-format 'texinfo-format-defunx)
967: (put 'defspec 'texinfo-end 'texinfo-end-defun)
968: (put 'defspec 'texinfo-defun-type "Special form")
969: (put 'defspecx 'texinfo-defun-type "Special form")
970: (put 'defspec 'texinfo-defun-index 'texinfo-findex)
971: (put 'defspecx 'texinfo-defun-index 'texinfo-findex)
972:
973: (put 'defvr 'texinfo-format 'texinfo-format-defun)
974: (put 'defvrx 'texinfo-format 'texinfo-format-defunx)
975: (put 'defvr 'texinfo-end 'texinfo-end-defun)
976: (put 'defvr 'texinfo-defun-type 'arg)
977: (put 'defvrx 'texinfo-defun-type 'arg)
978: (put 'defvr 'texinfo-defun-index 'texinfo-vindex)
979: (put 'defvrx 'texinfo-defun-index 'texinfo-vindex)
980:
981: (put 'defvar 'texinfo-format 'texinfo-format-defun)
982: (put 'defvarx 'texinfo-format 'texinfo-format-defunx)
983: (put 'defvar 'texinfo-end 'texinfo-end-defun)
984: (put 'defvar 'texinfo-defun-type "Variable")
985: (put 'defvarx 'texinfo-defun-type "Variable")
986: (put 'defvar 'texinfo-defun-index 'texinfo-vindex)
987: (put 'defvarx 'texinfo-defun-index 'texinfo-vindex)
988:
989: (put 'defopt 'texinfo-format 'texinfo-format-defun)
990: (put 'defoptx 'texinfo-format 'texinfo-format-defunx)
991: (put 'defopt 'texinfo-end 'texinfo-end-defun)
992: (put 'defopt 'texinfo-defun-type "User Option")
993: (put 'defoptx 'texinfo-defun-type "User Option")
994: (put 'defopt 'texinfo-defun-index 'texinfo-vindex)
995: (put 'defoptx 'texinfo-defun-index 'texinfo-vindex)
996:
997: (put 'deftp 'texinfo-format 'texinfo-format-defun)
998: (put 'deftpx 'texinfo-format 'texinfo-format-defunx)
999: (put 'deftp 'texinfo-end 'texinfo-end-defun)
1000: (put 'deftp 'texinfo-defun-type 'arg)
1001: (put 'deftpx 'texinfo-defun-type 'arg)
1002: (put 'deftp 'texinfo-defun-index 'texinfo-tindex)
1003: (put 'deftpx 'texinfo-defun-index 'texinfo-tindex)
1004:
1005: ;;; Object-oriented stuff is a little hairier.
1006:
1007: (put 'defop 'texinfo-format 'texinfo-format-defun)
1008: (put 'defopx 'texinfo-format 'texinfo-format-defunx)
1009: (put 'defop 'texinfo-end 'texinfo-end-defun)
1010: (put 'defop 'texinfo-defun-type 'arg)
1011: (put 'defopx 'texinfo-defun-type 'arg)
1012: (put 'defop 'texinfo-defun-format-type 'texinfo-format-defop-type)
1013: (put 'defopx 'texinfo-defun-format-type 'texinfo-format-defop-type)
1014: (put 'defop 'texinfo-defun-index 'texinfo-findex)
1015: (put 'defopx 'texinfo-defun-index 'texinfo-findex)
1016: (put 'defop 'texinfo-defun-format-index 'texinfo-format-defop-index)
1017: (put 'defopx 'texinfo-defun-format-index 'texinfo-format-defop-index)
1018:
1019: (put 'defmethod 'texinfo-format 'texinfo-format-defun)
1020: (put 'defmethodx 'texinfo-format 'texinfo-format-defunx)
1021: (put 'defmethod 'texinfo-end 'texinfo-end-defun)
1022: (put 'defmethod 'texinfo-defun-type "Operation")
1023: (put 'defmethodx 'texinfo-defun-type "Operation")
1024: (put 'defmethod 'texinfo-defun-format-type 'texinfo-format-defop-type)
1025: (put 'defmethodx 'texinfo-defun-format-type 'texinfo-format-defop-type)
1026: (put 'defmethod 'texinfo-defun-index 'texinfo-findex)
1027: (put 'defmethodx 'texinfo-defun-index 'texinfo-findex)
1028: (put 'defmethod 'texinfo-defun-format-index 'texinfo-format-defop-index)
1029: (put 'defmethodx 'texinfo-defun-format-index 'texinfo-format-defop-index)
1030:
1031: (defun texinfo-format-defop-type (type args)
1032: (format "%s on %s" type (car args)))
1033:
1034: (defun texinfo-format-defop-index (type args)
1035: (format "%s on %s" (car (cdr args)) (car args)))
1036:
1037: (put 'defcv 'texinfo-format 'texinfo-format-defun)
1038: (put 'defcvx 'texinfo-format 'texinfo-format-defunx)
1039: (put 'defcv 'texinfo-end 'texinfo-end-defun)
1040: (put 'defcv 'texinfo-defun-type 'arg)
1041: (put 'defcvx 'texinfo-defun-type 'arg)
1042: (put 'defcv 'texinfo-defun-format-type 'texinfo-format-defcv-type)
1043: (put 'defcvx 'texinfo-defun-format-type 'texinfo-format-defcv-type)
1044: (put 'defcv 'texinfo-defun-index 'texinfo-vindex)
1045: (put 'defcvx 'texinfo-defun-index 'texinfo-vindex)
1046: (put 'defcv 'texinfo-defun-format-index 'texinfo-format-defcv-index)
1047: (put 'defcvx 'texinfo-defun-format-index 'texinfo-format-defcv-index)
1048:
1049: (put 'defivar 'texinfo-format 'texinfo-format-defun)
1050: (put 'defivarx 'texinfo-format 'texinfo-format-defunx)
1051: (put 'defivar 'texinfo-end 'texinfo-end-defun)
1052: (put 'defivar 'texinfo-defun-type "Instance variable")
1053: (put 'defivarx 'texinfo-defun-type "Instance variable")
1054: (put 'defivar 'texinfo-defun-format-type 'texinfo-format-defcv-type)
1055: (put 'defivarx 'texinfo-defun-format-type 'texinfo-format-defcv-type)
1056: (put 'defivar 'texinfo-defun-index 'texinfo-vindex)
1057: (put 'defivarx 'texinfo-defun-index 'texinfo-vindex)
1058: (put 'defivar 'texinfo-defun-format-index 'texinfo-format-defcv-index)
1059: (put 'defivarx 'texinfo-defun-format-index 'texinfo-format-defcv-index)
1060:
1061: (defun texinfo-format-defcv-type (type args)
1062: (format "%s of %s" type (car args)))
1063:
1064: (defun texinfo-format-defcv-index (type args)
1065: (format "%s of %s" (car (cdr args)) (car args)))
1066:
1067: ;; process included files
1068: (put 'include 'texinfo-format 'texinfo-format-include)
1069: (defun texinfo-format-include ()
1070: (let ((filename (texinfo-parse-arg-discard))
1071: (default-directory input-directory)
1072: subindex)
1073: (setq subindex
1074: (save-excursion
1075: (progn (find-file
1076: (cond ((file-readable-p (concat filename ".texinfo"))
1077: (concat filename ".texinfo"))
1078: ((file-readable-p (concat filename ".tex"))
1079: (concat filename ".tex"))
1080: ((file-readable-p filename)
1081: filename)
1082: (t (error "@include'd file %s not found"
1083: filename))))
1084: (texinfo-format-buffer-1))))
1085: (texinfo-subindex 'texinfo-vindex (car subindex) (nth 1 subindex))
1086: (texinfo-subindex 'texinfo-findex (car subindex) (nth 2 subindex))
1087: (texinfo-subindex 'texinfo-cindex (car subindex) (nth 3 subindex))
1088: (texinfo-subindex 'texinfo-pindex (car subindex) (nth 4 subindex))
1089: (texinfo-subindex 'texinfo-tindex (car subindex) (nth 5 subindex))
1090: (texinfo-subindex 'texinfo-kindex (car subindex) (nth 6 subindex))))
1091:
1092: (defun texinfo-subindex (indexvar file content)
1093: (set indexvar (cons (list 'recurse file content)
1094: (symbol-value indexvar))))
1095:
1096:
1097: ;; Lots of bolio constructs do nothing in texinfo.
1098:
1099: (put 'page 'texinfo-format 'texinfo-discard-line-with-args)
1100: (put 'c 'texinfo-format 'texinfo-discard-line-with-args)
1101: (put 'comment 'texinfo-format 'texinfo-discard-line-with-args)
1102: (put 'setchapternewpage 'texinfo-format 'texinfo-discard-line-with-args)
1103: (put 'contents 'texinfo-format 'texinfo-discard-line-with-args)
1104: (put 'summarycontents 'texinfo-format 'texinfo-discard-line-with-args)
1105: (put 'nopara 'texinfo-format 'texinfo-discard-line-with-args)
1106: (put 'noindent 'texinfo-format 'texinfo-discard-line-with-args)
1107: (put 'setx 'texinfo-format 'texinfo-discard-line-with-args)
1108: (put 'setq 'texinfo-format 'texinfo-discard-line-with-args)
1109: (put 'settitle 'texinfo-format 'texinfo-discard-line-with-args)
1110: (put 'defindex 'texinfo-format 'texinfo-discard-line-with-args)
1111: (put 'synindex 'texinfo-format 'texinfo-discard-line-with-args)
1112: (put 'hsize 'texinfo-format 'texinfo-discard-line-with-args)
1113: (put 'parindent 'texinfo-format 'texinfo-discard-line-with-args)
1114: (put 'lispnarrowing 'texinfo-format 'texinfo-discard-line-with-args)
1115: (put 'itemindent 'texinfo-format 'texinfo-discard-line-with-args)
1116: (put 'headings 'texinfo-format 'texinfo-discard-line-with-args)
1117: (put 'group 'texinfo-format 'texinfo-discard-line-with-args)
1118: (put 'group 'texinfo-end 'texinfo-discard-line-with-args)
1119: (put 'bye 'texinfo-format 'texinfo-discard-line)
1120: (put 'smallbook 'texinfo-format 'texinfo-discard-line)
1121:
1122: (defun texinfo-discard-line-with-args ()
1123: (goto-char texinfo-command-start)
1124: (delete-region (point) (progn (forward-line 1) (point))))
1125:
1126: ;; Sort an index which is in the current buffer between START and END.
1127: ;; Used on VMS, where the `sort' utility is not available.
1128: (defun texinfo-sort-region (start end)
1129: (require 'sort)
1130: (save-restriction
1131: (narrow-to-region start end)
1132: (sort-subr nil 'forward-line 'end-of-line 'texinfo-sort-startkeyfun)))
1133:
1134: ;; Subroutine for sorting an index.
1135: ;; At start of a line, return a string to sort the line under.
1136: (defun texinfo-sort-startkeyfun ()
1137: (let ((line
1138: (buffer-substring (point) (save-excursion (end-of-line) (point)))))
1139: ;; Canonicalize whitespace and eliminate funny chars.
1140: (while (string-match "[ \t][ \t]+\\|[^a-z0-9 ]+" line)
1141: (setq line (concat (substring line 0 (match-beginning 0))
1142: " "
1143: (substring line (match-end 0) (length line)))))
1144: line))
1145:
1146: ;; Some cannot be handled
1147:
1148: (defun texinfo-unsupported ()
1149: (error "%s is not handled by texinfo"
1150: (buffer-substring texinfo-command-start texinfo-command-end)))
1151:
1152: (defun batch-texinfo-format ()
1153: "Runs texinfo-format-buffer on the files remaining on the command line.
1154: Must be used only with -batch, and kills emacs on completion.
1155: Each file will be processed even if an error occurred previously.
1156: For example, invoke
1157: \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"."
1158: (if (not noninteractive)
1159: (error "batch-texinfo-format may only be used -batch."))
1160: (let ((version-control t)
1161: (auto-save-default nil)
1162: (find-file-run-dired nil)
1163: (kept-old-versions 259259)
1164: (kept-new-versions 259259))
1165: (let ((error 0)
1166: file
1167: (files ()))
1168: (while command-line-args-left
1169: (setq file (expand-file-name (car command-line-args-left)))
1170: (cond ((not (file-exists-p file))
1171: (message ">> %s does not exist!" file)
1172: (setq error 1
1173: command-line-args-left (cdr command-line-args-left)))
1174: ((file-directory-p file)
1175: (setq command-line-args-left
1176: (nconc (directory-files file)
1177: (cdr command-line-args-left))))
1178: (t
1179: (setq files (cons file files)
1180: command-line-args-left (cdr command-line-args-left)))))
1181: (while files
1182: (setq file (car files)
1183: files (cdr files))
1184: (condition-case err
1185: (progn
1186: (if buffer-file-name (kill-buffer (current-buffer)))
1187: (find-file file)
1188: (buffer-flush-undo (current-buffer))
1189: (set-buffer-modified-p nil)
1190: (texinfo-mode)
1191: (message "texinfo formatting %s..." file)
1192: (texinfo-format-buffer nil)
1193: (if (buffer-modified-p)
1194: (progn (message "Saving modified %s" (buffer-file-name))
1195: (save-buffer))))
1196: (error
1197: (message ">> Error: %s" (prin1-to-string err))
1198: (message ">> point at")
1199: (let ((s (buffer-substring (point)
1200: (min (+ (point) 100)
1201: (point-max))))
1202: (tem 0))
1203: (while (setq tem (string-match "\n+" s tem))
1204: (setq s (concat (substring s 0 (match-beginning 0))
1205: "\n>> "
1206: (substring s (match-end 0)))
1207: tem (1+ tem)))
1208: (message ">> %s" s)))
1209: (setq error 1)))
1210: (kill-emacs error))))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.