;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require psgml psgml-parse psgml-edit psgml-dtd] 2) #@2  (autoload 'sgml-translate-model "psgml-dtd" '(#$ . 525) nil) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [sgml-mode-map define-key "," sgml-goto-cache "" sgml-dump-tree "." sgml-shortref-identify] 4) (defalias 'sgml-this-element #[0 "\300`!\301!\207" [sgml-find-element-of sgml-dump-rec] 3 nil nil]) (defalias 'sgml-goto-cache #[0 "\305! >\204\306\307\310D\"\210\311H\305! >\204\"\306\307\310D\"\210\312H\313`!\210\314\315\316\f!\"\207" [sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-dtd-info sgml-top-tree sgml-current-tree type-of signal wrong-type-argument sgml-pstate 1 2 sgml-goto-start-point message "%s" sgml-dump-node] 4 nil nil]) #@12 (fn ARG) (defalias 'sgml-dump-tree #[257 "\211\203\306 \210r\307\310!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211\317\320!>\204<\321\322\323D\"\210\324H!\325!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only sgml-parse-to-here get-buffer-create "*Dump*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook sgml-dump-rec type-of signal wrong-type-argument sgml-pstate 2 internal-temp-output-buffer-show standard-output sgml-buffer-parse-state cl-struct-sgml-pstate-tags] 9 (#$ . 1221) "P"]) (defalias 'sgml-auto-dump #[0 "\205%\303\304!r q\210\305 \210)\306\307!\n>\204 \310\311\312D\"\210\313H!)\207" [sgml-buffer-parse-state standard-output cl-struct-sgml-pstate-tags get-buffer-create "*Dump*" erase-buffer sgml-dump-rec type-of signal wrong-type-argument sgml-pstate 2] 5]) (defalias 'sgml-start-auto-dump #[0 "\300\301\302\303#\207" [add-hook post-command-hook sgml-auto-dump append] 4 nil nil]) #@13 (fn EPOS) (defalias 'sgml-comepos #[257 "\300!\203\301\302\303!\211@\262\211@\262\304!#\207\301\305\"\207" [sgml-strict-epos-p format "%s:%s" sgml-epos-eref sgml-epos-pos "%s"] 6 (#$ . 2277)]) #@10 (fn U) (defalias 'sgml-dump-node #[257 "\300\301\302\303H\304\"\305!\306!\307H\310H\205\311!\312H\313 \314H!\313\n\310H!\n\315H&\n\207" [format "%s%s start:%s(%s) end:%s(%s) epos:%s/%s net:%s\n" make-string 6 46 sgml-element-gi sgml-element-start 3 2 sgml-tree-end 4 sgml-comepos 1 12] 13 (#$ . 2486)]) #@10 (fn U) (defalias 'sgml-dump-rec #[257 "\211\205\300\301!!\210\302\303H!\210\211\304H\262\202\207" [princ sgml-dump-node sgml-dump-rec 11 10] 4 (#$ . 2812)]) (defalias 'sgml-shortref-identify #[0 "\302`!\210`=\303 \"\304\305#\207" [sgml-rs-ignore-pos sgml-current-shortmap sgml-find-context-of sgml-deref-shortmap message "%s (%s)"] 6 nil nil]) #@18 (fn TABLE MAP) (defalias 'sgml-lookup-shortref-name #[514 "\300A\"@\207" [rassq] 5 (#$ . 3175)]) (defalias 'sgml-show-current-map #[0 "\302`!\210\303\304H \"\305\306\206\307\"\207" [sgml-dtd-info sgml-current-shortmap sgml-find-context-of sgml-lookup-shortref-name 4 message "Current map: %s" "#EMPTY"] 4 nil nil]) (byte-code "\303\304\305\211\207" [edebug-print-level edebug-print-length edebug-print-circle 3 5 nil] 2) #@22 (fn &optional DTD) (defalias 'sgml-dump-dtd #[256 "\211\204\306! >\204\307\310\311D\"\210\312H\262\nr\313\314!q\210p\315 \210\316\211\317\211\317\320 \210\321\322!\210+\211\323\324\325\326H\"!\210\327\330\312H\"\210\316\331!\210)\207" [sgml-buffer-parse-state cl-struct-sgml-pstate-tags default-directory buffer-read-only buffer-file-name buffer-undo-list type-of signal wrong-type-argument sgml-pstate 1 get-buffer-create "*DTD dump*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "Dependencies: %S\n" 6 mapatoms #[257 "\300!\207" [sgml-dp-element] 3 "\n\n(fn ET)"] internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only standard-output] 9 (#$ . 3613) nil]) #@16 (fn EL-NAME) (defalias 'sgml-dump-element #[257 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211\316\317!!\320!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Element dump*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook sgml-dp-element sgml-lookup-eltype internal-temp-output-buffer-show standard-output] 7 (#$ . 4370) (byte-code "\302\303\304! >\204\305\306\307D\"\210\310H\310H\311\312$C\207" [sgml-buffer-parse-state cl-struct-sgml-pstate-tags completing-read "Element: " type-of signal wrong-type-argument sgml-pstate 1 nil t] 6)]) #@11 (fn EL) (defalias 'sgml-dp-element #[257 "\211\300!\262\203y\301\302\303\304!\262\305!\203\306\202\307\310!\203(\306\202)\307\311JW\262\2038\312\2029\313%!\210\314!\211:\262\203O\315\314!!\210\202X\316\314!!\210\317 \210\301\302\320\321N\322N#!\210\301\302\323\324N\"!\210\301\302\325\326!\"!\210\202\205\301\302\327\304!\262\"!\210\317 \207" [fboundp princ format "Element %s %s %s%s:\n" symbol-name sgml-eltype-stag-optional "O" "-" sgml-eltype-etag-optional 3 " mixed" "" sgml-eltype-model sgml-dp-model prin1 terpri "Exeptions: +%S -%S\n" includes excludes "Attlist: %S\n" attlist "Plist: %S\n" symbol-plist "Undefined element %s\n"] 10 (#$ . 5085)]) #@31 (fn MODEL &optional INDENT) (defalias 'sgml-dp-model #[513 "\211\204\301\262\302!\301\303:\203|@\262\211@@\304=\203=\305\306\307\310\311\"\312@A@!\312@AA!%!\210\202q\305\306\313\310\311\"@@\211\236A\262$!\210\211@A\303:\203o@\262\314\315\\\"\210A\262\202W\266T\262A\262\202\303\266\203)\207" [sgml-code-xlate 0 sgml-translate-model nil normal-state princ format "%s%d: opts=%s reqs=%s\n" make-string 32 sgml-untangel-moves "%s%d: and-node next=%d\n" sgml-dp-model 2] 13 (#$ . 5783)]) #@14 (fn MOVES) (defalias 'sgml-untangel-moves #[257 "\211\301\211:\203\"@\262@A\211\236A\262DB\262A\262\202\211\237\207" [sgml-code-xlate nil] 8 (#$ . 6319)]) (defalias 'sgml-dump-state #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211\316!\317!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*State dump*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook sgml-dp-state internal-temp-output-buffer-show standard-output sgml-current-state] 6 nil nil]) #@31 (fn STATE &optional INDENT) (defalias 'sgml-dp-state #[513 "\211\204\300\262@\301=\203\302\"\207\303\304\305\306\307\"\"!\210\310\211@\262\311\\\"\210\303\304\312\306\307\"\"!\210\310\211A@\262\311\\\"\210\303\304\313\306\307\"\"!\210\211AA\262\314:\203q@\262\302\311\\\"\210\303\304\315\306\307\"\"!\210A\262\202O\314\207" [0 normal-state sgml-dp-model princ format "%sand-state\n" make-string 32 sgml-dp-state 2 "%s--next\n" "%s--dfas\n" nil "%s--\n"] 10 (#$ . 6954)]) (defalias 'sgml-build-autoloads #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211\316\311:\203\211@\262\317\320P!q\210eb\210m\204\202\321\322\311\312#\203\202\323\224\323\225{\311\324\323!\210\325\311w\210g\326=\203``\324\323!\210`{\262\325\311w\210\327\330!\203}\211\204s\331\332\"\210\333\334\335$!\210\266\2027A\262\202$\311\266\202\336!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*autoload*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook ("psgml-parse" "psgml-edit" "psgml-dtd" "psgml-info") find-file-noselect ".el" re-search-forward "^(defun +\\([^ ]+\\)" 1 forward-sexp " \n " 34 looking-at "(interactive" message "No doc for %s" princ format "(autoload '%s \"%s\" %s t)\n" internal-temp-output-buffer-show standard-output] 13 nil nil]) #@14 (fn START) (defalias 'test-sgml #[257 "\306\307 r\310\311!q\210p\312 \210\306\211\307\211\307\313 \210\314\315!\210+\211\316\317\"\262\320!\205|\321\316\322\"!\210\323!\210\3241L\325 \210\326\306!0\202T\321!\210\327 \262\210\330 !\203g\321r q\210\331 )!\210\327 \210\327 \210\332\333!\210\334p!\210T\262\202&\335!\210)\266\202)\207" [sgml-show-warnings default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks nil t get-buffer-create "*Testing psgml*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook format "/u2/src/sgmls-1.1/test/test%03d.sgm" file-exists-p princ "*** File test%03d ***\n" find-file (error) sgml-parse-prolog sgml-parse-until-end-of terpri get-buffer buffer-string sit-for 0 kill-buffer internal-temp-output-buffer-show inhibit-read-only standard-output sgml-log-buffer-name] 9 (#$ . 8399) "p"]) (require 'elp) #@23 (fn &optional FILE) (defalias 'profile-sgml #[256 "\211\204 \300\301!\262\302!\210\303 \210\304 \210\305 \210\306\307\211W\203.\211\310 \210\311\312!\266\211T\262\202\266\313 \207" [expand-file-name "~/work/sigmalink/BBB/config/configspec.xml" find-file sgml-need-dtd sgml-instrument-parser elp-reset-all 5 0 garbage-collect sgml-reparse-buffer sgml-handle-shortref elp-results] 6 (#$ . 9327) nil]) (defalias 'sgml-instrument-parser #[0 "\301\302!\210\303\304 \210\305\306 \207" [elp-function-list require elp nil elp-restore-all (sgml-parse-to sgml-parser-loop sgml-parse-markup-declaration sgml-do-processing-instruction sgml-pop-entity sgml-tree-net-enabled sgml-do-end-tag sgml-do-data sgml-deref-shortmap sgml-handle-shortref sgml-do-start-tag sgml-do-general-entity-ref sgml-set-face-for sgml-pcdata-move sgml-shortmap-skipstring sgml-parse-attribute-specification-list sgml-check-tag-close sgml-do-move sgml-open-element sgml-list-implications sgml-move-current-state sgml-do-empty-start-tag sgml-lookup-eltype sgml-startnm-char-next sgml-eltype-defined sgml-execute-implied sgml-next-sub-and sgml-get-and-move format) elp-instrument-list] 2 nil nil]) (defalias 'sgml-instrument-dtd-parser #[0 "\301\302!\210\303\304 \210\305\306 \207" [elp-function-list require elp nil elp-restore-all (sgml-parse-prolog sgml-skip-ds sgml-parse-markup-declaration sgml-check-doctype-body sgml-check-dtd-subset sgml-parse-ds sgml-declare-attlist sgml-declare-entity sgml-declare-element sgml-declare-shortref sgml-parse-parameter-literal sgml-check-element-type sgml-check-primitive-content-token sgml-check-model-group sgml-parse-modifier sgml-make-pcdata sgml-skip-ts sgml-make-opt sgml-make-* sgml-make-+ sgml-reduce- (\, sgml-reduce-|) sgml-make-& sgml-make-conc sgml-copy-moves sgml-do-parameter-entity-ref sgml-make-primitive-content-token sgml-push-to-entity sgml-lookup-entity sgml-lookup-eltype sgml-one-final-state sgml-remove-redundant-states-1) elp-instrument-list] 2 nil nil]) (provide 'psgml-debug)