1 /* 2 * Debug.java 3 * 4 * Copyright (C) 2002-2003 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 import java.io.PrintWriter; 38 import java.io.StringWriter; 39 40 public final class Debug 41 { 42 assertTrue(boolean b)43 public static final void assertTrue(boolean b) 44 { 45 if (!b) { 46 String msg = "ABCL Debug.assertTrue() assertion failed!"; 47 System.err.println(msg); 48 Error e = new Error(msg); 49 e.printStackTrace(System.err); 50 51 StringBuffer buffer = new StringBuffer(); 52 final String CR = "\n"; 53 buffer.append(msg).append(CR); 54 StackTraceElement[] stack = e.getStackTrace(); 55 for (int i = 0; i < stack.length; i++) { 56 buffer.append(stack[i].toString()).append(CR); 57 } 58 throw new Error(buffer.toString()); 59 } 60 } 61 62 // Does not throw an exception. bug()63 public static void bug() 64 { 65 trace(new Exception("BUG!")); 66 } 67 trace(String s)68 public static final void trace(String s) 69 { 70 System.err.println(s); 71 } 72 73 @SuppressWarnings("CallToThreadDumpStack") trace(Throwable t)74 public static final void trace(Throwable t) 75 { 76 t.printStackTrace(); 77 } 78 trace(String message, Throwable t)79 public static final void trace(String message, Throwable t) 80 { 81 trace(message); 82 trace(t); 83 } 84 public static final Symbol _DEBUG_WARN_ 85 = exportSpecial("*DEBUG-WARN*", PACKAGE_SYS, NIL); 86 setDebugWarnings(boolean flag)87 public static void setDebugWarnings(boolean flag) { 88 if (flag) { 89 _DEBUG_WARN_.setSymbolValue(T); 90 } else { 91 _DEBUG_WARN_.setSymbolValue(NIL); 92 } 93 } 94 warn(String s)95 public static final void warn(String s) { 96 if (_DEBUG_WARN_.getSymbolValue() != null) { 97 trace(s); 98 } 99 } 100 } 101