rom/utility/stricmp.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <exec/types.h>
   9 #include <aros/libcall.h>
  10 #include "intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/utility.h>
  16
  17         AROS_LH2(LONG, Stricmp,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(CONST_STRPTR, string1, A0),
  21         AROS_LHA(CONST_STRPTR, string2, A1),
  22
  23 /*  LOCATION */
  24         struct UtilityBase *, UtilityBase, 27, Utility)
  25
  26 /*  FUNCTION
  27         Compares two strings treating lower and upper case characters
  28         as identical.
  29
  30     INPUTS
  31         string1, string2 - The strings to compare.
  32
  33     RESULT
  34         <0  if string1 <  string2
  35         ==0 if string1 == string2
  36         >0  if string1 >  string2
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     UBYTE c1, c2;
  54
  55     /* Loop as long as the strings are identical and valid. */
  56     do
  57     {
  58         /* Get characters, convert them to lower case. */
  59         c1=ToLower(*string1++);
  60         c2=ToLower(*string2++);
  61     }while(c1==c2&&c1);
  62
  63     /* Get result. */
  64     return (LONG)c1-(LONG)c2;
  65     AROS_LIBFUNC_EXIT
  66 } /* Stricmp */