[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?