mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-26 08:20:27 +00:00
Code Issues 1 Releases Wiki Activity

Add windows FFI example test case for void functions with double

Browse Source 
argument.
This commit is contained in:
bakpakin 2022-09-15 13:58:54 -05:00
parent e326071c35
commit c7bc711f63
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/ffi/so.c
View File

@ -124,6 +124,10 @@ void void_fn(void) {
printf("void fn ran\n"); printf("void fn ran\n");
} }
EXPORTER void_fn_2(double y) {
printf("y = %f\n", y);
}
EXPORTER EXPORTER
void void_ret_fn(int x) { void void_ret_fn(int x) {
printf("void fn ran: %d\n", x); printf("void fn ran: %d\n", x);

2
examples/ffi/test.janet
View File

@ -43,6 +43,7 @@
h :double h :double
i :double i :double
j :double]) j :double])
(ffi/defbind void-fn-2 :void [y :double])
# #
# Struct reading and writing # Struct reading and writing
@ -84,6 +85,7 @@
# Call functions # Call functions
# #
(tracev (void-fn-2 10.3))
(tracev (double-many 1 2 3 4 5 6)) (tracev (double-many 1 2 3 4 5 6))
(tracev (string/format "%.17g" (double-many 1 2 3 4 5 6))) (tracev (string/format "%.17g" (double-many 1 2 3 4 5 6)))
(tracev (type (double-many 1 2 3 4 5 6))) (tracev (type (double-many 1 2 3 4 5 6)))