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