ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/srecode/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/srecode/insert.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\306\307\310\311\312\313\314\315&\207" [require srecode/compile srecode/find srecode/dictionary srecode/args srecode/filters custom-declare-variable srecode-insert-ask-variable-method 'ask "Determine how to ask for a dictionary value when inserting a template.\nOnly the ASK style inserter will query the user for a value.\nDictionary value references that ask begin with the ? character.\nPossible values are:\n `ask' - Prompt in the minibuffer as the value is inserted.\n `field' - Use the dictionary macro name as the inserted value,\n and place a field there. Matched fields change together.\n\nNOTE: The field feature does not yet work with XEmacs." :group srecode :type (choice (const :tag "Ask" ask) (const :tag "Field" field))] 8)
#@70 Non-nil means that we are actively inserting a template with fields.
(defvar srecode-insert-with-fields-in-progress nil (#$ . 1243))
#@75 The context that was at point at the beginning of the template insertion.
(defvar srecode-insertion-start-context nil (#$ . 1382))
#@58 Insert the previously inserted template (by name) again.
(defalias 'srecode-insert-again #[nil "@\211\203
\302 !\202 \303\302!)\207" [srecode-read-template-name-history prev srecode-insert call-interactively] 3 (#$ . 1519) nil])
#@123 Insert the template TEMPLATE-NAME into the current buffer at point.
DICT-ENTRIES are additional dictionary values to add.
(defalias 'srecode-insert #[(template-name &rest dict-entries) "\306 \204\n \307\310\"\210\311 \312\306 \"\313 \204 \307\314 \"\210
\2034 \315\f
@
A@#\210
AA\211\204# \316 \f\"+\207" [major-mode template-name srecode-insertion-start-context temp newdict dict-entries srecode-table error "No template table found for mode %s" srecode-create-dictionary srecode-template-get-table srecode-calculate-context "No Template named %s" srecode-dictionary-set-value srecode-insert-fcn] 5 (#$ . 1759) (list (srecode-read-template-name "Template Name: "))])
#@203 Insert TEMPLATE using DICTIONARY into STREAM.
Optional SKIPRESOLVER means to avoid refreshing the tag list,
or resolving any template arguments. It is assumed the caller
has set everything up already.
(defalias 'srecode-insert-fcn #[(template dictionary &optional stream skipresolver) "\206 p\306\307 \304\"\203 \310\f\311 \304\"\"\210
\204# \312 \210\313 \f\"\210\314\n!\203D ` \315\211 \316 \f\"\210*\317\320`\321$\210)\202I \322 \f\"\210\314\n!\203b \307\323\324\"\203b \nq\210\325 \326\323\324\"b\210\327\323\324#\210 \206n `*\207" [stream end-mark standard-output template dictionary skipresolver nil slot-boundp srecode-dictionary-merge eieio-oref semantic-fetch-tags srecode-resolve-arguments bufferp t srecode--insert-into-buffer run-hook-with-args after-change-functions 0 srecode-insert-method srecode-template-inserter-point point point-marker eieio-oref-default eieio-oset-default start inhibit-modification-hooks inhibit-point-motion-hooks eieio-unbound] 5 (#$ . 2442)])
#@495 Insert a TEMPLATE with DICTIONARY into a buffer.
Do not call this function yourself. Instead use:
`srecode-insert' - Inserts by name.
`srecode-insert-fcn' - Insert with objects.
This function handles the case from one of the above functions when
the template is inserted into a buffer. It looks
at `srecode-insert-ask-variable-method' to decide if unbound dictionary
entries ask questions or insert editable fields.
Buffer based features related to change hooks is handled one level up.
(defalias 'srecode--insert-into-buffer #[(template dictionary) "\306=\203\n \307\310!\210\311`\306=\205 \312\313\f
\"\210) ?\2059 \306=\2059 \n\2059 \314\315\316 \317`% \320!)*\207" [srecode-insert-ask-variable-method start srecode-field-archive srecode-insert-with-fields-in-progress template dictionary field require srecode/fields nil t srecode-insert-method srecode-template-inserted-region "TEMPLATE" :start :end srecode-overlaid-activate reg] 6 (#$ . 3448)])
#@134 Display an error report based on DICTIONARY, FORMAT and ARGS.
This is intended to diagnose problems with failed template
insertions.
(defalias 'srecode-insert-show-error-report #[(dictionary format &rest args) "r\303\304!q\210\305 \210\306\307\310\311#\306\312\310\313#\314\261\210\315\316\317\320\321\"!\322\"\210\306\323\310\324#\325\261\210\326\327\322#\210\306\330\310\331#\325\261\210\332\333 \n#c\210\334p!)\207" [dictionary format args data-debug-new-buffer "*SRECODE INSERTION ERROR*" erase-buffer propertize "Template Stack" face (:weight bold) " (most recent at bottom)" (:slant italic) ":\n" data-debug-insert-stuff-list reverse eieio-oref-default srecode-template active "> " "Dictionary" (:weight bold) "\n" data-debug-insert-thing "" "Error" (:weight bold) apply format-message pop-to-buffer] 5 (#$ . 4424)])
(defalias 'srecode-insert-report-error #[(dictionary format &rest args) "\303 \n#\210\304\305 \n#\207" [dictionary format args srecode-insert-show-error-report apply error] 4])
#@103 Resolve all the arguments needed by the template TEMP.
Apply anything learned to the dictionary DICT.
(defalias 'srecode-resolve-arguments #[(temp dict) "\302\303\304\" #\207" [temp dict srecode-resolve-argument-list eieio-oref args] 4 (#$ . 5436)])
#@200 Resolve arguments in the argument list ARGS.
ARGS is a list of symbols, such as :blank, or :file.
Apply values to DICT.
Optional argument TEMP is the template that is getting its arguments resolved.
(defalias 'srecode-resolve-argument-list #[(args dict &optional temp) "\304 \205= \305\306\307 @!P!\211\204 \310\311 @\"\210\n\2031 \3121) \n\"0\202- \210 !\210\2025 !\210 A\211\204 \304)\207" [fcn args temp dict nil intern-soft "srecode-semantic-handle-" symbol-name error "Error resolving template argument %S" (wrong-number-of-arguments)] 5 (#$ . 5695)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\207" [cl-generic-define-method srecode-push nil ((st srecode-template)) #[(st) "\301\302\303\302\"B#\207" [st eieio-oset active eieio-oref] 7 "Push the srecoder template ST onto the active stack."] srecode-pop ((st srecode-template)) #[(st) "\301\302\303\302\"A#\207" [st eieio-oset active eieio-oref] 6 "Pop the srecoder template ST onto the active stack."] srecode-peek ((st srecode-template)) #[(st) "\301\302\"@\207" [st eieio-oref active] 3 "Fetch the topmost active template record."] srecode-insert-method ((st srecode-template) dictionary) #[(st dictionary) "\303\301\"\203 \304 \305\301\"\"\210\306\216\305\307\"\310!\210\311\n \"*\207" [st dictionary c slot-boundp srecode-dictionary-merge eieio-oref #[nil "\301!\207" [st srecode-pop] 2] code srecode-push srecode-insert-code-stream] 5 "Insert the srecoder template ST."]] 6)
#@95 Insert the CODE from a template into `standard-output'.
Use DICTIONARY to resolve any macros.
(defalias 'srecode-insert-code-stream #[(code dictionary) "\205 @;\203 \302@!\210\202 \303@ \"\210A\211\204 \304\207" [code dictionary princ srecode-insert-method nil] 4 (#$ . 7243)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias srecode-template-inserter-newline-p eieio-make-class-predicate srecode-template-inserter-newline srecode-template-inserter-newline--eieio-childp eieio-make-child-predicate srecode-template-inserter-newline-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-newline) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform "\n" :allocation :class :documentation "The character code used to identify inserters of this style.") (hard :initform nil :initarg :hard :documentation "Is this a hard newline (always inserted) or optional?\nOptional newlines don't insert themselves if they are on a blank line\nby themselves.")) (:documentation "Insert a newline, and possibly do indenting.\nSpecify the :indent argument to enable automatic indentation when newlines\noccur in your template.")] 5)
#@72 Create a new object of class type `srecode-template-inserter-newline'.
(defalias 'srecode-template-inserter-newline #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-newline] 4 (#$ . 8551)])
(function-put 'srecode-template-inserter-newline 'compiler-macro 'srecode-template-inserter-newline--anon-cmacro)
(defalias 'srecode-template-inserter-newline--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312\313\314!\"\210\311\315\316\314!\"\210\311\317\315\"\210\320\317\321\322#\210\323\314\324\315#\210\325\314\326\327\330$\207" [cl-generic-define-method srecode-insert-method nil ((sti srecode-template-inserter-newline) dictionary) #[(sti dictionary) "\306\307\"\310 !\311\312 \f\203. \313\314\"\204. \315 \210\214`\n}\210\316\317!\203* \320)\nb\210
\311=\203> \f\203> \321 \210\nb\210 \205s \322\323!\210
\311=\203] \310 !\203] \312 \321 \210\nb\202s
\247\203k \322\324
\325\"!\202s
;\205s \322
!,\207" [dictionary standard-output pm doit inbuff i srecode-dictionary-lookup-name "INDENT" bufferp t point-marker eieio-oref hard beginning-of-line looking-at "\\s-*$" nil indent-according-to-mode princ "\n" make-string " " sti] 4 "Insert the STI inserter."] srecode-dump ((ins srecode-template-inserter-newline) _indent) t #[(#1=#:cl--cnm ins _indent) " \210\302 \303\"\205
\304\305!\207" [#1# ins eieio-oref hard princ " : hard"] 3 "Dump the state of the SRecode template inserter INS."] defalias srecode-template-inserter-blank-p eieio-make-class-predicate srecode-template-inserter-blank srecode-template-inserter-blank--eieio-childp eieio-make-child-predicate srecode-template-inserter-blank-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-blank) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform "
" :allocation :class :documentation "The character representing this inserter style.\nCan't be blank, or it might be used by regular variable insertion.") (where :initform 'begin :initarg :where :documentation "This should be `begin' or `end', indicating where to insert a CR.\nWhen `begin', insert a CR if not at 'bol'.\nWhen `end', insert a CR if not at 'eol'.")) (:documentation "Insert a newline before and after a template, and possibly do indenting.\nSpecify the :blank argument to enable this inserter.")] 6)
#@70 Create a new object of class type `srecode-template-inserter-blank'.
(defalias 'srecode-template-inserter-blank #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-blank] 4 (#$ . 11122)])
(function-put 'srecode-template-inserter-blank 'compiler-macro 'srecode-template-inserter-blank--anon-cmacro)
(defalias 'srecode-template-inserter-blank--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\210\321\310\322\323\324$\207" [cl-generic-define-method srecode-insert-method nil ((sti srecode-template-inserter-blank) dictionary) #[(sti dictionary) "\306\307\"\310 !\311 \205 \312\313\314\"G\315U\205 \f\316=\2033 \2033 \317
\320\"\321=\2043 \322 \210\nb\210\317
\320\"\321=\203G n\204G \323\324!\210\202c \317
\320\"\325=\203c \326\327!\203[ `\330 |\210l\204c \323\324!\210\311 \f\316=\205 \205 \317
\320\"\325=?\205 \322 \210\nb+\207" [dictionary standard-output pm inbuff i sti srecode-dictionary-lookup-name "INDENT" bufferp point-marker eieio-oref-default srecode-template active 1 t eieio-oref where begin indent-according-to-mode princ "\n" end looking-at "\\s-*$" point-at-eol] 3 "Make sure there is no text before or after point."] defalias srecode-template-inserter-comment-p eieio-make-class-predicate srecode-template-inserter-comment srecode-template-inserter-comment--eieio-childp eieio-make-child-predicate srecode-template-inserter-comment-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-comment) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform 33 :allocation :class :documentation "The character code used to identify inserters of this style.")) (:documentation "Allow comments within template coding. This inserts nothing.")] 6)
#@72 Create a new object of class type `srecode-template-inserter-comment'.
(defalias 'srecode-template-inserter-comment #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-comment] 4 (#$ . 13185)])
(function-put 'srecode-template-inserter-comment 'compiler-macro 'srecode-template-inserter-comment--anon-cmacro)
(defalias 'srecode-template-inserter-comment--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\210\324\313\325\326\327$\207" [cl-generic-define-method srecode-inserter-prin-example nil ((_ins (subclass srecode-template-inserter-comment)) escape-start escape-end) #[(_ins escape-start escape-end) "\302\303!\210\302!\210\302\304!\210\302 !\210\305 \207" [escape-start escape-end princ " " "! Miscellaneous text commenting in your template. " terpri] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."] srecode-insert-method ((_sti srecode-template-inserter-comment) _dictionary) #[(_sti _dictionary) "\300\207" [nil] 1 "Don't insert anything for comment macros in STI."] defalias srecode-template-inserter-variable-p eieio-make-class-predicate srecode-template-inserter-variable srecode-template-inserter-variable--eieio-childp eieio-make-child-predicate srecode-template-inserter-variable-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-variable) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform nil :allocation :class :documentation "The character code used to identify inserters of this style.")) (:documentation "Insert the value of a dictionary entry.\nIf there is no entry, insert nothing.")] 6)
#@73 Create a new object of class type `srecode-template-inserter-variable'.
(defalias 'srecode-template-inserter-variable #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-variable] 4 (#$ . 15204)])
(function-put 'srecode-template-inserter-variable 'compiler-macro 'srecode-template-inserter-variable--anon-cmacro)
(defalias 'srecode-template-inserter-variable--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
#@55 The active dictionary when calling a variable filter.
(defvar srecode-inserter-variable-current-dictionary nil (#$ . 15796))
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\210\324\313\325\326\327$\207" [cl-generic-define-method srecode-insert-variable-secondname-handler nil ((sti srecode-template-inserter-variable) dictionary value secondname) #[(sti dictionary value secondname) "\203! \306!\307 !\203 \n \f!)\202 \310\n\311\312
!$)\207\f\207" [secondname fcnpart dictionary srecode-inserter-variable-current-dictionary value sti read fboundp srecode-insert-report-error "Variable inserter %s: second argument `%s' is not a function" object-print] 5 "For VALUE handle SECONDNAME behaviors for this variable inserter.\nReturn the result as a string.\nBy default, treat as a function name.\nIf SECONDNAME is nil, return VALUE."] srecode-insert-method ((sti srecode-template-inserter-variable) dictionary) #[(sti dictionary) "\306\307\"\306\310\"\311 \" \312 \f\204 \313\314 \"\210\315\f;\203+ \316 \f\n$\202] \317\f!\203H \n\2039 \320\n!\321\f\n #\211\204] \322\202] \323\f!\203W \324 \325 #\210\202] \324 \326 #\210
\205d \327\f!,\207" [sti name fcnpart dictionary val do-princ eieio-oref :object-name :secondname srecode-dictionary-lookup-name t message "Warning: macro %S was not found in the dictionary." "" srecode-insert-variable-secondname-handler srecode-dictionary-compound-value--eieio-childp read srecode-compound-toString nil srecode-dictionary--eieio-childp srecode-insert-report-error "Macro %s cannot insert a dictionary - use section macros instead" "Macro %s cannot insert arbitrary data" princ] 6 "Insert the STI inserter."] defalias srecode-template-inserter-ask-p eieio-make-class-predicate srecode-template-inserter-ask srecode-template-inserter-ask--eieio-childp eieio-make-child-predicate srecode-template-inserter-ask-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-ask) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter-variable) ((key :initform 63 :allocation :class :documentation "The character code used to identify inserters of this style.") (prompt :initarg :prompt :initform nil :documentation "The prompt used to query for this dictionary value.") (defaultfcn :initarg :defaultfcn :initform nil :documentation "The function which can calculate a default value.") (read-fcn :initarg :read-fcn :initform 'read-string :documentation "The function used to read in the text for this prompt.")) (:documentation "Insert the value of a dictionary entry.\nIf there is no entry, prompt the user for the value to use.\nThe prompt text used is derived from the previous PROMPT command in the\ntemplate file.")] 6)
#@68 Create a new object of class type `srecode-template-inserter-ask'.
(defalias 'srecode-template-inserter-ask #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-ask] 4 (#$ . 18645)])
(function-put 'srecode-template-inserter-ask 'compiler-macro 'srecode-template-inserter-ask--anon-cmacro)
(defalias 'srecode-template-inserter-ask--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\322\302\323\307\324%\210\325\326\327\330!\"\210\325\331\332\330!\"\210\325\333\331\"\210\334\333\335\336#\210\337\330\340\331#\210\341\330\342\343\344$\207" [cl-generic-define-method srecode-inserter-apply-state nil ((ins srecode-template-inserter-ask) STATE) #[(ins STATE) "\305\301\"\211\205_ @\211@)\305 \306\"\230\203W \307 \310 @\311 \312\n\313\n8)\f\"*#\210\307 \314 @\315 \312\n\313\n8)\f\"*#\210\307 \316 @\317 \312\n\313\n8)\f\"*\206U \320#\210 A\211\204 \321)\207" [STATE prompts tag ins attribute eieio-oref :object-name eieio-oset :prompt :text plist-get 2 :defaultfcn :default :read-fcn :read read-string nil] 7 "For the template inserter INS, apply information from STATE.\nLoop over the prompts to see if we have a match."] srecode-insert-method ((sti srecode-template-inserter-ask) dictionary) t #[(#1=#:cl--cnm sti dictionary) "\305\306 \307\"\"\211\203 \202/ \f\203 \310 \"\202\" \311 \"\312\313!\306 \307\"\n#\210 )\207" [dictionary sti val #1# srecode-insert-with-fields-in-progress srecode-dictionary-lookup-name eieio-oref :object-name srecode-insert-method-field srecode-insert-method-ask srecode-dictionary-set-value srecode-root-dictionary] 6 "Insert the STI inserter."] srecode-insert-ask-default ((sti srecode-template-inserter-ask) dictionary) #[(sti dictionary) "\303\304\"\211;\203 \202: \305 !\203 \202: <\203- @\306=\203- \307\n A\"\202: \2045 \310\202: \311\n\312 #)\207" [sti defaultfcn dictionary eieio-oref :defaultfcn functionp macro srecode-dictionary-lookup-name #2="" srecode-insert-report-error "Unknown default for prompt: %S"] 5 "Derive the default value for an askable inserter STI.\nDICTIONARY is used to derive some values."] srecode-insert-method-ask ((sti srecode-template-inserter-ask) dictionary) #[(sti dictionary) "\306\301\"\307\n\"\306\310\" \311 \f\312=\2031 \312 \206# \313\314\306\315\"\"!\203, \202\\ \316\202\\ \f\317=\203K \313\320\317 \206E \313\321\306\315\"\"!\"\202\\ \212\f \206X \313\322\306\315\"\" \")
,\207" [sti prompt dictionary default reader val eieio-oref srecode-insert-ask-default :read-fcn nil y-or-n-p format "%s? " :object-name #2# read-char "%c" "Char for %s: " "Specify %s: "] 8 "Do the \"asking\" for the template inserter STI.\nUse DICTIONARY to resolve values."] srecode-insert-method-field ((sti srecode-template-inserter-ask) dictionary) #[(sti dictionary) "\303 \"\304\305\306\"\307\310\n%)\207" [sti dictionary default srecode-insert-ask-default srecode-field-value eieio-oref :object-name :firstinserter :defaultvalue] 7 "Create an editable field for the template inserter STI.\nUse DICTIONARY to resolve values."] srecode-dump ((ins srecode-template-inserter-ask) _indent) #[(#3=#:cl--cnm ins _indent) " \210\302\303!\210\302\304 \305\"!\210\302\306!\207" [#3# ins princ " : \"" eieio-oref prompt "\""] 4 "Dump the state of the SRecode template inserter INS."] defalias srecode-template-inserter-width-p eieio-make-class-predicate srecode-template-inserter-width srecode-template-inserter-width--eieio-childp eieio-make-child-predicate srecode-template-inserter-width-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-width) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter-variable) ((key :initform 124 :allocation :class :documentation "The character code used to identify inserters of this style.")) (:documentation "Inserts the value of a dictionary variable with a specific width.\nThe second argument specifies the width, and a pad, separated by a colon.\nThus a specification of `10:left' will insert the value of A\nto 10 characters, with spaces added to the left. Use `right' for adding\nspaces to the right.")] 6)
#@70 Create a new object of class type `srecode-template-inserter-width'.
(defalias 'srecode-template-inserter-width #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-width] 4 (#$ . 23097)])
(function-put 'srecode-template-inserter-width 'compiler-macro 'srecode-template-inserter-width--anon-cmacro)
(defalias 'srecode-template-inserter-width--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method srecode-insert-variable-secondname-handler nil ((_sti srecode-template-inserter-width) dictionary value width) #[(_sti dictionary value width) "\204 \306 \307\"\210\310\311\"\312\n@!\nA@\211\203! \313\230\203% \314\2024 \315\230\203/ \316\2024 \306 \317 #
GY\203C
\320O\202^ \321
GZ\322\" \f\316=\203Y
P\202]
P),\207" [width dictionary split second pad value srecode-insert-report-error "Width not specified for variable/width inserter" split-string ":" string-to-number "right" right "left" left "Unknown pad type %s" 0 make-string 32 padchars] 5 "For VALUE handle WIDTH behaviors for this variable inserter.\nReturn the result as a string.\nBy default, treat as a function name."] srecode-inserter-prin-example ((_ins (subclass srecode-template-inserter-width)) escape-start escape-end) #[(_ins escape-start escape-end) "\302\303!\210\302!\210\302\304!\210\302 !\210\305 \207" [escape-start escape-end princ " " "|A:10:right" terpri] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."]] 6)
#@298 Point-positioning method for the SRecode template inserter.
When nil, perform normal point-positioning behavior.
When the value is a cons cell (DEPTH . FUNCTION), call FUNCTION
instead, unless the template nesting depth, measured
by (length (oref srecode-template active)), is greater than
DEPTH.
(defvar srecode-template-inserter-point-override nil (#$ . 24856))
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\210\314\303\315\316\317$\207" [defalias srecode-template-inserter-point-p eieio-make-class-predicate srecode-template-inserter-point srecode-template-inserter-point--eieio-childp eieio-make-child-predicate srecode-template-inserter-point-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-point) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform 94 :allocation :class :documentation "The character code used to identify inserters of this style.") (point :type (or null marker) :allocation :class :documentation "Record the value of (point) in this class slot.\nIt is the responsibility of the inserter algorithm to clear this\nafter a successful insertion.")) (:documentation "Record the value of (point) when inserted.\nThe cursor is placed at the ^ macro after insertion.\nSome inserter macros, such as `srecode-template-inserter-include-wrap'\nwill place text at the ^ macro from the included macro.")] 5)
#@70 Create a new object of class type `srecode-template-inserter-point'.
(defalias 'srecode-template-inserter-point #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-point] 4 (#$ . 26326)])
(function-put 'srecode-template-inserter-point 'compiler-macro 'srecode-template-inserter-point--anon-cmacro)
(defalias 'srecode-template-inserter-point--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\210\324\313\325\302\326$\207" [cl-generic-define-method srecode-inserter-prin-example nil ((_ins (subclass srecode-template-inserter-point)) escape-start escape-end) #[(_ins escape-start escape-end) "\302\303!\210\302!\210\302\304!\210\302 !\210\305 \207" [escape-start escape-end princ " " "^" terpri] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."] srecode-insert-method ((sti srecode-template-inserter-point) dictionary) #[(sti dictionary) "\203 \304\305\306\"G@X\203 A\307\211\n!*\207\310 \311\312 #\207" [srecode-template-inserter-point-override over dictionary sti eieio-oref-default srecode-template active nil eieio-oset point point-marker] 5 "Insert the STI inserter.\nSave point in the class allocated `point' slot.\nIf `srecode-template-inserter-point-override' non-nil then this\ngeneralized marker will do something else. See\n`srecode-template-inserter-include-wrap' as an example."] defalias srecode-template-inserter-subtemplate-p eieio-make-class-predicate srecode-template-inserter-subtemplate srecode-template-inserter-subtemplate--eieio-childp eieio-make-child-predicate srecode-template-inserter-subtemplate-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-subtemplate) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) (:documentation "Wrap a section of a template under the control of a macro." :abstract t)] 6)
#@81 You cannot create a new object of type `srecode-template-inserter-subtemplate'.
(defalias 'srecode-template-inserter-subtemplate #[(&rest _) "\300\301!\207" [error "Class srecode-template-inserter-subtemplate is abstract"] 2 (#$ . 28556)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\317\320\321\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\210\333\322\334\335\336$\207" [cl-generic-define-method srecode-inserter-prin-example nil ((_ins (subclass srecode-template-inserter-subtemplate)) escape-start escape-end) t #[(#1=#:cl--cnm _ins escape-start escape-end) " \210\303\304!\210\305 \210\303\306!\210\303 !\210\303\307!\210\303\n!\210\305 \207" [#1# escape-start escape-end princ " Template Text to control" terpri " " "/VARNAME"] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."] srecode-insert-subtemplate ((sti srecode-template-inserter-subtemplate) dict slot) #[(sti dict slot) "\303!\204 \304\305\306 !#\210\307\310 \n\"\"\207" [dict sti slot srecode-dictionary--eieio-childp srecode-insert-report-error "Only section dictionaries allowed for `%s'" eieio-object-name-string srecode-insert-method slot-value] 5 "Insert a subtemplate for the inserter STI with dictionary DICT."] srecode-insert-method-helper ((sti srecode-template-inserter-subtemplate) dictionary slot) #[(sti dictionary slot) "\304\305 \306\"\"\211<\204 \307\310\305 \306\"#\210\n\2059 \311\n@!\204* \307\310\305 \306\"#\210\312 \n@ #\210\nA\211\204 \313)\207" [dictionary sti dicts slot srecode-dictionary-lookup-name eieio-oref :object-name srecode-insert-report-error "Cannot insert section %S from non-section variable." srecode-dictionary-p srecode-insert-subtemplate nil] 7 "Do the work for inserting the STI inserter.\nLoops over the embedded CODE which was saved here during compilation.\nThe template to insert is stored in SLOT."] srecode-insert-method ((sti srecode-template-inserter-subtemplate) dictionary) #[(sti dictionary) "\302 \303#\207" [sti dictionary srecode-insert-method-helper template] 4 "Insert the STI inserter.\nCalls back to `srecode-insert-method-helper' for this class."] defalias srecode-template-inserter-section-start-p eieio-make-class-predicate srecode-template-inserter-section-start srecode-template-inserter-section-start--eieio-childp eieio-make-child-predicate srecode-template-inserter-section-start-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-section-start) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter-subtemplate) ((key :initform 35 :allocation :class :documentation "The character code used to identify inserters of this style.") (template :initarg :template :documentation "A template used to frame the codes from this inserter.")) (:documentation "Apply values from a sub-dictionary to a template section.\nThe dictionary saved at the named dictionary entry will be\napplied to the text between the section start and the\n`srecode-template-inserter-section-end' macro.")] 6)
#@78 Create a new object of class type `srecode-template-inserter-section-start'.
(defalias 'srecode-template-inserter-section-start #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-section-start] 4 (#$ . 31751)])
(function-put 'srecode-template-inserter-section-start 'compiler-macro 'srecode-template-inserter-section-start--anon-cmacro)
(defalias 'srecode-template-inserter-section-start--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312\313\314!\"\210\311\315\316\314!\"\210\311\317\315\"\210\320\317\321\322#\210\323\314\324\315#\210\325\314\326\327\330$\207" [cl-generic-define-method srecode-parse-input nil ((ins srecode-template-inserter-section-start) tag input STATE) #[(ins tag input STATE) "\305 \n\306 \307\"$ \310 \311\312\313 !\314\315\316\315\317\fA&#\210\f@)\207" [tag input STATE ins out srecode-compile-split-code eieio-oref :object-name eieio-oset template srecode-template eieio-object-name-string :context nil :args :code] 11 "For the section inserter INS, parse INPUT.\nShorten input until the END token is found.\nReturn the remains of INPUT."] srecode-dump ((ins srecode-template-inserter-section-start) indent) t #[(#1=#:cl--cnm ins indent) " \210\303\304!\210\305\306\211 \307\"\310\"\n\311P\"\207" [#1# ins indent princ "\n" srecode-dump-code-list eieio-oref template code " "] 5 "Dump the state of the SRecode template inserter INS."] defalias srecode-template-inserter-section-end-p eieio-make-class-predicate srecode-template-inserter-section-end srecode-template-inserter-section-end--eieio-childp eieio-make-child-predicate srecode-template-inserter-section-end-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-section-end) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter) ((key :initform 47 :allocation :class :documentation "The character code used to identify inserters of this style.")) (:documentation "All template segments between the section-start and section-end\nare treated specially.")] 6)
#@76 Create a new object of class type `srecode-template-inserter-section-end'.
(defalias 'srecode-template-inserter-section-end #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-section-end] 4 (#$ . 34016)])
(function-put 'srecode-template-inserter-section-end 'compiler-macro 'srecode-template-inserter-section-end--anon-cmacro)
(defalias 'srecode-template-inserter-section-end--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\210\324\313\325\326\327$\207" [cl-generic-define-method srecode-insert-method nil ((_sti srecode-template-inserter-section-end) _dictionary) #[(_sti _dictionary) "\300\207" ["Insert the STI inserter."] 1] srecode-match-end ((ins srecode-template-inserter-section-end) name) #[(ins name) "\302 \303\"\230\207" [name ins eieio-oref :object-name] 4 "For the template inserter INS, do I end a section called NAME?"] defalias srecode-template-inserter-include-p eieio-make-class-predicate srecode-template-inserter-include srecode-template-inserter-include--eieio-childp eieio-make-child-predicate srecode-template-inserter-include-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-include) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter-subtemplate) ((key :initform 62 :allocation :class :documentation "The character code used to identify inserters of this style.") (includedtemplate :initarg :includedtemplate :documentation "The template included for this inserter.")) (:documentation "Include a different template into this one.\nThe included template will have additional dictionary entries from the subdictionary\nstored specified by this macro.")] 6)
#@72 Create a new object of class type `srecode-template-inserter-include'.
(defalias 'srecode-template-inserter-include #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-include] 4 (#$ . 36017)])
(function-put 'srecode-template-inserter-include 'compiler-macro 'srecode-template-inserter-include--anon-cmacro)
(defalias 'srecode-template-inserter-include--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314\315\316!\"\210\313\317\320\316!\"\210\313\321\317\"\210\322\321\323\324#\210\325\316\326\317#\210\327\316\330\331\332$\207" [cl-generic-define-method srecode-inserter-prin-example nil ((_ins (subclass srecode-template-inserter-include)) escape-start escape-end) #[(_ins escape-start escape-end) "\302\303!\210\302!\210\302\304!\210\302 !\210\305 \207" [escape-start escape-end princ " " ">DICTNAME:contextname:templatename" terpri] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."] srecode-insert-include-lookup ((sti srecode-template-inserter-include) dictionary) #[(sti dictionary) "\306\307\"\211\204 \310\n\311\306\312\"#\210\313\314 \"\315\316\304\"\317 \211 \204l
\204b \f\203b \306\f@\320\"\313\314 #\211\204\\ \321\f@\322\"\203\\ \306\211\f@\322\"\323\"\211 \203[ \313\314 $)\fA\202#
\204l \313\314 \"\324\325
#\210+\306\326\"?\205\204 \310\n\327 \306\312\"$)\207" [sti templatenamepart dictionary ctxt active tmpl eieio-oref :secondname srecode-insert-report-error "Include macro `%s' needs a template name" :object-name srecode-template-get-table srecode-table eieio-oref-default srecode-template nil context slot-boundp table application eieio-oset :includedtemplate includedtemplate "No template \"%s\" found for include macro `%s'" app] 8 "For the template inserter STI, lookup the template to include.\nFinds the template with this macro function part and stores it in\nthis template instance."] srecode-insert-method ((sti srecode-template-inserter-include) dictionary) #[(sti dictionary) "\302 \"\210\303 \304\305\"\"\203 \306 \307#\207\310 \307#\207" [sti dictionary srecode-insert-include-lookup srecode-dictionary-lookup-name eieio-oref :object-name srecode-insert-method-helper includedtemplate srecode-insert-subtemplate] 5 "Insert the STI inserter.\nFinds the template with this macro function part, and inserts it\nwith the dictionaries found in the dictionary."] defalias srecode-template-inserter-include-wrap-p eieio-make-class-predicate srecode-template-inserter-include-wrap srecode-template-inserter-include-wrap--eieio-childp eieio-make-child-predicate srecode-template-inserter-include-wrap-child-p make-obsolete "use (cl-typep ... 'srecode-template-inserter-include-wrap) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (srecode-template-inserter-include srecode-template-inserter-section-start) ((key :initform 60 :allocation :class :documentation "The character code used to identify inserters of this style.")) (:documentation "Include a different template into this one, and add text at the ^ macro.\nThe included template will have additional dictionary entries from the subdictionary\nstored specified by this macro. If the included macro includes a ^ macro,\nthen the text between this macro and the end macro will be inserted at\nthe ^ macro.")] 6)
#@77 Create a new object of class type `srecode-template-inserter-include-wrap'.
(defalias 'srecode-template-inserter-include-wrap #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-template-inserter-include-wrap] 4 (#$ . 39623)])
(function-put 'srecode-template-inserter-include-wrap 'compiler-macro 'srecode-template-inserter-include-wrap--anon-cmacro)
(defalias 'srecode-template-inserter-include-wrap--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\307\310%\210\311\312!\207" [cl-generic-define-method srecode-inserter-prin-example nil ((_ins (subclass srecode-template-inserter-include-wrap)) escape-start escape-end) #[(_ins escape-start escape-end) "\302\303!\210\302!\210\302\304!\210\302 !\210\305 \210\302\306!\210\305 \210\302\303!\210\302!\210\302\307!\210\302 !\210\305 \207" [escape-start escape-end princ " " "<DICTNAME:contextname:templatename" terpri " Template Text to insert at ^ macro" "/DICTNAME"] 2 "Insert an example using inserter INS.\nArguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."] srecode-insert-method ((sti srecode-template-inserter-include-wrap) dictionary) t #[(#1=#:cl--cnm sti dictionary) "\306 \"\210\307\310!\211\211L\210)\311\312\313\"GT\314\315\316\317\320D\317\nD\321FE)B
)\207" [sti dictionary #:--cl-inserter1-- #:v srecode-template-inserter-point-override #1# srecode-insert-include-lookup make-symbol "--inserter1--" eieio-oref-default srecode-template active lambda (&rest --cl-rest--) apply quote #[(#2=#:G0 dict) "\303\304 \305\nJ\306\"\"\203 \307\nJ \310#\202 \311\nJ \310#)\207" [srecode-template-inserter-point-override dict #2# nil srecode-dictionary-lookup-name eieio-oref :object-name srecode-insert-method-helper template srecode-insert-subtemplate] 5] --cl-rest--] 8 "Insert the template STI.\nThis will first insert the include part via inheritance, then\ninsert the section it wraps into the location in the included\ntemplate where a ^ inserter occurs."] provide srecode/insert] 6)
Kontol Shell Bypass