diff options
| author | Art Yerkes <ayerkes@speakeasy.net> | 2003-12-04 06:15:07 +0000 |
|---|---|---|
| committer | Art Yerkes <ayerkes@speakeasy.net> | 2003-12-04 06:15:07 +0000 |
| commit | e0dca0ec654d54943f84680a8ad49baa4ba0626b (patch) | |
| tree | c9479b12e0e5b6e539ee69e4e61502683edd9eb1 /Examples/ocaml | |
| parent | a01d61dc64c7cd94ca42f91496dde88890c9e56a (diff) | |
| download | swig-e0dca0ec654d54943f84680a8ad49baa4ba0626b.tar.gz | |
shapes example: slight correction to depth map.
makedebugtop: include swig.cmo
Lib: factored out more common code, slightly reorganized class type.
added director define and exceptions.
std_string: length from the original ocaml string (no longer depends on
null termination)
ocamldec.swg/ocaml.swg: added caml_string_len
Examples/Makefile.in: quiet about checking out files.
Ocaml.cxx:
Fixed abstract director test case.
Include/exclude director.swg based on directors being enabled.
Final edits for 1.3.20, barring bugs being discovered.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5477 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/ocaml')
| -rw-r--r-- | Examples/ocaml/shapes/example.c | 2 | ||||
| -rw-r--r-- | Examples/ocaml/strings_test/runme.ml | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/Examples/ocaml/shapes/example.c b/Examples/ocaml/shapes/example.c index ecf74cefd..c278eb15a 100644 --- a/Examples/ocaml/shapes/example.c +++ b/Examples/ocaml/shapes/example.c @@ -21,7 +21,7 @@ void draw_shape_coverage( shape *s, int div_x, int div_y ) { void draw_depth_map( volume *v, int div_x, int div_y ) { double i,j; - char depth_map_chars[] = "#*+;:,. "; + char depth_map_chars[] = "#*+o;:,. "; double lowbound, highbound; double current = 0.0; bool bounds_set = false; diff --git a/Examples/ocaml/strings_test/runme.ml b/Examples/ocaml/strings_test/runme.ml index 8d3516e9f..0eb56379c 100644 --- a/Examples/ocaml/strings_test/runme.ml +++ b/Examples/ocaml/strings_test/runme.ml @@ -1,5 +1,6 @@ (* This example is meant to reach every case in cstring.i *) +open Swig open Example let _ = _takes_std_string (C_string "foo") |