1 /* 2 * logorc1.java 3 * 4 * Copyright (C) 2003-2004 Peter Graves 5 * $Id$ 6 * 7 * This program is free software; you can redistribute it and/or 8 * modify it under the terms of the GNU General Public License 9 * as published by the Free Software Foundation; either version 2 10 * of the License, or (at your option) any later version. 11 * 12 * This program is distributed in the hope that it will be useful, 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * GNU General Public License for more details. 16 * 17 * You should have received a copy of the GNU General Public License 18 * along with this program; if not, write to the Free Software 19 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 20 * 21 * As a special exception, the copyright holders of this library give you 22 * permission to link this library with independent modules to produce an 23 * executable, regardless of the license terms of these independent 24 * modules, and to copy and distribute the resulting executable under 25 * terms of your choice, provided that you also meet, for each linked 26 * independent module, the terms and conditions of the license of that 27 * module. An independent module is a module which is not derived from 28 * or based on this library. If you modify this library, you may extend 29 * this exception to your version of the library, but you are not 30 * obligated to do so. If you do not wish to do so, delete this 31 * exception statement from your version. 32 */ 33 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 37 38 import java.math.BigInteger; 39 40 // ### logorc1 41 // logorc1 integer-1 integer-2 => result-integer 42 // or complement of integer-1 with integer-2 43 public final class logorc1 extends Primitive 44 { logorc1()45 private logorc1() 46 { 47 super("logorc1", "integer-1 integer-2"); 48 } 49 50 @Override execute(LispObject first, LispObject second)51 public LispObject execute(LispObject first, LispObject second) 52 53 { 54 if (first instanceof Fixnum) { 55 if (second instanceof Fixnum) 56 return Fixnum.getInstance(~((Fixnum)first).value | 57 ((Fixnum)second).value); 58 if (second instanceof Bignum) { 59 BigInteger n1 = ((Fixnum)first).getBigInteger(); 60 BigInteger n2 = ((Bignum)second).value; 61 return number(n1.not().or(n2)); 62 } 63 return type_error(second, Symbol.INTEGER); 64 } 65 if (first instanceof Bignum) { 66 BigInteger n1 = ((Bignum)first).value; 67 if (second instanceof Fixnum) { 68 BigInteger n2 = ((Fixnum)second).getBigInteger(); 69 return number(n1.not().or(n2)); 70 } 71 if (second instanceof Bignum) { 72 BigInteger n2 = ((Bignum)second).value; 73 return number(n1.not().or(n2)); 74 } 75 return type_error(second, Symbol.INTEGER); 76 } 77 return type_error(first, Symbol.INTEGER); 78 } 79 80 private static final Primitive LOGORC1 = new logorc1(); 81 } 82