;ELC ;;; Compiled by root@loma.devel.redhat.com on Tue Feb 17 01:44:30 2004 ;;; from file /usr/src/build/355475-noarch/BUILD/psgml-1.2.5/psgml-info.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`psgml-info.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305!\210\304\306!\210\301B\307\302\207" [current-load-list sgml-attr-col provide psgml-info require psgml psgml-parse 18] 2) (defalias 'sgml-add-to-table #[(row-index elem table) "\304 \"\211\204 D B\202\n C\244\210 )\207" [row-index table p elem assoc] 4]) (put 'sgml-add-to-table 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-add-last-unique #[(x l) " >?\205 C\244\207" [x l] 2]) (put 'sgml-add-last-unique 'byte-optimizer 'byte-compile-inline-expand) (defalias 'sgml-map-element-types #[(func) "\303 \210\304 \305H\n>\204\306\307 \"\210 \310H\311#\207" [func sgml-buffer-parse-state cl-struct-sgml-pstate-tags sgml-need-dtd sgml-map-eltypes 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 t] 5]) #@58 List of element types referenced in the model of ELTYPE. (defalias 'sgml-eltype-refrenced-elements #[(eltype) "\306N\206\332\307\310!C\211\n@:\204\307\202\331 \203\301 @@\311=\203u\312 @\211A@) @\211AA)\"\307 :\203q @\313@ \"\203O \202T@ BA\n\211>\204i\fC\244\210* A\211\202:*\202\272 @@\n\211>\204\211\fC\244\210* @A\307:\203\271@\211\n\211>\204\257\fC\244\210*A\211\202\224* A\211\204\314\315\316\317 \320N\"\321N\"!\322\"\323\306 #\210 +\207" [eltype res states agenda x #1=#:G60584 re-cache nil sgml-eltype-model normal-state append member* sort copy-sequence set-difference union includes excludes string-lessp put m l #2=#:G60585 dfa] 8 (#$ . 1409)]) #@60 List the elements and their attributes in the current DTD. (defalias 'sgml-list-elements #[nil "\300\301!\210\302\303\304!\305\306\307$\207" [message "Creating table..." sgml-display-table sgml-map-element-types #[(eltype) "\301!\302\303\304N\"B\207" [eltype symbol-name mapcar sgml-attdecl-name attlist] 5] "Elements" "Element" "Attribute"] 5 (#$ . 2150) nil]) #@55 List the attributes and in which elements they occur. (defalias 'sgml-list-attributes #[nil "\301\302\303!\210\304\305!\210\306\307\310\311$)\207" [attributes nil message "Creating table..." sgml-map-element-types #[(eltype) "\306N\307 :\203= @\310\n!\311!  \312 \f\"\211\f\204- D\fB\2024\f C\244\210\f, A\211\202*\307\207" [eltype #1=#:G60589 a attributes table elem attlist nil sgml-attdecl-name symbol-name assoc row-index p] 5] sgml-display-table "Attributes" "Attribute" "Element"] 5 (#$ . 2520) nil]) #@56 List the elements that can have data in their content. (defalias 'sgml-list-terminals #[nil "\304\305!\210 \nE\306\307\310\311\312!\"\313\314\315$)\207" [sgml-cdata sgml-rcdata sgml-any data-models message "Creating table..." sgml-display-table delq nil sgml-map-element-types #[(eltype) "\302JW\204\303! >\205#\304!\304\303!:\203\305\202!\303!!D\207" [eltype data-models 3 sgml-eltype-model symbol-name mixed] 5] "Terminals" "Element" "Content"] 5 (#$ . 3055) nil]) #@77 List all element types and the element types that can occur in its content. (defalias 'sgml-list-content-elements #[nil "\300\301!\210\302\303\304!\305\306\307$\207" [message "Creating table..." sgml-display-table sgml-map-element-types #[(eltype) "\301!\302\303\304!\"B\207" [eltype symbol-name mapcar sgml-eltype-name sgml-eltype-refrenced-elements] 5] "Elements referenced by elements" "Element" "Content"] 5 (#$ . 3541) nil]) #@48 List all element types and where it can occur. (defalias 'sgml-list-occur-in-elements #[nil "\301\302!\210\303\304\305!\210\306\307\310\311$)\207" [cross message "Creating table..." nil sgml-map-element-types #[(eltype) "\306!\307 :\203; @\211\310! \n\311\n\f\"\211 \204+\n D\fB\2022 C\244\210\f, A\211\202*\307\207" [eltype #1=#:G60590 ref cross table elem sgml-eltype-refrenced-elements nil symbol-name assoc row-index p] 5] sgml-display-table "Cross referenced element types" "Element" "Can occur in"] 5 (#$ . 3979) nil]) (defalias 'sgml-display-table #[(table title col-title1 col-title2 &optional width nosort) "\204 \306\307\310\n\"!\311\312!\210 q\210\313 \210\fc\210j\210 \314\261\210\315\316\fG\"\210j\210\315\316 G\"\210\314c\210\204@\317\320\"\321:\203\255@\307\322@\"c\210\203eA\202k\317A\323\"\321:\203\240@\211Gi\\V\203\210\314c\210i W\203\221j\210\324\261\210A\211\202r*\314c\210A\211\202I*eb\210\325 !\210\311\321!)\207" [width sgml-attr-col title buf col-title1 col-title2 get-buffer-create format "*%s*" message "Preparing display..." erase-buffer "\n" insert-char 61 sort #[(a b) "@ @\231\207" [a b] 2] nil "%s " string-lessp " " display-buffer nosort table #1=#:G60591 e #2=#:G60592 name fill-column] 5]) #@70 Describe the properties of an entity as declared in the current DTD. (defalias 'sgml-describe-entity #[(name) "\306\220\307 \310H\n>\204\311\312 \"\210 \313H\314H\"\211\204 \311\315!\210\316\317\320 \204,\321\2022\317\322 A@\"#!\210 \205\206\323 8\314 8\211;\203P\316\324!\210\316 !\202\205\316\325!\210\316 @\203^\326\202_\327!\210 @\203n\316\317\330 @\"!\210 A\203{\316\317\330 A\"!\210\f\205\205\316\317\331\f\"!*)\221\207" [name sgml-buffer-parse-state cl-struct-sgml-pstate-tags entity notation text "*Help*" sgml-lookup-entity 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 3 "Undefined entity" princ format "Entity %s is %s\n" "undefined" "a %s entity" 2 "Defined to be:\n" "With external identifier " "PUBLIC" "SYSTEM" " '%s'" "\nand notation '%s'"] 9 (#$ . 5300) (let (default input) (sgml-need-dtd) (save-excursion (sgml-with-parser-syntax (unless (sgml-parse-delim "ERO") (skip-chars-backward "^&\"'= \n")) (setq default (or (sgml-parse-name t) "")))) (setq input (completing-read (format "Entity name (%s): " default) (sgml-entity-completion-table (sgml-dtd-entities (sgml-pstate-dtd sgml-buffer-parse-state))))) (list (if (equal "" input) default input)))]) (defalias 'sgml-princ-names #[(names &optional first sep) "\206\306\307\n\310\310 :\203T @\f\203#\f\310\f\202$\311 !\210 G\\\211\307V\203D \fG\\ V\203D\311\312!\210\313\311\f!\210 \fG\\ A\211\202,\310\207" [sep col names #1=#:G60593 name this-sep " " 0 nil princ "\n " 1 first fill-column] 3]) #@76 Describe the properties of an element type as declared in the current DTD. (defalias 'sgml-describe-element-type #[(et-name) "\306 \210\307!\310\220\311\312\313\314 !\"!\210\311\312\315\316 !\203\317\202 \320\321 !\203*\317\202+\320#!\210\311\322!\210 \323N\324\n:\203\244\n@\325 !\326 !\327 !? <\203l @\330=\203]\331\202^\332\333\334 \211@A@)\335#\336Q\337\340\f\"\203}\312\341\342\f!\"\202\222\f9\203\213\312\343\f\"\226\202\222\312\344\342\f!\"\311\312\345? \f$!\210+\nA\211\2029* \346N\211A\203\266\311\312\347A\"!\210)\311\350!\210\351 !9\203\313\311\351 !!\210\202\343\311\352 JW\203\327\353\202\330\354!\210\355\356\314\357 !\"!\210 \360N \361NB\211C\204\366B\203\372\311\362!\210C\203 \311\363!\210\355\356\314C\"!\210B\203\311\364!\210\355\356\314B\"!\210*\311\365!\210\324D\366\367E\370HF>\2046\371\372E\"\210E\373H\"\210\355\356\374\375D\376\"\"!)\221)\207" [et-name et #1=#:G60594 attdecl defl dval sgml-need-dtd sgml-lookup-eltype "*Help*" princ format "ELEMENT: %s\n\n" symbol-name " Start-tag is %s.\n End-tag is %s.\n" sgml-eltype-stag-optional "optional" "required" sgml-eltype-etag-optional "\nATTRIBUTES:\n" attlist nil sgml-attdecl-name sgml-attdecl-declared-value sgml-attdecl-default-value NOTATION "#NOTATION (" "(" mapconcat identity "|" ")" sgml-default-value-type-p FIXED "#FIXED '%s'" sgml-default-value-attval "#%s" "'%s'" " %-9s %-30s %s\n" shortmap "\nUSEMAP: %s\n" "\nCONTENT: " sgml-eltype-model 3 "mixed\n\n" "element\n\n" sgml-princ-names mapcar sgml-eltype-refrenced-elements includes excludes "\n\nEXCEPTIONS:" "\n + " "\n - " "\n\nOCCURS IN:\n\n" sgml-map-eltypes #[(cand) "\303 !>\205 \nB\211\207" [et cand occurs-in sgml-eltype-refrenced-elements] 3] 0 error "sgml-pstate-dtd accessing a non-sgml-pstate" 1 sgml-eltype-name sort string-lessp name x s excl incl occurs-in sgml-buffer-parse-state cl-struct-sgml-pstate-tags] 9 (#$ . 6826) (let (default input) (sgml-need-dtd) (save-excursion (sgml-with-parser-syntax (unless (sgml-parse-delim "STAGO") (skip-syntax-backward "w_")) (setq default (sgml-parse-name)) (unless (and default (sgml-eltype-defined (sgml-lookup-eltype default))) (setq default nil)))) (setq input (sgml-read-element-type (if default (format "Element type (%s): " default) "Element type: ") sgml-dtd-info default)) (list (sgml-eltype-name input)))]) #@44 Display information about the current DTD. (defalias 'sgml-general-dtd-info #[nil "\306 \210\307\211\211\310\311\312\313 \"\210\314\315 \316H\"\210\314\317 \320H\"\210\321\220\322\323 \324 \307H#!\210 \325H\203=\322\323 \326 \325H@#!\210\322\323 \327\323\330\f\"#!\210\322\323 \331\323\330 \"#!\210\322\323 \332\323\330\n\"#!\210\333 \334H \335! :\203\214 @\211!;\203\203\322\323 !#!\210\311 A\211 \202j*\336\314\337 \320H\"\221-\207" [hdr fmt parameters entities elements sgml-dtd-info sgml-need-dtd 0 "%20s %s\n" "" sgml-map-eltypes #[(e) "T\211\207" [elements] 2] sgml-map-entities #[(e) "T\211\207" [entities] 2] 3 #[(e) "T\211\207" [parameters] 2] 2 "*Help*" princ format "Doctype:" 7 "Compiled DTD:" "Element types:" "%d" "Entities:" "Parameter entities:" "Files used:" 6 nil "Undef parameters:" #[(entity) "\303!\205\304\305 \n@#!\210\306\211\207" [entity fmt hdr sgml-entity-marked-undefined-p princ format ""] 5] #1=#:G60595 x] 8 (#$ . 9201) nil])