From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.devel Subject: Re: How does one find out what file a library has been loaded from? Date: Sun, 31 Jul 2022 15:52:33 +0300 Message-ID: <83ilnd4f72.fsf@gnu.org> References: <83bktlnuog.fsf@gnu.org> <83ilnmfq9t.fsf@gnu.org> Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="6720"; mail-complaints-to="usenet@ciao.gmane.io" Cc: acm@muc.de, emacs-devel@gnu.org To: Andrea Corallo Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Sun Jul 31 14:53:27 2022 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oI8Ri-0001bE-NI for ged-emacs-devel@m.gmane-mx.org; Sun, 31 Jul 2022 14:53:26 +0200 Original-Received: from localhost ([::1]:51582 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oI8Rh-0004To-6q for ged-emacs-devel@m.gmane-mx.org; Sun, 31 Jul 2022 08:53:25 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:36286) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oI8R7-0003nn-Gp for emacs-devel@gnu.org; Sun, 31 Jul 2022 08:52:49 -0400 Original-Received: from fencepost.gnu.org ([2001:470:142:3::e]:54692) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oI8R4-0003Ao-Fv; Sun, 31 Jul 2022 08:52:46 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=References:Subject:In-Reply-To:To:From:Date: mime-version; bh=/sjEq+TLj7UIxIWRMXRnMjDCciRkrpeXSoBs2u/Oh9E=; b=kliRAOI9nSru CzRhw65z6q1opxUOJWCvIDmRv6P0DJeeYhHVVtg6I9sfUAlbWjDESncmOVgtZNKh58q5KuHySQqMr Cx/UMWmcYCWfgsutdEPDggju9XaYVbp0cbDMTV093rSVThTs+ISj1hunTtpy7g79wLOfCsEguCItU Q8qSUTyG4YgJVgN11eRk4956GHdxSl5aERRLsqUNOu91OwoDPuqnlURixa0DxgQw7r6458veMW480 1HeiO7s0zFTkf1TYghV7zeVNvB0Y8pMW8GYWdxP/r1IjynEzCk2a30RbQPogS6gzjPsyidMdYypsi G8g2n1+zXlBlxxHGzbIuLg==; Original-Received: from [87.69.77.57] (port=4180 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oI8R3-0002pf-VM; Sun, 31 Jul 2022 08:52:46 -0400 In-Reply-To: (message from Andrea Corallo on Sun, 24 Jul 2022 17:46:02 +0000) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:292915 Archived-At: > From: Andrea Corallo > Cc: acm@muc.de, emacs-devel@gnu.org > Date: Sun, 24 Jul 2022 17:46:02 +0000 > > >> (native-comp-unit-file (subr-native-comp-unit (symbol-function #'find-file))) > > > > Andrea, does anything similar to subr-native-comp-unit exists for > > other types of symbols accepted by symbol-file: defvar and defface? > > No it does not exists. > > The reason why the compilation unit concept was introduced is to have > the GC capable of unloading the eln when possible, this mechanism is > only related to functions that are indeed memory mapped from the loaded > shared libraries. Variables etc are just regular variables (tipically > defined at eln load time) so they didn't required any new mechanism. > > > If not, then the only way to produce the same information for them > > would be to generate the base name of the .eln file with > > comp-el-to-eln-rel-filename, and then look for that file along > > native-comp-eln-load-path, right? > > Yes I think so. Andrea and Alan, please review and test the version of symbol-file below that I intend to install soon. TIA. (defun locate-eln-file (eln-file) "Locate a natively-compiled ELN-FILE by searching its load path. This function looks in directories named by `native-comp-eln-load-path'." (or (locate-file-internal (concat comp-native-version-dir "/" eln-file) native-comp-eln-load-path) (locate-file-internal ;; Preloaded *.eln files live in the preloaded/ subdirectory of ;; the last entry in `native-comp-eln-load-path'. (concat comp-native-version-dir "/preloaded/" eln-file) (last native-comp-eln-load-path)))) (defun symbol-file (symbol &optional type native-p) "Return the name of the file that defined SYMBOL. The value is normally an absolute file name. It can also be nil, if the definition is not associated with any file. If SYMBOL specifies an autoloaded function, the value can be a relative file name without extension. If TYPE is nil, then any kind of definition is acceptable. If TYPE is `defun', `defvar', or `defface', that specifies function definition, variable definition, or face definition only. Otherwise TYPE is assumed to be a symbol property. If NATIVE-P is nil, and SYMBOL was loaded from a .eln file, this function will return the absolute file name of that .eln file, if found. This function only works for symbols defined in Lisp files. For symbols that are defined in C files, use `help-C-file-name' instead." (if (and (or (null type) (eq type 'defun)) (symbolp symbol) (autoloadp (symbol-function symbol))) (nth 1 (symbol-function symbol)) (if (and native-p (or (null type) (eq type 'defun)) (symbolp symbol) (subr-native-elisp-p (symbol-function symbol))) ;; native-comp-unit-file returns unnormalized file names. (expand-file-name (native-comp-unit-file (subr-native-comp-unit (symbol-function symbol)))) (let ((elc-file (catch 'found (pcase-dolist (`(,file . ,elems) load-history) (when (if type (if (eq type 'defvar) ;; Variables are present just as their ;; names. (member symbol elems) ;; Many other types are represented as ;; (TYPE . NAME). (or (member (cons type symbol) elems) (memq symbol (alist-get type (alist-get 'define-symbol-props elems))))) ;; We accept all types, so look for variable def ;; and then for any other kind. (or (member symbol elems) (let ((match (rassq symbol elems))) (and match (not (eq 'require (car match))))))) (throw 'found file)))))) ;; If they asked for the .eln file, try to find it. (or (and elc-file native-p (let* ((sans-ext (file-name-sans-extension elc-file)) (el-file (and (fboundp 'zlib-available-p) (zlib-available-p) (concat sans-ext ".el.gz"))) (el-file-backup (concat sans-ext ".el"))) (or (and el-file (file-exists-p el-file)) (and (file-exists-p el-file-backup) (setq el-file el-file-backup)) (setq el-file nil)) (if (stringp el-file) (locate-eln-file (comp-el-to-eln-rel-filename el-file))))) elc-file)))))