unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#28910: 27.0.50; Equivalent to __FILE__
@ 2017-10-20 12:40 Stefan Monnier
  2017-10-20 12:47 ` Dmitry Gutov
  2017-10-29 15:42 ` Philipp Stephani
  0 siblings, 2 replies; 6+ messages in thread
From: Stefan Monnier @ 2017-10-20 12:40 UTC (permalink / raw)
  To: 28910

Package: Emacs
Version: 27.0.50


We should provide some `current-source-file-name` function which macros
can use to find get the name of the source file in which they were invoked.

Currently, some packages use a mix of load-file-name and
byte-compile-current-file to get that information, but it's hackish.

It'll be difficult to implement `current-source-file-name` in a way that
works reliably in all cases, but at least by providing this function we
can isolate the hack in a single place (and hope to refine it over time,
e.g. by tweaking bytecomp.el and lread.c so as to provide *better*
underlying information).

Along the same lines, it'd be great to provide
`current-source-definition-name` or even `current-source-line-number`.


        Stefan



In GNU Emacs 27.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2017-10-14 built on pastel
Repository revision: 300abf7bdd75ec44a497b3eb6ba86e242118ded1
Windowing system distributor 'The X.Org Foundation', version 11.0.11902000
System Description:	Debian GNU/Linux 9.1 (stretch)

Recent messages:
Marking diary entries...done
Preparing diary...done
Mark set [3 times]
Saving file /home/monnier/share/etc/diary...
Wrote /home/monnier/share/etc/diary
Marking diary entries...done

Warning: hide-sublevels is obsolete! [2 times]
Mark saved where search started
Mark set

Configured using:
 'configure -C --enable-checking --with-modules --enable-check-lisp-object-type
 'CFLAGS=-Wall -g3 -Og -Wno-pointer-sign'
 PKG_CONFIG_PATH=/home/monnier/lib/pkgconfig'

Configured features:
XAW3D XPM JPEG TIFF GIF PNG SOUND GPM DBUS NOTIFY GNUTLS LIBXML2
FREETYPE XFT ZLIB TOOLKIT_SCROLL_BARS LUCID X11 MODULES

Important settings:
  value of $LANG: fr_CH.UTF-8
  locale-coding-system: utf-8-unix

Major mode: InactiveMinibuffer

Minor modes in effect:
  diff-auto-refine-mode: t
  electric-pair-mode: t
  global-reveal-mode: t
  reveal-mode: t
  auto-insert-mode: t
  savehist-mode: t
  minibuffer-electric-default-mode: t
  global-compact-docstrings-mode: t
  url-handler-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  global-prettify-symbols-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
/home/monnier/src/emacs/elpa/packages/svg/svg hides /home/monnier/src/emacs/work/lisp/svg
/home/monnier/src/emacs/elpa/packages/ada-mode/ada-prj hides /home/monnier/src/emacs/work/lisp/progmodes/ada-prj
/home/monnier/src/emacs/elpa/packages/ada-mode/ada-stmt hides /home/monnier/src/emacs/work/lisp/progmodes/ada-stmt
/home/monnier/src/emacs/elpa/packages/ada-mode/ada-mode hides /home/monnier/src/emacs/work/lisp/progmodes/ada-mode
/home/monnier/src/emacs/elpa/packages/ada-mode/ada-xref hides /home/monnier/src/emacs/work/lisp/progmodes/ada-xref
/home/monnier/src/emacs/elpa/packages/hyperbole/set hides /home/monnier/src/emacs/work/lisp/emacs-lisp/set
/home/monnier/src/emacs/elpa/packages/crisp/crisp hides /home/monnier/src/emacs/work/lisp/obsolete/crisp
/home/monnier/src/emacs/elpa/packages/landmark/landmark hides /home/monnier/src/emacs/work/lisp/obsolete/landmark

Features:
(sort mail-extr emacsbug message rmc puny format-spec rfc822 mml mml-sec
epa derived epg gnus-util rmail rmail-loaddefs mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev mailheader sendmail rfc2047
rfc2045 ietf-drums mm-util mail-prsvr mail-utils misearch multi-isearch
autoload lisp-mnt xscheme unsafep trace testcover shadow scheme
re-builder profiler inf-lisp ielm gmm-utils ert pp ewoc debug elp edebug
cl-indent map eieio-opt speedbar sb-image ezimage dframe find-func
cl-extra help-fns radix-tree executable copyright view cal-china lunar
solar cal-dst cal-bahai cal-islam cal-hebrew holidays hol-loaddefs
cal-french vc-git diff-mode diary-lib diary-loaddefs cal-move cal-menu
calendar cal-loaddefs cus-edit cus-start cus-load wid-edit filecache
autorevert filenotify doc-view jka-compr image-mode dired dired-loaddefs
server time-date flymake-proc flymake subr-x compile comint ansi-color
ring warnings noutline outline easy-mmode flyspell ispell checkdoc
thingatpt help-mode load-dir elec-pair reveal autoinsert proof-site
proof-autoloads cl pg-vars savehist minibuf-eldef disp-table
compact-docstrings cl-seq inline kotl-loaddefs advice info
realgud-recursive-autoloads finder-inf url-auth package easymenu
epg-config url-handlers url-parse auth-source eieio eieio-core cl-macs
eieio-loaddefs password-cache url-vars seq byte-opt gv bytecomp
byte-compile cconv cl-loaddefs cl-lib bbdb-autoloads vm-autoloads
mule-util tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode elisp-mode lisp-mode prog-mode register page menu-bar
rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock
syntax font-core term/tty-colors frame cl-generic cham georgian
utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european
ethiopic indian cyrillic chinese composite charscript charprop
case-table epa-hook jka-cmpr-hook help simple abbrev obarray minibuffer
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote dbusbind inotify
dynamic-setting font-render-setting x-toolkit x multi-tty
make-network-process emacs)

Memory information:
((conses 16 233751 23426)
 (symbols 48 30526 0) (miscs 40 4438 355) (strings 32 78956 4837)
 (string-bytes 1 2417807)
 (vectors 16 38720) (vector-slots 8 1465001 121641) (floats 8 681 243)
 (intervals 56 3041 202)
 (buffers 992 24))





^ permalink raw reply	[flat|nested] 6+ messages in thread

* bug#28910: 27.0.50; Equivalent to __FILE__
  2017-10-20 12:40 bug#28910: 27.0.50; Equivalent to __FILE__ Stefan Monnier
@ 2017-10-20 12:47 ` Dmitry Gutov
  2017-10-20 17:39   ` Stefan Monnier
  2017-10-29 15:42 ` Philipp Stephani
  1 sibling, 1 reply; 6+ messages in thread
From: Dmitry Gutov @ 2017-10-20 12:47 UTC (permalink / raw)
  To: Stefan Monnier, 28910

On 10/20/17 3:40 PM, Stefan Monnier wrote:

> Currently, some packages use a mix of load-file-name and
> byte-compile-current-file to get that information, but it's hackish.

FWIW, I've used (or load-file-name (buffer-file-name)) in a couple of 
packages, and that's worked well for my purposes.





^ permalink raw reply	[flat|nested] 6+ messages in thread

* bug#28910: 27.0.50; Equivalent to __FILE__
  2017-10-20 12:47 ` Dmitry Gutov
@ 2017-10-20 17:39   ` Stefan Monnier
  0 siblings, 0 replies; 6+ messages in thread
From: Stefan Monnier @ 2017-10-20 17:39 UTC (permalink / raw)
  To: Dmitry Gutov; +Cc: 28910

>> Currently, some packages use a mix of load-file-name and
>> byte-compile-current-file to get that information, but it's hackish.
> FWIW, I've used (or load-file-name (buffer-file-name)) in a couple of
> packages, and that's worked well for my purposes.

Obviously, it won't work if you need it during macro expansion.


        Stefan





^ permalink raw reply	[flat|nested] 6+ messages in thread

* bug#28910: 27.0.50; Equivalent to __FILE__
  2017-10-20 12:40 bug#28910: 27.0.50; Equivalent to __FILE__ Stefan Monnier
  2017-10-20 12:47 ` Dmitry Gutov
@ 2017-10-29 15:42 ` Philipp Stephani
  2017-11-02 17:53   ` Phillip Lord
  1 sibling, 1 reply; 6+ messages in thread
From: Philipp Stephani @ 2017-10-29 15:42 UTC (permalink / raw)
  To: Stefan Monnier; +Cc: 28910

[-- Attachment #1: Type: text/plain, Size: 352 bytes --]

Stefan Monnier <monnier@iro.umontreal.ca> schrieb am Fr., 20. Okt. 2017 um
14:42 Uhr:

> We should provide some `current-source-file-name` function which macros
> can use to find get the name of the source file in which they were invoked.
>

`f-this-file' from the `f' package is some prior art, but I guess it also
doesn't work correctly with macros.

[-- Attachment #2: Type: text/html, Size: 649 bytes --]

^ permalink raw reply	[flat|nested] 6+ messages in thread

* bug#28910: 27.0.50; Equivalent to __FILE__
  2017-10-29 15:42 ` Philipp Stephani
@ 2017-11-02 17:53   ` Phillip Lord
  2021-05-10 16:59     ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
  0 siblings, 1 reply; 6+ messages in thread
From: Phillip Lord @ 2017-11-02 17:53 UTC (permalink / raw)
  To: Philipp Stephani; +Cc: Stefan Monnier, 28910

Philipp Stephani <p.stephani2@gmail.com> writes:

> Stefan Monnier <monnier@iro.umontreal.ca> schrieb am Fr., 20. Okt. 2017 um
> 14:42 Uhr:
>
>> We should provide some `current-source-file-name` function which macros
>> can use to find get the name of the source file in which they were invoked.
>>
>
> `f-this-file' from the `f' package is some prior art, but I guess it also
> doesn't work correctly with macros.

emacs-load-relative uses the name "__FILE__" for the same thing.

Phil





^ permalink raw reply	[flat|nested] 6+ messages in thread

* bug#28910: 27.0.50; Equivalent to __FILE__
  2017-11-02 17:53   ` Phillip Lord
@ 2021-05-10 16:59     ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
  0 siblings, 0 replies; 6+ messages in thread
From: Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2021-05-10 16:59 UTC (permalink / raw)
  To: Phillip Lord; +Cc: 28910-done, Philipp Stephani, Rocky Bernstein

Phillip Lord [2017-11-02 17:53:56] wrote:
> Philipp Stephani <p.stephani2@gmail.com> writes:
>> Stefan Monnier <monnier@iro.umontreal.ca> schrieb am Fr., 20. Okt. 2017 um
>> 14:42 Uhr:
>>> We should provide some `current-source-file-name` function which macros
>>> can use to find get the name of the source file in which they were invoked.
>> `f-this-file' from the `f' package is some prior art, but I guess it also
>> doesn't work correctly with macros.
> emacs-load-relative uses the name "__FILE__" for the same thing.

Emacs's `master` now has the `macroexp-file-name` function which
provides this functionality.  So I guess `emacs-load-relative` could now
redefine __FILE__ as

    (defmacro __FILE__ () (macroexp-file-name))

tho oddly it seems that it defines `__FILE__` as a function rather than
a macro, so maybe it should be

    (defalias '__FILE__ #'macroexp-file-name)

but that doesn't match the semantics I expect from something called
`__FILE__`.

In any case, my original request is now satisfied, so I'm closing this.


        Stefan






^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2021-05-10 16:59 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-10-20 12:40 bug#28910: 27.0.50; Equivalent to __FILE__ Stefan Monnier
2017-10-20 12:47 ` Dmitry Gutov
2017-10-20 17:39   ` Stefan Monnier
2017-10-29 15:42 ` Philipp Stephani
2017-11-02 17:53   ` Phillip Lord
2021-05-10 16:59     ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).