[cairo-commit] cairo-ocaml/src ml_cairo_ps.c, 1.2, 1.3 cairo_ps.mli, 1.2, 1.3 cairo_ps.ml, 1.2, 1.3

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/src
In directory gabe:/tmp/cvs-serv3163/src

Modified Files:
	ml_cairo_ps.c cairo_ps.mli cairo_ps.ml 
Log Message:
* src/cairo_ps.mli, src/cairo_ps.mli, src/ml_cairo_ps.c: add Cairo_ps.set_dpi


Index: ml_cairo_ps.c
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ml_cairo_ps.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ml_cairo_ps.c	26 May 2005 23:56:10 -0000	1.2
+++ ml_cairo_ps.c	13 Dec 2005 22:31:26 -0000	1.3
@@ -39,12 +39,12 @@
   return _ml_cairo_ps_surface_create_for_stream (f, w, h, 0);
 }
 
-/* ML_3(cairo_ps_surface_set_dpi, cairo_surface_t_val, Double_val, Double_val, Unit) */
+wML_3(cairo_ps_surface_set_dpi, cairo_surface_t_val, Double_val, Double_val, Unit)
 
 #else
 
 Cairo_Unsupported(cairo_ps_surface_create_for_stream_unsafe,	"PS backend not supported");
 Cairo_Unsupported(cairo_ps_surface_create_for_stream,		"PS backend not supported");
-/* Cairo_Unsupported(cairo_ps_surface_set_dpi,			"PS backend not supported"); */
+Cairo_Unsupported(cairo_ps_surface_set_dpi,			"PS backend not supported");
 
 #endif

Index: cairo_ps.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo_ps.mli,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- cairo_ps.mli	26 May 2005 23:56:10 -0000	1.2
+++ cairo_ps.mli	13 Dec 2005 22:31:26 -0000	1.3
@@ -20,5 +20,5 @@
   width_in_points:float -> 
   height_in_points:float -> surface = "ml_cairo_ps_surface_create_for_stream"
 
-(* external set_dpi : *)
-(*   [> `PS] Cairo.surface -> x_dpi:float -> y_dpi:float -> unit = "ml_cairo_ps_surface_set_dpi" *)
+external set_dpi :
+  [> `PS] Cairo.surface -> x_dpi:float -> y_dpi:float -> unit = "ml_cairo_ps_surface_set_dpi"

Index: cairo_ps.ml
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo_ps.ml,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- cairo_ps.ml	26 May 2005 23:56:10 -0000	1.2
+++ cairo_ps.ml	13 Dec 2005 22:31:26 -0000	1.3
@@ -27,5 +27,5 @@
   width_in_points:float -> 
   height_in_points:float -> surface = "ml_cairo_ps_surface_create_for_stream"
 
-(* external set_dpi : *)
-(*   [> `PS] Cairo.surface -> x_dpi:float -> y_dpi:float -> unit = "ml_cairo_ps_surface_set_dpi" *)
+external set_dpi :
+  [> `PS] Cairo.surface -> x_dpi:float -> y_dpi:float -> unit = "ml_cairo_ps_surface_set_dpi"