Anonymous user
Use another language to call a function: Difference between revisions
Use another language to call a function (view source)
Revision as of 22:01, 25 February 2021
, 3 years agoadded Ol
Thundergnat (talk | contribs) m (→{{header|Fortran}}: Regularize non-standard header markup) |
(added Ol) |
||
Line 1,112:
-L"`ocamlc -where`" \
-lm -ldl -lasmrun
=={{header|Ol}}==
Simpler solution: just return from otus-lisp a string.
<lang c>
#include <extensions/embed.h>
#define min(x,y) (x < y ? x : y)
extern unsigned char repl[];
int Query(char *Data, size_t *Length) {
ol_t ol;
embed_new(&ol, repl, 0);
word s = embed_eval(&ol, new_string(&ol,
"(define sample \"Here am I\")"
"sample"
), 0);
if (!is_string(s))
goto fail;
int i = *Length = min(string_length(s), *Length);
memcpy(Data, string_value(s), i);
*Length = i;
OL_free(ol.vm);
return 1;
fail:
OL_free(ol.vm);
return 0;
}
</lang>
Better solution: do a copy of string directly in otus-lisp.
<lang c>
#include <extensions/embed.h>
extern unsigned char repl[];
int Query(char *Data, size_t *Length) {
ol_t ol;
embed_new(&ol, repl, 0);
embed_eval(&ol, new_string(&ol,
"(import (otus ffi))"
"(define lib (load-dynamic-library #f))"
"(define memcpy (lib fft-void* \"memcpy\" fft-void* type-string fft-int))"
"(define (Query Data Length)"
" (define sample (c-string \"Here am I\"))"
" (when (memcpy Data sample (min (string-length sample) Length))"
" (min (string-length sample) Length)))"
), 0);
word r =
embed_eval(&ol, new_string(&ol, "Query"), new_vptr(&ol, Data), make_integer(*Length), 0);
if (!is_number(r))
goto fail;
*Length = ol2int(r);
OL_free(ol.vm);
return 1;
fail:
OL_free(ol.vm);
return 0;
}
</lang>
=={{header|PARI/GP}}==
| |||