;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315&\207" [require xml cl-lib seq custom-declare-variable javaimp-cygpath-program funcall function #[0 "\301=\205\302\207" [system-type cygwin "cygpath"] 2] "Path to the `cygpath' program (Cygwin only). Customize it if\nthe program is not on `exec-path'." :group javaimp :type string] 8) (defconst javaimp-debug-buf-name "*javaimp-debug*") (defconst javaimp--basedir (file-name-directory load-file-name)) #@71 compiler-macro for inlining `javaimp-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-node-p (and (memq (type-of cl-x) cl-struct-javaimp-node-tags) t)) nil] 9 (#$ . 587)]) (put 'javaimp-node-p 'compiler-macro 'javaimp-node-p--cmacro) #@13 (fn CL-X) (defalias 'javaimp-node-p #[257 "\301!>\205 \302\207" [cl-struct-javaimp-node-tags type-of t] 3 (#$ . 932)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put javaimp-node-p side-effect-free error-free put javaimp-node cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `javaimp-node-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-node-parent (progn (or (javaimp-node-p cl-x) (signal 'wrong-type-argument (list 'javaimp-node cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1213)]) (put 'javaimp-node-parent 'compiler-macro 'javaimp-node-parent--cmacro) #@64 Access slot "parent" of `javaimp-node' struct CL-X. (fn CL-X) (defalias 'javaimp-node-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-node-tags type-of signal wrong-type-argument javaimp-node 1] 5 (#$ . 1631)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-node-parent side-effect-free t] 4) #@78 compiler-macro for inlining `javaimp-node-children'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-node-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-node-children (progn (or (javaimp-node-p cl-x) (signal 'wrong-type-argument (list 'javaimp-node cl-x))) (aref cl-x 2))) nil] 9 (#$ . 1979)]) (put 'javaimp-node-children 'compiler-macro 'javaimp-node-children--cmacro) #@66 Access slot "children" of `javaimp-node' struct CL-X. (fn CL-X) (defalias 'javaimp-node-children #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-node-tags type-of signal wrong-type-argument javaimp-node 2] 5 (#$ . 2407)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-node-children side-effect-free t] 4) #@78 compiler-macro for inlining `javaimp-node-contents'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-node-contents--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-node-contents (progn (or (javaimp-node-p cl-x) (signal 'wrong-type-argument (list 'javaimp-node cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2761)]) (put 'javaimp-node-contents 'compiler-macro 'javaimp-node-contents--cmacro) #@66 Access slot "contents" of `javaimp-node' struct CL-X. (fn CL-X) (defalias 'javaimp-node-contents #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-node-tags type-of signal wrong-type-argument javaimp-node 3] 5 (#$ . 3189)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put javaimp-node-contents side-effect-free t defalias copy-javaimp-node copy-sequence] 4) #@105 compiler-macro for inlining `make-javaimp-node'. (fn CL-WHOLE &cl-quote &key PARENT CHILDREN CONTENTS) (defalias 'make-javaimp-node--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :parent :children :contents (:parent :children :contents :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :children :contents)" cl--defsubst-expand (parent children contents) (cl-block make-javaimp-node (record 'javaimp-node parent children contents))] 14 (#$ . 3595)]) (put 'make-javaimp-node 'compiler-macro 'make-javaimp-node--cmacro) #@85 Constructor for objects of type `javaimp-node'. (fn &key PARENT CHILDREN CONTENTS) (defalias 'make-javaimp-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :parent :children :contents (:parent :children :contents :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :children :contents)" record javaimp-node] 9 (#$ . 4314)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-javaimp-node side-effect-free t cl-struct-define javaimp-node nil cl-structure-object record ((cl-tag-slot) (parent) (children) (contents)) cl-struct-javaimp-node-tags] 11) #@73 compiler-macro for inlining `javaimp-module-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-p (and (memq (type-of cl-x) cl-struct-javaimp-module-tags) t)) nil] 9 (#$ . 5083)]) (put 'javaimp-module-p 'compiler-macro 'javaimp-module-p--cmacro) #@13 (fn CL-X) (defalias 'javaimp-module-p #[257 "\301!>\205 \302\207" [cl-struct-javaimp-module-tags type-of t] 3 (#$ . 5441)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put javaimp-module-p side-effect-free error-free put javaimp-module cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `javaimp-module-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-id (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 1))) nil] 9 (#$ . 5731)]) (put 'javaimp-module-id 'compiler-macro 'javaimp-module-id--cmacro) #@62 Access slot "id" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 1] 5 (#$ . 6143)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-id side-effect-free t] 4) #@81 compiler-macro for inlining `javaimp-module-parent-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-parent-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-parent-id (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 2))) nil] 9 (#$ . 6489)]) (put 'javaimp-module-parent-id 'compiler-macro 'javaimp-module-parent-id--cmacro) #@69 Access slot "parent-id" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-parent-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 2] 5 (#$ . 6936)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-parent-id side-effect-free t] 4) #@76 compiler-macro for inlining `javaimp-module-file'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-file (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 3))) nil] 9 (#$ . 7303)]) (put 'javaimp-module-file 'compiler-macro 'javaimp-module-file--cmacro) #@64 Access slot "file" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-file #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 3] 5 (#$ . 7725)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-file side-effect-free t] 4) #@81 compiler-macro for inlining `javaimp-module-file-orig'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-file-orig--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-file-orig (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 4))) nil] 9 (#$ . 8077)]) (put 'javaimp-module-file-orig 'compiler-macro 'javaimp-module-file-orig--cmacro) #@69 Access slot "file-orig" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-file-orig #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 4] 5 (#$ . 8524)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-file-orig side-effect-free t] 4) #@82 compiler-macro for inlining `javaimp-module-final-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-final-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-final-name (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 5))) nil] 9 (#$ . 8891)]) (put 'javaimp-module-final-name 'compiler-macro 'javaimp-module-final-name--cmacro) #@70 Access slot "final-name" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-final-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 5] 5 (#$ . 9343)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-final-name side-effect-free t] 4) #@83 compiler-macro for inlining `javaimp-module-source-dirs'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-source-dirs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-source-dirs (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 6))) nil] 9 (#$ . 9713)]) (put 'javaimp-module-source-dirs 'compiler-macro 'javaimp-module-source-dirs--cmacro) #@71 Access slot "source-dirs" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-source-dirs #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 6] 5 (#$ . 10170)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-source-dirs side-effect-free t] 4) #@81 compiler-macro for inlining `javaimp-module-build-dir'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-build-dir--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-build-dir (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 7))) nil] 9 (#$ . 10544)]) (put 'javaimp-module-build-dir 'compiler-macro 'javaimp-module-build-dir--cmacro) #@69 Access slot "build-dir" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-build-dir #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 7] 5 (#$ . 10992)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-build-dir side-effect-free t] 4) #@80 compiler-macro for inlining `javaimp-module-dep-jars'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-dep-jars--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-dep-jars (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 8))) nil] 9 (#$ . 11360)]) (put 'javaimp-module-dep-jars 'compiler-macro 'javaimp-module-dep-jars--cmacro) #@68 Access slot "dep-jars" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-dep-jars #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 8] 5 (#$ . 11803)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-dep-jars side-effect-free t] 4) #@79 compiler-macro for inlining `javaimp-module-load-ts'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-load-ts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-load-ts (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 9))) nil] 9 (#$ . 12168)]) (put 'javaimp-module-load-ts 'compiler-macro 'javaimp-module-load-ts--cmacro) #@67 Access slot "load-ts" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-load-ts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 9] 5 (#$ . 12606)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-module-load-ts side-effect-free t] 4) #@93 compiler-macro for inlining `javaimp-module-dep-jars-path-fetcher'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-module-dep-jars-path-fetcher--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-module-dep-jars-path-fetcher (progn (or (javaimp-module-p cl-x) (signal 'wrong-type-argument (list 'javaimp-module cl-x))) (aref cl-x 10))) nil] 9 (#$ . 12968)]) (put 'javaimp-module-dep-jars-path-fetcher 'compiler-macro 'javaimp-module-dep-jars-path-fetcher--cmacro) #@81 Access slot "dep-jars-path-fetcher" of `javaimp-module' struct CL-X. (fn CL-X) (defalias 'javaimp-module-dep-jars-path-fetcher #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 10] 5 (#$ . 13477)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put javaimp-module-dep-jars-path-fetcher side-effect-free t defalias copy-javaimp-module copy-sequence] 4) #@182 compiler-macro for inlining `make-javaimp-module'. (fn CL-WHOLE &cl-quote &key ID PARENT-ID FILE FILE-ORIG FINAL-NAME SOURCE-DIRS BUILD-DIR DEP-JARS LOAD-TS DEP-JARS-PATH-FETCHER) (defalias 'make-javaimp-module--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n\211@\313>\203V\211AA\262\202C\314\f>A@\203e\315\262\202C\316\317@\"\210\202C\210\320\321\322\315\315&\207" [plist-member :id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher (:id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher)" cl--defsubst-expand (id parent-id file file-orig final-name source-dirs build-dir dep-jars load-ts dep-jars-path-fetcher) (cl-block make-javaimp-module (record 'javaimp-module id parent-id file file-orig final-name source-dirs build-dir dep-jars load-ts dep-jars-path-fetcher))] 28 (#$ . 13936)]) (put 'make-javaimp-module 'compiler-macro 'make-javaimp-module--cmacro) #@162 Constructor for objects of type `javaimp-module'. (fn &key ID PARENT-ID FILE FILE-ORIG FINAL-NAME SOURCE-DIRS BUILD-DIR DEP-JARS LOAD-TS DEP-JARS-PATH-FETCHER) (defalias 'make-javaimp-module #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n\211@\313>\203V\211AA\262\202C\314\f>A@\203e\315\262\202C\316\317@\"\210\202C\210\320\321          & \207" [plist-member :id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher (:id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :parent-id :file :file-orig :final-name :source-dirs :build-dir :dep-jars :load-ts :dep-jars-path-fetcher)" record javaimp-module] 23 (#$ . 15255)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-javaimp-module side-effect-free t cl-struct-define javaimp-module nil cl-structure-object record ((cl-tag-slot) (id) (parent-id) (file) (file-orig) (final-name) (source-dirs) (build-dir) (dep-jars) (load-ts) (dep-jars-path-fetcher)) cl-struct-javaimp-module-tags] 11) #@69 compiler-macro for inlining `javaimp-id-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-id-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-id-p (and (memq (type-of cl-x) cl-struct-javaimp-id-tags) t)) nil] 9 (#$ . 16567)]) (put 'javaimp-id-p 'compiler-macro 'javaimp-id-p--cmacro) #@13 (fn CL-X) (defalias 'javaimp-id-p #[257 "\301!>\205 \302\207" [cl-struct-javaimp-id-tags type-of t] 3 (#$ . 16902)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put javaimp-id-p side-effect-free error-free put javaimp-id cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `javaimp-id-group'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-id-group--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-id-group (progn (or (javaimp-id-p cl-x) (signal 'wrong-type-argument (list 'javaimp-id cl-x))) (aref cl-x 1))) nil] 9 (#$ . 17177)]) (put 'javaimp-id-group 'compiler-macro 'javaimp-id-group--cmacro) #@61 Access slot "group" of `javaimp-id' struct CL-X. (fn CL-X) (defalias 'javaimp-id-group #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-id-tags type-of signal wrong-type-argument javaimp-id 1] 5 (#$ . 17577)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-id-group side-effect-free t] 4) #@76 compiler-macro for inlining `javaimp-id-artifact'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-id-artifact--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-id-artifact (progn (or (javaimp-id-p cl-x) (signal 'wrong-type-argument (list 'javaimp-id cl-x))) (aref cl-x 2))) nil] 9 (#$ . 17913)]) (put 'javaimp-id-artifact 'compiler-macro 'javaimp-id-artifact--cmacro) #@64 Access slot "artifact" of `javaimp-id' struct CL-X. (fn CL-X) (defalias 'javaimp-id-artifact #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-id-tags type-of signal wrong-type-argument javaimp-id 2] 5 (#$ . 18328)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-id-artifact side-effect-free t] 4) #@75 compiler-macro for inlining `javaimp-id-version'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-id-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-id-version (progn (or (javaimp-id-p cl-x) (signal 'wrong-type-argument (list 'javaimp-id cl-x))) (aref cl-x 3))) nil] 9 (#$ . 18673)]) (put 'javaimp-id-version 'compiler-macro 'javaimp-id-version--cmacro) #@63 Access slot "version" of `javaimp-id' struct CL-X. (fn CL-X) (defalias 'javaimp-id-version #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-id-tags type-of signal wrong-type-argument javaimp-id 3] 5 (#$ . 19083)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put javaimp-id-version side-effect-free t defalias copy-javaimp-id copy-sequence] 4) #@101 compiler-macro for inlining `make-javaimp-id'. (fn CL-WHOLE &cl-quote &key GROUP ARTIFACT VERSION) (defalias 'make-javaimp-id--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :group :artifact :version (:group :artifact :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:group :artifact :version)" cl--defsubst-expand (group artifact version) (cl-block make-javaimp-id (record 'javaimp-id group artifact version))] 14 (#$ . 19475)]) (put 'make-javaimp-id 'compiler-macro 'make-javaimp-id--cmacro) #@81 Constructor for objects of type `javaimp-id'. (fn &key GROUP ARTIFACT VERSION) (defalias 'make-javaimp-id #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :group :artifact :version (:group :artifact :version :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:group :artifact :version)" record javaimp-id] 9 (#$ . 20171)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-javaimp-id side-effect-free t cl-struct-define javaimp-id nil cl-structure-object record ((cl-tag-slot) (group) (artifact) (version)) cl-struct-javaimp-id-tags] 11) #@77 compiler-macro for inlining `javaimp-cached-jar-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-cached-jar-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-cached-jar-p (and (memq (type-of cl-x) cl-struct-javaimp-cached-jar-tags) t)) nil] 9 (#$ . 20919)]) (put 'javaimp-cached-jar-p 'compiler-macro 'javaimp-cached-jar-p--cmacro) #@13 (fn CL-X) (defalias 'javaimp-cached-jar-p #[257 "\301!>\205 \302\207" [cl-struct-javaimp-cached-jar-tags type-of t] 3 (#$ . 21302)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put javaimp-cached-jar-p side-effect-free error-free put javaimp-cached-jar cl-deftype-satisfies] 5) #@80 compiler-macro for inlining `javaimp-cached-jar-file'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-cached-jar-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-cached-jar-file (progn (or (javaimp-cached-jar-p cl-x) (signal 'wrong-type-argument (list 'javaimp-cached-jar cl-x))) (aref cl-x 1))) nil] 9 (#$ . 21609)]) (put 'javaimp-cached-jar-file 'compiler-macro 'javaimp-cached-jar-file--cmacro) #@68 Access slot "file" of `javaimp-cached-jar' struct CL-X. (fn CL-X) (defalias 'javaimp-cached-jar-file #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-cached-jar-tags type-of signal wrong-type-argument javaimp-cached-jar 1] 5 (#$ . 22060)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-cached-jar-file side-effect-free t] 4) #@83 compiler-macro for inlining `javaimp-cached-jar-read-ts'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-cached-jar-read-ts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-cached-jar-read-ts (progn (or (javaimp-cached-jar-p cl-x) (signal 'wrong-type-argument (list 'javaimp-cached-jar cl-x))) (aref cl-x 2))) nil] 9 (#$ . 22433)]) (put 'javaimp-cached-jar-read-ts 'compiler-macro 'javaimp-cached-jar-read-ts--cmacro) #@71 Access slot "read-ts" of `javaimp-cached-jar' struct CL-X. (fn CL-X) (defalias 'javaimp-cached-jar-read-ts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-cached-jar-tags type-of signal wrong-type-argument javaimp-cached-jar 2] 5 (#$ . 22899)]) (byte-code "\300\301\302\303#\300\207" [function-put javaimp-cached-jar-read-ts side-effect-free t] 4) #@83 compiler-macro for inlining `javaimp-cached-jar-classes'. (fn CL-WHOLE-ARG CL-X) (defalias 'javaimp-cached-jar-classes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block javaimp-cached-jar-classes (progn (or (javaimp-cached-jar-p cl-x) (signal 'wrong-type-argument (list 'javaimp-cached-jar cl-x))) (aref cl-x 3))) nil] 9 (#$ . 23281)]) (put 'javaimp-cached-jar-classes 'compiler-macro 'javaimp-cached-jar-classes--cmacro) #@71 Access slot "classes" of `javaimp-cached-jar' struct CL-X. (fn CL-X) (defalias 'javaimp-cached-jar-classes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-javaimp-cached-jar-tags type-of signal wrong-type-argument javaimp-cached-jar 3] 5 (#$ . 23747)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put javaimp-cached-jar-classes side-effect-free t defalias copy-javaimp-cached-jar copy-sequence] 4) #@107 compiler-macro for inlining `make-javaimp-cached-jar'. (fn CL-WHOLE &cl-quote &key FILE READ-TS CLASSES) (defalias 'make-javaimp-cached-jar--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :file :read-ts :classes (:file :read-ts :classes :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:file :read-ts :classes)" cl--defsubst-expand (file read-ts classes) (cl-block make-javaimp-cached-jar (record 'javaimp-cached-jar file read-ts classes))] 14 (#$ . 24187)]) (put 'make-javaimp-cached-jar 'compiler-macro 'make-javaimp-cached-jar--cmacro) #@87 Constructor for objects of type `javaimp-cached-jar'. (fn &key FILE READ-TS CLASSES) (defalias 'make-javaimp-cached-jar #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :file :read-ts :classes (:file :read-ts :classes :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:file :read-ts :classes)" record javaimp-cached-jar] 9 (#$ . 24919)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-javaimp-cached-jar side-effect-free t cl-struct-define javaimp-cached-jar nil cl-structure-object record ((cl-tag-slot) (file) (read-ts) (classes)) cl-struct-javaimp-cached-jar-tags] 11) #@87 Returns list of children of XML-TREE filtered by CHILD-NAME (fn XML-TREE CHILD-NAME) (defalias 'javaimp--xml-children #[514 "\300\301\302\"AA\"\207" [seq-filter make-closure #[257 "\211:\205 \211@\300=\207" [V0] 3 "\n\n(fn CHILD)"]] 6 (#$ . 25705)]) #@58 Returns a child of EL named by symbol NAME (fn NAME EL) (defalias 'javaimp--xml-child #[514 "AA\236\207" [] 4 (#$ . 25965)]) #@38 Returns a first child of EL (fn EL) (defalias 'javaimp--xml-first-child #[257 "\211AA@\207" [] 2 (#$ . 26099)]) #@13 (fn FILE) (defalias 'javaimp--get-file-ts #[257 "\300\301!8\207" [5 file-attributes] 4 (#$ . 26218)]) #@11 (fn ID) (defalias 'javaimp-print-id #[257 "\301\302\303!>\204\304\305\306D\"\210\307H\303!>\204$\304\305\306D\"\210\310H\303!>\2047\304\305\306D\"\210\311H$\207" [cl-struct-javaimp-id-tags format "%s:%s:%s" type-of signal wrong-type-argument javaimp-id 2 1 3] 9 (#$ . 26329)]) (defalias 'javaimp--get-jdk-jars #[0 "\205\301!\205\302!\302\303!\302\304!Q\305\306\307#\262\207" [javaimp-java-home file-accessible-directory-p file-name-as-directory "jre" "lib" directory-files t "\\.jar\\'"] 5]) #@305 On Cygwin, converts PATH using cygpath according to MODE and IS-REALLY-PATH. If MODE is `unix' (the default), adds -u switch. If MODE is `windows', adds -m switch. If `is-really-path' is non-nil, adds `-p' switch. On other systems, PATH is returned unchanged. (fn PATH &optional MODE IS-REALLY-PATH) (defalias 'javaimp-cygpath-convert-maybe #[769 "\203<\302=\203<\204\303\262\304\305\267\202 \306\202$\307\202$\310\311\"C\262\2030\312B\262B\262\313\314 #@\207\207" [system-type javaimp-cygpath-program cygwin unix nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unix 24 windows 28)) "-u" "-m" error "Invalid mode: %s" "-p" apply process-lines] 8 (#$ . 26857)]) #@124 Runs PROGRAM with ARGS, then calls HANDLER in the temporary buffer and returns its result (fn PROGRAM HANDLER &rest ARGS) (defalias 'javaimp--call-build-tool #[642 "\303\304#\210\305\306\307\"r\211q\210\310\311\"\216\312=\205\313\314\315\316\307\316&)pr\317\n!q\210\320 \210\321!\210)\247\203@\322U\204G\323\324#\210eb\210 \266\202*\207" [system-type coding-system-for-read javaimp-debug-buf-name message "Calling %s on args: %s" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] cygwin utf-8-dos apply process-file nil get-buffer-create erase-buffer insert-buffer-substring 0 error "\"%s\" failed with status \"%s\""] 11 (#$ . 27594)]) #@13 (fn PATH) (defalias 'javaimp--split-native-path #[257 "\211\205\301\302\303#\304\305Q\306\303#\266\202\207" [path-separator javaimp-cygpath-convert-maybe unix t "[" "\n]+" split-string] 7 (#$ . 28320)]) #@29 (fn THIS PARENT-NODE ALL) (defalias 'javaimp--build-tree #[771 "\302\303\304\305!>\204\306\307\310D\"\210\311H!\"\210\312\313\314\"\"\315\316\317$\320\313\321#\"\305! >\204?\306\307\316D\"\210\211\322I\266\207" [cl-struct-javaimp-module-tags cl-struct-javaimp-node-tags message "Building tree for module: %s" javaimp-print-id type-of signal wrong-type-argument javaimp-module 1 seq-filter make-closure #[257 "\302! >\204\303\304\305D\"\210\211\306H\302\300! >\204!\303\304\305\300D\"\210\300\307H\232\207" [V0 cl-struct-javaimp-module-tags type-of signal wrong-type-argument javaimp-module 2 1] 6 "\n\n(fn M)"] record javaimp-node nil mapcar #[257 "\302\301\300#\207" [V0 V1 javaimp--build-tree] 5 "\n\n(fn CHILD)"] 2] 10 (#$ . 28537)]) (provide 'javaimp-util)