13 lines
252 B
Prolog
13 lines
252 B
Prolog
:- use_module(library(os)).
|
|
:- use_module(library(ffi)).
|
|
|
|
test :-
|
|
read(Body),
|
|
term_variables(Body, [LIB]),
|
|
Body,
|
|
use_foreign_module(LIB, ['ffi_f64_nan'([], f64)]),
|
|
ffi:'ffi_f64_nan'(N),
|
|
_ is round(N).
|
|
|
|
:- initialization(test).
|