MMCT TEAM
Server IP : 111.118.215.189  /  Your IP : 18.117.158.174
Web Server : Apache
System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
User : a1673wkz ( 2475)
PHP Version : 8.2.25
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON
Directory (0755) :  /usr/share/emacs/24.3/lisp/org/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/emacs/24.3/lisp/org/org-docbook.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:07 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-docbook.el
;;; in Emacs version 24.3.1
;;; 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!\210\300\305!\207" [require footnote org org-exp org-html format-spec] 2)
(defvar org-docbook-para-open nil)
(defvar org-export-docbook-inline-images t)
(defvar org-export-docbook-link-org-files-as-docbook nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\301\314\315&\210\310\316\317\320\306\301\314\315&\210\310\321\302\322\306\301\314\315&\210\310\323\324\325\306\301\314\315&\210\310\326\327\330\306\301\314\315&\210\310\331\332\333\306\301\314\315&\210\310\334\335\336\306\301\337\340\314\315&	\210\310\341\342\343\306\301\314\344&\210\310\345\346\347\306\301\314\344&\210\310\350\351\352\306\301\314\353&\210\310\354\302\355\306\301\314\356&\210\310\357\302\360\306\301\337\340\314\315&	\210\310\361\302\362\306\301\314\315&\210\310\363\302\364\306\301\314\315&\210\310\365\366\367\306\301\314\315&\210\310\370\371\372\306\301\314\315&\207" [custom-declare-group org-export-docbook nil "Options for exporting Org-mode files to DocBook." :tag "Org Export DocBook" :group org-export custom-declare-variable org-export-docbook-extension ".xml" "Extension of DocBook XML files." :type string org-export-docbook-header "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n" "Header of DocBook XML files." org-export-docbook-doctype "DOCTYPE declaration string for DocBook XML files.\nThis can be used to include entities that are needed to handle\nspecial characters in Org files.\n\nFor example, if the Org file to be exported contains XHTML\nentities, you can set this variable to:\n\n\"<!DOCTYPE article [\n<!ENTITY % xhtml1-symbol PUBLIC\n\"-//W3C//ENTITIES Symbol for HTML//EN//XML\"\n\"http://www.w3.org/2003/entities/2007/xhtml1-symbol.ent\"\n>\n%xhtml1-symbol;\n]>\n\"\n\nIf you want to process DocBook documents without an Internet\nconnection, it is suggested that you download the required entity\nfile(s) and use system identifier(s) (external files) in the\nDOCTYPE declaration." org-export-docbook-article-header "<article xmlns=\"http://docbook.org/ns/docbook\"\n         xmlns:xlink=\"http://www.w3.org/1999/xlink\" version=\"5.0\" xml:lang=\"en\">" "Article header of DocBook XML files." org-export-docbook-section-id-prefix "sec-" "Prefix of section IDs used during exporting.\nThis can be set before exporting to avoid same set of section IDs\nbeing used again and again, which can be a problem when multiple\npeople work on the same document." org-export-docbook-footnote-id-prefix "fn-" "The prefix of footnote IDs used during exporting.\nLike `org-export-docbook-section-id-prefix', this variable can help\navoid same set of footnote IDs being used multiple times." org-export-docbook-footnote-separator "<superscript>, </superscript>" "Text used to separate footnotes." :version "24.1" org-export-docbook-emphasis-alist `(("*" "<emphasis role=\"bold\">" "</emphasis>") ("/" "<emphasis>" "</emphasis>") ("_" "<emphasis role=\"underline\">" "</emphasis>") ("=" "<code>" "</code>") ("~" "<literal>" "</literal>") ("+" "<emphasis role=\"strikethrough\">" "</emphasis>")) "A list of DocBook expressions to convert emphasis fontifiers.\nEach element of the list is a list of three elements.\nThe first element is the character used as a marker for fontification.\nThe second element is a format string to wrap fontified text with.\nThe third element decides whether to protect converted text from other\nconversions." alist org-export-docbook-default-image-attributes `(("align" . "\"center\"") ("valign" . "\"middle\"")) "Alist of default DocBook image attributes.\nThese attributes will be inserted into element <imagedata> by\ndefault, but users can override them using `#+ATTR_DocBook:'." org-export-docbook-inline-image-extensions '("jpeg" "jpg" "png" "gif" "svg") "Extensions of image files that can be inlined into DocBook." (repeat (string :tag "Extension")) org-export-docbook-coding-system "Coding system for DocBook XML files." coding-system org-export-docbook-xslt-stylesheet "File name of the XSLT stylesheet used by DocBook exporter.\nThis XSLT stylesheet is used by\n`org-export-docbook-xslt-proc-command' to generate the Formatting\nObject (FO) files.  You can use either `fo/docbook.xsl' that\ncomes with DocBook, or any customization layer you may have." org-export-docbook-xslt-proc-command "Format of XSLT processor command used by DocBook exporter.\nThis command is used to process a DocBook XML file to generate\nthe Formatting Object (FO) file.\n\nThe value of this variable should be a format control string that\nincludes three arguments: `%i', `%o', and `%s'.  During exporting\ntime, `%i' is replaced by the input DocBook XML file name, `%o'\nis replaced by the output FO file name, and `%s' is replaced by\n`org-export-docbook-xslt-stylesheet' (or the #+XSLT option if it\nis specified in the Org file).\n\nFor example, if you use Saxon as the XSLT processor, you may want\nto set the variable to\n\n  \"java com.icl.saxon.StyleSheet -o %o %i %s\"\n\nIf you use Xalan, you can set it to\n\n  \"java org.apache.xalan.xslt.Process -out %o -in %i -xsl %s\"\n\nFor xsltproc, the following string should work:\n\n  \"xsltproc --output %o %s %i\"\n\nYou can include additional stylesheet parameters in this command.\nJust make sure that they meet the syntax requirement of each\nprocessor." org-export-docbook-xsl-fo-proc-command "Format of XSL-FO processor command used by DocBook exporter.\nThis command is used to process a Formatting Object (FO) file to\ngenerate the PDF file.\n\nThe value of this variable should be a format control string that\nincludes two arguments: `%i' and `%o'.  During exporting time,\n`%i' is replaced by the input FO file name, and `%o' is replaced\nby the output PDF file name.\n\nFor example, if you use FOP as the XSL-FO processor, you can set\nthe variable to\n\n  \"fop %i %o\"" org-export-docbook-keywords-markup "<literal>%s</literal>" "A printf format string to be applied to keywords by DocBook exporter." org-export-docbook-timestamp-markup "<emphasis>%s</emphasis>" "A printf format string to be applied to time stamps by DocBook exporter."] 10)
#@59 Hook run at the end of DocBook export, in the new buffer.
(defvar org-export-docbook-final-hook nil (#$ . 6679))
#@230 Call `org-export-as-docbook' in batch style.
This function can be used in batch processing.

For example:

$ emacs --batch
        --load=$HOME/lib/emacs/org.el
        --visit=MyOrgFile.org --funcall org-export-as-docbook-batch
(defalias 'org-export-as-docbook-batch #[nil "\300 \207" [org-export-as-docbook] 1 (#$ . 6799)])
#@85 Call `org-export-as-docbook' with output to a temporary buffer.
No file is created.
(defalias 'org-export-as-docbook-to-buffer #[nil "\301\302\303\"\210\205\f\304\303!\207" [org-export-show-temporary-export-buffer org-export-as-docbook nil "*Org DocBook Export*" switch-to-buffer-other-window] 3 (#$ . 7131) nil])
#@301 Replace the region from BEG to END with its DocBook export.
It assumes the region has `org-mode' syntax, and then convert it to
DocBook.  This can be used in any buffer.  For example, you could
write an itemized list in `org-mode' syntax in an DocBook buffer and
then use this command to convert it.
(defalias 'org-replace-region-by-docbook #[(beg end) "\306\211\211\307 \310\216\311\312!\203\313\f
\314\315$\202<\f
{\316\317!rq\210\320 \210\nc\210\312 \210\313ed\314\315$)\321!\210*\f
|\210	c+\207" [buf docbook reg #1=#:wconfig beg end nil current-window-configuration ((set-window-configuration #1#)) derived-mode-p org-mode org-export-region-as-docbook t string get-buffer-create "*Org tmp*" erase-buffer kill-buffer] 5 (#$ . 7454) "r"])
#@688 Convert region from BEG to END in `org-mode' buffer to DocBook.
If prefix arg BODY-ONLY is set, omit file header and footer and
only produce the region of converted text, useful for
cut-and-paste operations.  If BUFFER is a buffer or a string,
use/create that buffer as a target of the converted DocBook.  If
BUFFER is the symbol `string', return the produced DocBook as a
string and leave not buffer behind.  For example, a Lisp program
could call this function in the following way:

  (setq docbook (org-export-region-as-docbook beg end t 'string))

When called interactively, the output buffer is selected, and shown
in a window.  A non-interactive call will only return the buffer.
(defalias 'org-export-region-as-docbook #[(beg end &optional body-only buffer) "\306\307!\203\310\311\211\312\fb\210\313`!\210
b\210\314\312#\315\316!\203\253\312\2041\205\251\317=\203?\242\317=\202A\203|\320 \203|\321 \203| \203_\322\323 \"\210\312 \202|\324 \325 U\204|\326\323!\204s\327\323!\204|\322\323\324 \325 {\"\210\204\231\330=\204\223\242\317=\203\231A\204\231\312\211\202\251\242\317=\203\243A\312!\331\332!)\210\306\307!\203\275\333	!\203\275\334	!\202\276	+\207" [buffer rtn zmacs-regions transient-mark-mode end beg called-interactively-p any "*Org DocBook Export*" t nil set-mark org-export-as-docbook fboundp deactivate-mark only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook bufferp switch-to-buffer-other-window body-only force select-active-regions saved-region-selection mark-active] 4 (#$ . 8216) "r\nP"])
#@52 Export as DocBook XML file, and generate PDF file.
(defalias 'org-export-as-docbook-pdf #[(&optional ext-plist to-buffer body-only pub-dir) "\203\306\307\"\204\310\311!\210	\203\306\312	\"\204\310\313!\210\314\315!\210\316 \317\320\321 \322 #!\323
()$*\324*!+\325+!\211,\326P-,\327P.\330.!\203\\\331.!\210\314\332!\210\333\334\335\336\337+!\340\337-!\341\337\342\f\343\"\206y/!&\"!\210\333\334	\335\336\337-!\340\337.!$\"!\210\314\344!\210\330.!\204\242\310\345!\202\254\346\n!\210\314\347!\210..\207" [org-export-docbook-xslt-proc-command org-export-docbook-xsl-fo-proc-command wconfig ext-plist opt-plist to-buffer string-match "%[ios].+%[ios].+%[ios]" error "XSLT processor command is not set correctly" "%[io].+%[io]" "XSL-FO processor command is not set correctly" message "Exporting to PDF..." current-window-configuration org-export-process-option-filters org-combine-plists org-default-export-plist org-infile-export-plist org-export-as-docbook buffer-file-name file-name-sans-extension ".fo" ".pdf" file-exists-p delete-file "Processing DocBook XML file..." shell-command format-spec format-spec-make 105 shell-quote-argument 111 115 plist-get :xslt "Processing DocBook file...done" "PDF file was not produced" set-window-configuration "Exporting to PDF...done" body-only pub-dir docbook-buf filename base fofile pdffile org-export-docbook-xslt-stylesheet] 14 (#$ . 9914) "P"])
#@61 Export as DocBook XML file, generate PDF file, and open it.
(defalias 'org-export-as-docbook-pdf-and-open #[nil "\301 \211\203
\302!\202\303\304!)\207" [pdffile org-export-as-docbook-pdf org-open-file error "PDF file was not produced"] 3 (#$ . 11347) nil])
#@676 Export the current buffer as a DocBook file.
If there is an active region, export only the region.  When
HIDDEN is obsolete and does nothing.  EXT-PLIST is a
property list with external parameters overriding org-mode's
default settings, but still inferior to file-local settings.
When TO-BUFFER is non-nil, create a buffer with that name and
export to that buffer.  If TO-BUFFER is the symbol `string',
don't leave any buffer behind but just return the resulting HTML
as a string.  When BODY-ONLY is set, don't produce the file
header and footer, simply return the content of the document (all
top-level sections).  When PUB-DIR is set, use this as the
publishing directory.
(defalias 'org-export-as-docbook #[(&optional ext-plist to-buffer body-only pub-dir) "\306\307!\210\204-	\204-\n\204-\310 \203)\302r\310 q\210\n)\311\f!L\210*\202-\312\313!\210\314\315!\210\316\305
\"\210\316\317\"\210\316\320\"\210\316\321\"\210\322\323\324 @\325 #!A\326A\327\"B\330CDE\331 \211F\205l\332 GF\205u\333 H\326A\334\"?\205\227F\205\227\212Gb\210\335 \205\226\336\337\211\"HY)\211I\203\264\212Gb\210J D\203\256\340\202\257\341\\)\202\265\341KI\203\305\342AG\"\202\307A\211LAM\206\326\343\344A\"N\nO\341P\345\211QR\330\211ST?\205\346\347I\203\377\350\332 \351\337#\206\352\n!!UP\353M\206\343\344A\"!\"V\n\203\354\n!\202!WX\330Y\203<\355=\2036\356\357!\202@\356!\202@\360V!Z\361[\330\"\\\326A\362\"]\326A\363\"\206Z^_\326A\364\"`\330\211ab\330cI\203v\365 \206\230\326A\366\"\206\230\326A\367\"\204\213\370 \206\230\n\203\227\347\352\n!!\206\230\371d\326A\372\"e\373f\374Qg\375hf\"i\330\211jk\330lmn\326A\364\"`\326A\376\"o\330\211pq\341r\377\201s!\205\336stu\206\347tvu\206\360twv\205\n\201\245\201\246!\205\n\201\246v\201\247\"xF\203\332 \202eF\203!\333 \202\"d{y\330z\201\250\201\251!{\201\252\201\253y\201\254\337\201\255\201\256\367\326A\367\"\201\257\326A\201\257\"\201\260\326A\201\260\"\201\261\326A\201\261\"\201\262\326A\201\262\"\201\263\326A\201\263\"\201\264\326A\201\264\"\201\265\326A\201\265\"\201\266\326A\201\266\"\201\267\326A\201\267\"\201\270\326A\201\270\"\201\271\326A\201\272\"\201\273\326A\201\273\"&\201\274\"|\201\275\201\276}\"A@~\201\277\201\275\201\276}\"8\330\211\200\201\330\211\202\203\330\211\204\205\330\211\206\207\330\211\210\211\330\211\212\213\330\211\214\215\330\211\216\217\330\211\220\221\330\211\222\223\330\211\224\225\330\226\201\300\201\301_\"\203Y\201\302\340_\"a\201\302\201\277_\"\206L\345b\201\302\201\303_\"c\201\304|!\225\337\227\201\305\201\306 \337\211\230\231\201\307ed\201\310#\210*!\210)\201\311|K\"\211\232\233\201\312 \210]\203\255\201\300\201\313]\"\203\255\201\314]!]\202\273]\204\273\201\314\201\315!]\201\275o\234\"\206\317\201\275\201\316\234\"pZq\210\337\227\201\317 \210)\201\320 \210\201\321 \210\201\245\201\322!\203\371\201\322v!\210\330ED\235\201\323\201\324\236\"\210	\204n\237c\210\240\203\240c\210\201\325]\201\326\261\210\375\201\327\201\330 \241#c\210\242c\210\375\201\331\201\332d!abc\243\203i`\203i\201\300\201\333`\"\203i\201\334`\201\335Q\202j\345&c\210\201\312 \210\201\336 \210|\211A|@\211Q\211R\203\223\201\337\201\340\215\210\202xj\203\242\201\341c\210\201\336 \210\201\342\340\330\"\210\326A\201\343\"\204\312\201\344 \210\244\201\345\201\244!=\203\312\201\346 \210eb\210\201\347\201\350\330\337#\203\365\201\351\340\224\201\352\"\204\315\201\353\201\354!\210\201\355u\210\202\315eb\210\201\347\201\356\330\337#\203\201\351\341\224\201\352\"\204\370\201\353\201\357\330\211\211\340%\210\202\370db\210	\204+\201\360c\210\306\201\361!\210\204:\201\362 \210eb\210\201\363\201\364!\204M\314\201\365!\210\355=\203_ed{\201\366p!\210\202`p.L\207" [to-buffer body-only buffer-file-name value var org-todo-line-regexp run-hooks org-export-first-hook buffer-base-buffer make-local-variable error "Need a file name to be able to export" message "Exporting..." set-default org-deadline-line-regexp org-done-keywords org-maybe-keyword-time-regexp org-export-process-option-filters org-combine-plists org-default-export-plist org-infile-export-plist plist-get :link-validation-function nil org-region-active-p region-beginning region-end :ignore-subtree-p org-at-heading-p org-end-of-subtree t 1 0 org-export-add-subtree-options org-export-directory :docbook #1="" expand-file-name file-name-sans-extension org-entry-get "EXPORT_FILE_NAME" file-name-nondirectory file-name-as-directory file-name-directory string get-buffer-create "*Org DocBook Export*" find-file-noselect make-vector :date :author :email org-export-get-title-from-subtree :title :skip-before-1st-heading org-export-grab-title-from-buffer "UNTITLED" :html-table-tag "^ *" "\\( +\\|[ 	]*$\\)" format :language boundp ext-plist opt-plist link-validate valid org-odd-levels-only odd region-p rbeg rend subtree-p outline-level level-offset org-export-opt-plist pub-dir org-current-export-dir org-current-export-file level line origline txt todo org-export-docbook-extension filename default-directory current-dir auto-insert buffer org-level-max org-levels-open date user-full-name author email firstname othername surname title html-table-tag org-quote-string quote-re0 org-heading-keyword-regexp-format quote-re inquote infixed inverse org-plain-list-ordered-item-terminator llt language lang-words cnt start buffer-file-coding-system coding-system org-export-docbook-coding-system coding-system-for-write save-buffer-coding-system charset region org-export-footnotes-seen org-export-footnotes-data lines org-export-docbook-emphasis-alist checkbox-start checkbox-end table-open type table-buffer table-orig-buffer ind item-type starter rpl path attr caption label desc descp desc1 desc2 link fnc item-tag item-number footref-seen footnote-list id-file inhibit-read-only inhibit-modification-hooks buffer-undo-list org-min-level org-last-level org-export-language-setup case-fold-search org-export-plist-vars org-export-docbook-header org-export-docbook-doctype emacs-major-version org-export-docbook-article-header org-export-email-info major-mode fboundp coding-system-get mime-charset org-footnote-all-labels with-defs org-split-string org-export-preprocess-string :emph-multiline :for-backend docbook :drawers :todo-keywords :tasks :tags :priority :footnotes :timestamps :archived-trees :select-tags :exclude-tags :add-text :text :LaTeX-fragments "[
\n]" assoc "=" 2 string-match "\\([^ ]+\\) \\(.+ \\)?\\([^ ]+\\)" match-string 3 org-export-docbook-get-footnotes set-buffer-modified-p buffer-modified-p remove-text-properties (:org-license-to-kill t) org-get-min-level org-init-section-numbers "%" format-time-string "%Y-%m-%d %T %Z" "en" erase-buffer fundamental-mode org-install-letbind set-buffer-file-coding-system mapc #[(x) "\302\3038!\304	@\"L\207" [x opt-plist make-local-variable 2 plist-get] 4] "<!-- Date: " " -->\n" "<!-- DocBook XML file generated by Org-mode %s Emacs %s -->\n" org-version "\n  <title>%s</title>\n  <info>\n    <author>\n      <personname>\n        <firstname>%s</firstname> <othername>%s</othername> <surname>%s</surname>\n      </personname>\n      %s\n    </author>\n  </info>\n" org-docbook-expand "\\S-" "<email>" "</email>" org-export-docbook-open-para nextline (byte-code "\203\306	\n\"\203\307c\210\310 \210\311\203#\312\n!\313\261\210\314\315\311\"\210\203[\306\316\n\"\203[\f\204:\317\320 \210\321c\210\322\323\n\"\313\261\210
\203N\306\324
@\"\204V\311\307c\210\310 \210\314\315\311\"\210\325\326\327\n#\203\315\311\325\326\330\n#@A\331\332`\333Z\317#\203\200\322\334!A\335\336!\210\n\313\261\210
\203\277
@G\326U\204\242@\203\242@\325\326\330
@#\232\203\277
@G\326U\204\263\325\326\327
@#\203\277
\211A@\313\261\210\202\205A\203\307\337c\210*\314\315\311\"\210\n\340\232\204\340\n\341\232\203\214\317\211B\203\214\320 \210\342c\210\311\211B\203\361\343\202\362\344\311CDEF
\211A@\211F\203DF\232\204FCBC\202\373F
BC\211AC@F\306\345F\"\203R\322\323F\"E\346 G\347\216\306\350\322\334F\"\"*\203W\322\334F\"
B\202WF
BC\211AC@\211F\203lF
B\202WE\203x\351E\352\261\210,B\203\204\353c\210\202\207\310 \210\314\315\311\"\210\n\344\232\203\240\320 \210\354c\210\310 \210\314\315\311\"\210\n\343\232\203\264\355c\210\310 \210\311B\314\315\311\"\210\n\356\232\203\313\320 \210\357\360\361\261\210\310 \210\314\315\311\"\210\n\362\232\203\341\320 \210\363\364\261\210\310 \210\314\315\311\"\210\326H\306\365\nH#\203&\325\334\224\327\n#\203\375\334\225H\202\344\366\225\203\335\367\370\371\322\334\n\"!\"\317\211\n$\202\344\335\367\370\371\322\334\n\"!\"\317\211\n$\202\344\372\n!\306I\n\"\2046\373\n!\326H\306J\nH#\203\323\326\224H\346 G\374\216\375\322\323\n\"!*K\366\225\203b\322\366\n\"\202\203\346 G\376\216\377K!\206v\306\201{K\"*\203\200\201|\202\203\201}L\201~\375K!!K\325\326\201K#M\325\326\201\200K#N\325\326\201\201K#O\201\202\225\205\272\322\201\202\n\"P\366\225\203\314L\201\203KQ\202\316KQP\205\333PQ\232?RP\206\344QSR\203\201\204ST\"\203\346 G\201\205\216\306\201\206S\"\203S\326\225\311OS*L\201}\232\203:\367\201\207\371\346 G\201\210\216\375K!*\311\"\201\211S!#U\202\300L\201\212\232\203\205\201\213K!\211V\203\205\346 G\201\214\216\201\215V\201\216W!\"V\201\217V!XPV\367\201\220VK\201\211S!$U*\202\300L\201\221\235\203\333Y\317=\204\237Y\203\273R\204\273\201\204KT\"\203\273\201\222L\201\203KQ!U\202\300L\201\203KQZ\367\201\223\201\224Z!\201\211S!#U\202\300L\201\225\235\203L\201\203KQZ\367\201\223\201\224Z!\201\211S!#U\202\300L\201\226\230\203*\367\201\227KR\205S\"\201\230K[\"A\"U\202\300\201\231\366\201\230L\\\"8\211]!\203X\346 G\201\232\216]\375K!P\201\233#*U\202\300L\201|\230\203\244K^\377^!_\311\211`a\311b\346 G\201\234\216\306\201\235^\"\203\230\322\334^\"b\335\201\236\317\311^$^\201\231c!\203\253c^d\"\202\254\317e\201\204^T\"a_\203\306\201\237^!\202\310^`\201\240\326`GS\201\200N\201M\201\201O\257`$\210f\203\\\306\201\241`\"\203\\`\326\211\224OXP`b\2032\306\201\242b\"\2042\306\201\243b\"\2042\306\201\244b\"\2042`\201\245\371\375b!!Q`\306\201\206S\"\203\\\335\201\236\317\211S$S\306\201\241S\"\203\\\335\201\236\317\211S$S*a\203\210Y\317=\204sY\203\210R\204\210\201\246\201\247`g#\210\201\222`!\202\225\367\201\223`\201\211S!#Ue\204\240SU-\202\300\201\250L\201\203\346 G\201\251\216\375K!*\201\252\260U\335U\317\211\n$HUG\\H\2029\306h\n\"\203\367\366\224\203\367\n\326\366\224O\201\253\322\366\n\"\201\254\n\366\225\311O\260i\203\262\326H\306\201\255\nH#\203\262\325\366\224\327\n#\204\325\366\224\201\256\n#\204%\366\225H\202\377\322\366\n\"j\201\230jk\"l\201\230jm\"\203V\335\367\201\257\322\334\n\"nj$\317\211\n$\202\256\335\367\201\260\322\334\n\"njl\203y\346 G\201\261\216\373lA!*\202\200\367\201\262j\"%\346 G\201\263\216\306\201\264\n\326\225\311O\"*\203\234o\202\237\201\236P\317\211\n$j\334BmBm*\202\377\306\201\265\n\"\203\201\266\201\267\334\225\334\224p#!q\322\366\n\"r\306sr\"\203\345\335\201\236\317\211r$r\201\270qr\"\210\306t\n\"\203\310\320 \210\321c\210\317\202\310u\203\\\306\201\271\n\"\203\\v\204\317v\311\211wx\nwBwyxBx
\2038\306\201\271
@\"\204\310\311vw\237wx\237x\320 \210\201\272\201\273wx\201\274#!c\210\202\310\325\326\201\275\n#\203\201\201\276\n\325\326\201\275\n#\325\326\201\277\n#\325\326\201\300\n#$\306\201\301\n\"\203\222B\204\222\310 \210i\203\303\201\302\201z!\203\262\306\201\303zP\n\"\203\262\314\315\311\"\210\306\201\304\n\"\203\303\320 \210\314\315\311\"\210\n\313\261\210\311\207" [inquote org-outline-regexp-bol line org-export-with-fixed-width infixed lines string-match "]]></programlisting>\n" org-export-docbook-open-para nil org-docbook-protect "\n" throw nextline "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" t org-export-docbook-close-para-maybe "<programlisting><![CDATA[" match-string 3 "^[ 	]*\\(:.*\\)" get-text-property 0 org-protected original-indentation re-search-backward "\\(<para>\\)\\([ 	
\n]*\\)\\=" 100 1 replace-match "\\2\n" "<para>\n" "ORG-BLOCKQUOTE-START" "ORG-VERSE-START" "<blockquote>" "ORG-VERSE-END" "ORG-BLOCKQUOTE-END" "\\(^.*\\)\\(--[ 	]+\\)\\(.+\\)$" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "[^ 	]" "<attribution>" "</attribution>" "\n<literallayout>" "</blockquote>\n" "</literallayout>\n</blockquote>\n" "ORG-CENTER-START" "<informaltable frame=\"none\" colsep=\"0\" rowsep=\"0\">\n" "<tgroup align=\"center\" cols=\"1\">\n" "<tbody><row><entry>\n" "ORG-CENTER-END" "</entry></row></tbody>\n" "</tgroup>\n</informaltable>\n" "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" 2 format "@<anchor xml:id=\"%s\"/>" org-solidify-link-text org-export-docbook-handle-time-stamps org-docbook-expand ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-link-unescape ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-absolute-p ind par inverse quote-lines end attribution tmp1 save-match-data-internal start org-table-hline-regexp org-bracket-link-analytic-regexp++ path type attr caption label desc1 desc2 descp desc org-export-docbook-inline-image-extensions rpl id-file org-current-export-file org-export-docbook-extension org-export-docbook-inline-images link org-export-code-refs org-link-protocols fnc filename abs-p thefile file-is-image-p search link-validate current-dir valid org-export-docbook-link-org-files-as-docbook org-docbook-para-open org-todo-line-regexp org-export-with-footnotes num footnote-list footnote-def footref-seen org-export-docbook-footnote-id-prefix org-export-docbook-footnote-separator level-offset level txt quote-re0 quote-re org-export-with-tables table-open table-buffer table-orig-buffer origline footnote-section-tag-regexp "^\\.\\.?/" "file" "internal" org-extract-attributes org-attributes org-caption org-label 5 ":" org-file-image-p ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^file:" "<link linkend=\"%s\">%s</link>" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-export-docbook-format-desc "id" org-id-find-id-file ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-relative-name file-name-directory file-name-sans-extension "<link xlink:href=\"%s#%s\">%s</link>" ("http" "https") org-export-docbook-format-image "<link xlink:href=\"%s\">%s</link>" org-export-html-format-href ("ftp" "mailto" "news") "coderef" org-export-get-coderef-format assoc functionp ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) html ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "::\\(.*\\)" #1# expand-file-name add-text-properties "\\.org$" "^[0-9]*$" "^\\*" "^/.*/$" "#" message "image %s %s" "&lt;" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "&gt;" "[" "]" "\\([^* 	].*?\\)\\[\\([0-9]+\\)\\]" org-footnote "%s<footnoteref linkend=\"%s%s\"/>" "%s<footnote xml:id=\"%s%s\"><para>%s</para></footnote>" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "FOOTNOTE DEFINITION NOT FOUND: %s" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "\\`\\[[0-9]+\\]" "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" org-tr-level - org-export-docbook-level-start "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" org-export-docbook-finalize-table org-format-table-html no-css list-item org-export-docbook-list-line list-struct list-prevs "^ [-+*]-\\|^[ 	]*$" boundp "^" "^[ 	]*\\[\\([0-9]+\\)\\]"] 10) "]]></programlisting>\n" org-export-docbook-level-start :buffer-will-be-killed normal-mode default-value nxml-mode re-search-forward "[ 
\n	]*\\(<para>\\)[ 
\n	]*</para>[ 
\n	]*" get-text-property org-protected replace-match "\n" -1 "</title>\\([ 
\n	]*\\)</section>" "\n<para></para>\n" "</article>" org-export-docbook-final-hook save-buffer org-export-push-to-kill-ring "DocBook" "Exporting... done" kill-buffer] 36 (#$ . 11616) "P"])
#@59 Insert <para>, but first close previous paragraph if any.
(defalias 'org-export-docbook-open-para #[nil "\301 \210\302c\210\303\211\207" [org-docbook-para-open org-export-docbook-close-para-maybe "\n<para>" t] 2 (#$ . 28312)])
#@47 Close DocBook paragraph if there is one open.
(defalias 'org-export-docbook-close-para-maybe #[nil "\205\n\301c\210\302\211\207" [org-docbook-para-open "</para>\n" nil] 2 (#$ . 28546)])
#@26 Close list if necessary.
(defalias 'org-export-docbook-close-li #[(&optional type) "\301 \210\302\232\203\f\303c\207\304c\207" [type org-export-docbook-close-para-maybe "d" "</listitem></varlistentry>\n" "</listitem>\n"] 2 (#$ . 28741)])
#@86 Insert a new level in DocBook export.
When TITLE is nil, just close all open levels.
(defalias 'org-export-docbook-level-start #[(level title) "\306 \210\205\f\307\310\301#\n\311
Y\2030SH\203)\312c\210S\311I\210S\211\202\205r\313\314\"\203X\315\203R\316 \317\216\320\321\322\"\323Q*\202S\324\325\211$
S\325I\210\326
!\327\330 \331\332\333\f#$c\210\334 +\207" [title target org-level-max l section-number level org-export-docbook-close-para-maybe org-get-text-property-any 0 nil "</section>\n" string-match "\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" replace-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "<superscript>" match-string 1 "</superscript>" "" t org-section-number format "\n<section xml:id=\"%s%s\">\n<title>%s</title>" replace-regexp-in-string "\\." "_" org-export-docbook-open-para org-levels-open org-export-with-tags save-match-data-internal org-export-docbook-section-id-prefix] 8 (#$ . 28987)])
#@123 Prepare STRING for DocBook export.
Applies all active conversions.  If there are links in the
string, don't modify these.
(defalias 'org-docbook-expand #[(string) "\306\307Q\310\211\310\211\311	\"\211\2038\312\nO\313\312\"\312\225\310O\314!
B\f
B\202
\314!
B\315\316
\237\"-\207" [org-bracket-link-regexp re m s l res "\\|" "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" nil string-match 0 match-string org-docbook-do-expand apply concat string] 4 (#$ . 29991)])
#@69 Apply all active conversions to translate special ASCII to DocBook.
(defalias 'org-docbook-do-expand #[(s) "\306!\307\310\"\203\311\312\313\314$\202	\203\315!\n\203%\316!\203-\317!\f\203{\320\314\211\307\321#\211\203z\322\320\224\323#\203U\320\225\2029\324\325\"\326\327\"\211\203o\311
\313\211$\2029G\\\2029+\207" [s org-export-with-emphasize org-export-with-special-strings org-export-with-sub-superscripts org-export-with-TeX-macros rep org-html-protect string-match "@&lt;\\([^&]*\\)&gt;" replace-match "<\\1>" t nil org-export-docbook-convert-emphasize org-export-docbook-convert-special-strings org-export-docbook-convert-sub-super 0 "\\\\\\([a-zA-Z]+\\)\\({}\\)?" get-text-property org-protected match-string 1 org-entity-get-representation html wd start] 5 (#$ . 30479)])
#@53 Make sure DESC is valid as a description in a link.
(defalias 'org-export-docbook-format-desc #[(desc) "\302 \303\216\304	!*\207" [save-match-data-internal desc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-docbook-do-expand] 2 (#$ . 31320)])
#@39 Apply emphasis for DocBook exporting.
(defalias 'org-export-docbook-convert-emphasize #[(string) "\305\306\307\n	#\203Y\310\224\310\224TO\311\224\311\224TO\232\204S\305\224\312\313\"\314\312\310\"\f\"A@\312\311\"\315\314\312\310\"\f\"8\312\316\"\260\317\320\211$	G\315Z\\\202	T\202*\207" [rpl s org-emph-re string org-export-docbook-emphasis-alist 0 nil string-match 3 4 match-string 1 assoc 2 5 replace-match t] 8 (#$ . 31625)])
(defalias 'org-docbook-protect #[(string) "\301!\207" [string org-html-protect] 2])
#@50 Convert special characters in STRING to DocBook.
(defalias 'org-export-docbook-convert-special-strings #[(string) "\207" [string] 1 (#$ . 32172)])
#@58 Given a list of LINES, return a list of alist footnotes.
(defalias 'org-export-docbook-get-footnotes #[(lines) "\303\211\n\211A@\211\203$\304\305\"\203\306\307\"\306\310\"B	B\202	*\207" [line list lines nil string-match "^[ 	]*\\[\\([0-9]+\\)\\] \\(.+\\)" match-string 1 2] 4 (#$ . 32326)])
#@34 Create image element in DocBook.
(defalias 'org-export-docbook-format-image #[(src) "\306 \307\216\310\311	\"\310\312	\"\206\313\310\314	\"
\315\n\205%\316\n!\211A@\211\203M\317@\320P\"\204&\321@\320A\260\202&\322\323\f\203Z\324\f\325Q\202[\313	\n\203h\326\n\327Q\202i\313%.\207" [save-match-data-internal src caption attr label org-export-docbook-default-image-attributes match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-find-text-property-in-string org-caption org-attributes "" org-label nil org-html-do-expand string-match "=" " " format "<mediaobject%s>\n<imageobject>\n<imagedata fileref=\"%s\" %s/>\n</imageobject>\n%s</mediaobject>" " xml:id=\"" "\"" "<caption>\n<para>" "</para>\n</caption>\n" default-attr tmp] 8 (#$ . 32636)])
#@46 Extra preprocessing work for DocBook export.
(defalias 'org-export-docbook-preprocess #[(parameters) "eb\210\300\301\302\303#\205\304\305\224\306\"\204\307\310!\210\202\207" [re-search-forward "\n\\(\\\\par\\>\\)" nil t get-text-property 1 org-protected replace-match ""] 4 (#$ . 33469)])
#@288 Clean up TABLE and turn it into DocBook format.
This function adds a label to the table if it is available, and
also changes TABLE to informaltable if caption does not exist.
TABLE is a string containing the HTML code generated by
`org-format-table-html' for a table in Org-mode buffer.
(defalias 'org-export-docbook-finalize-table #[(table) "\302\303\304	\"\203\"\305\306\307\310	\"\311\307\312	\"\307\313	\"\314\260\302\315	$\202#	\303\316\"\203>\305\317\307\312\"\307\310\"\320R\302\315$\202?)\207" [table-with-label table nil string-match "^<table \\(\\(.\\|\n\\)+\\)<a name=\"\\(.+\\)\" id=\".+\"></a>\n\\(\\(.\\|\n\\)+\\)</table>" replace-match "<table xml:id=\"" match-string 3 "\" " 1 4 "</table>" t "^<table \\(\\(.\\|\n\\)+\\)<caption></caption>\n\\(\\(.\\|\n\\)+\\)</table>" "<informaltable " "</informaltable>"] 8 (#$ . 33771)])
#@54 Convert sub- and superscripts in STRING for DocBook.
(defalias 'org-export-docbook-convert-sub-super #[(string) "\306\211\307\310=\311
\n#\203t	\203\"\312\225\203\"\313\225\202\n\314\313\224\315#\2032\313\225\202\n\316\225\317\313\"\320\230\203C\321\202D\322\317\312\"\206Z\317\323\"\206Z\317\324\"\325\317\316\"\326\f\327\330\f\327\260\331\211$\202\n\311\332\"\203\214\325\317\316\"\331\211$\202t,\207" [org-export-with-sub-superscripts requireb s c key org-match-substring-regexp nil 0 {} string-match 8 2 get-text-property org-protected 1 match-string "_" "subscript" "superscript" 6 5 replace-match "<" ">" "</" t "\\\\\\([_^]\\)" string] 9 (#$ . 34630)])
#@177 Change ``<...>'' in string STRING into ``@<...>''.
This is normally needed when STRING contains DocBook elements
that need to be preserved in later phase of DocBook exporting.
(defalias 'org-export-docbook-protect-tags #[(string) "\302\303\304	#\203\305\306\307\310	$\302\225\202	)\207" [start string 0 string-match "<\\([^>]*\\)>" replace-match "@<\\1>" t nil] 5 (#$ . 35350)])
#@36 Format time stamps in string LINE.
(defalias 'org-export-docbook-handle-time-stamps #[(line) "\306\307!\307	!\310
\"\203B\f\311\211\224O\312\225\205&\313\314\312\"\"\315\313\n\316\314\317\"!\312\320O\"\260\311\225\306O\202\n\fP+\207" [org-export-docbook-keywords-markup org-export-docbook-timestamp-markup ts-markup kw-markup replaced org-maybe-keyword-time-regexp nil org-export-docbook-protect-tags string-match 0 1 format match-string " " org-translate-time 3 -1 line] 10 (#$ . 35743)])
#@226 Insert list syntax in export buffer.  Return LINE, maybe modified.

POS is the item position or line position the line had before
modifications to buffer.  STRUCT is the list structure.  PREVS is
the alist of previous items.
(defalias 'org-export-docbook-list-line #[(line pos struct prevs) "\306\307\310\311	\n!\"\210\n\236\203\311\312\313\f\"\210\314\315\f\"\314\316\f\"\206#\317$\314\320\f\"%\321\n&#\211'\nU('&#)\n*\315*+\211,+\2368-\211-\204`\322\202|\312\323-\"\203r\324-\226!\325Z\202|\312\326-\"\205|-).(\203\216\327 \210\330\331)\"c\210)\332\232\203\235\330\333$\"\202\262)\334\232\203\261.\203\261\330\335.\"\202\262\336c\210\337 \210
\203\302
\340%Q%%.\202\332\f\341\232\203\331\337 \210\342\343\322\"\202\332\f*\207" [get-type get-closings pos struct line checkbox #[(pos struct prevs) "\304	\n#\211\305=\203\306\202\307=\203\310\202\311)\207" [pos struct prevs type org-list-get-list-type ordered "ordered" descriptive "variable" "itemized"] 5] #[(pos) "\301\302\303\215\210)\207" [out nil exit (mapc #[(e) "\3058@\211U\203	\fB\211\202	Y\205\306\307\310\"*\207" [e item end pos out 6 throw exit nil] 4] struct)] 2] mapc #[(e) "\306	\n#U\307	\n#
\f	\n#\310 \210\311\232\203#\312\202$\313c\210\2053\314\315\"c\210\316 +\207" [e struct prevs lastp first-item get-type org-list-get-last-item org-list-get-list-begin org-export-docbook-close-para-maybe "variable" "</listitem></varlistentry>\n" "</listitem>\n" format "</%slist>\n" org-export-docbook-open-para type] 4] string-match "[ 	]*\\(\\S-+[ 	]*\\)\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[a-zA-Z]\\)\\][ 	]*\\)?\\(?:\\(\\[[ X-]\\]\\)[ 	]+\\)?\\(?:\\(.*\\)[ 	]+::\\(?:[ 	]+\\|$\\)\\)?\\(.*\\)" match-string 3 4 "???" 5 org-list-get-list-begin nil "[A-Za-z]" string-to-char 64 "[0-9]+" org-export-docbook-close-para-maybe format "<%slist>\n" "variable" "<varlistentry><term>%s</term><listitem>" "ordered" "<listitem override=\"%s\">" "<listitem>" org-export-docbook-open-para " " "ORG-LIST-END-MARKER" throw nextline desc-tag body prevs list-beg firstp type item key n count-tmp counter] 5 (#$ . 36264)])
(provide 'org-docbook)

MMCT - 2023