projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dacb695
)
r3530: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 2 Dec 2002 13:21:43 +0000
(13:21 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 2 Dec 2002 13:21:43 +0000
(13:21 +0000)
debian/changelog
patch
|
blob
|
history
examples/gethostname.lisp
patch
|
blob
|
history
src/aggregates.lisp
patch
|
blob
|
history
src/objects.lisp
patch
|
blob
|
history
tests/gethostname.lisp
patch
|
blob
|
history
diff --git
a/debian/changelog
b/debian/changelog
index 36e8077cde5197f31d2347bc1289e89cd5801c94..5b1a8ad67af09dc32750bfa94a65c83e870362e8 100644
(file)
--- a/
debian/changelog
+++ b/
debian/changelog
@@
-1,3
+1,9
@@
+cl-uffi (1.1.8-1) unstable; urgency=low
+
+ * Reverse broken bug "fixes"
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Thu, 28 Nov 2002 11:47:26 -0700
+
cl-uffi (1.1.7.1-1) unstable; urgency=low
* Another allegro bug (Thanks Matthew Danish)
cl-uffi (1.1.7.1-1) unstable; urgency=low
* Another allegro bug (Thanks Matthew Danish)
diff --git
a/examples/gethostname.lisp
b/examples/gethostname.lisp
index 04fa7973a89d7184f1cde852fd790625f7b6f4d3..a6e1b0e1afe7c33686d9de534c52f5d85fdabaa5 100644
(file)
--- a/
examples/gethostname.lisp
+++ b/
examples/gethostname.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: gethostname.lisp,v 1.
2 2002/11/25 19:04:57
kevin Exp $
+;;;; $Id: gethostname.lisp,v 1.
3 2002/12/02 13:21:43
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-34,7
+34,8
@@
(uffi:convert-from-foreign-string name))))
(uffi:free-foreign-object name)
(unless (zerop result-code)
(uffi:convert-from-foreign-string name))))
(uffi:free-foreign-object name)
(unless (zerop result-code)
- (error "gethostname() failed."))))
+ (error "gethostname() failed."))
+ hostname))
(defun gethostname2 ()
"Returns the hostname"
(defun gethostname2 ()
"Returns the hostname"
diff --git
a/src/aggregates.lisp
b/src/aggregates.lisp
index e22f22b53d875839651901c388da77c0df421e20..5080222aa0862c7b92bf708eca85370378746018 100644
(file)
--- a/
src/aggregates.lisp
+++ b/
src/aggregates.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: aggregates.lisp,v 1.
5 2002/11/23 19:07:11
kevin Exp $
+;;;; $Id: aggregates.lisp,v 1.
6 2002/12/02 13:21:43
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-163,7
+163,7
@@
of the enum-name name, separator-string, and field-name"
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
#+lispworks `(fli:dereference ,obj :index ,i)
- #+allegro `(ff:fslot-value-typed (quote
(convert-from-uffi-type ,
type :type)) :c ,obj ,i)
+ #+allegro `(ff:fslot-value-typed (quote
,(convert-from-uffi-type
type :type)) :c ,obj ,i)
#+mcl
(let* ((array-type (array-type type))
(local-type (convert-from-uffi-type array-type :allocation))
#+mcl
(let* ((array-type (array-type type))
(local-type (convert-from-uffi-type array-type :allocation))
diff --git
a/src/objects.lisp
b/src/objects.lisp
index 6c7a745476fea1939bb2e1b7d957d44980a57438..8c6d2aca11f1c936b3d970438aed7057ef3561d3 100644
(file)
--- a/
src/objects.lisp
+++ b/
src/objects.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: objects.lisp,v 1.
6 2002/11/23 18:01:57
kevin Exp $
+;;;; $Id: objects.lisp,v 1.
7 2002/12/02 13:21:43
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-108,8
+108,8
@@
an array of TYPE with size SIZE. The TYPE parameter is evaluated."
#+(or cmu scl) `(alien:deref ,ptr)
#+sbcl `(sb-alien:deref ,ptr)
#+lispworks `(fli:dereference ,ptr)
#+(or cmu scl) `(alien:deref ,ptr)
#+sbcl `(sb-alien:deref ,ptr)
#+lispworks `(fli:dereference ,ptr)
- #+allegro `(ff:fslot-value-typed (
convert-from-uffi-type ,type :deref
) :c ,ptr)
- #+mcl `(ccl:pref ,ptr
(convert-from-uffi-type ,
type :deref))
+ #+allegro `(ff:fslot-value-typed (
quote ,(convert-from-uffi-type type :deref)
) :c ,ptr)
+ #+mcl `(ccl:pref ,ptr
,(convert-from-uffi-type
type :deref))
)
#+mcl
)
#+mcl
diff --git
a/tests/gethostname.lisp
b/tests/gethostname.lisp
index 04fa7973a89d7184f1cde852fd790625f7b6f4d3..a6e1b0e1afe7c33686d9de534c52f5d85fdabaa5 100644
(file)
--- a/
tests/gethostname.lisp
+++ b/
tests/gethostname.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: gethostname.lisp,v 1.
2 2002/11/25 19:04:57
kevin Exp $
+;;;; $Id: gethostname.lisp,v 1.
3 2002/12/02 13:21:43
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-34,7
+34,8
@@
(uffi:convert-from-foreign-string name))))
(uffi:free-foreign-object name)
(unless (zerop result-code)
(uffi:convert-from-foreign-string name))))
(uffi:free-foreign-object name)
(unless (zerop result-code)
- (error "gethostname() failed."))))
+ (error "gethostname() failed."))
+ hostname))
(defun gethostname2 ()
"Returns the hostname"
(defun gethostname2 ()
"Returns the hostname"