wrapper-example.lisp - clic - Clic is an command line interactive client for go… | |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
wrapper-example.lisp (877B) | |
--- | |
1 (in-package #:cffi-example) | |
2 | |
3 (defwrapper* "b0" :long ((x :long)) "return x;") | |
4 (defwrapper* "b1" :long ((x :long)) "return x;") | |
5 (defwrapper* "b2" :long ((x :long)) "return x;") | |
6 (defwrapper* "b3" :long ((x :long)) "return x;") | |
7 (defwrapper* "b4" :long ((x :long)) "return x;") | |
8 | |
9 (define "b0_cffi_wrap(x)" | |
10 "b0_cffi_wrap(b1_cffi_wrap(b2_cffi_wrap(b3_cffi_wrap(b4_cffi_wrap(+x+x… | |
11 (define "b1_cffi_wrap(x)" | |
12 "b0_cffi_wrap(b1_cffi_wrap(b2_cffi_wrap(b3_cffi_wrap(b4_cffi_wrap(+x+x… | |
13 (define "b2_cffi_wrap(x)" | |
14 "b0_cffi_wrap(b1_cffi_wrap(b2_cffi_wrap(b3_cffi_wrap(b4_cffi_wrap(+x+x… | |
15 ;;(define "b3_cffi_wrap(x)" | |
16 ;; "b0_cffi_wrap(b1_cffi_wrap(b2_cffi_wrap(b3_cffi_wrap(b4_cffi_wrap(+x… | |
17 ;;(define "b4_cffi_wrap(x)" | |
18 ;; "b0_cffi_wrap(b1_cffi_wrap(b2_cffi_wrap(b3_cffi_wrap(b4_cffi_wrap(+x… | |
19 | |
20 (defwrapper* "bn" :long ((x :long)) "return b0_cffi_wrap(x);") |