Ticket #1767: netstring-c5.patch

netstring.egg

@@ +1 @@
+;;; netstring.egg -*- Scheme -*-
+
+((synopsis "Parsing and writing <a href=\"http://cr.yp.to/proto/netstrings.txt\">netstrings</a>")
+ (category parsing)
+ (test-dependencies test)
+ (license "BSD")
+ (author "Moritz Heidkamp")
+ (components
+  (extension netstring)))

netstring.meta

@@ -1 @@
-((synopsis "Parsing and writing <a href=\"http://cr.yp.to/proto/netstrings.txt\">netstrings</a>")
- (author "Moritz Heidkamp")
- (test-depends test)
- (category parsing)
- (license "BSD"))

netstring.scm

@@ -2 +2 @@
 
 (netstring-write netstring-read string->netstring netstring->string)
 
-(import chicken scheme)
-(use (only extras read-string read-token) 
-     (only ports 
-           with-output-to-port
-           with-output-to-string 
-           with-input-from-string))
+(import
+  (chicken base)
+  (only (chicken format) sprintf)
+  (only (chicken io) read-string read-token)
+  (only (chicken port)
+        with-output-to-port
+        with-output-to-string 
+        with-input-from-string)
+  scheme)
 
 (define (netstring-write str #!optional (port (current-output-port)) (terminator #\,))
   (with-output-to-port port
@@ -29 +32 @@
 
         (cond ((not (= (string-length string) len))
                (error 'netstring-read 
-                      (format "wrong length, expected ~A but got ~A"
+                      (sprintf "wrong length, expected ~A but got ~A"
                               len 
                               (string-length string))))
               (check-terminator? 

netstring.setup

@@ -1 @@
-(standard-extension "netstring" "0.0.4")

tests/run.scm

@@ -1 @@
-(load-relative "../netstring")
-(import netstring)
-(use test)
+(import (chicken port) netstring test)
 
 (test-begin)