Convert internal functions of graphics and gui to api scilab 53/9453/7
Antoine ELIAS [Tue, 16 Oct 2012 16:04:46 +0000 (18:04 +0200)]
Change-Id: I9429eb6dcadd31c532e537cbee12e18839b1c647

435 files changed:
scilab/modules/api_scilab/Makefile.am
scilab/modules/api_scilab/Makefile.in
scilab/modules/api_scilab/api_scilab.vcxproj
scilab/modules/api_scilab/api_scilab.vcxproj.filters
scilab/modules/api_scilab/core_Import.def
scilab/modules/api_scilab/help/en_US/optionals/getOptionals.xml [new file with mode: 0644]
scilab/modules/api_scilab/includes/api_optional.h [new file with mode: 0644]
scilab/modules/api_scilab/includes/api_scilab.h
scilab/modules/api_scilab/src/cpp/api_optional.cpp [new file with mode: 0644]
scilab/modules/core/includes/stack-c.h
scilab/modules/core/src/c/returnProperty.c
scilab/modules/core/src/c/stack2.c
scilab/modules/graphics/core_Import.def
scilab/modules/graphics/includes/BasicAlgos.h
scilab/modules/graphics/includes/Champ.h
scilab/modules/graphics/includes/Contour.h
scilab/modules/graphics/includes/DefaultCommandArg.h
scilab/modules/graphics/includes/DestroyObjects.h
scilab/modules/graphics/includes/DrawObjects.h
scilab/modules/graphics/includes/Format.h
scilab/modules/graphics/includes/GetCommandArg.h
scilab/modules/graphics/includes/GrayPlot.h
scilab/modules/graphics/includes/PloEch.h
scilab/modules/graphics/includes/Plot2d.h
scilab/modules/graphics/includes/SetProperty.h
scilab/modules/graphics/includes/StringMatrix.h
scilab/modules/graphics/includes/TerminateGraphics.h
scilab/modules/graphics/includes/axesScale.h
scilab/modules/graphics/includes/dynlib_graphics.h
scilab/modules/graphics/includes/getDictionaryGetProperties.h
scilab/modules/graphics/includes/getDictionarySetProperties.h
scilab/modules/graphics/includes/graphicModuleLoad.h
scilab/modules/graphics/includes/math_graphics.h
scilab/modules/graphics/includes/pixel_mode.h
scilab/modules/graphics/includes/sciCall.h
scilab/modules/graphics/includes/sciMatrix.h
scilab/modules/graphics/locales/graphics.pot
scilab/modules/graphics/sci_gateway/c/gw_graphics.c
scilab/modules/graphics/sci_gateway/c/sci_Legend.c
scilab/modules/graphics/sci_gateway/c/sci_StringBox.c
scilab/modules/graphics/sci_gateway/c/sci_champ.c
scilab/modules/graphics/sci_gateway/c/sci_clear_pixmap.c
scilab/modules/graphics/sci_gateway/c/sci_contour2di.c
scilab/modules/graphics/sci_gateway/c/sci_copy.c
scilab/modules/graphics/sci_gateway/c/sci_demo.c
scilab/modules/graphics/sci_gateway/c/sci_draw.c
scilab/modules/graphics/sci_gateway/c/sci_drawaxis.c
scilab/modules/graphics/sci_gateway/c/sci_drawlater.c
scilab/modules/graphics/sci_gateway/c/sci_fec.c
scilab/modules/graphics/sci_gateway/c/sci_get.c
scilab/modules/graphics/sci_gateway/c/sci_glue.c
scilab/modules/graphics/sci_gateway/c/sci_grayplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot1.c
scilab/modules/graphics/sci_gateway/c/sci_move.c
scilab/modules/graphics/sci_gateway/c/sci_newaxes.c
scilab/modules/graphics/sci_gateway/c/sci_param3d.c
scilab/modules/graphics/sci_gateway/c/sci_param3d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot3d.c
scilab/modules/graphics/sci_gateway/c/sci_relocate_handle.c
scilab/modules/graphics/sci_gateway/c/sci_rubberbox.c
scilab/modules/graphics/sci_gateway/c/sci_set.c
scilab/modules/graphics/sci_gateway/c/sci_show_pixmap.c
scilab/modules/graphics/sci_gateway/c/sci_show_window.c
scilab/modules/graphics/sci_gateway/c/sci_swap_handles.c
scilab/modules/graphics/sci_gateway/c/sci_unzoom.c
scilab/modules/graphics/sci_gateway/c/sci_xarc.c
scilab/modules/graphics/sci_gateway/c/sci_xarrows.c
scilab/modules/graphics/sci_gateway/c/sci_xchange.c
scilab/modules/graphics/sci_gateway/c/sci_xclick.c
scilab/modules/graphics/sci_gateway/c/sci_xdel.c
scilab/modules/graphics/sci_gateway/c/sci_xget.c
scilab/modules/graphics/sci_gateway/c/sci_xgetmouse.c
scilab/modules/graphics/sci_gateway/c/sci_xlfont.c
scilab/modules/graphics/sci_gateway/c/sci_xpoly.c
scilab/modules/graphics/sci_gateway/c/sci_xrect.c
scilab/modules/graphics/sci_gateway/c/sci_xrects.c
scilab/modules/graphics/sci_gateway/c/sci_xsegs.c
scilab/modules/graphics/sci_gateway/c/sci_xset.c
scilab/modules/graphics/sci_gateway/c/sci_xtitle.c
scilab/modules/graphics/sci_gateway/c/sci_zoom_rect.c
scilab/modules/graphics/src/c/Axes.c
scilab/modules/graphics/src/c/BasicAlgos.c
scilab/modules/graphics/src/c/BuildObjects.c
scilab/modules/graphics/src/c/Champ.c
scilab/modules/graphics/src/c/CheckScilabXgc.h
scilab/modules/graphics/src/c/Contour.c
scilab/modules/graphics/src/c/DefaultCommandArg.c
scilab/modules/graphics/src/c/DestroyObjects.c
scilab/modules/graphics/src/c/DllmainGraphics.c
scilab/modules/graphics/src/c/DrawObjects.c
scilab/modules/graphics/src/c/FeC.c
scilab/modules/graphics/src/c/Fec.h
scilab/modules/graphics/src/c/Format.c
scilab/modules/graphics/src/c/GetCommandArg.c
scilab/modules/graphics/src/c/GetProperty.c
scilab/modules/graphics/src/c/Plo2dn.c
scilab/modules/graphics/src/c/SetProperty.c
scilab/modules/graphics/src/c/StringBox.c
scilab/modules/graphics/src/c/StringBox.h
scilab/modules/graphics/src/c/StringMatrix.c
scilab/modules/graphics/src/c/TerminateGraphics.c
scilab/modules/graphics/src/c/XsetXgetParameters.h
scilab/modules/graphics/src/c/axesScale.c
scilab/modules/graphics/src/c/getHandleProperty/CheckTicksProperty.c
scilab/modules/graphics/src/c/getHandleProperty/CheckTicksProperty.h
scilab/modules/graphics/src/c/getHandleProperty/GetHashTable.c
scilab/modules/graphics/src/c/getHandleProperty/GetHashTable.h
scilab/modules/graphics/src/c/getHandleProperty/SetHashTable.c
scilab/modules/graphics/src/c/getHandleProperty/SetHashTable.h
scilab/modules/graphics/src/c/getHandleProperty/SetPropertyStatus.c
scilab/modules/graphics/src/c/getHandleProperty/SetPropertyStatus.h
scilab/modules/graphics/src/c/getHandleProperty/getHandleProperty.h
scilab/modules/graphics/src/c/getHandleProperty/getPropertyAssignedValue.c
scilab/modules/graphics/src/c/getHandleProperty/getPropertyAssignedValue.h
scilab/modules/graphics/src/c/getHandleProperty/get_alignment_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_anti_aliasing_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_arc_drawing_method_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_arrow_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_clear_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_dimensionning_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_resize_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_scale_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_auto_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_axes_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_axes_reverse_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_axes_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_axes_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_bar_layout_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_bar_width_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_callback_type_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_cdata_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_clip_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_clip_state_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_closed_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_color_flag_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_color_map_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_color_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_color_range_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_colored_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_cube_scaling_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_current_axes_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_data_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_data_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_default_axes_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_default_figure_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_event_handler_enable_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_event_handler_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figure_id_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figure_name_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figure_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figure_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figure_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_figures_id_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_fill_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_filled_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_angle_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_format_n_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_grid_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_hidden_axis_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_hidden_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_immediate_drawing_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_info_message_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_interp_color_mode.c
scilab/modules/graphics/src/c/getHandleProperty/get_interp_color_vector.c
scilab/modules/graphics/src/c/getHandleProperty/get_isoview_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_labels_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_labels_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_labels_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_legend_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_line_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_line_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_log_flags_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_margins_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_background_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_size_unit_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_mark_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_old_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_outside_colors_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_pixel_drawing_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_pixmap_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_rotation_angles_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_rotation_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_screen_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_segs_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_sub_tics_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_surface_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_surface_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_text_box_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_text_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_text_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_thickness_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_tics_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_tics_direction_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_tics_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_tics_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_tight_limits_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_triangles_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_type_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_view_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_viewport_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_x_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_x_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_x_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_xtics_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_y_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_y_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_y_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_y_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_ytics_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_z_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_z_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_z_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_z_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_zoom_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_zoom_state_property.c
scilab/modules/graphics/src/c/getHandleProperty/setGetHashTable.c
scilab/modules/graphics/src/c/getHandleProperty/setGetHashTable.h
scilab/modules/graphics/src/c/getHandleProperty/setHandleProperty.h
scilab/modules/graphics/src/c/getHandleProperty/set_alignment_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_anti_aliasing_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arc_drawing_method_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arrow_size_factor_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arrow_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_clear_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_dimensionning_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_resize_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_rotation_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_scale_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_reverse_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_background_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_bar_layout_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_bar_width_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_callback_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_callback_type_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_cdata_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_children_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_clip_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_clip_state_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_closed_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_flag_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_map_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_range_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_colored_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_cube_scaling_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_axes_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_entity_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_figure_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_default_values_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_event_handler_enable_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_event_handler_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_closerequestfcn_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_id_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_name_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_resizefcn_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_fill_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_filled_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_angle_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_format_n_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_fractional_font_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_grid_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_grid_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_handle_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_hidden_axis_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_hidden_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_immediate_drawing_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_info_message_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_interp_color_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_interp_color_vector_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_isoview_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_label_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_labels_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_labels_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_legend_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_line_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_line_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_links_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_log_flags_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_margins_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_background_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_size_unit_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_old_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_outside_colors_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_parent_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_pixel_drawing_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_pixmap_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_polyline_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_rotation_angles_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_rotation_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_screen_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_segs_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_sub_tics_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_surface_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_surface_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tag_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_box_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_thickness_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_direction_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_labels_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_segment_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tight_limits_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_title_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_triangles_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_user_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_view_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_viewport_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_xtics_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_yticks_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_zoom_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_zoom_state_property.c
scilab/modules/graphics/src/c/get_ticks_utils.c
scilab/modules/graphics/src/c/get_ticks_utils.h
scilab/modules/graphics/src/c/graphicModuleLoad.c
scilab/modules/graphics/src/c/loadTextRenderingAPI.c
scilab/modules/graphics/src/c/math_graphics.c
scilab/modules/graphics/src/c/pixel_mode.c
scilab/modules/graphics/src/c/sciCall.c
scilab/modules/graphics/src/c/sciMatrix.c
scilab/modules/graphics/src/c/scitokenize.c
scilab/modules/graphics/src/c/scitokenize.h
scilab/modules/graphics/src/nographics/nographics.c
scilab/modules/gui/includes/InitUIMenu.h
scilab/modules/gui/includes/SetConsoleShowHiddenHandles.h
scilab/modules/gui/includes/SetUicontrolBackgroundColor.h
scilab/modules/gui/includes/SetUicontrolFontAngle.h
scilab/modules/gui/includes/SetUicontrolFontName.h
scilab/modules/gui/includes/SetUicontrolFontSize.h
scilab/modules/gui/includes/SetUicontrolFontUnits.h
scilab/modules/gui/includes/SetUicontrolFontWeight.h
scilab/modules/gui/includes/SetUicontrolHorizontalAlignment.h
scilab/modules/gui/includes/SetUicontrolListboxTop.h
scilab/modules/gui/includes/SetUicontrolMax.h
scilab/modules/gui/includes/SetUicontrolMin.h
scilab/modules/gui/includes/SetUicontrolPosition.h
scilab/modules/gui/includes/SetUicontrolRelief.h
scilab/modules/gui/includes/SetUicontrolSliderStep.h
scilab/modules/gui/includes/SetUicontrolString.h
scilab/modules/gui/includes/SetUicontrolTooltipString.h
scilab/modules/gui/includes/SetUicontrolUnits.h
scilab/modules/gui/includes/SetUicontrolValue.h
scilab/modules/gui/includes/SetUicontrolVerticalAlignment.h
scilab/modules/gui/includes/SetUimenuChecked.h
scilab/modules/gui/includes/SetUimenuLabel.h
scilab/modules/gui/includes/SetUiobjectEnable.h
scilab/modules/gui/includes/SetUiobjectForegroundColor.h
scilab/modules/gui/sci_gateway/c/sci_exportUI.c
scilab/modules/gui/sci_gateway/c/sci_helpbrowser.c
scilab/modules/gui/sci_gateway/c/sci_messagebox.c
scilab/modules/gui/sci_gateway/c/sci_progressionbar.c
scilab/modules/gui/sci_gateway/c/sci_uigetfont.c
scilab/modules/gui/sci_gateway/c/sci_waitbar.c
scilab/modules/gui/sci_gateway/c/sci_x_choice.c
scilab/modules/gui/sci_gateway/c/sci_x_choose.c
scilab/modules/gui/sci_gateway/c/sci_x_choose_modeless.c
scilab/modules/gui/sci_gateway/c/sci_x_dialog.c
scilab/modules/gui/sci_gateway/c/sci_x_mdialog.c
scilab/modules/gui/src/cpp/GetUicontrolStyle.cpp
scilab/modules/gui/src/cpp/InitUIMenu.cpp
scilab/modules/gui/src/cpp/SetConsoleShowHiddenHandles.cpp
scilab/modules/gui/src/cpp/SetUicontrolBackgroundColor.cpp
scilab/modules/gui/src/cpp/SetUicontrolFontAngle.cpp
scilab/modules/gui/src/cpp/SetUicontrolFontName.cpp
scilab/modules/gui/src/cpp/SetUicontrolFontSize.cpp
scilab/modules/gui/src/cpp/SetUicontrolFontUnits.cpp
scilab/modules/gui/src/cpp/SetUicontrolFontWeight.cpp
scilab/modules/gui/src/cpp/SetUicontrolHorizontalAlignment.cpp
scilab/modules/gui/src/cpp/SetUicontrolListboxTop.cpp
scilab/modules/gui/src/cpp/SetUicontrolMax.cpp
scilab/modules/gui/src/cpp/SetUicontrolMin.cpp
scilab/modules/gui/src/cpp/SetUicontrolPosition.cpp
scilab/modules/gui/src/cpp/SetUicontrolRelief.cpp
scilab/modules/gui/src/cpp/SetUicontrolSliderStep.cpp
scilab/modules/gui/src/cpp/SetUicontrolString.cpp
scilab/modules/gui/src/cpp/SetUicontrolTooltipString.cpp
scilab/modules/gui/src/cpp/SetUicontrolUnits.cpp
scilab/modules/gui/src/cpp/SetUicontrolValue.cpp
scilab/modules/gui/src/cpp/SetUicontrolVerticalAlignment.cpp
scilab/modules/gui/src/cpp/SetUimenuChecked.cpp
scilab/modules/gui/src/cpp/SetUimenuLabel.cpp
scilab/modules/gui/src/cpp/SetUiobjectEnable.cpp
scilab/modules/gui/src/cpp/SetUiobjectForegroundColor.cpp

index a598d04..020aa19 100644 (file)
@@ -17,7 +17,8 @@ src/cpp/api_sparse.cpp \
 src/cpp/api_string.cpp \
 src/cpp/api_pointer.cpp \
 src/cpp/api_handle.cpp \
-src/cpp/api_error.cpp
+src/cpp/api_error.cpp \
+src/cpp/api_optional.cpp
 
 
 libsciapi_scilab_la_CPPFLAGS=-I$(srcdir)/includes/ \
index e6ba81a..3f846ac 100644 (file)
@@ -147,7 +147,8 @@ am__objects_1 = libsciapi_scilab_la-api_boolean.lo \
        libsciapi_scilab_la-api_string.lo \
        libsciapi_scilab_la-api_pointer.lo \
        libsciapi_scilab_la-api_handle.lo \
-       libsciapi_scilab_la-api_error.lo
+       libsciapi_scilab_la-api_error.lo \
+       libsciapi_scilab_la-api_optional.lo
 am_libsciapi_scilab_la_OBJECTS = $(am__objects_1)
 libsciapi_scilab_la_OBJECTS = $(am_libsciapi_scilab_la_OBJECTS)
 @MAINTAINER_MODE_FALSE@am_libsciapi_scilab_la_rpath =
@@ -442,7 +443,8 @@ src/cpp/api_sparse.cpp \
 src/cpp/api_string.cpp \
 src/cpp/api_pointer.cpp \
 src/cpp/api_handle.cpp \
-src/cpp/api_error.cpp
+src/cpp/api_error.cpp \
+src/cpp/api_optional.cpp
 
 libsciapi_scilab_la_CPPFLAGS = -I$(srcdir)/includes/ \
 -I$(srcdir)/src/cpp/ \
@@ -657,6 +659,7 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_handle.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_int.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_list.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_optional.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_pointer.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_poly.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libsciapi_scilab_la-api_sparse.Plo@am__quote@
@@ -767,6 +770,13 @@ libsciapi_scilab_la-api_error.lo: src/cpp/api_error.cpp
 @AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCXX_FALSE@ $(LIBTOOL)  --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libsciapi_scilab_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libsciapi_scilab_la-api_error.lo `test -f 'src/cpp/api_error.cpp' || echo '$(srcdir)/'`src/cpp/api_error.cpp
 
+libsciapi_scilab_la-api_optional.lo: src/cpp/api_optional.cpp
+@am__fastdepCXX_TRUE@  $(LIBTOOL)  --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libsciapi_scilab_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT libsciapi_scilab_la-api_optional.lo -MD -MP -MF $(DEPDIR)/libsciapi_scilab_la-api_optional.Tpo -c -o libsciapi_scilab_la-api_optional.lo `test -f 'src/cpp/api_optional.cpp' || echo '$(srcdir)/'`src/cpp/api_optional.cpp
+@am__fastdepCXX_TRUE@  $(am__mv) $(DEPDIR)/libsciapi_scilab_la-api_optional.Tpo $(DEPDIR)/libsciapi_scilab_la-api_optional.Plo
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@     source='src/cpp/api_optional.cpp' object='libsciapi_scilab_la-api_optional.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(LIBTOOL)  --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libsciapi_scilab_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o libsciapi_scilab_la-api_optional.lo `test -f 'src/cpp/api_optional.cpp' || echo '$(srcdir)/'`src/cpp/api_optional.cpp
+
 mostlyclean-libtool:
        -rm -f *.lo
 
index 56e3389..5f921bb 100644 (file)
@@ -248,6 +248,7 @@ lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform
     <ClCompile Include="src\cpp\api_handle.cpp" />
     <ClCompile Include="src\cpp\api_int.cpp" />
     <ClCompile Include="src\cpp\api_list.cpp" />
+    <ClCompile Include="src\cpp\api_optional.cpp" />
     <ClCompile Include="src\cpp\api_pointer.cpp" />
     <ClCompile Include="src\cpp\api_poly.cpp" />
     <ClCompile Include="src\cpp\api_sparse.cpp" />
@@ -263,6 +264,7 @@ lib /DEF:"$(ProjectDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform
     <ClInclude Include="includes\api_handle.h" />
     <ClInclude Include="includes\api_int.h" />
     <ClInclude Include="includes\api_internal_handle.h" />
+    <ClInclude Include="includes\api_optional.h" />
     <ClInclude Include="src\cpp\api_internal_boolean.h" />
     <ClInclude Include="src\cpp\api_internal_boolean_sparse.h" />
     <ClInclude Include="src\cpp\api_internal_common.h" />
index 11d5d77..26fc34c 100644 (file)
@@ -66,6 +66,9 @@
     <ClCompile Include="src\cpp\api_handle.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
+    <ClCompile Include="src\cpp\api_optional.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
   </ItemGroup>
   <ItemGroup>
     <ClInclude Include="includes\api_boolean.h">
     <ClInclude Include="includes\api_internal_handle.h">
       <Filter>Header Files</Filter>
     </ClInclude>
+    <ClInclude Include="includes\api_optional.h">
+      <Filter>Header Files</Filter>
+    </ClInclude>
   </ItemGroup>
   <ItemGroup>
     <ResourceCompile Include="src\c\api_scilab.rc">
index dc643ad..17a834a 100644 (file)
@@ -17,3 +17,5 @@ oGetDoubleComplexFromPointer
 getExecMode
 getstackinfo_
 freeArrayOfString
+isopt_
+numopt_
\ No newline at end of file
diff --git a/scilab/modules/api_scilab/help/en_US/optionals/getOptionals.xml b/scilab/modules/api_scilab/help/en_US/optionals/getOptionals.xml
new file mode 100644 (file)
index 0000000..cf92704
--- /dev/null
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:html="http://www.w3.org/1999/xhtml" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="getOptionals" xml:lang="en">
+    <refnamediv>
+        <refname>get optional argument (Scilab gateway)</refname>
+    </refnamediv>
+    <refsynopsisdiv>
+        <title>Calling Sequence</title>
+        <synopsis>int getOptionals(void* _pvCtx, char* fname, rhs_opts opts[])</synopsis>
+    </refsynopsisdiv>
+    <refsection>
+        <title>Arguments</title>
+        <variablelist>
+            <varlistentry>
+                <term>_pvCtx</term>
+                <listitem>
+                    <para>
+                        Scilab environment pointer, pass in "pvApiCtx" provided by api_scilab.h
+                    </para>
+                </listitem>
+            </varlistentry>
+            <varlistentry>
+                <term>fname</term>
+                <listitem>
+                    <para>
+                        Name of the calling function.
+                    </para>
+                </listitem>
+            </varlistentry>
+            <varlistentry>
+                <term>opts</term>
+                <listitem>
+                    <para>structure array of optional argument</para>
+                </listitem>
+            </varlistentry>
+        </variablelist>
+    </refsection>
+    <refsection>
+        <title>Description</title>
+        <para>
+            A C gateway functions which use optional arguments.
+        </para>
+    </refsection>
+    <refsection>
+        <title>Examples</title>
+        <para>
+            In this example, the C interface function can take several optional
+            arguments and prints theirs dimensions if exists.
+        </para>
+        <programlisting role="example">
+            <![CDATA[ 
+#include "api_scilab.h"
+#include "sciprint.h"
+#include "sciprint.h"
+#include "sciprint.h"
+
+int sci_use_optional(char * fname)
+{
+    SciErr sciErr;
+
+    char* pstName = NULL;
+    int iAge = 0;
+    int iDL = 0;
+
+    static rhs_opts opts[] =
+    {
+        { -1, "age", -1, 0, 0, NULL},
+        { -1, "drivinglicense", -1, 0, 0, NULL},
+        { -1, "name", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
+    };
+
+    int nopt = NumOpt();
+
+    CheckInputArgument(pvApiCtx, 0, nopt);
+    CheckOutputArgument(pvApiCtx, 0, 1);
+
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
+    {
+        //Error
+        return 1;
+    }
+
+    if (opts[0].iPos != -1)
+    {//age
+        double dblAge = 0;
+        getScalarDouble(pvApiCtx, opts[0].piAddr, &dblAge);
+        iAge = (int)dblAge;
+    }
+    else
+    {
+        iAge = 77;
+    }
+
+    if (opts[1].iPos != -1)
+    {//drivinglicense
+        getScalarBoolean(pvApiCtx, opts[1].piAddr, &iDL);
+    }
+    else
+    {
+        iDL = 0;
+    }
+
+    if (opts[2].iPos != -1)
+    {//Name
+        getAllocatedSingleString(pvApiCtx, opts[2].piAddr, &pstName);
+    }
+    else
+    {
+        pstName = strdup("John Doe");
+    }
+
+
+
+
+    sciprint("Read information: \n");
+    sciprint("\tName: \t\t\t%s\n", pstName);
+    sciprint("\tAge: \t\t\t%d\n", iAge);
+    sciprint("\tDriving licence: \t%s\n", iDL ? "Yes" : "No");
+    //no return value
+    AssignOutputVariable(pvApiCtx, 0) = 1;
+    return 0;
+}
+ ]]>
+        </programlisting>
+    </refsection>
+    <refsection>
+        <title>Scilab test script</title>
+        <programlisting role="code_scilab">
+            <![CDATA[ 
+use_optional();
+use_optional(name = "M. Puffin");
+use_optional(age = 25, name = "M. Puffin");
+use_optional(drivinglicense = %t, age = 25, name = "M. Puffin");
+ ]]>
+        </programlisting>
+    </refsection>
+    <title>History</title>
+    <revhistory>
+        <revision>
+            <revnumber>5.5.0</revnumber>
+            <revremark>This function added in Scilab 5.5.0</revremark>
+        </revision>
+    </revhistory>
+</refentry>
diff --git a/scilab/modules/api_scilab/includes/api_optional.h b/scilab/modules/api_scilab/includes/api_optional.h
new file mode 100644 (file)
index 0000000..9e8daad
--- /dev/null
@@ -0,0 +1,35 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2012 - Scilab Enterprises - Antoine ELIAS
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ */
+
+#ifndef __OPTINAL_API__
+#define __OPTINAL_API__
+
+#if !defined(__INTERNAL_API_SCILAB__)
+#error Do not include api_optinal.h. Include api_scilab.h instead.
+#endif
+
+#include "stack-c.h"
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+    /**
+     * Get optional variable
+     * @param[in] name of function caller
+     * @param[in/out] opts structure of optional arguments
+     * @return if the operation succeeded ( 0 ) or not ( !0 )
+     */
+    int getOptionals(void* _pvCtx, char* fname, rhs_opts opts[]);
+
+#ifdef __cplusplus
+}
+#endif
+#endif /* __OPTINAL_API__ */
index a19cc48..1af6a54 100644 (file)
@@ -46,6 +46,7 @@
 #include "api_list.h"
 #include "api_error.h"
 #include "api_handle.h"
+#include "api_optional.h"
 #undef __INTERNAL_API_SCILAB__
 
 #include "core_math.h"
diff --git a/scilab/modules/api_scilab/src/cpp/api_optional.cpp b/scilab/modules/api_scilab/src/cpp/api_optional.cpp
new file mode 100644 (file)
index 0000000..e9b8a97
--- /dev/null
@@ -0,0 +1,117 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2012 - Scilab Enterprises - Antoine ELIAS
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ */
+
+#include "api_scilab.h"
+#include "localization.h"
+#include "Scierror.h"
+#include "call_scilab.h"
+#include "sciprint.h"
+
+static int findOptional(void* _pvCtx, char *fname, rhs_opts opts[]);
+static void printOptionalNames(void* _pvCtx, rhs_opts opts[]);
+
+/**************************/
+/*   optional functions   */
+/**************************/
+int getOptionals(void* _pvCtx, char* fname, rhs_opts opts[])
+{
+    int k, i = 0;
+    char name[nlgh + 1];
+    int nopt = NumOpt();        /* optional arguments on the stack */
+
+    /* reset first field since opts is declared static in calling function */
+    /* this could be avoided with ansi compilers by removing static in the
+     * opts declaration */
+
+    while (opts[i].pstName != NULL)
+    {
+        opts[i].iPos = -1;
+        i++;
+    }
+
+    /* Walking through last arguments */
+
+    for (k = Rhs - nopt + 1; k <= Rhs; k++)
+    {
+        if (IsOpt(k, name) == 0)
+        {
+            Scierror(999, _("%s: Optional arguments name=val must be at the end.\n"), fname);
+            return 0;
+        }
+        else
+        {
+            int isopt = findOptional(_pvCtx, name, opts);
+
+            if (isopt >= 0)
+            {
+                rhs_opts *ro = &opts[isopt];
+                ro->iPos = k;
+                getVarAddressFromPosition(_pvCtx, k, &ro->piAddr);
+                getVarType(_pvCtx, ro->piAddr, &ro->iType);
+                getVarDimension(_pvCtx, ro->piAddr, &ro->iRows, &ro->iCols);
+            }
+            else
+            {
+                sciprint(_("%s: Unrecognized optional arguments %s.\n"), fname, name);
+                printOptionalNames(_pvCtx, opts);
+                SciError(999);
+                return 0;
+            }
+        }
+    }
+    return 1;
+}
+
+static int findOptional(void* _pvCtx, char *fname, rhs_opts opts[])
+{
+    int rep = -1, i = 0;
+
+    while (opts[i].pstName != NULL)
+    {
+        int cmp;
+
+        /* name is terminated by white space and we want to ignore them */
+        if ((cmp = strcmp(fname, opts[i].pstName)) == 0)
+        {
+            rep = i;
+            break;
+        }
+        else if (cmp < 0)
+        {
+            break;
+        }
+        else
+        {
+            i++;
+        }
+    }
+    return rep;
+}
+
+void printOptionalNames(void* _pvCtx, rhs_opts opts[])
+/* array of optinal names (in alphabetical order)
+* the array is null terminated */
+{
+    int i = 0;
+
+    if (opts[i].pstName == NULL)
+    {
+        sciprint(_("Optional argument list is empty.\n"));
+        return;
+    }
+    sciprint(_("Optional arguments list: \n"));
+    while (opts[i + 1].pstName != NULL)
+    {
+        sciprint("%s, ", opts[i].pstName);
+        i++;
+    }
+    sciprint(_("and %s.\n"), opts[i].pstName);
+}
index 6ab317c..88ea747 100644 (file)
@@ -2,11 +2,11 @@
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) INRIA
  * Copyright (C) ENPC
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
@@ -16,7 +16,7 @@
 #define STACK_SCI
 
 #if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-    #error Using stack-c.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack-c.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
+#error Using stack-c.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack-c.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
 #endif
 
 #include <string.h>
@@ -41,11 +41,11 @@ extern "C" {
 #include "stack3.h"
 #include "sci_types.h"
 
-/*-------------------------------------------------
- * structure used for int matrix
- * -------------------------------------------------*/
+    /*-------------------------------------------------
+     * structure used for int matrix
+     * -------------------------------------------------*/
 
-/* a set of define to decode it argument */
+    /* a set of define to decode it argument */
 
 #define I_CHAR 1
 #define I_INT16 2
@@ -54,7 +54,7 @@ extern "C" {
 #define I_UINT16 12
 #define I_UINT32 14
 
-/* a set of define for the associated casts */
+    /* a set of define for the associated casts */
 
 #define IC_CHAR(x) ((char *) (x))
 #define IC_INT16(x) ((short int *) (x))
@@ -63,42 +63,43 @@ extern "C" {
 #define IC_UINT16(x)   ((unsigned short int *) (x))
 #define IC_UINT32(x)  ((unsigned int *) (x))
 
-/**
- * sciintmat
- */
-typedef struct sciintmat {
-       int m,n;
-       int it ; /**< it : 1,2,4,11,12,14  */
-       int l;   /**< if l != -1 then istk(l) == D */
-       void *D;     /**< data : should be casted according to it */
-} SciIntMat ;
+    /**
+     * sciintmat
+     */
+    typedef struct sciintmat
+    {
+        int m, n;
+        int it ; /**< it : 1,2,4,11,12,14  */
+        int l;   /**< if l != -1 then istk(l) == D */
+        void *D;     /**< data : should be casted according to it */
+    } SciIntMat ;
 
 
 
-/*-------------------------------------------------
- * set of defines for interface simplication
- * -------------------------------------------------*/
+    /*-------------------------------------------------
+     * set of defines for interface simplication
+     * -------------------------------------------------*/
 
-static int c1_local=0;
-static int c_local=0;
+    static int c1_local = 0;
+    static int c_local = 0;
 
-static void initial_c1_local(void);
-static void initial_c_local(void);
+    static void initial_c1_local(void);
+    static void initial_c_local(void);
 
-/* Correction Warning variable "c_local" was declared but never referenced */
-/* initial_c_local not used */
-static void initial_c_local(void)
-{
-       initial_c1_local();
-       c_local=0;
-}
-/* Correction Warning variable "c1_local" was declared but never referenced */
-/* initial_c1_local not used */
-static void initial_c1_local(void)
-{
-       initial_c_local();
-       c1_local=0;
-}
+    /* Correction Warning variable "c_local" was declared but never referenced */
+    /* initial_c_local not used */
+    static void initial_c_local(void)
+    {
+        initial_c1_local();
+        c_local = 0;
+    }
+    /* Correction Warning variable "c1_local" was declared but never referenced */
+    /* initial_c1_local not used */
+    static void initial_c1_local(void)
+    {
+        initial_c_local();
+        c1_local = 0;
+    }
 
 
 
@@ -106,7 +107,7 @@ static void initial_c1_local(void)
 #define sadr(l) (((l)/2)+1)
 #define cadr(l) ((l)+(l)+(l)+(l)-3)
 
-/* Top is a variable used in Windows.h */
+    /* Top is a variable used in Windows.h */
 #ifdef Top
 #undef Top
 #endif
@@ -129,7 +130,7 @@ static void initial_c1_local(void)
 #define Lstk(x) (((int *) C2F(vstk).lstk) + x-1 )
 #define Infstk(x) (((int *) C2F(vstk).infstk) + x-1 )
 
-/* to retreive handles on the stack */
+    /* to retreive handles on the stack */
 #define hstk(x) (((long long *) C2F(stack).Stk) + x-1 )
 
 #define CheckOpt(first) if ( C2F(checkopt)(first) ) {return 0;}
@@ -164,16 +165,16 @@ static void initial_c1_local(void)
 
 #define OverLoad(n) C2F(overload)((c_local = (n == 0) ? n : n + Top - Rhs, &c_local),fname,(unsigned long)strlen(fname))
 
-/**
- * <long-description>
- *
- * @param n
- * @param ct
- * @param mx
- * @param nx
- * @param lx
- * @return <ReturnValue>
- */
+    /**
+     * <long-description>
+     *
+     * @param n
+     * @param ct
+     * @param mx
+     * @param nx
+     * @param lx
+     * @return <ReturnValue>
+     */
 #define GetRhsVar(n,ct,mx,nx,lx) if (! C2F(getrhsvar)((c_local=n,&c_local),ct,mx,nx,(int *) lx,1L))\
         { return 0;  }
 
@@ -259,22 +260,22 @@ static void initial_c1_local(void)
 
 #endif
 
-/** used for conversion to Scilab internal format **/
+    /** used for conversion to Scilab internal format **/
 
 #define Convert2Sci(x)  C2F(convert2sci)((c_local=x,&c_local))
 
 
-/** Used for calling a scilab function by its name  **/
+    /** Used for calling a scilab function by its name  **/
 
 #define SciString(ibegin,name,mlhs,mrhs) \
     if( ! C2F(scistring)(ibegin,name,mlhs,mrhs,(unsigned long)strlen(name))) return 0;
 
-/** Used for calling a scilab function given as argument **/
+    /** Used for calling a scilab function given as argument **/
 
 #define SciFunction(ibegin,lf,mlhs,mrhs) \
     if( ! C2F(scifunction)(ibegin,lf,mlhs,mrhs)) return 0;
 
-/** used for protecting a call to a Scilab function **/
+    /** used for protecting a call to a Scilab function **/
 
 #define PExecSciFunction(n,mx,nx,lx,name,fsqpenv) \
   if(! C2F(scifunction)((c_local=n,&c_local),mx,nx,lx))\
@@ -282,30 +283,31 @@ static void initial_c1_local(void)
 
 #define Nbvars C2F(intersci).nbvars
 
-/**
- * TODO : need a comment !!!!
- *
- */
+    /**
+     * TODO : need a comment !!!!
+     *
+     */
 #define LhsVar(x) C2F(intersci).lhsvar[x-1]
 
 
-/* used to access data associated to a variable
- * for example when a variable is created with CreateVarFromPtr(...)
- */
+    /* used to access data associated to a variable
+     * for example when a variable is created with CreateVarFromPtr(...)
+     */
 
 #define VarPtr(x) C2F(intersci).lad[x-1]
 
-typedef int (*interfun)(char *fname,unsigned long l);
+    typedef int (*interfun)(char *fname, unsigned long l);
 
-typedef struct tagTabF {
-  interfun f;
-  char *name;
-} TabF;
+    typedef struct tagTabF
+    {
+        interfun f;
+        char *name;
+    } TabF;
 
 
-/*-------------------------------------------------
- * checks properties
- * -------------------------------------------------*/
+    /*-------------------------------------------------
+     * checks properties
+     * -------------------------------------------------*/
 
 #define CheckSquare(pos,m,n) if (! check_square(pos,m,n)) return 0;
 #define CheckVector(pos,m,n) if (! check_vector(pos,m,n)) return 0;
@@ -325,25 +327,27 @@ typedef struct tagTabF {
 #define CheckListScalar(lpos,pos,m,n) if (! check_list_scalar(lpos,pos,m,n)) return 0;
 #define CheckListOneDim(lpos,pos,dim,val,valref) if (! check_list_one_dim(lpos,pos,dim,val,valref)) return 0;
 
-/*-------------------------------------------------
- * structure used for optional arguments in interfaces
- * -------------------------------------------------*/
+    /*-------------------------------------------------
+     * structure used for optional arguments in interfaces
+     * -------------------------------------------------*/
 
-typedef struct rhs_opts__ {
-  int position ; /** stack position : -1 if not present */
-  char *name   ;
-  char *type;
-  int m,n;
-  unsigned long int l;
-} rhs_opts;
+    typedef struct rhs_opts__
+    {
+        int iPos ; /** stack position : -1 if not present */
+        char* pstName;
+        int iType;// -1 not yet defined
+        int iRows;
+        int iCols;
+        int* piAddr;
+    } rhs_opts;
 
-int get_optionals(char *name,rhs_opts opts[]);
+    int get_optionals(char *name, rhs_opts opts[]);
 
 
-/*-------------------------------------
- * get infos without being dependent
- * of stack structure !!! (! WOW !)
- *------------------------------------*/
+    /*-------------------------------------
+     * get infos without being dependent
+     * of stack structure !!! (! WOW !)
+     *------------------------------------*/
 #define getType(il)                    *istk(il)
 #define getNumberOfLines(il)           *istk(il+1)
 #define getNumberOfColumns(il)         *istk(il+2)
@@ -353,18 +357,18 @@ int get_optionals(char *name,rhs_opts opts[]);
 #define getElementByAddress(ea)                *stk(ea)
 
 
-/*------------------------------
- * prototypes 
- *-----------------------------*/
+    /*------------------------------
+     * prototypes
+     *-----------------------------*/
 
-/* functions defined in stack-2.c */
+    /* functions defined in stack-2.c */
 
-extern int C2F(firstopt)(void);
-extern int C2F(findopt)(char *, rhs_opts *);
-extern int C2F(isopt)(int *,char *,unsigned long);
-extern int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
-extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
-extern void C2F(freeptr)(double *ip[]);
+    extern int C2F(firstopt)(void);
+    extern int C2F(findopt)(char *, rhs_opts *);
+    extern int C2F(isopt)(int *, char *, unsigned long);
+    extern int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
+    extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
+    extern void C2F(freeptr)(double *ip[]);
 
 #ifdef __cplusplus
 }
index 5534c7e..3bad817 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab (http://www.scilab.org/) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste SILVY
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 /* desc : a set of functions used to return values in Scilab              */
 /*------------------------------------------------------------------------*/
 
-#include "stack-c.h"
+#include "api_scilab.h"
 #include "returnProperty.h"
 #include <string.h>
 
 /*--------------------------------------------------------------------------*/
 int sciReturnEmptyMatrix(void* _pvCtx)
 {
-  int numRow   = 0 ;
-  int numCol   = 0 ;
-  int outIndex = 0 ;
-  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&numRow,&numCol,&outIndex);
-  return 0 ;
+    return createEmptyMatrix(_pvCtx, nbInputArgument(_pvCtx) + 1);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnString(void* _pvCtx, const char * value)
 {
-  int numRow   = 1 ;
-  int numCol   = (int)strlen(value);
-  int outIndex = 0 ;
-  CreateVar(Rhs+1,STRING_DATATYPE,&numRow,&numCol,&outIndex);
-  strncpy(cstk(outIndex),value, numCol);
-
-  return  0 ;
+    return createSingleString(_pvCtx, nbInputArgument(_pvCtx) + 1, value);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnChar(void* _pvCtx, char value)
 {
-  int nbRow    = 1 ;
-  int nbCol    = 1 ;
-  int outIndex = 0 ;
-  CreateVar(Rhs+1,STRING_DATATYPE,&nbRow,&nbCol,&outIndex);
-  strncpy(cstk(outIndex), &value , 1);
-
-  return 0 ;
+    char pstValue[2] = {value, 0};//createSingleString needs null terminated characters string
+    return createSingleString(_pvCtx, nbInputArgument(_pvCtx) + 1, pstValue);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnDouble(void* _pvCtx, double value)
 {
-  int numRow   = 1 ;
-  int numCol   = 1 ;
-  int outIndex = 0 ;
-  CreateVar(Rhs+1, MATRIX_OF_DOUBLE_DATATYPE, &numRow, &numCol, &outIndex);
-  *stk(outIndex) = value ;
-
-  return 0 ;
+    return createScalarDouble(_pvCtx, nbInputArgument(_pvCtx) + 1, value);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnInt(void* _pvCtx, int value)
 {
-
-  int numRow   = 1 ;
-  int numCol   = 1 ;
-  int outIndex = 0 ;
-  CreateVar(Rhs+1, MATRIX_OF_INTEGER_DATATYPE, &numRow, &numCol, &outIndex);
-  *istk(outIndex) = value ;
-
-  return 0 ;
+    return sciReturnDouble(_pvCtx, (double)value);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnRowVector(void* _pvCtx, const double values[], int nbValues)
 {
-  int numRow   = 1        ;
-  int outIndex = 0        ;
-  int i ;
-  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&numRow,&nbValues,&outIndex);
-  for (i = 0 ; i < nbValues ; i++)
-  {
-    stk(outIndex)[i] = values[i] ;
-  }
-  return 0 ;
+    SciErr sciErr = createMatrixOfDouble(_pvCtx, nbInputArgument(_pvCtx) + 1, 1, nbValues, values);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnRowVectorFromInt(void* _pvCtx, const int values[], int nbValues)
 {
-  int numRow   = 1        ;
-  int outIndex = 0        ;
-  int i ;
-  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&numRow,&nbValues,&outIndex);
-  for (i = 0 ; i < nbValues ; i++)
-  {
-    stk(outIndex)[i] = (double)values[i] ;
-  }
-  return 0 ;
+    SciErr sciErr = createMatrixOfDoubleAsInteger(_pvCtx, nbInputArgument(_pvCtx) + 1, 1, nbValues, values);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnRowIntVector(void* _pvCtx, const int values[], int nbValues)
 {
-  int numRow   = 1        ;
-  int outIndex = 0        ;
-  int i ;
-  CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&numRow,&nbValues,&outIndex);
-  for (i = 0 ; i < nbValues ; i++)
-  {
-    istk(outIndex)[i] = values[i] ;
-  }
-  return 0 ;
+    return sciReturnRowVectorFromInt(_pvCtx, values, nbValues);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnRowStringVector(void* _pvCtx, char * values[], int nbValues)
 {
-  return sciReturnStringMatrix(_pvCtx, values, 1, nbValues);
+    return sciReturnStringMatrix(_pvCtx, values, 1, nbValues);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnHandle(void* _pvCtx, long handle)
 {
-  int numRow   = 1 ;
-  int numCol   = 1 ;
-  int outIndex = 0 ;
-  CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numRow,&numCol,&outIndex);
-  *hstk(outIndex) = handle ;
-  return 0 ;
+    return createScalarHandle(_pvCtx, nbInputArgument(_pvCtx) + 1, handle);
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnRowHandleVector(void* _pvCtx, const long handles[], int nbValues)
 {
-  int numRow   = 1 ;
-  int outIndex = 0 ;
-  int i ;
-  CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE, &numRow, &nbValues, &outIndex);
-  for (i = 0 ; i < nbValues ; i++)
-  {
-    hstk(outIndex)[i] = handles[i] ;
-  }
-  return 0 ;
+    int i = 0;
+    long long* pH = NULL;
+    SciErr sciErr = allocMatrixOfHandle(_pvCtx, nbInputArgument(_pvCtx) + 1, 1, nbValues, &pH);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    for (i = 0 ; i < nbValues ; i++)
+    {
+        pH[i] = handles[i];
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnColHandleVector(void* _pvCtx, const long handles[], int nbValues)
 {
-  int numCol   = 1 ;
-  int outIndex = 0 ;
-  int i ;
-  CreateVar(Rhs+1, GRAPHICAL_HANDLE_DATATYPE, &nbValues, &numCol, &outIndex);
-  for (i = 0 ; i < nbValues ; i++)
-  {
-    hstk(outIndex)[i] = handles[i] ;
-  }
-  return 0 ;
+    int i = 0;
+    long long* pH = NULL;
+    SciErr sciErr = allocMatrixOfHandle(_pvCtx, nbInputArgument(_pvCtx) + 1, nbValues, 1, &pH);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    for (i = 0 ; i < nbValues ; i++)
+    {
+        pH[i] = handles[i];
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnMatrix(void* _pvCtx, double values[], int nbRow, int nbCol)
 {
-  int outIndex = 0 ;
-  int i ;
-  CreateVar(Rhs+1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &outIndex);
-  for  (i = 0; i < nbRow * nbCol; i++)
-  {
-    stk(outIndex)[i] = values[i] ;
-  }
-  return 0 ;
+    SciErr sciErr = createMatrixOfDouble(_pvCtx, nbInputArgument(_pvCtx) + 1, nbRow, nbCol, values);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnStringMatrix(void* _pvCtx, char * values[], int nbRow, int nbCol)
 {
-  CreateVarFromPtr(Rhs+1, MATRIX_OF_STRING_DATATYPE, &nbRow, &nbCol, values);
-  return 0 ;
+    SciErr sciErr = createMatrixOfString(_pvCtx, nbInputArgument(_pvCtx) + 1, nbRow, nbCol, values);
+    if (sciErr.iErr)
+    {
+        printError(&sciErr, 0);
+        return 1;
+    }
+
+    return 0;
 }
 /*--------------------------------------------------------------------------*/
 int sciReturnUserData(void* _pvCtx, const int * userData, int userDataSize)
 {
-  int * data_ptr = NULL ;
-  int data_size = (userDataSize + 1) / 2 ;
-  SetWorkSize(Rhs+1,&data_size);
-  data_ptr = GetRawData(Rhs+1);
-  memcpy(data_ptr, userData, userDataSize * sizeof (int));
-  return 0 ;
+    /*NOT COMPATIBLE WITH SCILAB 6*/
+    int * data_ptr = NULL ;
+    int data_size = (userDataSize + 1) / 2 ;
+    SetWorkSize(Rhs + 1, &data_size);
+    data_ptr = (int*)GetRawData(Rhs + 1);
+    memcpy(data_ptr, userData, userDataSize * sizeof (int));
+    return 0 ;
 }
 /*--------------------------------------------------------------------------*/
index e19cbfb..668911b 100644 (file)
@@ -135,12 +135,16 @@ int C2F(isopt) (int *k, char *namex, unsigned long name_len)
     int i1 = *k + Top - Rhs;
 
     if (C2F(isoptlw) (&Top, &i1, namex, name_len) == FALSE)
+    {
         return FALSE;
+    }
     /* add a '\0' at the end of the string removing trailing blanks */
     for (i1 = nlgh - 1; i1 >= 0; i1--)
     {
         if (namex[i1] != ' ')
+        {
             break;
+        }
     }
     namex[i1 + 1] = '\0';
     return TRUE;
@@ -153,7 +157,9 @@ int C2F(isopt) (int *k, char *namex, unsigned long name_len)
 void C2F(freeptr) (double *ip[])
 {
     if (ip)
+    {
         FREE((char *)(*ip));
+    }
 }
 
 /*---------------------------------------
@@ -166,7 +172,9 @@ void C2F(freeptr) (double *ip[])
 int C2F(isoptlw) (int *topk, int *lw, char *namex, unsigned long name_len)
 {
     if (*Infstk(*lw) != 1)
+    {
         return FALSE;
+    }
     C2F(cvname) (&C2F(vstk).idstk[(*lw) * nsiz - nsiz], namex, &cx1, name_len);
     return TRUE;
 }
@@ -183,7 +191,9 @@ int C2F(firstopt) (void)
 
     for (k = 1; k <= Rhs; ++k)
         if (*Infstk(k + Top - Rhs) == 1)
+        {
             return k;
+        }
     return (Rhs + 1);
 }
 
@@ -200,8 +210,10 @@ int C2F(findopt) (char *str, rhs_opts opts[])
 
     i = rhs_opt_find(str, opts);
     if (i >= 0)
-        if (opts[i].position > 0)
-            return opts[i].position;
+        if (opts[i].iPos > 0)
+        {
+            return opts[i].iPos;
+        }
 
     return 0;
 }
@@ -219,7 +231,9 @@ int C2F(numopt) (void)
 
     for (k = 1; k <= Rhs; ++k)
         if (*Infstk(k + Top - Rhs) == 1)
+        {
             ret++;
+        }
     return ret;
 }
 
@@ -246,7 +260,9 @@ int C2F(gettype) (int *lw)
 
     il = iadr(*Lstk(*lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     return *istk(il);
 }
 
@@ -263,7 +279,9 @@ static int overloadtype(int *lw, char *fname, unsigned char *typ)
 
     il = iadr(*Lstk(*lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     switch (*typ)
     {
         case 'c':                  /* string */
@@ -352,9 +370,9 @@ int get_optionals(char *fname, rhs_opts opts[])
     /* this could be avoided with ansi compilers by removing static in the
      * opts declaration */
 
-    while (opts[i].name != NULL)
+    while (opts[i].pstName != NULL)
     {
-        opts[i].position = -1;
+        opts[i].iPos = -1;
         i++;
     }
 
@@ -374,17 +392,14 @@ int get_optionals(char *fname, rhs_opts opts[])
             if (isopt >= 0)
             {
                 rhs_opts *ro = &opts[isopt];
-
-                ro->position = k;
-                if (ro->type[0] != '?')
-                    GetRhsVar(ro->position, ro->type, &ro->m, &ro->n, &ro->l);
+                ro->iPos = k;
             }
             else
             {
                 sciprint(_("%s: Unrecognized optional arguments %s.\n"), fname, name);
                 rhs_opt_print_names(opts);
                 SciError(999);
-                return (0);
+                return 0;
             }
         }
     }
@@ -397,12 +412,12 @@ int rhs_opt_find(char *name, rhs_opts opts[])
 {
     int rep = -1, i = 0;
 
-    while (opts[i].name != NULL)
+    while (opts[i].pstName != NULL)
     {
         int cmp;
 
         /* name is terminated by white space and we want to ignore them */
-        if ((cmp = strcmp(name, opts[i].name)) == 0)
+        if ((cmp = strcmp(name, opts[i].pstName)) == 0)
         {
             rep = i;
             break;
@@ -425,18 +440,18 @@ void rhs_opt_print_names(rhs_opts opts[])
 {
     int i = 0;
 
-    if (opts[i].name == NULL)
+    if (opts[i].pstName == NULL)
     {
         sciprint(_("Optional argument list is empty.\n"));
         return;
     }
     sciprint(_("Optional arguments list: \n"));
-    while (opts[i + 1].name != NULL)
+    while (opts[i + 1].pstName != NULL)
     {
-        sciprint("%s, ", opts[i].name);
+        sciprint("%s, ", opts[i].pstName);
         i++;
     }
-    sciprint(_("and %s.\n"), opts[i].name);
+    sciprint(_("and %s.\n"), opts[i].pstName);
 }
 
 /*---------------------------------------------------------------------
@@ -462,9 +477,13 @@ int C2F(isref) (int *number)
     }
     il = iadr(*Lstk(lw));
     if (*istk(il) < 0)
+    {
         return TRUE;
+    }
     else
+    {
         return FALSE;
+    }
 }
 
 /*---------------------------------------------------------------------
@@ -505,11 +524,15 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
         case 'c':
             ix1 = *m * *n;
             if (!C2F(cresmat2) (fname, &lw1, &ix1, lr, nlgh))
+            {
                 return FALSE;
+            }
             *lr = cadr(*lr);
             // Fill the string with spaces
             for (ix = 0; ix < (*m) * (*n); ++ix)
+            {
                 *cstk(*lr + ix) = ' ';
+            }
             *cstk(*lr + (*m) * (*n)) = '\0';
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
@@ -517,7 +540,9 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
             break;
         case 'd':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
@@ -525,9 +550,13 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
         case 'z':
             IT = 1;
             if (!(*Lstk(lw1) % 2))
+            {
                 *Lstk(lw1) = *Lstk(lw1) + 1;
+            }
             if (!C2F(cremat) (fname, &lw1, &IT, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
@@ -553,7 +582,9 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
             break;
         case 'r':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             *lr = iadr(*lr);
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
@@ -561,7 +592,9 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
             break;
         case 'i':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             *lr = iadr(*lr);
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
@@ -569,14 +602,18 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
             break;
         case 'b':
             if (!C2F(crebmat) (fname, &lw1, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
             break;
         case 'p':
             if (!C2F(crepointer) (fname, &lw1, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = '$';
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
@@ -584,14 +621,18 @@ int C2F(createvar) (int *lw, char *typex, int *m, int *n, int *lr, unsigned long
         case 'I':
             it = *lr;               /* on entry lr gives the int type */
             if (!C2F(creimat) (fname, &lw1, &it, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = '$';
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
             break;
         case 'h':
             if (!C2F(crehmat) (fname, &lw1, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
@@ -634,14 +675,18 @@ int C2F(createcvar) (int *lw, char *typex, int *it, int *m, int *n, int *lr, int
     {
         case 'd':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*lw - 1] = Type;
             C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
             C2F(intersci).lad[*lw - 1] = *lr;
             break;
         case 'r':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             *lr = iadr(*lr);
             *lc = *lr + *m * *n;
             C2F(intersci).ntypes[*lw - 1] = Type;
@@ -650,7 +695,9 @@ int C2F(createcvar) (int *lw, char *typex, int *it, int *m, int *n, int *lr, int
             break;
         case 'i':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             *lr = iadr(*lr);
             *lc = *lr + *m * *n;
             C2F(intersci).ntypes[*lw - 1] = Type;
@@ -723,63 +770,95 @@ int C2F(createvarfrom) (int *lw, char *typex, int *m, int *n, int *lr, int *lar,
     {
         case 'c':
             if (!C2F(cresmat2) (fname, &lw1, &MN, lr, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(cvstr1) (&MN, istk(*lr), cstk(*lar), &cx0, MN + 1);
+            }
             *lar = *lr;
             *lr = cadr(*lr);
             break;
         case 'd':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&MN, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         case 'r':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(rea2db) (&MN, sstk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             *lr = iadr(*lr);
             break;
         case 'i':
             if (!C2F(cremat) (fname, &lw1, &it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(int2db) (&MN, istk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             *lr = iadr(*lr);
             break;
         case 'b':
             if (!C2F(crebmat) (fname, &lw1, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(icopy) (&MN, istk(*lar), &cx1, istk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         case 'I':
             it = *lr;
             if (!C2F(creimat) (fname, &lw1, &it, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(tpconv) (&it, &it, &MN, istk(*lar), &inc, istk(*lr), &inc);
+            }
             *lar = *lr;
             break;
         case 'p':
             MN = 1;
             if (!C2F(crepointer) (fname, &lw1, lr, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&MN, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         case 'h':
             if (!C2F(crehmat) (fname, &lw1, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&MN, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
     }
@@ -824,21 +903,33 @@ int C2F(createcvarfrom) (int *lw, char *typex, int *it, int *m, int *n, int *lr,
     {
         case 'd':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&MN, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && *it == 1)
+            {
                 C2F(dcopy) (&MN, stk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             break;
         case 'r':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(rea2db) (&MN, sstk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && *it == 1)
+            {
                 C2F(rea2db) (&MN, sstk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             *lr = iadr(*lr);
@@ -846,11 +937,17 @@ int C2F(createcvarfrom) (int *lw, char *typex, int *it, int *m, int *n, int *lr,
             break;
         case 'i':
             if (!C2F(cremat) (fname, &lw1, it, m, n, lr, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(int2db) (&MN, istk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && (*it == 1))
+            {
                 C2F(int2db) (&MN, istk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             *lr = iadr(*lr);
@@ -901,7 +998,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(cvstr1) (m, istk(*lr), cstk(*lar), &cx0, *m * *n + 1);
+            }
             *lar = *lr;
             *lr = cadr(*lr);
             break;
@@ -912,7 +1011,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&mn, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         case 'r':
@@ -922,7 +1023,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(rea2db) (&mn, sstk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             *lr = iadr(*lr);
             break;
@@ -933,7 +1036,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(int2db) (&mn, istk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             *lr = iadr(*lr);
             break;
@@ -944,7 +1049,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(icopy) (&mn, istk(*lar), &cx1, istk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         case 'I':
@@ -955,7 +1062,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(tpconv) (&it, &it, &mn, istk(*lar), &inc, istk(*lr), &inc);
+            }
             *lar = *lr;
             break;
         case 'p':
@@ -965,7 +1074,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 *stk(*lr) = *stk(*lar);
+            }
             *lar = *lr;
             break;
         case 'h':
@@ -975,7 +1086,9 @@ int C2F(createlistvarfrom) (int *lnumber, int *number, char *typex, int *m, int
                 return FALSE;
             }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&mn, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             *lar = *lr;
             break;
         default:
@@ -1009,22 +1122,34 @@ int C2F(createlistcvarfrom) (int *lnumber, int *number, char *typex, int *it, in
         case 'd':
             ix1 = *lnumber + Top - Rhs;
             if (!C2F(listcremat) (fname, &ix1, number, &C2F(intersci).lad[*lnumber - 1], it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(dcopy) (&mn, stk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && *it == 1)
+            {
                 C2F(dcopy) (&mn, stk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             break;
         case 'r':
             ix1 = *lnumber + Top - Rhs;
             if (!C2F(listcremat) (fname, &ix1, number, &C2F(intersci).lad[*lnumber - 1], it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(rea2db) (&mn, sstk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && *it == 1)
+            {
                 C2F(rea2db) (&mn, sstk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             *lr = iadr(*lr);
@@ -1033,11 +1158,17 @@ int C2F(createlistcvarfrom) (int *lnumber, int *number, char *typex, int *it, in
         case 'i':
             ix1 = *lnumber + Top - Rhs;
             if (!C2F(listcremat) (fname, &ix1, number, &C2F(intersci).lad[*lnumber - 1], it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             if (*lar != -1)
+            {
                 C2F(int2db) (&mn, istk(*lar), &cx1, stk(*lr), &cx1);
+            }
             if (*lac != -1 && *it == 1)
+            {
                 C2F(int2db) (&mn, istk(*lac), &cx1, stk(*lc), &cx1);
+            }
             *lar = *lr;
             *lac = *lc;
             *lr = iadr(*lr);
@@ -1124,11 +1255,15 @@ int C2F(createlistvarfromptr) (int *lnumber, int *number, char *typex, int *m, i
             break;
         case 'S':
             if (!cre_listsmat_from_str(fname, &ix1, number, &C2F(intersci).lad[*lnumber - 1], m, n, (char **)iptr, nlgh))   /* XXX */
+            {
                 return FALSE;
+            }
             break;
         case 's':
             if (!cre_listsparse_from_ptr(fname, &ix1, number, &C2F(intersci).lad[*lnumber - 1], m, n, (SciSparse *) iptr, nlgh))
+            {
                 return FALSE;
+            }
             break;
         case 'I':
             it = ((SciIntMat *) iptr)->it;
@@ -1193,7 +1328,9 @@ int C2F(createlistcvarfromptr) (int *lnumber, int *number, char *typex, int *it,
             ix1 = (*m) * (*n);
             C2F(cdouble) (&ix1, (double **)iptr, stk(lr));
             if (*it == 1)
+            {
                 C2F(cdouble) (&ix1, (double **)iptc, stk(lc));
+            }
             break;
         case 'r':
             ix1 = *lnumber + Top - Rhs;
@@ -1204,7 +1341,9 @@ int C2F(createlistcvarfromptr) (int *lnumber, int *number, char *typex, int *it,
             ix1 = (*m) * (*n);
             C2F(cfloat) (&ix1, (float **)iptr, stk(lr));
             if (*it == 1)
+            {
                 C2F(cfloat) (&ix1, (float **)iptc, stk(lc));
+            }
             break;
         case 'i':
             ix1 = *lnumber + Top - Rhs;
@@ -1215,7 +1354,9 @@ int C2F(createlistcvarfromptr) (int *lnumber, int *number, char *typex, int *it,
             ix1 = *m * *n;
             C2F(cint) (&ix1, (int **)iptr, stk(lr));
             if (*it == 1)
+            {
                 C2F(cint) (&ix1, (int **)iptc, stk(lc));
+            }
             break;
         default:
             Scierror(999, _("%s: (%s) bad third argument!\n"), fname, "createlistcvarfromptr");
@@ -1252,7 +1393,9 @@ int C2F(creatework) (int *number, int *m, int *lr)
     *m = *Lstk(Bot) - sadr(il + 4);
     n = 1;
     if (!C2F(cremat) (fname, &lw1, &it, m, &n, lr, &lcs, nlgh))
+    {
         return FALSE;
+    }
     return TRUE;
 }
 
@@ -1307,7 +1450,9 @@ int C2F(getmatdims) (int *number, int *m, int *n)
 
     il = iadr(*Lstk(lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     typ = *istk(il);
     if (typ > sci_strings)
     {
@@ -1364,7 +1509,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
     }
 
     if (overloadtype(&lw, fname, &Type) == 0)
+    {
         return FALSE;
+    }
 
     topk = Top;
     switch (Type)
@@ -1390,7 +1537,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
              * data is written */
             lrr = *lr;
             if (ix2 == 0)
+            {
                 lrr--;
+            }
 
             C2F(in2str) (&ix2, istk(*lr), cstk(cadr(*lr)), ix2 + 1);
             *lr = cadr(*lr);
@@ -1401,14 +1550,18 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
 
         case 'd':
             if (!C2F(getmat) (fname, &topk, &lw, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*number - 1] = Type;
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw);
             C2F(intersci).lad[*number - 1] = *lr;
             break;
         case 'z':
             if (!C2F(getmat) (fname, &topk, &lw, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix2 = *m * *n;
             if ((it != 1) && (ix2 != 0))
             {
@@ -1439,7 +1592,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             break;
         case 'r':
             if (!C2F(getmat) (fname, &topk, &lw, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(simple) (&ix1, stk(*lr), sstk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1449,7 +1604,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             break;
         case 'i':
             if (!C2F(getmat) (fname, &topk, &lw, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(entier) (&ix1, stk(*lr), istk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1459,7 +1616,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             break;
         case 'b':
             if (!C2F(getbmat) (fname, &topk, &lw, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*number - 1] = Type;
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw);
             C2F(intersci).lad[*number - 1] = *lr;
@@ -1469,7 +1628,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
         case 'm':
             *n = 1;
             if (!C2F(getilist) (fname, &topk, &lw, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             /* No data conversion for list members ichar(type)='$' */
             Type = '$';
             C2F(intersci).ntypes[*number - 1] = Type;
@@ -1479,11 +1640,15 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
         case 'S':
             /** getwsmat : must be back in stack1.c from xawelm.f */
             if (!C2F(getwsmat) (fname, &topk, &lw, m, n, &il1, &ild1, nlgh))
+            {
                 return FALSE;
+            }
             nn = (*m) * (*n);
             ScilabMStr2CM(istk(il1), &nn, istk(ild1), &items, &ierr);
             if (ierr == 1)
+            {
                 return FALSE;
+            }
             Type = '$';
             /*
              * Warning : lr must have the proper size when calling getrhsvar
@@ -1498,7 +1663,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             /* sparse matrices */
             Sp = (SciSparse *) lr;
             if (!C2F(getsparse) (fname, &topk, &lw, &it, m, n, &(Sp->nel), &mnel, &icol, &lr1, &lc, nlgh))
+            {
                 return FALSE;
+            }
             Sp->m = *m;
             Sp->n = *n;
             Sp->it = it;
@@ -1515,7 +1682,9 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             /* int matrices */
             Im = (SciIntMat *) lr;
             if (!C2F(getimat) (fname, &topk, &lw, &it, m, n, &lr1, nlgh))
+            {
                 return FALSE;
+            }
             Im->m = *m;
             Im->n = *n;
             Im->it = it;
@@ -1550,14 +1719,18 @@ int C2F(getrhsvar) (int *number, char *typex, int *m, int *n, int *lr, unsigned
             break;
         case 'p':
             if (!C2F(getpointer) (fname, &topk, &lw, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*number - 1] = Type;
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw);
             C2F(intersci).lad[*number - 1] = *lr;
             break;
         case 'h':
             if (!C2F(gethmat) (fname, &topk, &lw, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).ntypes[*number - 1] = Type;
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw);
             C2F(intersci).lad[*number - 1] = *lr;
@@ -1596,11 +1769,15 @@ int C2F(getrhscvar) (int *number, char *typex, int *it, int *m, int *n, int *lr,
     {
         case 'd':
             if (!C2F(getmat) (fname, &topk, &lw, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             break;
         case 'r':
             if (!C2F(getmat) (fname, &topk, &lw, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n * (*it + 1);
             C2F(simple) (&ix1, stk(*lr), sstk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1608,7 +1785,9 @@ int C2F(getrhscvar) (int *number, char *typex, int *it, int *m, int *n, int *lr,
             break;
         case 'i':
             if (!C2F(getmat) (fname, &topk, &lw, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n * (*it + 1);
             C2F(entier) (&ix1, stk(*lr), istk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1642,7 +1821,9 @@ int C2F(elementtype) (int *lnumber, int *number)
     lw = *lnumber + Top - Rhs;  /*index of the variable numbered *lnumber in the stack */
     il = iadr(*Lstk(lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     itype = *istk(il);          /* type of the variable numbered *lnumber */
     if (itype < sci_list || itype > sci_mlist)
     {
@@ -1708,37 +1889,49 @@ int C2F(getlistrhsvar) (int *lnumber, int *number, char *typex, int *m, int *n,
         case 'c':
             *n = 1;
             if (!C2F(getlistsimat) (fname, &topk, &lw, number, &m1, &n1, &cx1, &cx1, lr, m, nlgh))
+            {
                 return FALSE;
+            }
             ix2 = *m * *n;
             C2F(in2str) (&ix2, istk(*lr), cstk(cadr(*lr)), ix2 + 1);
             *lr = cadr(*lr);
             break;
         case 'd':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             break;
         case 'r':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(simple) (&ix1, stk(*lr), sstk(iadr(*lr)));
             *lr = iadr(*lr);
             break;
         case 'i':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(entier) (&ix1, stk(*lr), istk(iadr(*lr)));
             *lr = iadr(*lr);
             break;
         case 'b':
             if (!C2F(getlistbmat) (fname, &topk, &lw, number, m, n, lr, nlgh))
+            {
                 return FALSE;
+            }
             *lr = *lr;
             break;
         case 'z':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, &it, m, n, lr, &lc, nlgh))
+            {
                 return FALSE;
+            }
             ix2 = *m * *n;
             if ((it != 1) && (ix2 != 0))
             {
@@ -1765,11 +1958,15 @@ int C2F(getlistrhsvar) (int *lnumber, int *number, char *typex, int *m, int *n,
         case 'S':
             /** getwsmat : must be back in stack1.c from xawelm.f */
             if (!C2F(getlistwsmat) (fname, &topk, &lw, number, m, n, &il1, &ild1, nlgh))
+            {
                 return FALSE;
+            }
             nn = (*m) * (*n);
             ScilabMStr2CM(istk(il1), &nn, istk(ild1), &items, &ierr);
             if (ierr == 1)
+            {
                 return FALSE;
+            }
             /*
              * Warning : lr must have the proper size when calling getrhsvar
              * char **Str1; .... GetRhsVar(...., &lr)
@@ -1780,7 +1977,9 @@ int C2F(getlistrhsvar) (int *lnumber, int *number, char *typex, int *m, int *n,
             /* sparse matrices */
             Sp = (SciSparse *) lr;
             if (!C2F(getlistsparse) (fname, &topk, &lw, number, &it, m, n, &(Sp->nel), &mnel, &icol, &lr1, &lc, nlgh))
+            {
                 return FALSE;
+            }
             Sp->m = *m;
             Sp->n = *n;
             Sp->it = it;
@@ -1793,7 +1992,9 @@ int C2F(getlistrhsvar) (int *lnumber, int *number, char *typex, int *m, int *n,
             /* int matrices */
             Im = (SciIntMat *) lr;
             if (!C2F(getlistimat) (fname, &topk, &lw, number, &it, m, n, &lr1, nlgh))
+            {
                 return FALSE;
+            }
             Im->m = *m;
             Im->n = *n;
             Im->it = it;
@@ -1802,7 +2003,9 @@ int C2F(getlistrhsvar) (int *lnumber, int *number, char *typex, int *m, int *n,
             break;
         case 'p':
             if (!C2F(getlistpointer) (fname, &topk, &lw, number, lr, nlgh))
+            {
                 return FALSE;
+            }
             break;
         default:
             Scierror(999, _("%s: bad call to %s (third argument %c).\n"), fname, "getlistrhsvar", Type);
@@ -1839,11 +2042,15 @@ int C2F(getlistrhscvar) (int *lnumber, int *number, char *typex, int *it, int *m
     {
         case 'd':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             break;
         case 'r':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n * (*it + 1);
             C2F(simple) (&ix1, stk(*lr), sstk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1851,7 +2058,9 @@ int C2F(getlistrhscvar) (int *lnumber, int *number, char *typex, int *it, int *m
             break;
         case 'i':
             if (!C2F(getlistmat) (fname, &topk, &lw, number, it, m, n, lr, lc, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n * (*it + 1);
             C2F(entier) (&ix1, stk(*lr), istk(iadr(*lr)));
             *lr = iadr(*lr);
@@ -1885,42 +2094,56 @@ int C2F(createvarfromptr) (int *number, char *typex, int *m, int *n, void *iptr,
     {
         case 'd':
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             C2F(dcopy) (&MN, *((double **)iptr), &un, stk(lr), &un);
             break;
         case 'i':
         case 'b':
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             C2F(icopy) (&MN, *((int **)iptr), &un, istk(lr), &un);
             break;
         case 'r':
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             C2F(rcopy) (&MN, *((float **)iptr), &un, sstk(lr), &un);
             break;
         case 'c':
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             strcpy(cstk(lr), *((char **)iptr));
             break;
         case 'I':
             /* on entry lr must gives the int type */
             it = lr = ((SciIntMat *) iptr)->it;
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             C2F(tpconv) (&it, &it, &MN, ((SciIntMat *) iptr)->D, &un, istk(lr), &un);
             break;
         case 'p':
             if (C2F(createvar) (number, typex, m, n, &lr, type_len) == FALSE)
+            {
                 return FALSE;
+            }
             *stk(lr) = (double)((unsigned long int)iptr);
             break;
         case 'S':
             /* special case: not taken into account in createvar */
             Nbvars = Max(*number, Nbvars);
             if (!cre_smat_from_str(fname, &lw1, m, n, (char **)iptr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw1);
             C2F(intersci).ntypes[*number - 1] = '$';
             break;
@@ -1928,7 +2151,9 @@ int C2F(createvarfromptr) (int *number, char *typex, int *m, int *n, void *iptr,
             /* special case: not taken into account in createvar */
             Nbvars = Max(*number, Nbvars);
             if (!cre_sparse_from_ptr(fname, &lw1, m, n, (SciSparse *) iptr, nlgh))
+            {
                 return FALSE;
+            }
             C2F(intersci).iwhere[*number - 1] = *Lstk(lw1);
             C2F(intersci).ntypes[*number - 1] = '$';
             break;
@@ -1962,7 +2187,9 @@ int C2F(createcvarfromptr) (int *number, char *typex, int *it, int *m, int *n, d
     {
         case 'd':
             if (!C2F(cremat) (fname, &lw1, it, m, n, &lrs, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(cdouble) (&ix1, (double **)iptr, stk(lrs));
             if (*it == 1)
@@ -1973,7 +2200,9 @@ int C2F(createcvarfromptr) (int *number, char *typex, int *it, int *m, int *n, d
             break;
         case 'i':
             if (!C2F(cremat) (fname, &lw1, it, m, n, &lrs, &lcs, nlgh))
+            {
                 return FALSE;
+            }
             ix1 = *m * *n;
             C2F(cint) (&ix1, (int **)iptr, stk(lrs));
             if (*it == 1)
@@ -2004,7 +2233,9 @@ int C2F(mklistfromvars) (int *pos, int *n)
     int k;
 
     for (k = *pos; k < *pos + *n; k++)
+    {
         C2F(convert2sci) (&k);
+    }
     Top = Top - Rhs + *pos - 1 + *n;
     C2F(mklist) (n);
     Top = tops;
@@ -2024,7 +2255,9 @@ int C2F(mktlistfromvars) (int *pos, int *n)
     int k;
 
     for (k = *pos; k < *pos + *n; k++)
+    {
         C2F(convert2sci) (&k);
+    }
     Top = Top - Rhs + *pos - 1 + *n;
     C2F(mklistt) (n, &type);
     Top = tops;
@@ -2044,7 +2277,9 @@ int C2F(mkmlistfromvars) (int *pos, int *n)
     int k;
 
     for (k = *pos; k < *pos + *n; k++)
+    {
         C2F(convert2sci) (&k);
+    }
     Top = Top - Rhs + *pos - 1 + *n;
     C2F(mklistt) (n, &type);
     Top = tops;
@@ -2124,7 +2359,9 @@ L60:
         goto L200;
     }
     if (Err > 0)
+    {
         goto L97;
+    }
 
     if (isRecursionCallToFunction())
     {
@@ -2181,7 +2418,9 @@ L89:
     goto L91;
 L90:
     if (Err > 0)
+    {
         goto L97;
+    }
     /**/
 L91:
     k = C2F(com).fun;
@@ -2193,10 +2432,14 @@ L91:
     }
     C2F(recu).krec = -1;
     if (k == 0)
+    {
         goto L60;
+    }
 L95:
     if (!C2F(allowptr) (&k))
+    {
         C2F(ref2val) ();
+    }
     C2F(recu).krec = k;
     C2F(callinterf) (&k);
 
@@ -2208,9 +2451,13 @@ L95:
             C2F(iset) (&Rhs, &cx0, &C2F(vstk).infstk[Top - Lhs], &cx1);
         }
         if (C2F(recu).paus > 0)
+        {
             goto L91;
+        }
         if (C2F(errgst).err1 > 0)
+        {
             Top = ireftop;
+        }
         goto L90;
     }
     /*    called interface ask for a scilab function to perform the function (fun=-1)
@@ -2222,19 +2469,25 @@ L95:
     C2F(com).fun = 0;
     C2F(funs) (&C2F(recu).ids[(C2F(recu).pt + 1) * nsiz - nsiz]);
     if (Err > 0)
+    {
         goto L97;
+    }
 
     if (C2F(com).fun > 0)
     {
         if (C2F(isbyref) (&C2F(com).fun) == 0)
+        {
             C2F(ref2val) ();
+        }
         goto L91;
     }
     if (Fin == 0)
     {
         SciError(246);
         if (Err > 0)
+        {
             goto L97;
+        }
         goto L90;
     }
     ++C2F(recu).pt;
@@ -2353,7 +2606,9 @@ int C2F(getopcode) (char *string, unsigned long string_len)
     {
         /* .op  or op. */
         if (ch == '.')
+        {
             ch = string[1];
+        }
         op += 51;
     }
 
@@ -2427,13 +2682,17 @@ L60:
         {
             imode = abs(C2F(errgst).errct) / 100000 % 8;
             if (imode != 3)
+            {
                 goto L97;
+            }
         }
         C2F(com).fun = 0;
         goto L200;
     }
     if (Err > 0)
+    {
         goto L97;
+    }
 
     if (isRecursionCallToFunction())
     {
@@ -2472,7 +2731,9 @@ L89:
     goto L91;
 L90:
     if (Err > 0)
+    {
         goto L97;
+    }
     /**/
 L91:
     k = C2F(com).fun;
@@ -2484,10 +2745,14 @@ L91:
     }
     C2F(recu).krec = -1;
     if (k == 0)
+    {
         goto L60;
+    }
 L95:
     if (!C2F(allowptr) (&k))
+    {
         C2F(ref2val) ();
+    }
     C2F(recu).krec = k;
     C2F(callinterf) (&k);
     C2F(recu).krec = -1;
@@ -2498,9 +2763,13 @@ L95:
             C2F(iset) (&Lhs, &cx0, &C2F(vstk).infstk[Top - Lhs], &cx1);
         }
         if (C2F(recu).paus > 0)
+        {
             goto L91;
+        }
         if (C2F(errgst).err1 > 0)
+        {
             Top = ireftop;
+        }
         goto L90;
     }
     /*    called interface ask for a sci function to perform the function (fun=-1) */
@@ -2509,18 +2778,24 @@ L95:
     C2F(com).fun = 0;
     C2F(funs) (&C2F(recu).ids[(C2F(recu).pt + 1) * nsiz - nsiz]);
     if (Err > 0)
+    {
         goto L97;
+    }
     if (C2F(com).fun > 0)
     {
         if (C2F(isbyref) (&C2F(com).fun) == 0)
+        {
             C2F(ref2val) ();
+        }
         goto L91;
     }
     if (Fin == 0)
     {
         SciError(246);
         if (Err > 0)
+        {
             goto L97;
+        }
         goto L90;
     }
     ++C2F(recu).pt;
@@ -2583,7 +2858,9 @@ int C2F(sciops) (int *number, int *op, int *mlhs, int *mrhs)
             return FALSE;
         };
         if (C2F(com).fun == 0)
+        {
             break;
+        }
         Top = intop;
         ifun = C2F(com).fun;
         ifin = Fin;
@@ -2635,24 +2912,38 @@ int C2F(getrhssys) (int *lw, int *n, int *m, int *p, int *ptra, int *ptrb, int *
                              -12, -13, -33, 0, 13, 29
                            };
     if (!C2F(getrhsvar) (lw, "t", &msys, &nsys, &ptrsys, 1L))
+    {
         return FALSE;
+    }
     il = iadr(ptrsys) - msys - 1;
     /*     syslin tlist=[ chain, (A,B,C,D,X0) ,chain or scalar ]
      *                     10     1 1 1 1 1      10       1
      */
     junk = il + msys + iadr(*istk(il));
     if (*istk(junk) != 10)
+    {
         return FALSE;
+    }
     if (*istk(il + msys + iadr(*istk(il + 1))) != 1)
+    {
         return FALSE;
+    }
     if (*istk(il + msys + iadr(*istk(il + 2))) != 1)
+    {
         return FALSE;
+    }
     if (*istk(il + msys + iadr(*istk(il + 3))) != 1)
+    {
         return FALSE;
+    }
     if (*istk(il + msys + iadr(*istk(il + 4))) != 1)
+    {
         return FALSE;
+    }
     if (*istk(il + msys + iadr(*istk(il + 5))) != 1)
+    {
         return FALSE;
+    }
     itimedomain = *istk(il + msys + iadr(*istk(il + 6)));
     switch (itimedomain)
     {
@@ -2690,15 +2981,25 @@ int C2F(getrhssys) (int *lw, int *n, int *m, int *p, int *ptra, int *ptrb, int *
         }
     }
     if (!C2F(getlistrhsvar) (lw, &cx2, "d", &ma, &na, ptra, 1L))
+    {
         return FALSE;
+    }
     if (!C2F(getlistrhsvar) (lw, &cx3, "d", &mb, &nb, ptrb, 1L))
+    {
         return FALSE;
+    }
     if (!C2F(getlistrhsvar) (lw, &cx4, "d", &mc, &nc, ptrc, 1L))
+    {
         return FALSE;
+    }
     if (!C2F(getlistrhsvar) (lw, &cx5, "d", &md, &nd, ptrd, 1L))
+    {
         return FALSE;
+    }
     if (!C2F(getlistrhsvar) (lw, &cx6, "d", &mx0, &nx0, ptrx0, 1L))
+    {
         return FALSE;
+    }
     if (ma != na)
     {
         Scierror(999, _("A non square matrix!\n"));
@@ -2808,7 +3109,9 @@ static int Check_references()
 
                 /* back conversion if necessary of a reference */
                 if (*istk(il) < 0)
+                {
                     il = iadr(*istk(il + 1));
+                }
                 m = *istk(il + 1);
                 n = *istk(il + 2);
                 it = *istk(il + 3);
@@ -2875,9 +3178,13 @@ int C2F(putlhsvar) ()
     }
 
     if (Err > 0 || C2F(errgst).err1 > 0)
+    {
         return TRUE;
+    }
     if (C2F(com).fun == -1)
-        return TRUE;            /* execution continue with an
+    {
+        return TRUE;
+    }            /* execution continue with an
                                  * overloaded function */
     if (LhsVar(1) == 0)
     {
@@ -2888,7 +3195,9 @@ int C2F(putlhsvar) ()
     }
     nbvars1 = 0;
     for (k = 1; k <= Lhs; ++k)
+    {
         nbvars1 = Max(nbvars1, LhsVar(k));
+    }
     /* check if output variabe are in increasing order in the stack */
     lcres = TRUE;
     ibufprec = 0;
@@ -2989,7 +3298,9 @@ static int C2F(mvfromto) (int *itopl, int *ix)
 
         ilp = iadr(iwh);
         if (*istk(ilp) < 0)
+        {
             ilp = iadr(*istk(ilp + 1));
+        }
         m = *istk(ilp + 1);
         n = *istk(ilp + 2);
         it = *istk(ilp + 3);
@@ -3028,9 +3339,13 @@ static int C2F(mvfromto) (int *itopl, int *ix)
                 ix1 = m * n * (it + 1);
                 l = C2F(intersci).lad[*ix - 1];
                 if (abs(l - lrs) < ix1)
+                {
                     C2F(unsfdcopy) (&ix1, stk(l), &cx1, stk(lrs), &cx1);
+                }
                 else
+                {
                     C2F(dcopy) (&ix1, stk(l), &cx1, stk(lrs), &cx1);
+                }
                 C2F(intersci).lad[*ix - 1] = lrs;
             }
             break;
@@ -3090,7 +3405,9 @@ static int C2F(mvfromto) (int *itopl, int *ix)
                 return FALSE;
             }
             if (C2F(vcopyobj) ("mvfromto", &pointed, itopl, 8L) == FALSE)
+            {
                 return FALSE;
+            }
             break;
         case 'h':
             if (!C2F(crehmat) ("mvfromto", itopl, &m, &n, &lrs, 8L))
@@ -3105,9 +3422,13 @@ static int C2F(mvfromto) (int *itopl, int *ix)
                 ix1 = m * n;
                 l = C2F(intersci).lad[*ix - 1];
                 if (abs(l - lrs) < ix1)
+                {
                     C2F(unsfdcopy) (&ix1, stk(l), &cx1, stk(lrs), &cx1);
+                }
                 else
+                {
                     C2F(dcopy) (&ix1, stk(l), &cx1, stk(lrs), &cx1);
+                }
                 C2F(intersci).lad[*ix - 1] = lrs;
             }
             break;
@@ -3118,7 +3439,9 @@ static int C2F(mvfromto) (int *itopl, int *ix)
             {
                 ix1 = Top - Rhs + *ix;
                 if (C2F(vcopyobj) ("mvfromto", &ix1, itopl, 8L) == FALSE)
+                {
                     return FALSE;
+                }
             }
     }
     return TRUE;
@@ -3167,7 +3490,9 @@ int C2F(convert2sci) (int *ix)
     int ix1 = Top - Rhs + *ix;
 
     if (!C2F(mvfromto) (&ix1, ix))
+    {
         return FALSE;
+    }
     C2F(intersci).ntypes[*ix - 1] = '$';
     return TRUE;
 }
@@ -3183,9 +3508,13 @@ void strcpy_tws(char *str1, char *str2, int len)
     int i;
 
     for (i = 0; i < (int)strlen(str2); i++)
+    {
         str1[i] = str2[i];
+    }
     for (i = (int)strlen(str2); i < len; i++)
+    {
         str1[i] = ' ';
+    }
     str1[len - 1] = '\0';
 }
 
@@ -3302,7 +3631,9 @@ char *ArgsPosition(int i, int j)
             FREE(tmp_buffer_1);
         }
         else
+        {
             sprintf(arg_position, _("arguments #%d and #%d"), i, j);
+        }
     }
     return arg_position;
 }
@@ -3430,7 +3761,9 @@ int check_length(int posi, int m, int m1)
 int check_same_dims(int i, int j, int m1, int n1, int m2, int n2)
 {
     if (m1 == m2 && n1 == n2)
+    {
         return TRUE;
+    }
     Scierror(999, _("%s: %s have incompatible dimensions (%dx%d) # (%dx%d)\n"), Get_Iname(), ArgsPosition(i, j), m1, n1, m2, n2);
     return FALSE;
 }
@@ -3513,7 +3846,9 @@ int C2F(createdata) (int *lw, int n)
         return FALSE;
     }
     if (!C2F(credata) (fname, &lw1, n, nlgh))
+    {
         return FALSE;
+    }
     C2F(intersci).ntypes[*lw - 1] = '$';
     C2F(intersci).iwhere[*lw - 1] = *Lstk(lw1);
     C2F(intersci).lad[*lw - 1] = *Lstk(lw1);
@@ -3532,7 +3867,9 @@ int C2F(copyvarfromsciptr) (int lw, int n, int l)
     int ret, un = 1;
 
     if ((ret = C2F(createdata) (&lw, n)) == FALSE)
+    {
         return ret;
+    }
     C2F(unsfdcopy) (&n, stk(l), &un, stk(*Lstk(lw + Top - Rhs)), &un);
     return TRUE;
 }
@@ -3701,10 +4038,14 @@ static int intersci_push(void)
 
     new = MALLOC(Nbvars * sizeof(intersci_state));
     if (new == 0)
+    {
         return 0;
+    }
     loc = MALLOC(sizeof(intersci_list));
     if (loc == NULL)
+    {
         return 0;
+    }
     loc->next = L_intersci;
     loc->state = new;
     loc->nbvars = Nbvars;
@@ -3725,7 +4066,9 @@ static void intersci_pop(void)
     intersci_list *loc = L_intersci;
 
     if (loc == NULL)
+    {
         return;
+    }
     Nbvars = loc->nbvars;
     for (i = 0; i < Nbvars; i++)
     {
index 9dcd32c..cbd977e 100644 (file)
@@ -6,47 +6,23 @@ EXPORTS
 ; core
 ;--------------------------
 vstk_
-checkrhs_
-checklhs_
-putlhsvar_
-cha1_
 addColVectorToReturnedList 
 addMatrixToReturnedList
 addStringColVectorToReturnedList
 callFunctionFromGateway
-cha1_
-check_dim_prop
-check_dims
-check_length
-check_same_dims
-check_scalar
-check_vector
-checklhs_
-checkrhs_
 com_
 createReturnedList
-createvar_
-createvarfromptr_
 destroyReturnedList
 elementtype_
 findopt_
 firstopt_
 freeArrayOfString
-get_optionals
-GetDataSize
-GetData
-getlistrhsvar_
-getmatdims_
-getrhsvar_
 getScilabMode
-gettype_
-GetVarDimension
 getWarningMode
 intersci_
 iop_
 numopt_
 overload_
-putlhsvar_
 sciReturnChar
 sciReturnColHandleVector
 sciReturnDouble
@@ -64,4 +40,7 @@ sciReturnString
 sciReturnUserData
 stack_
 vartype_
-vstk_
\ No newline at end of file
+vstk_
+GetDataSize
+GetData
+cha1_
\ No newline at end of file
index ad68649..dfcb96f 100644 (file)
@@ -28,7 +28,7 @@
  * @param[in] x array of size n.
  * @return The stricly posistive minimum of x if exists, a negative value otherwise
  */
-GRAPHICS_IMPEXP double sciFindStPosMin( const double x[], int n ) ;
+GRAPHICS_IMPEXP double sciFindStPosMin(const double x[], int n);
 
 
 /**
@@ -38,7 +38,7 @@ GRAPHICS_IMPEXP double sciFindStPosMin( const double x[], int n ) ;
  *          0 if not monotonous
  * @param nbElement must be greater than 2.
  */
-GRAPHICS_IMPEXP int checkMonotony( const double vector[], int nbElement ) ;
+GRAPHICS_IMPEXP int checkMonotony(const double vector[], int nbElement);
 
 /**
  * @return TRUE if the array contains one element which is not %inf, -%inf or %nan
@@ -50,22 +50,22 @@ GRAPHICS_IMPEXP BOOL containsOneFiniteElement(const double vector[], int nbEleme
 /**
  * copy an array into an other
  */
-GRAPHICS_IMPEXP void doubleArrayCopy( double dest[], const double src[], int nbElement ) ;
+GRAPHICS_IMPEXP void doubleArrayCopy(double dest[], const double src[], int nbElement);
 
 /**
  * copy an int array into an other
  */
-GRAPHICS_IMPEXP void intArrayCopy( int dest[], const int src[], int nbElement ) ;
+GRAPHICS_IMPEXP void intArrayCopy(int dest[], const int src[], int nbElement);
 
 /**
  * copy a char * array into an other
  */
-GRAPHICS_IMPEXP void stringArrayCopy( char * dest[], char * src[], int nbElement ) ;
+GRAPHICS_IMPEXP void stringArrayCopy(char * dest[], char * src[], int nbElement);
 
 /**
  * set each element of an array to a certain value
  */
-GRAPHICS_IMPEXP void setDoubleArraySingleValue( double dest[], double value, int nbElement ) ;
+GRAPHICS_IMPEXP void setDoubleArraySingleValue(double dest[], double value, int nbElement);
 
 /**
  * create a new array which is kind of copy of another
@@ -74,27 +74,27 @@ GRAPHICS_IMPEXP void setDoubleArraySingleValue( double dest[], double value, int
  * @param destSize the wanted size for the new array
  * @return  the newly created array or NULL if an error occurred
  */
-GRAPHICS_IMPEXP double * createNewArrayFromSource( int destSize, const double src[], int srcSize ) ;
+GRAPHICS_IMPEXP double* createNewArrayFromSource(int destSize, const double src[], int srcSize);
 
 /**
  * free an array of strings
  */
-GRAPHICS_IMPEXP void destroyStringArray( char * src[], int nbStrings ) ;
+GRAPHICS_IMPEXP void destroyStringArray(char * src[], int nbStrings);
 
 /**
  * allocate a copy of a double array
  */
-GRAPHICS_IMPEXP double * createDoubleArrayCopy( const double src[], int nbElement ) ;
+GRAPHICS_IMPEXP double* createDoubleArrayCopy(const double src[], int nbElement);
 
 /**
  * allocate a copy of a int array.
  */
-GRAPHICS_IMPEXP int * createIntArrayCopy( const int src[], int nbElement ) ;
+GRAPHICS_IMPEXP int * createIntArrayCopy(const int src[], int nbElement);
 
 /**
  * allocate a copy of a string array
  */
-GRAPHICS_IMPEXP char ** createStringArrayCopy( char * src[], int nbElement ) ;
+GRAPHICS_IMPEXP char ** createStringArrayCopy(char * src[], int nbElement);
 
 /**
  * allocate a string array and set all its element to NULL
index 03604c2..66e0507 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 #include "dynlib_graphics.h"
 #include "machine.h" /* C2F */
 
-GRAPHICS_IMPEXP int C2F(champ) (double *x, double *y, double *fx, double *fy, int *n1, int *n2, char *strflag, double *brect, double *arfact, int lstr) ; 
-GRAPHICS_IMPEXP int C2F(champ1) (double *x, double *y, double *fx, double *fy, int *n1, int *n2, char *strflag, double *brect, double *arfact, int lstr) ; 
+GRAPHICS_IMPEXP int C2F(champ) (double *x, double *y, double *fx, double *fy, int *n1, int *n2, char *strflag, double *brect, double *arfact, int lstr) ;
+GRAPHICS_IMPEXP int C2F(champ1) (double *x, double *y, double *fx, double *fy, int *n1, int *n2, char *strflag, double *brect, double *arfact, int lstr) ;
 
-GRAPHICS_IMPEXP void champg(char *name, int colored, double *x, double *y, double *fx, double *fy, int *n1, 
-            int *n2, char *strflag, double *brect, double *arfact, int lstr) ;
+GRAPHICS_IMPEXP void champg(char *name, int colored, double *x, double *y, double *fx, double *fy, int *n1,
+                            int *n2, char *strflag, double *brect, double *arfact, int lstr);
 
 
 #endif
index b9d98bc..9c37b71 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 #include "dynlib_graphics.h"
 
 /**
- * Draw level curves for a function f(x,y) which values 
+ * Draw level curves for a function f(x,y) which values
  * at points x(i),y(j) are given by z(i,j)
- * - z is a (n1,n2) matrix 
- * - x is a (1,n1) matrix 
- * - y is a (1,n2) matrix 
- * - x,y,z are stored as one dimensionnal array in C 
- * - if *flagnz =0 
- * -   then  nz is an int pointer to the number of level curves. 
+ * - z is a (n1,n2) matrix
+ * - x is a (1,n1) matrix
+ * - y is a (1,n2) matrix
+ * - x,y,z are stored as one dimensionnal array in C
+ * - if *flagnz =0
+ * -   then  nz is an int pointer to the number of level curves.
  *     else  zz is an array which gives th requested level values.
  *            (and nz is the size of thos array)
  * Computed from min and max of z
  * Example Contour(1:5,1:10,rand(5,10),5);
  */
-GRAPHICS_IMPEXP int C2F(contourif)(double *x, double *y, double *z, int *n1, int *n2, int *flagnz, int *nz, double *zz, int *style) ;
+GRAPHICS_IMPEXP int C2F(contourif)(double *x, double *y, double *z, int *n1, int *n2, int *flagnz, int *nz, double *zz, int *style);
 
 /**
  * used to bring back data to Scilab Stack
  */
-GRAPHICS_IMPEXP int C2F(getconts)(double **x, double **y, int *mm, int *n) ;
+GRAPHICS_IMPEXP int C2F(getconts)(double **x, double **y, int *mm, int *n);
 
 #endif /* _CONTOUR_H_ */
index 75c79b7..9683a75 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 
 /*------------------------------------------------------------------------*/
 /* real default */
-#define DEFSTRF "081" 
-#define DEFSTRFN "099" 
-#define DEFLOGFLAGS "gnn" 
+#define DEFSTRF "081"
+#define DEFSTRFN "099"
+#define DEFLOGFLAGS "gnn"
 
 /*------------------------------------------------------------------------*/
 /* Accessors to to default values */
-GRAPHICS_IMPEXP double * getDefRect(      void ) ;
-GRAPHICS_IMPEXP char   * getDefStrf(      void ) ;
-GRAPHICS_IMPEXP char   * getDefLegend(    void ) ;
-GRAPHICS_IMPEXP double * getDefZminMax(   void ) ;
-GRAPHICS_IMPEXP int    * getDefNax(       void ) ;
-GRAPHICS_IMPEXP int    * getDefColMinMax( void ) ;
-GRAPHICS_IMPEXP int    * getDefColOut(    void ) ;
-GRAPHICS_IMPEXP BOOL     getDefWithMesh(  void ) ;
-GRAPHICS_IMPEXP char   * getDefLogFlags(  void ) ;
+GRAPHICS_IMPEXP double* getDefRect(void);
+GRAPHICS_IMPEXP char* getDefStrf(void);
+GRAPHICS_IMPEXP char* getDefLegend(void);
+GRAPHICS_IMPEXP double* getDefZminMax(void);
+GRAPHICS_IMPEXP int* getDefNax(void);
+GRAPHICS_IMPEXP int* getDefColMinMax(void);
+GRAPHICS_IMPEXP int* getDefColOut(void);
+GRAPHICS_IMPEXP BOOL getDefWithMesh(void);
+GRAPHICS_IMPEXP char* getDefLogFlags(void);
 /*------------------------------------------------------------------------*/
 /* set default values by copying the newDef */
-GRAPHICS_IMPEXP void setDefRect(      const double newDef[4] ) ;
-GRAPHICS_IMPEXP void setDefStrf(      const char   newDef[4] ) ;
-GRAPHICS_IMPEXP void setDefZminMax(   const double newDef[2] ) ;
-GRAPHICS_IMPEXP void setDefNax(       const int    newDef[4] ) ;
-GRAPHICS_IMPEXP void setDefColMinMax( const int    newDef[2] ) ;
-GRAPHICS_IMPEXP void setDefColOut(    const int    newDef[2] ) ;
-GRAPHICS_IMPEXP void setDefWithMesh(        BOOL   newDef    ) ;
-GRAPHICS_IMPEXP void setDefLogFlags(  const char   newDef[4] ) ;
+GRAPHICS_IMPEXP void setDefRect(const double newDef[4]);
+GRAPHICS_IMPEXP void setDefStrf(const char newDef[4]);
+GRAPHICS_IMPEXP void setDefZminMax(const double newDef[2]);
+GRAPHICS_IMPEXP void setDefNax(const int newDef[4]);
+GRAPHICS_IMPEXP void setDefColMinMax(const int newDef[2]);
+GRAPHICS_IMPEXP void setDefColOut(const int newDef[2]);
+GRAPHICS_IMPEXP void setDefWithMesh(BOOL newDef);
+GRAPHICS_IMPEXP void setDefLogFlags(const char newDef[4]);
 /*------------------------------------------------------------------------*/
 /* change values */
-GRAPHICS_IMPEXP void reinitDefStrf(     void ) ;
-GRAPHICS_IMPEXP void reinitDefStrfN(    void ) ;
-GRAPHICS_IMPEXP void reinitDefLogFlags( void ) ;
+GRAPHICS_IMPEXP void reinitDefStrf(void);
+GRAPHICS_IMPEXP void reinitDefStrfN(void);
+GRAPHICS_IMPEXP void reinitDefLogFlags(void);
 /*------------------------------------------------------------------------*/
 /* check if we are dealing with the default value */
-GRAPHICS_IMPEXP BOOL isDefRect(      const double * rect      ) ;
-GRAPHICS_IMPEXP BOOL isDefStrf(      const char   * strf      ) ;
-GRAPHICS_IMPEXP BOOL isDefLegend(    const char   * legend    ) ;
-GRAPHICS_IMPEXP BOOL isDefZminMax(   const double * zminmax   ) ;
-GRAPHICS_IMPEXP BOOL isDefNax(       const int    * nax       ) ;
-GRAPHICS_IMPEXP BOOL isDefColMinMax( const int    * colminmax ) ;
-GRAPHICS_IMPEXP BOOL isDefColOut(    const int    * colout    ) ;
-GRAPHICS_IMPEXP BOOL isDefWithMesh(  const BOOL     withmesh  ) ;
-GRAPHICS_IMPEXP BOOL isDefLogFlags(  const char   * logflags  ) ;
+GRAPHICS_IMPEXP BOOL isDefRect(const double* rect);
+GRAPHICS_IMPEXP BOOL isDefStrf(const char* strf);
+GRAPHICS_IMPEXP BOOL isDefLegend(const char* legend);
+GRAPHICS_IMPEXP BOOL isDefZminMax(const double* zminmax);
+GRAPHICS_IMPEXP BOOL isDefNax(const int* nax);
+GRAPHICS_IMPEXP BOOL isDefColMinMax(const int* colminmax);
+GRAPHICS_IMPEXP BOOL isDefColOut(const int* colout);
+GRAPHICS_IMPEXP BOOL isDefWithMesh(const BOOL withmesh);
+GRAPHICS_IMPEXP BOOL isDefLogFlags(const char* logflags);
 /*------------------------------------------------------------------------*/
 
 #endif /* _DEFAULT_COMMAND_ARG_H_ */
index 09f07e0..dbb8971 100644 (file)
@@ -28,8 +28,8 @@
 
 #include "dynlib_graphics.h"
 
-GRAPHICS_IMPEXP void AllGraphWinDelete( void ) ;
+GRAPHICS_IMPEXP void AllGraphWinDelete(void);
 
-GRAPHICS_IMPEXP void sciDeleteWindow( int winNum ) ;
+GRAPHICS_IMPEXP void sciDeleteWindow(int winNum);
 
 #endif /* __SCI_DESTROY__ */
index d87a573..5ff6e03 100644 (file)
 
 #include "dynlib_graphics.h"
 
-GRAPHICS_IMPEXP void sciGetDisplayedBounds( char * pSubWinUID,
-                                   double      * xmin   ,
-                                   double      * xmax   ,
-                                   double      * ymin   ,
-                                   double      * ymax   ,
-                                   double      * zmin   ,
-                                   double      * zmax    ) ;
+GRAPHICS_IMPEXP void sciGetDisplayedBounds(char * pSubWinUID,
+        double      * xmin   ,
+        double      * xmax   ,
+        double      * ymin   ,
+        double      * ymax   ,
+        double      * zmin   ,
+        double      * zmax);
 
 #endif /* __SCI_DRAWINGS__ */
index ef7c9b5..016abc5 100644 (file)
@@ -37,7 +37,7 @@
  * @param ar
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int C2F(graduate)(double *xmi, double *xma, double *xi, double *xa, int *np1, int *np2, int *kminr, int *kmaxr, int *ar) ;
+GRAPHICS_IMPEXP int C2F(graduate)(double *xmi, double *xma, double *xi, double *xa, int *np1, int *np2, int *kminr, int *kmaxr, int *ar);
 
 /**
  * @TODO add comment
@@ -46,7 +46,7 @@ GRAPHICS_IMPEXP int C2F(graduate)(double *xmi, double *xma, double *xi, double *
  * @param c_format
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int ComputeC_format( char * pobjUID, char * c_format ) ;
+GRAPHICS_IMPEXP int ComputeC_format(char * pobjUID, char * c_format);
 
 /**
  * @TODO add comment
@@ -58,7 +58,7 @@ GRAPHICS_IMPEXP int ComputeC_format( char * pobjUID, char * c_format ) ;
  * @param checkdim
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int ComputeXIntervals( char * pobjUID, char xy_type, double ** vector, int * N, int checkdim ) ;
+GRAPHICS_IMPEXP int ComputeXIntervals(char * pobjUID, char xy_type, double ** vector, int * N, int checkdim);
 
 /**
  * @TODO add comment
@@ -66,13 +66,13 @@ GRAPHICS_IMPEXP int ComputeXIntervals( char * pobjUID, char xy_type, double ** v
  * @param pobjUID
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP StringMatrix * computeDefaultTicsLabels( char * pobjUID ) ;
+GRAPHICS_IMPEXP StringMatrix * computeDefaultTicsLabels(char * pobjUID);
 
 /**
  * same as ChoixFormatE when numbers are given through an
  * array xx[0:nx-1];
  */
-GRAPHICS_IMPEXP void ChoixFormatE1(char *fmt, double *xx, int nx) ;
+GRAPHICS_IMPEXP void ChoixFormatE1(char *fmt, double *xx, int nx);
 
 /**
 * Create a new string array which is the conversion of the doubles values.
@@ -80,7 +80,7 @@ GRAPHICS_IMPEXP void ChoixFormatE1(char *fmt, double *xx, int nx) ;
 *                   it to the result. It must greater than the length of any of the strings.
 *                   and ideally the maximum length.
 */
-GRAPHICS_IMPEXP char ** copyFormatedArray( const double values[], int nbStrings, const char format[5], int bufferSize ) ;
+GRAPHICS_IMPEXP char ** copyFormatedArray(const double values[], int nbStrings, const char format[5], int bufferSize);
 
 /**
  * @TODO add comment
@@ -90,6 +90,6 @@ GRAPHICS_IMPEXP char ** copyFormatedArray( const double values[], int nbStrings,
  */
 GRAPHICS_IMPEXP char * getFPF(void);
 
-GRAPHICS_IMPEXP int sciGetLogExponent( double minBound, double maxBound, double * expMin, double * expMax );
+GRAPHICS_IMPEXP int sciGetLogExponent(double minBound, double maxBound, double* expMin, double* expMax);
 
 #endif /* _FORMAT_H_ */
index 8c7e0f1..d0aa959 100644 (file)
@@ -2,11 +2,11 @@
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Fabrice Leray
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param n1    
- * @param rhs_opts opts[]   
- * @param style 
+ * @param fname
+ * @param pos
+ * @param n1
+ * @param rhs_opts opts[]
+ * @param style
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style );
+GRAPHICS_IMPEXP int get_style_arg(void* _pvCtx, char *fname, int pos, int n1, rhs_opts opts[], int ** style);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param rect  
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param rect
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_rect_arg(char *fname,int pos,rhs_opts opts[], double ** rect );
+GRAPHICS_IMPEXP int get_rect_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], double ** rect);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param strf  
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param strf
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_strf_arg(char *fname,int pos,rhs_opts opts[], char ** strf );
+GRAPHICS_IMPEXP int get_strf_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], char ** strf);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param legend    
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param legend
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_legend_arg(char *fname,int pos,rhs_opts opts[], char ** legend );
+GRAPHICS_IMPEXP int get_legend_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], char ** legend);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param labels    
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param labels
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_labels_arg(char *fname,int pos,rhs_opts opts[], char ** labels );
+GRAPHICS_IMPEXP int get_labels_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], char ** labels);
 
 /**
  * @TODO add comment
  *
- * @param pos   
- * @param rhs_opts opts[]   
- * @param nax   
- * @param flagNax   
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param nax
+ * @param flagNax
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_nax_arg(int pos,rhs_opts opts[], int ** nax, BOOL * flagNax );
+GRAPHICS_IMPEXP int get_nax_arg(void* _pvCtx, int pos, rhs_opts opts[], int ** nax, BOOL * flagNax);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param zminmax   
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param zminmax
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_zminmax_arg(char *fname,int pos,rhs_opts opts[], double ** zminmax );
+GRAPHICS_IMPEXP int get_zminmax_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], double ** zminmax);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param colminmax 
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param colminmax
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_colminmax_arg(char *fname,int pos,rhs_opts opts[], int ** colminmax );
+GRAPHICS_IMPEXP int get_colminmax_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], int ** colminmax);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param colout    
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param colout
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_colout_arg(char *fname,int pos,rhs_opts opts[], int ** colout );
+GRAPHICS_IMPEXP int get_colout_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], int ** colout);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param withMesh  
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param withMesh
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_with_mesh_arg(char *fname,int pos,rhs_opts opts[], BOOL * withMesh);
+GRAPHICS_IMPEXP int get_with_mesh_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], BOOL * withMesh);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param rhs_opts opts[]   
- * @param logFlags  
+ * @param fname
+ * @param pos
+ * @param rhs_opts opts[]
+ * @param logFlags
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_logflags_arg(char *fname,int pos,rhs_opts opts[], char ** logFlags );
+GRAPHICS_IMPEXP int get_logflags_arg(void* _pvCtx, char *fname, int pos, rhs_opts opts[], char ** logFlags);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param name  
- * @param value 
- * @param sz    
- * @param  rhs_opts opts[]  
+ * @param fname
+ * @param pos
+ * @param name
+ * @param value
+ * @param sz
+ * @param  rhs_opts opts[]
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_optional_double_arg( char * fname, int pos, char * name, double ** value, int sz, rhs_opts opts[] ) ;
+GRAPHICS_IMPEXP int get_optional_double_arg(void* _pvCtx, char * fname, int pos, char * name, double ** value, int sz, rhs_opts opts[]);
 
 /**
  * @TODO add comment
  *
- * @param fname 
- * @param pos   
- * @param name  
- * @param value 
- * @param sz    
- * @param  rhs_opts opts[]  
+ * @param fname
+ * @param pos
+ * @param name
+ * @param value
+ * @param sz
+ * @param  rhs_opts opts[]
  * @return <ReturnValue>
  */
-GRAPHICS_IMPEXP int get_optional_int_arg( char * fname, int pos, char * name, int ** value, int sz, rhs_opts opts[] ) ;
+GRAPHICS_IMPEXP int get_optional_int_arg(void* _pvCtx, char * fname, int pos, char * name, int ** value, int sz, rhs_opts opts[]);
 /*------------------------------------------------------------------------*/
-#define sciGetStyle(fname,pos,n1,opts,style) { if ( get_style_arg(fname,pos,n1,opts,style) == 0) { return 0 ; } }
-#define GetRect(fname,pos,opts,rect) { if ( get_rect_arg(fname,pos,opts,rect) == 0) { return 0 ; } }
-#define GetStrf(fname,pos,opts,strf) { if ( get_strf_arg(fname,pos,opts,strf) == 0) { return 0 ; } }
-#define GetLegend(fname,pos,opts,legend) { if ( get_legend_arg(fname,pos,opts,legend) == 0) { return 0 ; } }
-#define GetLabels(fname,pos,opts,labels) { if ( get_labels_arg(fname,pos,opts,labels) == 0) { return 0 ; } }
-#define GetNax(pos,opts,nax,flagNax) { if ( get_nax_arg(pos,opts,nax,flagNax)==0 ) { return 0 ; } }
-#define GetZminmax(fname,pos,opts,zminmax) { if ( get_zminmax_arg(fname,pos,opts,zminmax) == 0) { return 0 ; } }
-#define GetColminmax(fname,pos,opts,colminmax) { if ( get_colminmax_arg(fname,pos,opts,colminmax)==0 ) { return 0 ; } }
-#define GetColOut(fname,pos,opts,colout) { if ( get_colout_arg(fname,pos,opts,colout)==0 ) { return 0 ; } }
-#define GetWithMesh(fname,pos,opts,withMesh) { if ( get_with_mesh_arg(fname,pos,opts,withMesh)==0 ) { return 0 ; } }
-#define GetLogflags(fname,pos,opts,logFlags) { if ( get_logflags_arg(fname,pos,opts,logFlags) == 0) { return 0 ; } }
-#define GetOptionalDoubleArg(fname,pos,name,value,sz,opts) { if ( get_optional_double_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
-#define GetOptionalIntArg(fname,pos,name,value,sz,opts) { if ( get_optional_int_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
+#define sciGetStyle(PVCTX,fname,pos,n1,opts,style) { if (get_style_arg(PVCTX,fname,pos,n1,opts,style) == 0) { return 0 ; } }
+#define GetRect(PVCTX,fname,pos,opts,rect) { if (get_rect_arg(PVCTX,fname,pos,opts,rect) == 0) { return 0 ; } }
+#define GetStrf(PVCTX,fname,pos,opts,strf) { if (get_strf_arg(PVCTX,fname,pos,opts,strf) == 0) { return 0 ; } }
+#define GetLegend(PVCTX,fname,pos,opts,legend) { if (get_legend_arg(PVCTX,fname,pos,opts,legend) == 0) { return 0 ; } }
+#define GetLabels(PVCTX,fname,pos,opts,labels) { if (get_labels_arg(PVCTX,fname,pos,opts,labels) == 0) { return 0 ; } }
+#define GetNax(PVCTX,pos,opts,nax,flagNax) { if (get_nax_arg(PVCTX,pos,opts,nax,flagNax)==0) { return 0 ; } }
+#define GetZminmax(PVCTX,fname,pos,opts,zminmax) { if (get_zminmax_arg(PVCTX,fname,pos,opts,zminmax) == 0) { return 0 ; } }
+#define GetColminmax(PVCTX,fname,pos,opts,colminmax) { if (get_colminmax_arg(PVCTX,fname,pos,opts,colminmax)==0) { return 0 ; } }
+#define GetColOut(PVCTX,fname,pos,opts,colout) { if (get_colout_arg(PVCTX,fname,pos,opts,colout)==0) { return 0 ; } }
+#define GetWithMesh(PVCTX,fname,pos,opts,withMesh) { if (get_with_mesh_arg(PVCTX,fname,pos,opts,withMesh)==0) { return 0 ; } }
+#define GetLogflags(PVCTX, fname,pos,opts,logFlags) { if (get_logflags_arg(PVCTX, fname,pos,opts,logFlags) == 0) { return 0 ; } }
+#define GetOptionalDoubleArg(PVCTX,fname,pos,name,value,sz,opts) { if (get_optional_double_arg(PVCTX,fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
+#define GetOptionalIntArg(PVCTX,fname,pos,name,value,sz,opts) { if (get_optional_int_arg(PVCTX,fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
 /*------------------------------------------------------------------------*/
 
 #endif /* _GET_COMMAND_ARG_H_ */
index 05c9aca..7c33242 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 #include "machine.h"
 
 /**
- * - z is a (n1,n2) matrix 
- * - x is a (1,n1) matrix 
- * - y is a (1,n2) matrix 
- * - x,y,z are stored as one dimensionnal array in C 
+ * - z is a (n1,n2) matrix
+ * - x is a (1,n1) matrix
+ * - y is a (1,n2) matrix
+ * - x,y,z are stored as one dimensionnal array in C
  *
- *  z : is the value of a function on the grid defined by x,y 
- *  on each rectangle the average value of z is computed 
+ *  z : is the value of a function on the grid defined by x,y
+ *  on each rectangle the average value of z is computed
  *  and [zmin,zmax] is linearly remapped to the [colormin,colormap]
- *  values of colors in the current colormap 
- *  the color associated to zmoy is used for filling a specific rectangle 
+ *  values of colors in the current colormap
+ *  the color associated to zmoy is used for filling a specific rectangle
  */
-GRAPHICS_IMPEXP int C2F(xgray)(double *x, double *y, double *z, int *n1, int *n2, char *strflag, double *brect, int *aaint, BOOL flagNax, long int l1) ;
+GRAPHICS_IMPEXP int C2F(xgray)(double *x, double *y, double *z, int *n1, int *n2, char *strflag, double *brect, int *aaint, BOOL flagNax, long int l1);
 
 
 /**
  * Matplot subroutine
- *  z : of size n1*n2 
+ *  z : of size n1*n2
  *  the z value is interpreted as a color number inside the current colormap
  *  z[i,j] is used as the color of a square [i-0.5,i+0.5] [j-0.5,j+0.5]
  */
-GRAPHICS_IMPEXP int C2F(xgray1)(double *z, int *n1, int *n2, char *strflag, double *brect, int *aaint, BOOL flagNax, long int l1) ;
+GRAPHICS_IMPEXP int C2F(xgray1)(double *z, int *n1, int *n2, char *strflag, double *brect, int *aaint, BOOL flagNax, long int l1);
 
 
 /**
- * like xgray1 : 
- * but xrect here give the rectangle in which the 
+ * like xgray1 :
+ * but xrect here give the rectangle in which the
  * grayplot is to be drawn using the current scale
  */
-GRAPHICS_IMPEXP int C2F(xgray2)(double *z, int *n1, int *n2, double *xrect) ;
+GRAPHICS_IMPEXP int C2F(xgray2)(double *z, int *n1, int *n2, double *xrect);
 
 #endif /* _GRAY_PLOT_H_ */
index 73e8817..c91b96e 100644 (file)
 #include "dynlib_graphics.h"
 
 GRAPHICS_IMPEXP void convertUserCoordToPixelCoords(const double xCoords[], const double yCoords[],
-                                   int xPixCoords[], int yPixCoords[], int nbCoords,
-                                   int rect[4]);
+        int xPixCoords[], int yPixCoords[], int nbCoords,
+        int rect[4]);
 
 GRAPHICS_IMPEXP void convertPixelCoordsToUserCoords(const int xPixCoords[], const int yPixCoords[],
-                                    double xUserCoords[], double yUserCoords[], int nbCoords,
-                                    int rect[4]);
+        double xUserCoords[], double yUserCoords[], int nbCoords,
+        int rect[4]);
 
-GRAPHICS_IMPEXP void compute_data_bounds2(int cflag,char dataflag, char * logflags, double *x,double  *y, int n1,int n2, double *drect);
+GRAPHICS_IMPEXP void compute_data_bounds2(int cflag, char dataflag, char * logflags, double *x, double  *y, int n1, int n2, double *drect);
 
-GRAPHICS_IMPEXP BOOL update_specification_bounds(char *psubwinUID,double rect[6],int flag);
+GRAPHICS_IMPEXP BOOL update_specification_bounds(char *psubwinUID, double rect[6], int flag);
 
 
 #endif  /* _SCI_ECH */
index 394274c..12d94d9 100644 (file)
 
 #include "dynlib_graphics.h"
 
-GRAPHICS_IMPEXP int re_index_brect(double * brect, double * drect);
+GRAPHICS_IMPEXP int re_index_brect(double* brect, double* drect);
 
 GRAPHICS_IMPEXP BOOL strflag2axes_properties(char * psubwinUID, char * strflag);
 
-GRAPHICS_IMPEXP int plot2dn(int ptype,char *logflags,double *x,double *y,int *n1,int *n2,int *style,char *strflag,char *legend,double *brect,int *aaint,BOOL flagNax, int lstr1,int lstr2);
+GRAPHICS_IMPEXP int plot2dn(int ptype, char *logflags, double *x, double *y, int *n1, int *n2, int *style, char *strflag, char *legend, double *brect, int *aaint, BOOL flagNax, int lstr1, int lstr2);
 
 #endif /* _PLOT2D_H_ */
index 5fd6d3e..0bf0ce1 100644 (file)
 #include "dynlib_graphics.h"
 #include "BOOL.h"
 
-GRAPHICS_IMPEXP int sciSetLineWidth ( char* pobj, double linewidth ) ;  /* SET */
+GRAPHICS_IMPEXP int sciSetLineWidth (char* pobj, double linewidth) ;  /* SET */
 
-GRAPHICS_IMPEXP int sciSetLineStyle ( char* pobj, int linestyle ) ; /* SET */
+GRAPHICS_IMPEXP int sciSetLineStyle (char* pobj, int linestyle) ; /* SET */
 
 GRAPHICS_IMPEXP int sciSetMarkSize (char* pobj, int marksize); /* SET */
 
 /* Text Functions */
-GRAPHICS_IMPEXP int sciSetText (   char* pobj, char ** text, int nbRow, int nbCol ) ; /* SET */
+GRAPHICS_IMPEXP int sciSetText (  char* pobj, char ** text, int nbRow, int nbCol) ; /* SET */
 
 /* GMODE */
 GRAPHICS_IMPEXP int sciSetDefaultValues (void); /* SET */
index 810aa64..126f136 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
@@ -27,7 +27,7 @@
  * The StringMatrix is just a pointer matrix. So it can be used in any function using
  * sciMatrix. The typedef is used for a more understandable code.
  */
-typedef sciMatrix StringMatrix ;
+typedef sciMatrix StringMatrix;
 
 /*----------------------------------------------------------------------------------*/
 /* Constructors */
@@ -35,31 +35,31 @@ typedef sciMatrix StringMatrix ;
  * create a nbRow x nbCol matrix which data are copied.
  * @param textMat the copied data.
  */
-GRAPHICS_IMPEXP StringMatrix * newFullStringMatrix( char ** textMat, int nbRow, int nbCol ) ;
+GRAPHICS_IMPEXP StringMatrix * newFullStringMatrix(char ** textMat, int nbRow, int nbCol);
 
 /**
  * Create a new string matrix filled with empty strings
  */
 GRAPHICS_IMPEXP StringMatrix * newEmptyStringMatrix(int nbRow, int nbCol);
 
-/** 
+/**
  * copy constructor
  */
-GRAPHICS_IMPEXP StringMatrix * copyStringMatrix( const StringMatrix * copyMat ) ;
+GRAPHICS_IMPEXP StringMatrix * copyStringMatrix(const StringMatrix * copyMat);
 
 /*----------------------------------------------------------------------------------*/
 /* accessors */
-GRAPHICS_IMPEXP char * getStrMatElement( const StringMatrix * mat, int row, int col ) ;
+GRAPHICS_IMPEXP char * getStrMatElement(const StringMatrix * mat, int row, int col);
 
 /**
  * get the pointer on the array of string. May be used for faster access to the data.
  */
-GRAPHICS_IMPEXP char ** getStrMatData(  const StringMatrix * mat ) ;
+GRAPHICS_IMPEXP char ** getStrMatData( const StringMatrix * mat);
 
 /**
  * desalocate the (row,col) current string and copy the new one.
  */
-GRAPHICS_IMPEXP void copyStrMatElement( StringMatrix * mat, int row, int col, const char * copyStr ) ;
+GRAPHICS_IMPEXP void copyStrMatElement(StringMatrix * mat, int row, int col, const char * copyStr);
 
 /*----------------------------------------------------------------------------------*/
 /* utilities */
index dc7ce5e..0149264 100644 (file)
@@ -1,16 +1,16 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA - Allan Cornet
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
 #ifndef _TERMINATEGRAPHICS_H__
 #define _TERMINATEGRAPHICS_H__
 #include "BOOL.h"
@@ -19,4 +19,4 @@
 GRAPHICS_IMPEXP BOOL TerminateGraphics(void);
 
 #endif /* _TERMINATEGRAPHICS_H__ */
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
index a3c67d4..572d65f 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
@@ -42,7 +42,7 @@ GRAPHICS_IMPEXP void updateTextBounds(char * pTextUID);
 
 /*------------------------------------------------------------------------------*/
 GRAPHICS_IMPEXP BOOL checkDataBounds(char * subwinUID, double xMin, double xMax,
-                     double yMin, double yMax, double zMin, double zMax);
+                                     double yMin, double yMax, double zMin, double zMax);
 /*------------------------------------------------------------------------------*/
 
 
index a86a27a..0255882 100644 (file)
@@ -1,16 +1,16 @@
 /*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 * Copyright (C) DIGITEO - 2009 - Allan CORNET
-* 
+*
 * This file must be used under the terms of the CeCILL.
 * This source file is licensed as described in the file COPYING, which
 * you should have received as part of this distribution.  The terms
-* are also available at    
+* are also available at
 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 *
 */
 
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
 #ifndef __DYNLIB_GRAPHICS_H__
 #define __DYNLIB_GRAPHICS_H__
 
@@ -25,5 +25,5 @@
 #endif
 
 #endif /* __DYNLIB_GRAPHICS_H__ */
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
 
index 46c4e78..3b84264 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA - Allan Cornet
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
index 3bcb9b7..be4ca32 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2007 - INRIA - Allan Cornet
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
index 2e94cc0..1d8b6ef 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 /**
  * Routine creating all needed objetcs for the module
  */
-GRAPHICS_IMPEXP void loadGraphicModule( void ) ;
+GRAPHICS_IMPEXP void loadGraphicModule(void);
 
 /**
  * Closing function freeing all memory used by the graphic module
  */
-GRAPHICS_IMPEXP void closeGraphicModule( void ) ;
+GRAPHICS_IMPEXP void closeGraphicModule(void);
 
 #endif /* _GRAPHIC_MODULE_CLOSE_H_ */
index 83f23ec..9aeeca0 100644 (file)
@@ -2,11 +2,11 @@
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 1998 - 2000 - ENPC - Jean-Philipe Chancelier
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
 #include "BOOL.h"
 #include "core_math.h"
 
-#ifdef _MSC_VER 
-               #include <float.h>
-               #define finite(x) _finite(x) 
-#else  /* _MSC_VER */ 
-       /** This should only be provided when finite prototype is missing **/
-       /** XXX : to be tested **/
-       #ifndef __cplusplus
-       int finite (double);
-       #endif
+#ifdef _MSC_VER
+#include <float.h>
+#define finite(x) _finite(x)
+#else  /* _MSC_VER */
+/** This should only be provided when finite prototype is missing **/
+/** XXX : to be tested **/
+#ifndef __cplusplus
+int finite (double);
+#endif
 #endif /* _MSC_VER */
 
-#ifdef _MSC_VER 
-       #include <float.h>
-       #define ISNAN(x) _isnan(x)
-#else 
-       #define ISNAN(x) isnan(x)
-#endif 
+#ifdef _MSC_VER
+#include <float.h>
+#define ISNAN(x) _isnan(x)
+#else
+#define ISNAN(x) isnan(x)
+#endif
 
 
 #define PI0 (int *) 0
 #define SMDOUBLE 1.e-200 /* Smalest number to avoid dividing by zero */
 
 /* angle conversion */
-#define PI_OVER_180  0.01745329251994329576913914624236578987393
-#define _180_OVER_PI 57.29577951308232087665461840231273527024
-#define DEG2RAD(x) ((x) * PI_OVER_180  )
-#define RAD2DEG(x) ((x) * _180_OVER_PI )
-
 #define                round(a)        (int)(((a)<0.0)?(a)-.5:(a)+.5)
 #define EPSILON 1.0e-13
 
-#define linint(x) ((int)  floor(x + 0.5 )) 
-#define inint(x) ((int) floor(x + 0.5 ))  
-
-#if (defined(sun) || defined(SYSV)) 
+#if (defined(sun) || defined(SYSV))
 #include <ieeefp.h>
 #endif
 
 #if defined(_MSC_VER)
-  #define M_PI 3.14159265358979323846
+#define M_PI 3.14159265358979323846
+#else
+#if defined(HAVE_VALUES_H)
+#include <values.h>
 #else
-  #if defined(HAVE_VALUES_H)
-    #include <values.h>
-  #else
-    #if defined(HAVE_LIMITS_H)
-     #include <limits.h>
-    #endif
-  #endif
+#if defined(HAVE_LIMITS_H)
+#include <limits.h>
+#endif
+#endif
 #endif
 
 #ifndef M_PI
-#define M_PI 3.14159265358979323846 
+#define M_PI 3.14159265358979323846
 #endif
 
-GRAPHICS_IMPEXP double Mini(const double vect[], int n) ;
+GRAPHICS_IMPEXP double Mini(const double vect[], int n);
 
-GRAPHICS_IMPEXP double Maxi(const double vect[], int n) ;
+GRAPHICS_IMPEXP double Maxi(const double vect[], int n);
 
 
 
@@ -91,31 +83,31 @@ GRAPHICS_IMPEXP double Maxi(const double vect[], int n) ;
 /* 2D algorithms                                                        */
 /************************************************************************/
 /* perform the rotation of point from to point dest with angle in radian  */
-GRAPHICS_IMPEXP void rotate2D( double from[2], double center[2], double angle, double dest[2] ) ;
+GRAPHICS_IMPEXP void rotate2D(double from[2], double center[2], double angle, double dest[2]);
 
 /* perform the rotation of point from to point to. */
 /* the angle is directly given with its sine and cosine for speed */
-GRAPHICS_IMPEXP void rotate2Dim( double from[2]   ,
-                 double center[2] ,
-                 double cosAngle  ,
-                 double sinAngle  ,
-                 double dest[2]    ) ;
+GRAPHICS_IMPEXP void rotate2Dim(double from[2]   ,
+                                double center[2] ,
+                                double cosAngle  ,
+                                double sinAngle  ,
+                                double dest[2]);
 
 /* perform the translation of point from to point dest with vector trans */
-GRAPHICS_IMPEXP void translate2D( double from[2], double trans[2], double dest[2] ) ;
+GRAPHICS_IMPEXP void translate2D(double from[2], double trans[2], double dest[2]);
 
 /* perform the translation of point from to point dest with vector trans given in pixels.*/
-GRAPHICS_IMPEXP void iTranslate2D( int from[2], int trans[2], int dest[2] ) ;
+GRAPHICS_IMPEXP void iTranslate2D(int from[2], int trans[2], int dest[2]);
 
 /**
  * Normalize a 2d vector.
  */
-GRAPHICS_IMPEXP void normalize2d( double vect[2] ) ;
+GRAPHICS_IMPEXP void normalize2d(double vect[2]);
 
 /**
  * Normalize a 2d vector in pixels coordinates.
  */
-GRAPHICS_IMPEXP void iNormalize2d( int vect[2] ) ;
+GRAPHICS_IMPEXP void iNormalize2d(int vect[2]);
 
 /**
  * Perform the substraction of vect1 and vect2 and store it in res
@@ -137,29 +129,29 @@ GRAPHICS_IMPEXP void scalarMult2D(const double v[2], const double scalar, double
 /**
  * return the scalar product of two 2d vectors.
  */
-#define DOT_PROD_2D(v1,v2) ( ((v1)[0]) * ((v2)[0]) + ((v1)[1]) * ((v2)[1]) )
+#define DOT_PROD_2D(v1,v2) (((v1)[0]) * ((v2)[0]) + ((v1)[1]) * ((v2)[1]))
 
 /**
  * Square norm of a vector
  */
-#define SQUARE_NORM_2D(v) ( DOT_PROD_2D((v),(v)) )
+#define SQUARE_NORM_2D(v) (DOT_PROD_2D((v),(v)))
 
 /**
  * Norm of a 2D vector
  */
-#define NORM_2D(v) ( sqrt( SQUARE_NORM_2D(v) ) )
+#define NORM_2D(v) (sqrt(SQUARE_NORM_2D(v)))
 
 /**
  * Compute wether the point lies within the triangle defined by A, B and C
  */
 GRAPHICS_IMPEXP BOOL isPointInTriangle(const double point[2], const double a[2],
-                       const double b[2], const double c[2]);
+                                       const double b[2], const double c[2]);
 
 /**
  * Compute wether p1 and p2 are on the same side of line (A,B).
  */
 GRAPHICS_IMPEXP BOOL areOnSameSideOfLine(const double p1[2], const double p2[2],
-                         const double a[2], const double b[2]);
+        const double a[2], const double b[2]);
 
 /************************************************************************/
 /* 3D algorithms                                                        */
@@ -168,23 +160,23 @@ GRAPHICS_IMPEXP BOOL areOnSameSideOfLine(const double p1[2], const double p2[2],
 /**
  * Scalar product of 2 vectors in 3D
  */
-#define DOT_PROD_3D(v1,v2) ( ((v1)[0]) * ((v2)[0]) + ((v1)[1]) * ((v2)[1]) + ((v1)[2]) * ((v2)[2]) )
+#define DOT_PROD_3D(v1,v2) (((v1)[0]) * ((v2)[0]) + ((v1)[1]) * ((v2)[1]) + ((v1)[2]) * ((v2)[2]))
 
 /**
  * Cross product of two vector
  * @param res v1^v2
  */
-GRAPHICS_IMPEXP void crossProduct( const double v1[3], const double v2[3], double res[3] ) ;
+GRAPHICS_IMPEXP void crossProduct(const double v1[3], const double v2[3], double res[3]);
 
 /**
  * Square norm of a 3D vector
  */
-#define SQUARE_NORM_3D(v) ( DOT_PROD_3D((v),(v)) )
+#define SQUARE_NORM_3D(v) (DOT_PROD_3D((v),(v)))
 
 /**
  * Norm of a 3D vector
  */
-#define NORM_3D(v) ( sqrt( SQUARE_NORM_3D(v) ) )
+#define NORM_3D(v) (sqrt(SQUARE_NORM_3D(v)))
 
 /**
  * substraction of two vector
@@ -207,7 +199,7 @@ GRAPHICS_IMPEXP void scalarMult3D(const double v[3], double scalar, double res[3
 /**
  * Normalize a 3D vector
  */
-GRAPHICS_IMPEXP void normalize3D( double vect[3] ) ;
+GRAPHICS_IMPEXP void normalize3D(double vect[3]);
 
 /**
  * Set a 4x4 matrix to identity.
@@ -223,42 +215,42 @@ GRAPHICS_IMPEXP void mat4DMult(const double mat4D[4][4], const double vect3D[3],
 
 /* check if two values can be considered equal given an accurracy */
 /* the x == y test is put to avoid division by 0 */
-#define SAFE_EQUAL2(x,y,acc) ( Abs( (x) - (y) ) / Max( Abs( (x) + (y) ), EPSILON ) < (acc) )
+#define SAFE_EQUAL2(x,y,acc) (Abs((x) - (y)) / Max(Abs((x) + (y)), EPSILON) < (acc))
 
-#define SAFE_EQUAL(x,y,acc) ( (x) == (y) ) || ( Abs( (x) - (y) ) < (acc) * Max( Abs( (x) ), Abs( (y) ) ) )
+#define SAFE_EQUAL(x,y,acc) ((x) == (y)) || (Abs((x) - (y)) < (acc) * Max(Abs((x)), Abs((y))))
 /* test if a value if lesser than an other or just sligthy greater */
-#define SAFE_LT(x,y,acc) ( (x) == (y) || ( (x) - (y) ) < (acc) * Max( Abs( (x) ), Abs( (y) ) ) )
-#define SAFE_GT(x,y,acc) ( (x) == (y) || ( (y) - (x) ) < (acc) * Max( Abs( (x) ), Abs( (y) ) ) )
+#define SAFE_LT(x,y,acc) ((x) == (y) || ((x) - (y)) < (acc) * Max(Abs((x)), Abs((y))))
+#define SAFE_GT(x,y,acc) ((x) == (y) || ((y) - (x)) < (acc) * Max(Abs((x)), Abs((y))))
 /*----------------------------------------------------------------------------*/
 
 /*----------------------------------------------------------------------------*/
 /* truncate an int to a 16 bits integer. Overflow value are truncated to the min */
 /* and max of 16 bits integer. */
-#define INT_2_16B(i) ( (i) > INT16MAX ? (INT16MAX) : ( (i) < INT16MIN ? INT16MIN : ((SCIINT16) i)) )
+#define INT_2_16B(i) ((i) > INT16MAX ? (INT16MAX) : ((i) < INT16MIN ? INT16MIN : ((SCIINT16) i)))
 /*----------------------------------------------------------------------------*/
 
 /*----------------------------------------------------------------------------*/
 /* truncate an int to a char. Overflow value are truncated to the min */
 /* and max of char integer. */
-#define INT_2_UCHAR(i) ( (i) > UCHAR_MAX ? (UCHAR_MAX) : ( (i) < 0  ? 0 : ((char) i)) )
+#define INT_2_UCHAR(i) ((i) > UCHAR_MAX ? (UCHAR_MAX) : ((i) < 0  ? 0 : ((char) i)))
 /*----------------------------------------------------------------------------*/
 
 /*----------------------------------------------------------------------------*/
 /* truncate a float or double to an int. Overflow value are truncated to the min */
 /* and max of 32 bits integer. */
-#define FLOAT_2_INT(f) ( (f) > INT_MAX ? (INT_MAX) : ( (f) < INT_MIN ? (INT_MIN) : ( inint( f ) ) ) )
+#define FLOAT_2_INT(f) ((f) > INT_MAX ? (INT_MAX) : ((f) < INT_MIN ? (INT_MIN) : (inint(f))))
 /*----------------------------------------------------------------------------*/
 
 /*----------------------------------------------------------------------------*/
-/* return the number of digits of a positive int (ie for 10236 it is 5 )  */
+/* return the number of digits of a positive int (ie for 10236 it is 5)  */
 /* the added 0.5 is to avoid trouble with 10^i which could become 9.999999999 */
-#define GET_NB_DIGITS_POS(i) ( (i) == 0 ? 1 : ((int) floor( log10( (i) + 0.5 ) ) ) + 1 )
+#define GET_NB_DIGITS_POS(i) ((i) == 0 ? 1 : ((int) floor(log10((i) + 0.5))) + 1)
 /*----------------------------------------------------------------------------*/
 
 /*----------------------------------------------------------------------------*/
-/* return the number of digits of an int (ie for 10236 it is 5 or -102 it is 4 )  */
+/* return the number of digits of an int (ie for 10236 it is 5 or -102 it is 4)  */
 /* For negative values, the length is increased by 1 because of the '-' sign" */
-#define GET_NB_DIGITS(i) ( (i) > 0 ? GET_NB_DIGITS_POS(i) : GET_NB_DIGITS_POS(-i) + 1 )
+#define GET_NB_DIGITS(i) ((i) > 0 ? GET_NB_DIGITS_POS(i) : GET_NB_DIGITS_POS(-i) + 1)
 /*----------------------------------------------------------------------------*/
 
 
index d3b77c3..f111e8d 100644 (file)
 /**
  * return the number of different pixel drawing modes.
  */
-GRAPHICS_IMPEXP int getNbPixelModes( void ) ;
+GRAPHICS_IMPEXP int getNbPixelModes(void);
 
 /**
  * Get the name of pixel mode number index.
  */
-GRAPHICS_IMPEXP char * getPixelMode( int ind ) ;
+GRAPHICS_IMPEXP char * getPixelMode(int ind);
 
 /**
  * Look for a pixel mode of name modeName and return its index.
  * If none has been found, return -1. Another negative value is returned
  * if an error occurred.
  */
-GRAPHICS_IMPEXP int getPixelModeIndex( const char * modeName ) ;
+GRAPHICS_IMPEXP int getPixelModeIndex(const char * modeName);
 
 #endif
index 78bf1ad..236ab73 100644 (file)
 #include "BOOL.h"
 #include "BuildObjects.h"
 
-GRAPHICS_IMPEXP void Objrect ( double * x         ,
-                               double * y         ,
-                               double * width     ,
-                               double * height    ,
-                               int    * foreground,
-                               int    * background,
-                               BOOL     isfilled  ,
-                               BOOL     isline    ,
-                               long   * hdl       ) ;
-
-GRAPHICS_IMPEXP void Objarc( double * angle1    ,
-                             double * angle2    ,
-                             double * x         ,
-                             double * y         ,
-                             double * width     ,
-                             double * height    ,
-                             int    * foreground,
-                             int    * background,
-                             BOOL     isfilled  ,
-                             BOOL     isline    ,
-                             long   * hdl        ) ;
-
-GRAPHICS_IMPEXP void Objpoly ( double  * x     ,
-                               double  * y     ,
-                               int   n     ,
-                               int   closed,
-                               int       mark  ,
-                               long    * hdl    ) ;
-
-GRAPHICS_IMPEXP void Objfpoly ( double  * x    ,
-                                double  * y    ,
-                                int   n    ,
-                                int * style,
-                                long    * hdl  ,
-                                int   shading ) ;
-
-GRAPHICS_IMPEXP void Objsegs ( int * style,
-                               int   flag ,
-                               int   n1   ,
-                               double  * x    ,
-                               double  * y    ,
-                               double  * z    ,
-                               double    arsize ) ;
-
-GRAPHICS_IMPEXP void Objstring( char            ** fname      ,
-                                int                nbRow      ,
-                                int                nbCol      ,
-                                double             x          ,
-                                double             y          ,
-                                double           * angle      ,
-                                double             box[4]     ,
-                                BOOL               autoSize   ,
-                                double             userSize[2],
-                                long             * hdl        ,
-                                int                centerPos  ,
-                                int              * foreground ,
-                                int              * background ,
-                                BOOL               isboxed    ,
-                                BOOL               isline     ,
-                                BOOL               isfilled   ,
-                                sciTextAlignment   alignment   ) ;
-
-
-GRAPHICS_IMPEXP void Objplot2d ( int       ptype     ,
-                                 char      logflags[],
-                                 double    x[]       ,
-                                 double    y[]       ,
-                                 int * n1        ,
-                                 int * n2        ,
-                                 int   style[]   ,
-                                 char      strflag[] ,
-                                 char      legend[]  ,
-                                 double    brect[]   ,
-                                 int   aaint[]   ,
-                                 BOOL      flagNax    ) ;
-
-GRAPHICS_IMPEXP void Objgrayplot ( double    x[]      ,
-                                   double    y[]      ,
-                                   double    z[]      ,
-                                   int * n1       ,
-                                   int * n2       ,
-                                   char      strflag[],
-                                   double    brect[]  ,
-                                   int   aaint[]  ,
-                                   BOOL      flagNax   ) ;
-
-GRAPHICS_IMPEXP void Objmatplot (double    z[]      ,
-                                 int * n1       ,
-                                 int * n2       ,
-                                 char      strflag[],
-                                 double    brect[]  ,
-                                 int   aaint[]  ,
-                                 BOOL      flagNax   ) ;
-
-GRAPHICS_IMPEXP void Objmatplot1 ( double    z[],
-                                   int * n1 ,
-                                   int * n2 ,
-                                   double    xrect[] ) ;
-
-GRAPHICS_IMPEXP void Objplot3d ( char    * fname ,
-                                 int * isfac ,
-                                 int * izcol ,
-                                 double    x[]   ,
-                                 double    y[]   ,
-                                 double    z[]   ,
-                                 double  * zcol  ,
-                                 int * m     ,
-                                 int * n     ,
-                                 double  * theta ,
-                                 double  * alpha ,
-                                 char    * legend,
-                                 int * iflag ,
-                                 double  * ebox  ,
-                                 int * m1    , /*Adding F.Leray 12.03.04 and 19.03.04*/
-                                 int * n1    ,
-                                 int * m2    ,
-                                 int * n2    ,
-                                 int * m3    ,
-                                 int * n3    ,
-                                 int * m3n   ,
-                                 int * n3n    ) ;
-
-GRAPHICS_IMPEXP void Objdrawaxis ( char     dir    ,
-                                   char     tics   ,
-                                   double * x      ,
-                                   int    * nx     ,
-                                   double * y      ,
-                                   int    * ny     ,
-                                   char   * val[]  ,
-                                   int      subint ,
-                                   char   * format ,
-                                   int      font   ,
-                                   int      textcol,
-                                   int      ticscol,
-                                   char     flag   ,
-                                   int      seg    ,
-                                   int      nb_tics_labels ) ;
-
-GRAPHICS_IMPEXP void Objnumb( char          * fname    ,
-                              unsigned long   fname_len,
-                              int         n        ,
-                              int         flag     ,
-                              double          x        ,
-                              double          y        ,
-                              double        * angle    ,
-                              double        * box       ) ;
-
-GRAPHICS_IMPEXP void Objfec ( double    x[]        ,
-                              double    y[]        ,
-                              double    noeud[]    ,
-                              double  * fun        ,
-                              int * n          ,
-                              int * m          ,
-                              char      strflag[]  ,
-                              char      legend[]   ,
-                              double    brect[]    ,
-                              int   aaint[]    ,
-                              double    Zminmax[]  ,
-                              int   Colminmax[],
-                              int   ColOut[]   ,
-                              BOOL      WithMesh   ,
-                              BOOL      flagNax     ) ;
+GRAPHICS_IMPEXP void Objrect(double* x, double* y, double* width, double* height, int* foreground, int* background, BOOL isfilled, BOOL isline, long* hdl);
+
+GRAPHICS_IMPEXP void Objarc(double* angle1, double* angle2, double* x, double* y, double* width, double* height, int* foreground, int* background, BOOL isfilled, BOOL isline, long* hdl);
+
+GRAPHICS_IMPEXP void Objpoly(double* x, double* y, int n, int closed, int mark, long* hdl);
+
+GRAPHICS_IMPEXP void Objfpoly(double* x, double* y, int n, int* style, long* hdl, int shading);
+
+GRAPHICS_IMPEXP void Objsegs(int* style, int flag , int n1, double* x, double* y, double* z, double arsize);
+
+GRAPHICS_IMPEXP void Objstring(char** fname, int nbRow, int nbCol, double  x, double  y, double* angle, double  box[4], BOOL autoSize, double userSize[2], long* hdl, int centerPos, int* foreground, int* background, BOOL isboxed, BOOL isline, BOOL isfilled, sciTextAlignment alignment);
+
+GRAPHICS_IMPEXP void Objplot2d(int ptype, char logflags[], double x[], double y[], int* n1, int* n2, int style[], char strflag[], char legend[], double brect[], int aaint[], BOOL flagNax);
+
+GRAPHICS_IMPEXP void Objgrayplot(double x[], double y[], double z[], int* n1, int* n2, char strflag[], double brect[], int aaint[], BOOL flagNax);
+
+GRAPHICS_IMPEXP void Objmatplot(double z[], int* n1, int* n2, char strflag[], double brect[], int aaint[], BOOL flagNax);
+
+GRAPHICS_IMPEXP void Objmatplot1(double z[], int* n1, int* n2, double xrect[]);
+
+GRAPHICS_IMPEXP void Objplot3d(char* fname, int* isfac, int* izcol, double x[], double y[], double z[], double* zcol, int* m, int* n, double* theta, double* alpha, char* legend, int* iflag, double* ebox, int* m1, int* n1, int* m2, int* n2, int* m3, int* n3, int* m3n, int* n3n);
+
+GRAPHICS_IMPEXP void Objdrawaxis(char dir, char tics, double* x, int* nx, double* y, int* ny, char* val[], int subint, char* format, int font, int textcol, int ticscol, char flag, int seg, int nb_tics_labels);
+
+GRAPHICS_IMPEXP void Objnumb(char* fname, unsigned long fname_len, int n, int flag, double x, double y, double* angle, double* box);
+
+GRAPHICS_IMPEXP void Objfec(double x[], double y[], double noeud[], double* fun, int* n, int* m, char strflag[], char legend[], double brect[], int aaint[], double Zminmax[], int Colminmax[], int ColOut[], BOOL WithMesh, BOOL flagNax);
 
 #endif /* _SCI_CALL_H_ */
index 582f544..ebbb6f4 100644 (file)
@@ -1,11 +1,11 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
- * are also available at    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
  */
 typedef struct
 {
-  void ** data ; /**< the data are stored in an array of void pointers */
-  int nbCol    ;
-  int nbRow    ;
+    void ** data ; /**< the data are stored in an array of void pointers */
+    int nbCol   ;
+    int nbRow   ;
 }
-sciMatrix ;
+sciMatrix;
 
 /*----------------------------------------------------------------------------------*/
 /* Constructors */
@@ -40,17 +40,17 @@ sciMatrix ;
 /**
  * allocate a matrix with no elements (nbrow = nbcol = 0)
  */
-GRAPHICS_IMPEXP sciMatrix * emptyMatrix( void ) ;
+GRAPHICS_IMPEXP sciMatrix * emptyMatrix(void);
 
 /**
  * create a nbRow x nbCol matrix of NULL pointers.
  */
-GRAPHICS_IMPEXP sciMatrix * newMatrix( int nbRow, int nbCol ) ;
+GRAPHICS_IMPEXP sciMatrix * newMatrix(int nbRow, int nbCol);
 
 /**
  * create a nbRow x nbCol matrix which data are dataMat (directly, no copy).
  */
-GRAPHICS_IMPEXP sciMatrix * newCompleteMatrix( void ** dataMat, int nbRow, int nbCol ) ;
+GRAPHICS_IMPEXP sciMatrix * newCompleteMatrix(void ** dataMat, int nbRow, int nbCol);
 /*@}*/
 /* note that we cannot use a copy constructor since we don't know how to copy two elements */
 /* of the matrix! Maybe it is possible with some function pointers, but it seems a bit */
@@ -61,12 +61,12 @@ GRAPHICS_IMPEXP sciMatrix * newCompleteMatrix( void ** dataMat, int nbRow, int n
 /**
  * delete the structure and data
  */
-GRAPHICS_IMPEXP void deleteMatrix( sciMatrix * mat ) ;
+GRAPHICS_IMPEXP void deleteMatrix(sciMatrix * mat);
 
-/** 
+/**
  * delete only the structure, not the data (use with caution).
  */
-GRAPHICS_IMPEXP void desallocateMatrix( sciMatrix * mat ) ;
+GRAPHICS_IMPEXP void desallocateMatrix(sciMatrix * mat);
 /*@}*/
 /*----------------------------------------------------------------------------------*/
 /* accessors */
@@ -74,41 +74,41 @@ GRAPHICS_IMPEXP void desallocateMatrix( sciMatrix * mat ) ;
 /**
  * retrieve the element (row,col) of the matrix.
  */
-GRAPHICS_IMPEXP void * getMatElement( const sciMatrix * mat, int row, int col ) ;
+GRAPHICS_IMPEXP void * getMatElement(const sciMatrix * mat, int row, int col);
 
-GRAPHICS_IMPEXP int     getMatNbRow( const sciMatrix * mat ) ;
+GRAPHICS_IMPEXP int     getMatNbRow(const sciMatrix * mat);
 
-GRAPHICS_IMPEXP int     getMatNbCol( const sciMatrix * mat ) ;
+GRAPHICS_IMPEXP int     getMatNbCol(const sciMatrix * mat);
 
 /**
  * get the pointer on the array of data. May be used for faster access to the data.
  */
-GRAPHICS_IMPEXP void ** getMatData(  const sciMatrix * mat ) ;
+GRAPHICS_IMPEXP void ** getMatData( const sciMatrix * mat);
 
-/** 
+/**
  * set an element of the matrix to a new value but does not desalocate the previous
  * if one exists.
  * @param newValue the new value which will be inserted directly in the matrix (no copy).
  */
-GRAPHICS_IMPEXP void setMatElement(    sciMatrix * mat, int row, int col, void * newValue ) ;
+GRAPHICS_IMPEXP void setMatElement(   sciMatrix * mat, int row, int col, void * newValue);
 
 /**
  * desalocate the (row,col) element and put a new one.
  * @param newValue the new value which will be inserted directly in the matrix (no copy).
  */
-GRAPHICS_IMPEXP void changeMatElement( sciMatrix * mat, int row, int col, void * newValue ) ;
+GRAPHICS_IMPEXP void changeMatElement(sciMatrix * mat, int row, int col, void * newValue);
 
 /**
  * desalocate the (row,col) current element (i,j) and copy the new one. The size of the element
  * must be given in order to allocate memory.
  * @param copyValue copied value.
- * @param valueSize size of the data inserted in the matrix (ex: sizeof(double) ).
+ * @param valueSize size of the data inserted in the matrix (ex: sizeof(double)).
  */
-GRAPHICS_IMPEXP void copyMatElement(       sciMatrix * mat      ,
-                           int             row      ,
-                           int             col      , 
-                     const void          * copyValue,
-                           int             valueSize ) ;
+GRAPHICS_IMPEXP void copyMatElement(      sciMatrix * mat      ,
+        int             row      ,
+        int             col      ,
+        const void          * copyValue,
+        int             valueSize);
 /*@}*/
 /*----------------------------------------------------------------------------------*/
 
index 5bea89c..d26b233 100644 (file)
@@ -952,7 +952,7 @@ msgstr ""
 #
 # File: src/c/SetProperty.c, line: 366
 #, c-format
-msgid "Number of elements must be %d (%d if z coordinate )\n"
+msgid "Number of elements must be %d (%d if z coordinate)\n"
 msgstr ""
 
 #
index 5aca499..c0d2536 100644 (file)
@@ -112,7 +112,7 @@ int gw_graphics(void)
     }
 
     pvApiCtx->pstName = (char*)Tab[Fin - 1].name;
-    if ( getScilabMode() != SCILAB_NWNI )
+    if (getScilabMode() != SCILAB_NWNI)
     {
         if (!loadedDep)
         {
@@ -123,7 +123,7 @@ int gw_graphics(void)
     }
     else
     {
-        if ( (strcmp(Tab[Fin - 1].name, "set") == 0 ||
+        if ((strcmp(Tab[Fin - 1].name, "set") == 0 ||
                 strcmp(Tab[Fin - 1].name, "delete") == 0 ||
                 strcmp(Tab[Fin - 1].name, "get") == 0) &&
                 (getInputArgumentType(pvApiCtx, 1) == sci_tlist || getInputArgumentType(pvApiCtx, 1) == sci_mlist))
index cdc43ed..93b3060 100644 (file)
@@ -39,7 +39,7 @@
 #define DEF_LEGEND_LOCATION "in_upper_right"
 
 /*--------------------------------------------------------------------------*/
-int sci_Legend( char * fname, unsigned long fname_len )
+int sci_Legend(char * fname, unsigned long fname_len)
 {
     SciErr sciErr;
 
@@ -67,8 +67,8 @@ int sci_Legend( char * fname, unsigned long fname_len )
     CheckInputArgument(pvApiCtx, 2, 3);
     CheckOutputArgument(pvApiCtx, 0, 1);
 
-
-    GetMatrixdims(1, &numrow, &numcol);
+    getVarAddressFromPosition(pvApiCtx, 1 , &piAddrl1);
+    getVarDimension(pvApiCtx, piAddrl1, &numrow, &numcol);
     n = numrow * numcol;
     if (numrow == 0 || numcol == 0)
     {
@@ -85,21 +85,15 @@ int sci_Legend( char * fname, unsigned long fname_len )
         return 0;
     }
 
-    GetMatrixdims(2, &m2, &n2);
-    if (m2*n2 != n)
+    getVarAddressFromPosition(pvApiCtx, 2 , &piAddrStr);
+    getVarDimension(pvApiCtx, piAddrStr, &m2, &n2);
+    if (m2 * n2 != n)
     {
         Scierror(999, _("%s: Wrong size for input arguments #%d and #%d: Incompatible length.\n"), fname, 1, 2);
         return 1;
     }
 
 
-    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddrl1);
-    if (sciErr.iErr)
-    {
-        printError(&sciErr, 0);
-        return 1;
-    }
-
     // Retrieve a matrix of handle at position 1.
     sciErr = getMatrixOfHandle(pvApiCtx, piAddrl1, &numrow, &numcol, &l1);
     if (sciErr.iErr)
@@ -109,13 +103,6 @@ int sci_Legend( char * fname, unsigned long fname_len )
         return 1;
     }
 
-    sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddrStr);
-    if (sciErr.iErr)
-    {
-        printError(&sciErr, 0);
-        return 1;
-    }
-
     // Retrieve a matrix of string at position 2.
     if (getAllocatedMatrixOfString(pvApiCtx, piAddrStr, &m2, &n2, &Str))
     {
index 917a632..60397e5 100644 (file)
 #define DEFAULT_ANGLE 0.0
 
 /*--------------------------------------------------------------------------*/
-static int getScalarFromStack(int paramIndex, char * funcName, double * res);
+static int getScalarFromStack(int paramIndex, char * funcName, double* res);
 /*--------------------------------------------------------------------------*/
-static int getScalarFromStack(int paramIndex, char * funcName, double * res)
+static int getScalarFromStack(int paramIndex, char * funcName, double* res)
 {
     SciErr sciErr;
     int m = 0;
     int n = 0;
     int* piAddrstackPointer = NULL;
     double* stackPointer = NULL;
-    if ((!checkInputArgumentType(pvApiCtx, paramIndex, sci_matrix)) )
+    if ((!checkInputArgumentType(pvApiCtx, paramIndex, sci_matrix)))
     {
         Scierror(999, _("%s: Wrong type for input argument #%d: Real scalar expected.\n"), funcName, paramIndex);
-        return -1 ;
+        return -1;
     }
 
     /* get the handle */
@@ -69,17 +69,17 @@ static int getScalarFromStack(int paramIndex, char * funcName, double * res)
     }
 
 
-    if ( m * n != 1 )
+    if (m * n != 1)
     {
         Scierror(999, _("%s: Wrong size for input argument #%d: Real scalar expected.\n"), funcName, paramIndex);
-        return -1 ;
+        return -1;
     }
 
     *res = *stackPointer;
     return 0;
 }
 /*--------------------------------------------------------------------------*/
-int sci_stringbox( char * fname, unsigned long fname_len )
+int sci_stringbox(char * fname, unsigned long fname_len)
 {
 
     SciErr sciErr;
@@ -98,9 +98,9 @@ int sci_stringbox( char * fname, unsigned long fname_len )
     int four  = 4;
     double corners[4][2]; /* the four edges of the boundingRect */
 
-    /* The function should be called with stringbox( handle ) */
-    CheckInputArgument(pvApiCtx,  1, 6 );
-    CheckOutputArgument(pvApiCtx,  0, 1 );
+    /* The function should be called with stringbox(handle) */
+    CheckInputArgument(pvApiCtx,  1, 6);
+    CheckOutputArgument(pvApiCtx,  0, 1);
 
     if (nbInputArgument(pvApiCtx) == 1)
     {
@@ -109,10 +109,10 @@ int sci_stringbox( char * fname, unsigned long fname_len )
         /* A text handle should be specified */
 
         char * pTextUID = NULL;
-        if ((!checkInputArgumentType(pvApiCtx, 1, sci_handles)) )
+        if ((!checkInputArgumentType(pvApiCtx, 1, sci_handles)))
         {
             Scierror(999, _("%s: Wrong type for input argument #%d: A 'Text' handle expected.\n"), fname, 1);
-            return 0 ;
+            return 0;
         }
 
         /* get the handle */
@@ -132,19 +132,19 @@ int sci_stringbox( char * fname, unsigned long fname_len )
             return 1;
         }
 
-        if ( m * n != 1 )
+        if (m * n != 1)
         {
             Scierror(999, _("%s: Wrong size for input argument #%d: A 'Text' handle expected.\n"), fname, 1);
-            return 0 ;
+            return 0;
         }
 
         /* Get the handle and check that this is a text handle */
         pTextUID = (char*)getObjectFromHandle((long int) * stackPointer);
 
-        if ( pTextUID == NULL )
+        if (pTextUID == NULL)
         {
             Scierror(999, _("%s: The handle is not valid.\n"), fname);
-            return 0 ;
+            return 0;
         }
 
         getGraphicObjectProperty(pTextUID, __GO_TYPE__, jni_int, (void **)&piType);
@@ -181,7 +181,7 @@ int sci_stringbox( char * fname, unsigned long fname_len )
     else if (nbInputArgument(pvApiCtx) == 2)
     {
         Scierror(999, _("%s: Wrong number of input arguments: %d or %d to %d expected.\n"), fname, 1, 3, 6);
-        return 0 ;
+        return 0;
     }
     else
     {
@@ -201,10 +201,10 @@ int sci_stringbox( char * fname, unsigned long fname_len )
         getGraphicObjectProperty(parentSubwinUID, __GO_FONT_SIZE__, jni_double, (void **)&pfontSize);
 
         /* Check that first argument is a string */
-        if ((!checkInputArgumentType(pvApiCtx, 1, sci_strings)) )
+        if ((!checkInputArgumentType(pvApiCtx, 1, sci_strings)))
         {
             Scierror(999, _("%s: Wrong type for input argument #%d: 2D array of strings expected.\n"), fname, 1);
-            return 0 ;
+            return 0;
         }
         sciErr = getVarAddressFromPosition(pvApiCtx,  1, &piAddrstackPointer);
         if (sciErr.iErr)
@@ -292,7 +292,7 @@ int sci_stringbox( char * fname, unsigned long fname_len )
     pdblStackPointer[6] = corners[2][0];
     pdblStackPointer[7] = corners[2][1];
 
-    AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1 ;
+    AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
     ReturnArguments(pvApiCtx);
     return 0;
 }
index 848b328..2f837f8 100644 (file)
@@ -42,18 +42,18 @@ int sci_champ_G(char *fname,
 {
     SciErr sciErr;
     double arfact_def = 1.0;
-    double * arfact = &arfact_def;
+    double* arfact = &arfact_def;
     int m1 = 0, n1 = 0, m2 = 0, n2 = 0, m3 = 0, n3 = 0, m4 = 0, n4 = 0;
     static rhs_opts opts[] =
     {
-        { -1, "arfact", "?", 0, 0, 0},
-        { -1, "rect", "?", 0, 0, 0},
-        { -1, "strf", "?", 0, 0, 0},
-        { -1, NULL, NULL, 0, 0}
+        { -1, "arfact", -1, 0, 0, NULL},
+        { -1, "rect", -1, 0, 0, NULL},
+        { -1, "strf", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
     };
 
-    char   * strf = NULL ;
-    double * rect = NULL ;
+    char   * strf = NULL;
+    double* rect = NULL;
 
     int* piAddr1 = NULL;
     int* piAddr2 = NULL;
@@ -65,8 +65,8 @@ int sci_champ_G(char *fname,
     double* l3 = NULL;
     double* l4 = NULL;
 
-    CheckInputArgument(pvApiCtx, -1, 7) ;
-    CheckOutputArgument(pvApiCtx, 0, 1) ;
+    CheckInputArgument(pvApiCtx, -1, 7);
+    CheckOutputArgument(pvApiCtx, 0, 1);
 
     if (nbInputArgument(pvApiCtx) <= 0)
     {
@@ -79,12 +79,12 @@ int sci_champ_G(char *fname,
         return 0;
     }
 
-    if (get_optionals(fname, opts) == 0)
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
     {
         return 0;
     }
 
-    if ( FirstOpt() < 5 )
+    if (FirstOpt() < 5)
     {
         Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"), fname, 1, 5);
         return -1;
@@ -186,24 +186,24 @@ int sci_champ_G(char *fname,
         return 0;
     }
 
-    GetOptionalDoubleArg(fname, 5, "arfact", &arfact, 1, opts);
-    GetRect(fname, 6, opts, &rect);
-    GetStrf(fname, 7, opts, &strf);
+    GetOptionalDoubleArg(pvApiCtx, fname, 5, "arfact", &arfact, 1, opts);
+    GetRect(pvApiCtx, fname, 6, opts, &rect);
+    GetStrf(pvApiCtx, fname, 7, opts, &strf);
 
     getOrCreateDefaultSubwin();
 
-    if ( isDefStrf( strf ) )
+    if (isDefStrf(strf))
     {
         char strfl[4];
         strcpy(strfl, DEFSTRFN);
         strf = strfl;
-        if ( !isDefRect( rect ) )
+        if (!isDefRect(rect))
         {
             strf[1] = '5';
         }
     }
 
-    (*func)((l1 ), (l2 ), (l3 ), (l4 ), &m3, &n3, strf, rect, arfact, 4L);
+    (*func)((l1), (l2), (l3), (l4), &m3, &n3, strf, rect, arfact, 4L);
     AssignOutputVariable(pvApiCtx, 1) = 0;
     ReturnArguments(pvApiCtx);
     return 0;
index 204bae5..c5a384f 100644 (file)
@@ -16,7 +16,7 @@
 /*------------------------------------------------------------------------*/
 
 #include "gw_graphics.h"
-#include "stack-c.h"
+#include "api_scilab.h"
 #include "warningmode.h"
 #include "sciprint.h"
 #include "localization.h"
 //
 // FIXME: Remove GW after Scilab 5.4.0
 //
-int sci_clear_pixmap(char *fname, unsigned long fname_len )
+int sci_clear_pixmap(char *fname, unsigned long fname_len)
 {
-    CheckRhs(0, 0);
-    CheckLhs(0, 1);
+    CheckInputArgument(pvApiCtx, 0, 0);
+    CheckOutputArgument(pvApiCtx, 0, 1);
 
     if (getWarningMode())
     {
@@ -36,8 +36,8 @@ int sci_clear_pixmap(char *fname, unsigned long fname_len )
         sciprint(_("%s: This function will be permanently removed in Scilab %s\n\n"), _("Warning"), "5.4.1");
     }
 
-    LhsVar(1) = 0;
-    PutLhsVar();
+    AssignOutputVariable(pvApiCtx, 1) = 0;
+    ReturnArguments(pvApiCtx);
     return 0;
 }
 /*--------------------------------------------------------------------------*/
index 3ba0355..42fa357 100644 (file)
@@ -24,7 +24,7 @@
 #include "localization.h"
 
 /*--------------------------------------------------------------------------*/
-int sci_contour2di( char * fname, unsigned long fname_len )
+int sci_contour2di(char * fname, unsigned long fname_len)
 {
     SciErr sciErr;
     int flagx = 0, nz = 10; /* default number of level curves : 10 */
index 8721309..f1a09b6 100644 (file)
@@ -125,7 +125,7 @@ int sci_copy(char *fname, unsigned long fname_len)
 
         hdlparent = (unsigned long) * l2; /* on recupere le pointeur d'objet par le handle*/
         psubwinparenttargetUID = (char*)getObjectFromHandle(hdlparent);
-        if ( psubwinparenttargetUID == NULL)
+        if (psubwinparenttargetUID == NULL)
         {
             Scierror(999, _("%s: The handle is not or no more valid.\n"), fname);
             return 0;
index 22ed64a..78a36df 100644 (file)
@@ -18,7 +18,7 @@
 
 #include "api_scilab.h"
 
-int sci_demo( char * fname, int fname_len)
+int sci_demo(char * fname, int fname_len)
 {
     int lw = 0;
     C2F(overload)(&lw, fname, fname_len);
index db019df..0bd268e 100644 (file)
@@ -15,7 +15,7 @@
 /* file: sci_draw.h                                                       */
 /* desc : interface for draw routine                                      */
 /*------------------------------------------------------------------------*/
-#include "stack-c.h"
+#include "api_scilab.h"
 #include "gw_graphics.h"
 #include "warningmode.h"
 #include "sciprint.h"
 //
 // FIXME: Remove GW after Scilab 5.4.0
 //
-int sci_draw( char * fname, unsigned long fname_len )
+int sci_draw(char * fname, unsigned long fname_len)
 {
 
-    CheckRhs(0, 1) ;
-    CheckLhs(0, 1) ;
+    CheckInputArgument(pvApiCtx, 0, 1);
+    CheckOutputArgument(pvApiCtx, 0, 1);
 
     if (getWarningMode())
     {
@@ -37,8 +37,8 @@ int sci_draw( char * fname, unsigned long fname_len )
         sciprint(_("%s: This function will be permanently removed in Scilab %s\n\n"), _("Warning"), "5.4.1");
     }
 
-    LhsVar(1) = 0;
-    PutLhsVar();
+    AssignOutputVariable(pvApiCtx, 1) = 0;
+    ReturnArguments(pvApiCtx);
     return 0;
 }
 /*--------------------------------------------------------------------------*/
index 977a4ab..84ecc23 100644 (file)
@@ -34,7 +34,7 @@
 // get_optionals not yet managed
 /*--------------------------------------------------------------------------*/
 static int check_xy(char *fname, char dir, int mn, int xpos, int xm, int xn,
-                    long unsigned int xl, int ypos, int yRow, int yCol, long unsigned int yl, int *ntics);
+                    double* pdblX, int ypos, int yRow, int yCol, double* pdblY, int *ntics);
 
 /*--------------------------------------------------------------------------*/
 int sci_drawaxis(char *fname, unsigned long fname_len)
@@ -44,18 +44,18 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
      */
     static rhs_opts opts[] =
     {
-        { -1, "dir", "c", 0, 0, 0},
-        { -1, "fontsize", "i", 0, 0, 0},
-        { -1, "format_n", "c", 0, 0, 0},
-        { -1, "seg", "i", 0, 0, 0},
-        { -1, "sub_int", "i", 0, 0, 0},
-        { -1, "textcolor", "i", 0, 0, 0},
-        { -1, "tics", "c", 0, 0, 0},
-        { -1, "ticscolor", "i", 0, 0, 0},
-        { -1, "val", "S", 0, 0, 0},
-        { -1, "x", "d", 0, 0, 0},
-        { -1, "y", "d", 0, 0, 0},
-        { -1, NULL, NULL, 0, 0}
+        { -1, "dir", -1, 0, 0, NULL},
+        { -1, "fontsize", -1, 0, 0, NULL},
+        { -1, "format_n", -1, 0, 0, NULL},
+        { -1, "seg", -1, 0, 0, NULL},
+        { -1, "sub_int", -1, 0, 0, NULL},
+        { -1, "textcolor", -1, 0, 0, NULL},
+        { -1, "tics", -1, 0, 0, NULL},
+        { -1, "ticscolor", -1, 0, 0, NULL},
+        { -1, "val", -1, 0, 0, NULL},
+        { -1, "x", -1, 0, 0, NULL},
+        { -1, "y", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
     };
 
     char *psubwinUID = NULL;
@@ -71,7 +71,7 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
     CheckInputArgument(pvApiCtx, minrhs, maxrhs + nopt);
     CheckOutputArgument(pvApiCtx, minlhs, maxlhs);
 
-    if (get_optionals(fname, opts) == 0)
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
     {
         /* error */
         return 0;
@@ -79,103 +79,120 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
 
     psubwinUID = (char*)getOrCreateDefaultSubwin();
 
-    if (opts[0].position != -1)
+    if (opts[0].iPos != -1)
     {
+        char* pstDir = NULL;
         //CheckLength
-        if (opts[0].m != 1)
+        if (opts[0].iRows != 1 || opts[0].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[0].position, opts[0].m);
+            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[0].iPos, opts[0].iRows);
             return 1;
         }
 
-        dir = *cstk(opts[0].l);
+        getAllocatedSingleString(pvApiCtx, opts[0].piAddr, &pstDir);
+        dir = pstDir[0];
+        freeAllocatedSingleString(pstDir);
     }
-    if (opts[1].position != -1)
+    if (opts[1].iPos != -1)
     {
+        double dblSize = 0;
         //CheckScalar
-        if (opts[1].m != 1 || opts[1].n != 1)
+        if (opts[1].iRows != 1 || opts[1].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[1].position);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[1].iPos);
             return 1;
         }
 
-        fontsize = *istk(opts[1].l);
+        getScalarDouble(pvApiCtx, opts[1].piAddr, &dblSize);
+        fontsize = (int)dblSize;
     }
-    if (opts[2].position != -1)
+    if (opts[2].iPos != -1)
     {
         /* verfier ce que l'on recoit avec "" XXX */
-        format = cstk(opts[2].l);
+        getAllocatedSingleString(pvApiCtx, opts[2].piAddr, &format);
     }
 
-    if (opts[3].position != -1)
+    if (opts[3].iPos != -1)
     {
+        double dblSeq = 0;
         //CheckScalar
-        if (opts[3].m != 1 || opts[3].n != 1)
+        if (opts[3].iRows != 1 || opts[3].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[3].position);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[3].iPos);
             return 1;
         }
 
-        seg_flag = *istk(opts[3].l);
+
+        getScalarDouble(pvApiCtx, opts[3].piAddr, &dblSeq);
+        seg_flag = (int)dblSeq;
     }
 
-    if (opts[4].position != -1)
+    if (opts[4].iPos != -1)
     {
+        double dblSub = 0;
         //CheckScalar
-        if (opts[4].m != 1 || opts[4].n != 1)
+        if (opts[4].iRows != 1 || opts[4].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[4].position);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[4].iPos);
             return 1;
         }
 
-        sub_int = *istk(opts[4].l);
+        getScalarDouble(pvApiCtx, opts[4].piAddr, &dblSub);
+        sub_int = (int)dblSub;
     }
 
-    if (opts[5].position != -1)
+    if (opts[5].iPos != -1)
     {
+        double dblColor = 0;
         //CheckScalar
-        if (opts[5].m != 1 || opts[5].n != 1)
+        if (opts[5].iRows != 1 || opts[5].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[5].position);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[5].iPos);
             return 1;
         }
 
-        textcolor = *istk(opts[5].l);
+        getScalarDouble(pvApiCtx, opts[5].piAddr, &dblColor);
+        textcolor = (int)dblColor;
     }
 
-    if (opts[6].position != -1)
+    if (opts[6].iPos != -1)
     {
+        char* pstTics = NULL;
         //CheckLength
-        if (opts[6].m != 1)
+        if (opts[6].iRows != 1 || opts[6].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[6].position, opts[6].m);
+            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[6].iPos, opts[6].iRows);
             return 1;
         }
 
-        tics = *cstk(opts[6].l);
+        getAllocatedSingleString(pvApiCtx, opts[6].piAddr, &pstTics);
+        tics = pstTics[0];
+        freeAllocatedSingleString(pstTics);
     }
 
-    if (opts[7].position != -1)
+    if (opts[7].iPos != -1)
     {
+        double dblColor = 0;
         //CheckScalar
-        if (opts[7].m != 1 || opts[7].n != 1)
+        if (opts[7].iRows != 1 || opts[7].iCols != 1)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[7].position);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real scalar expected.\n"), fname, opts[7].iPos);
             return 1;
         }
 
-        ticscolor = *istk(opts[7].l);
+        getScalarDouble(pvApiCtx, opts[7].piAddr, &dblColor);
+        ticscolor = (int)dblColor;
     }
 
-    if (opts[8].position != -1)
+    if (opts[8].iPos != -1)
     {
-        val = (char **)opts[8].l;
+        getAllocatedMatrixOfString(pvApiCtx, opts[8].piAddr, &opts[8].iRows, &opts[8].iCols, &val);
     }
 
-    if (opts[9].position != -1)
+    if (opts[9].iPos != -1)
     {
-        x = stk(opts[9].l);
-        nx = opts[9].m * opts[9].n; /* F.Leray OK here opts[9].m and opts[9].n are integers. */
+        getMatrixOfDouble(pvApiCtx, opts[9].piAddr, &opts[9].iRows, &opts[9].iCols, &x);
+        nx = opts[9].iRows * opts[9].iCols; /* F.Leray OK here opts[9].iRows and opts[9].iCols are integers. */
     }
     else
     {
@@ -187,15 +204,19 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
         nx = 1;
         x = x_def;
         if (dir == 'l')
-            x_def[0] = bounds[0];   /* xMin */
+        {
+            x_def[0] = bounds[0];    /* xMin */
+        }
         else if (dir == 'r')
-            x_def[0] = bounds[1];   /* xMax */
+        {
+            x_def[0] = bounds[1];    /* xMax */
+        }
     }
 
-    if (opts[10].position != -1)
+    if (opts[10].iPos != -1)
     {
-        y = stk(opts[10].l);
-        ny = opts[10].m * opts[10].n;
+        getMatrixOfDouble(pvApiCtx, opts[10].piAddr, &opts[10].iRows, &opts[10].iCols, &y);
+        ny = opts[10].iRows * opts[10].iCols;
     }
     else
     {
@@ -207,33 +228,37 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
         ny = 1;
         y = y_def;
         if (dir == 'd')
-            y_def[0] = bounds[2];   /* yMin */
+        {
+            y_def[0] = bounds[2];    /* yMin */
+        }
         else if (dir == 'u')
-            y_def[0] = bounds[3];   /* yMax */
+        {
+            y_def[0] = bounds[3];    /* yMax */
+        }
     }
 
     /* compatibility test */
     switch (tics)
     {
         case 'r':
-            if (check_xy(fname, dir, 3, opts[9].position, opts[9].m, opts[9].n, opts[9].l,
-                         opts[10].position, opts[10].m, opts[10].n, opts[10].l, &ntics) == 0)
+            if (check_xy(fname, dir, 3, opts[9].iPos, opts[9].iRows, opts[9].iCols, x,
+                         opts[10].iPos, opts[10].iRows, opts[10].iCols, y, &ntics) == 0)
             {
                 ReturnArguments(pvApiCtx);
                 return 0;
             }
             break;
         case 'i':
-            if (check_xy(fname, dir, 4, opts[9].position, opts[9].m, opts[9].n, opts[9].l,
-                         opts[10].position, opts[10].m, opts[10].n, opts[10].l, &ntics) == 0)
+            if (check_xy(fname, dir, 4, opts[9].iPos, opts[9].iRows, opts[9].iCols, x,
+                         opts[10].iPos, opts[10].iRows, opts[10].iCols, y, &ntics) == 0)
             {
                 ReturnArguments(pvApiCtx);
                 return 0;
             }
             break;
         case 'v':
-            if (check_xy(fname, dir, -1, opts[9].position, opts[9].m, opts[9].n, opts[9].l,
-                         opts[10].position, opts[10].m, opts[10].n, opts[10].l, &ntics) == 0)
+            if (check_xy(fname, dir, -1, opts[9].iPos, opts[9].iRows, opts[9].iCols, x,
+                         opts[10].iPos, opts[10].iRows, opts[10].iCols, y, &ntics) == 0)
             {
                 ReturnArguments(pvApiCtx);
                 return 0;
@@ -247,13 +272,13 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
     if (val != NULL)
     {
         //CheckLength
-        if (opts[8].m * opts[8].n != ntics)
+        if (opts[8].iRows * opts[8].iCols != ntics)
         {
-            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[8].position, opts[8].m * opts[8].n);
+            Scierror(999, _("%s: Wrong size for input argument #%d: %d expected.\n"), fname, opts[8].iPos, opts[8].iRows * opts[8].iCols);
             return 1;
         }
 
-        nb_tics_labels = opts[8].m * opts[8].n;
+        nb_tics_labels = opts[8].iRows * opts[8].iCols;
     }
 
     Objdrawaxis(dir, tics, x, &nx, y, &ny, val, sub_int, format, fontsize, textcolor, ticscolor, 'n', seg_flag, nb_tics_labels);
@@ -264,8 +289,10 @@ int sci_drawaxis(char *fname, unsigned long fname_len)
 }
 
 /*--------------------------------------------------------------------------*/
-static int check_xy(char *fname, char dir, int mn, int xpos, int xm, int xn,
-                    long unsigned int xl, int ypos, int yRow, int yCol, long unsigned int yl, int *ntics)
+static int check_xy(char *fname, char dir, int mn, int xpos,
+                    int xm, int xn, double* pdblX,
+                    int ypos, int yRow, int yCol, double* pdblY,
+                    int *ntics)
 {
     switch (dir)
     {
@@ -292,10 +319,10 @@ static int check_xy(char *fname, char dir, int mn, int xpos, int xm, int xn,
             switch (mn)
             {
                 case 3:
-                    *ntics = (int) * stk(yl + 2) + 1;
+                    *ntics = (int)pdblY[2] + 1;
                     break;
                 case 4:
-                    *ntics = (int) * stk(yl + 3) + 1;
+                    *ntics = (int)pdblY[3] + 1;
                     break;
                 case -1:
                     *ntics = yRow * yCol;
@@ -325,10 +352,10 @@ static int check_xy(char *fname, char dir, int mn, int xpos, int xm, int xn,
             switch (mn)
             {
                 case 3:
-                    *ntics = (int) * stk(xl + 2) + 1;
+                    *ntics = (int)pdblX[2] + 1;
                     break;
                 case 4:
-                    *ntics = (int) * stk(xl + 3) + 1;
+                    *ntics = (int)pdblX[3] + 1;
                     break;
                 case -1:
                     *ntics = xm * xn;
index c9cfad2..ca30322 100644 (file)
@@ -26,7 +26,7 @@
 #include "setGraphicObjectProperty.h"
 #include "graphicObjectProperties.h"
 /*--------------------------------------------------------------------------*/
-int sci_drawlater( char * fname, unsigned long fname_len )
+int sci_drawlater(char * fname, unsigned long fname_len)
 {
     int iFalse =  (int)FALSE;
     char* pFigureUID = NULL;
index 8907768..361dd92 100644 (file)
@@ -32,26 +32,28 @@ int sci_fec(char *fname, unsigned long fname_len)
     SciErr sciErr;
     int m1 = 0, n1 = 0, m2 = 0, n2 = 0, m3 = 0, n3 = 0, m4 = 0, n4 = 0, mn1 = 0;
 
-    static rhs_opts opts[] = { { -1, "colminmax", "?", 0, 0, 0},
-        { -1, "colout", "?", 0, 0, 0},
-        { -1, "leg", "?", 0, 0, 0},
-        { -1, "mesh", "?", 0, 0, 0},
-        { -1, "nax", "?", 0, 0, 0},
-        { -1, "rect", "?", 0, 0, 0},
-        { -1, "strf", "?", 0, 0, 0},
-        { -1, "zminmax", "?", 0, 0, 0},
-        { -1, NULL, NULL, 0, 0}
-    } ;
-
-    char* strf      = NULL ;
-    char* legend    = NULL ;
-    double* rect    = NULL ;
-    double* zminmax = NULL ;
-    int* colminmax  = NULL ;
-    int* nax        = NULL ;
-    int* colOut     = NULL ;
-    BOOL flagNax    = FALSE ;
-    BOOL withMesh   = FALSE ;
+    static rhs_opts opts[] =
+    {
+        { -1, "colminmax", -1, 0, 0, NULL},
+        { -1, "colout", -1, 0, 0, NULL},
+        { -1, "leg", -1, 0, 0, NULL},
+        { -1, "mesh", -1, 0, 0, NULL},
+        { -1, "nax", -1, 0, 0, NULL},
+        { -1, "rect", -1, 0, 0, NULL},
+        { -1, "strf", -1, 0, 0, NULL},
+        { -1, "zminmax", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
+    };
+
+    char* strf      = NULL;
+    char* legend    = NULL;
+    double* rect    = NULL;
+    double* zminmax = NULL;
+    int* colminmax  = NULL;
+    int* nax        = NULL;
+    int* colOut     = NULL;
+    BOOL flagNax    = FALSE;
+    BOOL withMesh   = FALSE;
 
     int* piAddr1 = NULL;
     int* piAddr2 = NULL;
@@ -71,13 +73,13 @@ int sci_fec(char *fname, unsigned long fname_len)
 
     CheckInputArgument(pvApiCtx, 4, 12);
 
-    if ( get_optionals(fname, opts) == 0)
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
     {
         ReturnArguments(pvApiCtx);
         return 0;
     }
 
-    if ( FirstOpt() < 5)
+    if (FirstOpt() < 5)
     {
         Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"), fname, 1, 5);
         return -1;
@@ -173,29 +175,29 @@ int sci_fec(char *fname, unsigned long fname_len)
         return 0;
     }
 
-    GetStrf(fname, 5, opts, &strf);
-    GetLegend(fname, 6, opts, &legend);
-    GetRect(fname, 7, opts, &rect);
-    GetNax(8, opts, &nax, &flagNax);
-    GetZminmax(fname, 9, opts, &zminmax);
-    GetColminmax(fname, 10, opts, &colminmax);
-    GetColOut(fname, 11, opts, &colOut);
-    GetWithMesh(fname, 12, opts, &withMesh);
+    GetStrf(pvApiCtx, fname, 5, opts, &strf);
+    GetLegend(pvApiCtx, fname, 6, opts, &legend);
+    GetRect(pvApiCtx, fname, 7, opts, &rect);
+    GetNax(pvApiCtx, 8, opts, &nax, &flagNax);
+    GetZminmax(pvApiCtx, fname, 9, opts, &zminmax);
+    GetColminmax(pvApiCtx, fname, 10, opts, &colminmax);
+    GetColOut(pvApiCtx, fname, 11, opts, &colOut);
+    GetWithMesh(pvApiCtx, fname, 12, opts, &withMesh);
 
     getOrCreateDefaultSubwin();
 
-    if ( isDefStrf ( strf ) )
+    if (isDefStrf (strf))
     {
         char strfl[4];
 
         strcpy(strfl, DEFSTRFN);
 
         strf = strfl;
-        if ( !isDefRect( rect ))
+        if (!isDefRect(rect))
         {
             strfl[1] = '7';
         }
-        if ( !isDefLegend( legend ) )
+        if (!isDefLegend(legend))
         {
             strfl[0] = '1';
         }
index dbcb1c4..7f84044 100644 (file)
@@ -73,8 +73,8 @@ int sci_get(char *fname, unsigned long fname_len)
 
     if (((checkInputArgumentType(pvApiCtx, 1, sci_mlist))) || ((checkInputArgumentType(pvApiCtx, 1, sci_tlist))))
     {
-        lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
-        C2F(overload) (&lw, "get", 3);
+        //lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
+        OverLoad(1);
         return 0;
     }
 
@@ -163,8 +163,8 @@ int sci_get(char *fname, unsigned long fname_len)
             }
             else                    /* tclsci handle: should no more happen */
             {
-                lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
-                C2F(overload) (&lw, "get", 3);
+                //lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
+                OverLoad(1);
             }
             return 0;
             break;
@@ -188,8 +188,8 @@ int sci_get(char *fname, unsigned long fname_len)
 
             if (m1 != 1 || n1 != 1)
             {
-                lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
-                C2F(overload) (&lw, "get", 3);
+                //lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
+                OverLoad(1);
                 return 0;
             }
             sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddrl2);
@@ -252,8 +252,8 @@ int sci_get(char *fname, unsigned long fname_len)
             }
             break;
         default:
-            lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
-            C2F(overload) (&lw, "get", 3);
+            //lw = 1 + nbArgumentOnStack(pvApiCtx) - nbInputArgument(pvApiCtx);
+            OverLoad(1);
             return 0;
             break;
     }
index b47cc45..aba2848 100644 (file)
@@ -34,7 +34,7 @@
 #include "graphicObjectProperties.h"
 #include "CurrentObject.h"
 /*--------------------------------------------------------------------------*/
-int sci_glue( char * fname, unsigned long fname_len )
+int sci_glue(char * fname, unsigned long fname_len)
 {
     SciErr sciErr;
 
@@ -45,7 +45,7 @@ int sci_glue( char * fname, unsigned long fname_len )
     long long* outindex = NULL;
 
     int numrow = 0, numcol = 0, n = 0, cx1 = 1;
-    long *handelsvalue = NULL ;
+    long *handelsvalue = NULL;
     int i = 0;
 
     char *pstCompoundUID = NULL;
index bbe8d9b..181213b 100644 (file)
@@ -27,7 +27,7 @@
 #include "Scierror.h"
 
 /*--------------------------------------------------------------------------*/
-int sci_grayplot( char *fname, unsigned long fname_len )
+int sci_grayplot(char *fname, unsigned long fname_len)
 {
     SciErr sciErr;
     int frame_def = 8;
@@ -35,18 +35,20 @@ int sci_grayplot( char *fname, unsigned long fname_len )
     int axes_def = 1;
     int *axes = &axes_def;
     int m1 = 0, n1 = 0, m2 = 0, n2 = 0, m3 = 0, n3 = 0;
-    static rhs_opts opts[] = { { -1, "axesflag", "?", 0, 0, 0},
-        { -1, "frameflag", "?", 0, 0, 0},
-        { -1, "nax", "?", 0, 0, 0},
-        { -1, "rect", "?", 0, 0, 0},
-        { -1, "strf", "?", 0, 0, 0},
-        { -1, NULL, NULL, 0, 0}
+    static rhs_opts opts[] =
+    {
+        { -1, "axesflag", -1, 0, 0, NULL},
+        { -1, "frameflag", -1, 0, 0, NULL},
+        { -1, "nax", -1, 0, 0, NULL},
+        { -1, "rect", -1, 0, 0, NULL},
+        { -1, "strf", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
     };
 
-    char   * strf    = NULL  ;
-    double * rect    = NULL  ;
-    int    * nax     = NULL  ;
-    BOOL     flagNax = FALSE ;
+    char   * strf    = NULL ;
+    double* rect    = NULL ;
+    int    * nax     = NULL ;
+    BOOL     flagNax = FALSE;
 
     int* piAddr1 = NULL;
     int* piAddr2 = NULL;
@@ -63,13 +65,13 @@ int sci_grayplot( char *fname, unsigned long fname_len )
     }
     CheckInputArgument(pvApiCtx, 3, 7);
 
-    if ( get_optionals(fname, opts) == 0)
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
     {
         ReturnArguments(pvApiCtx);
-        return 0 ;
+        return 0;
     }
 
-    if ( FirstOpt() < 4)
+    if (FirstOpt() < 4)
     {
         Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),
                  fname, 1, 4);
@@ -162,30 +164,30 @@ int sci_grayplot( char *fname, unsigned long fname_len )
     }
 
 
-    GetStrf(fname, 4, opts, &strf);
-    GetRect(fname, 5, opts, &rect);
-    GetNax(6, opts, &nax, &flagNax);
+    GetStrf(pvApiCtx, fname, 4, opts, &strf);
+    GetRect(pvApiCtx, fname, 5, opts, &rect);
+    GetNax(pvApiCtx, 6, opts, &nax, &flagNax);
 
     getOrCreateDefaultSubwin();
 
-    if ( isDefStrf( strf ) )
+    if (isDefStrf(strf))
     {
         char strfl[4];
 
         strcpy(strfl, DEFSTRFN);
 
         strf = strfl;
-        if ( !isDefRect( rect ) )
+        if (!isDefRect(rect))
         {
             strfl[1] = '7';
         }
 
-        GetOptionalIntArg(fname, 7, "frameflag", &frame, 1, opts);
+        GetOptionalIntArg(pvApiCtx, fname, 7, "frameflag", &frame, 1, opts);
         if (frame != &frame_def)
         {
             strfl[1] = (char)(*frame + 48);
         }
-        GetOptionalIntArg(fname, 7, "axesflag", &axes, 1, opts);
+        GetOptionalIntArg(pvApiCtx, fname, 7, "axesflag", &axes, 1, opts);
         if (axes != &axes_def)
         {
             strfl[2] = (char)(*axes + 48);
index 1b9ac4c..5b018e2 100644 (file)
@@ -33,35 +33,37 @@ int sci_matplot(char *fname, unsigned long fname_len)
     int *frame = &frame_def;
     int axes_def = 1;
     int *axes = &axes_def;
-    static rhs_opts opts[] = { { -1, "axesflag", "?", 0, 0, 0},
-        { -1, "frameflag", "?", 0, 0, 0},
-        { -1, "nax", "?", 0, 0, 0},
-        { -1, "rect", "?", 0, 0, 0},
-        { -1, "strf", "?", 0, 0, 0},
-        { -1, NULL, NULL, 0, 0}
+    static rhs_opts opts[] =
+    {
+        { -1, "axesflag", -1, 0, 0, NULL},
+        { -1, "frameflag", -1, 0, 0, NULL},
+        { -1, "nax", -1, 0, 0, NULL},
+        { -1, "rect", -1, 0, 0, NULL},
+        { -1, "strf", -1, 0, 0, NULL},
+        { -1, NULL, -1, 0, 0, NULL}
     };
 
-    char   * strf    = NULL  ;
-    double * rect    = NULL  ;
-    int    * nax     = NULL  ;
-    BOOL     flagNax = FALSE ;
+    char   * strf    = NULL ;
+    double* rect    = NULL ;
+    int    * nax     = NULL ;
+    BOOL     flagNax = FALSE;
 
     int* piAddr1 = NULL;
     double* l1 = NULL;
 
-    if ( nbInputArgument(pvApiCtx) <= 0 )
+    if (nbInputArgument(pvApiCtx) <= 0)
     {
         sci_demo(fname, fname_len);
         return 0;
     }
     CheckInputArgument(pvApiCtx, 1, 5);
 
-    if ( get_optionals(fname, opts) == 0 )
+    if (getOptionals(pvApiCtx, fname, opts) == 0)
     {
         ReturnArguments(pvApiCtx);
-        return 0 ;
+        return 0;
     }
-    if ( FirstOpt() < 2)
+    if (FirstOpt() < 2)
     {
         Scierror(999, _("%s: Misplaced optional argument: #%d must be at position %d.\n"),
                  fname, 1, 2);
@@ -91,37 +93,37 @@ int sci_matplot(char *fname, unsigned long fname_len)
         return 0;
     }
 
-    GetStrf(fname, 2, opts, &strf);
-    GetRect(fname, 3, opts, &rect);
-    GetNax(4, opts, &nax, &flagNax);
+    GetStrf(pvApiCtx, fname, 2, opts, &strf);
+    GetRect(pvApiCtx, fname, 3, opts, &rect);
+    GetNax(pvApiCtx, 4, opts, &nax, &flagNax);
 
     getOrCreateDefaultSubwin();
 
-    if ( isDefStrf( strf ) )
+    if (isDefStrf(strf))
     {
         char strfl[4];
 
-        strcpy(strfl, DEFSTRFN) ;
+        strcpy(strfl, DEFSTRFN);
 
         strf = strfl;
-        if ( !isDefRect( rect ) )
+        if (!isDefRect(rect))
         {
             strfl[1] = '7';
         }
 
-        GetOptionalIntArg(fname, 5, "frameflag", &frame, 1, op