Author: yamakenz
Date: Wed Jul 11 06:44:23 2007
New Revision: 4711
Modified:
trunk/scm/ichar.scm
Log:
* scm/ichar.scm
- Cosmetic change
Modified: trunk/scm/ichar.scm
==============================================================================
--- trunk/scm/ichar.scm (original)
+++ trunk/scm/ichar.scm Wed Jul 11 06:44:23 2007
@@ -31,6 +31,10 @@
(use srfi-60)
+;;
+;; Converters
+;;
+
;; TODO: write test
(define string->ichar
(lambda (str)
@@ -51,6 +55,18 @@
(and (ichar-alphabetic? c)
c))))
+(define numeric-ichar->integer
+ (lambda (c)
+ (if (ichar-numeric? c)
+ (- c 48)
+ c)))
+
+(define ucs->utf8-string
+ (lambda (ucs)
+ (with-char-codec "UTF-8"
+ (lambda ()
+ (list->string (list (integer->char ucs)))))))
+
;;
;; R5RS-like character procedures
;;
@@ -110,12 +126,6 @@
(and (ichar-alphabetic? c)
(not (ichar-vowel? c)))))
-(define numeric-ichar->integer
- (lambda (c)
- (if (ichar-numeric? c)
- (- c 48)
- c)))
-
(define ichar-downcase
(lambda (c)
(if (ichar-upper-case? c)
@@ -147,12 +157,6 @@
(if (null? sl)
0
(char->integer (car sl))))))
-
-(define ucs->utf8-string
- (lambda (ucs)
- (with-char-codec "UTF-8"
- (lambda ()
- (list->string (list (integer->char ucs)))))))
;; FIXME: write test.
(define ucs-to-utf8-string ucs->utf8-string)
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"uim-commit" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/uim-commit?hl=en
-~----------~----~----~----~------~----~------~--~---
