[Plplot-cvs] SF.net SVN: plplot:[8532] trunk/bindings/ocaml

[<ai...@us...>]

Revision: 8532
          http://plplot.svn.sourceforge.net/plplot/?rev=8532&view=rev
Author:   airwin
Date:     2008-07-19 17:01:30 +0000 (Sat, 19 Jul 2008)

Log Message:
-----------
AWI for Hezekiah M. Carty.  Add/fix support for plhlsrgb and plmkstrm.

Modified Paths:
--------------
    trunk/bindings/ocaml/plplot_h.inc
    trunk/bindings/ocaml/touchup.ml

Modified: trunk/bindings/ocaml/plplot_h.inc
===================================================================
--- trunk/bindings/ocaml/plplot_h.inc	2008-07-19 00:39:26 UTC (rev 8531)
+++ trunk/bindings/ocaml/plplot_h.inc	2008-07-19 17:01:30 UTC (rev 8532)
@@ -51,7 +51,7 @@
 [mlname(plgzax)] void c_plgzax ( [out] int * p_digmax, [out] int * p_digits );
 [mlname(plhist)] void c_plhist ( int n, [in, size_is(n), size_is(n)] double * data, double datmin, double datmax, int nbin, int opt );
 [mlname(plhls)] void c_plhls ( double h, double l, double s );
-[mlname(plhlsrgb)] void c_plhlsrgb ( double h, double l, double s, double * p_r, double * p_g, double * p_b );
+[mlname(plhlsrgb)] void c_plhlsrgb ( double h, double l, double s, [out] double * p_r, [out] double * p_g, [out] double * p_b );
 [mlname(plinit)] void c_plinit ( void );
 [mlname(pljoin)] void c_pljoin ( double x1, double y1, double x2, double y2 );
 [mlname(pllab)] void c_pllab ( [string] const char * xlabel, [string] const char * ylabel, [string] const char * tlabel );
@@ -61,7 +61,7 @@
 [mlname(pllsty)] void c_pllsty ( int lin );
 [mlname(plmesh)] void c_plmesh ( [size_is(nx), in] double * x, [size_is(ny), in] double * y, [size_is(nx, ny), in] double ** z, int nx, int ny, int opt );
 [mlname(plmeshc)] void c_plmeshc ( [size_is(nx), in] double * x, [size_is(ny), in] double * y, [size_is(nx, ny), in] double ** z, int nx, int ny, int opt, [size_is(nlevel), in] double * clevel, int nlevel );
-[mlname(plmkstrm)] void c_plmkstrm ( int * p_strm );
+[mlname(plmkstrm)] void c_plmkstrm ( [out] int * p_strm );
 [mlname(plmtex)] void c_plmtex ( [string] const char * side, double disp, double pos, double just, [string] const char * text );
 [mlname(plmtex3)] void c_plmtex3 ( [string] const char * side, double disp, double pos, double just, [string] const char * text );
 [mlname(plot3d)] void c_plot3d ( [size_is(nx), in] double * x, [size_is(ny), in] double * y, [size_is(nx, ny), in] double ** z, int nx, int ny, int opt, int side );

Modified: trunk/bindings/ocaml/touchup.ml
===================================================================
--- trunk/bindings/ocaml/touchup.ml	2008-07-19 00:39:26 UTC (rev 8531)
+++ trunk/bindings/ocaml/touchup.ml	2008-07-19 17:01:30 UTC (rev 8532)
@@ -48,8 +48,18 @@
     {
       function_name = "c_plrgbhls";
       function_attrs = None;
-      parameter_attrs = Some ["p_h", ["out"]; "p_l", ["out"]; "p_s", ["out"]]
+      parameter_attrs = Some ["p_h", ["out"]; "p_l", ["out"]; "p_s", ["out"]];
     };
+    {
+      function_name = "c_plhlsrgb";
+      function_attrs = None;
+      parameter_attrs = Some ["p_r", ["out"]; "p_g", ["out"]; "p_b", ["out"]];
+    };
+    {
+      function_name = "c_plmkstrm";
+      function_attrs = None;
+      parameter_attrs = Some ["p_strm", ["out"]];
+    };
     (* For now, this will be wrapped by hand...
     {
       function_name = "c_plgriddata";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.