Trouver les attributs de noms chinois en utilisant NewLISP?

Question

Le code NewLISP suivant montre moi les attributs de fichier des fichiers sous Win32. Cependant, certains des noms de fichiers récupérés ont des caractères chinois dans le nom. Lorsque la fonction GetFileAttributesA les rencontre, il me donne un -1 pour l'attribut. Je regardais GetFileAttributesW mais je ne sais pas comment faire le contenu du FNAME disponible à la fonction sous une forme qu'il reconnaît.

Comment peut-on gérer cette situation? (Je suis prêt à envisager d'essayer une autre langue)

(define (get-archive-flag file-name)
    (if (not GetFileAttributesA)
        (begin
        (import "kernel32.DLL" "GetFileAttributesA")
        )
    )
    (setq fname file-name file-attrib (GetFileAttributesA (address fname)))   
    (append fname " " ( string file-attrib))    
)

; walks a disk directory and prints all path-file names
;
(define (show-tree dir)
    (if (directory dir)
        (dolist (nde (directory dir))
            (if (and (directory? (append dir "/" nde))
                (!= nde ".") (!= nde ".."))
                (show-tree (append dir "/" nde))
                (println (get-archive-flag (append dir "/" nde)))
            )
        )
    )
)

(show-tree "z:\\working files\\Cathy")

Answer 1

Par souci d'exhaustivité, voici la solution, trouvée en consultation avec les gens sur le Forum NewLISP .

Je n'ai pas remplacé la technique de bits slice reverse sur le bit d'attribut avec l'opérateur & plus approprié. Ce qui reste pour le lecteur.

(constant 'SIZEOF_WCHAR 2) ; assumption
(constant 'CP_UTF8 65001)

(define (utf8->16 lpMultiByteStr , cchWideChar lpWideCharStr ret)
    (if (not MultiByteToWideChar)
        (begin
        (import "kernel32.DLL" "MultiByteToWideChar")
        )
    )
    ; calculate the size of buffer (in WCHAR's)
    (setq cchWideChar 
        (
        MultiByteToWideChar
        CP_UTF8 ; from UTF-8
        0       ; no flags necessary
        lpMultiByteStr
        -1      ; convert until NULL is encountered
        0
        0
        )
    )

    ; allocate the buffer
    (setq lpWideCharStr (dup " " (* cchWideChar SIZEOF_WCHAR)))

    ; convert
    (setq ret 
        (
        MultiByteToWideChar
        CP_UTF8 ; from UTF-8
        0       ; no flags necessary
        lpMultiByteStr
        -1      ; convert until NULL is encountered
        lpWideCharStr
        cchWideChar
        )
    )
    (if (> ret 0) lpWideCharStr nil)
)

; resets the Win32 archive flag on a file
; By CaveGuy 2009

(define (get-archive-flag file-name)
    (if (not GetFileAttributesW)
        (begin
        (import "kernel32.DLL" "GetFileAttributesW")
        )
    )
    (setq fname file-name
        file-attrib (GetFileAttributesW (utf8->16 fname))
    )   
    file-attrib   
)

; walks a disk directory and prints all path-file names where archive bit is set
;
(define (show-tree dir)
    (if (directory dir)
        (dolist (nde (directory dir))
            (if (and (directory? (append dir "/" nde)) (!= nde ".") (!= nde "..") )
                (show-tree (append dir "/" nde))
                (if (not (or (= nde ".") (= nde "..")))
                    (begin
                    (setq fname (append dir "/" nde))
                    (setq fflag (get-archive-flag fname))
                    (setq fbits (bits fflag))
                    (if (= (slice (reverse fbits) 5 1) "1") (println fname))
                    )
                )
            )
        )
    )
)

(show-tree "//server/folder")

Answer 2

Depuis la version 10.3.2, relased 20ème Juillet 2011, 10.3.2, MultiByteToWideChar est géré en interne par newLISP lorsque le chemin lecture / noms de fichiers.

Answer 3

Peut-être que vous ne l'utilisez pas la version Unicode de Newlisp. Anycase, il y a très peu Newlispers ici. Essayez Newlisp forum à la place.