Adding ReleaseNodes.md

Author: ktakashi

README.md

@@ -3,26 +3,9 @@ R6RS Portable Foreign Function Interface
 
 PFFI is a portable foreign function interface for R6RS Scheme implementations.
 
-## Changes
+## Release notes
 
-### version 25.05.16
-
-**Breaking changes**
-
-- Using ftype for `define-foreign-struct` and `define-foreign-union` on Chez
-  This means, `alignment` keyword doesn't work on Chez.
-- Introducing `struct` keyword on struct member to distinguish primitive
-  and struct.
-- Foreign types are now wrapped or ftype (on Chez), instead of symbols.
-
-**New features**
-
-- `define-type-alias` is introduced, similar usage as `typedef` in C.
-- `boolean` support for Scheme boolean.
-- Supporting array foreign variable.
-- Supporting `(* type)` pointer form for foreign variable.
-- Empty struct, i.e. `(define-foreign-struct foo)`, is supported
-- Supporting `wchar_t` as Scheme character.
+See [ReleasNotes](./ReleaseNotes.md)
 
 ## Example
 

ReleaseNotes.md

@@ -0,0 +1,21 @@
+### version x.x.x (future release)
+
+
+### version 25.05.16
+
+**Breaking changes**
+
+- Using ftype for `define-foreign-struct` and `define-foreign-union` on Chez
+  This means, `alignment` keyword doesn't work on Chez.
+- Introducing `struct` keyword on struct member to distinguish primitive
+  and struct.
+- Foreign types are now wrapped or ftype (on Chez), instead of symbols.
+
+**New features**
+
+- `define-type-alias` is introduced, similar usage as `typedef` in C.
+- `boolean` support for Scheme boolean.
+- Supporting array foreign variable.
+- Supporting `(* type)` pointer form for foreign variable.
+- Empty struct, i.e. `(define-foreign-struct foo)`, is supported
+- Supporting `wchar_t` as Scheme character.

tests/functions.c

@@ -148,5 +148,15 @@ wchar_t wcallback(wchar_t wc, wchar_t (* proc)(wchar_t))
   return proc(wc);
 }
 
+char * str_cb(char *st, char * (* cb)(char *))
+{
+  return cb(st);
+}
+
+wchar_t * wstr_cb(wchar_t *st, wchar_t * (* cb)(wchar_t *))
+{
+  return cb(st);
+}
+  
 
 /* TODO more */

tests/test.scm

@@ -411,4 +411,16 @@
 			      (lambda (wc) (char-upcase wc)))))
     (test-equal "wcallback" #\A (wcallback #\a callback))))
 
+;; (define-syntax test-string-argument
+;;   (syntax-rules ()
+;;     ((_ type name)
+;;      (let ()
+;;        (define proc
+;; 	 (foreign-procedure test-lib type name (type (callback type (type)))))
+;;        (define cb (c-callback type (type) string-upcase))
+;;        (test-equal "AA" (proc "aa" cb))))))
+;; ;; char*
+;; (test-string-argument char* str_cb)
+;; (test-string-argument wchar* wstr_cb)
+
 (test-end)