HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/emacs/27.1/lisp/org/ob-plantuml.elc
;ELC
;;; Compiled
;;; in Emacs version 27.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ob)
#@59 Default arguments for evaluating a plantuml source block.
(defvar org-babel-default-header-args:plantuml '((:results . "file") (:exports . "results")) (#$ . 422))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable org-plantuml-jar-path funcall function #[0 "\300\207" [#1=""] 1 #1#] "Path to the plantuml.jar file." :group org-babel :version "24.1" :type string] 10)
#@256 Return a list of PlantUML statements assigning the block's variables.
PARAMS is a property list of source block parameters, which may
contain multiple entries for the key `:var'.  `:var' entries in PARAMS
are expected to be scalar variables.

(fn PARAMS)
(defalias 'org-babel-variable-assignments:plantuml #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@\302\303\304A##\207" [format "!define %s %s" replace-regexp-in-string "\"" ""] 8 "\n\n(fn PAIR)"] org-babel--get-vars] 5 (#$ . 840)])
#@458 Return PlantUML input string.

BODY is the content of the source block and PARAMS is a property list
of source block parameters.  This function relies on the
`org-babel-expand-body:generic' function to extract `:var' entries
from PARAMS and on the `org-babel-variable-assignments:plantuml'
function to convert variables to PlantUML assignments.

If BODY does not contain @startXXX ... @endXXX clauses, @startuml
... @enduml will be added.

(fn BODY PARAMS)
(defalias 'org-babel-plantuml-make-body #[514 "\300!\301\302\303#\203\211\202\304\305\306#\"\207" [org-babel-variable-assignments:plantuml string-prefix-p "@start" t format "@startuml\n%s\n@enduml" org-babel-expand-body:generic] 9 (#$ . 1343)])
#@126 Execute a block of plantuml code with org-babel.
This function is called by `org-babel-execute-src-block'.

(fn BODY PARAMS)
(defalias 'org-babel-execute:plantuml #[514 "\301\236A\206\n\302\303!\304\236A\305\306!\307\236A\206\310\311\"\310\230\203+\302\312!\202\334\313\314\315\316!!\317	!\320\230\203@\321\202A\310\317\n!\322\230\203N\323\202O\310\317!\324\230\203\\\325\202]\310\317\f!\326\230\203j\327\202k\310\317
!\330\230\203x\331\202y\310\317!\332\230\203\206\333\202\207\310\317!\334\230\203\224\335\202\225\310\317!\336\230\203\242\337\202\243\310\317!\340\230\203\260\341\202\261\310\317!\342\230\203\276\343\202\277\310\317!\344\230\203\314\345\202\315\310\346\347\350!\351\350!\260\352!\204\347\302\353\"\210\354\355!\356\357\360\361\362!\363\"\364$\216r\211q\210c\210)r\211q\210\365\366\211\366\357%\210*\266\367\370\"\210\371\310\"\210\366\207" [org-plantuml-jar-path :file error "PlantUML requires a \":file\" header argument" :cmdline org-babel-temp-file "plantuml-" :java "" org-babel-plantuml-make-body "`org-plantuml-jar-path' is not set" "java " " -jar " shell-quote-argument expand-file-name file-name-extension "png" " -tpng" "svg" " -tsvg" "eps" " -teps" "pdf" " -tpdf" "tex" " -tlatex" "vdx" " -tvdx" "xmi" " -txmi" "scxml" " -tscxml" "html" " -thtml" "txt" " -ttxt" "utxt" " -utxt" " -p " " < " org-babel-process-file-name " > " file-exists-p "Could not find plantuml.jar at %s" generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region nil message "%s" org-babel-eval] 29 (#$ . 2061)])
#@82 Return an error because plantuml does not support sessions.

(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:plantuml #[514 "\300\301!\207" [error "Plantuml does not support sessions"] 4 (#$ . 3732)])
(provide 'ob-plantuml)