1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/bin/sh
#**************************************************************************
#* *
#* OCaml *
#* *
#* Xavier Leroy, Collège de France and Inria *
#* *
#* Copyright 2023 Institut National de Recherche en Informatique et *
#* en Automatique. *
#* *
#* All rights reserved. This file is distributed under the terms of *
#* the GNU Lesser General Public License version 2.1, with the *
#* special exception on linking described in the file LICENSE. *
#* *
#**************************************************************************
# Build the runtime/prims.c file, with proper C declarations of the primitives
export LC_ALL=C
case $# in
0) echo "Usage: gen_primsc.sh <primitives file> <.c files>" 1>&2
exit 2;;
*) primitives="$1"; shift;;
esac
cat <<'EOF'
/* Generated file, do not edit */
#define CAML_INTERNALS
#include "caml/mlvalues.h"
#include "caml/prims.h"
EOF
# Extract the beginning of primitive definitions:
# from 'CAMLprim' at beginning of line to the first closing parenthesis.
# The first pattern below matches single-line definitions such as
# CAMLprim value foo(value x) {
# The second pattern matches multi-line definitions such as
# CAMLprim value foo(value x,
# value y)
sed -n \
-e '/^CAMLprim value .*)/p' \
-e '/^CAMLprim value [^)]*$/,/)/p' \
"$@" |
# Transform these definitions into "CAMLextern" declarations
sed \
-e 's/^CAMLprim /CAMLextern /' \
-e 's/).*$/);/'
# Generate the table of primitives
echo
echo 'const c_primitive caml_builtin_cprim[] = {'
sed -e 's/.*/ (c_primitive) &,/' "$primitives"
echo ' 0 };'
# Generate the table of primitive names
echo
echo 'const char * const caml_names_of_builtin_cprim[] = {'
sed -e 's/.*/ "&",/' "$primitives"
echo ' 0 };'
|
