projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
baabff1
)
r1525: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 10 Mar 2002 04:36:04 +0000
(
04:36
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 10 Mar 2002 04:36:04 +0000
(
04:36
+0000)
ChangeLog
patch
|
blob
|
history
examples/strtol.cl
patch
|
blob
|
history
examples/test-all-examples.cl
patch
|
blob
|
history
tests/strtol.cl
patch
|
blob
|
history
tests/test-all-examples.cl
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index d9bace39663d48bd98655500d8769bc08afb05ee..1000077e66274844cd8903f3a08128f9afb594e4 100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-3,7
+3,7
@@
- Fixed bug in def-function for Lispworks
- Fixed error in +null-c-string-pointer+ name
- Fixed error in (make-null-pointer) for Lispworks
- Fixed bug in def-function for Lispworks
- Fixed error in +null-c-string-pointer+ name
- Fixed error in (make-null-pointer) for Lispworks
-
+ - Fixed error in strtol example
8 Mar 2002
- Added ZIP file output with LF->CRLF translations to distribution
8 Mar 2002
- Added ZIP file output with LF->CRLF translations to distribution
diff --git
a/examples/strtol.cl
b/examples/strtol.cl
index d813f1333173b416c20f976d76cfce96813caaf6..387d23b26b639b4a8fbf7705d1ecc1a20ccf0b14 100644
(file)
--- a/
examples/strtol.cl
+++ b/
examples/strtol.cl
@@
-9,7
+9,7
@@
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: strtol.cl,v 1.
3 2002/03/10 04:15:33
kevin Exp $
+;;;; $Id: strtol.cl,v 1.
4 2002/03/10 04:36:04
kevin Exp $
;;;;
;;;; This file is part of UFFI.
;;;;
;;;;
;;;; This file is part of UFFI.
;;;;
@@
-29,14
+29,14
@@
(in-package :cl-user)
(in-package :cl-user)
-(uffi:def-type char-ptr (* :char))
+(uffi:def-type char-ptr (* :
unsigned-
char))
;; This example does not use :c-string to pass the input string since
;; the routine needs to do pointer arithmetic to see how many characters
;; were parsed
(uffi:def-function ("strtol" c-strtol)
;; This example does not use :c-string to pass the input string since
;; the routine needs to do pointer arithmetic to see how many characters
;; were parsed
(uffi:def-function ("strtol" c-strtol)
- ((nptr (* :char))
+ ((nptr (* :
unsigned-
char))
(endptr (* char-ptr))
(base :int))
:returning :long)
(endptr (* char-ptr))
(base :int))
:returning :long)
diff --git
a/examples/test-all-examples.cl
b/examples/test-all-examples.cl
index a2a62de55abce8aabbbf23be10a6ae2e53138ce2..5e39177cf439b4f91d82ca24ad0bdebf54dbe7ab 100644
(file)
--- a/
examples/test-all-examples.cl
+++ b/
examples/test-all-examples.cl
@@
-5,11
+5,11
@@
(flet ((load-test (name)
(load (make-pathname :name name :type "cl" :defaults *load-truename*))))
(flet ((load-test (name)
(load (make-pathname :name name :type "cl" :defaults *load-truename*))))
+ (load-test "strtol")
+ (load-test "gettime")
(load-test "getenv")
(load-test "gethostname")
(load-test "getshells")
(load-test "getenv")
(load-test "gethostname")
(load-test "getshells")
- (load-test "gettime")
- (load-test "strtol")
(load-test "compress"))
(setq cl:*features* (remove :test-uffi cl:*features*))
(load-test "compress"))
(setq cl:*features* (remove :test-uffi cl:*features*))
diff --git
a/tests/strtol.cl
b/tests/strtol.cl
index d813f1333173b416c20f976d76cfce96813caaf6..387d23b26b639b4a8fbf7705d1ecc1a20ccf0b14 100644
(file)
--- a/
tests/strtol.cl
+++ b/
tests/strtol.cl
@@
-9,7
+9,7
@@
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
;;;;
;;;; Copyright (c) 2002 Kevin M. Rosenberg
;;;;
-;;;; $Id: strtol.cl,v 1.
3 2002/03/10 04:15:33
kevin Exp $
+;;;; $Id: strtol.cl,v 1.
4 2002/03/10 04:36:04
kevin Exp $
;;;;
;;;; This file is part of UFFI.
;;;;
;;;;
;;;; This file is part of UFFI.
;;;;
@@
-29,14
+29,14
@@
(in-package :cl-user)
(in-package :cl-user)
-(uffi:def-type char-ptr (* :char))
+(uffi:def-type char-ptr (* :
unsigned-
char))
;; This example does not use :c-string to pass the input string since
;; the routine needs to do pointer arithmetic to see how many characters
;; were parsed
(uffi:def-function ("strtol" c-strtol)
;; This example does not use :c-string to pass the input string since
;; the routine needs to do pointer arithmetic to see how many characters
;; were parsed
(uffi:def-function ("strtol" c-strtol)
- ((nptr (* :char))
+ ((nptr (* :
unsigned-
char))
(endptr (* char-ptr))
(base :int))
:returning :long)
(endptr (* char-ptr))
(base :int))
:returning :long)
diff --git
a/tests/test-all-examples.cl
b/tests/test-all-examples.cl
index a2a62de55abce8aabbbf23be10a6ae2e53138ce2..5e39177cf439b4f91d82ca24ad0bdebf54dbe7ab 100644
(file)
--- a/
tests/test-all-examples.cl
+++ b/
tests/test-all-examples.cl
@@
-5,11
+5,11
@@
(flet ((load-test (name)
(load (make-pathname :name name :type "cl" :defaults *load-truename*))))
(flet ((load-test (name)
(load (make-pathname :name name :type "cl" :defaults *load-truename*))))
+ (load-test "strtol")
+ (load-test "gettime")
(load-test "getenv")
(load-test "gethostname")
(load-test "getshells")
(load-test "getenv")
(load-test "gethostname")
(load-test "getshells")
- (load-test "gettime")
- (load-test "strtol")
(load-test "compress"))
(setq cl:*features* (remove :test-uffi cl:*features*))
(load-test "compress"))
(setq cl:*features* (remove :test-uffi cl:*features*))