jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[OCaml] Remove the last remnants of libswigocaml

Browse source 
Parts of it were removed in 79785d403c

Remove the oc_bool type.
This commit is contained in:
Zackery Spytz 2019-01-18 23:48:46 -07:00
commit 6da9bd485e
4 changed files with 1 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Lib/ocaml/extra-install.list
View file

@ -1,5 +1,4 @@
# see top-level Makefile.in # see top-level Makefile.in
# libswigocaml is not needed anymore.
swigp4.ml swigp4.ml
swig.mli swig.mli
swig.ml swig.ml

20
Lib/ocaml/libswigocaml.h
View file

@ -1,20 +0,0 @@
/* Ocaml runtime support */
#ifdef __cplusplus
extern "C" {
#endif
typedef int oc_bool;
extern void *nullptr;
extern oc_bool isnull( void *v );
extern void *get_char_ptr( char *str );
extern void *make_ptr_array( int size );
extern void *get_ptr( void *arrayptr, int elt );
extern void set_ptr( void *arrayptr, int elt, void *elt_v );
extern void *offset_ptr( void *ptr, int n );
#ifdef __cplusplus
};
#endif

2
Lib/ocaml/typecheck.i
View file

@ -78,7 +78,7 @@
} }
} }
%typecheck(SWIG_TYPECHECK_BOOL) bool, oc_bool, const bool &, const oc_bool & { %typecheck(SWIG_TYPECHECK_BOOL) bool, const bool & {
if( !Is_block($input) ) $1 = 0; if( !Is_block($input) ) $1 = 0;
else { else {
switch( SWIG_Tag_val($input) ) { switch( SWIG_Tag_val($input) ) {

1
Lib/ocaml/typemaps.i
View file

@ -198,7 +198,6 @@
%enddef %enddef
SIMPLE_MAP(bool, caml_val_bool, caml_long_val); SIMPLE_MAP(bool, caml_val_bool, caml_long_val);
SIMPLE_MAP(oc_bool, caml_val_bool, caml_long_val);
SIMPLE_MAP(char, caml_val_char, caml_long_val); SIMPLE_MAP(char, caml_val_char, caml_long_val);
SIMPLE_MAP(signed char, caml_val_char, caml_long_val); SIMPLE_MAP(signed char, caml_val_char, caml_long_val);
SIMPLE_MAP(unsigned char, caml_val_uchar, caml_long_val); SIMPLE_MAP(unsigned char, caml_val_uchar, caml_long_val);