lmtinterface.c /size: 41 Kb    last modification: 2024-01-16 10:22
1/*
2    See license.txt in the root of this project.
3*/
4
5/*tex
6
7    There isn't much here because most happens in the header file. Here we also set up the
8    environment in which we run, which depends in the operating system used.
9
10*/
11
12# include "luametatex.h"
13
14lua_state_info lmt_lua_state = {
15    .lua_instance            = NULL,
16    .used_bytes              = 0,
17    .used_bytes_max          = 0,
18    .function_table_id       = 0,
19    .function_callback_count = 0,
20    .value_callback_count    = 0,
21    .bytecode_callback_count = 0,
22    .local_callback_count    = 0,
23    .saved_callback_count    = 0,
24    .file_callback_count     = 0,
25    .direct_callback_count   = 0,
26    .message_callback_count  = 0,
27    .function_table_size     = 0,
28    .bytecode_bytes          = 0,
29    .bytecode_max            = 0,
30    .version_number          = (int) LUA_VERSION_NUM,
31    .release_number          = (int) LUA_VERSION_RELEASE_NUM,
32    .used_buffer             = NULL,
33    .integer_size            = sizeof(lua_Integer),
34};
35
36/*tex
37    Some more can move here, or we can move some to modules instead. It's a very stepwise
38    process because things need to keep running. We only have fast accessors for strings 
39    that we use in the \LUA\ interface. 
40*/
41
42lmt_keys_info lmt_keys;
43
44lmt_interface_info lmt_interface = {
45    .pack_type_values          = NULL,
46    .group_code_values         = NULL,
47    .par_context_values        = NULL,
48    .par_trigger_values        = NULL,
49    .par_mode_values           = NULL,
50    .math_style_name_values    = NULL,
51    .math_style_variant_values = NULL,
52    .lua_function_values       = NULL,
53    .direction_values          = NULL,
54    .node_fill_values          = NULL,
55    .page_contribute_values    = NULL,
56    .math_style_values         = NULL,
57    .math_parameter_values     = NULL,
58    .field_type_values         = NULL,
59    .node_data                 = NULL,
60    .command_names             = NULL,
61} ;
62
63value_info *lmt_aux_allocate_value_info(size_t last)
64{
65    value_info *v = lmt_memory_calloc(last + 2, sizeof(value_info));
66    set_value_entry_nop(v, last + 1);
67    return v;
68}
69
70void lmt_initialize_interface(void)
71{
72    lmt_interface.pack_type_values = lmt_aux_allocate_value_info(packing_adapted);
73
74    # define set_pack_type_value(n,k) lmt_interface.pack_type_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
75
76    set_pack_type_value(packing_exactly,    exactly);
77    set_pack_type_value(packing_additional, additional);
78    set_pack_type_value(packing_expanded,   expanded);
79    set_pack_type_value(packing_substitute, substitute);
80    set_pack_type_value(packing_adapted,    adapted);
81
82    lmt_interface.group_code_values = lmt_aux_allocate_value_info(lua_group);
83
84    # define set_group_code_value(n,k) lmt_interface.group_code_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
85
86    set_group_code_value(bottom_level_group,   bottomlevel);
87    set_group_code_value(simple_group,         simple);
88    set_group_code_value(hbox_group,           hbox);
89    set_group_code_value(adjusted_hbox_group,  adjustedhbox);
90    set_group_code_value(vbox_group,           vbox);
91    set_group_code_value(vtop_group,           vtop);
92    set_group_code_value(dbox_group,           dbox);
93    set_group_code_value(align_group,          align);
94    set_group_code_value(no_align_group,       noalign);
95    set_group_code_value(output_group,         output);
96    set_group_code_value(math_group,           mathsubformula);
97    set_group_code_value(math_component_group, mathcomponent);
98    set_group_code_value(math_stack_group,     mathstack);
99    set_group_code_value(discretionary_group,  discretionary);
100    set_group_code_value(insert_group,         insert);
101    set_group_code_value(vadjust_group,        vadjust);
102    set_group_code_value(vcenter_group,        vcenter);
103    set_group_code_value(math_fraction_group,  mathfraction);
104    set_group_code_value(math_radical_group,   mathradical);
105    set_group_code_value(math_operator_group,  mathoperator);
106    set_group_code_value(math_choice_group,    mathchoice);
107    set_group_code_value(also_simple_group,    alsosimple);
108    set_group_code_value(semi_simple_group,    semisimple);
109    set_group_code_value(math_simple_group,    mathsimple);
110    set_group_code_value(math_inline_group,    mathinline);
111    set_group_code_value(math_display_group,   mathdisplay);
112    set_group_code_value(math_number_group,    mathnumber);
113    set_group_code_value(math_fence_group,     mathfence);
114    set_group_code_value(local_box_group,      localbox);
115    set_group_code_value(split_off_group,      splitoff);
116    set_group_code_value(split_keep_group,     splitkeep);
117    set_group_code_value(preamble_group,       preamble);
118    set_group_code_value(align_set_group,      alignset);
119    set_group_code_value(finish_row_group,     finishrow);
120    set_group_code_value(lua_group,            lua);
121
122    lmt_interface.par_context_values = lmt_aux_allocate_value_info(reset_par_context);
123
124    # define set_par_context_value(n,k) lmt_interface.par_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
125
126    set_par_context_value(normal_par_context,      normal);
127    set_par_context_value(vmode_par_context,       vmode);
128    set_par_context_value(vbox_par_context,        vbox);
129    set_par_context_value(vtop_par_context,        vtop);
130    set_par_context_value(dbox_par_context,        dbox);
131    set_par_context_value(vcenter_par_context,     vcenter);
132    set_par_context_value(vadjust_par_context,     vadjust);
133    set_par_context_value(insert_par_context,      insert);
134    set_par_context_value(output_par_context,      output);
135    set_par_context_value(align_par_context,       align);
136    set_par_context_value(no_align_par_context,    noalign);
137    set_par_context_value(span_par_context,        span);
138    set_par_context_value(reset_par_context,       reset);
139
140    lmt_interface.page_context_values = lmt_aux_allocate_value_info(triggered_page_context);
141
142    # define set_page_context_value(n,k) lmt_interface.page_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
143
144    set_page_context_value(box_page_context,             box);
145    set_page_context_value(end_page_context,             end);
146    set_page_context_value(vadjust_page_context,         vadjust);
147    set_page_context_value(penalty_page_context,         penalty);
148    set_page_context_value(boundary_page_context,        boundary);
149    set_page_context_value(insert_page_context,          insert);
150    set_page_context_value(hmode_par_page_context,       hmodepar);
151    set_page_context_value(vmode_par_page_context,       vmodepar);
152    set_page_context_value(begin_paragraph_page_context, beginparagraph);
153    set_page_context_value(before_display_page_context,  beforedisplay);
154    set_page_context_value(after_display_page_context,   afterdisplay);
155    set_page_context_value(after_output_page_context,    afteroutput);
156    set_page_context_value(alignment_page_context,       alignment);
157    set_page_context_value(triggered_page_context,       triggered);
158
159    lmt_interface.append_line_context_values = lmt_aux_allocate_value_info(post_migrate_append_line_context);
160
161    # define set_append_line_context_value(n,k) lmt_interface.append_line_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
162
163    set_append_line_context_value(box_append_line_context,          box);
164    set_append_line_context_value(pre_box_append_line_context,      prebox);
165    set_append_line_context_value(pre_adjust_append_line_context,   preadjust);
166    set_append_line_context_value(post_adjust_append_line_context,  postadjust);
167    set_append_line_context_value(pre_migrate_append_line_context,  premigrate);
168    set_append_line_context_value(post_migrate_append_line_context, postmigrate);
169
170    lmt_interface.alignment_context_values = lmt_aux_allocate_value_info(wrapup_pass_alignment_context);
171
172    # define set_alignment_context_value(n,k) lmt_interface.alignment_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
173
174    set_alignment_context_value(preamble_pass_alignment_context, preamble);
175    set_alignment_context_value(preroll_pass_alignment_context,  preroll);
176    set_alignment_context_value(package_pass_alignment_context,  package);
177    set_alignment_context_value(wrapup_pass_alignment_context,   wrapup);
178
179    lmt_interface.break_context_values = lmt_aux_allocate_value_info(wrapup_show_breaks_context);
180
181    # define set_break_context_value(n,k) lmt_interface.break_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
182
183    set_break_context_value(initialize_show_breaks_context, initialize);
184    set_break_context_value(start_show_breaks_context,      start);
185    set_break_context_value(list_show_breaks_context,       list); 
186    set_break_context_value(stop_show_breaks_context,       stop);
187    set_break_context_value(collect_show_breaks_context,    collect);
188    set_break_context_value(line_show_breaks_context,       line);
189    set_break_context_value(delete_show_breaks_context,     delete);
190    set_break_context_value(report_show_breaks_context,     report); 
191    set_break_context_value(wrapup_show_breaks_context,     wrapup);
192
193    lmt_interface.build_context_values = lmt_aux_allocate_value_info(wrapup_show_build_context);
194
195    # define set_build_context_value(n,k) lmt_interface.build_context_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
196
197    set_build_context_value(initialize_show_build_context, initialize);
198    set_build_context_value(step_show_build_context,       step);
199    set_build_context_value(check_show_build_context,      check);
200    set_build_context_value(skip_show_build_context,       skip);
201    set_build_context_value(move_show_build_context,       move);
202    set_build_context_value(fireup_show_build_context,     fireup);
203    set_build_context_value(wrapup_show_build_context,     wrapup);
204
205    lmt_interface.par_trigger_values = lmt_aux_allocate_value_info(vrule_char_par_trigger);
206
207    # define set_par_trigger_value(n,k) lmt_interface.par_trigger_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
208
209    set_par_trigger_value(normal_par_trigger,       normal);
210    set_par_trigger_value(force_par_trigger,        force);
211    set_par_trigger_value(indent_par_trigger,       indent);
212    set_par_trigger_value(no_indent_par_trigger,    noindent);
213    set_par_trigger_value(math_char_par_trigger,    mathchar);
214    set_par_trigger_value(char_par_trigger,         char);
215    set_par_trigger_value(boundary_par_trigger,     boundary);
216    set_par_trigger_value(space_par_trigger,        space);
217    set_par_trigger_value(math_par_trigger,         math);
218    set_par_trigger_value(kern_par_trigger,         kern);
219    set_par_trigger_value(hskip_par_trigger,        hskip);
220    set_par_trigger_value(un_hbox_char_par_trigger, unhbox);
221    set_par_trigger_value(valign_char_par_trigger,  valign);
222    set_par_trigger_value(vrule_char_par_trigger,   vrule);
223
224    lmt_interface.par_mode_values = lmt_aux_allocate_value_info(math_par_subtype);
225
226    # define set_par_mode_value(n,k) lmt_interface.par_mode_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
227
228    set_par_mode_value(vmode_par_par_subtype, vmodepar);
229    set_par_mode_value(local_box_par_subtype, localbox);
230    set_par_mode_value(hmode_par_par_subtype, hmodepar);
231    set_par_mode_value(parameter_par_subtype, parameter);
232    set_par_mode_value(math_par_subtype,      math);
233
234    lmt_interface.math_style_name_values = lmt_aux_allocate_value_info(cramped_script_script_style);
235
236    # define set_math_style_name_value(n,k) lmt_interface.math_style_name_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
237
238    set_math_style_name_value(display_style,               display);
239    set_math_style_name_value(cramped_display_style,       crampeddisplay);
240    set_math_style_name_value(text_style,                  text);
241    set_math_style_name_value(cramped_text_style,          crampedtext);
242    set_math_style_name_value(script_style,                script);
243    set_math_style_name_value(cramped_script_style,        crampedscript);
244    set_math_style_name_value(script_script_style,         scriptscript);
245    set_math_style_name_value(cramped_script_script_style, crampedscriptscript);
246
247    lmt_interface.math_style_variant_values = lmt_aux_allocate_value_info(math_double_superscript_variant);
248
249    # define set_math_style_variant_value(n,k) lmt_interface.math_style_variant_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
250
251    set_math_style_variant_value(math_normal_style_variant,       normal);
252    set_math_style_variant_value(math_cramped_style_variant,      cramped);
253    set_math_style_variant_value(math_subscript_style_variant,    subscript);
254    set_math_style_variant_value(math_superscript_style_variant,  superscript);
255    set_math_style_variant_value(math_small_style_variant,        small);
256    set_math_style_variant_value(math_smaller_style_variant,      smaller);
257    set_math_style_variant_value(math_numerator_style_variant,    numerator);
258    set_math_style_variant_value(math_denominator_style_variant,  denominator);
259    set_math_style_variant_value(math_double_superscript_variant, doublesuperscript);
260
261    lmt_interface.lua_function_values = lmt_aux_allocate_value_info(lua_value_conditional_code);
262
263    # define set_lua_function_value(n,k) lmt_interface.lua_function_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
264
265    set_lua_function_value(lua_value_none_code,        none);
266    set_lua_function_value(lua_value_integer_code,     integer);
267    set_lua_function_value(lua_value_cardinal_code,    cardinal);
268    set_lua_function_value(lua_value_dimension_code,   dimension);
269    set_lua_function_value(lua_value_skip_code,        skip);
270    set_lua_function_value(lua_value_boolean_code,     boolean);
271    set_lua_function_value(lua_value_float_code,       float);
272    set_lua_function_value(lua_value_string_code,      string);
273    set_lua_function_value(lua_value_node_code,        node);
274    set_lua_function_value(lua_value_direct_code,      direct);
275    set_lua_function_value(lua_value_conditional_code, conditional);
276
277    lmt_interface.direction_values = lmt_aux_allocate_value_info(dir_righttoleft);
278
279    # define set_direction_value(n,k) lmt_interface.direction_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
280
281    set_direction_value(dir_lefttoright, lefttoright);
282    set_direction_value(dir_righttoleft, righttoleft);
283
284    lmt_interface.field_type_values = lmt_aux_allocate_value_info(attribute_field);
285
286    # define set_field_type_value(n,k) lmt_interface.field_type_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
287
288    set_field_type_value(nil_field,            nil);
289    set_field_type_value(integer_field,        integer);
290    set_field_type_value(dimension_field,      dimension);
291    set_field_type_value(glue_field,           glue);
292    set_field_type_value(number_field,         number);
293    set_field_type_value(string_field,         string);
294    set_field_type_value(boolean_field,        boolean);
295    set_field_type_value(function_field,       function);
296    set_field_type_value(node_field,           node);
297    set_field_type_value(node_list_field,      nodelist);
298    set_field_type_value(token_field,          token);
299    set_field_type_value(token_list_field,     tokenlist);
300    set_field_type_value(attribute_field,      attribute);
301
302    lmt_interface.node_fill_values = lmt_aux_allocate_value_info(filll_glue_order);
303
304    # define set_node_fill_value(n,k) lmt_interface.node_fill_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
305
306    set_node_fill_value(normal_glue_order, normal);
307    set_node_fill_value(fi_glue_order,     fi);
308    set_node_fill_value(fil_glue_order,    fil);
309    set_node_fill_value(fill_glue_order,   fill);
310    set_node_fill_value(filll_glue_order,  filll);
311
312    lmt_interface.page_contribute_values = lmt_aux_allocate_value_info(contribute_rule);
313
314    # define set_page_contribute_value(n,k) lmt_interface.page_contribute_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
315
316    set_page_contribute_value(contribute_nothing, empty);
317    set_page_contribute_value(contribute_insert,  insert);
318    set_page_contribute_value(contribute_box,     box);
319    set_page_contribute_value(contribute_rule,    rule);
320
321    lmt_interface.math_style_values = lmt_aux_allocate_value_info(cramped_script_script_style);
322
323    # define set_math_style_value(n,k) lmt_interface.math_style_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
324
325    set_math_style_value(display_style,               display);
326    set_math_style_value(cramped_display_style,       crampeddisplay);
327    set_math_style_value(text_style,                  text);
328    set_math_style_value(cramped_text_style,          crampedtext);
329    set_math_style_value(script_style,                script);
330    set_math_style_value(cramped_script_style,        crampedscript);
331    set_math_style_value(script_script_style,         scriptscript);
332    set_math_style_value(cramped_script_script_style, crampedscriptscript);
333
334    lmt_interface.math_indirect_values = lmt_aux_allocate_value_info(last_math_indirect);
335
336    # define set_math_indirect_value(n,k) lmt_interface.math_indirect_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .id = n }
337
338    set_math_indirect_value(indirect_math_unset,               unset);
339    set_math_indirect_value(indirect_math_regular,             regular);
340    set_math_indirect_value(indirect_math_integer,             integer);
341    set_math_indirect_value(indirect_math_dimension,           dimension);
342    set_math_indirect_value(indirect_math_gluespec,            gluespec);
343    set_math_indirect_value(indirect_math_mugluespec,          mugluespec);
344    set_math_indirect_value(indirect_math_register_integer,    registerinteger);
345    set_math_indirect_value(indirect_math_register_dimension,  registerdimension);
346    set_math_indirect_value(indirect_math_register_gluespec,   registergluespec);
347    set_math_indirect_value(indirect_math_register_mugluespec, registermugluespec);
348    set_math_indirect_value(indirect_math_internal_integer,    internalinteger);
349    set_math_indirect_value(indirect_math_internal_dimension,  internaldimension);
350    set_math_indirect_value(indirect_math_internal_dimension,  internalgluespec);
351    set_math_indirect_value(indirect_math_internal_mugluespec, internalmugluespec);
352
353    lmt_interface.math_parameter_values = lmt_aux_allocate_value_info(last_math_parameter);
354
355    # define set_math_parameter_value(n,t,k) lmt_interface.math_parameter_values[n] = (value_info) { .lua = lua_key_index(k), .name = lua_key(k), .type = t }
356
357    set_math_parameter_value(math_parameter_quad,                             math_dimension_parameter, quad);
358    set_math_parameter_value(math_parameter_exheight,                         math_dimension_parameter, exheight);
359    set_math_parameter_value(math_parameter_axis,                             math_dimension_parameter, axis);
360    set_math_parameter_value(math_parameter_accent_base_height,               math_dimension_parameter, accentbaseheight);
361    set_math_parameter_value(math_parameter_accent_base_depth,                math_dimension_parameter, accentbasedepth);
362    set_math_parameter_value(math_parameter_flattened_accent_base_height,     math_dimension_parameter, flattenedaccentbaseheight);
363    set_math_parameter_value(math_parameter_flattened_accent_base_depth,      math_dimension_parameter, flattenedaccentbasedepth);
364    set_math_parameter_value(math_parameter_x_scale,                          math_integer_parameter,   xscale);
365    set_math_parameter_value(math_parameter_y_scale,                          math_integer_parameter,   yscale);
366    set_math_parameter_value(math_parameter_operator_size,                    math_dimension_parameter, operatorsize);
367    set_math_parameter_value(math_parameter_overbar_kern,                     math_dimension_parameter, overbarkern);
368    set_math_parameter_value(math_parameter_overbar_rule,                     math_dimension_parameter, overbarrule);
369    set_math_parameter_value(math_parameter_overbar_vgap,                     math_dimension_parameter, overbarvgap);
370    set_math_parameter_value(math_parameter_underbar_kern,                    math_dimension_parameter, underbarkern);
371    set_math_parameter_value(math_parameter_underbar_rule,                    math_dimension_parameter, underbarrule);
372    set_math_parameter_value(math_parameter_underbar_vgap,                    math_dimension_parameter, underbarvgap);
373    set_math_parameter_value(math_parameter_radical_kern,                     math_dimension_parameter, radicalkern);
374    set_math_parameter_value(math_parameter_radical_rule,                     math_dimension_parameter, radicalrule);
375    set_math_parameter_value(math_parameter_radical_vgap,                     math_dimension_parameter, radicalvgap);
376    set_math_parameter_value(math_parameter_radical_degree_before,            math_dimension_parameter, radicaldegreebefore);
377    set_math_parameter_value(math_parameter_radical_degree_after,             math_dimension_parameter, radicaldegreeafter);
378    set_math_parameter_value(math_parameter_radical_degree_raise,             math_integer_parameter,   radicaldegreeraise);
379    set_math_parameter_value(math_parameter_radical_extensible_after,         math_dimension_parameter, radicalextensibleafter);
380    set_math_parameter_value(math_parameter_radical_extensible_before,        math_dimension_parameter, radicalextensiblebefore);
381    set_math_parameter_value(math_parameter_stack_vgap,                       math_dimension_parameter, stackvgap);
382    set_math_parameter_value(math_parameter_stack_num_up,                     math_dimension_parameter, stacknumup);
383    set_math_parameter_value(math_parameter_stack_denom_down,                 math_dimension_parameter, stackdenomdown);
384    set_math_parameter_value(math_parameter_fraction_rule,                    math_dimension_parameter, fractionrule);
385    set_math_parameter_value(math_parameter_fraction_num_vgap,                math_dimension_parameter, fractionnumvgap);
386    set_math_parameter_value(math_parameter_fraction_num_up,                  math_dimension_parameter, fractionnumup);
387    set_math_parameter_value(math_parameter_fraction_denom_vgap,              math_dimension_parameter, fractiondenomvgap);
388    set_math_parameter_value(math_parameter_fraction_denom_down,              math_dimension_parameter, fractiondenomdown);
389    set_math_parameter_value(math_parameter_fraction_del_size,                math_dimension_parameter, fractiondelsize);
390    set_math_parameter_value(math_parameter_skewed_fraction_hgap,             math_dimension_parameter, skewedfractionhgap);
391    set_math_parameter_value(math_parameter_skewed_fraction_vgap,             math_dimension_parameter, skewedfractionvgap);
392    set_math_parameter_value(math_parameter_limit_above_vgap,                 math_dimension_parameter, limitabovevgap);
393    set_math_parameter_value(math_parameter_limit_above_bgap,                 math_dimension_parameter, limitabovebgap);
394    set_math_parameter_value(math_parameter_limit_above_kern,                 math_dimension_parameter, limitabovekern);
395    set_math_parameter_value(math_parameter_limit_below_vgap,                 math_dimension_parameter, limitbelowvgap);
396    set_math_parameter_value(math_parameter_limit_below_bgap,                 math_dimension_parameter, limitbelowbgap);
397    set_math_parameter_value(math_parameter_limit_below_kern,                 math_dimension_parameter, limitbelowkern);
398    set_math_parameter_value(math_parameter_nolimit_sup_factor,               math_dimension_parameter, nolimitsupfactor);
399    set_math_parameter_value(math_parameter_nolimit_sub_factor,               math_dimension_parameter, nolimitsubfactor);
400    set_math_parameter_value(math_parameter_under_delimiter_vgap,             math_dimension_parameter, underdelimitervgap);
401    set_math_parameter_value(math_parameter_under_delimiter_bgap,             math_dimension_parameter, underdelimiterbgap);
402    set_math_parameter_value(math_parameter_over_delimiter_vgap,              math_dimension_parameter, overdelimitervgap);
403    set_math_parameter_value(math_parameter_over_delimiter_bgap,              math_dimension_parameter, overdelimiterbgap);
404    set_math_parameter_value(math_parameter_subscript_shift_drop,             math_dimension_parameter, subshiftdrop);
405    set_math_parameter_value(math_parameter_superscript_shift_drop,           math_dimension_parameter, supshiftdrop);
406    set_math_parameter_value(math_parameter_subscript_shift_down,             math_dimension_parameter, subshiftdown);
407    set_math_parameter_value(math_parameter_subscript_superscript_shift_down, math_dimension_parameter, subsupshiftdown);
408    set_math_parameter_value(math_parameter_subscript_top_max,                math_dimension_parameter, subtopmax);
409    set_math_parameter_value(math_parameter_superscript_shift_up,             math_dimension_parameter, supshiftup);
410    set_math_parameter_value(math_parameter_superscript_bottom_min,           math_dimension_parameter, supbottommin);
411    set_math_parameter_value(math_parameter_superscript_subscript_bottom_max, math_dimension_parameter, supsubbottommax);
412    set_math_parameter_value(math_parameter_subscript_superscript_vgap,       math_dimension_parameter, subsupvgap);
413    set_math_parameter_value(math_parameter_space_before_script,              math_dimension_parameter, spacebeforescript);
414    set_math_parameter_value(math_parameter_space_after_script,               math_dimension_parameter, spaceafterscript);
415    set_math_parameter_value(math_parameter_connector_overlap_min,            math_dimension_parameter, connectoroverlapmin);
416
417    /*tex
418
419        Gone are the many:
420
421        \starttyping
422        set_math_parameter_value(math_parameter_ordinary_ordinary_spacing, math_muglue_parameter, ordordspacing);
423        \stoptyping
424
425        thanks to the more generic multiple class mechanism.
426
427    */
428
429    set_math_parameter_value(math_parameter_extra_superscript_shift,            math_dimension_parameter,  extrasuperscriptshift);
430    set_math_parameter_value(math_parameter_extra_subscript_shift,              math_dimension_parameter,  extrasubscriptshift);
431    set_math_parameter_value(math_parameter_extra_superprescript_shift,         math_dimension_parameter,  extrasuperprescriptshift);
432    set_math_parameter_value(math_parameter_extra_subprescript_shift,           math_dimension_parameter,  extrasubprescriptshift);
433
434    set_math_parameter_value(math_parameter_prime_raise,                        math_integer_parameter,    primeraise);
435    set_math_parameter_value(math_parameter_prime_raise_composed,               math_integer_parameter,    primeraisecomposed);
436    set_math_parameter_value(math_parameter_prime_shift_up,                     math_dimension_parameter,  primeshiftup);
437    set_math_parameter_value(math_parameter_prime_shift_drop,                   math_dimension_parameter,  primeshiftdrop);
438    set_math_parameter_value(math_parameter_prime_space_after,                  math_dimension_parameter,  primespaceafter);
439    set_math_parameter_value(math_parameter_prime_width,                        math_integer_parameter,    primewidth);
440
441    set_math_parameter_value(math_parameter_rule_height,                        math_dimension_parameter,  ruleheight);
442    set_math_parameter_value(math_parameter_rule_depth,                         math_dimension_parameter,  ruledepth);
443
444    set_math_parameter_value(math_parameter_superscript_shift_distance,         math_dimension_parameter,  superscriptshiftdistance);
445    set_math_parameter_value(math_parameter_subscript_shift_distance,           math_dimension_parameter,  subscriptshiftdistance);
446    set_math_parameter_value(math_parameter_superprescript_shift_distance,      math_dimension_parameter,  presuperscriptshiftdistance);
447    set_math_parameter_value(math_parameter_subprescript_shift_distance,        math_dimension_parameter,  presubscriptshiftdistance);
448
449    set_math_parameter_value(math_parameter_extra_superscript_space,            math_dimension_parameter,  extrasuperscriptspace);
450    set_math_parameter_value(math_parameter_extra_subscript_space,              math_dimension_parameter,  extrasubscriptspace);
451    set_math_parameter_value(math_parameter_extra_superprescript_space,         math_dimension_parameter,  extrasuperprescriptspace);
452    set_math_parameter_value(math_parameter_extra_subprescript_space,           math_dimension_parameter,  extrasubprescriptspace);
453
454    set_math_parameter_value(math_parameter_superscript_snap,                   math_dimension_parameter,  superscriptsnap);
455    set_math_parameter_value(math_parameter_subscript_snap,                     math_dimension_parameter,  subscriptsnap);
456
457    set_math_parameter_value(math_parameter_skewed_delimiter_tolerance,         math_dimension_parameter,  skeweddelimitertolerance);
458
459    set_math_parameter_value(math_parameter_accent_top_shift_up,                math_dimension_parameter,  accenttopshiftup);
460    set_math_parameter_value(math_parameter_accent_bottom_shift_down,           math_dimension_parameter,  accentbottomshiftdown);
461    set_math_parameter_value(math_parameter_accent_top_overshoot,               math_integer_parameter,    accenttopovershoot);
462    set_math_parameter_value(math_parameter_accent_bottom_overshoot,            math_integer_parameter,    accentbottomovershoot);
463    set_math_parameter_value(math_parameter_accent_superscript_drop,            math_dimension_parameter,  accentsuperscriptdrop);
464    set_math_parameter_value(math_parameter_accent_superscript_percent,         math_integer_parameter,    accentsuperscriptpercent);
465    set_math_parameter_value(math_parameter_accent_extend_margin,               math_integer_parameter,    accentextendmargin);
466    set_math_parameter_value(math_parameter_flattened_accent_top_shift_up,      math_dimension_parameter,  flattenedaccenttopshiftup);
467    set_math_parameter_value(math_parameter_flattened_accent_bottom_shift_down, math_dimension_parameter,  flattenedaccentbottomshiftdown);
468
469    set_math_parameter_value(math_parameter_delimiter_percent,                  math_integer_parameter,    delimiterpercent);
470    set_math_parameter_value(math_parameter_delimiter_shortfall,                math_dimension_parameter,  delimitershortfall);
471    set_math_parameter_value(math_parameter_delimiter_extend_margin,            math_dimension_parameter,  delimiterextendmargin);
472
473    set_math_parameter_value(math_parameter_over_line_variant,                  math_style_parameter,      overlinevariant);
474    set_math_parameter_value(math_parameter_under_line_variant,                 math_style_parameter,      underlinevariant);
475    set_math_parameter_value(math_parameter_over_delimiter_variant,             math_style_parameter,      overdelimitervariant);
476    set_math_parameter_value(math_parameter_under_delimiter_variant,            math_style_parameter,      underdelimitervariant);
477    set_math_parameter_value(math_parameter_delimiter_over_variant,             math_style_parameter,      delimiterovervariant);
478    set_math_parameter_value(math_parameter_delimiter_under_variant,            math_style_parameter,      delimiterundervariant);
479    set_math_parameter_value(math_parameter_h_extensible_variant,               math_style_parameter,      hextensiblevariant);
480    set_math_parameter_value(math_parameter_v_extensible_variant,               math_style_parameter,      vextensiblevariant);
481    set_math_parameter_value(math_parameter_fraction_variant,                   math_style_parameter,      fractionvariant);
482    set_math_parameter_value(math_parameter_radical_variant,                    math_style_parameter,      radicalvariant);
483    set_math_parameter_value(math_parameter_degree_variant,                     math_style_parameter,      degreevariant);
484    set_math_parameter_value(math_parameter_accent_variant,                     math_style_parameter,      accentvariant);
485    set_math_parameter_value(math_parameter_top_accent_variant,                 math_style_parameter,      topaccentvariant);
486    set_math_parameter_value(math_parameter_bottom_accent_variant,              math_style_parameter,      bottomaccentvariant);
487    set_math_parameter_value(math_parameter_overlay_accent_variant,             math_style_parameter,      overlayaccentvariant);
488    set_math_parameter_value(math_parameter_numerator_variant,                  math_style_parameter,      numeratorvariant);
489    set_math_parameter_value(math_parameter_denominator_variant,                math_style_parameter,      denominatorvariant);
490    set_math_parameter_value(math_parameter_superscript_variant,                math_style_parameter,      superscriptvariant);
491    set_math_parameter_value(math_parameter_subscript_variant,                  math_style_parameter,      subscriptvariant);
492    set_math_parameter_value(math_parameter_prime_variant,                      math_style_parameter,      primevariant);
493    set_math_parameter_value(math_parameter_stack_variant,                      math_style_parameter,      stackvariant);
494
495    lmt_interface.math_font_parameter_values = lmt_aux_allocate_value_info(math_parameter_last_code + 1);
496
497    # define set_math_font_parameter(n, t) lmt_interface.math_font_parameter_values[n] = (value_info) { .lua = lua_key_index(n), .name = lua_key(n), .type = t }
498
499    set_math_font_parameter(ScriptPercentScaleDown,                   math_integer_parameter);
500    set_math_font_parameter(ScriptScriptPercentScaleDown,             math_integer_parameter);
501    set_math_font_parameter(DelimitedSubFormulaMinHeight,             math_dimension_parameter);
502    set_math_font_parameter(DisplayOperatorMinHeight,                 math_dimension_parameter);
503    set_math_font_parameter(MathLeading,                              math_dimension_parameter);
504    set_math_font_parameter(AxisHeight,                               math_dimension_parameter);
505    set_math_font_parameter(AccentBaseHeight,                         math_dimension_parameter);
506    set_math_font_parameter(AccentBaseDepth,                          math_dimension_parameter);
507    set_math_font_parameter(FlattenedAccentBaseHeight,                math_dimension_parameter);
508    set_math_font_parameter(FlattenedAccentBaseDepth,                 math_dimension_parameter);
509    set_math_font_parameter(SubscriptShiftDown,                       math_dimension_parameter);
510    set_math_font_parameter(SubscriptTopMax,                          math_dimension_parameter);
511    set_math_font_parameter(SubscriptBaselineDropMin,                 math_dimension_parameter);
512    set_math_font_parameter(SuperscriptShiftUp,                       math_dimension_parameter);
513    set_math_font_parameter(SuperscriptShiftUpCramped,                math_dimension_parameter);
514    set_math_font_parameter(SuperscriptBottomMin,                     math_dimension_parameter);
515    set_math_font_parameter(SuperscriptBaselineDropMax,               math_dimension_parameter);
516    set_math_font_parameter(SubSuperscriptGapMin,                     math_dimension_parameter);
517    set_math_font_parameter(SuperscriptBottomMaxWithSubscript,        math_dimension_parameter);
518    set_math_font_parameter(SpaceBeforeScript,                        math_dimension_parameter);
519    set_math_font_parameter(SpaceAfterScript,                         math_dimension_parameter);
520    set_math_font_parameter(UpperLimitGapMin,                         math_dimension_parameter);
521    set_math_font_parameter(UpperLimitBaselineRiseMin,                math_dimension_parameter);
522    set_math_font_parameter(LowerLimitGapMin,                         math_dimension_parameter);
523    set_math_font_parameter(LowerLimitBaselineDropMin,                math_dimension_parameter);
524    set_math_font_parameter(StackTopShiftUp,                          math_dimension_parameter);
525    set_math_font_parameter(StackTopDisplayStyleShiftUp,              math_dimension_parameter);
526    set_math_font_parameter(StackBottomShiftDown,                     math_dimension_parameter);
527    set_math_font_parameter(StackBottomDisplayStyleShiftDown,         math_dimension_parameter);
528    set_math_font_parameter(StackGapMin,                              math_dimension_parameter);
529    set_math_font_parameter(StackDisplayStyleGapMin,                  math_dimension_parameter);
530    set_math_font_parameter(StretchStackTopShiftUp,                   math_dimension_parameter);
531    set_math_font_parameter(StretchStackBottomShiftDown,              math_dimension_parameter);
532    set_math_font_parameter(StretchStackGapAboveMin,                  math_dimension_parameter);
533    set_math_font_parameter(StretchStackGapBelowMin,                  math_dimension_parameter);
534    set_math_font_parameter(FractionNumeratorShiftUp,                 math_dimension_parameter);
535    set_math_font_parameter(FractionNumeratorDisplayStyleShiftUp,     math_dimension_parameter);
536    set_math_font_parameter(FractionDenominatorShiftDown,             math_dimension_parameter);
537    set_math_font_parameter(FractionDenominatorDisplayStyleShiftDown, math_dimension_parameter);
538    set_math_font_parameter(FractionNumeratorGapMin,                  math_dimension_parameter);
539    set_math_font_parameter(FractionNumeratorDisplayStyleGapMin,      math_dimension_parameter);
540    set_math_font_parameter(FractionRuleThickness,                    math_dimension_parameter);
541    set_math_font_parameter(FractionDenominatorGapMin,                math_dimension_parameter);
542    set_math_font_parameter(FractionDenominatorDisplayStyleGapMin,    math_dimension_parameter);
543    set_math_font_parameter(SkewedFractionHorizontalGap,              math_dimension_parameter);
544    set_math_font_parameter(SkewedFractionVerticalGap,                math_dimension_parameter);
545    set_math_font_parameter(OverbarVerticalGap,                       math_dimension_parameter);
546    set_math_font_parameter(OverbarRuleThickness,                     math_dimension_parameter);
547    set_math_font_parameter(OverbarExtraAscender,                     math_dimension_parameter);
548    set_math_font_parameter(UnderbarVerticalGap,                      math_dimension_parameter);
549    set_math_font_parameter(UnderbarRuleThickness,                    math_dimension_parameter);
550    set_math_font_parameter(UnderbarExtraDescender,                   math_dimension_parameter);
551    set_math_font_parameter(RadicalVerticalGap,                       math_dimension_parameter);
552    set_math_font_parameter(RadicalDisplayStyleVerticalGap,           math_dimension_parameter);
553    set_math_font_parameter(RadicalRuleThickness,                     math_dimension_parameter);
554    set_math_font_parameter(RadicalExtraAscender,                     math_dimension_parameter);
555    set_math_font_parameter(RadicalKernBeforeDegree,                  math_dimension_parameter);
556    set_math_font_parameter(RadicalKernAfterDegree,                   math_dimension_parameter);
557    set_math_font_parameter(RadicalDegreeBottomRaisePercent,          math_integer_parameter);
558    set_math_font_parameter(RadicalKernAfterExtensible,               math_dimension_parameter);
559    set_math_font_parameter(RadicalKernBeforeExtensible,              math_dimension_parameter);
560    set_math_font_parameter(MinConnectorOverlap,                      math_dimension_parameter);
561    set_math_font_parameter(SuperscriptSnap,                          math_dimension_parameter);
562    set_math_font_parameter(SubscriptSnap,                            math_dimension_parameter);
563    set_math_font_parameter(SubscriptShiftDownWithSuperscript,        math_dimension_parameter);
564    set_math_font_parameter(FractionDelimiterSize,                    math_dimension_parameter);
565    set_math_font_parameter(FractionDelimiterDisplayStyleSize,        math_dimension_parameter);
566    set_math_font_parameter(NoLimitSubFactor,                         math_integer_parameter);
567    set_math_font_parameter(NoLimitSupFactor,                         math_integer_parameter);
568    set_math_font_parameter(PrimeRaisePercent,                        math_integer_parameter);
569    set_math_font_parameter(PrimeRaiseComposedPercent,                math_integer_parameter);
570    set_math_font_parameter(PrimeShiftUp,                             math_dimension_parameter);
571    set_math_font_parameter(PrimeShiftUpCramped,                      math_dimension_parameter);
572    set_math_font_parameter(PrimeBaselineDropMax,                     math_dimension_parameter);
573    set_math_font_parameter(PrimeSpaceAfter,                          math_dimension_parameter);
574    set_math_font_parameter(PrimeWidthPercent,                        math_integer_parameter);
575    set_math_font_parameter(SkewedDelimiterTolerance,                 math_dimension_parameter);
576    set_math_font_parameter(AccentTopShiftUp,                         math_dimension_parameter);
577    set_math_font_parameter(AccentBottomShiftDown,                    math_dimension_parameter);
578    set_math_font_parameter(AccentTopOvershoot,                       math_integer_parameter);
579    set_math_font_parameter(AccentBottomOvershoot,                    math_integer_parameter);
580    set_math_font_parameter(AccentSuperscriptDrop,                    math_dimension_parameter);
581    set_math_font_parameter(AccentSuperscriptPercent,                 math_integer_parameter);
582    set_math_font_parameter(AccentExtendMargin,                       math_dimension_parameter);
583    set_math_font_parameter(FlattenedAccentTopShiftUp,                math_dimension_parameter);
584    set_math_font_parameter(FlattenedAccentBottomShiftDown,           math_dimension_parameter);
585    set_math_font_parameter(DelimiterPercent,                         math_integer_parameter);
586    set_math_font_parameter(DelimiterShortfall,                       math_dimension_parameter);
587    set_math_font_parameter(DelimiterDisplayPercent,                  math_integer_parameter);
588    set_math_font_parameter(DelimiterDisplayShortfall,                math_dimension_parameter);
589    set_math_font_parameter(DelimiterExtendMargin,                    math_dimension_parameter);
590}
591