void
replace_packet_fonts(internal_font_number f, integer *old_fontid, integer *new_fontid, int count) {
int c, cmd, cur_packet_byte, lf, k,l;
charinfo *co;
real_eight_bits *vf_packets;
k = 0;
for (c = font_bc(f);c <= font_ec(f);c++) {
if (char_exists(f,c)) {
co = get_charinfo(f,c);
vf_packets = get_charinfo_packets(co);
if (vf_packets == NULL)
continue;
cur_packet_byte = 0;
while ((cmd = vf_packets[cur_packet_byte]) != packet_end_code) {
cur_packet_byte++;
switch (cmd) {
case packet_font_code:
packet_number(lf);
for (l=0;l<count;l++) {
if (old_fontid[l]==lf) {
break;
}
}
if(l<count) {
k = new_fontid[l];
vf_packets[(cur_packet_byte-4)] = (k&0xFF000000)>>24;
vf_packets[(cur_packet_byte-3)] = (k&0x00FF0000)>>16;
vf_packets[(cur_packet_byte-2)] = (k&0x0000FF00)>>8;
vf_packets[(cur_packet_byte-1)] = (k&0x000000FF);
}
break;
case packet_push_code:
case packet_pop_code:
case packet_nop_code:
break;
case packet_char_code:
case packet_right_code:
case packet_down_code:
case packet_node_code:
cur_packet_byte+=4;
break;
case packet_rule_code:
cur_packet_byte+=8;
break;
case packet_special_code:
packet_number(k);
while (k-- > 0)
(void)do_packet_byte();
break;
default:
pdf_error(maketexstring("vf"), maketexstring("invalid DVI command"));
}
}
}
}
str_number getjobname(str_number name)
{
str_number ret = name;
if (c_job_name != NULL)
ret = maketexstring(c_job_name);
return ret;
}
/* count the number of bytes in a command packet */
int
vf_packet_bytes (charinfo *co) {
real_eight_bits *vf_packets;
integer cur_packet_byte;
unsigned k;
int cmd;
vf_packets = get_charinfo_packets(co);
if (vf_packets == NULL) {
return 0;
}
cur_packet_byte = 0;
while ((cmd = vf_packets[cur_packet_byte]) != packet_end_code) {
cur_packet_byte++;
switch (cmd) {
case packet_char_code:
case packet_font_code:
case packet_right_code:
case packet_down_code:
case packet_node_code:
cur_packet_byte += 4;
break;
case packet_push_code:
case packet_pop_code:
break;
case packet_rule_code:
cur_packet_byte += 8;
break;
case packet_special_code:
packet_number(k); /* +4 */
cur_packet_byte += k;
break;
case packet_nop_code:
break;
default:
pdf_error(maketexstring("vf"), maketexstring("invalid DVI command"));
}
};
return (cur_packet_byte +1);
}
static int l_set_font_attributes(lua_State * L)
{
int f = luaL_checkinteger(L, -2);
int i ;
/*char *s;*/
const char *st;
if ((lua_type(L,-1) == LUA_TSTRING) && (st = lua_tostring(L, -1)) != NULL) {
/* is this dup needed? */
/*s = xstrdup(st);*/
i = maketexstring(st); /* brrr */
set_pdf_font_attr(f, i);
/*free(s);*/
}
return 0;
}
void initialize_commands(void)
{
primitive_tex("lineskip",assign_glue_cmd,glue_base+line_skip_code,glue_base);
primitive_tex("baselineskip",assign_glue_cmd,glue_base+baseline_skip_code,glue_base);
primitive_tex("parskip",assign_glue_cmd,glue_base+par_skip_code,glue_base);
primitive_tex("abovedisplayskip",assign_glue_cmd,glue_base+above_display_skip_code,glue_base);
primitive_tex("belowdisplayskip",assign_glue_cmd,glue_base+below_display_skip_code,glue_base);
primitive_tex("abovedisplayshortskip",assign_glue_cmd,glue_base+above_display_short_skip_code,glue_base);
primitive_tex("belowdisplayshortskip",assign_glue_cmd,glue_base+below_display_short_skip_code,glue_base);
primitive_tex("leftskip",assign_glue_cmd,glue_base+left_skip_code,glue_base);
primitive_tex("rightskip",assign_glue_cmd,glue_base+right_skip_code,glue_base);
primitive_tex("topskip",assign_glue_cmd,glue_base+top_skip_code,glue_base);
primitive_tex("splittopskip",assign_glue_cmd,glue_base+split_top_skip_code,glue_base);
primitive_tex("tabskip",assign_glue_cmd,glue_base+tab_skip_code,glue_base);
primitive_tex("spaceskip",assign_glue_cmd,glue_base+space_skip_code,glue_base);
primitive_tex("xspaceskip",assign_glue_cmd,glue_base+xspace_skip_code,glue_base);
primitive_tex("parfillskip",assign_glue_cmd,glue_base+par_fill_skip_code,glue_base);
primitive_tex("thinmuskip",assign_mu_glue_cmd,glue_base+thin_mu_skip_code,glue_base+thin_mu_skip_code);
primitive_tex("medmuskip",assign_mu_glue_cmd,glue_base+med_mu_skip_code,glue_base+thin_mu_skip_code);
primitive_tex("thickmuskip",assign_mu_glue_cmd,glue_base+thick_mu_skip_code,glue_base+thin_mu_skip_code);
primitive_luatex("mathsurroundskip",assign_glue_cmd,glue_base+math_skip_code,glue_base);
primitive_tex("output",assign_toks_cmd,output_routine_loc,local_base);
primitive_tex("everypar",assign_toks_cmd,every_par_loc,local_base);
primitive_tex("everymath",assign_toks_cmd,every_math_loc,local_base);
primitive_tex("everydisplay",assign_toks_cmd,every_display_loc,local_base);
primitive_tex("everyhbox",assign_toks_cmd,every_hbox_loc,local_base);
primitive_tex("everyvbox",assign_toks_cmd,every_vbox_loc,local_base);
primitive_tex("everyjob",assign_toks_cmd,every_job_loc,local_base);
primitive_tex("everycr",assign_toks_cmd,every_cr_loc,local_base);
primitive_tex("errhelp",assign_toks_cmd,err_help_loc,local_base);
primitive_tex("pretolerance",assign_int_cmd,int_base+pretolerance_code,int_base);
primitive_tex("tolerance",assign_int_cmd,int_base+tolerance_code,int_base);
primitive_tex("linepenalty",assign_int_cmd,int_base+line_penalty_code,int_base);
primitive_tex("hyphenpenalty",assign_int_cmd,int_base+hyphen_penalty_code,int_base);
primitive_tex("exhyphenpenalty",assign_int_cmd,int_base+ex_hyphen_penalty_code,int_base);
primitive_tex("clubpenalty",assign_int_cmd,int_base+club_penalty_code,int_base);
primitive_tex("widowpenalty",assign_int_cmd,int_base+widow_penalty_code,int_base);
primitive_tex("displaywidowpenalty",assign_int_cmd,int_base+display_widow_penalty_code,int_base);
primitive_tex("brokenpenalty",assign_int_cmd,int_base+broken_penalty_code,int_base);
primitive_tex("binoppenalty",assign_int_cmd,int_base+bin_op_penalty_code,int_base);
primitive_tex("relpenalty",assign_int_cmd,int_base+rel_penalty_code,int_base);
primitive_tex("predisplaypenalty",assign_int_cmd,int_base+pre_display_penalty_code,int_base);
primitive_tex("postdisplaypenalty",assign_int_cmd,int_base+post_display_penalty_code,int_base);
primitive_tex("interlinepenalty",assign_int_cmd,int_base+inter_line_penalty_code,int_base);
primitive_tex("doublehyphendemerits",assign_int_cmd,int_base+double_hyphen_demerits_code,int_base);
primitive_tex("finalhyphendemerits",assign_int_cmd,int_base+final_hyphen_demerits_code,int_base);
primitive_tex("adjdemerits",assign_int_cmd,int_base+adj_demerits_code,int_base);
primitive_tex("mag",assign_int_cmd,int_base+mag_code,int_base);
primitive_tex("delimiterfactor",assign_int_cmd,int_base+delimiter_factor_code,int_base);
primitive_tex("looseness",assign_int_cmd,int_base+looseness_code,int_base);
primitive_tex("time",assign_int_cmd,int_base+time_code,int_base);
primitive_tex("day",assign_int_cmd,int_base+day_code,int_base);
primitive_tex("month",assign_int_cmd,int_base+month_code,int_base);
primitive_tex("year",assign_int_cmd,int_base+year_code,int_base);
primitive_tex("showboxbreadth",assign_int_cmd,int_base+show_box_breadth_code,int_base);
primitive_tex("showboxdepth",assign_int_cmd,int_base+show_box_depth_code,int_base);
primitive_tex("hbadness",assign_int_cmd,int_base+hbadness_code,int_base);
primitive_tex("vbadness",assign_int_cmd,int_base+vbadness_code,int_base);
primitive_tex("pausing",assign_int_cmd,int_base+pausing_code,int_base);
primitive_tex("tracingonline",assign_int_cmd,int_base+tracing_online_code,int_base);
primitive_tex("tracingmacros",assign_int_cmd,int_base+tracing_macros_code,int_base);
primitive_tex("tracingstats",assign_int_cmd,int_base+tracing_stats_code,int_base);
primitive_tex("tracingparagraphs",assign_int_cmd,int_base+tracing_paragraphs_code,int_base);
primitive_tex("tracingpages",assign_int_cmd,int_base+tracing_pages_code,int_base);
primitive_tex("tracingoutput",assign_int_cmd,int_base+tracing_output_code,int_base);
primitive_tex("tracinglostchars",assign_int_cmd,int_base+tracing_lost_chars_code,int_base);
primitive_tex("tracingcommands",assign_int_cmd,int_base+tracing_commands_code,int_base);
primitive_tex("tracingrestores",assign_int_cmd,int_base+tracing_restores_code,int_base);
primitive_tex("uchyph",assign_int_cmd,int_base+uc_hyph_code,int_base);
primitive_tex("outputpenalty",assign_int_cmd,int_base+output_penalty_code,int_base);
primitive_tex("maxdeadcycles",assign_int_cmd,int_base+max_dead_cycles_code,int_base);
primitive_tex("hangafter",assign_int_cmd,int_base+hang_after_code,int_base);
primitive_tex("floatingpenalty",assign_int_cmd,int_base+floating_penalty_code,int_base);
primitive_tex("globaldefs",assign_int_cmd,int_base+global_defs_code,int_base);
primitive_tex("fam",assign_int_cmd,int_base+cur_fam_code,int_base);
primitive_tex("escapechar",assign_int_cmd,int_base+escape_char_code,int_base);
primitive_tex("defaulthyphenchar",assign_int_cmd,int_base+default_hyphen_char_code,int_base);
primitive_tex("defaultskewchar",assign_int_cmd,int_base+default_skew_char_code,int_base);
primitive_tex("endlinechar",assign_int_cmd,int_base+end_line_char_code,int_base);
primitive_tex("newlinechar",assign_int_cmd,int_base+new_line_char_code,int_base);
primitive_tex("language",assign_int_cmd,int_base+language_code,int_base);
primitive_tex("setlanguage",assign_int_cmd,int_base+cur_lang_code,int_base);
primitive_tex("firstvalidlanguage",assign_int_cmd,int_base+first_valid_language_code,int_base);
primitive_tex("exhyphenchar",assign_int_cmd,int_base+ex_hyphen_char_code,int_base);
primitive_tex("lefthyphenmin",assign_int_cmd,int_base+left_hyphen_min_code,int_base);
primitive_tex("righthyphenmin",assign_int_cmd,int_base+right_hyphen_min_code,int_base);
primitive_tex("holdinginserts",assign_int_cmd,int_base+holding_inserts_code,int_base);
primitive_tex("errorcontextlines",assign_int_cmd,int_base+error_context_lines_code,int_base);
primitive_luatex("nokerns",assign_int_cmd,int_base+disable_kern_code,int_base);
primitive_luatex("noligs",assign_int_cmd,int_base+disable_lig_code,int_base);
primitive_luatex("nospaces",assign_int_cmd,int_base+disable_space_code,int_base);
primitive_luatex("catcodetable",assign_int_cmd,int_base+cat_code_table_code,int_base);
primitive_luatex("outputbox",assign_int_cmd,int_base+output_box_code,int_base);
primitive_luatex("outputmode",assign_int_cmd,int_base+output_mode_code,int_base);
primitive_luatex("adjustspacing",assign_int_cmd,int_base+adjust_spacing_code,int_base);
primitive_luatex("protrudechars",assign_int_cmd,int_base+protrude_chars_code,int_base);
primitive_luatex("tracingfonts",assign_int_cmd,int_base+tracing_fonts_code,int_base);
primitive_luatex("draftmode",assign_int_cmd,int_base+draft_mode_code,int_base);
primitive_tex("parindent",assign_dimen_cmd,dimen_base+par_indent_code,dimen_base);
primitive_tex("mathsurround",assign_dimen_cmd,dimen_base+math_surround_code,dimen_base);
primitive_tex("lineskiplimit",assign_dimen_cmd,dimen_base+line_skip_limit_code,dimen_base);
primitive_tex("hsize",assign_dimen_cmd,dimen_base+hsize_code,dimen_base);
primitive_tex("vsize",assign_dimen_cmd,dimen_base+vsize_code,dimen_base);
primitive_tex("maxdepth",assign_dimen_cmd,dimen_base+max_depth_code,dimen_base);
primitive_tex("splitmaxdepth",assign_dimen_cmd,dimen_base+split_max_depth_code,dimen_base);
primitive_tex("boxmaxdepth",assign_dimen_cmd,dimen_base+box_max_depth_code,dimen_base);
primitive_tex("hfuzz",assign_dimen_cmd,dimen_base+hfuzz_code,dimen_base);
primitive_tex("vfuzz",assign_dimen_cmd,dimen_base+vfuzz_code,dimen_base);
primitive_tex("delimitershortfall",assign_dimen_cmd,dimen_base+delimiter_shortfall_code,dimen_base);
primitive_tex("nulldelimiterspace",assign_dimen_cmd,dimen_base+null_delimiter_space_code,dimen_base);
primitive_tex("scriptspace",assign_dimen_cmd,dimen_base+script_space_code,dimen_base);
primitive_tex("predisplaysize",assign_dimen_cmd,dimen_base+pre_display_size_code,dimen_base);
primitive_tex("displaywidth",assign_dimen_cmd,dimen_base+display_width_code,dimen_base);
primitive_tex("displayindent",assign_dimen_cmd,dimen_base+display_indent_code,dimen_base);
primitive_tex("overfullrule",assign_dimen_cmd,dimen_base+overfull_rule_code,dimen_base);
primitive_tex("hangindent",assign_dimen_cmd,dimen_base+hang_indent_code,dimen_base);
primitive_tex("hoffset",assign_dimen_cmd,dimen_base+h_offset_code,dimen_base);
primitive_tex("voffset",assign_dimen_cmd,dimen_base+v_offset_code,dimen_base);
primitive_tex("emergencystretch",assign_dimen_cmd,dimen_base+emergency_stretch_code,dimen_base);
primitive_luatex("pagewidth",assign_dimen_cmd,dimen_base+page_width_code,dimen_base);
primitive_luatex("pageheight",assign_dimen_cmd,dimen_base+page_height_code,dimen_base);
primitive_luatex("pxdimen",assign_dimen_cmd,dimen_base+px_dimen_code,dimen_base);
primitive_tex(" ",ex_space_cmd,0,0);
primitive_tex("/",ital_corr_cmd,0,0);
primitive_tex("accent",accent_cmd,0,0);
primitive_tex("advance",advance_cmd,0,0);
primitive_tex("afterassignment",after_assignment_cmd,0,0);
primitive_tex("aftergroup",after_group_cmd,0,0);
primitive_tex("begingroup",begin_group_cmd,0,0);
primitive_tex("char",char_num_cmd,0,0);
primitive_tex("csname",cs_name_cmd,0,0);
primitive_luatex("lastnamedcs",cs_name_cmd,1,0);
primitive_luatex("begincsname",cs_name_cmd,2,0);
primitive_tex("delimiter",delim_num_cmd,0,0);
primitive_luatex("Udelimiter",delim_num_cmd,1,0);
primitive_tex("divide",divide_cmd,0,0);
primitive_tex("endcsname",end_cs_name_cmd,0,0);
primitive_tex("endgroup",end_group_cmd,0,0);
cs_text(frozen_end_group)= maketexstring("endgroup");
eqtb[frozen_end_group]= eqtb[cur_val];
primitive_tex("expandafter",expand_after_cmd,0,0);
primitive_tex("font",def_font_cmd,0,0);
primitive_luatex("letterspacefont",letterspace_font_cmd,0,0);
primitive_luatex("expandglyphsinfont",normal_cmd,expand_font_code,0);
primitive_luatex("copyfont",copy_font_cmd,0,0);
primitive_luatex("setfontid",set_font_id_cmd,0,0);
primitive_tex("fontdimen",assign_font_dimen_cmd,0,0);
primitive_tex("halign",halign_cmd,0,0);
primitive_tex("hrule",hrule_cmd,0,0);
primitive_luatex("nohrule",no_hrule_cmd,0,0);
primitive_tex("ignorespaces",ignore_spaces_cmd,0,0);
primitive_tex("insert",insert_cmd,0,0);
primitive_luatex("leftghost",char_ghost_cmd,0,0);
primitive_tex("mark",mark_cmd,0,0);
primitive_tex("mathaccent",math_accent_cmd,0,0);
primitive_luatex("Umathaccent",math_accent_cmd,1,0);
primitive_tex("mathchar",math_char_num_cmd,0,0);
primitive_luatex("Umathchar",math_char_num_cmd,1,0);
primitive_luatex("Umathcharnum",math_char_num_cmd,2,0);
primitive_tex("mathchoice",math_choice_cmd,0,0);
primitive_luatex("Ustack",math_choice_cmd,1,0);
primitive_tex("multiply",multiply_cmd,0,0);
primitive_tex("noalign",no_align_cmd,0,0);
primitive_tex("noboundary",boundary_cmd,0,0);
primitive_tex("boundary",boundary_cmd,1,0);
primitive_tex("protrusionboundary",boundary_cmd,2,0);
primitive_tex("wordboundary",boundary_cmd,3,0);
primitive_tex("noexpand",no_expand_cmd,0,0);
primitive_luatex("primitive",no_expand_cmd,1,0);
primitive_tex("nonscript",non_script_cmd,0,0);
primitive_tex("omit",omit_cmd,0,0);
primitive_tex("parshape",set_tex_shape_cmd,par_shape_loc,par_shape_loc);
primitive_tex("penalty",break_penalty_cmd,0,0);
primitive_tex("prevgraf",set_prev_graf_cmd,0,0);
primitive_tex("radical",radical_cmd,0,0);
primitive_luatex("Uradical",radical_cmd,1,0);
primitive_luatex("Uroot",radical_cmd,2,0);
primitive_luatex("Uunderdelimiter",radical_cmd,3,0);
primitive_luatex("Uoverdelimiter",radical_cmd,4,0);
primitive_luatex("Udelimiterunder",radical_cmd,5,0);
primitive_luatex("Udelimiterover",radical_cmd,6,0);
primitive_luatex("Uhextensible",radical_cmd,7,0);
primitive_tex("read",read_to_cs_cmd,0,0);
primitive_tex("relax",relax_cmd,too_big_char,too_big_char);
cs_text(frozen_relax)= maketexstring("relax");
eqtb[frozen_relax]= eqtb[cur_val];
primitive_luatex("rightghost",char_ghost_cmd,1,0);
primitive_tex("setbox",set_box_cmd,0,0);
primitive_tex("the",the_cmd,0,0);
primitive_luatex("toksapp",combine_toks_cmd,0,0);
primitive_luatex("tokspre",combine_toks_cmd,1,0);
primitive_luatex("etoksapp",combine_toks_cmd,2,0);
primitive_luatex("etokspre",combine_toks_cmd,3,0);
primitive_tex("toks",toks_register_cmd,0,0);
primitive_tex("vadjust",vadjust_cmd,0,0);
primitive_tex("valign",valign_cmd,0,0);
primitive_tex("vcenter",vcenter_cmd,0,0);
primitive_tex("vrule",vrule_cmd,0,0);
primitive_luatex("novrule",no_vrule_cmd,0,0);
primitive_tex("par",par_end_cmd,too_big_char,too_big_char);
par_loc= cur_val;
par_token= cs_token_flag+par_loc;
/*3:*/
#line 251 "./luatexdir/tex/commands.w"
primitive_tex("input",input_cmd,0,0);
primitive_tex("endinput",input_cmd,1,0);
primitive_tex("topmark",top_bot_mark_cmd,top_mark_code,0);
primitive_tex("firstmark",top_bot_mark_cmd,first_mark_code,0);
primitive_tex("botmark",top_bot_mark_cmd,bot_mark_code,0);
primitive_tex("splitfirstmark",top_bot_mark_cmd,split_first_mark_code,0);
primitive_tex("splitbotmark",top_bot_mark_cmd,split_bot_mark_code,0);
primitive_luatex("clearmarks",mark_cmd,clear_marks_code,0);
primitive_etex("marks",mark_cmd,marks_code,0);
primitive_etex("topmarks",top_bot_mark_cmd,top_mark_code+marks_code,0);
primitive_etex("firstmarks",top_bot_mark_cmd,first_mark_code+marks_code,0);
primitive_etex("botmarks",top_bot_mark_cmd,bot_mark_code+marks_code,0);
primitive_etex("splitfirstmarks",top_bot_mark_cmd,split_first_mark_code+marks_code,0);
primitive_etex("splitbotmarks",top_bot_mark_cmd,split_bot_mark_code+marks_code,0);
primitive_tex("count",register_cmd,int_val_level,0);
primitive_luatex("attribute",register_cmd,attr_val_level,0);
primitive_tex("dimen",register_cmd,dimen_val_level,0);
primitive_tex("skip",register_cmd,glue_val_level,0);
primitive_tex("muskip",register_cmd,mu_val_level,0);
primitive_tex("spacefactor",set_aux_cmd,hmode,0);
primitive_tex("prevdepth",set_aux_cmd,vmode,0);
primitive_tex("deadcycles",set_page_int_cmd,0,0);
primitive_tex("insertpenalties",set_page_int_cmd,1,0);
primitive_tex("wd",set_box_dimen_cmd,width_offset,0);
primitive_tex("ht",set_box_dimen_cmd,height_offset,0);
primitive_tex("dp",set_box_dimen_cmd,depth_offset,0);
primitive_tex("lastpenalty",last_item_cmd,lastpenalty_code,0);
primitive_tex("lastkern",last_item_cmd,lastkern_code,0);
primitive_tex("lastskip",last_item_cmd,lastskip_code,0);
primitive_tex("inputlineno",last_item_cmd,input_line_no_code,0);
primitive_tex("badness",last_item_cmd,badness_code,0);
primitive_luatex("luatexversion",last_item_cmd,luatex_version_code,0);
primitive_luatex("lastsavedboxresourceindex",last_item_cmd,last_saved_box_resource_index_code,0);
primitive_luatex("lastsavedimageresourceindex",last_item_cmd,last_saved_image_resource_index_code,0);
primitive_luatex("lastsavedimageresourcepages",last_item_cmd,last_saved_image_resource_pages_code,0);
primitive_luatex("lastxpos",last_item_cmd,last_x_pos_code,0);
primitive_luatex("lastypos",last_item_cmd,last_y_pos_code,0);
primitive_luatex("randomseed",last_item_cmd,random_seed_code,0);
primitive_tex("number",convert_cmd,number_code,0);
primitive_tex("romannumeral",convert_cmd,roman_numeral_code,0);
primitive_tex("string",convert_cmd,string_code,0);
primitive_tex("csstring",convert_cmd,cs_string_code,0);
primitive_tex("meaning",convert_cmd,meaning_code,0);
primitive_etex("eTeXVersion",convert_cmd,etex_code,0);
primitive_tex("fontname",convert_cmd,font_name_code,0);
primitive_luatex("fontid",convert_cmd,font_id_code,0);
primitive_luatex("luatexrevision",convert_cmd,luatex_revision_code,0);
primitive_luatex("luatexdatestamp",convert_cmd,luatex_date_code,0);
primitive_luatex("luatexbanner",convert_cmd,luatex_banner_code,0);
primitive_luatex("leftmarginkern",convert_cmd,left_margin_kern_code,0);
primitive_luatex("rightmarginkern",convert_cmd,right_margin_kern_code,0);
primitive_luatex("uniformdeviate",convert_cmd,uniform_deviate_code,0);
primitive_luatex("normaldeviate",convert_cmd,normal_deviate_code,0);
primitive_core("directlua",convert_cmd,lua_code,0);
primitive_luatex("luafunction",convert_cmd,lua_function_code,0);
primitive_luatex("luaescapestring",convert_cmd,lua_escape_string_code,0);
primitive_luatex("mathstyle",convert_cmd,math_style_code,0);
primitive_luatex("expanded",convert_cmd,expanded_code,0);
primitive_tex("jobname",convert_cmd,job_name_code,0);
primitive_luatex("formatname",convert_cmd,format_name_code,0);
primitive_luatex("Uchar",convert_cmd,uchar_code,0);
primitive_luatex("Umathcharclass",convert_cmd,math_char_class_code,0);
primitive_luatex("Umathcharfam",convert_cmd,math_char_fam_code,0);
primitive_luatex("Umathcharslot",convert_cmd,math_char_slot_code,0);
primitive_tex("if",if_test_cmd,if_char_code,0);
primitive_tex("ifcat",if_test_cmd,if_cat_code,0);
primitive_tex("ifnum",if_test_cmd,if_int_code,0);
primitive_tex("ifdim",if_test_cmd,if_dim_code,0);
primitive_tex("ifodd",if_test_cmd,if_odd_code,0);
primitive_tex("ifvmode",if_test_cmd,if_vmode_code,0);
primitive_tex("ifhmode",if_test_cmd,if_hmode_code,0);
primitive_tex("ifmmode",if_test_cmd,if_mmode_code,0);
primitive_tex("ifinner",if_test_cmd,if_inner_code,0);
primitive_tex("ifvoid",if_test_cmd,if_void_code,0);
primitive_tex("ifhbox",if_test_cmd,if_hbox_code,0);
primitive_tex("ifvbox",if_test_cmd,if_vbox_code,0);
primitive_tex("ifx",if_test_cmd,ifx_code,0);
primitive_tex("ifeof",if_test_cmd,if_eof_code,0);
primitive_tex("iftrue",if_test_cmd,if_true_code,0);
primitive_tex("iffalse",if_test_cmd,if_false_code,0);
primitive_tex("ifcase",if_test_cmd,if_case_code,0);
primitive_luatex("ifprimitive",if_test_cmd,if_primitive_code,0);
primitive_tex("fi",fi_or_else_cmd,fi_code,0);
cs_text(frozen_fi)= maketexstring("fi");
eqtb[frozen_fi]= eqtb[cur_val];
primitive_tex("or",fi_or_else_cmd,or_code,0);
primitive_tex("else",fi_or_else_cmd,else_code,0);
primitive_tex("nullfont",set_font_cmd,null_font,0);
cs_text(frozen_null_font)= maketexstring("nullfont");
eqtb[frozen_null_font]= eqtb[cur_val];
primitive_tex("span",tab_mark_cmd,span_code,tab_mark_cmd_code);
primitive_luatex("aligntab",tab_mark_cmd,tab_mark_cmd_code,tab_mark_cmd_code);
primitive_luatex("alignmark",mac_param_cmd,tab_mark_cmd_code,tab_mark_cmd_code);
primitive_tex("cr",car_ret_cmd,cr_code,cr_code);
cs_text(frozen_cr)= maketexstring("cr");
eqtb[frozen_cr]= eqtb[cur_val];
primitive_tex("crcr",car_ret_cmd,cr_cr_code,cr_code);
cs_text(frozen_end_template)= maketexstring("endtemplate");
cs_text(frozen_endv)= maketexstring("endtemplate");
set_eq_type(frozen_endv,endv_cmd);
set_equiv(frozen_endv,null_list);
set_eq_level(frozen_endv,level_one);
eqtb[frozen_end_template]= eqtb[frozen_endv];
set_eq_type(frozen_end_template,end_template_cmd);
primitive_tex("pagegoal",set_page_dimen_cmd,0,0);
primitive_tex("pagetotal",set_page_dimen_cmd,1,0);
primitive_tex("pagestretch",set_page_dimen_cmd,2,0);
primitive_tex("pagefilstretch",set_page_dimen_cmd,3,0);
primitive_tex("pagefillstretch",set_page_dimen_cmd,4,0);
primitive_tex("pagefilllstretch",set_page_dimen_cmd,5,0);
primitive_tex("pageshrink",set_page_dimen_cmd,6,0);
primitive_tex("pagedepth",set_page_dimen_cmd,7,0);
primitive_tex("end",stop_cmd,0,0);
primitive_tex("dump",stop_cmd,1,0);
primitive_tex("hskip",hskip_cmd,skip_code,0);
primitive_tex("hfil",hskip_cmd,fil_code,0);
primitive_tex("hfill",hskip_cmd,fill_code,0);
primitive_tex("hss",hskip_cmd,ss_code,0);
primitive_tex("hfilneg",hskip_cmd,fil_neg_code,0);
primitive_tex("vskip",vskip_cmd,skip_code,0);
primitive_tex("vfil",vskip_cmd,fil_code,0);
primitive_tex("vfill",vskip_cmd,fill_code,0);
primitive_tex("vss",vskip_cmd,ss_code,0);
primitive_tex("vfilneg",vskip_cmd,fil_neg_code,0);
primitive_tex("mskip",mskip_cmd,mskip_code,0);
primitive_tex("kern",kern_cmd,explicit_kern,0);
primitive_tex("mkern",mkern_cmd,mu_glue,0);
primitive_tex("moveleft",hmove_cmd,1,0);
primitive_tex("moveright",hmove_cmd,0,0);
primitive_tex("raise",vmove_cmd,1,0);
primitive_tex("lower",vmove_cmd,0,0);
primitive_tex("box",make_box_cmd,box_code,0);
primitive_tex("copy",make_box_cmd,copy_code,0);
primitive_tex("lastbox",make_box_cmd,last_box_code,0);
primitive_tex("vsplit",make_box_cmd,vsplit_code,0);
primitive_tex("tpack",make_box_cmd,tpack_code,0);
primitive_tex("vpack",make_box_cmd,vpack_code,0);
primitive_tex("hpack",make_box_cmd,hpack_code,0);
primitive_tex("vtop",make_box_cmd,vtop_code,0);
primitive_tex("vbox",make_box_cmd,vtop_code+vmode,0);
primitive_tex("hbox",make_box_cmd,vtop_code+hmode,0);
primitive_tex("shipout",leader_ship_cmd,a_leaders-1,0);
primitive_tex("leaders",leader_ship_cmd,a_leaders,0);
primitive_tex("cleaders",leader_ship_cmd,c_leaders,0);
primitive_tex("xleaders",leader_ship_cmd,x_leaders,0);
primitive_luatex("gleaders",leader_ship_cmd,g_leaders,0);
primitive_luatex("boxdir",assign_box_dir_cmd,0,0);
primitive_tex("indent",start_par_cmd,1,0);
primitive_tex("noindent",start_par_cmd,0,0);
primitive_luatex("quitvmode",start_par_cmd,2,0);
primitive_tex("unpenalty",remove_item_cmd,penalty_node,0);
primitive_tex("unkern",remove_item_cmd,kern_node,0);
primitive_tex("unskip",remove_item_cmd,glue_node,0);
primitive_tex("unhbox",un_hbox_cmd,box_code,0);
primitive_tex("unhcopy",un_hbox_cmd,copy_code,0);
primitive_tex("unvbox",un_vbox_cmd,box_code,0);
primitive_tex("unvcopy",un_vbox_cmd,copy_code,0);
primitive_tex("-",discretionary_cmd,explicit_disc,0);
primitive_tex("discretionary",discretionary_cmd,discretionary_disc,0);
primitive_luatex("localleftbox",assign_local_box_cmd,0,0);
primitive_luatex("localrightbox",assign_local_box_cmd,1,0);
primitive_luatex("Ustartmath",math_shift_cs_cmd,text_style,0);
primitive_luatex("Ustopmath",math_shift_cs_cmd,cramped_text_style,0);
primitive_luatex("Ustartdisplaymath",math_shift_cs_cmd,display_style,0);
primitive_luatex("Ustopdisplaymath",math_shift_cs_cmd,cramped_display_style,0);
primitive_tex("eqno",eq_no_cmd,0,0);
primitive_tex("leqno",eq_no_cmd,1,0);
primitive_tex("mathord",math_comp_cmd,ord_noad_type,0);
primitive_tex("mathop",math_comp_cmd,op_noad_type_normal,0);
primitive_tex("mathbin",math_comp_cmd,bin_noad_type,0);
primitive_tex("mathrel",math_comp_cmd,rel_noad_type,0);
primitive_tex("mathopen",math_comp_cmd,open_noad_type,0);
primitive_tex("mathclose",math_comp_cmd,close_noad_type,0);
primitive_tex("mathpunct",math_comp_cmd,punct_noad_type,0);
primitive_tex("mathinner",math_comp_cmd,inner_noad_type,0);
primitive_tex("underline",math_comp_cmd,under_noad_type,0);
primitive_tex("overline",math_comp_cmd,over_noad_type,0);
primitive_tex("displaylimits",limit_switch_cmd,op_noad_type_normal,0);
primitive_tex("limits",limit_switch_cmd,op_noad_type_limits,0);
primitive_tex("nolimits",limit_switch_cmd,op_noad_type_no_limits,0);
primitive_tex("displaystyle",math_style_cmd,display_style,0);
primitive_tex("textstyle",math_style_cmd,text_style,0);
primitive_tex("scriptstyle",math_style_cmd,script_style,0);
primitive_tex("scriptscriptstyle",math_style_cmd,script_script_style,0);
primitive_luatex("crampeddisplaystyle",math_style_cmd,cramped_display_style,0);
primitive_luatex("crampedtextstyle",math_style_cmd,cramped_text_style,0);
primitive_luatex("crampedscriptstyle",math_style_cmd,cramped_script_style,0);
primitive_luatex("crampedscriptscriptstyle",math_style_cmd,cramped_script_script_style,0);
primitive_luatex("Usuperscript",super_sub_script_cmd,sup_mark_cmd,sup_mark_cmd);
primitive_luatex("Usubscript",super_sub_script_cmd,sub_mark_cmd,sup_mark_cmd);
primitive_tex("above",above_cmd,above_code,0);
primitive_tex("over",above_cmd,over_code,0);
primitive_tex("atop",above_cmd,atop_code,0);
primitive_luatex("Uskewed",above_cmd,skewed_code,0);
primitive_tex("abovewithdelims",above_cmd,delimited_code+above_code,0);
primitive_tex("overwithdelims",above_cmd,delimited_code+over_code,0);
primitive_tex("atopwithdelims",above_cmd,delimited_code+atop_code,0);
primitive_luatex("Uskewedwithdelims",above_cmd,delimited_code+skewed_code,0);
primitive_tex("left",left_right_cmd,left_noad_side,0);
primitive_tex("right",left_right_cmd,right_noad_side,0);
primitive_tex("middle",left_right_cmd,middle_noad_side,0);
primitive_tex("Uleft",left_right_cmd,10+left_noad_side,0);
primitive_tex("Uright",left_right_cmd,10+right_noad_side,0);
primitive_tex("Umiddle",left_right_cmd,10+middle_noad_side,0);
primitive_luatex("Uvextensible",left_right_cmd,10+no_noad_side,0);
cs_text(frozen_right)= maketexstring("right");
eqtb[frozen_right]= eqtb[cur_val];
primitive_tex("long",prefix_cmd,1,0);
primitive_tex("outer",prefix_cmd,2,0);
primitive_tex("global",prefix_cmd,4,0);
primitive_tex("def",def_cmd,0,0);
primitive_tex("gdef",def_cmd,1,0);
primitive_tex("edef",def_cmd,2,0);
primitive_tex("xdef",def_cmd,3,0);
primitive_tex("let",let_cmd,normal,0);
primitive_tex("futurelet",let_cmd,normal+1,0);
primitive_luatex("letcharcode",let_cmd,normal+2,0);
primitive_tex("chardef",shorthand_def_cmd,char_def_code,0);
primitive_tex("mathchardef",shorthand_def_cmd,math_char_def_code,0);
primitive_luatex("Umathchardef",shorthand_def_cmd,xmath_char_def_code,0);
primitive_luatex("Umathcharnumdef",shorthand_def_cmd,umath_char_def_code,0);
primitive_tex("countdef",shorthand_def_cmd,count_def_code,0);
primitive_luatex("attributedef",shorthand_def_cmd,attribute_def_code,0);
primitive_tex("dimendef",shorthand_def_cmd,dimen_def_code,0);
primitive_tex("skipdef",shorthand_def_cmd,skip_def_code,0);
primitive_tex("muskipdef",shorthand_def_cmd,mu_skip_def_code,0);
primitive_tex("toksdef",shorthand_def_cmd,toks_def_code,0);
primitive_tex("catcode",def_char_code_cmd,cat_code_base,cat_code_base);
primitive_tex("mathcode",def_char_code_cmd,math_code_base,cat_code_base);
primitive_tex("lccode",def_char_code_cmd,lc_code_base,cat_code_base);
primitive_tex("uccode",def_char_code_cmd,uc_code_base,cat_code_base);
primitive_tex("sfcode",def_char_code_cmd,sf_code_base,cat_code_base);
primitive_tex("delcode",def_del_code_cmd,del_code_base,del_code_base);
primitive_tex("textfont",def_family_cmd,text_size,0);
primitive_tex("scriptfont",def_family_cmd,script_size,0);
primitive_tex("scriptscriptfont",def_family_cmd,script_script_size,0);
primitive_luatex("Umathquad",set_math_param_cmd,math_param_quad,0);
primitive_luatex("Umathaxis",set_math_param_cmd,math_param_axis,0);
/*:3*/
#line 243 "./luatexdir/tex/commands.w"
;
/*4:*/
#line 529 "./luatexdir/tex/commands.w"
primitive_luatex("Umathoperatorsize",set_math_param_cmd,math_param_operator_size,0);
primitive_luatex("Umathoverbarkern",set_math_param_cmd,math_param_overbar_kern,0);
primitive_luatex("Umathoverbarrule",set_math_param_cmd,math_param_overbar_rule,0);
primitive_luatex("Umathoverbarvgap",set_math_param_cmd,math_param_overbar_vgap,0);
primitive_luatex("Umathunderbarkern",set_math_param_cmd,math_param_underbar_kern,0);
primitive_luatex("Umathunderbarrule",set_math_param_cmd,math_param_underbar_rule,0);
primitive_luatex("Umathunderbarvgap",set_math_param_cmd,math_param_underbar_vgap,0);
primitive_luatex("Umathradicalkern",set_math_param_cmd,math_param_radical_kern,0);
primitive_luatex("Umathradicalrule",set_math_param_cmd,math_param_radical_rule,0);
primitive_luatex("Umathradicalvgap",set_math_param_cmd,math_param_radical_vgap,0);
primitive_luatex("Umathradicaldegreebefore",set_math_param_cmd,math_param_radical_degree_before,0);
primitive_luatex("Umathradicaldegreeafter",set_math_param_cmd,math_param_radical_degree_after,0);
primitive_luatex("Umathradicaldegreeraise",set_math_param_cmd,math_param_radical_degree_raise,0);
primitive_luatex("Umathstackvgap",set_math_param_cmd,math_param_stack_vgap,0);
primitive_luatex("Umathstacknumup",set_math_param_cmd,math_param_stack_num_up,0);
primitive_luatex("Umathstackdenomdown",set_math_param_cmd,math_param_stack_denom_down,0);
primitive_luatex("Umathfractionrule",set_math_param_cmd,math_param_fraction_rule,0);
primitive_luatex("Umathfractionnumvgap",set_math_param_cmd,math_param_fraction_num_vgap,0);
primitive_luatex("Umathfractionnumup",set_math_param_cmd,math_param_fraction_num_up,0);
primitive_luatex("Umathfractiondenomvgap",set_math_param_cmd,math_param_fraction_denom_vgap,0);
primitive_luatex("Umathfractiondenomdown",set_math_param_cmd,math_param_fraction_denom_down,0);
primitive_luatex("Umathfractiondelsize",set_math_param_cmd,math_param_fraction_del_size,0);
primitive_luatex("Umathskewedfractionvgap",set_math_param_cmd,math_param_skewed_fraction_vgap,0);
primitive_luatex("Umathskewedfractionhgap",set_math_param_cmd,math_param_skewed_fraction_hgap,0);
primitive_luatex("Umathlimitabovevgap",set_math_param_cmd,math_param_limit_above_vgap,0);
primitive_luatex("Umathlimitabovebgap",set_math_param_cmd,math_param_limit_above_bgap,0);
primitive_luatex("Umathlimitabovekern",set_math_param_cmd,math_param_limit_above_kern,0);
primitive_luatex("Umathlimitbelowvgap",set_math_param_cmd,math_param_limit_below_vgap,0);
primitive_luatex("Umathlimitbelowbgap",set_math_param_cmd,math_param_limit_below_bgap,0);
primitive_luatex("Umathlimitbelowkern",set_math_param_cmd,math_param_limit_below_kern,0);
primitive_luatex("Umathunderdelimitervgap",set_math_param_cmd,math_param_under_delimiter_vgap,0);
primitive_luatex("Umathunderdelimiterbgap",set_math_param_cmd,math_param_under_delimiter_bgap,0);
primitive_luatex("Umathoverdelimitervgap",set_math_param_cmd,math_param_over_delimiter_vgap,0);
primitive_luatex("Umathoverdelimiterbgap",set_math_param_cmd,math_param_over_delimiter_bgap,0);
primitive_luatex("Umathsubshiftdrop",set_math_param_cmd,math_param_sub_shift_drop,0);
primitive_luatex("Umathsupshiftdrop",set_math_param_cmd,math_param_sup_shift_drop,0);
primitive_luatex("Umathsubshiftdown",set_math_param_cmd,math_param_sub_shift_down,0);
primitive_luatex("Umathsubsupshiftdown",set_math_param_cmd,math_param_sub_sup_shift_down,0);
primitive_luatex("Umathsubtopmax",set_math_param_cmd,math_param_sub_top_max,0);
primitive_luatex("Umathsupshiftup",set_math_param_cmd,math_param_sup_shift_up,0);
primitive_luatex("Umathsupbottommin",set_math_param_cmd,math_param_sup_bottom_min,0);
primitive_luatex("Umathsupsubbottommax",set_math_param_cmd,math_param_sup_sub_bottom_max,0);
primitive_luatex("Umathsubsupvgap",set_math_param_cmd,math_param_subsup_vgap,0);
primitive_luatex("Umathspaceafterscript",set_math_param_cmd,math_param_space_after_script,0);
primitive_luatex("Umathconnectoroverlapmin",set_math_param_cmd,math_param_connector_overlap_min,0);
primitive_luatex("Umathordordspacing",set_math_param_cmd,math_param_ord_ord_spacing,0);
primitive_luatex("Umathordopspacing",set_math_param_cmd,math_param_ord_op_spacing,0);
primitive_luatex("Umathordbinspacing",set_math_param_cmd,math_param_ord_bin_spacing,0);
primitive_luatex("Umathordrelspacing",set_math_param_cmd,math_param_ord_rel_spacing,0);
primitive_luatex("Umathordopenspacing",set_math_param_cmd,math_param_ord_open_spacing,0);
primitive_luatex("Umathordclosespacing",set_math_param_cmd,math_param_ord_close_spacing,0);
primitive_luatex("Umathordpunctspacing",set_math_param_cmd,math_param_ord_punct_spacing,0);
primitive_luatex("Umathordinnerspacing",set_math_param_cmd,math_param_ord_inner_spacing,0);
primitive_luatex("Umathopordspacing",set_math_param_cmd,math_param_op_ord_spacing,0);
primitive_luatex("Umathopopspacing",set_math_param_cmd,math_param_op_op_spacing,0);
primitive_luatex("Umathopbinspacing",set_math_param_cmd,math_param_op_bin_spacing,0);
primitive_luatex("Umathoprelspacing",set_math_param_cmd,math_param_op_rel_spacing,0);
primitive_luatex("Umathopopenspacing",set_math_param_cmd,math_param_op_open_spacing,0);
primitive_luatex("Umathopclosespacing",set_math_param_cmd,math_param_op_close_spacing,0);
primitive_luatex("Umathoppunctspacing",set_math_param_cmd,math_param_op_punct_spacing,0);
primitive_luatex("Umathopinnerspacing",set_math_param_cmd,math_param_op_inner_spacing,0);
primitive_luatex("Umathbinordspacing",set_math_param_cmd,math_param_bin_ord_spacing,0);
primitive_luatex("Umathbinopspacing",set_math_param_cmd,math_param_bin_op_spacing,0);
primitive_luatex("Umathbinbinspacing",set_math_param_cmd,math_param_bin_bin_spacing,0);
primitive_luatex("Umathbinrelspacing",set_math_param_cmd,math_param_bin_rel_spacing,0);
primitive_luatex("Umathbinopenspacing",set_math_param_cmd,math_param_bin_open_spacing,0);
primitive_luatex("Umathbinclosespacing",set_math_param_cmd,math_param_bin_close_spacing,0);
primitive_luatex("Umathbinpunctspacing",set_math_param_cmd,math_param_bin_punct_spacing,0);
primitive_luatex("Umathbininnerspacing",set_math_param_cmd,math_param_bin_inner_spacing,0);
primitive_luatex("Umathrelordspacing",set_math_param_cmd,math_param_rel_ord_spacing,0);
primitive_luatex("Umathrelopspacing",set_math_param_cmd,math_param_rel_op_spacing,0);
primitive_luatex("Umathrelbinspacing",set_math_param_cmd,math_param_rel_bin_spacing,0);
primitive_luatex("Umathrelrelspacing",set_math_param_cmd,math_param_rel_rel_spacing,0);
primitive_luatex("Umathrelopenspacing",set_math_param_cmd,math_param_rel_open_spacing,0);
primitive_luatex("Umathrelclosespacing",set_math_param_cmd,math_param_rel_close_spacing,0);
primitive_luatex("Umathrelpunctspacing",set_math_param_cmd,math_param_rel_punct_spacing,0);
primitive_luatex("Umathrelinnerspacing",set_math_param_cmd,math_param_rel_inner_spacing,0);
primitive_luatex("Umathopenordspacing",set_math_param_cmd,math_param_open_ord_spacing,0);
primitive_luatex("Umathopenopspacing",set_math_param_cmd,math_param_open_op_spacing,0);
primitive_luatex("Umathopenbinspacing",set_math_param_cmd,math_param_open_bin_spacing,0);
primitive_luatex("Umathopenrelspacing",set_math_param_cmd,math_param_open_rel_spacing,0);
primitive_luatex("Umathopenopenspacing",set_math_param_cmd,math_param_open_open_spacing,0);
primitive_luatex("Umathopenclosespacing",set_math_param_cmd,math_param_open_close_spacing,0);
primitive_luatex("Umathopenpunctspacing",set_math_param_cmd,math_param_open_punct_spacing,0);
primitive_luatex("Umathopeninnerspacing",set_math_param_cmd,math_param_open_inner_spacing,0);
primitive_luatex("Umathcloseordspacing",set_math_param_cmd,math_param_close_ord_spacing,0);
primitive_luatex("Umathcloseopspacing",set_math_param_cmd,math_param_close_op_spacing,0);
primitive_luatex("Umathclosebinspacing",set_math_param_cmd,math_param_close_bin_spacing,0);
primitive_luatex("Umathcloserelspacing",set_math_param_cmd,math_param_close_rel_spacing,0);
primitive_luatex("Umathcloseopenspacing",set_math_param_cmd,math_param_close_open_spacing,0);
primitive_luatex("Umathcloseclosespacing",set_math_param_cmd,math_param_close_close_spacing,0);
primitive_luatex("Umathclosepunctspacing",set_math_param_cmd,math_param_close_punct_spacing,0);
primitive_luatex("Umathcloseinnerspacing",set_math_param_cmd,math_param_close_inner_spacing,0);
primitive_luatex("Umathpunctordspacing",set_math_param_cmd,math_param_punct_ord_spacing,0);
primitive_luatex("Umathpunctopspacing",set_math_param_cmd,math_param_punct_op_spacing,0);
primitive_luatex("Umathpunctbinspacing",set_math_param_cmd,math_param_punct_bin_spacing,0);
primitive_luatex("Umathpunctrelspacing",set_math_param_cmd,math_param_punct_rel_spacing,0);
primitive_luatex("Umathpunctopenspacing",set_math_param_cmd,math_param_punct_open_spacing,0);
primitive_luatex("Umathpunctclosespacing",set_math_param_cmd,math_param_punct_close_spacing,0);
primitive_luatex("Umathpunctpunctspacing",set_math_param_cmd,math_param_punct_punct_spacing,0);
primitive_luatex("Umathpunctinnerspacing",set_math_param_cmd,math_param_punct_inner_spacing,0);
primitive_luatex("Umathinnerordspacing",set_math_param_cmd,math_param_inner_ord_spacing,0);
primitive_luatex("Umathinneropspacing",set_math_param_cmd,math_param_inner_op_spacing,0);
primitive_luatex("Umathinnerbinspacing",set_math_param_cmd,math_param_inner_bin_spacing,0);
primitive_luatex("Umathinnerrelspacing",set_math_param_cmd,math_param_inner_rel_spacing,0);
primitive_luatex("Umathinneropenspacing",set_math_param_cmd,math_param_inner_open_spacing,0);
primitive_luatex("Umathinnerclosespacing",set_math_param_cmd,math_param_inner_close_spacing,0);
primitive_luatex("Umathinnerpunctspacing",set_math_param_cmd,math_param_inner_punct_spacing,0);
primitive_luatex("Umathinnerinnerspacing",set_math_param_cmd,math_param_inner_inner_spacing,0);
/*:4*/
#line 244 "./luatexdir/tex/commands.w"
;
/*5:*/
#line 642 "./luatexdir/tex/commands.w"
primitive_luatex("Umathcode",extdef_math_code_cmd,math_code_base,math_code_base);
primitive_luatex("Udelcode",extdef_del_code_cmd,del_code_base,del_code_base);
primitive_luatex("Umathcodenum",extdef_math_code_cmd,math_code_base+1,math_code_base);
primitive_luatex("Udelcodenum",extdef_del_code_cmd,del_code_base+1,del_code_base);
primitive_tex("hyphenation",hyph_data_cmd,0,0);
primitive_tex("patterns",hyph_data_cmd,1,0);
primitive_luatex("prehyphenchar",hyph_data_cmd,2,0);
primitive_luatex("posthyphenchar",hyph_data_cmd,3,0);
primitive_luatex("preexhyphenchar",hyph_data_cmd,4,0);
primitive_luatex("postexhyphenchar",hyph_data_cmd,5,0);
primitive_luatex("hyphenationmin",hyph_data_cmd,6,0);
primitive_luatex("hjcode",hyph_data_cmd,7,0);
primitive_tex("hyphenchar",assign_font_int_cmd,0,0);
primitive_tex("skewchar",assign_font_int_cmd,1,0);
primitive_luatex("lpcode",assign_font_int_cmd,lp_code_base,0);
primitive_luatex("rpcode",assign_font_int_cmd,rp_code_base,0);
primitive_luatex("efcode",assign_font_int_cmd,ef_code_base,0);
primitive_luatex("tagcode",assign_font_int_cmd,tag_code,0);
primitive_luatex("ignoreligaturesinfont",assign_font_int_cmd,no_lig_code,0);
primitive_tex("batchmode",set_interaction_cmd,batch_mode,0);
primitive_tex("nonstopmode",set_interaction_cmd,nonstop_mode,0);
primitive_tex("scrollmode",set_interaction_cmd,scroll_mode,0);
primitive_tex("errorstopmode",set_interaction_cmd,error_stop_mode,0);
primitive_tex("openin",in_stream_cmd,1,0);
primitive_tex("closein",in_stream_cmd,0,0);
primitive_tex("message",message_cmd,0,0);
primitive_tex("errmessage",message_cmd,1,0);
primitive_tex("lowercase",case_shift_cmd,lc_code_base,lc_code_base);
primitive_tex("uppercase",case_shift_cmd,uc_code_base,lc_code_base);
primitive_tex("show",xray_cmd,show_code,0);
primitive_tex("showbox",xray_cmd,show_box_code,0);
primitive_tex("showthe",xray_cmd,show_the_code,0);
primitive_tex("showlists",xray_cmd,show_lists,0);
primitive_tex("openout",extension_cmd,open_code,0);
primitive_tex("write",extension_cmd,write_code,0);
write_loc= cur_val;
primitive_tex("closeout",extension_cmd,close_code,0);
primitive_tex("special",extension_cmd,special_code,0);
cs_text(frozen_special)= maketexstring("special");
eqtb[frozen_special]= eqtb[cur_val];
primitive_tex("immediate",extension_cmd,immediate_code,0);
primitive_luatex("localinterlinepenalty",assign_int_cmd,int_base+local_inter_line_penalty_code,int_base);
primitive_luatex("localbrokenpenalty",assign_int_cmd,int_base+local_broken_penalty_code,int_base);
primitive_luatex("pagedir",assign_dir_cmd,int_base+page_direction_code,dir_base);
primitive_luatex("bodydir",assign_dir_cmd,int_base+body_direction_code,dir_base);
primitive_luatex("pardir",assign_dir_cmd,int_base+par_direction_code,dir_base);
primitive_luatex("textdir",assign_dir_cmd,int_base+text_direction_code,dir_base);
primitive_luatex("mathdir",assign_dir_cmd,int_base+math_direction_code,dir_base);
primitive_luatex("linedir",assign_dir_cmd,int_base+line_direction_code,dir_base);
primitive_luatex("pageleftoffset",assign_dimen_cmd,dimen_base+page_left_offset_code,dimen_base);
primitive_luatex("pagetopoffset",assign_dimen_cmd,dimen_base+page_top_offset_code,dimen_base);
primitive_luatex("pagerightoffset",assign_dimen_cmd,dimen_base+page_right_offset_code,dimen_base);
primitive_luatex("pagebottomoffset",assign_dimen_cmd,dimen_base+page_bottom_offset_code,dimen_base);
primitive_luatex("saveboxresource",extension_cmd,save_box_resource_code,0);
primitive_luatex("useboxresource",extension_cmd,use_box_resource_code,0);
primitive_luatex("saveimageresource",extension_cmd,save_image_resource_code,0);
primitive_luatex("useimageresource",extension_cmd,use_image_resource_code,0);
primitive_luatex("savepos",normal_cmd,save_pos_code,0);
primitive_luatex("savecatcodetable",normal_cmd,save_cat_code_table_code,0);
primitive_luatex("initcatcodetable",normal_cmd,init_cat_code_table_code,0);
primitive_luatex("setrandomseed",normal_cmd,set_random_seed_code,0);
primitive_luatex("latelua",normal_cmd,late_lua_code,0);
primitive_luatex("insertht",convert_cmd,insert_ht_code,0);
primitive_luatex("dviextension",extension_cmd,dvi_extension_code,0);
primitive_luatex("dvifeedback",feedback_cmd,dvi_feedback_code,0);
primitive_luatex("dvivariable",variable_cmd,dvi_variable_code,0);
primitive_luatex("pdfextension",extension_cmd,pdf_extension_code,0);
primitive_luatex("pdffeedback",feedback_cmd,pdf_feedback_code,0);
primitive_luatex("pdfvariable",variable_cmd,pdf_variable_code,0);
primitive_luatex("mathoption",option_cmd,math_option_code,0);
primitive_no("nolocalwhatsits",assign_int_cmd,int_base+no_local_whatsits_code,int_base);
primitive_no("nolocaldirs",assign_int_cmd,int_base+no_local_dirs_code,int_base);
/*:5*/
#line 245 "./luatexdir/tex/commands.w"
;
}
integer *packet_local_fonts(internal_font_number f, integer *num) {
int c, cmd, cur_packet_byte, lf, k,l, i;
integer localfonts[256] = {0};
integer *lfs;
charinfo *co;
real_eight_bits *vf_packets;
k = 0;
for (c = font_bc(f);c <= font_ec(f);c++) {
if (char_exists(f,c)) {
co = get_charinfo(f,c);
vf_packets = get_charinfo_packets(co);
if (vf_packets == NULL)
continue;
cur_packet_byte = 0;
while ((cmd = vf_packets[cur_packet_byte]) != packet_end_code) {
cur_packet_byte++;
switch (cmd) {
case packet_font_code:
packet_number(lf);
for (l=0;l<k;l++) {
if (localfonts[l]==lf) {
break;
}
}
if (l==k) {
localfonts[k++]=lf;
}
break;
case packet_push_code:
case packet_pop_code:
case packet_nop_code:
break;
case packet_char_code:
case packet_right_code:
case packet_down_code:
case packet_node_code:
cur_packet_byte+=4;
break;
case packet_rule_code:
cur_packet_byte+=8;
break;
case packet_special_code:
packet_number(i);
while (i-- > 0)
(void)do_packet_byte();
break;
default:
pdf_error(maketexstring("vf"), maketexstring("invalid DVI command"));
}
}
}
}
*num = k;
if (k>0) {
lfs = xmalloc (k*sizeof(integer));
memcpy(lfs,localfonts,k*sizeof(integer));
return lfs;
}
return NULL;
}
void
do_vf_packet (internal_font_number vf_f, integer c) {
internal_font_number lf;
charinfo *co;
scaled save_cur_h, save_cur_v;
real_eight_bits *vf_packets;
integer cur_packet_byte;
integer cmd, fs_f;
scaled i;
unsigned k;
str_number s;
packet_cur_s++;
if (packet_cur_s >= packet_max_recursion)
overflow_string("max level recursion of virtual fonts", packet_max_recursion);
save_cur_v = cur_v;
save_cur_h = cur_h;
lf = 0; /* for -Wall */
co = get_charinfo(vf_f,c);
vf_packets = get_charinfo_packets(co);
if (vf_packets == NULL) {
packet_cur_s--;
return ;
}
cur_packet_byte = 0;
fs_f = font_size(vf_f);
while ((cmd = vf_packets[cur_packet_byte]) != packet_end_code) {
cur_packet_byte++;
/*
if (cmd>packet_end_code) {
fprintf(stdout, "do_vf_packet(%i,%i) command code = illegal \n", vf_f,c);
} else {
fprintf(stdout, "do_vf_packet(%i,%i) command code = %s\n",vf_f, c, packet_command_names[cmd]);
}
*/
switch (cmd) {
case packet_font_code:
packet_number(lf);
break;
case packet_push_code:
packet_stack[packet_stack_ptr].stack_h = cur_h;
packet_stack[packet_stack_ptr].stack_v = cur_v;
packet_stack_ptr++;
break;
case packet_pop_code:
packet_stack_ptr--;
cur_h = packet_stack[packet_stack_ptr].stack_h;
cur_v = packet_stack[packet_stack_ptr].stack_v;
break;
case packet_char_code:
packet_number(k);
if (!char_exists(lf,k)) {
char_warning(lf, k);
} else {
output_one_char(lf, k);
}
cur_h = cur_h + char_width(lf,k);
break;
case packet_rule_code:
packet_scaled(rule_ht,fs_f);
packet_scaled(rule_wd,fs_f);
if ((rule_wd > 0) && (rule_ht > 0)) {
pdf_set_rule(cur_h, cur_v, rule_wd, rule_ht);
cur_h = cur_h + rule_wd;
}
break;
case packet_right_code:
packet_scaled(i,fs_f);
cur_h = cur_h + i;
break;
case packet_down_code:
packet_scaled(i,fs_f);
cur_v = cur_v + i;
break;
case packet_special_code:
packet_number(k);
string_room(k);
while (k > 0) {
k--;
append_pool_char(do_packet_byte());
}
s = make_string();
literal(s, scan_special, false);
flush_str(s);
break;
case packet_node_code:
packet_number(k);
temp_ptr = k;
pdf_hlist_out();
break;
case packet_nop_code:
break;
default:
pdf_error(maketexstring("vf"), maketexstring("invalid DVI command"));
}
};
cur_h = save_cur_h;
cur_v = save_cur_v;
packet_cur_s--;
}