9:38 a.m.
I've just installed lastet XEmacs 21.5 (the CVS date in the
Installation file attached doesn't reflect this, though) and updated
to latest CVS packages on MacOSX 10.5.1. Now, my gnus configuration
causes trouble.
My gnus.el file contains `(require 'pgg)'. This fails with "Symbol's
value as variable is void: pgg-parse-crc24". The new build seems to
have problems with CCL, since the definition of `pgg-parse-crc24' in
pgg-parse.el is wrapped with "(when (fboundp 'define-ccl-program)
...".
Strangely, `(fboundp 'define-ccl-program)' evaluates to `t' in my
*scratch* buffer, but it does not seem to do this when pgg-parse.el is
loaded from my gnus.el.
It works when I put
(load-file "/SOME/PATH/xemacs-packages/lisp/pgg/pgg-parse.el")
in my gnus.el. How can I avoid this kludge and fix this for real?
Can someone help?
uname -a: Darwin bender.informatik.uni-tuebingen.de 9.1.0 Darwin Kernel Version 9.1.0: Wed
Oct 31 17:46:22 PDT 2007; root:xnu-1228.0.2~1/RELEASE_I386 i386
../xemacs-21.5-hg/configure '--enable-mule' '--enable-menubars=lucid'
'--enable-scrollbars=lucid' '--with-xpm' '--with-jpeg'
'--with-png' '--enable-dialogs=athena'
'--enable-mail-locking-file=file' '--enable-pdump' '--with-x'
'--x-includes=/usr/X11R6/include' '--x-libraries=/usr/X11R6/lib'
'--with-site-includes=/afs/informatik.uni-tuebingen.de/ppc_macx88/include
/afs/informatik.uni-tuebingen.de/ppc_macx80/include
/afs/informatik.uni-tuebingen.de/ppc_macx72/include
/afs/informatik.uni-tuebingen.de/ppc_macx70/include'
'--with-site-libraries=/afs/informatik.uni-tuebingen.de/ppc_macx88/lib
/afs/informatik.uni-tuebingen.de/ppc_macx80/lib
/afs/informatik.uni-tuebingen.de/ppc_macx72/lib
/afs/informatik.uni-tuebingen.de/ppc_macx70/lib'
'--prefix=/afs/informatik.uni-tuebingen.de/pu/src/crestani/ppc_macx88/xemacs-21.5-newgc'
'--enable-newgc'
XEmacs 21.5-b28 "fuki" (+CVS-20071205) configured for
`i686-apple-darwin9.1.0'.
Compilation Environment and Installation Defaults:
Source code location:
/home/crestani/local/src/xemacs-builds/xemacs-21.5-hg
Installation prefix:
/afs/informatik.uni-tuebingen.de/pu/src/crestani/ppc_macx88/xemacs-21.5-newgc
Additional header files: /afs/informatik.uni-tuebingen.de/ppc_macx88/include
/afs/informatik.uni-tuebingen.de/ppc_macx80/include
/afs/informatik.uni-tuebingen.de/ppc_macx72/include
/afs/informatik.uni-tuebingen.de/ppc_macx70/include
Additional libraries: /afs/informatik.uni-tuebingen.de/ppc_macx88/lib
/afs/informatik.uni-tuebingen.de/ppc_macx80/lib
/afs/informatik.uni-tuebingen.de/ppc_macx72/lib
/afs/informatik.uni-tuebingen.de/ppc_macx70/lib
Operating system description file: `s/darwin.h'
Not using any machine description file
Compiler version: i686-apple-darwin9-gcc-4.0.1 (GCC) 4.0.1 (Apple Inc.
build 5465)
- GCC specs file: specs.
- Compiler command: gcc -Wall -Wno-switch -Wundef -Wsign-compare
-Wno-char-subscripts -Wpacked -Wpointer-arith -Wunused-parameter -g
libc version:
Relocating allocator for buffers: no
GNU version of malloc: no
- The GNU allocators don't work with this system configuration.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw
- Athena library to link: Xaw
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Databases:
Compiling in support for Berkeley database.
Compiling in support for DBM.
Compiling in support for LDAP.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
Mail:
Compiling in support for "file" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Using the new GC mark algorithms (KKCC).
WARNING: ---------------------------------------------------------
WARNING: The new algorithms are experimental. They are enabled by
WARNING: default for this release. Use `--disable-kkcc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
Using the new incremental garbage collector and the new allocator.
Using POSIX sigaction() to install fault handler.
Using the new portable dumper.
Compiling in support for extra debugging code.
Compiling in support for runtime error checking.
WARNING: ---------------------------------------------------------
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
--
Marcus
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
10:51 a.m.
Ar an naoú lá déag de mí na Nollaig, scríobh Marcus Crestani:
I've just installed lastet XEmacs 21.5 (the CVS date in the
Installation file attached doesn't reflect this, though) and updated
to latest CVS packages on MacOSX 10.5.1. Now, my gnus configuration
causes trouble.
My gnus.el file contains `(require 'pgg)'. This fails with "Symbol's
value as variable is void: pgg-parse-crc24". The new build seems to
have problems with CCL, since the definition of `pgg-parse-crc24' in
pgg-parse.el is wrapped with "(when (fboundp 'define-ccl-program)
...".
Which is wrong, independent of this bug. define-ccl-program is a macro, and
whether it’s available at run time is mostly irrelevant.
Strangely, `(fboundp 'define-ccl-program)' evaluates to
`t' in my
*scratch* buffer, but it does not seem to do this when pgg-parse.el is
loaded from my gnus.el.
It works when I put
(load-file "/SOME/PATH/xemacs-packages/lisp/pgg/pgg-parse.el")
in my gnus.el.
Which isn’t byte compiled, and doesn’t choke on compile time versus run time
incompatibilities. Whence the difference, I think.
I’d be interested in seeing your compiled pgg-parse.elc , if you can post it
somewhere. Did you
How can I avoid this kludge and fix this for real?
Can someone help?
Try this patch, which is analagous to what I’m doing in lisp/unicode.el
where there’s also a CCL program that needs to be compilable by under
non-Mule:
--- pgg-parse.el~ Fri Sep 23 15:31:43 2005
+++ pgg-parse.el Wed Dec 19 11:42:59 2007
＠＠ -35,7 +35,7 ＠＠
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl) (when (featurep 'mule) (require 'ccl)))
(defgroup pgg-parse ()
"OpenPGP packet parsing."
＠＠ -159,25 +159,42 ＠＠
(defmacro pgg-set-alist (alist key value)
`(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
-(when (fboundp 'define-ccl-program)
+(defconst pgg-parse-crc24
+ (eval-when-compile
+ (let ((pre-existing
+ [1 30 14 114744 114775 0 161 131127 1 148217 15 82167 1 1848
+ 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 -5628
+ -7164 22]))
+ (when (fboundp #'ccl-compile)
+ (assert
+ (equal
+ pre-existing
+ (ccl-compile
+ '(1
+ ((loop
+ (read r0) (r1 ^= r0) (r2 ^= 0)
+ (r5 = 0)
+ (loop
+ (r1 <<= 1)
+ (r1 += ((r2 >> 15) & 1))
+ (r2 <<= 1)
+ (if (r1 & 256)
+ ((r1 ^= 390) (r2 ^= 19707)))
+ (if (r5 < 7)
+ ((r5 += 1)
+ (repeat))))
+ (repeat))))))
+ nil
+ "The pre-compiled CCL program appears broken, or the implementation
+of `ccl-compile' has changed versus to when this code was written. "))
+ pre-existing))
+ "A CCL program to parse CRC 24 checksums. See `define-ccl-program'.")
- (define-ccl-program pgg-parse-crc24
- '(1
- ((loop
- (read r0) (r1 ^= r0) (r2 ^= 0)
- (r5 = 0)
- (loop
- (r1 <<= 1)
- (r1 += ((r2 >> 15) & 1))
- (r2 <<= 1)
- (if (r1 & 256)
- ((r1 ^= 390) (r2 ^= 19707)))
- (if (r5 < 7)
- ((r5 += 1)
- (repeat))))
- (repeat)))))
+(put 'pgg-parse-crc24 'ccl-program-idx
+ (register-ccl-program 'pgg-parse-crc24 pgg-parse-crc24))
- (defun pgg-parse-crc24-string (string)
+(defun pgg-parse-crc24-string (string)
+ (when (fboundp #'ccl-execute-on-string)
(let ((h (vector nil 183 1230 nil nil nil nil nil nil)))
(ccl-execute-on-string pgg-parse-crc24 h string)
(format "%c%c%c"
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
12:14 p.m.
Ar an naoú lá déag de mí na Nollaig, scríobh Aidan Kehoe:
Ar an naoú lá déag de mí na Nollaig, scríobh Marcus Crestani:
> It works when I put
>
> (load-file "/SOME/PATH/xemacs-packages/lisp/pgg/pgg-parse.el")
>
> in my gnus.el.
Which isn’t byte compiled, and doesn’t choke on compile time versus run time
incompatibilities. Whence the difference, I think.
I’d be interested in seeing your compiled pgg-parse.elc , if you can post it
somewhere. Did you
“... compile it without Mule?” I meant to add there.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
2:46 p.m.
New subject: [PATCH] Check CCL available at run time, not compile time, in PGG.
Simon, this came up on xemacs-beta recently; see
http://mid.gmane.org/vpdhcif81o9.fsf＠informatik.uni-tuebingen.de and the
associated thread for details. If you’re not actively maintaining the XEmacs
PGG package, please say so, and I’ll see can I fight with the CVS
infrastructure to let me commit the patch.
2007-12-23 Aidan Kehoe <kehoea(a)parhasard.net>
* pgg-parse.el (pgg-parse-crc24):
Provide the CCL program, independent of whether
#'define-ccl-program was available at compile time.
* pgg-parse.el (pgg-parse-crc24-string):
Only call the CCL program if #'ccl-execute-on-string is available,
which it will be, if the current emacs has CCL support.
--- pgg-parse.el~ Fri Sep 23 15:31:43 2005
+++ pgg-parse.el Wed Dec 19 11:42:59 2007
＠＠ -35,7 +35,7 ＠＠
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl) (when (featurep 'mule) (require 'ccl)))
(defgroup pgg-parse ()
"OpenPGP packet parsing."
＠＠ -159,25 +159,42 ＠＠
(defmacro pgg-set-alist (alist key value)
`(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
-(when (fboundp 'define-ccl-program)
+(defconst pgg-parse-crc24
+ (eval-when-compile
+ (let ((pre-existing
+ [1 30 14 114744 114775 0 161 131127 1 148217 15 82167 1 1848
+ 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 -5628
+ -7164 22]))
+ (when (fboundp #'ccl-compile)
+ (assert
+ (equal
+ pre-existing
+ (ccl-compile
+ '(1
+ ((loop
+ (read r0) (r1 ^= r0) (r2 ^= 0)
+ (r5 = 0)
+ (loop
+ (r1 <<= 1)
+ (r1 += ((r2 >> 15) & 1))
+ (r2 <<= 1)
+ (if (r1 & 256)
+ ((r1 ^= 390) (r2 ^= 19707)))
+ (if (r5 < 7)
+ ((r5 += 1)
+ (repeat))))
+ (repeat))))))
+ nil
+ "The pre-compiled CCL program appears broken, or the implementation
+of `ccl-compile' has changed versus to when this code was written. "))
+ pre-existing))
+ "A CCL program to parse CRC 24 checksums. See `define-ccl-program'.")
- (define-ccl-program pgg-parse-crc24
- '(1
- ((loop
- (read r0) (r1 ^= r0) (r2 ^= 0)
- (r5 = 0)
- (loop
- (r1 <<= 1)
- (r1 += ((r2 >> 15) & 1))
- (r2 <<= 1)
- (if (r1 & 256)
- ((r1 ^= 390) (r2 ^= 19707)))
- (if (r5 < 7)
- ((r5 += 1)
- (repeat))))
- (repeat)))))
+(put 'pgg-parse-crc24 'ccl-program-idx
+ (register-ccl-program 'pgg-parse-crc24 pgg-parse-crc24))
- (defun pgg-parse-crc24-string (string)
+(defun pgg-parse-crc24-string (string)
+ (when (fboundp #'ccl-execute-on-string)
(let ((h (vector nil 183 1230 nil nil nil nil nil nil)))
(ccl-execute-on-string pgg-parse-crc24 h string)
(format "%c%c%c"
--- pgg-parse.el~ Fri Sep 23 15:31:43 2005
+++ pgg-parse.el Wed Dec 19 11:42:59 2007
＠＠ -35,7 +35,7 ＠＠
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl) (when (featurep 'mule) (require 'ccl)))
(defgroup pgg-parse ()
"OpenPGP packet parsing."
＠＠ -159,25 +159,42 ＠＠
(defmacro pgg-set-alist (alist key value)
`(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
-(when (fboundp 'define-ccl-program)
+(defconst pgg-parse-crc24
+ (eval-when-compile
+ (let ((pre-existing
+ [1 30 14 114744 114775 0 161 131127 1 148217 15 82167 1 1848
+ 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 -5628
+ -7164 22]))
+ (when (fboundp #'ccl-compile)
+ (assert
+ (equal
+ pre-existing
+ (ccl-compile
+ '(1
+ ((loop
+ (read r0) (r1 ^= r0) (r2 ^= 0)
+ (r5 = 0)
+ (loop
+ (r1 <<= 1)
+ (r1 += ((r2 >> 15) & 1))
+ (r2 <<= 1)
+ (if (r1 & 256)
+ ((r1 ^= 390) (r2 ^= 19707)))
+ (if (r5 < 7)
+ ((r5 += 1)
+ (repeat))))
+ (repeat))))))
+ nil
+ "The pre-compiled CCL program appears broken, or the implementation
+of `ccl-compile' has changed versus to when this code was written. "))
+ pre-existing))
+ "A CCL program to parse CRC 24 checksums. See `define-ccl-program'.")
- (define-ccl-program pgg-parse-crc24
- '(1
- ((loop
- (read r0) (r1 ^= r0) (r2 ^= 0)
- (r5 = 0)
- (loop
- (r1 <<= 1)
- (r1 += ((r2 >> 15) & 1))
- (r2 <<= 1)
- (if (r1 & 256)
- ((r1 ^= 390) (r2 ^= 19707)))
- (if (r5 < 7)
- ((r5 += 1)
- (repeat))))
- (repeat)))))
+(put 'pgg-parse-crc24 'ccl-program-idx
+ (register-ccl-program 'pgg-parse-crc24 pgg-parse-crc24))
- (defun pgg-parse-crc24-string (string)
+(defun pgg-parse-crc24-string (string)
+ (when (fboundp #'ccl-execute-on-string)
(let ((h (vector nil 183 1230 nil nil nil nil nil nil)))
(ccl-execute-on-string pgg-parse-crc24 h string)
(format "%c%c%c"
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
10:11 p.m.
New subject: [COMMIT] Check CCL available at run time, not compile time, in PGG.
APPROVE COMMIT
NOTE: This patch has been committed.
(I should be working, but I noticed this, and if I hadn’t committed it now,
I doubt it would have been committed in this calendar year. See
http://mid.gmane.org/vpdhcif81o9.fsf＠informatik.uni-tuebingen.de for the
original problem and the associated discussion.)
xemacs-packages/pgg/ChangeLog addition:
2007-12-23 Aidan Kehoe <kehoea(a)parhasard.net>
* pgg-parse.el (pgg-parse-crc24):
Provide the CCL program, independent of whether
#'define-ccl-program was available at compile time.
* pgg-parse.el (pgg-parse-crc24-string):
Only call the CCL program if #'ccl-execute-on-string is available,
which it will be, if the current emacs has CCL support.
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/pgg/pgg-parse.el
===================================================================
RCS
Index: xemacs-packages/pgg/pgg-parse.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/pgg/pgg-parse.el,v
retrieving revision 1.5
diff -u -u -r1.5 pgg-parse.el
--- xemacs-packages/pgg/pgg-parse.el 2005/09/23 12:53:14 1.5
+++ xemacs-packages/pgg/pgg-parse.el 2009/01/25 22:06:13
＠＠ -35,7 +35,7 ＠＠
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl) (when (featurep 'mule) (require 'ccl)))
(defgroup pgg-parse ()
"OpenPGP packet parsing."
＠＠ -159,25 +159,42 ＠＠
(defmacro pgg-set-alist (alist key value)
`(setq ,alist (nconc ,alist (list (cons ,key ,value)))))
-(when (fboundp 'define-ccl-program)
+(defconst pgg-parse-crc24
+ (eval-when-compile
+ (let ((pre-existing
+ [1 30 14 114744 114775 0 161 131127 1 148217 15 82167 1 1848
+ 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 -5628
+ -7164 22]))
+ (when (fboundp #'ccl-compile)
+ (assert
+ (equal
+ pre-existing
+ (ccl-compile
+ '(1
+ ((loop
+ (read r0) (r1 ^= r0) (r2 ^= 0)
+ (r5 = 0)
+ (loop
+ (r1 <<= 1)
+ (r1 += ((r2 >> 15) & 1))
+ (r2 <<= 1)
+ (if (r1 & 256)
+ ((r1 ^= 390) (r2 ^= 19707)))
+ (if (r5 < 7)
+ ((r5 += 1)
+ (repeat))))
+ (repeat))))))
+ nil
+ "The pre-compiled CCL program appears broken, or the implementation
+of `ccl-compile' has changed versus to when this code was written. "))
+ pre-existing))
+ "A CCL program to parse CRC 24 checksums. See `define-ccl-program'.")
- (define-ccl-program pgg-parse-crc24
- '(1
- ((loop
- (read r0) (r1 ^= r0) (r2 ^= 0)
- (r5 = 0)
- (loop
- (r1 <<= 1)
- (r1 += ((r2 >> 15) & 1))
- (r2 <<= 1)
- (if (r1 & 256)
- ((r1 ^= 390) (r2 ^= 19707)))
- (if (r5 < 7)
- ((r5 += 1)
- (repeat))))
- (repeat)))))
+(put 'pgg-parse-crc24 'ccl-program-idx
+ (register-ccl-program 'pgg-parse-crc24 pgg-parse-crc24))
- (defun pgg-parse-crc24-string (string)
+(defun pgg-parse-crc24-string (string)
+ (when (fboundp #'ccl-execute-on-string)
(let ((h (vector nil 183 1230 nil nil nil nil nil nil)))
(ccl-execute-on-string pgg-parse-crc24 h string)
(format "%c%c%c"
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
5780
days inactive
6183
days old
4 comments
2 participants
participants (2)
-
Aidan Kehoe -
Marcus Crestani