Changeset 12474


Ignore:
Timestamp:
02/14/10 15:14:40 (11 years ago)
Author:
vvoutilainen
Message:

Reindentation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/StringFunctions.java

    r12473 r12474  
    3636import static org.armedbear.lisp.Lisp.*;
    3737
    38 public final class StringFunctions
    39 {
     38public final class StringFunctions {
    4039    // ### %string=
    4140    // Case sensitive.
    4241    private static final Primitive _STRING_EQUAL = new pf__string_equal();
    43   private static final class pf__string_equal extends Primitive {
    44       pf__string_equal()
    45       {
    46         super("%string=", PACKAGE_SYS, false);
    47       }
    48  
     42    private static final class pf__string_equal extends Primitive {
     43        pf__string_equal() {
     44            super("%string=", PACKAGE_SYS, false);
     45        }
     46
    4947        @Override
    5048        public LispObject execute(LispObject first, LispObject second,
     
    7573                        return NIL;
    7674                }
    77             }
    78             catch (ArrayIndexOutOfBoundsException e) {
     75            } catch (ArrayIndexOutOfBoundsException e) {
    7976                // Shouldn't happen.
    8077                Debug.trace(e);
     
    8885    // Case sensitive.
    8986    private static final Primitive __STRING_EQUAL = new pf___string_equal();
    90   private static final class pf___string_equal extends Primitive {
    91       pf___string_equal()
    92       {
    93         super("%%string=", PACKAGE_SYS, false);
    94       }
    95  
     87    private static final class pf___string_equal extends Primitive {
     88        pf___string_equal() {
     89            super("%%string=", PACKAGE_SYS, false);
     90        }
     91
    9692        @Override
    9793        public LispObject execute(LispObject first, LispObject second)
     
    113109    // Case sensitive.
    114110    private static final Primitive _STRING_NOT_EQUAL = new pf__string_not_equal();
    115   private static final class pf__string_not_equal extends Primitive {
    116       pf__string_not_equal()
    117       {
    118         super("%string/=", PACKAGE_SYS, true);
    119       }
    120  
    121         @Override
    122         public LispObject execute(LispObject[] args)
    123         {
     111    private static final class pf__string_not_equal extends Primitive {
     112        pf__string_not_equal() {
     113            super("%string/=", PACKAGE_SYS, true);
     114        }
     115
     116        @Override
     117        public LispObject execute(LispObject[] args) {
    124118            if (args.length != 6)
    125119                return error(new WrongNumberOfArgumentsException(this));
     
    154148    // Case insensitive.
    155149    private static final Primitive _STRING_EQUAL_IGNORE_CASE = new pf__string_equal_ignore_case();
    156   private static final class pf__string_equal_ignore_case extends Primitive {
    157       pf__string_equal_ignore_case()
    158       {
    159         super("%string-equal", PACKAGE_SYS, true);
    160       }
    161  
     150    private static final class pf__string_equal_ignore_case extends Primitive {
     151        pf__string_equal_ignore_case() {
     152            super("%string-equal", PACKAGE_SYS, true);
     153        }
     154
    162155        @Override
    163156        public LispObject execute(LispObject first, LispObject second,
     
    193186    // Case sensitive.
    194187    private static final Primitive _STRING_NOT_EQUAL_IGNORE_CASE = new pf__string_not_equal_ignore_case();
    195   private static final class pf__string_not_equal_ignore_case extends Primitive {
    196       pf__string_not_equal_ignore_case()
    197       {
    198         super("%string-not-equal", PACKAGE_SYS, true);
    199       }
    200  
    201         @Override
    202         public LispObject execute(LispObject[] args)
    203         {
     188    private static final class pf__string_not_equal_ignore_case extends Primitive {
     189        pf__string_not_equal_ignore_case() {
     190            super("%string-not-equal", PACKAGE_SYS, true);
     191        }
     192
     193        @Override
     194        public LispObject execute(LispObject[] args) {
    204195            if (args.length != 6)
    205196                return error(new WrongNumberOfArgumentsException(this));
     
    226217                char c2 = array2[j];
    227218                if (c1 == c2 ||
    228                     LispCharacter.toUpperCase(c1) == LispCharacter.toUpperCase(c2) ||
    229                     LispCharacter.toLowerCase(c1) == LispCharacter.toLowerCase(c2))
    230                 {
     219                        LispCharacter.toUpperCase(c1) == LispCharacter.toUpperCase(c2) ||
     220                        LispCharacter.toLowerCase(c1) == LispCharacter.toLowerCase(c2)) {
    231221                    ++i;
    232222                    ++j;
     
    241231    // Case sensitive.
    242232    private static final Primitive _STRING_LESS_THAN = new pf__string_less_than();
    243   private static final class pf__string_less_than extends Primitive {
    244       pf__string_less_than()
    245       {
    246         super("%string<", PACKAGE_SYS, true);
    247       }
    248  
    249         @Override
    250         public LispObject execute(LispObject[] args)
    251         {
     233    private static final class pf__string_less_than extends Primitive {
     234        pf__string_less_than() {
     235            super("%string<", PACKAGE_SYS, true);
     236        }
     237
     238        @Override
     239        public LispObject execute(LispObject[] args) {
    252240            if (args.length != 6)
    253241                return error(new WrongNumberOfArgumentsException(this));
     
    289277    // Case sensitive.
    290278    private static final Primitive _STRING_GREATER_THAN = new pf__string_greater_than();
    291   private static final class pf__string_greater_than extends Primitive {
    292       pf__string_greater_than()
    293       {
    294         super("%string>", PACKAGE_SYS, true);
    295       }
    296  
    297         @Override
    298         public LispObject execute(LispObject[] args)
    299         {
     279    private static final class pf__string_greater_than extends Primitive {
     280        pf__string_greater_than() {
     281            super("%string>", PACKAGE_SYS, true);
     282        }
     283
     284        @Override
     285        public LispObject execute(LispObject[] args) {
    300286            if (args.length != 6)
    301287                return error(new WrongNumberOfArgumentsException(this));
     
    335321    // Case sensitive.
    336322    private static final Primitive _STRING_LE = new pf__string_le();
    337   private static final class pf__string_le extends Primitive {
    338       pf__string_le()
    339       {
    340         super("%string<=", PACKAGE_SYS, true);
    341       }
    342  
    343         @Override
    344         public LispObject execute(LispObject[] args)
    345         {
     323    private static final class pf__string_le extends Primitive {
     324        pf__string_le() {
     325            super("%string<=", PACKAGE_SYS, true);
     326        }
     327
     328        @Override
     329        public LispObject execute(LispObject[] args) {
    346330            if (args.length != 6)
    347331                return error(new WrongNumberOfArgumentsException(this));
     
    381365    // Case sensitive.
    382366    private static final Primitive _STRING_GE = new pf__string_ge();
    383   private static final class pf__string_ge extends Primitive {
    384       pf__string_ge()
    385       {
    386         super("%string>=", PACKAGE_SYS, true);
    387       }
    388  
    389         @Override
    390         public LispObject execute(LispObject[] args)
    391         {
     367    private static final class pf__string_ge extends Primitive {
     368        pf__string_ge() {
     369            super("%string>=", PACKAGE_SYS, true);
     370        }
     371
     372        @Override
     373        public LispObject execute(LispObject[] args) {
    392374            if (args.length != 6)
    393375                return error(new WrongNumberOfArgumentsException(this));
     
    429411    // Case insensitive.
    430412    private static final Primitive _STRING_LESSP = new pf__string_lessp();
    431   private static final class pf__string_lessp extends Primitive {
    432       pf__string_lessp()
    433       {
    434         super("%string-lessp", PACKAGE_SYS, true);
    435       }
    436  
    437         @Override
    438         public LispObject execute(LispObject[] args)
    439         {
     413    private static final class pf__string_lessp extends Primitive {
     414        pf__string_lessp() {
     415            super("%string-lessp", PACKAGE_SYS, true);
     416        }
     417
     418        @Override
     419        public LispObject execute(LispObject[] args) {
    440420            if (args.length != 6)
    441421                return error(new WrongNumberOfArgumentsException(this));
     
    477457    // Case insensitive.
    478458    private static final Primitive _STRING_GREATERP = new pf__string_greaterp();
    479   private static final class pf__string_greaterp extends Primitive {
    480       pf__string_greaterp()
    481       {
    482         super("%string-greaterp", PACKAGE_SYS, true);
    483       }
    484  
    485         @Override
    486         public LispObject execute(LispObject[] args)
    487         {
     459    private static final class pf__string_greaterp extends Primitive {
     460        pf__string_greaterp() {
     461            super("%string-greaterp", PACKAGE_SYS, true);
     462        }
     463
     464        @Override
     465        public LispObject execute(LispObject[] args) {
    488466            if (args.length != 6)
    489467                return error(new WrongNumberOfArgumentsException(this));
     
    523501    // Case insensitive.
    524502    private static final Primitive _STRING_NOT_LESSP = new pf__string_not_lessp();
    525   private static final class pf__string_not_lessp extends Primitive {
    526       pf__string_not_lessp()
    527       {
    528         super("%string-not-lessp", PACKAGE_SYS, true);
    529       }
    530  
    531         @Override
    532         public LispObject execute(LispObject[] args)
    533         {
     503    private static final class pf__string_not_lessp extends Primitive {
     504        pf__string_not_lessp() {
     505            super("%string-not-lessp", PACKAGE_SYS, true);
     506        }
     507
     508        @Override
     509        public LispObject execute(LispObject[] args) {
    534510            if (args.length != 6)
    535511                return error(new WrongNumberOfArgumentsException(this));
     
    571547    // Case insensitive.
    572548    private static final Primitive _STRING_NOT_GREATERP = new pf__string_not_greaterp();
    573   private static final class pf__string_not_greaterp extends Primitive {
    574       pf__string_not_greaterp()
    575       {
    576         super("%string-not-greaterp", PACKAGE_SYS, true);
    577       }
    578  
    579         @Override
    580         public LispObject execute(LispObject[] args)
    581         {
     549    private static final class pf__string_not_greaterp extends Primitive {
     550        pf__string_not_greaterp() {
     551            super("%string-not-greaterp", PACKAGE_SYS, true);
     552        }
     553
     554        @Override
     555        public LispObject execute(LispObject[] args) {
    582556            if (args.length != 6)
    583557                return error(new WrongNumberOfArgumentsException(this));
     
    616590    // ### %string-upcase
    617591    private static final Primitive _STRING_UPCASE = new pf__string_upcase();
    618   private static final class pf__string_upcase extends Primitive {
    619       pf__string_upcase()
    620       {
    621         super("%string-upcase", PACKAGE_SYS, true);
    622       }
    623  
     592    private static final class pf__string_upcase extends Primitive {
     593        pf__string_upcase() {
     594            super("%string-upcase", PACKAGE_SYS, true);
     595        }
     596
    624597        @Override
    625598        public LispObject execute(LispObject first, LispObject second,
     
    656629    // ### %string-downcase
    657630    private static final Primitive _STRING_DOWNCASE = new pf__string_downcase();
    658   private static final class pf__string_downcase extends Primitive {
    659       pf__string_downcase()
    660       {
    661         super("%string-downcase", PACKAGE_SYS, true);
    662       }
    663  
     631    private static final class pf__string_downcase extends Primitive {
     632        pf__string_downcase() {
     633            super("%string-downcase", PACKAGE_SYS, true);
     634        }
     635
    664636        @Override
    665637        public LispObject execute(LispObject first, LispObject second,
    666                                   LispObject third)
    667         {
     638                                  LispObject third) {
    668639            LispObject s = first.STRING();
    669640            final int length = s.length();
     
    695666    // ### %string-capitalize
    696667    private static final Primitive _STRING_CAPITALIZE = new pf__string_capitalize();
    697   private static final class pf__string_capitalize extends Primitive {
    698       pf__string_capitalize()
    699       {
    700         super("%string-capitalize", PACKAGE_SYS, true);
    701       }
    702  
     668    private static final class pf__string_capitalize extends Primitive {
     669        pf__string_capitalize() {
     670            super("%string-capitalize", PACKAGE_SYS, true);
     671        }
     672
    703673        @Override
    704674        public LispObject execute(LispObject first, LispObject second,
     
    747717    // ### %nstring-upcase
    748718    private static final Primitive _NSTRING_UPCASE = new pf__nstring_upcase();
    749   private static final class pf__nstring_upcase extends Primitive {
    750       pf__nstring_upcase()
    751       {
    752         super("%nstring-upcase", PACKAGE_SYS, true);
    753       }
    754  
     719    private static final class pf__nstring_upcase extends Primitive {
     720        pf__nstring_upcase() {
     721            super("%nstring-upcase", PACKAGE_SYS, true);
     722        }
     723
    755724        @Override
    756725        public LispObject execute(LispObject first, LispObject second,
     
    780749    // ### %nstring-downcase
    781750    private static final Primitive _NSTRING_DOWNCASE = new pf__nstring_downcase();
    782   private static final class pf__nstring_downcase extends Primitive {
    783       pf__nstring_downcase()
    784       {
    785         super("%nstring-downcase", PACKAGE_SYS, true);
    786       }
    787  
     751    private static final class pf__nstring_downcase extends Primitive {
     752        pf__nstring_downcase() {
     753            super("%nstring-downcase", PACKAGE_SYS, true);
     754        }
     755
    788756        @Override
    789757        public LispObject execute(LispObject first, LispObject second,
     
    813781    // ### %nstring-capitalize
    814782    private static final Primitive _NSTRING_CAPITALIZE = new pf__nstring_capitalize();
    815   private static final class pf__nstring_capitalize extends Primitive {
    816       pf__nstring_capitalize()
    817       {
    818         super("%nstring-capitalize", PACKAGE_SYS, true);
    819       }
    820  
     783    private static final class pf__nstring_capitalize extends Primitive {
     784        pf__nstring_capitalize() {
     785            super("%nstring-capitalize", PACKAGE_SYS, true);
     786        }
     787
    821788        @Override
    822789        public LispObject execute(LispObject first, LispObject second,
     
    858825    // ### stringp
    859826    public static final Primitive STRINGP = new pf_stringp();
    860   private static final class pf_stringp extends Primitive {
    861       pf_stringp()
    862       {
    863         super("stringp", "object");
    864       }
    865  
    866         @Override
    867         public LispObject execute(LispObject arg)
    868         {
     827    private static final class pf_stringp extends Primitive {
     828        pf_stringp() {
     829            super("stringp", "object");
     830        }
     831
     832        @Override
     833        public LispObject execute(LispObject arg) {
    869834            return arg.STRINGP();
    870835        }
     
    873838    // ### simple-string-p
    874839    public static final Primitive SIMPLE_STRING_P = new pf_simple_string_p();
    875   private static final class pf_simple_string_p extends Primitive {
    876       pf_simple_string_p()
    877       {
    878         super("simple-string-p", "object");
    879       }
    880  
    881         @Override
    882         public LispObject execute(LispObject arg)
    883         {
     840    private static final class pf_simple_string_p extends Primitive {
     841        pf_simple_string_p() {
     842            super("simple-string-p", "object");
     843        }
     844
     845        @Override
     846        public LispObject execute(LispObject arg) {
    884847            return arg.SIMPLE_STRING_P();
    885848        }
     
    890853    // Returns a simple string.
    891854    private static final Primitive _MAKE_STRING = new pf__make_string();
    892   private static final class pf__make_string extends Primitive {
    893       pf__make_string()
    894       {
    895         super("%make-string", PACKAGE_SYS, false);
    896       }
    897  
     855    private static final class pf__make_string extends Primitive {
     856        pf__make_string() {
     857            super("%make-string", PACKAGE_SYS, false);
     858        }
     859
    898860        @Override
    899861        public LispObject execute(LispObject size, LispObject initialElement,
     
    928890    // ### char
    929891    private static final Primitive CHAR = new pf_char();
    930   private static final class pf_char extends Primitive {
    931       pf_char()
    932       {
    933         super(Symbol.CHAR, "string index");
    934       }
    935  
     892    private static final class pf_char extends Primitive {
     893        pf_char() {
     894            super(Symbol.CHAR, "string index");
     895        }
     896
    936897        @Override
    937898        public LispObject execute(LispObject first, LispObject second)
    938899
    939900        {
    940                 return first.CHAR(Fixnum.getValue(second));
     901            return first.CHAR(Fixnum.getValue(second));
    941902        }
    942903    };
     
    944905    // ### schar
    945906    private static final Primitive SCHAR = new pf_schar();
    946   private static final class pf_schar extends Primitive {
    947       pf_schar()
    948       {
    949         super(Symbol.SCHAR, "string index");
    950       }
    951  
     907    private static final class pf_schar extends Primitive {
     908        pf_schar() {
     909            super(Symbol.SCHAR, "string index");
     910        }
     911
    952912        @Override
    953913        public LispObject execute(LispObject first, LispObject second)
     
    960920    // ### set-char
    961921    private static final Primitive SET_CHAR = new pf_set_char();
    962   private static final class pf_set_char extends Primitive {
    963       pf_set_char()
    964       {
    965         super(Symbol.SET_CHAR, "string index character");
    966       }
    967  
     922    private static final class pf_set_char extends Primitive {
     923        pf_set_char() {
     924            super(Symbol.SET_CHAR, "string index character");
     925        }
     926
    968927        @Override
    969928        public LispObject execute(LispObject first, LispObject second,
     
    972931        {
    973932            checkString(first).setCharAt(Fixnum.getValue(second),
    974                     LispCharacter.getValue(third));
     933                                         LispCharacter.getValue(third));
    975934            return third;
    976935        }
     
    979938    // ### set-schar
    980939    private static final Primitive SET_SCHAR = new pf_set_schar();
    981   private static final class pf_set_schar extends Primitive {
    982       pf_set_schar()
    983       {
    984         super(Symbol.SET_SCHAR, "string index character");
    985       }
    986  
     940    private static final class pf_set_schar extends Primitive {
     941        pf_set_schar() {
     942            super(Symbol.SET_SCHAR, "string index character");
     943        }
     944
    987945        @Override
    988946        public LispObject execute(LispObject first, LispObject second,
     
    1001959    // ### string-position
    1002960    private static final Primitive STRING_POSITION = new pf_string_position();
    1003   private static final class pf_string_position extends Primitive {
    1004       pf_string_position()
    1005       {
    1006         super("string-position", PACKAGE_EXT, true);
    1007       }
    1008  
     961    private static final class pf_string_position extends Primitive {
     962        pf_string_position() {
     963            super("string-position", PACKAGE_EXT, true);
     964        }
     965
    1009966        @Override
    1010967        public LispObject execute(LispObject first, LispObject second,
     
    1025982    // ### string-find
    1026983    private static final Primitive STRING_FIND = new pf_string_find();
    1027   private static final class pf_string_find extends Primitive {
    1028       pf_string_find()
    1029       {
    1030         super("string-find", PACKAGE_EXT, true, "char string");
    1031       }
    1032  
     984    private static final class pf_string_find extends Primitive {
     985        pf_string_find() {
     986            super("string-find", PACKAGE_EXT, true, "char string");
     987        }
     988
    1033989        @Override
    1034990        public LispObject execute(LispObject first, LispObject second)
     
    10511007    // Searches string for a substring that matches pattern.
    10521008    private static final Primitive SIMPLE_STRING_SEARCH = new pf_simple_string_search();
    1053   private static final class pf_simple_string_search extends Primitive {
    1054       pf_simple_string_search()
    1055       {
    1056         super("simple-string-search", PACKAGE_EXT, true);
    1057       }
    1058  
     1009    private static final class pf_simple_string_search extends Primitive {
     1010        pf_simple_string_search() {
     1011            super("simple-string-search", PACKAGE_EXT, true);
     1012        }
     1013
    10591014        @Override
    10601015        public LispObject execute(LispObject first, LispObject second)
     
    10691024    // ### simple-string-fill string character => string
    10701025    private static final Primitive STRING_FILL = new pf_string_fill();
    1071   private static final class pf_string_fill extends Primitive {
    1072       pf_string_fill()
    1073       {
    1074         super("simple-string-fill", PACKAGE_EXT, true);
    1075       }
    1076  
     1026    private static final class pf_string_fill extends Primitive {
     1027        pf_string_fill() {
     1028            super("simple-string-fill", PACKAGE_EXT, true);
     1029        }
     1030
    10771031        @Override
    10781032        public LispObject execute(LispObject first, LispObject second)
    10791033
    10801034        {
    1081             if(first instanceof AbstractString) {
     1035            if (first instanceof AbstractString) {
    10821036                AbstractString s = (AbstractString) first;
    10831037                s.fill(LispCharacter.getValue(second));
     
    10871041        }
    10881042    };
    1089    
     1043
    10901044}
Note: See TracChangeset for help on using the changeset viewer.