Function: semanticdb-file-directory-exists-p

semanticdb-file-directory-exists-p is a byte-compiled function without a source file.

Signature

(semanticdb-file-directory-exists-p ARG &rest ARGS)

Implementations

(semanticdb-file-directory-exists-p (DB semanticdb-project-database-file) &optional SUPPRESS-QUESTIONS) in `semantic/db-file.el'.

Does the directory the database DB needs to write to exist? If SUPPRESS-QUESTIONS, then do not ask to create the directory.

;; Could not find source code, showing raw function object. #[385 "\304\203�\305!\202\f�\306\307
\300\"\2066�\310\303\311\302\301\312\313\n\203&�\305!\202'�\306!\314\315!\"%\316\300#\210\211\262
\262
#\207" [#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data ()) (#s(cl--generic-method (semanticdb-project-database-file) nil nil #[513 "\301\302\303\"!\211\204\f�\304\207\305
!\203�\306\207
\204\"�\307\300!\203$�\203$�\304\207\310\311\312\"!\2034�\313
\306\"\210\306\207\307\300!\203<�\306\304\207" [semanticdb--inhibit-make-directory file-name-directory eieio-oref file nil file-exists-p t boundp y-or-n-p format "Create directory %s for SemanticDB? " make-directory] 7 "Does the directory the database DB needs to write to exist?\nIf SUPPRESS-QUESTIONS, then do not ask to create the directory.\n\n(fn DB &optional SUPPRESS-QUESTIONS)"])) nil #s(cl--generic semanticdb-file-directory-exists-p ((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag #[385 "
\301N\302
!>\205�\303\304\305!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 "\n\n(fn NAME &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"]))) (#s(cl--generic-method (semanticdb-project-database-file) nil nil #[513 "\301\302\303\"!\211\204\f�\304\207\305
!\203�\306\207
\204\"�\307\300!\203$�\203$�\304\207\310\311\312\"!\2034�\313
\306\"\210\306\207\307\300!\203<�\306\304\207" [semanticdb--inhibit-make-directory file-name-directory eieio-oref file nil file-exists-p t boundp y-or-n-p format "Create directory %s for SemanticDB? " make-directory] 7 "Does the directory the database DB needs to write to exist?\nIf SUPPRESS-QUESTIONS, then do not ask to create the directory.\n\n(fn DB &optional SUPPRESS-QUESTIONS)"])) nil) apply type-of null gethash cl--generic-cache-miss 0 append #[385 "
\301N\302
!>\205�\303\304\305!\"\207" [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list] 7 "\n\n(fn TAG &rest _)"] #[385 "\300\207" [(t)] 3 "\n\n(fn TAG &rest _)"] nil puthash] 13 "\n\n(fn ARG &rest ARGS)"]