Changeset 4103


Ignore:
Timestamp:
09/28/03 16:28:51 (19 years ago)
Author:
piso
Message:

Use Utilities.toLowerCase().

Location:
trunk/j/src/org/armedbear/lisp
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/CharacterFunctions.java

    r4101 r4103  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CharacterFunctions.java,v 1.4 2003-09-28 15:59:15 piso Exp $
     5 * $Id: CharacterFunctions.java,v 1.5 2003-09-28 16:24:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5858            if (Utilities.toUpperCase(c1) == Utilities.toUpperCase(c2))
    5959                return T;
    60             if (Character.toLowerCase(c1) == Character.toLowerCase(c2))
     60            if (Utilities.toLowerCase(c1) == Utilities.toLowerCase(c2))
    6161                return T;
    6262            return NIL;
     
    7575                    if (Utilities.toUpperCase(c0) == Utilities.toUpperCase(c))
    7676                        continue;
    77                     if (Character.toLowerCase(c0) == Character.toLowerCase(c))
     77                    if (Utilities.toLowerCase(c0) == Utilities.toLowerCase(c))
    7878                        continue;
    7979                    return NIL;
  • trunk/j/src/org/armedbear/lisp/LispCharacter.java

    r3929 r4103  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispCharacter.java,v 1.27 2003-09-20 17:02:04 piso Exp $
     5 * $Id: LispCharacter.java,v 1.28 2003-09-28 16:28:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    109109            if (c == ((LispCharacter)obj).c)
    110110                return true;
    111             return Character.toLowerCase(c) == Character.toLowerCase(((LispCharacter)obj).c);
     111            return Utilities.toLowerCase(c) == Utilities.toLowerCase(((LispCharacter)obj).c);
    112112        }
    113113        return false;
  • trunk/j/src/org/armedbear/lisp/LispString.java

    r3894 r4103  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispString.java,v 1.60 2003-09-19 14:44:10 piso Exp $
     5 * $Id: LispString.java,v 1.61 2003-09-28 16:26:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    124124            for (int i = length(); i-- > 0;) {
    125125                if (string.array[i] != array[i]) {
    126                     if (Character.toLowerCase(string.array[i]) != Character.toLowerCase(array[i]))
     126                    if (Utilities.toLowerCase(string.array[i]) != Utilities.toLowerCase(array[i]))
    127127                        return false;
    128128                }
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r4102 r4103  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.449 2003-09-28 16:00:24 piso Exp $
     5 * $Id: Primitives.java,v 1.450 2003-09-28 16:25:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    321321                return Character.isUpperCase(LispCharacter.getValue(arg)) ? T : NIL;
    322322            case CHAR_DOWNCASE:                 // ### char-downcase
    323                 return LispCharacter.getInstance(Character.toLowerCase(LispCharacter.getValue(arg)));
     323                return LispCharacter.getInstance(Utilities.toLowerCase(LispCharacter.getValue(arg)));
    324324            case CHAR_UPCASE:                   // ### char-upcase
    325325                return LispCharacter.getInstance(Utilities.toUpperCase(LispCharacter.getValue(arg)));
  • trunk/j/src/org/armedbear/lisp/StringFunctions.java

    r4102 r4103  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StringFunctions.java,v 1.6 2003-09-28 16:00:52 piso Exp $
     5 * $Id: StringFunctions.java,v 1.7 2003-09-28 16:25:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    100100                if (Utilities.toUpperCase(c1) == Utilities.toUpperCase(c2))
    101101                    continue;
    102                 if (Character.toLowerCase(c1) == Character.toLowerCase(c2))
     102                if (Utilities.toLowerCase(c1) == Utilities.toLowerCase(c2))
    103103                    continue;
    104104                return NIL;
     
    130130                if (Utilities.toUpperCase(c1) == Utilities.toUpperCase(c2))
    131131                    continue;
    132                 if (Character.toLowerCase(c1) == Character.toLowerCase(c2))
     132                if (Utilities.toLowerCase(c1) == Utilities.toLowerCase(c2))
    133133                    continue;
    134134                return new Fixnum(i);
     
    437437                sb.append(array[i]);
    438438            for (i = start; i < end; i++)
    439                 sb.append(Character.toLowerCase(array[i]));
     439                sb.append(Utilities.toLowerCase(array[i]));
    440440            for (i = end; i < length; i++)
    441441                sb.append(array[i]);
     
    476476                    lastCharWasAlphanumeric = true;
    477477                } else if (Character.isUpperCase(c)) {
    478                     sb.append(lastCharWasAlphanumeric ? Character.toLowerCase(c) : c);
     478                    sb.append(lastCharWasAlphanumeric ? Utilities.toLowerCase(c) : c);
    479479                    lastCharWasAlphanumeric = true;
    480480                } else {
     
    538538            char[] array = s.chars();
    539539            for (int i = start; i < end; i++)
    540                 array[i] = Character.toLowerCase(array[i]);
     540                array[i] = Utilities.toLowerCase(array[i]);
    541541            return s;
    542542        }
     
    573573                } else if (Character.isUpperCase(c)) {
    574574                    if (lastCharWasAlphanumeric)
    575                         array[i] = Character.toLowerCase(c);
     575                        array[i] = Utilities.toLowerCase(c);
    576576                    lastCharWasAlphanumeric = true;
    577577                } else
Note: See TracChangeset for help on using the changeset viewer.