source: branches/streams/abcl/src/org/armedbear/lisp/Debug.java

Last change on this file was 14627, checked in by Mark Evenson, 11 years ago

(partially) restore CL:LOAD from jar files.

There is apparently a fair amount of "breakage" of cases that used to
load no longer working which seems due to the changes in the semantics
for finding the FASL init loader. The following tests are now broken
but no longer cause the JVM to crash: JAR-PATHNAME.LOAD.HTTP.1,
JAR-PATHNAME.LOAD.HTTP.2, JAR-PATHNAME.LOAD.HTTP.4,
JAR-PATHNAME.LOAD.HTTP.6, JAR-PATHNAME.LOAD.HTTP.7,
and JAR-PATHNAME.LOAD.HTTP.9. Need to follow this up in subsequent work.

Fixed the underlying HttpHead?.get() interface used to determine
whether to used a cache version. The custom HTTP HEAD code that was
working under Java 6 no longer worked on Java 7.

Added to HttpHead?.get() asynchronous java.lang.Throwable on a socket
timeout of 5000 ms.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 3.6 KB
Line 
1/*
2 * Debug.java
3 *
4 * Copyright (C) 2002-2003 Peter Graves
5 * $Id: Debug.java 14627 2014-02-16 21:25:20Z mevenson $
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
34package org.armedbear.lisp;
35
36import static org.armedbear.lisp.Lisp.*;
37import java.io.PrintWriter;
38import java.io.StringWriter;
39
40public final class Debug
41{
42   
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    public static final void assertViolation(String msg) {
62  final String m = "Assert violation: " + msg;
63  Error e = new Error(m);
64
65  System.err.println(m);
66  e.printStackTrace(System.err);
67
68  StringBuffer buffer = new StringBuffer();
69  final String CR = "\n";
70  buffer.append(msg).append(CR);
71  StackTraceElement[] stack = e.getStackTrace();
72  for (int i = 0; i < stack.length; i++) {
73      buffer.append(stack[i].toString()).append(CR);
74  }
75  throw new Error(buffer.toString());
76    }
77
78    // Does not throw an exception.
79    public static void bug()
80    {
81        trace(new Exception("BUG!"));
82    }
83
84    public static final void trace(String s)
85    {
86        System.err.println(s);
87    }
88
89    @SuppressWarnings("CallToThreadDumpStack")
90    public static final void trace(Throwable t)
91    {
92        t.printStackTrace();
93    }
94
95    public static final void trace(String message, Throwable t)
96    {
97       trace(message);
98       trace(t);
99    }
100    public static final Symbol _DEBUG_WARN_
101        = exportSpecial("*DEBUG-WARN*", PACKAGE_SYS, NIL);
102
103    public static void setDebugWarnings(boolean flag) {
104        if (flag) {
105            _DEBUG_WARN_.setSymbolValue(T);
106        } else {
107            _DEBUG_WARN_.setSymbolValue(NIL);
108        }
109    }
110   
111    public static final void warn(String s) {
112        if (_DEBUG_WARN_.getSymbolValue() != null) {
113            trace(s);
114        }
115    }
116}
Note: See TracBrowser for help on using the repository browser.