swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/dune-project Normal file
View file

@ -0,0 +1 @@
(lang dune 3.0)

5
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/forutop/dune Normal file
View file

@ -0,0 +1,5 @@
(library
(name forutop)
(foreign_stubs
(language c)
(names forutop_stubs)))

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/forutop/forutop.ml Normal file
View file

@ -0,0 +1,2 @@
external hello_in_utop: unit -> string = "hello_in_utop"
let run () = print_endline (hello_in_utop ())

6
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/forutop/forutop_stubs.c Normal file
View file

@ -0,0 +1,6 @@
#include <caml/alloc.h>
value hello_in_utop(value v_unit)
{
return caml_copy_string("hello in utop");
}

1
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/init_forutop.ml Normal file
View file

@ -0,0 +1 @@
Forutop.run ();;

2
unikernel/duniverse/dune_/test/blackbox-tests/test-cases/utop/utop-stubs.t/run.t Normal file
View file

@ -0,0 +1,2 @@
$ dune utop forutop -- init_forutop.ml
hello in utop