110898Sroland.mainz@nrubsig.org /***********************************************************************
210898Sroland.mainz@nrubsig.org * *
310898Sroland.mainz@nrubsig.org * This software is part of the ast package *
4*12068SRoger.Faulkner@Oracle.COM * Copyright (c) 1985-2010 AT&T Intellectual Property *
510898Sroland.mainz@nrubsig.org * and is licensed under the *
610898Sroland.mainz@nrubsig.org * Common Public License, Version 1.0 *
710898Sroland.mainz@nrubsig.org * by AT&T Intellectual Property *
810898Sroland.mainz@nrubsig.org * *
910898Sroland.mainz@nrubsig.org * A copy of the License is available at *
1010898Sroland.mainz@nrubsig.org * http://www.opensource.org/licenses/cpl1.0.txt *
1110898Sroland.mainz@nrubsig.org * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1210898Sroland.mainz@nrubsig.org * *
1310898Sroland.mainz@nrubsig.org * Information and Software Systems Research *
1410898Sroland.mainz@nrubsig.org * AT&T Research *
1510898Sroland.mainz@nrubsig.org * Florham Park NJ *
1610898Sroland.mainz@nrubsig.org * *
1710898Sroland.mainz@nrubsig.org * Glenn Fowler <gsf@research.att.com> *
1810898Sroland.mainz@nrubsig.org * David Korn <dgk@research.att.com> *
1910898Sroland.mainz@nrubsig.org * Phong Vo <kpv@research.att.com> *
2010898Sroland.mainz@nrubsig.org * *
2110898Sroland.mainz@nrubsig.org ***********************************************************************/
2210898Sroland.mainz@nrubsig.org #pragma prototyped
2310898Sroland.mainz@nrubsig.org
2410898Sroland.mainz@nrubsig.org #include <ast.h>
2510898Sroland.mainz@nrubsig.org #include <ctype.h>
2610898Sroland.mainz@nrubsig.org
2710898Sroland.mainz@nrubsig.org /*
2810898Sroland.mainz@nrubsig.org * version strncmp(3)
2910898Sroland.mainz@nrubsig.org */
3010898Sroland.mainz@nrubsig.org
3110898Sroland.mainz@nrubsig.org int
strnvcmp(register const char * a,register const char * b,size_t n)3210898Sroland.mainz@nrubsig.org strnvcmp(register const char* a, register const char* b, size_t n)
3310898Sroland.mainz@nrubsig.org {
3410898Sroland.mainz@nrubsig.org register const char* ae;
3510898Sroland.mainz@nrubsig.org register const char* be;
3610898Sroland.mainz@nrubsig.org register unsigned long na;
3710898Sroland.mainz@nrubsig.org register unsigned long nb;
3810898Sroland.mainz@nrubsig.org
3910898Sroland.mainz@nrubsig.org ae = a + n;
4010898Sroland.mainz@nrubsig.org be = b + n;
4110898Sroland.mainz@nrubsig.org for (;;)
4210898Sroland.mainz@nrubsig.org {
4310898Sroland.mainz@nrubsig.org if (a >= ae)
4410898Sroland.mainz@nrubsig.org {
4510898Sroland.mainz@nrubsig.org if (b >= be)
4610898Sroland.mainz@nrubsig.org return 0;
4710898Sroland.mainz@nrubsig.org return 1;
4810898Sroland.mainz@nrubsig.org }
4910898Sroland.mainz@nrubsig.org else if (b >= be)
5010898Sroland.mainz@nrubsig.org return -1;
5110898Sroland.mainz@nrubsig.org if (isdigit(*a) && isdigit(*b))
5210898Sroland.mainz@nrubsig.org {
5310898Sroland.mainz@nrubsig.org na = nb = 0;
5410898Sroland.mainz@nrubsig.org while (a < ae && isdigit(*a))
5510898Sroland.mainz@nrubsig.org na = na * 10 + *a++ - '0';
5610898Sroland.mainz@nrubsig.org while (b < be && isdigit(*b))
5710898Sroland.mainz@nrubsig.org nb = nb * 10 + *b++ - '0';
5810898Sroland.mainz@nrubsig.org if (na < nb)
5910898Sroland.mainz@nrubsig.org return -1;
6010898Sroland.mainz@nrubsig.org if (na > nb)
6110898Sroland.mainz@nrubsig.org return 1;
6210898Sroland.mainz@nrubsig.org }
6310898Sroland.mainz@nrubsig.org else if (*a != *b)
6410898Sroland.mainz@nrubsig.org break;
6510898Sroland.mainz@nrubsig.org else if (!*a)
6610898Sroland.mainz@nrubsig.org return 0;
6710898Sroland.mainz@nrubsig.org else
6810898Sroland.mainz@nrubsig.org {
6910898Sroland.mainz@nrubsig.org a++;
7010898Sroland.mainz@nrubsig.org b++;
7110898Sroland.mainz@nrubsig.org }
7210898Sroland.mainz@nrubsig.org }
7310898Sroland.mainz@nrubsig.org if (*a == 0)
7410898Sroland.mainz@nrubsig.org return -1;
7510898Sroland.mainz@nrubsig.org if (*b == 0)
7610898Sroland.mainz@nrubsig.org return 1;
7710898Sroland.mainz@nrubsig.org if (*a == '.')
7810898Sroland.mainz@nrubsig.org return -1;
7910898Sroland.mainz@nrubsig.org if (*b == '.')
8010898Sroland.mainz@nrubsig.org return 1;
8110898Sroland.mainz@nrubsig.org if (*a == '-')
8210898Sroland.mainz@nrubsig.org return -1;
8310898Sroland.mainz@nrubsig.org if (*b == '-')
8410898Sroland.mainz@nrubsig.org return 1;
8510898Sroland.mainz@nrubsig.org return *a < *b ? -1 : 1;
8610898Sroland.mainz@nrubsig.org }
87