4
* Copyright © 2003 Keith Packard
6
* Permission to use, copy, modify, distribute, and sell this software and its
7
* documentation for any purpose is hereby granted without fee, provided that
8
* the above copyright notice appear in all copies and that both that
9
* copyright notice and this permission notice appear in supporting
10
* documentation, and that the name of Keith Packard not be used in
11
* advertising or publicity pertaining to distribution of the software without
12
* specific, written prior permission. Keith Packard makes no
13
* representations about the suitability of this software for any purpose. It
14
* is provided "as is" without express or implied warranty.
16
* KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
17
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
18
* EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
19
* CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
20
* DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
21
* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
22
* PERFORMANCE OF THIS SOFTWARE.
27
autoload Server::Dispatch
29
extend namespace Server {
30
public namespace Main {
32
File::fprintf (stderr, "usage: %s" +
33
" [--logfile <logfile>]" +
34
" [--port <port>]\n", argv[0]);
38
PRNG::dev_srandom (32);
40
for (int i = 1; i < dim (argv); i++)
43
File::reopen (argv[i+1], "a", stderr);
47
port = atoi (argv[i+1]);
54
File::setbuffer (stderr, 1);
55
file f = Net::create (port);
56
File::fprintf (stderr, "RR server started on port %d.\n", port);
57
Net::listen (Dispatch::client, f);