4:37 a.m.
================================================================
Dear Bug Team!
According to the documentation of `make-image-specifier' (as well as
the error shown in the recent messages below), "xbm" images require a
list of three items for :data, but `image-mode' is just passing in the
buffer contents as a string.
It seems as though it would be rather a lot of work to parse data in
XBM file-format out of a buffer into a data spec in elisp, considering
that the code to go from this format into an actual pixmap clearly
already exists in C, so I think XEmacs is being a bit unreasonable
here. (It does seem that Xlib shares this inability to accept data in
the file format from anything but a file -- one with a filename, even!
-- but if this isn't stopping XEmacs from loading them on Windows, I
don't see why it should stop XEmacs from loading them from strings of
data in the file format.)
================================================================
System Info to help track down your bug:
---------------------------------------
OS version:
Microsoft Windows XP [Version 5.1.2600]
OS: Windows_NT
XEmacs 21.5-b29 "garbanzo" configured for `i586-pc-win32'.
Building XEmacs using "nmake".
Building XEmacs using make flags " ".
Building XEmacs in source tree "C:\\XEmacsBuild\\xemacs-21.5.29".
For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MD -c -TP
-IC:\XEmacsBuild\xemacs-21.5.29\nt\inc
-IC:\XEmacsBuild\xemacs-21.5.29\src
-I"C:/cygwin/usr/local/src\xpm-3.4k"
-I"C:/cygwin/usr/local/src\xpm-3.4k\lib"
-I"C:/cygwin/usr/local/src\libpng-1.2.8"
-I"C:/cygwin/usr/local/src/zlib"
-I"C:/cygwin/usr/local/src/tiff-3.7.3\libtiff"
-I"C:/cygwin/usr/local/src\jpeg-6b" -I"C:/cygwin/usr/local/src/zlib"
-DHAVE_MS_WINDOWS -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS
-DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF
-DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_ZLIB -DHAVE_NATIVE_SOUND
-DMULE -DERROR_CHECK_ALL -DPDUMP -DSYSTEM_MALLOC -DDEBUG_XEMACS
-D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs
-DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b29\"
-DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b29\"
-DEMACS_PROGNAME=\"xemacs\" -DSHEBANG_PROGNAME=\"xemacs-script\"
-DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b29_i586_pc_win32
-DPATH_PREFIX=\""C:/XEmacsBuild/installed/XEmacs-21.5.29"\"
-DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5
-DEMACS_BETA_VERSION=29 -DXEMACS_CODENAME=\""garbanzo"\"
-DXEMACS_EXTRA_NAME=\"""\"
-DEMACS_CONFIGURATION=\"i586-pc-win32\"".
For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MD
-IC:\XEmacsBuild\xemacs-21.5.29\lib-src
-IC:\XEmacsBuild\xemacs-21.5.29\src -DHAVE_CONFIG_H -DWIN32_NATIVE".
Compiling as C++.
Installing XEmacs in "C:/XEmacsBuild/installed/XEmacs-21.5.29".
Compiling in support for Microsoft Windows native GUI.
Compiling in international (MULE) support.
Compiling in support for XPM images.
Compiling in support for GIF images.
Compiling in support for PNG images.
Compiling in support for TIFF images.
Compiling in support for JPEG images.
Compiling in support for GZIP compression/decompression.
Compiling in support for toolbars.
Compiling in support for dialogs.
Compiling in support for widgets.
Compiling in support for native sounds.
Using portable dumper.
Using system malloc.
Using DLL version of C runtime library.
Compiling in extra internal error-checking.
NOTE: ---------------------------------------------------------
NOTE: Compiling in support for runtime error-checking.
NOTE: XEmacs will run noticeably more slowly as a result.
NOTE: Error-checking is on by default for XEmacs beta releases.
NOTE: ---------------------------------------------------------
Compiling in debugging support (no slowdown).
Load-Path Lisp Shadows:
----------------------
(e:\XEmacs\site-packages\lisp\emacs-goodies-el\ctypes
e:\XEmacs\xemacs-packages\lisp\c-support\ctypes
e:\XEmacs\site-packages\lisp\allout
e:\XEmacs\xemacs-packages\lisp\edit-utils\allout
e:\XEmacs\site-packages\lisp\emacs-goodies-el\setnu
e:\XEmacs\xemacs-packages\lisp\edit-utils\setnu
e:\XEmacs\xemacs-packages\lisp\cedet-common\working
e:\XEmacs\xemacs-packages\lisp\semantic\working
e:\XEmacs\xemacs-packages\lisp\cedet-common\sformat
e:\XEmacs\xemacs-packages\lisp\semantic\sformat
e:\XEmacs\site-packages\lisp\emacs-goodies-el\xrdb-mode
e:\XEmacs\xemacs-packages\lisp\text-modes\xrdb-mode
e:\XEmacs\site-packages\lisp\emacs-goodies-el\htmlize
e:\XEmacs\xemacs-packages\lisp\text-modes\htmlize
e:\XEmacs\site-packages\lisp\emacs-goodies-el\folding
e:\XEmacs\xemacs-packages\lisp\text-modes\folding
e:\XEmacs\site-packages\lisp\emacs-goodies-el\filladapt
e:\XEmacs\xemacs-packages\lisp\text-modes\filladapt
e:\XEmacs\site-packages\lisp\emacs-goodies-el\apache-mode
e:\XEmacs\xemacs-packages\lisp\text-modes\apache-mode
e:\XEmacs\mule-packages\lisp\mule-base\viet-util
e:\XEmacs\XEmacs-21.5.29\lisp\mule\viet-util
e:\XEmacs\mule-packages\lisp\mule-base\korea-util
e:\XEmacs\XEmacs-21.5.29\lisp\mule\korea-util
e:\XEmacs\mule-packages\lisp\mule-base\japan-util
e:\XEmacs\XEmacs-21.5.29\lisp\mule\japan-util
e:\XEmacs\mule-packages\lisp\mule-base\ethio-util
e:\XEmacs\XEmacs-21.5.29\lisp\mule\ethio-util
e:\XEmacs\mule-packages\lisp\mule-base\china-util
e:\XEmacs\XEmacs-21.5.29\lisp\mule\china-util
e:\XEmacs\xemacs-packages\lisp\xemacs-base\regexp-opt
e:\XEmacs\XEmacs-21.5.29\lisp\regexp-opt
e:\XEmacs\xemacs-packages\lisp\xemacs-base\easy-mmode
e:\XEmacs\XEmacs-21.5.29\lisp\easy-mmode
e:\XEmacs\xemacs-packages\lisp\build\build-report
e:\XEmacs\XEmacs-21.5.29\lisp\build-report
e:\XEmacs\xemacs-packages\lisp\apel\alist
e:\XEmacs\XEmacs-21.5.29\lisp\alist)
Internationalization Settings:
-------------------------
Environment:
Value of LC_ALL : nil
Value of LC_COLLATE : nil
Value of LC_CTYPE : nil
Value of LC_MESSAGES : nil
Value of LC_MONETARY : nil
Value of LC_NUMERIC : nil
Value of LC_TIME : nil
Value of LANG : nil
Lisp locale settings:
current-language-environment => "English"
default-buffer-file-coding-system => mswindows-multibyte-dos
default-process-coding-system => (undecided-dos .
mswindows-multibyte-system-default)
(current-locale) => "English_United States.1252"
keyboard-coding-system => mswindows-multibyte-system-default
terminal-coding-system => mswindows-multibyte-system-default
(coding-priority-list) =>
(iso-8-1 utf-16-little-endian-bom utf-16-bom utf-8-bom iso-7
no-conversion utf-8 iso-8-2 iso-8-designate iso-lock-shift
shift-jis big5 utf-16-little-endian utf-16 ucs-4)
Coding system aliases:
'native is aliased to
mswindows-multibyte-system-default-dos
'file-name is aliased to
mswindows-multibyte-system-default
'mswindows-multibyte-system-default is not a coding system alias
Installed XEmacs Packages:
-------------------------
(xslt-process ver: 1.12 upstream: 1.2.1)
(xslide ver: 1.09 upstream: 0.2.2)
(xemacs-devel ver: 1.8 upstream: No-Upstream-Ver)
(xemacs-base ver: 2.29 upstream: No-Upstream-Ver)
(w3 ver: 1.35 upstream: 4.0pre47)
(vm ver: 8.08 upstream: 8.0.12-devo)
(view-process ver: 1.13 upstream: 2.4)
(vc ver: 1.48 upstream: No-Upstream-Ver)
(tramp ver: 1.4 upstream: 2.0.56)
(tm ver: 1.39 upstream: No-Upstream-Ver)
(time ver: 1.14 upstream: 1.17)
(textools ver: 1.15 upstream: No-Upstream-Ver)
(text-modes ver: 2.0 upstream: No-Upstream-Ver)
(texinfo ver: 1.3 upstream: No-Upstream-Ver)
(supercite ver: 1.21 upstream: 3.55x3)
(strokes ver: 1.1 upstream: No-Upstream-Ver)
(speedbar ver: 1.29 upstream: 1.0pre4)
(sounds-wav ver: 1.12 upstream: No-Upstream-Ver)
(slider ver: 1.16 upstream: 0.3x1)
(sieve ver: 1.18 upstream: No-Upstream-Ver)
(sh-script ver: 1.24 upstream: 2.0f)
(sgml ver: 1.11 upstream: No-Upstream-Ver)
(semantic ver: 1.21 upstream: 2.0pre4)
(sasl ver: 1.16 upstream: 1.14.4)
(reftex ver: 1.34 upstream: 4.21)
(re-builder ver: 1.05 upstream: 1.20)
(python-modes ver: 1.14 upstream: 5.0.0)
(psgml ver: 1.45 upstream: 1.3.2)
(ps-print ver: 1.12 upstream: 6.5.6)
(prog-modes ver: 2.2 upstream: No-Upstream-Ver)
(pgg ver: 1.07 upstream: 0.1)
(perl-modes ver: 1.14 upstream: No-Upstream-Ver)
(pcomplete ver: 1.06 upstream: 1.1.6)
(pcl-cvs ver: 1.7 upstream: R-2_9_9)
(pc ver: 1.28 upstream: No-Upstream-Ver)
(os-utils ver: 1.41 upstream: No-Upstream-Ver)
(oo-browser ver: 1.05 upstream: 4.08)
(net-utils ver: 1.56 upstream: N/A)
(mmm-mode ver: 1.05 upstream: 0.4.8)
(misc-games ver: 1.22 upstream: No-Upstream-Ver)
(mine ver: 1.16 upstream: 1.9)
(mew ver: 1.19 upstream: 1.94.2)
(mailcrypt ver: 2.14 upstream: 3.5.8)
(mail-lib ver: 1.8 upstream: No-Upstream-Ver)
(jde ver: 1.52 upstream: 2.3.5.1)
(ispell ver: 1.32 upstream: 3.6)
(ilisp ver: 1.36 upstream: 5.12.0)
(igrep ver: 1.16 upstream: 2.111)
(idlwave ver: 1.32 upstream: 5.1)
(hyperbole ver: 1.17 upstream: 5.0)
(gnus ver: 1.94 upstream: 5.10.8)
(gnats ver: 1.17 upstream: 3.101)
(general-docs ver: 1.06 upstream: No-Upstream-Ver)
(games ver: 1.2 upstream: 2.00)
(fsf-compat ver: 1.19 upstream: No-Upstream-Ver)
(footnote ver: 1.16 upstream: 0.18x)
(eterm ver: 1.18 upstream: No-Upstream-Ver)
(eshell ver: 1.18 upstream: 0fc80a3f6bb3bb59f42e9ff83cc8b89bf90fe658)
(emerge ver: 1.11 upstream: No-Upstream-Ver)
(elib ver: 1.13 upstream: 1.0)
(eieio ver: 1.07 upstream: 1.0pre4)
(efs ver: 1.34 upstream: 1.24)
(edit-utils ver: 2.43 upstream: No-Upstream-Ver)
(ediff ver: 1.81 upstream: 2.75)
(edebug ver: 1.22 upstream: No-Upstream-Ver)
(ede ver: 1.03 upstream: 1.0pre4)
(ecrypto ver: 0.21 upstream: 2.0)
(ecb ver: 1.22 upstream: 2.31)
(easypg ver: 1.03 upstream: 0.0.16)
(docbookide ver: 0.08 upstream: 0.1)
(dired ver: 1.2 upstream: 7.17)
(dictionary ver: 1.16 upstream: 1.8)
(debug ver: 1.18 upstream: No-Upstream-Ver)
(crisp ver: 1.15 upstream: 1.34)
(cookie ver: 1.15 upstream: No-Upstream-Ver)
(cogre ver: 1.02 upstream: 0.5)
(cedet-common ver: 1.01 upstream: 1.0pre4)
(cc-mode ver: 1.45 upstream: 5.30.10)
(calendar ver: 1.38 upstream: No-Upstream-Ver)
(calc ver: 1.26 upstream: 2.02fX3)
(c-support ver: 1.22 upstream: No-Upstream-Ver)
(build ver: 1.15 upstream: 2.02)
(bbdb ver: 1.32 upstream: 2.35)
(auctex ver: 1.51 upstream: 11.84)
(apel ver: 1.34 upstream: 10.7)
(mule-base ver: 1.56 upstream: No-Upstream-Ver)
(lookup ver: 1.15 upstream: 1.0)
(leim ver: 1.32 upstream: No-Upstream-Ver)
(latin-unity ver: 1.2 upstream: 1.20)
(latin-euro-standards ver: 1.09 upstream: 1.09)
Features:
--------
(mail-abbrevs filladapt xemacsbug shadow sendmail rfc822 xhg-dvc xhg
xhg-annotate xhg-mq xhg-log dvc-diff uniquify dvc-fileinfo dvc-unified
dvc-tips diff-mode bzr-core xgit-core xhg-core image-mode efs-cu
lazy-lock paren blink-paren tex-mik regexp-opt cus-load dvc-autoloads
dvc-core dvc-lisp dvc-buffers dvc-ui dvc-register dvc-utils dvc-xemacs
wid-edit ewoc dvc-defs dvc-site font-lock cus-face jka-compr allout
advice advice-preload pgg-gpg pgg password pgg-parse pgg-def overlay
xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads view-process-autoloads
vc-autoloads tramp-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads texinfo-autoloads
supercite-autoloads strokes-autoloads speedbar-autoloads
sounds-wav-autoloads slider-autoloads sieve-autoloads
sh-script-autoloads sgml-autoloads semantic-autoloads sasl-autoloads
reftex-autoloads re-builder-autoloads python-modes-autoloads
psgml-autoloads ps-print-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads
pc-autoloads os-utils-autoloads oo-browser-autoloads
net-utils-autoloads mmm-mode-autoloads misc-games-autoloads
mine-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads
jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads
idlwave-autoloads hyperbole-autoloads gnus-autoloads gnats-autoloads
general-docs-autoloads games-autoloads fsf-compat-autoloads
footnote-autoloads eterm-autoloads eshell-autoloads emerge-autoloads
elib-autoloads eieio-autoloads efs-autoloads edit-utils-autoloads
ediff-autoloads edebug-autoloads ede-autoloads ecrypto-autoloads
ecb-autoloads easypg-autoloads docbookide-autoloads dired-autoloads
dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads
cogre-autoloads cedet-common-autoloads cc-mode-autoloads
calendar-autoloads calc-autoloads c-support-autoloads build-autoloads
bbdb-autoloads tex-site auctex-autoloads apel-autoloads
mule-base-autoloads lookup-autoloads leim-autoloads
latin-unity-autoloads latin-euro-standards-autoloads emacs-goodies-el
emacs-goodies-custom emacs-goodies-loaddefs site-autoloads
mule-autoloads auto-autoloads auto-show fontl-hooks canna-leim tibetan
slovenian czech romanian lao devanagari indian cyrillic code-cmds
gutter-items menubar-items x-menubar dragdrop mode-motion mouse
behavior itimer auto-save lisp-mode easymenu easy-mmode iso8859-1 page
buff-menu lib-complete loadhist cus-file derived newcomment
rsz-minibuf env text-props frame obsolete cus-start custom widget
cl-extra cl cl-19 packages backquote unicode mswindows-scrollbars
mswindows toolbar native-sound scrollbar network-streams subprocesses
menu-accelerator-support menubar md5 xemacs mule gutter tiff png gif
jpeg xpm xbm lisp-float-type file-coding dde windows-nt dragdrop-api
dialog devices window-system base64)
Recent keystrokes:
-----------------
button1 button1up button1 button1up button1 button1up
misc-user button1 button1up button1 button1up button1
button1up button1 button1up button1 button1up button1
button1up button1 button1up M-x x e m TAB TAB b u TAB
BS BS BS BS BS BS BS BS BS r e p t BS o TAB r TAB x
TAB RET
Recent messages (most recent first):
-----------------------------------
Auto save file for draft message exists; consider M-x mail-recover
Loading filladapt...done
Loading filladapt...
Loading xemacsbug...done
Loading xemacsbug...
Making completion list...
Making completion list...
Loading bzr-core...done
Loading bzr-core...
Loading xgit-core...done
Loading xgit-core...
Loading xhg-core...done
Loading xhg-core...
Warning: error: (structure-formation-error (Must be list of 3 elements
#define gs_m.xbm_width 32
#define gs_m.xbm_height 32
#define gs_m.xbm_x_hot 0
#define gs_m.xbm_y_hot 0
static unsigned char gs.m.bm_bits[] = {
0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x50, 0x00, 0x00, 0x00, 0x48, 0x00,
0x00, 0xf8, 0xc7, 0x00, 0x00, 0xff, 0xc1, 0x00, 0x80, 0x3f, 0xf0, 0x00,
0xc0, 0x0f, 0xf8, 0x01, 0xc0, 0x87, 0xfc, 0x03, 0xe0, 0xa7, 0xfc, 0x03,
0xe0, 0x27, 0xf8, 0x03, 0xe0, 0x07, 0xf0, 0x03, 0xc0, 0x0f, 0xe3, 0x01,
0x80, 0x1f, 0xe3, 0x00, 0x00, 0x3f, 0x60, 0x00, 0x00, 0x7c, 0x10, 0x00,
0xc0, 0x3f, 0x00, 0x00, 0xe0, 0x03, 0x00, 0x00, 0xf0, 0x07, 0x00, 0x00,
0xf0, 0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0x03, 0xe0, 0xff, 0xff, 0x07,
0xc0, 0xff, 0xff, 0x0f, 0x00, 0xff, 0xff, 0x1f, 0x00, 0x00, 0xe0, 0x1f,
0xf0, 0x00, 0x80, 0x0f, 0x78, 0x10, 0x80, 0x07, 0x78, 0x10, 0xc0, 0x13,
0x70, 0xe0, 0xff, 0x08, 0xf0, 0x00, 0x00, 0x06, 0xc0, 0x03, 0xe0, 0x01,
0x00, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00};
))
Backtrace follows:
# bind (inhibit-quit)
# (unwind-protect ...)
# (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x17e3da8> ...)
# (unwind-protect ...)
make-image-instance([xbm :data "#define gs_m.xbm_width 32\n#define
gs_m.xbm_height 32\n#define gs_m.xbm_x_hot 0\n#define gs_m.xbm_y_hot
0\nstatic unsigned char gs.m.bm_bits[] = {\n 0x00, 0x00, 0x10, 0x00,
0x00, 0x00, 0x50, 0x00, 0x00, 0x00, 0x48, 0x00,\n 0x00, 0xf8, 0xc7,
0x00, 0x00, 0xff, 0xc1, 0x00, 0x80, 0x3f, 0xf0, 0x00,\n 0xc0, 0x0f,
0xf8, 0x01, 0xc0, 0x87, 0xfc, 0x03, 0xe0, 0xa7, 0xfc, 0x03,\n 0xe0,
0x27, 0xf8, 0x03, 0xe0, 0x07, 0xf0, 0x03, 0xc0, 0x0f, 0xe3, 0x01,\n
0x80, 0x1f, 0xe3, 0x00, 0x00, 0x3f, 0x60, 0x00, 0x00, 0x7c, 0x10,
0x00,\n 0xc0, 0x3f, 0x00, 0x00, 0xe0, 0x03, 0x00, 0x00, 0xf0, 0x07,
0x00, 0x00,\n 0xf0, 0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0x03, 0xe0,
0xff, 0xff, 0x07,\n 0xc0, 0xff, 0xff, 0x0f, 0x00, 0xff, 0xff, 0x1f,
0x00, 0x00, 0xe0, 0x1f,\n 0xf0, 0x00, 0x80, 0x0f, 0x78, 0x10, 0x80,
0x07, 0x78, 0x10, 0xc0, 0x13,\n 0x70, 0xe0, 0xff, 0x08, 0xf0, 0x00,
0x00, 0x06, 0xc0, 0x03, 0xe0, 0x01,\n 0x00, 0xff, 0x1f, 0x00, 0x00,
0x00, 0x00, 0x00};\n"] nil nil no-error)
# (unwind-protect ...)
# bind (type end start)
image-decode(1 946 xbm)
image-decode-buffer()
# bind (arg)
image-mode()
# bind (alist mode name keep-going)
# (unwind-protect ...)
# bind (just-from-file-name)
set-auto-mode()
#<compiled-function nil "...(5)" [set-auto-mode t] 1>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function
(__call_trapping_errors_arg__) "...(17)" [__call_trapping_errors_arg__
errstr error-message-string lwarn file-mode-spec warning "Error in %s:
%s\n\nBacktrace follows:\n\n%s" "File mode specification"
backtrace-in-condition-handler-eliminating-handler] 8>
#<compiled-function nil "...(5)" [set-auto-mode t] 1>)
# (condition-case ... . ((error)))
# bind (find-file)
normal-mode(t)
# bind (nomodes after-find-file-from-revert-buffer noauto warn error)
after-find-file(nil t)
# (unwind-protect ...)
# bind (inhibit-read-only error number truename rawfile nowarn filename buf)
find-file-noselect-1(#<buffer "gs_m.xbm">
"c:\\gs\\gs9.00\\lib\\gs_m.xbm" nil nil
"c:\\gs\\gs9.00\\lib\\gs_m.xbm" (0 -191870277))
byte-code("..." [number truename rawfile nowarn filename buf
set-buffer-major-mode find-file-noselect-1] 7)
# (condition-case ... . ((t (byte-code "Â!Ã ＠ A\"" [buf data
kill-buffer signal] 3))))
# bind (number truename buf wildcards rawfile nowarn filename)
find-file-noselect("C:/gs/gs9.00/lib/gs_m.xbm")
# bind (window x frame data object event)
experimental-dragdrop-drop-url-default(#<misc-user-event
(dragdrop-drop-dispatch (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))> (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))
apply(experimental-dragdrop-drop-url-default (#<misc-user-event
(dragdrop-drop-dispatch (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))> (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm")))
# bind (flist button mods object event drop-funs)
dragdrop-drop-do-functions(((experimental-dragdrop-drop-url-default
t t) (experimental-dragdrop-drop-mime-default t t)) #<misc-user-event
(dragdrop-drop-dispatch (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))> (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))
byte-code("..." [object experimental-dragdrop-drop-functions event
event-over-text-area-p dragdrop-extents-done (byte-code
"Æ !Ç !È !É ¬
ÊËÉ\"
¬ Ì!Í Î
Ï#Éa¬ÐÑ\nÏ\" #Î
Ï\n$ªh-É" [window cpos ext buffer event pos event-window
event-point event-closest-point nil throw dragdrop-extents-done
select-window window-buffer extent-at
experimental-dragdrop-drop-functions dragdrop-drop-do-functions
extent-property object] 6) dragdrop-drop-do-functions] 4)
# (catch dragdrop-drop-is-done ...)
# bind (object event)
dragdrop-drop-find-functions(#<misc-user-event
(dragdrop-drop-dispatch (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))> (dragdrop-URL
"file:C:/gs/gs9.00/lib/gs_m.xbm"))
# bind (event object)
dragdrop-drop-dispatch((dragdrop-URL "file:C:/gs/gs9.00/lib/gs_m.xbm"))
(dispatch-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
Loading image-mode...done
Loading image-mode...
Loading efs-cu...done
Loading efs-cu...
Note: file is write protected
Paren mode is paren
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta
3:40 p.m.
Samuel Bronson writes:
According to the documentation of `make-image-specifier' (as well
as
the error shown in the recent messages below), "xbm" images require a
list of three items for :data, but `image-mode' is just passing in the
buffer contents as a string.
That's an image-mode bug, not a problem with XEmacs. (Bugs in
image-mode are nothing new. Glynn did his best but once a lemon,
always a lemon.) image-mode probably should only try to display XBMs
interactively, prompting the user for important hints like geometry.
Try copying the following sexp to *scratch*, putting your cursor at
its end, and pressing C-x C-e
(let ((e (make-extent (point) (point))))
(set-extent-end-glyph (make-glyph "xemacs.xbm")))
You should see that XEmacs will normally try to interpret a string as
a file name first. There is a certain amount of dwimminess that's
feasible. But ...
It seems as though it would be rather a lot of work to parse data in
XBM file-format out of a buffer into a data spec in elisp,
It's not a lot of work, it's impossible. It requires information not
present in the file to determine the semantics of the #defines
(assuming there even are any #defines! -- consider an application
which uses a set of tiles of identical geometry, or a filename like
"gray16x16.xbm"). A human can probably make a good guess, of course,
and something like:
(defconst param-define-re "#define.*\\s-\\([0-9]+\\)\\s-$")
(defconst folding-ws-re "\\(?:\n\\|\\s-\\)*")
(defconst bits-start-re (concat "\\bchar\\b.*=" folding-ws-re "{"))
(defconst hex-literal-re "0x\\([0-9a-fA-f]+\\)"
"Captures the hex digit string in group 1.")
(defconst early-hex-literal-re (concat hex-literal-re "))\\s-*,"
(defconst bits-end-re (concat hex-literal-re folding-ws-re "}")
"We don't worry about the terminating semicolon, that's cc's
headache.")
(defun guess-xbm-geometry-from-buffer ()
(interactive)
(save-excursion
(flet ((parse-define (name)
(goto-char (point-min))
(when (and (search-forward name nil t)
(progn (beginning-of-line) t)
(looking-at param-define-re))
(string-to-number (match-string 1)))))
(save-match-data
(let* ((case-fold-search t) ;; let* so this takes effect
(h (parse-define "height"))
(w (parse-define "width"))
(bits nil))
(goto-char (point-min))
(when (re-search-forward bits-start-re nil t)
;; this could bear a bit of generalization, too...
(while (re-search-forward early-hex-literal-re nil t)
(push (string-to-number (match-string 1) 16) bits))
(if (re-search-forward bits-end-re nil t)
(when (match-string 1)
(push (string-to-number (match-string 1) 16) bits))
;; oops, the initializer doesn't seem to be terminated
(setq bits nil)))
(and w h bits (list w h (mapconcat #'int-to-char bits ""))))))))
should be reasonably safe (was that so hard? most of the effort is in
protecting ourselves from Stallman's love affair with global data. ;-)
The necessary changes to image-mode are (for the moment) an exercise
for the reader. Let me know if that works for you.
But image-mode doesn't necessarily know that there's a file, nor does
it know that the buffer is properly formatted. The right thing is to
parse the information and confirm that the right amount of data is
present, then send it to the image instantiation code.
The cheap way to go is to save to a tempfile and pass its name to
make-glyph.
here. (It does seem that Xlib shares this inability to accept data
in
the file format from anything but a file -- one with a filename,
even!
*shudder* Passing *any* kind of unchecked data to Xlib is asking for a
crash.
-- but if this isn't stopping XEmacs from loading them on
Windows, I
don't see why it should stop XEmacs from loading them from strings of
data in the file format.)
Because IIRC in fact we *do* pass file names to Xlib (or a small
associate of it, libXmu) on Windows. :-)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta
10 p.m.
On Sat, Oct 30, 2010 at 10:40 AM, Stephen J. Turnbull
<stephen(a)xemacs.org> wrote:
Samuel Bronson writes:
> According to the documentation of `make-image-specifier' (as well as
> the error shown in the recent messages below), "xbm" images require a
> list of three items for :data, but `image-mode' is just passing in the
> buffer contents as a string.
That's an image-mode bug, not a problem with XEmacs. (Bugs in
image-mode are nothing new. Glynn did his best but once a lemon,
always a lemon.) image-mode probably should only try to display XBMs
interactively, prompting the user for important hints like geometry.
Try copying the following sexp to *scratch*, putting your cursor at
its end, and pressing C-x C-e
(let ((e (make-extent (point) (point))))
(set-extent-end-glyph (make-glyph "xemacs.xbm")))
You should see that XEmacs will normally try to interpret a string as
a file name first. There is a certain amount of dwimminess that's
feasible. But ...
> It seems as though it would be rather a lot of work to parse data in
> XBM file-format out of a buffer into a data spec in elisp,
It's not a lot of work, it's impossible. It requires information not
present in the file to determine the semantics of the #defines
So, how does Xlib do it with a file, then? (Or did you just mean that
it would need a filename?)
If that's what you meant, couldn't you just make the :file mandatory
for "xbm" and re-use the C code from libXmu for the parsing?
(assuming there even are any #defines! -- consider an application
which uses a set of tiles of identical geometry, or a filename like
"gray16x16.xbm"). A human can probably make a good guess, of course,
and something like:
(defconst param-define-re "#define.*\\s-\\([0-9]+\\)\\s-$")
(defconst folding-ws-re "\\(?:\n\\|\\s-\\)*")
(defconst bits-start-re (concat "\\bchar\\b.*=" folding-ws-re "{"))
(defconst hex-literal-re "0x\\([0-9a-fA-f]+\\)"
"Captures the hex digit string in group 1.")
(defconst early-hex-literal-re (concat hex-literal-re "))\\s-*,"
(defconst bits-end-re (concat hex-literal-re folding-ws-re "}")
"We don't worry about the terminating semicolon, that's cc's
headache.")
(defun guess-xbm-geometry-from-buffer ()
(interactive)
(save-excursion
(flet ((parse-define (name)
(goto-char (point-min))
(when (and (search-forward name nil t)
(progn (beginning-of-line) t)
(looking-at param-define-re))
(string-to-number (match-string 1)))))
(save-match-data
(let* ((case-fold-search t) ;; let* so this takes effect
(h (parse-define "height"))
(w (parse-define "width"))
(bits nil))
(goto-char (point-min))
(when (re-search-forward bits-start-re nil t)
;; this could bear a bit of generalization, too...
(while (re-search-forward early-hex-literal-re nil t)
(push (string-to-number (match-string 1) 16) bits))
(if (re-search-forward bits-end-re nil t)
(when (match-string 1)
(push (string-to-number (match-string 1) 16) bits))
;; oops, the initializer doesn't seem to be terminated
(setq bits nil)))
(and w h bits (list w h (mapconcat #'int-to-char bits ""))))))))
should be reasonably safe (was that so hard? most of the effort is in
protecting ourselves from Stallman's love affair with global data. ;-)
Huh. That looks really messy ... maybe it would be better to just stop
putting the .xbm file -> image-mode mapping in `auto-mode-alist'?
The necessary changes to image-mode are (for the moment) an exercise
for the reader. Let me know if that works for you.
But image-mode doesn't necessarily know that there's a file, nor does
it know that the buffer is properly formatted. The right thing is to
parse the information and confirm that the right amount of data is
present, then send it to the image instantiation code.
We don't exactly know files on disk are properly formatted, either...
The cheap way to go is to save to a tempfile and pass its name to
make-glyph.
> here. (It does seem that Xlib shares this inability to accept data in
> the file format from anything but a file -- one with a filename,
> even!
*shudder* Passing *any* kind of unchecked data to Xlib is asking for a
crash.
> -- but if this isn't stopping XEmacs from loading them on Windows, I
> don't see why it should stop XEmacs from loading them from strings of
> data in the file format.)
Because IIRC in fact we *do* pass file names to Xlib (or a small
associate of it, libXmu) on Windows. :-)
I realized that you probably were, but I figured that whatever small
thing you used on Windows could easily be stolen from for this
purpose.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta
11:10 a.m.
Samuel Bronson writes:
So, how does Xlib do it with a file, then?
With files written by XWriteBitmapFile, it knows that the first two
(or four) lines will be in a specific format, and can parse them as my
Lisp function did. This format is defined here:
http://tronche.com/gui/x/xlib/utilities/manipulating-bitmaps.html
But in general, Xlib can't do it with a file, either. An XBM is just
a C program fragment, containing an (unsigned) char[] literal (in X10,
short[]s were accepted, too!) By convention it also contains #defines
for width and height and optionally the hotspot position, but I've
seen a number of these that don't conform to the X spec above. Xlib
can't handle those (and my code handles a strict superset of those
that Xlib can).
If that's what you meant, couldn't you just make the :file
mandatory
for "xbm" and re-use the C code from libXmu for the parsing?
No, because image-mode allows you to *create* images in XBM format,
and we don't necessarily want to have to write a file to view it.
We don't exactly know files on disk are properly formatted,
either...
No, but that's not our problem. Buffer content, which may or may not
correspond to any given file on disk, and which may or may not be in
standard format, is our problem.
I figured that whatever small thing you used on Windows could
easily be stolen from for this purpose.
It's not that easy (buffers are not C strings). I finally did find
the "small thing", it's in a file I didn't know existed
(src/glyphs-shared.c), which exists apparently only for this purpose
(allowing Windows to read standard XBMs). The code is highly
optimized and obscure. It does no error-checking, and is technically
incorrect (it assumes the file is 100% ASCII and ignores the locale).
It would be annoying to generalize it to do error-checking.
Unless there's an efficiency issue, I'm much happier writing these
things in LISP so that users can fix my mistakes without recompiling,
relinking, and redumping XEmacs. :-)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta
4920
days inactive
4921
days old
3 comments
2 participants
participants (2)
-
Samuel Bronson -
Stephen J. Turnbull