1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 # FFI test with simple callbacks to Nit (within module)
18 module test_ffi_c_more_callbacks
27 init alt
(i
: Int) do a
= i
28 fun to_i
: Int do return a
31 fun in1
(i
: Int) do print
"Back in Nit: in1 {i}"
32 fun in2
(i
: Float) do print
"Back in Nit: in2"
34 fun out
(i
: Int, f
: Float): Int import in1
, in2
, A
, A
::alt
, A
::to_i
`{
35 printf("From C, beginning out: %ld\n", i);
39 printf("From C, a=%ld\n", A_to_i(a));
40 printf("From C, b=%ld\n", A_to_i(b));
41 printf("From C, end of out: %f\n", f);
45 print out
(12345, 1.23445)