diff options
Diffstat (limited to 'tests/017/glob-carray.tl')
| -rw-r--r-- | tests/017/glob-carray.tl | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/tests/017/glob-carray.tl b/tests/017/glob-carray.tl index f98359a8..d40dfdad 100644 --- a/tests/017/glob-carray.tl +++ b/tests/017/glob-carray.tl @@ -3,21 +3,30 @@ (defstruct glob-t nil pathc pathv (reserve 0)) -(cond - ((eq (os-symbol) :macos) - (deffi-type glob-t (struct glob-t - (pathc size-t) - (nil int) - (nil size-t) - (nil int) - (pathv (carray str-d)) - (nil (array 4 cptr))))) +(caseq (os-symbol) + (:macos + (deffi-type glob-t (struct glob-t + (pathc size-t) + (nil int) + (nil size-t) + (nil int) + (pathv (carray str-d)) + (nil (array 4 cptr))))) + ((:cygnal :cygwin) + (deffi-type glob-t (struct glob-t + (pathc size-t) + (nil size-t) + (nil size-t) + (nil int) + (pathv (carray str-d)) + (nil (array 6 cptr))))) (t (deffi-type glob-t (struct glob-t (pathc size-t) (pathv (carray str-d)) - (reserve size-t))))) + (reserve size-t) + (nil (array 5 cptr)))))) -(with-dyn-lib nil +(with-dyn-lib (libc) (deffi globb "glob" int (str int closure (ptr-out glob-t))) (deffi globfree "globfree" void ((ptr-in glob-t))) (deffi-cb glob-cb int (str int) -1)) |