/[MITgcm]/MITgcm_contrib/mpack_src/mpack-1.6-4/strcasecmp.c
ViewVC logotype

Annotation of /MITgcm_contrib/mpack_src/mpack-1.6-4/strcasecmp.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sat Feb 23 20:22:59 2008 UTC (17 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
- get new version from: http://packages.qa.debian.org/m/mpack.html
  (files: mpack_1.6.orig.tar.gz, mpack_1.6-4.diff.gz, mpack_1.6-4.dsc)
  and apply patch 'mpack_1.6-4.diff' to original dir: mpack_1.6/
- this fix the MD5 coding on 64.bit platforms (well, seems to).
- added in Contrib to allow separate test (since building mpack seems fishy)

1 jmc 1.1 /*
2     * String manipulation routines
3     */
4     /* (C) Copyright 1993,1994 by Carnegie Mellon University
5     * All Rights Reserved.
6     *
7     * Permission to use, copy, modify, distribute, and sell this software
8     * and its documentation for any purpose is hereby granted without
9     * fee, provided that the above copyright notice appear in all copies
10     * and that both that copyright notice and this permission notice
11     * appear in supporting documentation, and that the name of Carnegie
12     * Mellon University not be used in advertising or publicity
13     * pertaining to distribution of the software without specific,
14     * written prior permission. Carnegie Mellon University makes no
15     * representations about the suitability of this software for any
16     * purpose. It is provided "as is" without express or implied
17     * warranty.
18     *
19     * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
20     * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
21     * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
22     * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
23     * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
24     * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
25     * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
26     * SOFTWARE.
27     */
28    
29     #include <ctype.h>
30    
31     static unsigned char upcase[256] = {
32     0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
33     16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
34     ' ','!','"','#','$','%','&', 39,'(',')','*','+',',','-','.','/',
35     '0','1','2','3','4','5','6','7','8','9',':',';','<','=','>','?',
36     '@','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O',
37     'P','Q','R','S','T','U','V','W','X','Y','Z','[', 92,']','^','_',
38     '`','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O',
39     'P','Q','R','S','T','U','V','W','X','Y','Z','{','|','}','~',127,
40     128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
41     144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
42     160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,
43     176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
44     192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
45     208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
46     224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
47     240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255};
48    
49     #define UPC(x) (upcase[(unsigned char)(x)])
50    
51     /*
52     * Same as strcmp, but case-insensitive.
53     */
54     int
55     strcasecmp(register char *s1, register char *s2)
56     {
57     register char c1;
58     while ((c1 = *s1) && UPC(c1) == UPC(*s2)) {
59     s1++;
60     s2++;
61     }
62     return UPC(c1) - UPC(*s2);
63     }
64    
65     /*
66     * Same as strncmp, but case-insensitive.
67     */
68     int
69     strncasecmp(register char *s1, register char *s2, int n)
70     {
71     register char c1;
72     while (n-- && (c1 = *s1) && UPC(c1) == UPC(*s2)) {
73     s1++;
74     s2++;
75     }
76     if (n == -1) return 0;
77     return UPC(c1) - UPC(*s2);
78     }
79    

  ViewVC Help
Powered by ViewVC 1.1.22