ebrowse problems when loading a BROWSE file
jrom...@earthlink.net
already tried "emacs -q --no-site-file" with the same results. Here is
the output from *Messages* buffer:
File mode specification error: (wrong-type-argument consp [ebrowse-ts
[ebrowse-cs "MsgHandler" "mev" 0 nil nil 0 nil] ([ebrowse-ts
[ebrowse-cs "SerialBroadcaster" "mev" 0 "mevSerialBcast.h" " class
SerialBroadcaster :" 1826 "mevSerialBcast.h"] nil ([ebrowse-ms
"broadcastInProgress_m" nil 0 nil " bool
broadcastInProgress_m;" 4898 2 nil nil 0] [ebrowse-ms
"broadcastReplyTimer_m" nil 0 nil " Timer
broadcastReplyTimer_m;" 5502 2 nil nil 0] [ebrowse-ms
"currentBitwiseBroadcastId_m" nil 0 nil " uint32_t
currentBitwiseBroadcastId_m;" 5281 2 nil nil 0] [ebrowse-ms
"currentBroadcastId_m" nil 0 nil " uint32_t
currentBroadcastId_m;" 5234 2 nil nil 0] [ebrowse-ms
"currentBroadcastMessage_m" nil 0 nil " Msg
currentBroadcastMessage_m;" 5194 2 nil nil 0] [ebrowse-ms
"currentBroadcastRecipient_m" nil 0 nil " Address
currentBroadcastRecipient_m;" 5046 2 nil nil 0] [ebrowse-ms
"functionTable" nil 0 nil nil 0 0 "mevSerialBcast.cc"
"lBroadcaster::staticInitializeForBroadcast} }
};" 4476] [ebrowse-ms "originatorAddress_m" nil 0 nil " Address
originatorAddress_m;" 5614 2 nil nil 0] [ebrowse-ms
"originatorReplyFunction_m" nil 0 nil " FunctionNumber
originatorReplyFunction_m;" 5662 2 nil nil 0] [ebrowse-ms
"pendingBroadcastQueue_m" nil 0 nil " MessageQueue
pendingBroadcastQueue_m;" 4786 2 nil nil 0]) ([ebrowse-ms
"MsgHandlerDefinition" nil 0 nil "
MsgHandlerDefinition(SerialBroadcaster" 1894 2 nil nil 0] [ebrowse-ms
"SerialBroadcaster" nil 0 nil nil 0 0 "mevSerialBcast.cc"
"Broadcaster::SerialBroadcaster ( Msg & msg_r ) :" 4917] [ebrowse-ms
"enqueueBroadcastMsg" nil 0 nil " void enqueueBroadcastMsg
( Msg" 4251 2 "mevSerialBcast.cc"
"ev::SerialBroadcaster::enqueueBroadcastMsg ( Msg" 19774] [ebrowse-ms
"handleAck" nil 0 nil " void handleAck ( Msg"
3635 2 "mevSerialBcast.cc" "void mev::SerialBroadcaster::handleAck (
Msg" 16719] [ebrowse-ms "handleBroadcastRequest" nil 0 nil " void
handleBroadcastRequest ( Msg" 3456 2 "mevSerialBcast.cc"
":SerialBroadcaster::handleBroadcastRequest ( Msg" 6775] [ebrowse-ms
"handleTimeout" nil 0 nil " void handleTimeout (
Msg" 3802 2 "mevSerialBcast.cc" "void
mev::SerialBroadcaster::handleTimeout ( Msg" 18420] [ebrowse-ms
"handleUndeliverableBroadcast" nil 0 nil " void
handleUndeliverableBroadcast ( Msg" 3975 2 "mevSerialBcast.cc"
"lBroadcaster::handleUndeliverableBroadcast ( Msg" 19271] [ebrowse-ms
"initialize" nil 0 nil " void initialize ( void"
3336 2 "mevSerialBcast.cc" "void mev::SerialBroadcaster::initialize (
void" 5571] [ebrowse-ms "initializeForBroadcast" nil 0 nil " void
initializeForBroadcast ( Msg" 4503 2 "mevSerialBcast.cc"
"::SerialBroadcaster::initializeForBroadcast( Msg" 8214] [ebrowse-ms
"sendBroadcastToNextRecipient" nil 0 nil " void
sendBroadcastToNextRecipient ( void" 4388 2 "mevSerialBcast.cc"
"Broadcaster::sendBroadcastToNextRecipient ( void" 11814] [ebrowse-ms
"~SerialBroadcaster" nil 1 nil " virtual ~SerialBroadcaster()"
1944 0 "mevSerialBcast.cc"
"mev::SerialBroadcaster::~SerialBroadcaster(void" 5091]) ([ebrowse-ms
"broadcastAddr_m" nil 0 nil " static Address broadcastAddr_m;"
5701 2 "mevSerialBcast.cc" "ddress
mev::SerialBroadcaster::broadcastAddr_m;" 4632] [ebrowse-ms
"replyTimeout_c" nil 0 nil " static uint32_t replyTimeout_c;" 3087
0 "mevSerialBcast.cc" "2_t
mev::SerialBroadcaster::replyTimeout_c;" 4577]) ([ebrowse-ms
"getBcastAddress" nil 0 nil " static Address getBcastAddress()"
3127 0 nil " static Address getBcastAddress()" 3127] [ebrowse-ms
"init_v" nil 0 nil " static void init_v()" 3206 0
"mevSerialBcast.cc" "void mev::SerialBroadcaster::init_v()" 21385]
[ebrowse-ms "staticHandleAck" nil 0 nil " static void staticHandleAck
( MsgHandler" 3699 2 "mevSerialBcast.cc"
":SerialBroadcaster::staticHandleAck ( MsgHandler" 20675] [ebrowse-ms
"staticHandleBroadcastRequest" nil 0 nil "ic void
staticHandleBroadcastRequest( MsgHandler" 3526 2 "mevSerialBcast.cc"
"aster::staticHandleBroadcastRequest ( MsgHandler" 20513] [ebrowse-ms
"staticHandleTimeout" nil 0 nil " static void staticHandleTimeout (
MsgHandler" 3866 2 "mevSerialBcast.cc"
"alBroadcaster::staticHandleTimeout ( MsgHandler" 20829] [ebrowse-ms
"staticHandleUndeliverableBroadcast" nil 0 nil "d
staticHandleUndeliverableBroadcast( MsgHandler" 4051 2
"mevSerialBcast.cc" ":staticHandleUndeliverableBroadcast ( MsgHandler"
21002] [ebrowse-ms "staticInitializeForBroadcast" nil 0 nil "ic void
staticInitializeForBroadcast( MsgHandler" 4573 2 "mevSerialBcast.cc"
"aster::staticInitializeForBroadcast ( MsgHandler" 21191]) nil
([ebrowse-ms "SerialBroadcasterFunctions" nil 0 nil " {" 2305 0
nil " {" 2305]) nil nil]) nil nil nil nil nil nil nil nil])
mouse-minibuffer-check: Minibuffer window is not active [2 times]
Thanks,
Piotr
Alan Mackenzie
> Every time I try to load my BRWOSE file I am getting errors. I have
> already tried "emacs -q --no-site-file" with the same results. Here is
> the output from *Messages* buffer:
> File mode specification error: (wrong-type-argument consp [ebrowse-ts
> [ebrowse-cs "MsgHandler" "mev" 0 nil nil 0 nil] ([ebrowse-ts
> [ebrowse-cs "SerialBroadcaster" "mev" 0 "mevSerialBcast.h" " class
> SerialBroadcaster :" 1826 "mevSerialBcast.h"] nil ([ebrowse-ms
> .....
UH???? Are we psychic, or something? I posted a patch for this bug on
the emacs-devel mailing list last night.
Assuming you're on GNU Emacs 21.3, apply the following patch to your
ebrowse.el. [If you don't know how to apply a patch, or haven't got the
patch program, say so!]
*************************************************************************
*** /usr/src/packages/BUILD/emacs-21.3/lisp/progmodes/ebrowse.orig.el Wed Jan 29 08:12:36 2003
--- /home/acm/ebrowse.el Tue Jan 11 18:47:54 2005
***************
*** 786,801 ****
(defun ebrowse-class-in-tree (class tree)
"Search for a class with name CLASS in TREE.
! Return the class found, if any. This function is used during the load
! phase where classes appended to a file replace older class
! information."
(let ((tclass (ebrowse-ts-class class))
found)
(while (and tree (not found))
! (let ((root (car tree)))
! (when (string= (ebrowse-qualified-class-name (ebrowse-ts-class root))
(ebrowse-qualified-class-name tclass))
! (setq found root))
(setq tree (cdr tree))))
found))
--- 786,801 ----
(defun ebrowse-class-in-tree (class tree)
"Search for a class with name CLASS in TREE.
! If CLASS is found, return the tail of TREE starting at CLASS. This function
! is used during the load phase where classes appended to a file replace older
! class information."
(let ((tclass (ebrowse-ts-class class))
found)
(while (and tree (not found))
! (let ((root-ptr tree))
! (when (string= (ebrowse-qualified-class-name (ebrowse-ts-class (car root-ptr)))
(ebrowse-qualified-class-name tclass))
! (setq found root-ptr))
(setq tree (cdr tree))))
found))
***************
*** 909,918 ****
(let ((gc-cons-threshold 2000000))
(while (not (progn (skip-chars-forward " \t\n\r") (eobp)))
(let* ((root (read (current-buffer)))
! (old-root (ebrowse-class-in-tree root tree)))
(ebrowse-show-progress "Reading data" (null tree))
! (if old-root
! (setf (car old-root) root)
(push root tree)))))
(garbage-collect)
(list header tree)))
--- 909,918 ----
(let ((gc-cons-threshold 2000000))
(while (not (progn (skip-chars-forward " \t\n\r") (eobp)))
(let* ((root (read (current-buffer)))
! (old-root-ptr (ebrowse-class-in-tree root tree)))
(ebrowse-show-progress "Reading data" (null tree))
! (if old-root-ptr
! (setcar old-root-ptr root)
(push root tree)))))
(garbage-collect)
(list header tree)))
*************************************************************************
> Piotr
--
Alan Mackenzie (Munich, Germany)
Email: aa...@muuc.dee; to decode, wherever there is a repeated letter
(like "aa"), remove half of them (leaving, say, "a").