From b1e409dfd348069b8edd942314dee0f3b757c8ac Mon Sep 17 00:00:00 2001 From: jankratochvil <> Date: Mon, 9 Jul 2001 23:05:29 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create branch 'unlabeled-1.1.2'. Sprout from master 2001-07-09 23:05:28 UTC short 'pkg: Local packages are machine-dependent' Delete: bin/fromdos bin/ftprate bin/m bin/radary bin/rpmx bin/sendmailerr bin/todos src/Makefile src/const_test.c src/ev.c src/flock.c src/ghortident.c src/misc/getopt/getopt.c src/misc/getopt/getopt.h src/misc/getopt/getopt1.c src/pserverchroot.c src/unmime.c src/urlencode.c --- bin/fromdos | 2 - bin/ftprate | 19 - bin/m | 9 - bin/radary | 7 - bin/rpmx | 9 - bin/sendmailerr | 2 - bin/todos | 2 - src/Makefile | 1 - src/const_test.c | 30 -- src/ev.c | 137 ------ src/flock.c | 89 ---- src/ghortident.c | 172 -------- src/misc/getopt/getopt.c | 1051 --------------------------------------------- src/misc/getopt/getopt.h | 169 -------- src/misc/getopt/getopt1.c | 188 -------- src/pserverchroot.c | 74 ---- src/unmime.c | 26 -- src/urlencode.c | 24 -- 18 files changed, 2011 deletions(-) delete mode 100755 bin/fromdos delete mode 100755 bin/ftprate delete mode 100755 bin/m delete mode 100755 bin/radary delete mode 100755 bin/rpmx delete mode 100755 bin/sendmailerr delete mode 100755 bin/todos delete mode 100644 src/Makefile delete mode 100644 src/const_test.c delete mode 100644 src/ev.c delete mode 100644 src/flock.c delete mode 100644 src/ghortident.c delete mode 100644 src/misc/getopt/getopt.c delete mode 100644 src/misc/getopt/getopt.h delete mode 100644 src/misc/getopt/getopt1.c delete mode 100644 src/pserverchroot.c delete mode 100644 src/unmime.c delete mode 100644 src/urlencode.c diff --git a/bin/fromdos b/bin/fromdos deleted file mode 100755 index 4daeea6..0000000 --- a/bin/fromdos +++ /dev/null @@ -1,2 +0,0 @@ -#! /bin/sh -exec tr -d '\r' diff --git a/bin/ftprate b/bin/ftprate deleted file mode 100755 index c9898e3..0000000 --- a/bin/ftprate +++ /dev/null @@ -1,19 +0,0 @@ -#!/bin/sh -if [ $# -lt 1 -o $# -gt 3 ];then - echo "$0: [] []" - exit - fi -if [ -n "$3" ];then - ctms="`date -d "$3" '+%s'`" - ctmd="$3" -else - ctms="`find "$1" -printf "%A@\n"`" - ctmd="`find "$1" -printf "%a\n"`" -fi -find "$1" -printf "scale=2;print \"Current rate: \",%s/(%T@-$ctms),\" B/s\\n\"\n"|bc -if [ -n "$2" ];then - echo -n "Progress : ";find "$1" -printf "scale=2;print \"%`echo -n "$2"|wc -c`s / $2 (\",%s*100/$2,\"%%)\\n\"\n"|bc - echo -n "Start time: ";date -d "$ctmd" - echo -n "Current time: ";date - echo -n "Finish time: ";date --date "`find "$1" -printf "($2-%s)*(%T@-$ctms)/%s\n"|bc` secs" - fi diff --git a/bin/m b/bin/m deleted file mode 100755 index bddbb2c..0000000 --- a/bin/m +++ /dev/null @@ -1,9 +0,0 @@ -#! /bin/sh -case $# in - 0) ls -lt ~/Mail|less - ;; - 1) exec mutt -f ="$1" - ;; - *) echo "Error parameters" - ;; - esac diff --git a/bin/radary b/bin/radary deleted file mode 100755 index 2645f09..0000000 --- a/bin/radary +++ /dev/null @@ -1,7 +0,0 @@ -#! /bin/sh -box=$HOME/Mail/radary -while [ -f $box ];do - mv $box $box.$$ - awk '/^From /{hdr=1}{if (!hdr) print}/^$/{hdr=0}' <$box.$$|less - rm -f $box.$$ - done diff --git a/bin/rpmx b/bin/rpmx deleted file mode 100755 index 576de87..0000000 --- a/bin/rpmx +++ /dev/null @@ -1,9 +0,0 @@ -#! /bin/sh -if [ $# = 0 ];then - echo 'Syntax: $0 ' - exit 1 - fi -while [ $# -gt 0 ];do - rpm2cpio "$1"|cpio -id --quiet #-v #FIXME: --sparse doesn't work, why? - shift - done diff --git a/bin/sendmailerr b/bin/sendmailerr deleted file mode 100755 index a195655..0000000 --- a/bin/sendmailerr +++ /dev/null @@ -1,2 +0,0 @@ -#! /bin/sh -exec /usr/sbin/sendmail -fshort+err@vellum.cz "$@" diff --git a/bin/todos b/bin/todos deleted file mode 100755 index 87a27bb..0000000 --- a/bin/todos +++ /dev/null @@ -1,2 +0,0 @@ -#! /bin/sh -exec sed 's/$/ /g' diff --git a/src/Makefile b/src/Makefile deleted file mode 100644 index 21974c2..0000000 --- a/src/Makefile +++ /dev/null @@ -1 +0,0 @@ -CFLAGS=-Wall -Wstrict-prototypes -ggdb3 #-O2 diff --git a/src/const_test.c b/src/const_test.c deleted file mode 100644 index 0e02842..0000000 --- a/src/const_test.c +++ /dev/null @@ -1,30 +0,0 @@ -#include -#include - -static void func1(const char *const *array) /* FAILURE! */ -{ -} -static void func2(const char * *array) /* FAILURE! */ -{ -} -static void func3( char *const *array) /* ok */ -{ -} -static void func4(const char *string) /* ok */ -{ -} - -char **static_array; - -int main(void) -{ - static_array=malloc(3*sizeof(*static_array)); - static_array[0]=strdup("A"); - static_array[1]=strdup("B"); - static_array[2]=strdup("C"); - func1(static_array); - func2(static_array); - func3(static_array); - func4(static_array[0]); - return(0); -} diff --git a/src/ev.c b/src/ev.c deleted file mode 100644 index 0ce6142..0000000 --- a/src/ev.c +++ /dev/null @@ -1,137 +0,0 @@ -#include -#include -#include -#include - -#define NDEBUG - -#define BUFSIZE 1024 - -#define bail(arg...) do { fprintf(stderr, ##arg); exit(EXIT_FAILURE); } while (0) - -char *arg; - -int istack[BUFSIZE]; -char opstack[BUFSIZE]; -int istackp,opstackp; - -#ifdef NDEBUG -#define dump(x) -#else -static void dump(char *pref) -{ -int i; - fprintf(stderr,"%s: i[",pref); - for (i=0;i=mypri) - evalit(); - if (!op) return; - if (op==')') { - if (!opstackp || opstack[opstackp-1]!='(') - bail("Not enough content for brackets-inside space!\n"); - opstackp--; - return; - } - if (opstackp>=BUFSIZE) bail("Too many operators (%d is max)!\n",BUFSIZE); - opstack[opstackp++]=op; -} - -static void process(void) -{ -char lastop,op; -int curi; - - istackp=opstackp=0; - for (lastop=0;;lastop=op) switch (op=lex(&curi)) { - case 'n': - if (lastop=='n') bail("Two successive numbers not permitted!\n"); - if (istackp>=BUFSIZE) bail("Too many operators (%d is max)!\n",BUFSIZE); - istack[istackp++]=curi; - break; - case '(': - if (lastop=='n') bail("Open-bracket not permitted after number!\n"); - pushop(op); - break; - case '+': case '-': case '*': case '/': case ')': pushop(op); break; - case 0: - pushop(op); - if (istackp!=1||opstackp) - bail("Machine not in sane state on the end of expression, ints=%d,ops=%d!\n",istackp,opstackp); - printf("%d\n",istack[0]); - return; - default: assert(0); - } -} - -int main(int argc,char **argv) -{ -int argn; - for (argn=1;argn -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#define failf(name) do { fprintf(stderr,"%s: ",pname); perror(name"()"); exit(EXIT_FAILURE); } while (0) -const char version[]="This is FLock, version 1.0\n"; - -int verbose; - -char *pname; - -static __NORETURN void usage(void) -{ - fprintf(stderr,"\ -%s\ -This command acts as an interface to flock(2):\n\ -\n\ -Usage: flock [{-s|--shared}|{-x|--exclusive}] [-n|--nonblock]\n\ - [-v|--verbose] [-h|--help] [-V|--version]\n\ - \n\ -\n\ - -s, --shared\tCreate shared lock (LOCK_SH) - DEFAULT\n\ - -x, --exclusive\tCreate exclusive lock (LOCK_EX)\n\ - -n, --nonblock\tFail immediately if req. lock is busy\n\ - -v, --verbose\tDisplay progress during locking\n\ - -h, --help\tPrint a summary of the options\n\ - -V, --version\tPrint the version number\n\ -",version); - exit(EXIT_FAILURE); -} - -const struct option longopts[]={ -{"shared" ,0,0,'s'}, -{"exclusive",0,0,'x'}, -{"nonblock" ,0,0,'n'}, -{"verbose" ,0,0,'v'}, -{"help" ,0,0,'h'}, -{"version" ,0,0,'V'}}; - -int main(int argc,char **argv) -{ -char *fn,*cmd; -int locktype=LOCK_SH,nonblock=0,fd,optc; - - pname=*argv; - while ((optc=getopt_long(argc,argv,"sxnvhV",longopts,NULL))!=EOF) switch (optc) { - case 's': - locktype=LOCK_SH; - break; - case 'x': - locktype=LOCK_EX; - break; - case 'n': - nonblock=LOCK_NB; - break; - case 'v': - verbose=1; - break; - case 'V': - fprintf(stderr,version); - exit(EXIT_FAILURE); - default: /* also 'h' */ - usage(); - break; - } - if (optind+2!=argc) { - fprintf(stderr,"%s: Incorrect number of parameters (command needs quoting?)!\n",pname); - exit(EXIT_FAILURE); - } - fn=argv[optind]; - cmd=argv[optind+1]; - if (verbose) { fprintf(stderr,"%s: Opening \"%s\"...",pname,fn); fflush(stderr); } - if ((fd=open(fn,O_RDONLY|(nonblock?O_NONBLOCK:0)))==-1) failf("open"); - if (verbose) { fprintf(stderr,"done\n%s: Locking \"%s\"...",pname,fn); fflush(stderr); } - if (flock(fd,locktype|nonblock)) failf("flock"); - if (verbose) { fprintf(stderr,"done\n%s: Running \"%s\"...",pname,cmd); fflush(stderr); } - if (system(cmd)==-1) failf("system"); - if (verbose) { fprintf(stderr,"done\n%s: Finishing - removing lock.\n",pname); } - return(EXIT_SUCCESS); -} diff --git a/src/ghortident.c b/src/ghortident.c deleted file mode 100644 index d25ff0c..0000000 --- a/src/ghortident.c +++ /dev/null @@ -1,172 +0,0 @@ -#include -#include -#include -#include -#include -#include -#include - -#define DBG 0 - -int parseparams(int argc, char *argv[], ulong *adres, uint *rport, uint *lport, uint *service) -{ - char *s; - uint c, d; - - if (argc<1) return 255; - - *lport=80; - *service=113; - - switch (argc) - { - case 2: - fprintf(stderr,"Error: missing remote port!\n"); - case 1: - fprintf(stderr,"Usage: ident [local port] [ident port]\n"); - return 1; - default: - case 5: - c=0; - s=argv[4]; - while (*s) - { - if (c<65536 && *s>='0' && *s<='9') c=c*10+*s-'0'; - else - { - fprintf(stderr,"Error: wrong ident port!\n"); - return 5; - } - s++; - } - *service=c; - case 4: - c=0; - s=argv[3]; - while (*s) - { - if (c<65536 && *s>='0' && *s<='9') c=c*10+*s-'0'; - else - { - fprintf(stderr,"Error: wrong local port!\n"); - return 4; - } - s++; - } - *lport=c; - case 3: - *adres=0; - c=d=0; - s=argv[1]; - while (*s) - { - if (*s>='0' && *s<='9') - { - c=c*10+*s-'0'; - if (c>255) - { - fprintf(stderr,"Error: wrong address!\n"); - return 2; - } - } - else - if (*s=='.') - { - *adres=*adres*256+c; - c=0; - if (d++>=3) - { - fprintf(stderr,"Error: wrong address!\n"); - return 2; - } - } - else - { - fprintf(stderr,"Error: wrong address!\n"); - return 2; - } - s++; - } - *adres=*adres*256+c; - - c=0; - s=argv[2]; - while (*s) - { - if (c<65536 && *s>='0' && *s<='9') c=c*10+*s-'0'; - else - { - fprintf(stderr,"Error: wrong remote port!\n"); - return 3; - } - s++; - } - *rport=c; - } - return 0; -} - -int main(int argc, char *argv[]) -{ - int sock; - struct sockaddr_in addr; - char buf[256]; - int count; - ulong adres; - uint rport, lport, service; - int err; - static const int val_one=1; - - if (parseparams(argc,argv,&adres,&rport,&lport,&service)) return 3; - - if (DBG) fprintf(stderr,"addr: %lX rport: %u lport: %u service: %i\n",adres,rport,lport,service); - - addr.sin_family=AF_INET; - addr.sin_addr.s_addr=htonl(adres); - addr.sin_port=htons(service); - - sock=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); - setsockopt(sock,SOL_SOCKET,SO_KEEPALIVE,&val_one,sizeof(val_one)); - - if (DBG) - { - err=errno; - fprintf(stderr,"socket: %i, errno: %i\n",sock,err); - } - if (sock==-1) - { - fprintf(stderr,"Error: cannot create socket!\n"); - return 4; - } - - count=connect(sock,(struct sockaddr*)&addr,sizeof(addr)); - if (DBG) - { - err=errno; - fprintf(stderr,"connect: %i, errno: %i\n",count,err); - } - - if (count) - { - fprintf(stderr,"Error: connection failed!\n"); - return 5; - } - - count=snprintf(buf,sizeof(buf),"%d , %d\n",rport,lport); - if (count==-1) return 1; - if (write(sock,buf,count)!=count) return 2; - - for (;;) - { - count=read(sock,buf,sizeof(buf)-1); - if (count<=0) break; - buf[count]=0; - printf("%s",buf); - fflush(stdout); - } - - if (DBG) fprintf(stderr,"count = %d , errno = %d\n",count,errno); - close(sock); - return 0; -} - diff --git a/src/misc/getopt/getopt.c b/src/misc/getopt/getopt.c deleted file mode 100644 index 81cef23..0000000 --- a/src/misc/getopt/getopt.c +++ /dev/null @@ -1,1051 +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 drepper@gnu.org - before changing it! - - Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98 - Free Software Foundation, Inc. - - 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. */ - -/* 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 -# include -#endif - -#if !defined __STDC__ || !__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. */ - -#define GETOPT_INTERFACE_VERSION 2 -#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2 -# include -# if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION -# define ELIDE_CODE -# endif -#endif - -#ifndef ELIDE_CODE - - -/* 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 -# include -#endif /* GNU C library. */ - -#ifdef VMS -# include -# if HAVE_STRING_H - 0 -# include -# endif -#endif - -#ifndef _ -/* This is for other GNU distributions with internationalized messages. - When compiling libc, the _ macro is predefined. */ -# ifdef HAVE_LIBINTL_H -# include -# define _(msgid) gettext (msgid) -# else -# define _(msgid) (msgid) -# endif -#endif - -/* 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 -1, 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. */ - -/* 1003.2 says this must be 1 before any call. */ -int optind = 1; - -/* Formerly, initialization of getopt depended on optind==0, which - causes problems with re-calling getopt as programs generally don't - know that. */ - -int __getopt_initialized = 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 -1 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 - -# if HAVE_STRING_H -# include -# else -# include -# endif - -/* Avoid depending on library functions or files - whose names are inconsistent. */ - -#ifndef getenv -extern char *getenv (); -#endif - -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. */ -# if (!defined __STDC__ || !__STDC__) && !defined strlen -/* 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; - -#ifdef _LIBC -/* Bash 2.0 gives us an environment variable containing flags - indicating ARGV elements that should not be considered arguments. */ - -/* Defined in getopt_init.c */ -extern char *__getopt_nonoption_flags; - -static int nonoption_flags_max_len; -static int nonoption_flags_len; - -static int original_argc; -static char *const *original_argv; - -/* Make sure the environment variable bash 2.0 puts in the environment - is valid for the getopt call we must make sure that the ARGV passed - to getopt is that one passed to the process. */ -static void -__attribute__ ((unused)) -store_args_and_env (int argc, char *const *argv) -{ - /* XXX This is no good solution. We should rather copy the args so - that we can compare them later. But we must not use malloc(3). */ - original_argc = argc; - original_argv = argv; -} -# ifdef text_set_element -text_set_element (__libc_subinit, store_args_and_env); -# endif /* text_set_element */ - -# define SWAP_FLAGS(ch1, ch2) \ - if (nonoption_flags_len > 0) \ - { \ - char __tmp = __getopt_nonoption_flags[ch1]; \ - __getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \ - __getopt_nonoption_flags[ch2] = __tmp; \ - } -#else /* !_LIBC */ -# define SWAP_FLAGS(ch1, ch2) -#endif /* _LIBC */ - -/* 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. */ - -#if defined __STDC__ && __STDC__ -static void exchange (char **); -#endif - -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. */ - -#ifdef _LIBC - /* First make sure the handling of the `__getopt_nonoption_flags' - string can work normally. Our top argument must be in the range - of the string. */ - if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len) - { - /* We must extend the array. The user plays games with us and - presents new arguments. */ - char *new_str = malloc (top + 1); - if (new_str == NULL) - nonoption_flags_len = nonoption_flags_max_len = 0; - else - { - memset (__mempcpy (new_str, __getopt_nonoption_flags, - nonoption_flags_max_len), - '\0', top + 1 - nonoption_flags_max_len); - nonoption_flags_max_len = top + 1; - __getopt_nonoption_flags = new_str; - } - } -#endif - - 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; - SWAP_FLAGS (bottom + i, top - (middle - bottom) + i); - } - /* 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; - SWAP_FLAGS (bottom + i, middle + i); - } - /* 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. */ - -#if defined __STDC__ && __STDC__ -static const char *_getopt_initialize (int, char *const *, const char *); -#endif -static const char * -_getopt_initialize (argc, argv, optstring) - int argc; - char *const *argv; - 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; - - 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; - -#ifdef _LIBC - if (posixly_correct == NULL - && argc == original_argc && argv == original_argv) - { - if (nonoption_flags_max_len == 0) - { - if (__getopt_nonoption_flags == NULL - || __getopt_nonoption_flags[0] == '\0') - nonoption_flags_max_len = -1; - else - { - const char *orig_str = __getopt_nonoption_flags; - int len = nonoption_flags_max_len = strlen (orig_str); - if (nonoption_flags_max_len < argc) - nonoption_flags_max_len = argc; - __getopt_nonoption_flags = - (char *) malloc (nonoption_flags_max_len); - if (__getopt_nonoption_flags == NULL) - nonoption_flags_max_len = -1; - else - memset (__mempcpy (__getopt_nonoption_flags, orig_str, len), - '\0', nonoption_flags_max_len - len); - } - } - nonoption_flags_len = nonoption_flags_max_len; - } - else - nonoption_flags_len = 0; -#endif - - 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 -1. - 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 || !__getopt_initialized) - { - if (optind == 0) - optind = 1; /* Don't scan ARGV[0], the program name. */ - optstring = _getopt_initialize (argc, argv, optstring); - __getopt_initialized = 1; - } - - /* Test whether ARGV[optind] points to a non-option argument. - Either it does not have option syntax, or there is an environment flag - from the shell indicating it is not an option. The later information - is only used when the used in the GNU libc. */ -#ifdef _LIBC -# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \ - || (optind < nonoption_flags_len \ - && __getopt_nonoption_flags[optind] == '1')) -#else -# define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0') -#endif - - if (nextchar == NULL || *nextchar == '\0') - { - /* Advance to the next ARGV-element. */ - - /* Give FIRST_NONOPT & LAST_NONOPT rational values if OPTIND has been - moved back by the user (who may also have changed the arguments). */ - if (last_nonopt > optind) - last_nonopt = optind; - if (first_nonopt > optind) - first_nonopt = optind; - - 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 && NONOPTION_P) - 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 -1; - } - - /* 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 (NONOPTION_P) - { - if (ordering == REQUIRE_ORDER) - return -1; - 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 = -1; - 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 ((unsigned int) (nameend - nextchar) - == (unsigned 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++; - optopt = 0; - 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); - - optopt = pfound->val; - 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); - optopt = pfound->val; - 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++; - optopt = 0; - 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 '?'; - } - /* Convenience. Treat POSIX -W foo same as long option --foo */ - if (temp[0] == 'W' && temp[1] == ';') - { - char *nameend; - const struct option *p; - const struct option *pfound = NULL; - int exact = 0; - int ambig = 0; - int indfound = 0; - int option_index; - - /* 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 = '?'; - return c; - } - else - /* We already incremented `optind' once; - increment it again when taking next ARGV-elt as argument. */ - optarg = argv[optind++]; - - /* optarg is now the argument, see if it's in the - table of longopts. */ - - for (nextchar = nameend = optarg; *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 ((unsigned int) (nameend - nextchar) == 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 `-W %s' is ambiguous\n"), - argv[0], argv[optind]); - nextchar += strlen (nextchar); - optind++; - return '?'; - } - if (pfound != NULL) - { - option_index = indfound; - 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) - fprintf (stderr, _("\ -%s: option `-W %s' doesn't allow an argument\n"), - argv[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; - } - nextchar = NULL; - return 'W'; /* Let the application handle it. */ - } - 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 /* Not ELIDE_CODE. */ - -#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 == -1) - 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/src/misc/getopt/getopt.h b/src/misc/getopt/getopt.h deleted file mode 100644 index b0147e9..0000000 --- a/src/misc/getopt/getopt.h +++ /dev/null @@ -1,169 +0,0 @@ -/* Declarations for getopt. - Copyright (C) 1989,90,91,92,93,94,96,97,98 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. */ - -#ifndef _GETOPT_H - -#ifndef __need_getopt -# define _GETOPT_H 1 -#endif - -#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 -1, 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; - -#ifndef __need_getopt -/* 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 defined __STDC__ && __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 -#endif /* need getopt */ - - -/* Get definitions and prototypes for functions to process the - arguments in ARGV (ARGC of them, minus the program name) for - options given in OPTS. - - Return the option character from OPTS just read. Return -1 when - there are no more options. For unrecognized options, or options - missing arguments, `optopt' is set to the option letter, and '?' is - returned. - - The OPTS string is a list of characters which are recognized option - letters, optionally followed by colons, specifying that that letter - takes an argument, to be placed in `optarg'. - - If a letter in OPTS is followed by two colons, its argument is - optional. This behavior is specific to the GNU `getopt'. - - The argument `--' causes premature termination of argument - scanning, explicitly telling `getopt' that there are no more - options. - - If OPTS begins with `--', then non-option arguments are treated as - arguments to the option '\0'. This behavior is specific to the GNU - `getopt'. */ - -#if defined __STDC__ && __STDC__ -# ifdef __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 /* __GNU_LIBRARY__ */ - -# ifndef __need_getopt -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); -# endif -#else /* not __STDC__ */ -extern int getopt (); -# ifndef __need_getopt -extern int getopt_long (); -extern int getopt_long_only (); - -extern int _getopt_internal (); -# endif -#endif /* __STDC__ */ - -#ifdef __cplusplus -} -#endif - -/* Make sure we later can get all the definitions and declarations. */ -#undef __need_getopt - -#endif /* getopt.h */ diff --git a/src/misc/getopt/getopt1.c b/src/misc/getopt/getopt1.c deleted file mode 100644 index 3d264f2..0000000 --- a/src/misc/getopt/getopt1.c +++ /dev/null @@ -1,188 +0,0 @@ -/* getopt_long and getopt_long_only entry points for GNU getopt. - Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98 - 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 "getopt.h" - -#if !defined __STDC__ || !__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. */ - -#define GETOPT_INTERFACE_VERSION 2 -#if !defined _LIBC && defined __GLIBC__ && __GLIBC__ >= 2 -#include -#if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION -#define ELIDE_CODE -#endif -#endif - -#ifndef ELIDE_CODE - - -/* This needs to come after some library #include - to get __GNU_LIBRARY__ defined. */ -#ifdef __GNU_LIBRARY__ -#include -#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 /* Not ELIDE_CODE. */ - -#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 == -1) - 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/src/pserverchroot.c b/src/pserverchroot.c deleted file mode 100644 index ca79201..0000000 --- a/src/pserverchroot.c +++ /dev/null @@ -1,74 +0,0 @@ -#include -#include -#include -#include -#include - -extern const char **environ; - - -#define SETUID 613 /* "pserver" user UID */ -#define SETGID 613 /* "pserver" group GID */ -#define PERMITTED_ENV_LIST "PWD" -#define EXEC_PATHNAME "/usr/bin/cvs" - - -#ifndef G_GNUC_NORETURN -#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ > 4) -#define G_GNUC_NORETURN __attribute__((noreturn)) -#else /* !__GNUC__ */ -#define G_GNUC_NORETURN -#endif /* !__GNUC__ */ -#endif /* !G_GNUC_NORETURN */ - -#define EXITLOG(msg...) do {\ - openlog("pserverchroot",LOG_PID,LOG_DAEMON); \ - syslog(LOG_CRIT,msg); \ - closelog(); \ - exit(EXIT_FAILURE); \ - } while (0) - -#define LENGTH(x) (sizeof((x))/sizeof(*(x))) - -#define FUNCCHK(funcname,args...) do { \ - if (errno=0,funcname(args)) \ - funcfail( #funcname ); \ - } while (0) - -static void funcfail(const char *funcname) G_GNUC_NORETURN; -static void funcfail(const char *funcname) -{ - EXITLOG("Unable to %s(2): %s",funcname,strerror(errno)); -} - -int main(int argc,char **argv) -{ -int total=0; -const char *allowed[]={ PERMITTED_ENV_LIST }; -const char **allp,**envp; -char *dup=NULL,*s; - -retry: - for (envp=environ;*envp;envp++) { - if (dup) free(dup); - dup=strdup(*envp); - if ((s=strchr(dup,'='))) *s='\0'; - for (allp=allowed;allp1000) - EXITLOG("Unable to clean environment for CVS pserver: %s",*envp); - unsetenv(dup); - goto retry; -ok:; - } - FUNCCHK(setenv,"PATH","/usr/bin",1); - FUNCCHK(chroot,"/home/short/pserver"); - FUNCCHK(chdir,"/"); - FUNCCHK(setgid,SETGID); - FUNCCHK(setuid,SETUID); - if (!getuid() || !geteuid() || !getgid() || !getegid()) - EXITLOG("Privileges NOT dropped!: uid=%d,euid=%d,gid=%d,egid=%d", - getuid(),geteuid(),getgid(),getegid()); - errno=0,execv(EXEC_PATHNAME,argv); - funcfail("execv"); -} diff --git a/src/unmime.c b/src/unmime.c deleted file mode 100644 index 1150f11..0000000 --- a/src/unmime.c +++ /dev/null @@ -1,26 +0,0 @@ -#include - -int fromhex(int a) -{ - return(a<='9'?a-'0':a-'A'+10); -} - -int main(int argc,char **argv) -{ -char c,seek; -int i; - if (argc>1&&*(argv[1])) seek=*(argv[1]); - for (;;) { - i=getchar(); - if (i==-1) break; - if (i!=seek) { putchar(i); continue; } - i=getchar(); - if (i=='\n') continue; - if (i==-1) break; - c=i; - i=getchar(); - if (i==-1) break; - putchar(fromhex(c)*0x10+fromhex(i)); - } - return(0); -} diff --git a/src/urlencode.c b/src/urlencode.c deleted file mode 100644 index 7a0497a..0000000 --- a/src/urlencode.c +++ /dev/null @@ -1,24 +0,0 @@ -#include -#include -#include - -int main(void) -{ -int c; - while ((c=getchar())!=EOF) switch (c) { - case ' ': - putchar('+'); - break; - case '0' ... '9': - case 'A' ... 'Z': - case 'a' ... 'z': - case '!': case '*': case '\'': case '(': case ')': case ',': /* extra */ - case '$': case '-': case '_' : case '.': /* safe */ - putchar(c); - break; - default: - printf("%%%02X",c); - } - fflush(stdout); - return(0); -} -- 1.8.3.1