Changeset 5927


Ignore:
Timestamp:
02/24/04 14:02:50 (17 years ago)
Author:
piso
Message:

private final char c => public final char value

File:
1 edited

Legend:

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

    r5897 r5927  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: LispCharacter.java,v 1.38 2004-02-23 14:24:47 piso Exp $
     5 * $Id: LispCharacter.java,v 1.39 2004-02-24 14:02:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3131    }
    3232
    33     private final char c;
     33    public final char value;
    3434
    3535    public static LispCharacter getInstance(char c)
     
    4545    private LispCharacter(char c)
    4646    {
    47         this.c = c;
     47        this.value = c;
    4848    }
    4949
     
    8383    public LispObject isStandardChar()
    8484    {
    85         if (c >= ' ' && c < 127)
    86             return T;
    87         if (c == '\n')
     85        if (value >= ' ' && value < 127)
     86            return T;
     87        if (value == '\n')
    8888            return T;
    8989        return NIL;
     
    9595            return true;
    9696        if (obj instanceof LispCharacter) {
    97             if (c == ((LispCharacter)obj).c)
     97            if (value == ((LispCharacter)obj).value)
    9898                return true;
    9999        }
     
    106106            return true;
    107107        if (obj instanceof LispCharacter) {
    108             if (c == ((LispCharacter)obj).c)
     108            if (value == ((LispCharacter)obj).value)
    109109                return true;
    110110        }
     
    117117            return true;
    118118        if (obj instanceof LispCharacter) {
    119             if (c == ((LispCharacter)obj).c)
     119            if (value == ((LispCharacter)obj).value)
    120120                return true;
    121             return Utilities.toLowerCase(c) == Utilities.toLowerCase(((LispCharacter)obj).c);
     121            return Utilities.toLowerCase(value) == Utilities.toLowerCase(((LispCharacter)obj).value);
    122122        }
    123123        return false;
     
    138138    public final char getValue()
    139139    {
    140         return c;
     140        return value;
    141141    }
    142142
    143143    public Object javaInstance()
    144144    {
    145         return new Character(c);
     145        return new Character(value);
    146146    }
    147147
     
    153153    public int hashCode()
    154154    {
    155         return c;
     155        return value;
    156156    }
    157157
     
    161161        if (_PRINT_ESCAPE_.symbolValueNoThrow() != NIL) {
    162162            sb.append("#\\");
    163             switch (c) {
     163            switch (value) {
    164164                case 0:
    165165                    sb.append("Null");
     
    184184                    break;
    185185                default:
    186                     sb.append(c);
     186                    sb.append(value);
    187187                    break;
    188188            }
    189189        } else {
    190             sb.append(c);
     190            sb.append(value);
    191191        }
    192192        return sb.toString();
     
    217217        {
    218218            LispCharacter character = checkCharacter(arg);
    219             return Character.isWhitespace(character.c) ? T : NIL;
     219            return Character.isWhitespace(character.value) ? T : NIL;
    220220        }
    221221    };
Note: See TracChangeset for help on using the changeset viewer.