Sorry, forgot the attachment.
Andrew
On Wed, Sep 07, 2011 at 12:36:35PM +0100, Andrew Ross wrote:
>
> Hez,
>
> On both my Ubuntu boxes (different versions) the ocaml bindings are
> currently broken. I get an error generation plplot.ml
>
> File "/home/andrew/software/plplot/build/bindings/ocaml/plplot.ml", line 1,
> characters 0-1:
> Error: The implementation
> /home/andrew/software/plplot/build/bindings/ocaml/plplot.ml
> does not match the interface plplot.cmi:
>
> Details of the error are attached. There is a long list of the modules
> which don't match.
>
> I've not tested ocaml for a while so I assume this is related to your
> big update last month.
>
> Let me know if you want more details.
>
> Andrew
[ 0%] Built target plhershey-unicode-gen
[ 0%] Built target plhershey-unicode.h_built
[ 0%] Built target csirocsa
[ 12%] Built target csironn
[ 12%] Built target deltaT-gen
[ 12%] Built target deltaT.h_built
[ 12%] Built target tai-utc-gen
[ 12%] Built target tai-utc.h_built
[ 12%] Built target qsastime
[ 62%] Built target plplotd
[ 62%] Built target target_lib_plplot_stubs
[ 62%] Built target target_plplot_cmi
[ 62%] Generating plplot_core.cmo, plplot.ml, plplot.cmo
File "/home/andrew/software/plplot/build/bindings/ocaml/plplot.ml", line 1,
characters 0-1:
Error: The implementation
/home/andrew/software/plplot/build/bindings/ocaml/plplot.ml
does not match the interface plplot.cmi:
Modules do not match:
sig
val ( |? ) : 'a option -> 'a -> 'a
val verify_arg : bool -> string -> unit
type 'a plot_side_t =
'a Plot.plot_side_t =
Top of 'a
| Bottom of 'a
| Left of 'a
| Right of 'a
type axis_options_t =
Plot.axis_options_t =
Axis
| Frame0
| Frame1
| Time
| Fixed_point
| Major_grid
| Minor_grid
| Invert_ticks
| Log
| Unconventional_label
| Label
| Custom_label
| Minor_ticks
| Minor_tick_count of int
| Major_ticks
| Major_tick_spacing of float
| Vertical_label
type stream_t = Plot.stream_t = { stream : int; }
type color_t =
Plot.color_t =
White
| Red
| Yellow
| Green
| Gray
| Blue
| Light_blue
| Purple
| Pink
| Black
| Brown
| Index_color of int
type map_t =
Plot.map_t =
Globe_outline
| USA_outline
| Countries_outline
| All_outline
type pltr_t = float -> float -> float * float
type line_style_t =
Plot.line_style_t =
Solid_line
| Line1
| Line2
| Line3
| Line4
| Line5
| Line6
| Line7
| Line8
| Custom_line of (int * int) list
type plot_t =
Plot.plot_t =
Arc of
(color_t * float * float * float * float * float * float *
float * bool)
| Axes of
(color_t * axis_options_t list * axis_options_t list *
int * line_style_t *
(plplot_axis_type -> float -> string) option)
| Contours of
(color_t * pltr_t * float array * float array array)
| Image of image_t
| Image_fr of (image_t * (float * float))
| Join of
(color_t * float * float * float * float * int *
line_style_t)
| Labels of (color_t * string * string * string)
| Lines of
(string option * color_t * float array * float array *
int * line_style_t)
| Map of (color_t * map_t * float * float * float * float)
| Points of
(string option * color_t * float array * float array *
string * float)
| Polygon of (color_t * float array * float array * bool)
| Shades of
(int * color_t * int * bool * float * float * float *
float * float array array * float array)
| Text of
(color_t * string * float * float * float * float * float)
| Text_outside of
(color_t * string * float plot_side_t * float * float * bool)
| Set_transform of pltr_t
| Clear_transform
| Set_pltr of pltr_t
| Clear_pltr
| Custom of (unit -> unit)
| List of plot_t list
| Maybe of plot_t option
and image_t =
(float * float) option * float * float * float * float *
float array array
type plot_device_family_t =
Plot.plot_device_family_t =
Cairo
| Qt
| Core
| Wx
type plot_device_t =
Plot.plot_device_t =
Pdf of plot_device_family_t
| Png of plot_device_family_t
| Ps of plot_device_family_t
| Svg of plot_device_family_t
| Window of plot_device_family_t
| Prompt_user
| External of int
| Other_device of string
type plot_scaling_t =
Plot.plot_scaling_t =
Preset
| Greedy
| Equal
| Equal_square
type color_palette_t =
Plot.color_palette_t =
Indexed_palette of string
| Continuous_palette of (string * bool)
val indexed_palette : string -> color_palette_t
val continuous_palette :
?interpolate:bool -> string -> color_palette_t
val default_axis_options : axis_options_t list
val string_ticks_of_axis_options :
axis_options_t list -> string * float * int
val rgb_of_color : color_t -> int * int * int
val string_of_map_t : map_t -> string
val int_of_scaling : plot_scaling_t -> int
val string_of_device_family : plot_device_family_t -> string
val devstring_of_plot_device : plot_device_t -> string * bool
val recommended_extension : plot_device_t -> string
val make_stream : ?stream:int -> unit -> stream_t
val with_stream : ?stream:stream_t -> (unit -> 'a) -> 'a
val int_of_line_style : line_style_t -> int
val set_line_style : ?stream:stream_t -> line_style_t -> unit
val int_of_color : color_t -> int
val set_color : ?stream:stream_t -> color_t -> unit
val set_color_scale :
?stream:stream_t ->
?pos:float array -> ?rev:bool array -> color_t array -> unit
val start_page :
?stream:stream_t ->
float * float -> float * float -> plot_scaling_t -> unit
val load_palette : ?stream:stream_t -> color_palette_t -> unit
val make :
?stream:'a ->
?filename:string ->
?size:int * int ->
?pre:(unit -> unit) -> plot_device_t -> stream_t
val init :
?filename:string ->
?size:int * int ->
?pages:int * int ->
?pre:(unit -> unit) ->
float * float ->
float * float -> plot_scaling_t -> plot_device_t -> stream_t
val make_stream_active : stream:stream_t -> unit
val arc :
?fill:bool ->
color_t ->
float ->
float -> float -> float -> float -> float -> float -> plot_t
val axes :
?color:color_t ->
?style:line_style_t ->
?width:int ->
?labelfunc:(plplot_axis_type -> float -> string) ->
axis_options_t list -> axis_options_t list -> plot_t
val default_axes : plot_t
val circle :
?fill:bool -> color_t -> float -> float -> float -> plot_t
val contours :
color_t -> pltr_t -> float array -> float array array -> plot_t
val image :
?range:float * float ->
float * float -> float * float -> float array array -> plot_t
val imagefr :
?range:float * float ->
scale:float * float ->
float * float -> float * float -> float array array -> plot_t
val join :
?style:line_style_t ->
?width:int ->
color_t -> float * float -> float * float -> plot_t
val label : ?color:color_t -> string -> string -> string -> plot_t
val lines :
?label:string ->
?style:line_style_t ->
?width:int -> color_t -> float array -> float array -> plot_t
val map :
?sw:float * float ->
?ne:float * float -> color_t -> map_t -> plot_t
val points :
?label:string ->
?symbol:string ->
?scale:float -> color_t -> float array -> float array -> plot_t
val polygon :
?fill:bool -> color_t -> float array -> float array -> plot_t
val rectangle :
?fill:bool ->
color_t -> float * float -> float * float -> plot_t
val shades :
?fill_width:int ->
?contour:color_t * int ->
?rect:bool ->
float * float ->
float * float -> float array -> float array array -> plot_t
val text :
?dx:float ->
?dy:float ->
?just:float -> color_t -> float -> float -> string -> plot_t
val text_outside :
?just:float ->
?perp:bool ->
color_t -> float plot_side_t -> float -> string -> plot_t
val func :
?symbol:string ->
?step:float ->
color_t -> (float -> float) -> float * float -> plot_t
val transform : pltr_t -> plot_t
val clear_transform : plot_t
val pltr : pltr_t -> plot_t
val clear_pltr : plot_t
val custom : (unit -> unit) -> plot_t
val list : plot_t list -> plot_t
val maybe : plot_t option -> plot_t
val character_height : ?stream:stream_t -> unit -> float
type legend_entry_t =
Plot.legend_entry_t =
No_legend
| Box_legend of (int * int * float * int * int * string)
| Line_legend of (int * int * int * int * string)
| Symbol_legend of (int * float * int * string * int * string)
val opt_of_entry : legend_entry_t -> plplot_legend_enum
type 'a layout_t =
'a Plot.layout_t =
Row_major of 'a
| Column_major of 'a
val no_legend : legend_entry_t
val box_legend :
?pattern:int ->
?scale:float ->
?line_width:int ->
?label_color:color_t ->
label:string -> color_t -> legend_entry_t
val line_legend :
?style:int ->
?width:int ->
?label_color:color_t ->
label:string -> color_t -> legend_entry_t
val symbol_legend :
?scale:float ->
?number:int ->
?label_color:color_t ->
label:string -> color_t -> string -> legend_entry_t
val row_major : 'a -> 'b -> ('a * 'b) layout_t
val column_major : 'a -> 'b -> ('a * 'b) layout_t
type position_t =
Plot.position_t =
Viewport of unit plot_side_t option *
unit plot_side_t option * float * float * bool option
| Subpage of unit plot_side_t option * unit plot_side_t option *
float * float * bool option
val viewport_pos :
?side1:unit plot_side_t ->
?side2:unit plot_side_t ->
?inside:bool -> float -> float -> position_t
val subpage_pos :
?side1:unit plot_side_t ->
?side2:unit plot_side_t ->
?inside:bool -> float -> float -> position_t
val pos_opt_of_side : 'a plot_side_t -> plplot_position_enum
val convert_position :
position_t option -> float * float * plplot_position_enum list
val convert_bg : color_t option -> 'a -> int * 'a list
val convert_bb :
(color_t * line_style_t) option -> 'a -> int * int * 'a list
val set_color_in :
?stream:stream_t -> color_t -> (unit -> 'a) -> unit
val legend :
?pos:position_t ->
?plot_width:float ->
?bg:color_t ->
?bb:color_t * line_style_t ->
?layout:(int * int) layout_t ->
?color:color_t ->
?text_offset:float ->
?text_scale:float ->
?text_spacing:float ->
?text_justification:float ->
?text_left:bool -> legend_entry_t list list -> plot_t
type colorbar_kind_t =
Plot.colorbar_kind_t =
Gradient_colorbar of float array
| Image_colorbar of float array
| Shade_colorbar of (bool * float array)
val gradient_colorbar : float array -> colorbar_kind_t
val image_colorbar : float array -> colorbar_kind_t
val shade_colorbar :
?custom:bool -> float array -> colorbar_kind_t
val default_colorbar_axis : axis_options_t list
val colorbar :
?pos:position_t ->
?bg:color_t ->
?bb:color_t * line_style_t ->
?cap:float option * float option ->
?contour:color_t * int ->
?orient:(float * float) plot_side_t ->
?axis:axis_options_t list ->
?label:string plot_side_t ->
?color:color_t -> ?scale:float -> colorbar_kind_t -> plot_t
val plot_axes :
?stream:stream_t ->
axis_options_t list -> axis_options_t list -> unit
val plot : ?stream:stream_t -> plot_t list -> unit
val next_page :
?stream:stream_t ->
float * float -> float * float -> plot_scaling_t -> unit
val end_stream : ?stream:stream_t -> unit -> unit
val finish : ?stream:stream_t -> unit -> unit
end
is not included in
sig
type 'a plot_side_t =
Top of 'a
| Bottom of 'a
| Left of 'a
| Right of 'a
type axis_options_t =
Axis
| Frame0
| Frame1
| Time
| Fixed_point
| Major_grid
| Minor_grid
| Invert_ticks
| Log
| Unconventional_label
| Label
| Custom_label
| Minor_ticks
| Minor_tick_count of int
| Major_ticks
| Major_tick_spacing of float
| Vertical_label
type stream_t
type color_t =
White
| Red
| Yellow
| Green
| Gray
| Blue
| Light_blue
| Purple
| Pink
| Black
| Brown
| Index_color of int
type map_t =
Globe_outline
| USA_outline
| Countries_outline
| All_outline
type pltr_t = float -> float -> float * float
type plot_t
type plot_device_family_t = Cairo | Qt | Core | Wx
type plot_device_t =
Pdf of plot_device_family_t
| Png of plot_device_family_t
| Ps of plot_device_family_t
| Svg of plot_device_family_t
| Window of plot_device_family_t
| Prompt_user
| External of int
| Other_device of string
type plot_scaling_t = Preset | Greedy | Equal | Equal_square
type color_palette_t
type line_style_t =
Solid_line
| Line1
| Line2
| Line3
| Line4
| Line5
| Line6
| Line7
| Line8
| Custom_line of (int * int) list
val default_axis_options : axis_options_t list
val rgb_of_color : color_t -> int * int * int
val recommended_extension : plot_device_t -> string
val make_stream : ?stream:int -> unit -> stream_t
val start_page :
?stream:stream_t ->
float * float -> float * float -> plot_scaling_t -> unit
val next_page :
?stream:stream_t ->
float * float -> float * float -> plot_scaling_t -> unit
val make :
?stream:stream_t ->
?filename:string ->
?size:int * int ->
?pre:(unit -> unit) -> plot_device_t -> stream_t
val init :
?filename:string ->
?size:int * int ->
?pages:int * int ->
?pre:(unit -> unit) ->
float * float ->
float * float -> plot_scaling_t -> plot_device_t -> stream_t
val with_stream : ?stream:stream_t -> (unit -> 'a) -> 'a
val make_stream_active : stream:stream_t -> unit
val set_color : ?stream:stream_t -> color_t -> unit
val set_color_scale :
?stream:stream_t ->
?pos:float array -> ?rev:bool array -> color_t array -> unit
val indexed_palette : string -> color_palette_t
val continuous_palette :
?interpolate:bool -> string -> color_palette_t
val load_palette : ?stream:stream_t -> color_palette_t -> unit
val arc :
?fill:bool ->
color_t ->
float ->
float -> float -> float -> float -> float -> float -> plot_t
val axes :
?color:color_t ->
?style:line_style_t ->
?width:int ->
?labelfunc:(plplot_axis_type -> float -> string) ->
axis_options_t list -> axis_options_t list -> plot_t
val default_axes : plot_t
val circle :
?fill:bool -> color_t -> float -> float -> float -> plot_t
val image_colorbar :
?custom_axis:axis_options_t list ->
?label:string plot_side_t ->
?log:bool ->
?pos:float plot_side_t ->
?width:float -> float * float -> plot_t
val shade_colorbar :
?custom_axis:axis_options_t list ->
?label:string plot_side_t ->
?log:bool ->
?pos:float plot_side_t -> ?width:float -> float array -> plot_t
val contours :
color_t -> pltr_t -> float array -> float array array -> plot_t
val image :
?range:float * float ->
float * float -> float * float -> float array array -> plot_t
val imagefr :
?range:float * float ->
scale:float * float ->
float * float -> float * float -> float array array -> plot_t
val join :
?style:line_style_t ->
?width:int ->
color_t -> float * float -> float * float -> plot_t
val label : ?color:color_t -> string -> string -> string -> plot_t
val lines :
?label:string ->
?style:line_style_t ->
?width:int -> color_t -> float array -> float array -> plot_t
val map :
?sw:float * float ->
?ne:float * float -> color_t -> map_t -> plot_t
val points :
?label:string ->
?symbol:string ->
?scale:float -> color_t -> float array -> float array -> plot_t
val polygon :
?fill:bool -> color_t -> float array -> float array -> plot_t
val rectangle :
?fill:bool ->
color_t -> float * float -> float * float -> plot_t
val shades :
?fill_width:int ->
?contour:color_t * int ->
?rect:bool ->
float * float ->
float * float -> float array -> float array array -> plot_t
val text :
?dx:float ->
?dy:float ->
?just:float -> color_t -> float -> float -> string -> plot_t
val text_outside :
?just:float ->
?perp:bool ->
color_t -> float plot_side_t -> float -> string -> plot_t
val func :
?symbol:string ->
?step:float ->
color_t -> (float -> float) -> float * float -> plot_t
val transform : pltr_t -> plot_t
val clear_transform : plot_t
val pltr : pltr_t -> plot_t
val clear_pltr : plot_t
val custom : (unit -> unit) -> plot_t
val list : plot_t list -> plot_t
val maybe : plot_t option -> plot_t
val plot : ?stream:stream_t -> plot_t list -> unit
val character_height : ?stream:stream_t -> unit -> float
type position_t
val viewport_pos :
?side1:unit plot_side_t ->
?side2:unit plot_side_t ->
?inside:bool -> float -> float -> position_t
val subpage_pos :
?side1:unit plot_side_t ->
?side2:unit plot_side_t ->
?inside:bool -> float -> float -> position_t
type legend_entry_t
type 'a layout_t
val no_legend : legend_entry_t
val box_legend :
?pattern:int ->
?scale:float ->
?line_width:int ->
?label_color:color_t ->
label:string -> color_t -> legend_entry_t
val line_legend :
?style:int ->
?width:int ->
?label_color:color_t ->
label:string -> color_t -> legend_entry_t
val symbol_legend :
?scale:float ->
?number:int ->
?label_color:color_t ->
label:string -> color_t -> string -> legend_entry_t
val row_major : 'a -> 'b -> ('a * 'b) layout_t
val column_major : 'a -> 'b -> ('a * 'b) layout_t
val legend :
?pos:position_t ->
?plot_width:float ->
?bg:color_t ->
?bb:color_t * line_style_t ->
?layout:(int * int) layout_t ->
?color:color_t ->
?text_offset:float ->
?text_scale:float ->
?text_spacing:float ->
?text_justification:float ->
?text_left:bool -> legend_entry_t list list -> plot_t
type colorbar_kind_t
val gradient_colorbar : float array -> colorbar_kind_t
val image_colorbar : float array -> colorbar_kind_t
val shade_colorbar :
?custom:bool -> float array -> colorbar_kind_t
val default_colorbar_axis : axis_options_t list
val colorbar :
?pos:position_t ->
?bg:color_t ->
?bb:color_t * line_style_t ->
?cap:float option * float option ->
?contour:color_t * int ->
?orient:(float * float) plot_side_t ->
?axis:axis_options_t list ->
?label:string plot_side_t ->
?color:color_t -> ?scale:float -> colorbar_kind_t -> plot_t
val plot_axes :
?stream:stream_t ->
axis_options_t list -> axis_options_t list -> unit
val end_stream : ?stream:stream_t -> unit -> unit
val finish : ?stream:stream_t -> unit -> unit
end
Values do not match:
val image_colorbar : float array -> colorbar_kind_t
is not included in
val image_colorbar :
?custom_axis:axis_options_t list ->
?label:string plot_side_t ->
?log:bool ->
?pos:float plot_side_t -> ?width:float -> float * float -> plot_t
make[2]: *** [bindings/ocaml/plplot_core.cmo] Error 2
make[1]: *** [bindings/ocaml/CMakeFiles/target_plplot_cmo.dir/all] Error 2
make: *** [all] Error 2
------------------------------------------------------------------------------
Using storage to extend the benefits of virtualization and iSCSI
Virtualization increases hardware utilization and delivers a new level of
agility. Learn what those decisions are and how to modernize your storage
and backup environments for virtualization.
http://www.accelacomm.com/jaw/sfnl/114/51434361/
_______________________________________________
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel
