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

swigp4-ified examples.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5232 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-11-01 07:53:48 +00:00
commit 0374f54fce
4 changed files with 21 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
SWIG/Examples/ocaml/simple/Makefile
View file

@ -21,6 +21,12 @@ static::
PROGFILE='$(PROGFILE)' OBJS='$(OBJS)' \
ocaml_static
toplevel::
$(MAKE) -f $(TOP)/Makefile SRCS='$(SRCS)' SWIG='$(SWIG)' \
TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' MLFILE='$(MLFILE)' \
PROGFILE='$(PROGFILE)' OBJS='$(OBJS)' \
ocaml_static_toplevel
clean::
$(MAKE) -f $(TOP)/Makefile MLFILE='$(MLFILE)' ocaml_clean

19
SWIG/Examples/ocaml/simple/example_prog.ml
View file

@ -7,26 +7,21 @@ open Example
exception NoReturn
let single_int x =
match x with C_int a -> a | _ -> raise NoReturn
let get_float x =
match x with C_float f -> f | C_double f -> f | _ -> raise NoReturn
let x = 42
let y = 105
let g = single_int (_gcd (C_list [ C_int x ; C_int y ]))
let _ = Printf.printf "The gcd of %d and %d is %d\n" x y g
let x = 42 to int
let y = 105 to int
let g = _gcd '(x,y) as int
let _ = Printf.printf "The gcd of %d and %d is %d\n" (x as int) (y as int) g
(* Manipulate the Foo global variable *)
(* Output its current value *)
let _ = Printf.printf "Foo = %f\n" (get_float (_Foo C_void))
let _ = Printf.printf "Foo = %f\n" (_Foo '() as float)
(* Change its value *)
let _ = _Foo (C_float 3.1415926)
let _ = _Foo '(3.1415926)
(* See if the change took effect *)
let _ = Printf.printf "Foo = %f\n" (get_float (_Foo C_void))
let _ = Printf.printf "Foo = %f\n" (_Foo '() as float)