projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5a7117c
)
r10563: add module keyword to def-function
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 7 Jun 2005 19:09:51 +0000
(19:09 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 7 Jun 2005 19:09:51 +0000
(19:09 +0000)
tests/atoifl.lisp
patch
|
blob
|
history
tests/casts.lisp
patch
|
blob
|
history
tests/foreign-var.lisp
patch
|
blob
|
history
tests/getenv.lisp
patch
|
blob
|
history
tests/gethostname.lisp
patch
|
blob
|
history
tests/strtol.lisp
patch
|
blob
|
history
tests/time.lisp
patch
|
blob
|
history
tests/uffi-c-test-lib.lisp
patch
|
blob
|
history
diff --git
a/tests/atoifl.lisp
b/tests/atoifl.lisp
index 8d65aa52d24794eaad30f13f960dfa2359afb5ce..00bddbcca9d57f81cd321c5d1325717a480ceca5 100644
(file)
--- a/
tests/atoifl.lisp
+++ b/
tests/atoifl.lisp
@@
-17,14
+17,17
@@
(uffi:def-function ("atoi" c-atoi)
((str :cstring))
(uffi:def-function ("atoi" c-atoi)
((str :cstring))
+ :module "c"
:returning :int)
(uffi:def-function ("atol" c-atol)
((str :cstring))
:returning :int)
(uffi:def-function ("atol" c-atol)
((str :cstring))
+ :module "c"
:returning :long)
(uffi:def-function ("atof" c-atof)
((str :cstring))
:returning :long)
(uffi:def-function ("atof" c-atof)
((str :cstring))
+ :module "c"
:returning :double)
(defun atoi (str)
:returning :double)
(defun atoi (str)
diff --git
a/tests/casts.lisp
b/tests/casts.lisp
index a6654599a6ff92fa2ee9f5064c1c956c7ee92df2..da4bfa5d747c65e3644f9ccc179c24b93d9fba5b 100644
(file)
--- a/
tests/casts.lisp
+++ b/
tests/casts.lisp
@@
-15,10
+15,12
@@
(uffi:def-function ("cast_test_int" cast-test-int)
()
(uffi:def-function ("cast_test_int" cast-test-int)
()
+ :module "c-uffi-test"
:returning :pointer-void)
(uffi:def-function ("cast_test_float" cast-test-float)
()
:returning :pointer-void)
(uffi:def-function ("cast_test_float" cast-test-float)
()
+ :module "c-uffi-test"
:returning :pointer-void)
(deftest cast.1
:returning :pointer-void)
(deftest cast.1
diff --git
a/tests/foreign-var.lisp
b/tests/foreign-var.lisp
index ee9bd2256ea9f306d0b7c7f1d8f9af7a850cfcc6..9409eeaf476fc7428c7b8ed8c152e289bcd1714f 100644
(file)
--- a/
tests/foreign-var.lisp
+++ b/
tests/foreign-var.lisp
@@
-39,17
+39,17
@@
(d :double))
(uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
(d :double))
(uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
- "
uffi_
tests")
+ "
c-uffi-
tests")
(uffi:def-function ("fvar_struct_int" fvar-struct-int)
()
:returning :int
(uffi:def-function ("fvar_struct_int" fvar-struct-int)
()
:returning :int
- :module "
uffi_tests
")
+ :module "
c-uffi-test
")
(uffi:def-function ("fvar_struct_double" fvar-struct-double)
()
:returning :double
(uffi:def-function ("fvar_struct_double" fvar-struct-double)
()
:returning :double
- :module "
uffi_tests
")
+ :module "
c-uffi-test
")
(deftest fvarst.1 *fvar-addend* 3)
(deftest fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)
(deftest fvarst.1 *fvar-addend* 3)
(deftest fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)
diff --git
a/tests/getenv.lisp
b/tests/getenv.lisp
index 19fe1936ddf600b23a6804c18e0b68c7f3a93230..6fafc45e2c370ad2e67a878cb921599b522175dc 100644
(file)
--- a/
tests/getenv.lisp
+++ b/
tests/getenv.lisp
@@
-18,16
+18,19
@@
(uffi:def-function ("getenv" c-getenv)
((name :cstring))
(uffi:def-function ("getenv" c-getenv)
((name :cstring))
+ :module "c"
:returning :cstring)
(uffi:def-function ("setenv" c-setenv)
((name :cstring)
(value :cstring)
(overwrite :int))
:returning :cstring)
(uffi:def-function ("setenv" c-setenv)
((name :cstring)
(value :cstring)
(overwrite :int))
+ :module "c"
:returning :int)
(uffi:def-function ("unsetenv" c-unsetenv)
((name :cstring))
:returning :int)
(uffi:def-function ("unsetenv" c-unsetenv)
((name :cstring))
+ :module "c"
:returning :void)
(defun my-getenv (key)
:returning :void)
(defun my-getenv (key)
diff --git
a/tests/gethostname.lisp
b/tests/gethostname.lisp
index 82137401e87b1b42abf82a670687167d67bf47eb..577335a8897a6459b34f7b7bd186efcb74bcf8e4 100644
(file)
--- a/
tests/gethostname.lisp
+++ b/
tests/gethostname.lisp
@@
-22,6
+22,7
@@
(uffi:def-function ("gethostname" c-gethostname)
((name (* :unsigned-char))
(len :int))
(uffi:def-function ("gethostname" c-gethostname)
((name (* :unsigned-char))
(len :int))
+ :module "c"
:returning :int)
(defun gethostname ()
:returning :int)
(defun gethostname ()
diff --git
a/tests/strtol.lisp
b/tests/strtol.lisp
index c3bfe1393d936d0b064b12b3054ecf125399e866..b9b73bd805410ff22f7eb92723ce17ee2b39b1bd 100644
(file)
--- a/
tests/strtol.lisp
+++ b/
tests/strtol.lisp
@@
-25,6
+25,7
@@
((nptr char-ptr)
(endptr (* char-ptr))
(base :int))
((nptr char-ptr)
(endptr (* char-ptr))
(base :int))
+ :module "c"
:returning :long)
(defun strtol (str &optional (base 10))
:returning :long)
(defun strtol (str &optional (base 10))
diff --git
a/tests/time.lisp
b/tests/time.lisp
index cccd0b40f80421aa319a6ae294099a470906e0cc..01c2090cafa46b3a719a8074c013a1b86ce29d52 100644
(file)
--- a/
tests/time.lisp
+++ b/
tests/time.lisp
@@
-32,14
+32,17
@@
(uffi:def-function ("time" c-time)
((time (* time-t)))
(uffi:def-function ("time" c-time)
((time (* time-t)))
+ :module "c"
:returning time-t)
(uffi:def-function "gmtime"
((time (* time-t)))
:returning time-t)
(uffi:def-function "gmtime"
((time (* time-t)))
+ :module "c"
:returning (* tm))
(uffi:def-function "asctime"
((time (* tm)))
:returning (* tm))
(uffi:def-function "asctime"
((time (* tm)))
+ :module "c"
:returning :cstring)
(uffi:def-type time-t :unsigned-long)
:returning :cstring)
(uffi:def-type time-t :unsigned-long)
@@
-76,6
+79,7
@@
(uffi:def-function ("gettimeofday" c-gettimeofday)
((tv (* timeval))
(tz (* timezone)))
(uffi:def-function ("gettimeofday" c-gettimeofday)
((tv (* timeval))
(tz (* timezone)))
+ :module "c"
:returning :int)
(defun get-utime ()
:returning :int)
(defun get-utime ()
diff --git
a/tests/uffi-c-test-lib.lisp
b/tests/uffi-c-test-lib.lisp
index 95b411e53a05aec48be467d9bc3b4dd56132d1ad..4e87608f0bb39d675bd5c60a209e3694a667b1bc 100644
(file)
--- a/
tests/uffi-c-test-lib.lisp
+++ b/
tests/uffi-c-test-lib.lisp
@@
-19,6
+19,7
@@
(uffi:def-function ("cs_to_upper" cs-to-upper)
((input (* :unsigned-char)))
:returning :void
(uffi:def-function ("cs_to_upper" cs-to-upper)
((input (* :unsigned-char)))
:returning :void
+ :module "uffi-c-test"
)
(defun string-to-upper (str)
)
(defun string-to-upper (str)
@@
-28,7
+29,8
@@
(uffi:def-function ("cs_count_upper" cs-count-upper)
((input :cstring))
(uffi:def-function ("cs_count_upper" cs-count-upper)
((input :cstring))
- :returning :int)
+ :returning :int
+ :module "uffi-c-test")
(defun string-count-upper (str)
(uffi:with-cstring (str-cstring str)
(defun string-count-upper (str)
(uffi:with-cstring (str-cstring str)
@@
-37,19
+39,24
@@
(uffi:def-function ("half_double_vector" half-double-vector)
((size :int)
(vec (* :double)))
(uffi:def-function ("half_double_vector" half-double-vector)
((size :int)
(vec (* :double)))
- :returning :void)
+ :returning :void
+ :module "uffi-c-test")
(uffi:def-function ("return_long_negative_one" return-long-negative-one)
()
(uffi:def-function ("return_long_negative_one" return-long-negative-one)
()
- :returning :long)
+ :returning :long
+ :module "uffi-c-test")
(uffi:def-function ("return_int_negative_one" return-int-negative-one)
()
(uffi:def-function ("return_int_negative_one" return-int-negative-one)
()
- :returning :int)
+ :returning :int
+ :module "uffi-c-test")
(uffi:def-function ("return_short_negative_one" return-short-negative-one)
()
(uffi:def-function ("return_short_negative_one" return-short-negative-one)
()
- :returning :short)
+ :returning :short
+ :module "uffi-c-test")
+
(uffi:def-constant +double-vec-length+ 10)
(defun test-half-double-vector ()
(uffi:def-constant +double-vec-length+ 10)
(defun test-half-double-vector ()