June 1998 - XEmacs-Beta - XEmacs Mailing List Archives

RE: Text about XEmacs on NT not reachable 26 years, 5 months

Ian MacKinnon

I tried this yesterday and the file was there, but it seems very slow today..... I certainly agree that it should be on xemacs.org --- Ian -----Original Message----- From: Oscar Figueiredo [SMTP:Oscar.Figueiredo＠di.epfl.ch] Sent: Thursday, June 18, 1998 1:24 PM To: xemacs-beta(a)xemacs.org Subject: Text about XEmacs on NT not reachable The following URL mentioned in the NEWS file, http://jagor.srce.hr/~hniksic/xemacs-on-windows.txt, gives a File Not Found error. Moreover the server is very hard to reach even here in Europe (I suppose it must be worse from the US). We should fix that URL in the NEWS. And maybe moving the file to xemacs.org wouldn't be too bad an idea. Oscar

1 participants
0 comments

[Fixed, patch] Re: [Offix DnD crash] 21.0 "Swedish Landrace" on i686-pc-linux 26 years, 5 months

Jan Vroonhof

I found it. It is due to a race condition in the Xt timeout code. This condition is triggered more easily in the D&D code as there only Xt events are processed not XEmacs ones. Basically there too many ques involved. The NT people need to look at there code whether they copied the bug. Don't ya love race conditions? Jan The scenario: 1. A timeout/wakeup gets setup and put on 'pending_timeouts' and 'pending_timeout_list'. 2. The Xt_timeout_call back function is called. This does NOT generate a timeout event directly but moves the timeout from pending_timeouts to completed_timeouts. 3. Xemacs calls event_stream_disable_wakeup this removes the id from 'pending_timeout_list' and calls Xt_remove_timeout. 4. Xt_remove_timeout scans pending_timeouts, finds nothing and returns. 5. time passes. 6. The event code starts converting all completed_timeouts into Emacs events and crashes in event_stream_signal_wakup because the timeout can no longer be found in pending_timeout_list. The fix: Make Xt_remove_timeout also remove the timeout from the completed list for Emacs it is as if the timeout never happened. The recipe: Eval (defun plokker (&rest r) (message "plok")) (add-hook 'post-command-hook (lambda () (start-itimer "plok" 'plokker 1 nil t))) ((lambda nil (start-itimer "plok" (quote plokker) 1 nil t))) and start dragging from XEmacs to XEmacs. The bug at work: Allocated: 36 /* Timer 36 is allocated */ InList 36 /* Put in pending_time_out_list */ Called back: 36 /* callback is called for it -> completed_timouts */ Unlist 36 /* disable wakeup, remove from pending_timeout_lis Preremove 36 (Pending 1) /* Xt_remove_timeout, 1 = !pending_timouts, do nothing Normal sequence (no callback in between) Allocated: 37 InList 37 Unlist 37 Preremove 37 (Pending 0) /* pending timeouts nonempty Removed: 4377440 /* Now the timeout is removed Allocated: 38 InList 38 Completed: 36 /* Converting completed_timouts in events */ Looking up: 36 (0) /* Lookup in resignal_wakeup */ Fatal error: assertion failed, file event-stream.c, line 1214, !NILP (rest) The Changelog: 1998-06-18 Jan Vroonhof <vroonhof(a)math.ethz.ch> * event-Xt.c (emacs_Xt_remove_timeout): Also remove timeout from completed_timeouts. The timer could have expired. The Patch: Index: event-Xt.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/src/event-Xt.c,v retrieving revision 1.40 diff -u -u -r1.40 event-Xt.c --- event-Xt.c 1998/05/14 04:46:24 1.40 +++ event-Xt.c 1998/06/18 20:23:58 ＠＠ -1685,28 +1685,58 ＠＠ { struct Xt_timeout *timeout, *t2; + timeout = NULL; + /* Find the timeout on the list of pending ones, if it's still there. */ - if (!pending_timeouts) return; - if (id == pending_timeouts->id) + if (pending_timeouts) { - timeout = pending_timeouts; - pending_timeouts = pending_timeouts->next; + if (id == pending_timeouts->id) + { + timeout = pending_timeouts; + pending_timeouts = pending_timeouts->next; + } + else + { + t2 = pending_timeouts; + while (t2->next && t2->next->id != id) t2 = t2->next; + if ( t2->next) /*found it */ + { + timeout = t2->next; + t2->next = t2->next->next; + } + } + /* if it was pending, we have removed it from the list */ + if (timeout) + XtRemoveTimeOut (timeout->interval_id); } - else + + /* It could be that the Xt call back was already called but we didn't convert + into an Emacs event yet */ + if (!timeout && completed_timeouts) { - t2 = pending_timeouts; - while (t2->next && t2->next->id != id) t2 = t2->next; - if (! t2->next) return; - timeout = t2->next; - t2->next = t2->next->next; + /* Code duplication! */ + if (id == completed_timeouts->id) + { + timeout = completed_timeouts; + completed_timeouts = completed_timeouts->next; + } + else + { + t2 = completed_timeouts; + while (t2->next && t2->next->id != id) t2 = t2->next; + if ( t2->next) /*found it */ + { + timeout = t2->next; + t2->next = t2->next->next; + } + } } - /* At this point, we've found the thing on the list of pending timeouts, - and removed it. - */ - - XtRemoveTimeOut (timeout->interval_id); - Blocktype_free (the_Xt_timeout_blocktype, timeout); + /* If we found the thing on the lists of timeouts, + and removed it, deallocate + */ + if (timeout) + Blocktype_free (the_Xt_timeout_blocktype, timeout); } static void

1 participants
0 comments

Text about XEmacs on NT not reachable 26 years, 5 months

Oscar Figueiredo

The following URL mentioned in the NEWS file, http://jagor.srce.hr/~hniksic/xemacs-on-windows.txt, gives a File Not Found error. Moreover the server is very hard to reach even here in Europe (I suppose it must be worse from the US). We should fix that URL in the NEWS. And maybe moving the file to xemacs.org wouldn't be too bad an idea. Oscar

1 participants
0 comments

Re: [Fabrice POPINEAU <popineau@esemetz.ese-metz.fr>] Re: [Fabrice POPINEAU <popineau@ese-metz.fr>] [PATCH]: fixes for native build of 21.0-b43 26 years, 5 months

Adrian Aichner

>>>>> "Andy" == Andy Piper <andyp(a)parallax.co.uk> writes: Andy> At 12:41 PM 6/18/98 +0200, Adrian Aichner wrote: >> I can play them with sndrec32 too. Ah, I just noticed all the sounds >> in the package are in CCITT u-Law format. >> >> The sounds I got woking in XEmacs by contrast are all in PCM format. Andy> I converted the sounds using sox. If sox supports PCM format I can Andy> regenerate them. I just converted all of them to PCM using Windows NT sndrec32. You want 'em? I could send you the complete sound-wav.tar.gz if you like. I suggest renaming README.wav in the package to just README since it is NOT a wav file. Likewise for the README.au file in the sound-au package. Later, Adrian Andy> andy Andy> --------------------------------------------------------------------------- Andy> " .sigs are like your face - rarely seen by you and uglier than you think" Andy> Dr Andy Piper, Technical Architect, Parallax Solutions Ltd Andy> mail: andyp(a)parallax.co.uk web: www.parallax.co.uk/~andyp -- Adrian Aichner Applications Engineer Teradyne GmbH Semiconductor Test Group Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 D-81673 MUENCHEN E-mail aichner(a)ecf.teradyne.com

2 participants
1 comments

Re: [Fabrice POPINEAU <popineau@esemetz.ese-metz.fr>] Re: [Fabrice POPINEAU <popineau@ese-metz.fr>] [PATCH]: fixes for native build of 21.0-b43 26 years, 5 months

Adrian Aichner

>>>>> "Fabrice" == Fabrice POPINEAU <popineau(a)esemetz.ese-metz.fr> writes: >>>>> "APA" == Adrian Aichner <aichner(a)ecf.teradyne.com> writes: APA> finally I have a witness that the sounds-wav package MUST be APA> bad. I've been saying so a few times, my MD5 sums agreed APA> with the once you mailed awhile back. APA> I can play other sounds in Windows NT native XEmacs b44 after APA> applying Fabrice's sound fixes. Fabrice> I wouldn't say they are so bad, because : Fabrice> C:\src\xemacs-21.0-b44>start \src\xemacs\packages\etc\sounds\monkey.wav Hello Fabrice, Steven, I can play them with sndrec32 too. Ah, I just noticed all the sounds in the package are in CCITT u-Law format. The sounds I got woking in XEmacs by contrast are all in PCM format. Now that may be it! Later, Adrian Fabrice> does work. So there is something in xemacs code preventing from being Fabrice> played. Fabrice> Fabrice -- Adrian Aichner Applications Engineer Teradyne GmbH Semiconductor Test Group Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 D-81673 MUENCHEN E-mail aichner(a)ecf.teradyne.com

2 participants
1 comments

[PATCH] package-get.el (was: Is there a way to add packages from within XEmacs) 26 years, 5 months

Adrian Aichner

>>>>> "smikes" == Samuel Mikes <smikes(a)alumni.hmc.edu> writes: smikes> A poser: how do you get efs? smikes> (require 'package-get) smikes> ==> package-get smikes> (package-get-package-provider 'efs) smikes> ==> nil Now, this gotta be a bug. smikes> Ah yes: smikes> (load "package-get-base") smikes> ==> t smikes> (package-get-package-provider 'efs) smikes> ==> (efs "1.08") The following is a patch which fixes this. It's based on emacs-version "21.0 \"Swedish Landrace\" XEmacs Lucid". lisp/ChangeLog 1998-06-15 Adrian Aichner <aichner(a)ecf.teradyne.com> * package-get.el (package-get-package-provider): Added autoload cookie. Loading "package-get-base.el" in ALL functions that use it. Fixed some (interactive ...) with multiple argument specs again. Cosmetic indentation changes. Index: package-get.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/lisp/package-get.el,v retrieving revision 1.11 diff -u -r1.11 package-get.el --- package-get.el 1998/06/14 23:12:36 1.11 +++ package-get.el 1998/06/16 05:20:29 ＠＠ -179,6 +179,7 ＠＠ latest version. Optional argument FETCHED-PACKAGES is used to keep track of packages already fetched." (interactive "sPackage: \nsVersion: ") + (load "package-get-base.el") (let* ((the-package (package-get-info-find-package package-get-base package)) (this-package (package-get-info-version ＠＠ -208,8 +209,8 ＠＠ (package-get-all reqd-name reqd-version fetched-packages))) ) (setq this-requires (cdr this-requires))) - fetched-packages - )) + fetched-packages + )) ;;;###autoload (defun package-get (package &optional version conflict) ＠＠ -229,6 +230,7 ＠＠ sum does not match that stored in `package-get-base' for this version of the package, an error is signalled." (interactive "xPackage List: ") + (load "package-get-base.el") (let* ((this-package (package-get-info-version (package-get-info-find-package package-get-base ＠＠ -252,8 +254,8 ＠＠ (not (file-exists-p (package-get-staging-dir filename)))) (if (file-exists-p (package-get-remote-filename (car search-dirs) filename)) - (copy-file (package-get-remote-filename (car search-dirs) filename) - (package-get-staging-dir filename)) + (copy-file (package-get-remote-filename (car search-dirs) filename) + (package-get-staging-dir filename)) (setq search-dirs (cdr search-dirs)) )) (if (not (file-exists-p (package-get-staging-dir filename))) ＠＠ -261,7 +263,7 ＠＠ ;; Validate the md5 checksum ;; Doing it with XEmacs removes the need for an external md5 program (with-temp-buffer - ; What ever happened to i-f-c-literally + ;; What ever happened to i-f-c-literally (let (file-name-handler-alist) (insert-file-contents-internal (package-get-staging-dir filename))) (if (not (string= (md5 (current-buffer)) ＠＠ -283,15 +285,15 ＠＠ )) (defun package-get-info-find-package (which name) - "Look in WHICH for the packaged called NAME and return all the info - associated with it. See `package-get-base' for info on the format - returned. + "Look in WHICH for the package called NAME and return all the info +associated with it. See `package-get-base' for info on the format +returned. To access fields returned from this, use `package-get-info-version' to return information about particular a version. Use `package-get-info-find-prop' to find particular property from a version returned by `package-get-info-version'." - (interactive "xPackage list: sPackage Name: ") + (interactive "xPackage list: \nsPackage Name: ") (if which (if (eq (caar which) name) (cdar which) ＠＠ -371,17 +373,19 ＠＠ I'm not sure if I want to do this by searching directories or checking some built in variables. For now, use packages-package-list." ;; Use packages-package-list which contains name and version - (equal (plist-get - (package-get-info-find-package packages-package-list - package) ':version) - (if (floatp version) version (string-to-number version)))) + (equal (plist-get + (package-get-info-find-package packages-package-list + package) ':version) + (if (floatp version) version (string-to-number version)))) +;;;###autoload (defun package-get-package-provider (sym) "Search for a package that provides SYM and return the name and version. Searches in `package-get-base' for SYM. If SYM is a consp, then it must match a corresponding (provide (SYM VERSION)) from the package." (interactive "SSymbol: ") + (load "package-get-base.el") (let ((packages package-get-base) (done nil) (found nil)) ＠＠ -484,7 +488,7 ＠＠ " :group '" category "-packages\n" " :initialize 'package-get-ever-installed-p\n" " :type 'boolean)\n\n") custom-buffer))) - package-get-base) custom-buffer) + package-get-base) custom-buffer) ) ;; need this first to avoid infinite dependency loops -- Adrian Aichner Applications Engineer Teradyne GmbH Semiconductor Test Group Telephone +49/89/41861(0)-208 Dingolfinger Strasse 2 Fax +49/89/41861-217 D-81673 MUENCHEN E-mail aichner(a)ecf.teradyne.com

2 participants
2 comments

Re: [Offix DnD crash] 21.0 "Swedish Landrace" on i686-pc-linux 26 years, 5 months

Jan Vroonhof

I think I found why it crashes I add another printf in event_stream_disable_wakeup like this one-shot. */ if (!NILP (rest)) { Lisp_Object op = XCAR (rest); *timeout_list = delq_no_quit_and_free_cons (op, *timeout_list); fprintf(stderr,"Unlist %i\n",timeout->interval_id); if (async_p) event_stream_remove_async_timeout (timeout->interval_id); else event_stream_remove_timeout (timeout->interval_id); free_managed_opaque (Vtimeout_free_list, op); (Note: For me it safer to delete the timer first and then delete it from the list). Now look at the trace Unlist 73 Removed: 4377440 Allocated: 82 InList 82 Completed: 82 Looking up: 82 (0) Allocated: 83 Unlist 83 Removed: 4377440 Up to here evey "UnList" if followed by an Removed call Allocated: 84 InList 84 Unlist 84 Here it isn't! Allocated: 85 InList 85 Unlist 85 Removed: 4377440 Allocated: 86 InList 86 Completed: 84 Looking up: 84 (0) Fatal error: assertion failed, file event-stream.c, line 1214, !NILP (rest) And now "84" comes in and BOOM! Now you tell me what this has to do with drag and drop... Jan

1 participants
0 comments

Re: [Offix DnD crash] 21.0 "Swedish Landrace" on i686-pc-linux 26 years, 5 months

Jan Vroonhof

This is really weird.. I added some printf's (see patch at end of message) to see what interval_id's XEmacs sees, here is the output just before the crash Completed: 131 Looking up: 131 (0) Removed: 7080192 Removed: 4377440 Allocated: 133 InList 133 Removed: 4377440 Allocated: 134 InList 134 Allocated: 135 InList 135 Removed: 4377440 Allocated: 136 InList 136 Completed: 134 Looking up: 134 (0) Fatal error: assertion failed, file event-stream.c, line 1214, !NILP (rest) XEmacs gets interval number 134 which it did allocate and put in the list just before. So it SHOULD be ok.... Perhaps somehow pending_timeout_list gets corrupted? Index: event-stream.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/src/event-stream.c,v retrieving revision 1.45 diff -u -u -r1.45 event-stream.c --- event-stream.c 1998/06/13 04:28:43 1.45 +++ event-stream.c 1998/06/18 17:14:02 ＠＠ -1168,6 +1168,7 ＠＠ timeout->interval_id = event_stream_add_timeout (timeout->next_signal_time); pending_timeout_list = noseeum_cons (op, pending_timeout_list); + fprintf(stderr,"InList %i\n", timeout->interval_id); } return timeout->id; } ＠＠ -1199,6 +1200,7 ＠＠ GCPRO1 (op); /* just in case ... because it's removed from the list for awhile. */ + fprintf(stderr,"Looking up: %i (%i)\n", interval_id, async_p); timeout_list = async_p ? &pending_async_timeout_list : &pending_timeout_list; /* Find the timeout on the list of pending ones. */ Index: event-Xt.c =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-20/src/event-Xt.c,v retrieving revision 1.40 diff -u -u -r1.40 event-Xt.c --- event-Xt.c 1998/05/14 04:46:24 1.40 +++ event-Xt.c 1998/06/18 17:15:22 ＠＠ -1677,6 +1677,7 ＠＠ timeout->interval_id = XtAppAddTimeOut (Xt_app_con, milliseconds, Xt_timeout_callback, (XtPointer) timeout); + fprintf(stderr,"Allocated: %i\n",timeout->id); return timeout->id; } ＠＠ -1706,6 +1707,7 ＠＠ */ XtRemoveTimeOut (timeout->interval_id); + fprintf(stderr,"Removed: %i\n",timeout->interval_id); Blocktype_free (the_Xt_timeout_blocktype, timeout); } ＠＠ -1719,6 +1721,7 ＠＠ /* timeout events have nil as channel */ emacs_event->timestamp = 0; /* #### wrong!! */ emacs_event->event.timeout.interval_id = timeout->id; + fprintf(stderr,"Completed: %i\n",timeout->id); Blocktype_free (the_Xt_timeout_blocktype, timeout); }

1 participants
0 comments

Re: [Fabrice POPINEAU <popineau@ese-metz.fr>] [PATCH]: fixes for native build of 21.0-b43 26 years, 5 months

Fabrice POPINEAU

>>>>> "APA" == Adrian Aichner <aichner(a)ecf.teradyne.com> writes: APA> I cannot play any of the sounds downloaded from APA> /ftp＠ftp.xemacs.org:/pub/xemacs/beta/xemacs-21.0/packages/binary-packages: APA> sounds-wav-1.0-pkg.tar.gz I must say I have only tested (play-sound-file "..."). APA> Can you play these under Windows NT native built XEmacs b44? You are right. These ones doesn't seem to work. Fabrice

1 participants
0 comments

Re: XEmacs 21.0-b44/pre1 -- minor irritant 26 years, 5 months

SL Baur

Paul Keusemann <pkeusem(a)visi.com> writes: > Oops, I forgot on very import piece of info. Lazy-locking is turned > on when you load a file with a .java extension and only if font-lock-mode > is non-nil before loading the java file. jde fuckage. I agree this is highly broken behavior.

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

XEmacs-Beta June 1998