Changeset 4101


Ignore:
Timestamp:
09/28/03 15:59:15 (19 years ago)
Author:
piso
Message:

Utilities.toUpperCase()

File:
1 edited

Legend:

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

    r3883 r4101  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CharacterFunctions.java,v 1.3 2003-09-19 01:46:40 piso Exp $
     5 * $Id: CharacterFunctions.java,v 1.4 2003-09-28 15:59:15 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5656            if (c1 == c2)
    5757                return T;
    58             if (Character.toUpperCase(c1) == Character.toUpperCase(c2))
     58            if (Utilities.toUpperCase(c1) == Utilities.toUpperCase(c2))
    5959                return T;
    6060            if (Character.toLowerCase(c1) == Character.toLowerCase(c2))
     
    7373                    if (c0 == c)
    7474                        continue;
    75                     if (Character.toUpperCase(c0) == Character.toUpperCase(c))
     75                    if (Utilities.toUpperCase(c0) == Utilities.toUpperCase(c))
    7676                        continue;
    7777                    if (Character.toLowerCase(c0) == Character.toLowerCase(c))
     
    9090            throws ConditionThrowable
    9191        {
    92             char c1 = Character.toUpperCase(LispCharacter.getValue(first));
    93             char c2 = Character.toUpperCase(LispCharacter.getValue(second));
     92            char c1 = Utilities.toUpperCase(LispCharacter.getValue(first));
     93            char c2 = Utilities.toUpperCase(LispCharacter.getValue(second));
    9494            return c1 > c2 ? T : NIL;
    9595        }
     
    102102                char[] chars = new char[length];
    103103                for (int i = 0; i < length; i++)
    104                     chars[i] = Character.toUpperCase(LispCharacter.getValue(array[i]));
     104                    chars[i] = Utilities.toUpperCase(LispCharacter.getValue(array[i]));
    105105                for (int i = 1; i < length; i++) {
    106106                    if (chars[i-1] <= chars[i])
     
    118118            throws ConditionThrowable
    119119        {
    120             char c1 = Character.toUpperCase(LispCharacter.getValue(first));
    121             char c2 = Character.toUpperCase(LispCharacter.getValue(second));
     120            char c1 = Utilities.toUpperCase(LispCharacter.getValue(first));
     121            char c2 = Utilities.toUpperCase(LispCharacter.getValue(second));
    122122            return c1 <= c2 ? T : NIL;
    123123        }
     
    130130                char[] chars = new char[length];
    131131                for (int i = 0; i < length; i++)
    132                     chars[i] = Character.toUpperCase(LispCharacter.getValue(array[i]));
     132                    chars[i] = Utilities.toUpperCase(LispCharacter.getValue(array[i]));
    133133                for (int i = 1; i < length; i++) {
    134134                    if (chars[i] < chars[i-1])
     
    146146            throws ConditionThrowable
    147147        {
    148             char c1 = Character.toUpperCase(LispCharacter.getValue(first));
    149             char c2 = Character.toUpperCase(LispCharacter.getValue(second));
     148            char c1 = Utilities.toUpperCase(LispCharacter.getValue(first));
     149            char c2 = Utilities.toUpperCase(LispCharacter.getValue(second));
    150150            return c1 < c2 ? T : NIL;
    151151        }
     
    158158                char[] chars = new char[length];
    159159                for (int i = 0; i < length; i++)
    160                     chars[i] = Character.toUpperCase(LispCharacter.getValue(array[i]));
     160                    chars[i] = Utilities.toUpperCase(LispCharacter.getValue(array[i]));
    161161                for (int i = 1; i < length; i++) {
    162162                    if (chars[i-1] >= chars[i])
     
    174174            throws ConditionThrowable
    175175        {
    176             char c1 = Character.toUpperCase(LispCharacter.getValue(first));
    177             char c2 = Character.toUpperCase(LispCharacter.getValue(second));
     176            char c1 = Utilities.toUpperCase(LispCharacter.getValue(first));
     177            char c2 = Utilities.toUpperCase(LispCharacter.getValue(second));
    178178            return c1 >= c2 ? T : NIL;
    179179        }
     
    186186                char[] chars = new char[length];
    187187                for (int i = 0; i < length; i++)
    188                     chars[i] = Character.toUpperCase(LispCharacter.getValue(array[i]));
     188                    chars[i] = Utilities.toUpperCase(LispCharacter.getValue(array[i]));
    189189                for (int i = 1; i < length; i++) {
    190190                    if (chars[i] > chars[i-1])
Note: See TracChangeset for help on using the changeset viewer.