;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Tue Feb 23 08:31:36 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/informat.el ;;; emacs version 19.0.500. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote info)) (fset 'Info-tagify #[nil " !\"edd TU`Ɏ eb#.!#h!`!#d!!\"DB)7db!#`!!`\")dbc&`\"!@@#@A@p\"cAc,- !\"" [message "Tagifying %s ..." file-name-nondirectory buffer-file-name buffer-size opoint nomax omax omin ((byte-code "b\n  T d^\"" [opoint narrow-to-region omin nomax buffer-size omax] 4)) widen search-forward "\nIndirect:\n" nil t "Cannot tagify split info file" "Node:[ ]*\\([^,\n ]*\\)[, \n]" list case-fold-search regexp "\n" forward-line 1 beg re-search-backward buffer-substring match-beginning match-end -8 buffer-read-only "\nEnd tag table\n" end search-backward "\nTag table:\n" 0 delete-region " \nTag table:\n" move-marker Info-tag-table-marker nreverse insert "Node: " 127 princ 10 "Tagifying %s ... done"] 5 "\ Create or update Info-file tag table in current buffer." nil]) (fset 'Info-split #[nil " W !eb!!` !db!#A!!!O!!!e`\"eb`TdW`\\d^b#\\!\"PDBce`\"P#`S`\"!`Z\\`\"T`)b@A@@@\"#Abc!c." [buffer-size 70000 error "This is too small to be worth splitting" search-forward "" forward-char -1 0 nil 1 t file-name-sans-versions buffer-file-name filename case-fold-search subfile-number subfiles chars-deleted start forward-line -8 buffer-read-only "\nEnd tag table\n" "Tag table required; use M-x Info-tagify" search-backward "\nTag table:\n" looking-at "\nTag table:\n" "Tag table is just a skeleton; use M-x Info-tagify" narrow-to-region 50000 move file-name-nondirectory format "-%d" "\n" write-region delete-region insert ": %d" "\nIndirect:\n" "\nTag Table:\n" "(Indirect)\n"] 8 "\ Split an info file into an indirect file plus bounded-size subfiles. Each subfile will be up to 50,000 characters plus one node. To use this command, first visit a large Info file that has a tag table. The buffer is modified into a (small) indirect info file which should be saved in place of the original visited file. The subfiles are written in the same directory the original file is in, with names generated by appending `-' and a number to the original file name. The indirect file still functions as an Info file, but it contains just the tag table and a directory of subfiles." nil]) (fset 'Info-validate #[nil " eb#p!\"ebÉ\n   #!`! #!!b!`\"!\"oE\nB\n #!b !EB)))eb#!`É!\"! ##`\"!!b!`\"!\" #D!!D!\"D!\"A@\"\"9\n*5*@A@\",*@@!\",*@\n\"\n*A* )D!\"E\nB\n #S! #b!##`!`)\"P \"jeb#!\\b!`!`)\"P!\")+ ? \n c\nU!\n@@!@!\n@A@*AB*\"*!O!C!*!)D\n@8GE!D\n@8*AB*\"A*!O!C!F*!)F \nA\n _G!}H!uqIp!)JK!." [widen search-forward "\nTag table:\n(Indirect)\n" nil t error "Don't yet know how to validate indirect info files: \"%s\"" buffer-name (("*")) "Node:[ ]*\\([^,\n ]*\\)[, \n]" lossages tags-losing case-fold-search regexp allnodes "\n" forward-line 1 beg re-search-backward downcase buffer-substring match-beginning match-end skip-chars-backward " " name assoc "Duplicate node-name" end-of-line "prev[ious]*:" 0 Info-following-node-name next thisnode move narrow-to-region search-backward "next:" Info-validate-node-name "invalid Next" equal tem "should have Previous" delq "invalid Previous" "up:" "invalid Up" re-search-forward "\n* Menu:" "\n\\* " "invalid menu item " skip-chars-forward "^:" Info-extract-menu-node-name "\\*note[ \n]*[^: ]*:" 5 " \n" "invalid reference " "Bad format cross-reference" Info-validate-tags-table " *problems in info file*" princ "In node \"" "\", " string-match "\n" "..." 2 ": " terpri "\nTags table must be recomputed\n" get-buffer kill-buffer message "File appears valid"] 7 "\ Check current buffer for validity as an Info file. Check that every node pointer points to an existing node." nil]) (byte-code "MM" [Info-validate-node-name #[(kind &optional name) " !b!gU `!!`\"J!GV7HUJ \"J EB" [name match-end 0 skip-chars-forward " " 40 buffer-substring "^, \n" skip-chars-backward " " downcase assoc allnodes thisnode kind lossages] 5] Info-validate-tags-table #[nil "eb# Çō?" [search-forward "\nEnd tag table\n" nil t losing (byte-code "!!!S Cb@@\":@@Q\n#:\"ATb!!!\"! \"!bAA@p!ZV[WH\"H!+!\"LJ" [match-beginning 0 end search-backward "\nTag table:\n" match-end start nil tem allnodes equal "*" search-forward "Node: " "" t throw losing x looking-at ".*Node: \\(.*\\)\\([0-9]+\\)$" downcase buffer-substring 1 assoc 1000 2 read y forward-line "End tag table\n" z] 6)] 4]] 2) (fset 'batch-info-validate #[nil "!ĉʼn \nĉ  i@!  !C \"A! !Y !A\"!  B A$  @  A ڏ)i !." [noninteractive error "batch-info-validate may only be used -batch." t nil 259259 kept-new-versions kept-old-versions find-file-run-dired auto-save-default version-control 0 files file command-line-args-left expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p nconc directory-files lose err (byte-code "p! !p!! db#- \">dW; \"> ) \"!S! !}! \"qed\"!)!)  \" Ƈ" [buffer-file-name kill-buffer find-file file buffer-disable-undo set-buffer-modified-p nil fundamental-mode case-fold-search search-backward "\n \nTag table:\n" t message "%s already tagified" 30000 "%s too small to bother tagifying" Info-tagify " *problems in info file*" loss-name "Checking validity of info file %s..." get-buffer Info-validate "----------------------------------------------------------------------" ">> PROBLEMS IN INFO FILE %s" princ buffer-substring 1 error lose buffer-modified-p "Saving modified %s" save-buffer] 4) ((error (byte-code " !\"" [message ">> Error: %s" prin1-to-string err] 4))) kill-emacs] 6 "\ Runs `Info-validate' on the files remaining on the command line. Must be used only with -batch, and kills Emacs on completion. Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""])