Changeset 4575

Timestamp:

10/30/03 08:17:14 (19 years ago)

Author:

asimon

Message:

added javaInstance method

Location:

trunk/j/src/org/armedbear/lisp

Files:

• Fixnum.java (modified) (2 diffs)
• LispCharacter.java (modified) (2 diffs)
• LispFloat.java (modified) (2 diffs)
• LispObject.java (modified) (2 diffs)
• LispString.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Fixnum.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Fixnum.java,v 1.75 2003-09-23 17:08:50 piso Exp $
+ * $Id: Fixnum.java,v 1.76 2003-10-30 08:17:14 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -36 +36 @@
     {
         this.value = value;
+    }
+
+    public Object javaInstance()
+    {
+        return new Integer(value);
     }
 

trunk/j/src/org/armedbear/lisp/LispCharacter.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispCharacter.java,v 1.29 2003-09-29 16:20:55 piso Exp $
+ * $Id: LispCharacter.java,v 1.30 2003-10-30 08:17:14 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -127 +127 @@
     {
         return c;
+    }
+
+    public Object javaInstance()
+    {
+      return new Character(c);
     }
 

trunk/j/src/org/armedbear/lisp/LispFloat.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispFloat.java,v 1.49 2003-09-20 17:02:04 piso Exp $
+ * $Id: LispFloat.java,v 1.50 2003-10-30 08:17:14 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -160 +160 @@
     {
         return value;
+    }
+
+    public Object javaInstance()
+    {
+        return new Double(value);
     }
 

trunk/j/src/org/armedbear/lisp/LispObject.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispObject.java,v 1.61 2003-10-17 13:10:48 piso Exp $
+ * $Id: LispObject.java,v 1.62 2003-10-30 08:17:14 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -70 +70 @@
     }
 
+    public Object javaInstance() throws ConditionThrowable
+    {
+        throw new ConditionThrowable(new TypeError(this, "primitive type"));
+    }
+
     public LispObject car() throws ConditionThrowable
     {

trunk/j/src/org/armedbear/lisp/LispString.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: LispString.java,v 1.62 2003-10-12 13:45:13 piso Exp $
+ * $Id: LispString.java,v 1.63 2003-10-30 08:17:14 asimon Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -256 +256 @@
 
     public final String getValue()
+    {
+        return new String(array);
+    }
+
+    public Object javaInstance()
     {
         return new String(array);