Re: Using Kawa extensions in R7RS libraries

[Jamison Hope <jrh@theptrgroup.com>]

[-- Attachment #1: Type: text/plain, Size: 624 bytes --]

On Feb 17, 2015, at 1:23 AM, Per Bothner <per@bothner.com> wrote:

> On 02/15/2015 12:49 PM, Helmut Eller wrote:
>> Here are two files reflect.scm and all.scm.  I added to (kawa all) the
>> stuff that I happened to need; many things that are described in the
>> manual are missing.  I'm also not sure that (kawa reflect) is very I
>> usually need the features to access Java libraries and this includes
>> try-catch and define-simple-class.
> 
> Thanks.  I checked this in.

(kawa reflect) was missing the field setters set-field! and
set-static-field!, patch attached.


--
Jamison Hope
The PTR Group
www.theptrgroup.com



[-- Attachment #2: field-setters.patch --]
[-- Type: application/octet-stream, Size: 1365 bytes --]

Index: kawa/lib/ChangeLog
===================================================================
--- kawa/lib/ChangeLog	(revision 8396)
+++ kawa/lib/ChangeLog	(working copy)
@@ -1,3 +1,8 @@
+2015-04-13  Jamison Hope  <jrh@theptrgroup.com>
+
+	* kawa/reflect.scm (set-field!, set-static-field!): New exports.
+	* kawa/base.scm (set-field!, set-static-field!): Likewise.
+
 2015-04-05  Jamison Hope  <jrh@theptrgroup.com>
 
 	* kawa/quaternions.scm (vector-quaternion?,
Index: kawa/lib/kawa/base.scm
===================================================================
--- kawa/lib/kawa/base.scm	(revision 8396)
+++ kawa/lib/kawa/base.scm	(working copy)
@@ -32,6 +32,8 @@
 	  invoke-special
 	  field
 	  static-field
+          set-field!
+          set-static-field!
 	  make
 	  instance?
 	  as
Index: kawa/lib/kawa/reflect.scm
===================================================================
--- kawa/lib/kawa/reflect.scm	(revision 8396)
+++ kawa/lib/kawa/reflect.scm	(working copy)
@@ -4,6 +4,8 @@
 	  invoke-special
 	  field
 	  static-field
+          set-field!
+          set-static-field!
 	  make
 	  instance?
 	  as
@@ -23,6 +25,10 @@
 	 field
 	 static-field)
 
+   (only (gnu kawa reflect SlotSet)
+         set-field!
+         set-static-field!)
+
    (only (rename (gnu kawa reflect Throw)
 		 (primitiveThrow primitive-throw))
 	 primitive-throw)