+#include <assert.h>
#include <string.h>
#include <assert.h>
#include <gtk/gtk.h>
#define FontManagerId_val(val) Int_val(val)
#define Val_FontManagerId(val) Val_int(val)
+FontManagerId
+font_manager_id_of_value(value v)
+{
+ if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
+ else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
+ else assert(0);
+}
+
+value
+value_of_font_manager_id(FontManagerId id)
+{
+ switch (id) {
+ case FONT_MANAGER_GTK:
+ return hash_variant("font_manager_gtk");
+ case FONT_MANAGER_T1:
+ return hash_variant("font_manager_t1");
+ default:
+ assert(0);
+ break;
+ }
+}
+
ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, FontManagerId_val, Unit)
-ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, Val_FontManagerId)
+ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
+ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
value
ml_gtk_math_view_export_to_postscript_native(value arg1,