guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: filename(CJK utf8) problem on OSX.


From: Eli Zaretskii
Subject: Re: filename(CJK utf8) problem on OSX.
Date: Mon, 28 Mar 2016 18:07:42 +0300

> From: Park SungMin <address@hidden>
> Date: Mon, 28 Mar 2016 10:21:46 +0900
> 
> (define filename "/Users/byul/Desktop/사진.gif")
> 
> (define my-open-file
>   (lambda (filename)
>     (let* ((fd ((pointer->procedure
>                int
>                (dynamic-func "open" (dynamic-link))
>                (list '* int))
>               (bytevector->pointer
>                (string->utf8 filename))
>               O_RDONLY)))
>       (when (= fd -1)
>       (throw 'can't-find-file))
>       (fdes->inport fd))))
> 
> (define port (my-open-file filename))
> 
> (get-bytevector-n port 10)  ;; OK. I get bytevector.
> 
> ;;but….
> (file-exists? filename) ;; #f
> (open-file filename "r") ; ERROR: In procedure open-file: No such file or 
> directory: "/Users/byul/Desktop/사진.gif"

Isn't this because OS X filesystems store file names in decomposed
form?



reply via email to

[Prev in Thread] Current Thread [Next in Thread]