resource-in-archives.el

(defun list-to-hash (coll)
  (let ((rtnval (make-hash-table :test 'equal)))
    (cl-loop for r across coll
             when r
             do (puthash (elt r 1) nil rtnval))
    rtnval))
  

(defun jdee-open-source-resource-in-archive-p (archive resource)
  ""
  (interactive)
  (when (and (file-exists-p archive)
             (not (file-directory-p archive)))
    (let ((buffer (find-file-noselect archive)))
      (when buffer
        (with-current-buffer buffer
          (let* ((files archive-files)
                 (r (list-to-hash files)))
            (if (eq 'missing (gethash resource r 'missing))
                nil
              (list archive resource))))))))
  
(defun jdee-open-source-resource-in-classpath (resource)
  (cl-loop for p in jdee-global-classpath
           for rtnval = (jdee-open-source-resource-in-archive-p r resource)
           when rtnval
              return rtnval))