blob: bb9dc38ad0364a6cb06c4a9b5e5eaf3fbedf77fa (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(load "../common")
(with-dyn-lib nil
(deffi strtol "strtol" long (str (ptr-out (array 1 str-s)) int))
(deffi bcstol "strtol" long (bstr (ptr-out (array 1 bstr-s)) int))
(deffi wcstol "wcstol" long (wstr (ptr-out (array 1 wstr-s)) int)))
(mtest
(let ((v (vec nil))) (list (strtol "-345x" v 0) v)) (-345 #("x"))
(let ((v (vec nil))) (list (bcstol "-345x" v 0) v)) (-345 #("x"))
(let ((v (vec nil))) (list (wcstol "-345x" v 0) v)) (-345 #("x")))
|
