From: ueno Date: Sun, 1 Jun 2003 07:24:40 +0000 (+0000) Subject: Remove. X-Git-Tag: riece-0_0_3~12 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2bf1a22a8faea6740550c02533e50958781cf365;p=elisp%2Friece.git Remove. --- diff --git a/dcc/.cvsignore b/dcc/.cvsignore deleted file mode 100644 index af6ac77..0000000 --- a/dcc/.cvsignore +++ /dev/null @@ -1,5 +0,0 @@ -Makefile.in -Makefile -ldcc -ltcp -.deps diff --git a/dcc/Makefile.am b/dcc/Makefile.am deleted file mode 100644 index 7af251a..0000000 --- a/dcc/Makefile.am +++ /dev/null @@ -1,14 +0,0 @@ -DEFS = -I$(srcdir) -I$(top_srcdir) $(CFLAGS) @DEFS@ -LIBOBJS = @LIBOBJS@ -EXTRA_DIST = basename.c getopt.c getopt.h getopt1.c -CLEANFILES = rdcc rtcp - -bin_PROGRAMS = rdcc rtcp - -rtcp_SOURCES = tcp.c -rtcp_LDADD = $(LIBOBJS) -rdcc_SOURCES = dcc.c -rdcc_LDADD = $(LIBOBJS) - -package: all -install-package: package install diff --git a/dcc/basename.c b/dcc/basename.c deleted file mode 100644 index 8fae497..0000000 --- a/dcc/basename.c +++ /dev/null @@ -1,40 +0,0 @@ -/* Return the name-within-directory of a file name. - Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc. - This file is part of the GNU C Library. - - The GNU C Library is free software; you can redistribute it and/or - modify it under the terms of the GNU Library General Public License as - published by the Free Software Foundation; either version 2 of the - License, or (at your option) any later version. - - The GNU C Library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Library General Public License for more details. - - You should have received a copy of the GNU Library General Public - License along with the GNU C Library; see the file COPYING.LIB. If not, - write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, - Boston, MA 02111-1307, USA. */ - -#ifdef HAVE_CONFIG_H -# include -#endif - -#include - -#define _LIBC -#ifndef _LIBC -/* We cannot generally use the name `basename' since XPG defines an unusable - variant of the function but we cannot use it. */ -# define basename gnu_basename -#endif - - -char * -basename (filename) - const char *filename; -{ - char *p = strrchr (filename, '/'); - return p ? p + 1 : (char *) filename; -} diff --git a/dcc/dcc.c b/dcc/dcc.c deleted file mode 100644 index fc2c4fd..0000000 --- a/dcc/dcc.c +++ /dev/null @@ -1,501 +0,0 @@ -/* dcc.c - * Copyright (C) 1998-2003 Daiki Ueno - * - * This file is part of Riece. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#define _GNU_SOURCE -#include - -#ifndef MAXHOSTNAMELEN -# define MAXHOSTNAMELEN 31 -#endif - -#ifdef HAVE_SYS_SELECT_H -# include -#endif - -#ifdef HAVE_MEMMOVE -# ifdef HAVE_LIBGEN_H -# include -# ifdef basename -# undef basename -# endif -# endif -# include -#else -# define memmove(x,y,z) bcopy((y), (x), (z)) -#endif - -#ifndef HAVE_BASENAME -# define basename(path) (rindex((path), '/') + 1) -#endif - -static void usage(); -static int prepare_listen_port(); -static int prepare_connect_port(); - -static int receive_file(); -static int send_file(); -static int select_loop(); -static int chat_listen(); -static int chat_connect(); - -static u_long primary_address_of(); -static u_long extract_addr_of_string(); -static u_long get_address_externally(); - -static char *progname; - -void version () { - fprintf(stderr, - "%s (%s) %s\n" - "Copyright (C) 1998-2003 Daiki Ueno\n" - "This is free software; see the source for copying conditions. There is NO\n" - "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n", - progname, PACKAGE, VERSION); -} - -void usage () { - fprintf(stderr, - "Usage: %s [global-options] command [arguments...]\n" - "where global-options are -v, -h, etc.\n" - "where command is one of send, receive, chat, resolve.\n" - "where arguments depend on the specific command.\n\n" - "send \n" - "receive \n" - "chat listen \n" - "chat connect \n" - "resolve [hosts ...]\n", - progname); -} - -int prepare_listen_port (int ip_port) { - int sock, tries; - int opt = 1; - static struct sockaddr_in server; - - - if ((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0) { - perror("opening stream socket"); - exit(1); - } - -#ifdef SO_REUSEADDR - if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, - (char *)&opt, sizeof (opt)) < 0) { - perror ("setsockopt SO_REUSEADDR"); - } -#endif - - /* Bind a port to listen for new connections */ - - server.sin_family = AF_INET; - server.sin_addr.s_addr = INADDR_ANY; - server.sin_port = htons (ip_port); - for (tries = 0; tries < 10; tries++) { - if (bind (sock, (struct sockaddr *) &server, sizeof (server))) { - if (tries >= 9) { - perror ("binding stream socket"); - exit (1); - } - perror ("binding stream socket. retry in 20 seconds"); - sleep (20); /* wait 20 seconds and try again */ - } else - break; - } - listen (sock, 64); - return (sock); -} - -u_long get_address_externally(char *ircserver) { - int i, len, dummy; - u_long addr; - struct hostent *hp; - struct sockaddr_in server, client; - - addr = 0xc6290004; /* dummy addr --- rootA */ - if (ircserver && (hp = gethostbyname(ircserver)) != NULL) { - addr = ntohl(((struct in_addr *)hp->h_addr_list[0])->s_addr); - } - if ((dummy = socket(AF_INET, SOCK_DGRAM, 0)) < 0) { - perror("opening stream socket"); - return -1; - } - server.sin_family = AF_INET; - server.sin_addr.s_addr = htonl(addr); - server.sin_port = htons(7); /* dummy port --- echo */ - for (i = 0; i < 8; i++) { - server.sin_zero[i] = 0; - } - if (connect(dummy, (struct sockaddr *)&server, sizeof(server)) < 0) { - perror ("connecting remote socket"); - return -1; - } - len = sizeof(client); - if (getsockname(dummy, (struct sockaddr *)&client, &len) < 0) - return -1; - close(dummy); - return ntohl(client.sin_addr.s_addr); -} - - -/* - * send_file(int port, char *ifile) - * listens to connections to port, and when connection established - * sends ifile to that socket - */ -int send_file (int port, char *ifile) { - int sock, ifd, ofd, len; - u_long addr, bytessent = 0; - char buf[ BUFSIZ * 8 ]; - fd_set readfds, writefds, fdset; - struct stat statbuf; - char namebuf[ MAXHOSTNAMELEN ]; - struct hostent *hp; - struct sockaddr_in sin; - - if ((ifd = open (ifile, O_RDONLY)) < 0) { - /* error in opening file to send */ - close(ofd); - return 1; - } - - gethostname(namebuf, sizeof (namebuf)); - fstat (ifd, &statbuf); - - sock = prepare_listen_port(port); - len = sizeof (struct sockaddr_in); - if (getsockname(sock, (struct sockaddr *)&sin, &len) == 0) - port = ntohs(sin.sin_port); - - if ((addr = get_address_externally (NULL)) < 0) { - gethostname(namebuf, sizeof (namebuf)); - if (hp = gethostbyname(namebuf)) - addr = ((struct in_addr *) (hp->h_addr_list)[0])->s_addr; - else - return 2; - } - - printf ("DCC send %s %d %u %d\n", ifile, port, addr, statbuf.st_size); - - ofd = accept(sock, (struct sockaddr *) 0, (int *) 0); - - while ((len = read (ifd, buf, sizeof (buf))) > 0) { - write (ofd, buf, len); - bytessent += len; - while ((len = read (ofd, buf, sizeof (u_long))) && - ntohl (*(u_long *) buf) != bytessent); - } - close (ofd); - close (ifd); - printf ("*** DCC file %s sent\n", ifile); - - return 0; -} - -/* - * receive_file(u_long host, int port, char *ifile) - * connects to (host,port) and reads everything send from there - * for every packet received gives back how much actually got - * puts everything in ifile - */ -int receive_file (u_long host, int port, int size, char *ifile) { - int sock, ifd, ofd, len, bytesreceived = 0, toread, prev = 0; - char buf[ BUFSIZ * 8 ]; - fd_set readfds, writefds, fdset; - u_long netsize; - - if ((ofd = open(ifile, O_WRONLY|O_CREAT|O_TRUNC, 0600)) < 0) { - fprintf(stderr, "open: opening file: %s\n", ifile); - return 1; - } - ifd = prepare_connect_port (host, port); - if ((toread = sizeof (buf)) > size) - toread = size; - while (bytesreceived < size && (len = read (ifd, buf, toread)) > 0) { - write (ofd, buf, len); - bytesreceived += len; - netsize = htonl (bytesreceived); - lseek (ifd, 0, 2); - write (ifd, &netsize, 4); - lseek (ifd, 0, 2); - if (toread > size - bytesreceived) - toread = size - bytesreceived; - if (bytesreceived - prev > size / 5) { - printf ("DCC %s %d%% (%d/%d bytes) received\n", ifile, - 100 * bytesreceived / size, bytesreceived, size); - prev = bytesreceived; - } - } - printf ("*** DCC file %s received\n", ifile); - close (ifd); - close (ofd); - - return 0; -} - -/* - * select_loop(int sfd) - * listens fd given, reads stdin and sends it to socket - * anything read from socket is send to stdout - */ -int select_loop (int sfd) { - int ofd, len, bytesreceived = 0; - char buf[ BUFSIZ * 8 ]; - fd_set readfds, writefds, fdset; - - for (;;) { - FD_ZERO (&readfds); - FD_SET (sfd, &readfds); - FD_SET (0, &readfds); - if (select (32, &readfds, 0, 0, 0) < 0) { - perror ("select"); - close (sfd); - return 1; - } - - if (FD_ISSET (sfd, &readfds)) { - if ((len = read(sfd, buf, sizeof (buf))) == 0) { - close (sfd); - return 0; - } - write (1, buf, len); - FD_CLR (sfd, &readfds); - } - if (FD_ISSET (0, &readfds)) { - if ((len = read (0, buf, sizeof (buf))) == 0) { - close (sfd); - return 0; - } - write(sfd, buf, len); - FD_CLR (ofd, &readfds); - } - } -} - -int prepare_connect_port (u_long host, int port) { - int sock; - static struct hostent *hp; - static struct sockaddr_in server; - - sock = socket (AF_INET, SOCK_STREAM, 0); - if (sock < 0) { - perror ("opening stream socket"); - exit (1); - } - server.sin_family = AF_INET; - - server.sin_addr.s_addr = ntohl (host); - server.sin_port = htons (port); - - if (connect(sock, (struct sockaddr *) &server, sizeof (server)) < 0) { - perror ("connecting remote socket"); - return 0; - } - - return sock; -} - -u_long extract_addr_of_string (char *str) { - u_long result = 0; - -#ifndef HAVE_STRTOUL - while (*str++) - result = result * 10 + *str - '0'; -#else /* !HAVE_STRTOUL */ - result = strtoul(str, NULL, 10); -#endif /* HAVE_STRTOUL */ - return result; -} - -u_long primary_address_of (char *host) { - struct hostent *hp; - u_long addr; - - if ((hp = gethostbyname(host)) == NULL) - addr = inet_addr(host); - else - memmove(&addr, hp->h_addr_list[ 0 ], 4); - - return ntohl(addr); -} - -int chat_listen(int port) { - struct sockaddr_in sin; - struct hostent *hp; - u_long addr; - int sock, len; - char namebuf[ MAXHOSTNAMELEN ]; - - sock = prepare_listen_port (port); - - len = sizeof (struct sockaddr_in); - if (getsockname(sock, (struct sockaddr *)&sin, &len) == 0) - port = ntohs(sin.sin_port); - - if ((addr = get_address_externally (NULL)) < 0) { - gethostname(namebuf, sizeof (namebuf)); - if (hp = gethostbyname(namebuf)) - addr = ((struct in_addr *) (hp->h_addr_list)[0])->s_addr; - else - return 2; - } - - printf("DCC chat %u %d\n", addr, port); - - if ((sock = accept(sock, (struct sockaddr *) 0, (int *) 0)) > -1) { - printf("DCC chat established\n"); - return select_loop(sock); - } - - return 1; -} - -int chat_connect(u_long host, int port) { - int sock; - - if ((sock = prepare_connect_port(host, port)) > -1) { - printf("DCC chat established\n"); - return select_loop(sock); - } - - return 1; -} - - -int main (int argc, char **argv) { - char *host = "localhost"; - char *action; - int c, status = 0; - - progname = (char *)basename(argv[ 0 ]); - - while (1) { - int this_option_optind = optind ? optind : 1; - int option_index = 0; - static struct option long_options[] = { - {"version", 0, 0, 'v'}, - {"help", 0, 0, 'h'}, - {0, 0, 0, 0} - }; - - c = getopt_long (argc, argv, "vh", long_options, &option_index); - if (c == -1) - break; - - switch (c) { - case 'v': - version(); - exit(0); - break; - case 'h': - usage(); - exit(0); - break; - default: - break; - } - } - - if (argc > 1) { - action = argv[ 1 ]; - } else { - usage(); - exit(1); - } - - if (!strcmp(action, "resolve")) { - if (argc < 3) { - usage(); - exit(1); - } else { - u_long i, addr; - for (i = 2; i < argc; i++) { - addr = primary_address_of(argv[i]); - if (addr != -1) - printf("%u\n", addr); - else - printf("0\n"); - } - status = 0; - } - } - - if (!strcmp(action, "send")) { - if (argc != 4) { - usage(); - exit(1); - } - status = send_file (atoi(argv[ 2 ]), argv[ 3 ]); - } else if (!strcmp(action, "receive")) { - if (argc != 6) { - usage(); - exit(1); - } - status = - receive_file (extract_addr_of_string(argv[ 2 ]), - atoi(argv[ 3 ]), atoi(argv[ 4 ]), argv[ 5 ]); - } else if (!strcmp(action, "chat")) { - if (argc > 3) { - if (!strcmp(argv[ 2 ], "listen")) { - if (argc != 4) { - usage(); - exit(1); - } - status = chat_listen(atoi(argv[ 3 ])); - } else if (!strcmp(argv[ 2 ], "connect")) { - if (argc != 5) { - usage(); - exit(1); - } - status = chat_connect(extract_addr_of_string(argv[ 3 ]), - atoi(argv[ 4 ])); - } else { - usage(); - exit(1); - } - } - } else { - usage(); - exit(1); - } - - return status; -} - -/* - * Local variables: - * compile-command: "gcc -DHAVE_STRTOUL -Wall -O6 -o dcc dcc.c" - * c-indent-level: 2 - * c-basic-offset: 2 - * tab-width: 2 - * End: - */ diff --git a/dcc/getopt.c b/dcc/getopt.c deleted file mode 100644 index b5caccd..0000000 --- a/dcc/getopt.c +++ /dev/null @@ -1,755 +0,0 @@ -/* Getopt for GNU. - NOTE: getopt is now part of the C library, so if you don't know what - "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu - before changing it! - - Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94 - Free Software Foundation, Inc. - - This program is free software; you can redistribute it and/or modify it - under the terms of the GNU General Public License as published by the - Free Software Foundation; either version 2, or (at your option) any - later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. */ - -/* This tells Alpha OSF/1 not to define a getopt prototype in . - Ditto for AIX 3.2 and . */ -#ifndef _NO_PROTO -#define _NO_PROTO -#endif - -#ifdef HAVE_CONFIG_H -#if defined (emacs) || defined (CONFIG_BROKETS) -/* We use instead of "config.h" so that a compilation - using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h - (which it would do because it found this file in $srcdir). */ -#include -#else -#include "config.h" -#endif -#endif - -#ifndef __STDC__ -/* This is a separate conditional since some stdc systems - reject `defined (const)'. */ -#ifndef const -#define const -#endif -#endif - -#include - -#ifdef HAVE_STRING_H -#include -#endif - -/* Comment out all this code if we are using the GNU C Library, and are not - actually compiling the library itself. This code is part of the GNU C - Library, but also included in many other GNU distributions. Compiling - and linking in this code is a waste when using the GNU C library - (especially if it is a shared library). Rather than having every GNU - program understand `configure --with-gnu-libc' and omit the object files, - it is simpler to just do this in the source for each such file. */ - -#if defined (_LIBC) || !defined (__GNU_LIBRARY__) - - -/* This needs to come after some library #include - to get __GNU_LIBRARY__ defined. */ -#ifdef __GNU_LIBRARY__ -/* Don't include stdlib.h for non-GNU C libraries because some of them - contain conflicting prototypes for getopt. */ -#include -#endif /* GNU C library. */ - -/* This version of `getopt' appears to the caller like standard Unix `getopt' - but it behaves differently for the user, since it allows the user - to intersperse the options with the other arguments. - - As `getopt' works, it permutes the elements of ARGV so that, - when it is done, all the options precede everything else. Thus - all application programs are extended to handle flexible argument order. - - Setting the environment variable POSIXLY_CORRECT disables permutation. - Then the behavior is completely standard. - - GNU application programs can use a third alternative mode in which - they can distinguish the relative order of options and other arguments. */ - -#include "getopt.h" - -/* For communication from `getopt' to the caller. - When `getopt' finds an option that takes an argument, - the argument value is returned here. - Also, when `ordering' is RETURN_IN_ORDER, - each non-option ARGV-element is returned here. */ - -char *optarg = NULL; - -/* Index in ARGV of the next element to be scanned. - This is used for communication to and from the caller - and for communication between successive calls to `getopt'. - - On entry to `getopt', zero means this is the first call; initialize. - - When `getopt' returns EOF, this is the index of the first of the - non-option elements that the caller should itself scan. - - Otherwise, `optind' communicates from one call to the next - how much of ARGV has been scanned so far. */ - -/* XXX 1003.2 says this must be 1 before any call. */ -int optind = 0; - -/* The next char to be scanned in the option-element - in which the last option character we returned was found. - This allows us to pick up the scan where we left off. - - If this is zero, or a null string, it means resume the scan - by advancing to the next ARGV-element. */ - -static char *nextchar; - -/* Callers store zero here to inhibit the error message - for unrecognized options. */ - -int opterr = 1; - -/* Set to an option character which was unrecognized. - This must be initialized on some systems to avoid linking in the - system's own getopt implementation. */ - -int optopt = '?'; - -/* Describe how to deal with options that follow non-option ARGV-elements. - - If the caller did not specify anything, - the default is REQUIRE_ORDER if the environment variable - POSIXLY_CORRECT is defined, PERMUTE otherwise. - - REQUIRE_ORDER means don't recognize them as options; - stop option processing when the first non-option is seen. - This is what Unix does. - This mode of operation is selected by either setting the environment - variable POSIXLY_CORRECT, or using `+' as the first character - of the list of option characters. - - PERMUTE is the default. We permute the contents of ARGV as we scan, - so that eventually all the non-options are at the end. This allows options - to be given in any order, even with programs that were not written to - expect this. - - RETURN_IN_ORDER is an option available to programs that were written - to expect options and other ARGV-elements in any order and that care about - the ordering of the two. We describe each non-option ARGV-element - as if it were the argument of an option with character code 1. - Using `-' as the first character of the list of option characters - selects this mode of operation. - - The special argument `--' forces an end of option-scanning regardless - of the value of `ordering'. In the case of RETURN_IN_ORDER, only - `--' can cause `getopt' to return EOF with `optind' != ARGC. */ - -static enum -{ - REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER -} ordering; - -/* Value of POSIXLY_CORRECT environment variable. */ -static char *posixly_correct; - -#ifdef __GNU_LIBRARY__ -/* We want to avoid inclusion of string.h with non-GNU libraries - because there are many ways it can cause trouble. - On some systems, it contains special magic macros that don't work - in GCC. */ -#include -#define my_index strchr -#else - -/* Avoid depending on library functions or files - whose names are inconsistent. */ - -char *getenv (); - -static char * -my_index (str, chr) - const char *str; - int chr; -{ - while (*str) - { - if (*str == chr) - return (char *) str; - str++; - } - return 0; -} - -/* If using GCC, we can safely declare strlen this way. - If not using GCC, it is ok not to declare it. */ -#ifdef __GNUC__ -/* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h. - That was relevant to code that was here before. */ -#ifndef __STDC__ -/* gcc with -traditional declares the built-in strlen to return int, - and has done so at least since version 2.4.5. -- rms. */ -extern int strlen (const char *); -#endif /* not __STDC__ */ -#endif /* __GNUC__ */ - -#endif /* not __GNU_LIBRARY__ */ - -/* Handle permutation of arguments. */ - -/* Describe the part of ARGV that contains non-options that have - been skipped. `first_nonopt' is the index in ARGV of the first of them; - `last_nonopt' is the index after the last of them. */ - -static int first_nonopt; -static int last_nonopt; - -/* Exchange two adjacent subsequences of ARGV. - One subsequence is elements [first_nonopt,last_nonopt) - which contains all the non-options that have been skipped so far. - The other is elements [last_nonopt,optind), which contains all - the options processed since those non-options were skipped. - - `first_nonopt' and `last_nonopt' are relocated so that they describe - the new indices of the non-options in ARGV after they are moved. */ - -static void -exchange (argv) - char **argv; -{ - int bottom = first_nonopt; - int middle = last_nonopt; - int top = optind; - char *tem; - - /* Exchange the shorter segment with the far end of the longer segment. - That puts the shorter segment into the right place. - It leaves the longer segment in the right place overall, - but it consists of two parts that need to be swapped next. */ - - while (top > middle && middle > bottom) - { - if (top - middle > middle - bottom) - { - /* Bottom segment is the short one. */ - int len = middle - bottom; - register int i; - - /* Swap it with the top part of the top segment. */ - for (i = 0; i < len; i++) - { - tem = argv[bottom + i]; - argv[bottom + i] = argv[top - (middle - bottom) + i]; - argv[top - (middle - bottom) + i] = tem; - } - /* Exclude the moved bottom segment from further swapping. */ - top -= len; - } - else - { - /* Top segment is the short one. */ - int len = top - middle; - register int i; - - /* Swap it with the bottom part of the bottom segment. */ - for (i = 0; i < len; i++) - { - tem = argv[bottom + i]; - argv[bottom + i] = argv[middle + i]; - argv[middle + i] = tem; - } - /* Exclude the moved top segment from further swapping. */ - bottom += len; - } - } - - /* Update records for the slots the non-options now occupy. */ - - first_nonopt += (optind - last_nonopt); - last_nonopt = optind; -} - -/* Initialize the internal data when the first call is made. */ - -static const char * -_getopt_initialize (optstring) - const char *optstring; -{ - /* Start processing options with ARGV-element 1 (since ARGV-element 0 - is the program name); the sequence of previously skipped - non-option ARGV-elements is empty. */ - - first_nonopt = last_nonopt = optind = 1; - - nextchar = NULL; - - posixly_correct = getenv ("POSIXLY_CORRECT"); - - /* Determine how to handle the ordering of options and nonoptions. */ - - if (optstring[0] == '-') - { - ordering = RETURN_IN_ORDER; - ++optstring; - } - else if (optstring[0] == '+') - { - ordering = REQUIRE_ORDER; - ++optstring; - } - else if (posixly_correct != NULL) - ordering = REQUIRE_ORDER; - else - ordering = PERMUTE; - - return optstring; -} - -/* Scan elements of ARGV (whose length is ARGC) for option characters - given in OPTSTRING. - - If an element of ARGV starts with '-', and is not exactly "-" or "--", - then it is an option element. The characters of this element - (aside from the initial '-') are option characters. If `getopt' - is called repeatedly, it returns successively each of the option characters - from each of the option elements. - - If `getopt' finds another option character, it returns that character, - updating `optind' and `nextchar' so that the next call to `getopt' can - resume the scan with the following option character or ARGV-element. - - If there are no more option characters, `getopt' returns `EOF'. - Then `optind' is the index in ARGV of the first ARGV-element - that is not an option. (The ARGV-elements have been permuted - so that those that are not options now come last.) - - OPTSTRING is a string containing the legitimate option characters. - If an option character is seen that is not listed in OPTSTRING, - return '?' after printing an error message. If you set `opterr' to - zero, the error message is suppressed but we still return '?'. - - If a char in OPTSTRING is followed by a colon, that means it wants an arg, - so the following text in the same ARGV-element, or the text of the following - ARGV-element, is returned in `optarg'. Two colons mean an option that - wants an optional arg; if there is text in the current ARGV-element, - it is returned in `optarg', otherwise `optarg' is set to zero. - - If OPTSTRING starts with `-' or `+', it requests different methods of - handling the non-option ARGV-elements. - See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above. - - Long-named options begin with `--' instead of `-'. - Their names may be abbreviated as long as the abbreviation is unique - or is an exact match for some defined option. If they have an - argument, it follows the option name in the same ARGV-element, separated - from the option name by a `=', or else the in next ARGV-element. - When `getopt' finds a long-named option, it returns 0 if that option's - `flag' field is nonzero, the value of the option's `val' field - if the `flag' field is zero. - - The elements of ARGV aren't really const, because we permute them. - But we pretend they're const in the prototype to be compatible - with other systems. - - LONGOPTS is a vector of `struct option' terminated by an - element containing a name which is zero. - - LONGIND returns the index in LONGOPT of the long-named option found. - It is only valid when a long-named option has been found by the most - recent call. - - If LONG_ONLY is nonzero, '-' as well as '--' can introduce - long-named options. */ - -int -_getopt_internal (argc, argv, optstring, longopts, longind, long_only) - int argc; - char *const *argv; - const char *optstring; - const struct option *longopts; - int *longind; - int long_only; -{ - optarg = NULL; - - if (optind == 0) - optstring = _getopt_initialize (optstring); - - if (nextchar == NULL || *nextchar == '\0') - { - /* Advance to the next ARGV-element. */ - - if (ordering == PERMUTE) - { - /* If we have just processed some options following some non-options, - exchange them so that the options come first. */ - - if (first_nonopt != last_nonopt && last_nonopt != optind) - exchange ((char **) argv); - else if (last_nonopt != optind) - first_nonopt = optind; - - /* Skip any additional non-options - and extend the range of non-options previously skipped. */ - - while (optind < argc - && (argv[optind][0] != '-' || argv[optind][1] == '\0')) - optind++; - last_nonopt = optind; - } - - /* The special ARGV-element `--' means premature end of options. - Skip it like a null option, - then exchange with previous non-options as if it were an option, - then skip everything else like a non-option. */ - - if (optind != argc && !strcmp (argv[optind], "--")) - { - optind++; - - if (first_nonopt != last_nonopt && last_nonopt != optind) - exchange ((char **) argv); - else if (first_nonopt == last_nonopt) - first_nonopt = optind; - last_nonopt = argc; - - optind = argc; - } - - /* If we have done all the ARGV-elements, stop the scan - and back over any non-options that we skipped and permuted. */ - - if (optind == argc) - { - /* Set the next-arg-index to point at the non-options - that we previously skipped, so the caller will digest them. */ - if (first_nonopt != last_nonopt) - optind = first_nonopt; - return EOF; - } - - /* If we have come to a non-option and did not permute it, - either stop the scan or describe it to the caller and pass it by. */ - - if ((argv[optind][0] != '-' || argv[optind][1] == '\0')) - { - if (ordering == REQUIRE_ORDER) - return EOF; - optarg = argv[optind++]; - return 1; - } - - /* We have found another option-ARGV-element. - Skip the initial punctuation. */ - - nextchar = (argv[optind] + 1 - + (longopts != NULL && argv[optind][1] == '-')); - } - - /* Decode the current option-ARGV-element. */ - - /* Check whether the ARGV-element is a long option. - - If long_only and the ARGV-element has the form "-f", where f is - a valid short option, don't consider it an abbreviated form of - a long option that starts with f. Otherwise there would be no - way to give the -f short option. - - On the other hand, if there's a long option "fubar" and - the ARGV-element is "-fu", do consider that an abbreviation of - the long option, just like "--fu", and not "-f" with arg "u". - - This distinction seems to be the most useful approach. */ - - if (longopts != NULL - && (argv[optind][1] == '-' - || (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1]))))) - { - char *nameend; - const struct option *p; - const struct option *pfound = NULL; - int exact = 0; - int ambig = 0; - int indfound; - int option_index; - - for (nameend = nextchar; *nameend && *nameend != '='; nameend++) - /* Do nothing. */ ; - - /* Test all long options for either exact match - or abbreviated matches. */ - for (p = longopts, option_index = 0; p->name; p++, option_index++) - if (!strncmp (p->name, nextchar, nameend - nextchar)) - { - if (nameend - nextchar == (int) strlen (p->name)) - { - /* Exact match found. */ - pfound = p; - indfound = option_index; - exact = 1; - break; - } - else if (pfound == NULL) - { - /* First nonexact match found. */ - pfound = p; - indfound = option_index; - } - else - /* Second or later nonexact match found. */ - ambig = 1; - } - - if (ambig && !exact) - { - if (opterr) - fprintf (stderr, "%s: option `%s' is ambiguous\n", - argv[0], argv[optind]); - nextchar += strlen (nextchar); - optind++; - return '?'; - } - - if (pfound != NULL) - { - option_index = indfound; - optind++; - if (*nameend) - { - /* Don't test has_arg with >, because some C compilers don't - allow it to be used on enums. */ - if (pfound->has_arg) - optarg = nameend + 1; - else - { - if (opterr) - { - if (argv[optind - 1][1] == '-') - /* --option */ - fprintf (stderr, - "%s: option `--%s' doesn't allow an argument\n", - argv[0], pfound->name); - else - /* +option or -option */ - fprintf (stderr, - "%s: option `%c%s' doesn't allow an argument\n", - argv[0], argv[optind - 1][0], pfound->name); - } - nextchar += strlen (nextchar); - return '?'; - } - } - else if (pfound->has_arg == 1) - { - if (optind < argc) - optarg = argv[optind++]; - else - { - if (opterr) - fprintf (stderr, "%s: option `%s' requires an argument\n", - argv[0], argv[optind - 1]); - nextchar += strlen (nextchar); - return optstring[0] == ':' ? ':' : '?'; - } - } - nextchar += strlen (nextchar); - if (longind != NULL) - *longind = option_index; - if (pfound->flag) - { - *(pfound->flag) = pfound->val; - return 0; - } - return pfound->val; - } - - /* Can't find it as a long option. If this is not getopt_long_only, - or the option starts with '--' or is not a valid short - option, then it's an error. - Otherwise interpret it as a short option. */ - if (!long_only || argv[optind][1] == '-' - || my_index (optstring, *nextchar) == NULL) - { - if (opterr) - { - if (argv[optind][1] == '-') - /* --option */ - fprintf (stderr, "%s: unrecognized option `--%s'\n", - argv[0], nextchar); - else - /* +option or -option */ - fprintf (stderr, "%s: unrecognized option `%c%s'\n", - argv[0], argv[optind][0], nextchar); - } - nextchar = (char *) ""; - optind++; - return '?'; - } - } - - /* Look at and handle the next short option-character. */ - - { - char c = *nextchar++; - char *temp = my_index (optstring, c); - - /* Increment `optind' when we start to process its last character. */ - if (*nextchar == '\0') - ++optind; - - if (temp == NULL || c == ':') - { - if (opterr) - { - if (posixly_correct) - /* 1003.2 specifies the format of this message. */ - fprintf (stderr, "%s: illegal option -- %c\n", argv[0], c); - else - fprintf (stderr, "%s: invalid option -- %c\n", argv[0], c); - } - optopt = c; - return '?'; - } - if (temp[1] == ':') - { - if (temp[2] == ':') - { - /* This is an option that accepts an argument optionally. */ - if (*nextchar != '\0') - { - optarg = nextchar; - optind++; - } - else - optarg = NULL; - nextchar = NULL; - } - else - { - /* This is an option that requires an argument. */ - if (*nextchar != '\0') - { - optarg = nextchar; - /* If we end this ARGV-element by taking the rest as an arg, - we must advance to the next element now. */ - optind++; - } - else if (optind == argc) - { - if (opterr) - { - /* 1003.2 specifies the format of this message. */ - fprintf (stderr, "%s: option requires an argument -- %c\n", - argv[0], c); - } - optopt = c; - if (optstring[0] == ':') - c = ':'; - else - c = '?'; - } - else - /* We already incremented `optind' once; - increment it again when taking next ARGV-elt as argument. */ - optarg = argv[optind++]; - nextchar = NULL; - } - } - return c; - } -} - -int -getopt (argc, argv, optstring) - int argc; - char *const *argv; - const char *optstring; -{ - return _getopt_internal (argc, argv, optstring, - (const struct option *) 0, - (int *) 0, - 0); -} - -#endif /* _LIBC or not __GNU_LIBRARY__. */ - -#ifdef TEST - -/* Compile with -DTEST to make an executable for use in testing - the above definition of `getopt'. */ - -int -main (argc, argv) - int argc; - char **argv; -{ - int c; - int digit_optind = 0; - - while (1) - { - int this_option_optind = optind ? optind : 1; - - c = getopt (argc, argv, "abc:d:0123456789"); - if (c == EOF) - break; - - switch (c) - { - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - if (digit_optind != 0 && digit_optind != this_option_optind) - printf ("digits occur in two different argv-elements.\n"); - digit_optind = this_option_optind; - printf ("option %c\n", c); - break; - - case 'a': - printf ("option a\n"); - break; - - case 'b': - printf ("option b\n"); - break; - - case 'c': - printf ("option c with value `%s'\n", optarg); - break; - - case '?': - break; - - default: - printf ("?? getopt returned character code 0%o ??\n", c); - } - } - - if (optind < argc) - { - printf ("non-option ARGV-elements: "); - while (optind < argc) - printf ("%s ", argv[optind++]); - printf ("\n"); - } - - exit (0); -} - -#endif /* TEST */ diff --git a/dcc/getopt.h b/dcc/getopt.h deleted file mode 100644 index c872f41..0000000 --- a/dcc/getopt.h +++ /dev/null @@ -1,125 +0,0 @@ -/* Declarations for getopt. - Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. - - This program is free software; you can redistribute it and/or modify it - under the terms of the GNU General Public License as published by the - Free Software Foundation; either version 2, or (at your option) any - later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. */ - -#ifndef _GETOPT_H -#define _GETOPT_H 1 - -#ifdef __cplusplus -extern "C" { -#endif - -/* For communication from `getopt' to the caller. - When `getopt' finds an option that takes an argument, - the argument value is returned here. - Also, when `ordering' is RETURN_IN_ORDER, - each non-option ARGV-element is returned here. */ - -extern char *optarg; - -/* Index in ARGV of the next element to be scanned. - This is used for communication to and from the caller - and for communication between successive calls to `getopt'. - - On entry to `getopt', zero means this is the first call; initialize. - - When `getopt' returns EOF, this is the index of the first of the - non-option elements that the caller should itself scan. - - Otherwise, `optind' communicates from one call to the next - how much of ARGV has been scanned so far. */ - -extern int optind; - -/* Callers store zero here to inhibit the error message `getopt' prints - for unrecognized options. */ - -extern int opterr; - -/* Set to an option character which was unrecognized. */ - -extern int optopt; - -/* Describe the long-named options requested by the application. - The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector - of `struct option' terminated by an element containing a name which is - zero. - - The field `has_arg' is: - no_argument (or 0) if the option does not take an argument, - required_argument (or 1) if the option requires an argument, - optional_argument (or 2) if the option takes an optional argument. - - If the field `flag' is not NULL, it points to a variable that is set - to the value given in the field `val' when the option is found, but - left unchanged if the option is not found. - - To have a long-named option do something other than set an `int' to - a compiled-in constant, such as set a value from `optarg', set the - option's `flag' field to zero and its `val' field to a nonzero - value (the equivalent single-letter option character, if there is - one). For long options that have a zero `flag' field, `getopt' - returns the contents of the `val' field. */ - -struct option -{ -#if __STDC__ - const char *name; -#else - char *name; -#endif - /* has_arg can't be an enum because some compilers complain about - type mismatches in all the code that assumes it is an int. */ - int has_arg; - int *flag; - int val; -}; - -/* Names for the values of the `has_arg' field of `struct option'. */ - -#define no_argument 0 -#define required_argument 1 -#define optional_argument 2 - -#if __STDC__ -#if defined(__GNU_LIBRARY__) -/* Many other libraries have conflicting prototypes for getopt, with - differences in the consts, in stdlib.h. To avoid compilation - errors, only prototype getopt for the GNU C library. */ -extern int getopt (int argc, char *const *argv, const char *shortopts); -#else /* not __GNU_LIBRARY__ */ -extern int getopt (); -#endif /* not __GNU_LIBRARY__ */ -extern int getopt_long (int argc, char *const *argv, const char *shortopts, - const struct option *longopts, int *longind); -extern int getopt_long_only (int argc, char *const *argv, - const char *shortopts, - const struct option *longopts, int *longind); - -/* Internal only. Users should not call this directly. */ -extern int _getopt_internal (int argc, char *const *argv, - const char *shortopts, - const struct option *longopts, int *longind, - int long_only); -#else /* not __STDC__ */ -extern int getopt (); -extern int getopt_long (); -extern int getopt_long_only (); - -extern int _getopt_internal (); -#endif /* not __STDC__ */ - -#ifdef __cplusplus -} -#endif - -#endif /* _GETOPT_H */ diff --git a/dcc/getopt1.c b/dcc/getopt1.c deleted file mode 100644 index a4f1976..0000000 --- a/dcc/getopt1.c +++ /dev/null @@ -1,183 +0,0 @@ -/* getopt_long and getopt_long_only entry points for GNU getopt. - Copyright (C) 1987, 88, 89, 90, 91, 92, 1993 - Free Software Foundation, Inc. - - This program is free software; you can redistribute it and/or modify it - under the terms of the GNU General Public License as published by the - Free Software Foundation; either version 2, or (at your option) any - later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. */ - -#ifdef HAVE_CONFIG_H -#if defined (emacs) || defined (CONFIG_BROKETS) -/* We use instead of "config.h" so that a compilation - using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h - (which it would do because it found this file in $srcdir). */ -#include -#else -#include "config.h" -#endif -#endif - -#include "getopt.h" - -#ifndef __STDC__ -/* This is a separate conditional since some stdc systems - reject `defined (const)'. */ -#ifndef const -#define const -#endif -#endif - -#include - -/* Comment out all this code if we are using the GNU C Library, and are not - actually compiling the library itself. This code is part of the GNU C - Library, but also included in many other GNU distributions. Compiling - and linking in this code is a waste when using the GNU C library - (especially if it is a shared library). Rather than having every GNU - program understand `configure --with-gnu-libc' and omit the object files, - it is simpler to just do this in the source for each such file. */ - -#if defined (_LIBC) || !defined (__GNU_LIBRARY__) - - -/* This needs to come after some library #include - to get __GNU_LIBRARY__ defined. */ -#ifdef __GNU_LIBRARY__ -#include -#else -char *getenv (); -#endif - -#ifndef NULL -#define NULL 0 -#endif - -int -getopt_long (argc, argv, options, long_options, opt_index) - int argc; - char *const *argv; - const char *options; - const struct option *long_options; - int *opt_index; -{ - return _getopt_internal (argc, argv, options, long_options, opt_index, 0); -} - -/* Like getopt_long, but '-' as well as '--' can indicate a long option. - If an option that starts with '-' (not '--') doesn't match a long option, - but does match a short option, it is parsed as a short option - instead. */ - -int -getopt_long_only (argc, argv, options, long_options, opt_index) - int argc; - char *const *argv; - const char *options; - const struct option *long_options; - int *opt_index; -{ - return _getopt_internal (argc, argv, options, long_options, opt_index, 1); -} - - -#endif /* _LIBC or not __GNU_LIBRARY__. */ - -#ifdef TEST - -#include - -int -main (argc, argv) - int argc; - char **argv; -{ - int c; - int digit_optind = 0; - - while (1) - { - int this_option_optind = optind ? optind : 1; - int option_index = 0; - static struct option long_options[] = - { - {"add", 1, 0, 0}, - {"append", 0, 0, 0}, - {"delete", 1, 0, 0}, - {"verbose", 0, 0, 0}, - {"create", 0, 0, 0}, - {"file", 1, 0, 0}, - {0, 0, 0, 0} - }; - - c = getopt_long (argc, argv, "abc:d:0123456789", - long_options, &option_index); - if (c == EOF) - break; - - switch (c) - { - case 0: - printf ("option %s", long_options[option_index].name); - if (optarg) - printf (" with arg %s", optarg); - printf ("\n"); - break; - - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - if (digit_optind != 0 && digit_optind != this_option_optind) - printf ("digits occur in two different argv-elements.\n"); - digit_optind = this_option_optind; - printf ("option %c\n", c); - break; - - case 'a': - printf ("option a\n"); - break; - - case 'b': - printf ("option b\n"); - break; - - case 'c': - printf ("option c with value `%s'\n", optarg); - break; - - case 'd': - printf ("option d with value `%s'\n", optarg); - break; - - case '?': - break; - - default: - printf ("?? getopt returned character code 0%o ??\n", c); - } - } - - if (optind < argc) - { - printf ("non-option ARGV-elements: "); - while (optind < argc) - printf ("%s ", argv[optind++]); - printf ("\n"); - } - - exit (0); -} - -#endif /* TEST */ diff --git a/dcc/tcp.c b/dcc/tcp.c deleted file mode 100644 index 13e2c49..0000000 --- a/dcc/tcp.c +++ /dev/null @@ -1,255 +0,0 @@ -/* tcp.c - TCP/IP stream emulation for GNU Emacs. - * Copyright (C) 1988, 1989, 1992, 1993 Free Software Foundation, Inc. - * Copyright (C) 1998-2003 Daiki Ueno - * - * This file is part of Riece. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - */ -/* This program is based on `tcp' comming from old GNUS distribution - written by Masanobu Umeda . */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#define _GNU_SOURCE -#include - -#ifdef HAVE_BASENAME -# ifdef HAVE_LIBGEN_H -# include -# ifdef basename -# undef basename -# endif -# endif -# include -#else -# define basename(path) (rindex((path), '/') + 1) -#endif - -#ifndef NI_MAXHOST -# define NI_MAXHOST 1025 -#endif - -static char *progname; - -void version () { - fprintf(stderr, - "%s (%s) %s\n" - "Copyright (C) 1998-2003 Daiki Ueno\n" - "This is free software; see the source for copying conditions. There is NO\n" - "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n", - progname, PACKAGE, VERSION); -} - -void usage () { - fprintf(stderr, "Usage: %s [options] host [service]\n", progname); -} - - -main (argc, argv) - int argc; - char *argv[]; -{ - struct protoent *proto; - int family, socktype; - struct sockaddr *addr; - size_t addrlen; -#ifdef HAVE_GETADDRINFO - struct addrinfo *in, hints; -#else - struct hostent *host; - struct servent *serv; - struct sockaddr_in sin; -#endif - char *hostname = NULL, *service = "ircd"; - int port; - fd_set *readfds, *writefds; - int server, emacsIn = fileno (stdin), emacsOut = fileno (stdout); - char buffer[1024], *retry; - int nbuffer, wret, false = 0; - int c; - - progname = (char *) basename (argv[0]); - - while (1) - { - int this_option_optind = optind ? optind : 1; - int option_index = 0; - static struct option long_options[] = - { - {"version", 0, 0, 'v'}, - {"help", 0, 0, 'h'}, - {0, 0, 0, 0} - }; - - c = getopt_long (argc, argv, "vh", long_options, &option_index); - if (c == -1) - break; - - switch (c) - { - case 'v': - version (); - exit (0); - break; - case 'h': - usage (); - exit (0); - break; - default: - break; - } - } - - if (argc < 2) - { - usage(); - exit (1); - } - if (argc >= 2) - hostname = argv[1]; - if (argc >= 3) - service = argv[2]; - - proto = getprotobyname ("tcp"); - if (!proto) - { - perror ("getprotobyname"); - exit (1); - } - -#ifdef HAVE_GETADDRINFO - memset (&hints, 0, sizeof (hints)); - hints.ai_family = AF_UNSPEC; - hints.ai_socktype = SOCK_STREAM; - hints.ai_protocol = proto->p_proto; - if (getaddrinfo (hostname, service, &hints, &in) < 0) - { - perror ("getaddrinfo"); - exit (1); - } - family = in->ai_family; - socktype = in->ai_socktype; - addr = in->ai_addr; - addrlen = in->ai_addrlen; - freeaddrinfo (in); -#else - memset (&sin, 0, sizeof (sin)); - host = gethostbyname (hostname); - if (!host) - return -1; - memcpy (&sin.sin_addr, host->h_addr, host->h_length); - serv = getservbyname (service, proto->p_name); - if (serv) - sin.sin_port = htons (serv->s_port); - else if (isdigit (service[0])) - sin.sin_port = htons (atoi (service)); - family = sin.sin_family = AF_INET; - socktype = SOCK_STREAM; - addr = (struct sockaddr *)&sin; - addrlen = sizeof (sin); -#endif - - server = socket (family, socktype, 0); - if (server == -1) - { - perror ("socket"); - exit (1); - } - - setsockopt (server, SOL_SOCKET, SO_REUSEADDR, - (const char *) &false, sizeof (false)); - - if (connect (server, addr, addrlen) < 0) - { - perror ("connect"); - close (server); - exit (1); - } - -#ifdef O_NDELAY - fcntl (server, F_SETFL, O_NDELAY); -#endif /* O_NDELAY */ - - /* Connection established. */ - - readfds = (fd_set *) calloc(server + 1, sizeof (fd_mask)); - writefds = (fd_set *) calloc(server + 1, sizeof (fd_mask)); - - while (1) - { - FD_SET (server, readfds); - FD_SET (emacsIn, readfds); - if (select (server+1, readfds, NULL, NULL, NULL) == -1) - { - perror ("select"); - exit (1); - } - if (FD_ISSET (emacsIn, readfds)) - { - /* From Emacs */ - nbuffer = read (emacsIn, buffer, sizeof buffer -1); - - if (nbuffer == 0) - goto finish; - for (retry = buffer; nbuffer > 0; nbuffer -= wret, retry += wret) - { - FD_SET (server, writefds); - if (select (server+1, NULL, writefds, NULL, NULL) == -1) - { - perror ("select"); - exit (1); - } - wret = write (server, retry, nbuffer); - if (wret < 0) goto finish; - } - } - if (FD_ISSET (server, readfds)) - { - /* From NNTP server */ - nbuffer = read (server, buffer, sizeof buffer -1); - if (nbuffer == 0) - goto finish; - for (retry = buffer; nbuffer > 0; nbuffer -= wret, retry += wret) - { - FD_SET (emacsOut, writefds); - if (select (emacsOut+1, NULL, writefds, NULL, NULL) == -1) - { - perror ("select"); - exit (1); - } - wret = write (emacsOut, retry, nbuffer); - if (wret < 0) goto finish; - } - } - } - - /* End of communication. */ - finish: - close (server); - close (emacsIn); - close (emacsOut); - exit (0); -}