annotate lisp/multicast.el @ 801:2b676dc88c66

[xemacs-hg @ 2002-04-01 03:58:02 by ben] bug fixes (e.g. ballooning on X windows) Makefile.in.in: Try to make the Makefile notice if its source Makefile.in.in is changed, and regenerate and run itself. Use a bigger default SHEAP_ADJUSTMENT on Cygwin; otherwise you can't compile under Mule if a Lisp file has changed. (can't run temacs) TODO.ben-mule-21-5: update. mule/mule-cmds.el: Hash the result of mswindows-get-language-environment-from-locale, since it's very expensive (and causes huge ballooning of memory under X Windows, since it's called from x-get-resource). cl-extra.el, code-files.el, files.el, simple.el, subr.el, x-faces.el: Create new string-equal-ignore-case, based on built-in compare-strings -- compare strings ignoring case without the need to generate garbage by calling downcase. Use it in equalp and elsewhere. alloc.c, bytecode.c, chartab.c, data.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-unixoid.c, extents.c, file-coding.c, fileio.c, fns.c, glyphs.c, gutter.c, lisp-union.h, lisp.h, mule-charset.c, nt.c, process-unix.c, process.c, specifier.c, symbols.c, sysdep.c, sysdep.h, text.c, toolbar.c: Try to implement GC triggering based on percentage of total memory usage. Not currently activated (percentage set to 0) because not quite working. Add `memory-usage' primitive to return XEmacs' idea of its memory usage. Add primitive compare-strings, compatible with FSF 21.1 -- can compare any part of two strings, optionally ignoring case. Improve qxe() functions in text.c for text comparison. Use RETURN_NOT_REACHED to try to avoid warnings about unreachable code. Add volatile_make_int() to fix warning in unix_send_process().
author ben
date Mon, 01 Apr 2002 03:59:04 +0000
parents 7039e6323819
children 2b6fa2618f76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
1 ;;; multicast.el --- lisp frontend for multicast connections in XEmacs
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
2
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
3 ;; Copyright (C) 1997-2000 Didier Verna.
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
4
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
5 ;; Author: Didier Verna <didier@xemacs.org>
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
6 ;; Maintainer: Didier Verna <didier@xemacs.org>
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
7 ;; Created: Thu Dec 4 16:37:39 1997
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
8 ;; Last Revision: Mon Jan 19 19:10:50 1998
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
9 ;; Current Version: 0.4
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
10 ;; Keywords: dumped comm processes
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
11
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
12 ;; This file is part of XEmacs.
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
13
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
14 ;; XEmacs is free software; you can redistribute it and/or modify
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
16 ;; the Free Software Foundation; either version 2 of the License, or
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
17 ;; (at your option) any later version.
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
18
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
19 ;; XEmacs is distributed in the hope that it will be useful,
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
22 ;; GNU General Public License for more details.
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
23
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
25 ;; along with this program; if not, write to the Free Software
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
26 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
27
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
28
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
29 ;;; Commentary:
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
30
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
31 ;; This file just contains a lisp frontend to the internal function
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
32 ;; open-multicast-group-internal written in C and belonging to process.c
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
33 ;; Well, nothing much to say about it ... read the doc string.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
34
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
35
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
36 ;;; Change Log:
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
37
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
38 ;; Rev. of Mon Jan 19 19:04:44 1998 : packaging cleanup
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
39 ;; Rev. of Thu Dec 11 13:54:26 1997 : updated the docstring
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
40 ;; Rev. of Mon Dec 8 15:28:47 1997 : Improved the doc string
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
41 ;; Rev. of Thu Dec 4 16:38:09 1997 : Initial Version.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
42
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
43
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
44 ;;; Code:
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
45
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
46 (defun open-multicast-group (name buffer address)
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
47 "Open a multicast connection on the specified address.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 404
diff changeset
48 Returns a process object to represent the connection.
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
49 Input and output work as for subprocesses; `delete-process' closes it.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
50 Args are NAME BUFFER ADDRESS.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
51 NAME is a name for the process. It is modified if necessary to make it unique.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
52 BUFFER is the buffer (or buffer-name) to associate with the process.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
53 Process output goes at the end of that buffer, unless you specify an output
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
54 stream or filter function to handle the output.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
55 BUFFER may be also nil, meaning that this process is not associated with any
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
56 buffer
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
57 ADDRESS specifies a standard multicast address \"dest/port/ttl\":
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
58 dest is an internet address between 224.0.0.0 and 239.255.255.255
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
59 port is a communication port like in traditional unicast
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
60 ttl is the time-to-live (15 for site, 63 for region and 127 for world).
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
61
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
62 WARNING: it is *strongly* recommended to avoid using groups beginning with
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
63 224 or 239. Such groups are considered 'admin' groups, and may
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
64 behave in a surprising way ..."
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
65 (let (dest port ttl)
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
66 ;; We check only the general form of the multicast address.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
67 ;; The rest will be handled by the internal function.
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
68 (string-match "^\\([0-9\\.]+\\)/\\([0-9]+\\)/\\([0-9]+\\)$" address)
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
69 (and (not (and (= (match-beginning 0) 0)
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
70 (= (match-end 0) (length address))))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
71 (error "malformed multicast address: %s" address))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
72 (and (not (setq dest (match-string 1 address)))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
73 (error "invalid destination specification."))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
74 (and (= 0 (setq port (string-to-int (match-string 2 address))))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
75 (error "invalid port specification."))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
76 (and (= 0 (setq ttl (string-to-int (match-string 3 address))))
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
77 (error "invalid ttl specification."))
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 444
diff changeset
78 (declare-fboundp (open-multicast-group-internal name buffer dest port ttl))
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
79 ))
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents: 261
diff changeset
80
261
405dd6d1825b Import from CVS: tag r20-5b29
cvs
parents:
diff changeset
81 ;;; multicast.el ends here