Changeset 12472


Ignore:
Timestamp:
02/14/10 13:32:12 (11 years ago)
Author:
vvoutilainen
Message:

Reindentation.

File:
1 edited

Legend:

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

    r12471 r12472  
    3636import static org.armedbear.lisp.Lisp.*;
    3737
    38 public final class cxr
    39 {
    40   // ### set-car
    41   private static final Primitive SET_CAR = new pf_set_car();
    42   private static final class pf_set_car extends Primitive {
    43       pf_set_car()
    44       {
    45         super("set-car", PACKAGE_SYS, true);
    46       }
    47  
    48       @Override
    49       public LispObject execute(LispObject first, LispObject second)
    50 
    51       {
    52         first.setCar(second);
    53         return second;
    54       }
    55     };
    56 
    57   // ### set-cdr
    58   private static final Primitive SET_CDR = new pf_set_cdr();
    59   private static final class pf_set_cdr extends Primitive {
    60       pf_set_cdr()
    61       {
    62         super("set-cdr", PACKAGE_SYS, true);
    63       }
    64  
    65       @Override
    66       public LispObject execute(LispObject first, LispObject second)
    67 
    68       {
    69         first.setCdr(second);
    70         return second;
    71       }
    72     };
    73 
    74   // ### car
    75   private static final Primitive CAR = new pf_car();
    76   private static final class pf_car extends Primitive {
    77       pf_car()
    78       {
    79         super(Symbol.CAR, "list");
    80       }
    81  
    82       @Override
    83       public LispObject execute(LispObject arg)
    84       {
    85         return arg.car();
    86       }
    87     };
    88 
    89   // ### cdr
    90   private static final Primitive CDR = new pf_cdr();
    91   private static final class pf_cdr extends Primitive {
    92       pf_cdr()
    93       {
    94         super(Symbol.CDR, "list");
    95       }
    96  
    97       @Override
    98       public LispObject execute(LispObject arg)
    99       {
    100         return arg.cdr();
    101       }
    102     };
    103 
    104   // ### caar
    105   private static final Primitive CAAR = new pf_caar();
    106   private static final class pf_caar extends Primitive {
    107       pf_caar()
    108       {
    109         super(Symbol.CAAR, "list");
    110       }
    111  
    112       @Override
    113       public LispObject execute(LispObject arg)
    114       {
    115         return arg.car().car();
    116       }
    117     };
    118 
    119   // ### cadr
    120   private static final Primitive CADR = new pf_cadr();
    121   private static final class pf_cadr extends Primitive {
    122       pf_cadr()
    123       {
    124         super(Symbol.CADR, "list");
    125       }
    126  
    127       @Override
    128       public LispObject execute(LispObject arg)
    129       {
    130         return arg.cadr();
    131       }
    132     };
    133 
    134   // ### cdar
    135   private static final Primitive CDAR = new pf_cdar();
    136   private static final class pf_cdar extends Primitive {
    137       pf_cdar()
    138       {
    139         super(Symbol.CDAR, "list");
    140       }
    141  
    142       @Override
    143       public LispObject execute(LispObject arg)
    144       {
    145         return arg.car().cdr();
    146       }
    147     };
    148 
    149   // ### cddr
    150   private static final Primitive CDDR = new pf_cddr();
    151   private static final class pf_cddr extends Primitive {
    152       pf_cddr()
    153       {
    154         super(Symbol.CDDR, "list");
    155       }
    156  
    157       @Override
    158       public LispObject execute(LispObject arg)
    159       {
    160         return arg.cdr().cdr();
    161       }
    162     };
    163 
    164   // ### caddr
    165   private static final Primitive CADDR = new pf_caddr();
    166   private static final class pf_caddr extends Primitive {
    167       pf_caddr()
    168       {
    169         super(Symbol.CADDR, "list");
    170       }
    171  
    172       @Override
    173       public LispObject execute(LispObject arg)
    174       {
    175         return arg.caddr();
    176       }
    177     };
    178 
    179   // ### caadr
    180   private static final Primitive CAADR = new pf_caadr();
    181   private static final class pf_caadr extends Primitive {
    182       pf_caadr()
    183       {
    184         super(Symbol.CAADR, "list");
    185       }
    186  
    187       @Override
    188       public LispObject execute(LispObject arg)
    189       {
    190         return arg.cdr().car().car();
    191       }
    192     };
    193 
    194   // ### caaar
    195   private static final Primitive CAAAR = new pf_caaar();
    196   private static final class pf_caaar extends Primitive {
    197       pf_caaar()
    198       {
    199         super(Symbol.CAAAR, "list");
    200       }
    201  
    202       @Override
    203       public LispObject execute(LispObject arg)
    204       {
    205         return arg.car().car().car();
    206       }
    207     };
    208 
    209   // ### cdaar
    210   private static final Primitive CDAAR = new pf_cdaar();
    211   private static final class pf_cdaar extends Primitive {
    212       pf_cdaar()
    213       {
    214         super(Symbol.CDAAR, "list");
    215       }
    216  
    217       @Override
    218       public LispObject execute(LispObject arg)
    219       {
    220         return arg.car().car().cdr();
    221       }
    222     };
    223 
    224   // ### cddar
    225   private static final Primitive CDDAR = new pf_cddar();
    226   private static final class pf_cddar extends Primitive {
    227       pf_cddar()
    228       {
    229         super(Symbol.CDDAR, "list");
    230       }
    231  
    232       @Override
    233       public LispObject execute(LispObject arg)
    234       {
    235         return arg.car().cdr().cdr();
    236       }
    237     };
    238 
    239   // ### cdddr
    240   private static final Primitive CDDDR = new pf_cdddr();
    241   private static final class pf_cdddr extends Primitive {
    242       pf_cdddr()
    243       {
    244         super(Symbol.CDDDR, "list");
    245       }
    246  
    247       @Override
    248       public LispObject execute(LispObject arg)
    249       {
    250         return arg.cdr().cdr().cdr();
    251       }
    252     };
    253 
    254   // ### cadar
    255   private static final Primitive CADAR = new pf_cadar();
    256   private static final class pf_cadar extends Primitive {
    257       pf_cadar()
    258       {
    259         super(Symbol.CADAR, "list");
    260       }
    261  
    262       @Override
    263       public LispObject execute(LispObject arg)
    264       {
    265         return arg.car().cdr().car();
    266       }
    267     };
    268 
    269   // ### cdadr
    270   private static final Primitive CDADR = new pf_cdadr();
    271   private static final class pf_cdadr extends Primitive {
    272       pf_cdadr()
    273       {
    274         super(Symbol.CDADR, "list");
    275       }
    276  
    277       @Override
    278       public LispObject execute(LispObject arg)
    279       {
    280         return arg.cdr().car().cdr();
    281       }
    282     };
    283 
    284   // ### first
    285   private static final Primitive FIRST = new pf_first();
    286   private static final class pf_first extends Primitive {
    287       pf_first()
    288       {
    289         super(Symbol.FIRST, "list");
    290       }
    291  
    292       @Override
    293       public LispObject execute(LispObject arg)
    294       {
    295         return arg.car();
    296       }
    297     };
    298 
    299   // ### second
    300   private static final Primitive SECOND = new pf_second();
    301   private static final class pf_second extends Primitive {
    302       pf_second()
    303       {
    304         super(Symbol.SECOND, "list");
    305       }
    306  
    307       @Override
    308       public LispObject execute(LispObject arg)
    309       {
    310         return arg.cadr();
    311       }
    312     };
    313 
    314   // ### third
    315   private static final Primitive THIRD = new pf_third();
    316   private static final class pf_third extends Primitive {
    317       pf_third()
    318       {
    319         super(Symbol.THIRD, "list");
    320       }
    321  
    322       @Override
    323       public LispObject execute(LispObject arg)
    324       {
    325         return arg.caddr();
    326       }
    327     };
    328 
    329   // ### fourth
    330   private static final Primitive FOURTH = new pf_fourth();
    331   private static final class pf_fourth extends Primitive {
    332       pf_fourth()
    333       {
    334         super(Symbol.FOURTH, "list");
    335       }
    336  
    337       @Override
    338       public LispObject execute(LispObject arg)
    339       {
    340         return arg.cdr().cdr().cadr();
    341       }
    342     };
    343 
    344   // ### rest
    345   private static final Primitive REST = new pf_rest();
    346   private static final class pf_rest extends Primitive {
    347       pf_rest()
    348       {
    349         super(Symbol.REST, "list");
    350       }
    351  
    352       @Override
    353       public LispObject execute(LispObject arg)
    354       {
    355         return arg.cdr();
    356       }
     38public final class cxr {
     39    // ### set-car
     40    private static final Primitive SET_CAR = new pf_set_car();
     41    private static final class pf_set_car extends Primitive {
     42        pf_set_car() {
     43            super("set-car", PACKAGE_SYS, true);
     44        }
     45
     46        @Override
     47        public LispObject execute(LispObject first, LispObject second)
     48
     49        {
     50            first.setCar(second);
     51            return second;
     52        }
     53    };
     54
     55    // ### set-cdr
     56    private static final Primitive SET_CDR = new pf_set_cdr();
     57    private static final class pf_set_cdr extends Primitive {
     58        pf_set_cdr() {
     59            super("set-cdr", PACKAGE_SYS, true);
     60        }
     61
     62        @Override
     63        public LispObject execute(LispObject first, LispObject second)
     64
     65        {
     66            first.setCdr(second);
     67            return second;
     68        }
     69    };
     70
     71    // ### car
     72    private static final Primitive CAR = new pf_car();
     73    private static final class pf_car extends Primitive {
     74        pf_car() {
     75            super(Symbol.CAR, "list");
     76        }
     77
     78        @Override
     79        public LispObject execute(LispObject arg) {
     80            return arg.car();
     81        }
     82    };
     83
     84    // ### cdr
     85    private static final Primitive CDR = new pf_cdr();
     86    private static final class pf_cdr extends Primitive {
     87        pf_cdr() {
     88            super(Symbol.CDR, "list");
     89        }
     90
     91        @Override
     92        public LispObject execute(LispObject arg) {
     93            return arg.cdr();
     94        }
     95    };
     96
     97    // ### caar
     98    private static final Primitive CAAR = new pf_caar();
     99    private static final class pf_caar extends Primitive {
     100        pf_caar() {
     101            super(Symbol.CAAR, "list");
     102        }
     103
     104        @Override
     105        public LispObject execute(LispObject arg) {
     106            return arg.car().car();
     107        }
     108    };
     109
     110    // ### cadr
     111    private static final Primitive CADR = new pf_cadr();
     112    private static final class pf_cadr extends Primitive {
     113        pf_cadr() {
     114            super(Symbol.CADR, "list");
     115        }
     116
     117        @Override
     118        public LispObject execute(LispObject arg) {
     119            return arg.cadr();
     120        }
     121    };
     122
     123    // ### cdar
     124    private static final Primitive CDAR = new pf_cdar();
     125    private static final class pf_cdar extends Primitive {
     126        pf_cdar() {
     127            super(Symbol.CDAR, "list");
     128        }
     129
     130        @Override
     131        public LispObject execute(LispObject arg) {
     132            return arg.car().cdr();
     133        }
     134    };
     135
     136    // ### cddr
     137    private static final Primitive CDDR = new pf_cddr();
     138    private static final class pf_cddr extends Primitive {
     139        pf_cddr() {
     140            super(Symbol.CDDR, "list");
     141        }
     142
     143        @Override
     144        public LispObject execute(LispObject arg) {
     145            return arg.cdr().cdr();
     146        }
     147    };
     148
     149    // ### caddr
     150    private static final Primitive CADDR = new pf_caddr();
     151    private static final class pf_caddr extends Primitive {
     152        pf_caddr() {
     153            super(Symbol.CADDR, "list");
     154        }
     155
     156        @Override
     157        public LispObject execute(LispObject arg) {
     158            return arg.caddr();
     159        }
     160    };
     161
     162    // ### caadr
     163    private static final Primitive CAADR = new pf_caadr();
     164    private static final class pf_caadr extends Primitive {
     165        pf_caadr() {
     166            super(Symbol.CAADR, "list");
     167        }
     168
     169        @Override
     170        public LispObject execute(LispObject arg) {
     171            return arg.cdr().car().car();
     172        }
     173    };
     174
     175    // ### caaar
     176    private static final Primitive CAAAR = new pf_caaar();
     177    private static final class pf_caaar extends Primitive {
     178        pf_caaar() {
     179            super(Symbol.CAAAR, "list");
     180        }
     181
     182        @Override
     183        public LispObject execute(LispObject arg) {
     184            return arg.car().car().car();
     185        }
     186    };
     187
     188    // ### cdaar
     189    private static final Primitive CDAAR = new pf_cdaar();
     190    private static final class pf_cdaar extends Primitive {
     191        pf_cdaar() {
     192            super(Symbol.CDAAR, "list");
     193        }
     194
     195        @Override
     196        public LispObject execute(LispObject arg) {
     197            return arg.car().car().cdr();
     198        }
     199    };
     200
     201    // ### cddar
     202    private static final Primitive CDDAR = new pf_cddar();
     203    private static final class pf_cddar extends Primitive {
     204        pf_cddar() {
     205            super(Symbol.CDDAR, "list");
     206        }
     207
     208        @Override
     209        public LispObject execute(LispObject arg) {
     210            return arg.car().cdr().cdr();
     211        }
     212    };
     213
     214    // ### cdddr
     215    private static final Primitive CDDDR = new pf_cdddr();
     216    private static final class pf_cdddr extends Primitive {
     217        pf_cdddr() {
     218            super(Symbol.CDDDR, "list");
     219        }
     220
     221        @Override
     222        public LispObject execute(LispObject arg) {
     223            return arg.cdr().cdr().cdr();
     224        }
     225    };
     226
     227    // ### cadar
     228    private static final Primitive CADAR = new pf_cadar();
     229    private static final class pf_cadar extends Primitive {
     230        pf_cadar() {
     231            super(Symbol.CADAR, "list");
     232        }
     233
     234        @Override
     235        public LispObject execute(LispObject arg) {
     236            return arg.car().cdr().car();
     237        }
     238    };
     239
     240    // ### cdadr
     241    private static final Primitive CDADR = new pf_cdadr();
     242    private static final class pf_cdadr extends Primitive {
     243        pf_cdadr() {
     244            super(Symbol.CDADR, "list");
     245        }
     246
     247        @Override
     248        public LispObject execute(LispObject arg) {
     249            return arg.cdr().car().cdr();
     250        }
     251    };
     252
     253    // ### first
     254    private static final Primitive FIRST = new pf_first();
     255    private static final class pf_first extends Primitive {
     256        pf_first() {
     257            super(Symbol.FIRST, "list");
     258        }
     259
     260        @Override
     261        public LispObject execute(LispObject arg) {
     262            return arg.car();
     263        }
     264    };
     265
     266    // ### second
     267    private static final Primitive SECOND = new pf_second();
     268    private static final class pf_second extends Primitive {
     269        pf_second() {
     270            super(Symbol.SECOND, "list");
     271        }
     272
     273        @Override
     274        public LispObject execute(LispObject arg) {
     275            return arg.cadr();
     276        }
     277    };
     278
     279    // ### third
     280    private static final Primitive THIRD = new pf_third();
     281    private static final class pf_third extends Primitive {
     282        pf_third() {
     283            super(Symbol.THIRD, "list");
     284        }
     285
     286        @Override
     287        public LispObject execute(LispObject arg) {
     288            return arg.caddr();
     289        }
     290    };
     291
     292    // ### fourth
     293    private static final Primitive FOURTH = new pf_fourth();
     294    private static final class pf_fourth extends Primitive {
     295        pf_fourth() {
     296            super(Symbol.FOURTH, "list");
     297        }
     298
     299        @Override
     300        public LispObject execute(LispObject arg) {
     301            return arg.cdr().cdr().cadr();
     302        }
     303    };
     304
     305    // ### rest
     306    private static final Primitive REST = new pf_rest();
     307    private static final class pf_rest extends Primitive {
     308        pf_rest() {
     309            super(Symbol.REST, "list");
     310        }
     311
     312        @Override
     313        public LispObject execute(LispObject arg) {
     314            return arg.cdr();
     315        }
    357316    };
    358317}
Note: See TracChangeset for help on using the changeset viewer.