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

Added example.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4603 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-03-21 16:26:52 +00:00
commit 6418b0c755
4 changed files with 66 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Examples/ocaml/argout_ref/Makefile Normal file
View file

@ -0,0 +1,27 @@
TOP = ../..
SWIG = $(TOP)/../swig
SRCS = example.c
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
OBJS = example.o
all:: static
static::
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' MLFILE='$(MLFILE)' \
PROGFILE='$(PROGFILE)' OBJS='$(OBJS)' \
ocaml_static_cpp
dynamic::
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' MLFILE='$(MLFILE)' \
PROGFILE='$(PROGFILE)' OBJS='$(OBJS)' \
ocaml_dynamic_cpp
clean::
$(MAKE) -f $(TOP)/Makefile MLFILE='$(MLFILE)' ocaml_clean
check: all

19
Examples/ocaml/argout_ref/example.c Normal file
View file

@ -0,0 +1,19 @@
/* File : example.c */
/* Compute the greatest common divisor of positive integers */
int gcd(int x, int y) {
int g;
g = y;
while (x > 0) {
g = x;
x = y % x;
y = g;
}
return g;
}
extern "C" void factor( int &x, int &y ) {
int gcd_xy = gcd( x,y );
x /= gcd_xy;
y /= gcd_xy;
}

4
Examples/ocaml/argout_ref/example.i Normal file
View file

@ -0,0 +1,4 @@
/* File : example.i */
%module example
extern "C" void factor(int &x, int &y);

16
Examples/ocaml/argout_ref/example_prog.ml Normal file
View file

@ -0,0 +1,16 @@
(* example_prog.ml *)
open Example
exception BadReturn
let x = int_of_string Sys.argv.(1)
let y = int_of_string Sys.argv.(2)
let (xf,yf) = match _factor (C_list [ C_int x ; C_int y ]) with
C_list [ C_int a ; C_int b ] -> a,b
| _ -> raise BadReturn
let _ = print_endline
("Factorization of " ^ (string_of_int x) ^
" and " ^ (string_of_int y) ^
" is " ^ (string_of_int xf) ^
" and " ^ (string_of_int yf))