Changeset 12472
- Timestamp:
- 02/14/10 13:32:12 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/cxr.java
r12471 r12472 36 36 import static org.armedbear.lisp.Lisp.*; 37 37 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 } 38 public 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 } 357 316 }; 358 317 }
Note: See TracChangeset
for help on using the changeset viewer.