Changeset 27606 in project

Timestamp:

10/09/12 06:22:36 (7 years ago)

Author:

Ivan Raikov

Message:

smtp: using utf8 for compatibility with abnf 6.0+

Location:

release/4/smtp

Files:

• tags/4.0 (copied) (copied from release/4/smtp/trunk)
• tags/4.0/smtp.meta (copied) (copied from release/4/smtp/trunk/smtp.meta) (1 diff)
• tags/4.0/smtp.scm (copied) (copied from release/4/smtp/trunk/smtp.scm) (1 diff)
• tags/4.0/smtp.setup (copied) (copied from release/4/smtp/trunk/smtp.setup) (1 diff)
• trunk/smtp.meta (modified) (1 diff)
• trunk/smtp.scm (modified) (1 diff)
• trunk/smtp.setup (modified) (1 diff)

release/4/smtp/tags/4.0/smtp.meta

@@ -18 +18 @@
  ; A list of eggs smtp depends on.
 
- (needs matchable typeclass datatype (abnf 5.0) )
+ (needs matchable datatype typeclass utf8 (abnf 6.0) )
 
  (test-depends test)

release/4/smtp/tags/4.0/smtp.scm

@@ -49 +49 @@
 
         (import scheme chicken data-structures )
-        (require-extension srfi-1 srfi-13 srfi-14 datatype matchable typeclass )
+        (require-extension srfi-1 utf8 datatype matchable typeclass )
         (import-for-syntax matchable)
 
-        (require-library extras abnf abnf-consumers)
+        (require-library extras utf8-srfi-13 utf8-srfi-14 abnf abnf-consumers)
         (import (prefix abnf abnf:) 
                 (prefix abnf-consumers abnf:) 
                 (only abnf <CoreABNF> <Input> <Token> <CharLex> )
-                (only extras sprintf fprintf ))
+                (only extras sprintf fprintf )
+                (only utf8-srfi-13 string-concatenate)
+                (only utf8-srfi-14
+                      char-set char-set-difference char-set-union
+                      char-set:graphic char-set:printing)
+                )
 
 

release/4/smtp/tags/4.0/smtp.setup

@@ -17 +17 @@
 
   ;; Assoc list with properties for your extension:
-  '((version 3.3)
+  '((version 4.0)
     ))
 

release/4/smtp/trunk/smtp.meta

@@ -18 +18 @@
  ; A list of eggs smtp depends on.
 
- (needs matchable typeclass datatype (abnf 5.0) )
+ (needs matchable datatype typeclass utf8 (abnf 6.0) )
 
  (test-depends test)

release/4/smtp/trunk/smtp.scm

@@ -49 +49 @@
 
         (import scheme chicken data-structures )
-        (require-extension srfi-1 srfi-13 srfi-14 datatype matchable typeclass )
+        (require-extension srfi-1 utf8 datatype matchable typeclass )
         (import-for-syntax matchable)
 
-        (require-library extras abnf abnf-consumers)
+        (require-library extras utf8-srfi-13 utf8-srfi-14 abnf abnf-consumers)
         (import (prefix abnf abnf:) 
                 (prefix abnf-consumers abnf:) 
                 (only abnf <CoreABNF> <Input> <Token> <CharLex> )
-                (only extras sprintf fprintf ))
+                (only extras sprintf fprintf )
+                (only utf8-srfi-13 string-concatenate)
+                (only utf8-srfi-14
+                      char-set char-set-difference char-set-union
+                      char-set:graphic char-set:printing)
+                )
 
 

release/4/smtp/trunk/smtp.setup

@@ -17 +17 @@
 
   ;; Assoc list with properties for your extension:
-  '((version 3.3)
+  '((version 4.0)
     ))