1 /* 2 * JavaException.java 3 * 4 * Copyright (C) 2005 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.io.PrintWriter; 39 import java.io.StringWriter; 40 41 public class JavaException extends LispError 42 { 43 private final Throwable throwable; 44 JavaException(Throwable throwable)45 public JavaException(Throwable throwable) 46 { 47 super(StandardClass.JAVA_EXCEPTION); 48 Debug.assertTrue(slots.length == 3); 49 Debug.assertTrue(throwable != null); 50 this.throwable = throwable; 51 setInstanceSlotValue(Symbol.CAUSE, new JavaObject(throwable)); 52 setFormatControl("Java exception: ~A."); 53 setFormatArguments(new Cons(new JavaObject(throwable))); 54 } 55 56 @Override typeOf()57 public LispObject typeOf() 58 { 59 return Symbol.JAVA_EXCEPTION; 60 } 61 62 @Override classOf()63 public LispObject classOf() 64 { 65 return StandardClass.JAVA_EXCEPTION; 66 } 67 68 @Override typep(LispObject type)69 public LispObject typep(LispObject type) 70 { 71 if (type == Symbol.JAVA_EXCEPTION) 72 return T; 73 if (type == StandardClass.JAVA_EXCEPTION) 74 return T; 75 return super.typep(type); 76 } 77 78 @Override getMessage()79 public String getMessage() 80 { 81 StringWriter sw = new StringWriter(); 82 PrintWriter pw = new PrintWriter(sw); 83 throwable.printStackTrace(pw); 84 String s = sw.toString(); 85 final String separator = System.getProperty("line.separator"); 86 if (s.endsWith(separator)) 87 s = s.substring(0, s.length() - separator.length()); 88 return s; 89 } 90 91 // ### java-exception-cause java-exception => cause 92 protected static final Primitive JAVA_EXCEPTION_CAUSE = 93 new Primitive(Symbol.JAVA_EXCEPTION_CAUSE, "java-exception", 94 "Returns the cause of JAVA-EXCEPTION. (The cause is the Java Throwable\n" + 95 " object that caused JAVA-EXCEPTION to be signalled.)") 96 { 97 @Override 98 public LispObject execute(LispObject arg) 99 { 100 return Symbol.STD_SLOT_VALUE.execute(arg, Symbol.CAUSE); 101 } 102 }; 103 } 104