403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.71
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/org/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/org/oc-biblatex.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320&\207" [require org-macs oc custom-declare-variable org-cite-biblatex-options funcall function #[0 "\300\207" [nil] 1 ""] "Options added to \"biblatex\" package.\nIf \"biblatex\" package is already required in the document, e.g., through\n`org-latex-packages-alist' variable, these options are ignored." :group org-cite :package-version (Org . "9.5") :type (choice (string :tag "Options (key=value,key2=value2...)") (const :tag "No option" nil)) :safe string-or-null-p] 12)
#@212 Return options string for "biblatex" package.

INITIAL is an initial style of comma-separated options, as a string or nil.
STYLE is the style definition as a string or nil.

Return a string.

(fn INITIAL STYLE)
(defalias 'org-cite-biblatex--package-options #[514 "\205\300\301\302\303\"\304\305\306\307#\310\311\312$\"\262\204 \313\202=\314\315\"\204.\316PC\202=\317\313\320\224OP\321\320\225\313OPD\204E\211\203S\322\323\324\325\326\"\310#\"\207\327\207" ["\\`\\(?:\\(?:bib\\|cite\\)?style\\)" seq-filter make-closure #[257 "\301\300\"?\207" [V0 string-match] 4 "\n\n(fn OPTION)"] split-string org-unbracket-string "[" "]" "," t " 	" nil string-match "/" "style=" "bibstyle=" 0 "citestyle=" format "[%s]" mapconcat identity append ""] 11 (#$ . 656)])
#@79 Non-nil when citation could make use of a "multicite" command.

(fn CITATION)
(defalias 'org-cite-biblatex--multicite-p #[257 "\300!\301GW\205\302\303\"\207" [org-cite-get-references 1 seq-some #[257 "\300\301\"\206\300\302\"\207" [org-element-property :prefix :suffix] 4 "\n\n(fn R)"]] 5 (#$ . 1438)])
#@159 Build argument for the list of citation REFERENCES.
When NO-OPT argument is non-nil, only provide mandatory arguments.

(fn REFERENCES INFO &optional NO-OPT)
(defalias 'org-cite-biblatex--atomic-arguments #[770 "\300\301\302\303\304#\"\203\207:\205'\242\243\211\204!\266\202\202'\305\306\"\266\202\305\307\"\305\310\"\211\205P\300\311\312	\"\313\314\203D\315\202E\316\317\314\320\317##\266\202\"\203t\300\311\312\n\"\313\314\203e\315\202f\316\317\314\320\317##\266\202\"\202}\203|\321\202}\313Q\207" [format "{%s}" mapconcat #[257 "\300\301\"\207" [org-element-property :key] 4 "\n\n(fn R)"] "," org-element-property :parent :suffix :prefix "[%s]" org-export-data nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" "[]"] 19 (#$ . 1757)])
#@124 Build "multicite" command arguments for CITATION object.
INFO is the export state, as a property list.

(fn CITATION INFO)
(defalias 'org-cite-biblatex--multi-arguments #[514 "\300\301\"\300\302\"\205)\303\304\305\"\306\307\203\310\202\311\312\307\313\312##\266\202\"\203M\303\304\305\"\306\307\203>\310\202?\311\312\307\313\312##\266\202\"\202V\203U\314\202V\306\315\316\317\"\320!\312#Q\207" [org-element-property :prefix :suffix format "(%s)" org-export-data nil replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" "()" mapconcat make-closure #[257 "\301C\300\"\207" [V0 org-cite-biblatex--atomic-arguments] 4 "\n\n(fn R)"] org-cite-get-references] 16 (#$ . 2569)])
#@337 Return biblatex command using BASE name for CITATION object.

INFO is the export state, as a property list.

When optional argument MULTI is non-nil, generate a "multicite" command when
appropriate.  When optional argument NO-OPT is non-nil, do not add optional
arguments to the command.

(fn CITATION INFO BASE &optional MULTI NO-OPT)
(defalias 'org-cite-biblatex--command #[1283 "\300\301\203\302!\203\303\304		\"P\202#\305\306	!##\207" [format "\\%s%s" org-cite-biblatex--multicite-p "s" org-cite-biblatex--multi-arguments org-cite-biblatex--atomic-arguments org-cite-get-references] 12 (#$ . 3302)])
#@145 Print references from bibliography.
PROPS is the local properties of the bibliography, as a property list.

(fn KEYS FILES STYLE PROPS &rest _)
(defalias 'org-cite-biblatex-export-bibliography #[1156 "\300\205T\301C\301\211\203H\211@\302!\203,\242\203 \242B\262\303!\304\301O\240\210\202A\305\306\307\"\310\311\312#\311#B\262\301\240\210A\266\202\202	\210\313\314\305\315\237\311#\"\266\202P\207" ["\\printbibliography" nil keywordp symbol-name 1 mapconcat make-closure #[257 "\300\242\301Q\207" [V0 "="] 4 "\n\n(fn V)"] split-string "," t format "[%s]" identity] 16 (#$ . 3929)])
#@164 Export CITATION object.
STYLE is the citation style, as a pair of either strings or nil.
INFO is the export state, as a property list.

(fn CITATION STYLE _ INFO)
(defalias 'org-cite-biblatex-export-citation #[1028 "\300\301:\203\201\242\211\302\267\202d\243\211\303\267\202(\304\202)\305\202)\306\202)\307\262\202|\243\211\310\267\202C\311\202D\312\202D\313\202D\314\262\202|\315\202|\316\202|\243\211\317\235\203^\320\202_\321\262\202|\243\211\322\267\202y\323\202z\324\202z\325\202z\326\262\262\202\206\327\330\"$\207" [apply org-cite-biblatex--command #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("a" 19 "author" 19 "l" 46 "locators" 46 "na" 73 "noauthor" 73 "n" 77 "nocite" 77 "t" 81 "text" 81)) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 28 "caps" 28 "f" 32 "full" 32 "cf" 36 "caps-full" 36)) ("Citeauthor*") ("citeauthor") ("Citeauthor") ("citeauthor*") #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 55 "bare" 55 "c" 59 "caps" 59 "bc" 63 "bare-caps" 63)) ("notecite") ("Pnotecite") ("Notecite") ("pnotecite") ("autocite*") ("nocite" nil t) ("c" "caps") ("Textcite" t) ("textcite" t) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 109 "bare" 109 "c" 113 "caps" 113 "bc" 117 "bare-caps" 117)) ("cite" t) ("Autocite" t) ("Cite" t) ("autocite" t) error "Invalid style: %S"] 12 (#$ . 4541)])
#@309 Prepare document preamble for "biblatex" usage.

OUTPUT is the final output of the export process.  FILES is the list of file
names used as the bibliography.

This function ensures "biblatex" package is required.  It also adds resources
to the document, and set styles.

(fn OUTPUT KEYS FILES STYLE &rest _)
(defalias 'org-cite-biblatex-prepare-preamble #[1156 "\301\302\303\"r\211q\210\304\305\"\216\212c\210)\306\307\310\303#\203m\311\224b\210\312\313\310\303#\2045\212\314\315\316\"\"c\210)\202a\317\224\204I\306\320\310\303#\210\316\310\"c\210\202a\321\322 \304\323\"\216\316\324\317!\")\262\310\211\211\317%\210\310y\210\325\326\327#\327\261\210\330 *\207" [org-cite-biblatex-options generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] search-forward "\\begin{document}" nil 0 re-search-backward "\\\\usepackage\\(\\[[^z-a]*?]\\)?{biblatex}" format "\\usepackage%s{biblatex}\n" org-cite-biblatex--package-options 1 "{" replace-match match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] match-string mapconcat #[257 "\300\301\302!\203\f\303\202
\304#\207" [format "\\addbibresource%s{%s}" org-url-p "[location=remote]" ""] 5 "\n\n(fn F)"] "\n" buffer-string] 12 (#$ . 6073)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313!\207" [org-cite-register-processor biblatex :export-bibliography org-cite-biblatex-export-bibliography :export-citation org-cite-biblatex-export-citation :export-finalizer org-cite-biblatex-prepare-preamble :cite-styles ((("author" "a") ("caps" "c") ("full" "f") ("caps-full" "cf")) (("locators" "l") ("bare" "b") ("caps" "c") ("bare-caps" "bc")) (("noauthor" "na")) (("nocite" "n")) (("text" "t") ("caps" "c")) (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"))) provide oc-biblatex] 10)

Youez - 2016 - github.com/yon3zu
LinuXploit