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

View file

@ -0,0 +1,11 @@
(test
(name main)
(libraries foo)
(modules main))
(library
(name foo)
(modules foo)
(c_names stub1 sub/stub2))
(include_subdirs unqualified)

View file

@ -0,0 +1,2 @@
external x : unit -> string = "dune_test_x"
external y : unit -> string = "dune_test_y"

View file

@ -0,0 +1,2 @@
#include <caml/mlvalues.h>
#include <caml/alloc.h>

View file

@ -0,0 +1 @@
let () = print_endline (Foo.x () ^ Foo.y ())

View file

@ -0,0 +1,11 @@
Test with C stubs in sub-directories
------------------------------------
$ dune runtest
File "dune", line 9, characters 16-25:
9 | (c_names stub1 sub/stub2))
^^^^^^^^^
Error: Relative part of stub is not necessary and should be removed. To
include sources in subdirectories, use the (include_subdirs ...) stanza.
[1]

View file

@ -0,0 +1,6 @@
#include "include/dune_test.h"
CAMLprim value dune_test_x()
{
return caml_copy_string("Hello,");
}

View file

@ -0,0 +1,6 @@
#include "../include/dune_test.h"
CAMLprim value dune_test_y()
{
return caml_copy_string(" world!");
}