brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove old utf8 string to list converter.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-24 22:07:20 +02:00
parent 06746c1c40
commit 64059bfb3c
2 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -274,7 +274,7 @@ UTIL-IO-SOURCES=util-io.scm
util-io.o: util-io.import.scm util-io.o: util-io.import.scm
util-io.import.scm: $(UTIL-IO-SOURCES) util-io.import.scm: $(UTIL-IO-SOURCES)
UTIL-STRING-SOURCES=util-string.scm testing.import.scm UTIL-STRING-SOURCES=util-string.scm testing.import.scm util-utf8.scm
util-string.o: util-string.import.scm util-string.o: util-string.import.scm
util-string.import.scm: $(UTIL-STRING-SOURCES) util-string.import.scm: $(UTIL-STRING-SOURCES)

9
src/util-string.scm
View file

@ -41,7 +41,8 @@
(chicken base) (chicken base)
(chicken string) (chicken string)
(chicken irregex) (chicken irregex)
testing) testing
util-utf8)
;; Extracts first token and the rest as separate string ;; Extracts first token and the rest as separate string
(define (string-first+rest str) (define (string-first+rest str)
@ -54,13 +55,9 @@
(cons key-str val)) (cons key-str val))
(cons str "")))) (cons str ""))))
;; Converts given UTF-8 string into a list of UTF-8 string characters.
(define (string->list/utf8 str)
(irregex-extract (irregex "." 'u) str))
;; Encodes given UTF-8 string as quoted-printable ;; Encodes given UTF-8 string as quoted-printable
(define (string->qp str) (define (string->qp str)
(let loop ((lst (string->list/utf8 str)) (let loop ((lst (utf8-string->list str))
(res '())) (res '()))
(if (null? lst) (if (null? lst)
(string-intersperse (reverse res) "") (string-intersperse (reverse res) "")