ilyakooo0/nixpkgs
1
0
Fork 0
mirror of https://github.com/ilyakooo0/nixpkgs.git synced 2024-12-27 13:57:10 +03:00
Code Issues Projects Releases Wiki Activity

gnupdate: Update to new FFI.

Browse Source 
* maintainers/scripts/gnu/gnupdate (pointer->procedure): New procedure.

svn path=/nixpkgs/trunk/; revision=23712
This commit is contained in:
Ludovic Courtès 2010-09-10 11:50:06 +00:00
parent 6d1f247646
commit 7ff37213b7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
maintainers/scripts/gnu/gnupdate
View File

@ -619,11 +619,17 @@ exec ${GUILE-guile} -L "$PWD" -l "$0" \
project message args) project message args)
'()))) '())))
(define pointer->procedure
;; Compatibility hack for Guile up to 1.9.12 included.
(if (defined? 'pointer->procedure)
pointer->procedure
make-foreign-function))
(define version-string>? (define version-string>?
(let ((strverscmp (let ((strverscmp
(let ((sym (or (dynamic-func "strverscmp" (dynamic-link)) (let ((sym (or (dynamic-func "strverscmp" (dynamic-link))
(error "could not find `strverscmp' (from GNU libc)")))) (error "could not find `strverscmp' (from GNU libc)"))))
(make-foreign-function int sym (list '* '*))))) (pointer->procedure int sym (list '* '*)))))
(lambda (a b) (lambda (a b)
(> (strverscmp (string->pointer a) (string->pointer b)) 0)))) (> (strverscmp (string->pointer a) (string->pointer b)) 0))))