blob: 5471a1c847a77523b43acc532e088dc78563d9e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(load "../common")
(when (memq (os-symbol) '(:cygwin :solaris :android))
(put-string (file-get-string "tests/017/realpath.expected"))
(exit 0))
(with-dyn-lib (libc)
(deffi realpath-null "realpath" str-d (str str))
(deffi realpath-buf "realpath" str-d (str (ptr-in-d (zarray 8192 char)))))
(prinl (realpath-null "/usr/bin" nil))
(prinl (realpath-buf "/usr/bin" (copy "")))
|
