-#ifdef _WINDOWS
- #define NOCOMM
- #define NOSOUND
- #define NODRIVERS
- #define STRICT
- #pragma warning(disable:4115) // kill rpcasync.h complaint
- #include <windows.h>
- #define MYLIBAPI __declspec(dllexport)
-#endif
+/* Copyright 2014 Clerk Ma
-#include "texwin.h"
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
-#pragma warning(disable:4131) // old style declarator
-#pragma warning(disable:4135) // conversion between different integral types
-#pragma warning(disable:4127) // conditional expression is constant
+ This program is distributed in the hope that it will be useful, but
+ WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ General Public License for more details.
-#include <setjmp.h>
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301 USA. */
#define EXTERN extern
#include "texd.h"
-#pragma warning(disable:4244) /* 96/Jan/10 */
-
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
-/* sec 0944 */
-void build_page (void)
-{/* 10 30 31 22 80 90 */
- halfword p;
- halfword q, r;
- integer b, c;
- integer pi;
+/* sec 0994 */
+void build_page (void)
+{
+ halfword p;
+ halfword q, r;
+ integer b, c;
+ integer pi;
/* unsigned char n; */
unsigned int n; /* 95/Jan/7 */
- scaled delta, h, w;
-
-/* begin if (link(contrib_head)=null)or output_active then return; l.19351 */
- if((mem[mem_top - 1].hh.v.RH == 0)|| output_active)
- return;
- do {
- lab22: p = mem[mem_top - 1].hh.v.RH;
-/* if(last_glue != 262143L) */
- if(last_glue != empty_flag)
- delete_glue_ref(last_glue);
- last_penalty = 0;
- last_kern = 0;
- if(mem[p].hh.b0 == 10)
- {
- last_glue = mem[p + 1].hh.v.LH;
- incr(mem[last_glue].hh.v.RH);
- }
- else {
-
-/* last_glue = 262143L; */
- last_glue = empty_flag;
- if(mem[p].hh.b0 == 12)
- last_penalty = mem[p + 1].cint;
- else if(mem[p].hh.b0 == 11)
- last_kern = mem[p + 1].cint;
- }
- switch(mem[p].hh.b0)
+ scaled delta, h, w;
+
+ if ((link(contrib_head) == 0) || output_active)
+ return;
+
+ do
{
- case 0 :
- case 1 :
- case 2 :
- if(page_contents < 2)
- {
- if(page_contents == 0)
- freeze_page_specs(2);
- else
- page_contents = 2;
- q = new_skip_param(9);
- if(mem[temp_ptr + 1].cint > mem[p + 3].cint)
- mem[temp_ptr + 1].cint = mem[temp_ptr + 1].cint - mem[p + 3].cint;
- else
- mem[temp_ptr + 1].cint = 0;
- mem[q].hh.v.RH = p;
- mem[mem_top - 1].hh.v.RH = q;
- goto lab22;
- }
- else {
- page_so_far[1]= page_so_far[1]+ page_so_far[7]+ mem[p + 3].cint;
- page_so_far[7]= mem[p + 2].cint;
- goto lab80;
- }
- break;
- case 8 :
- goto lab80;
- break;
- case 10 :
- if(page_contents < 2)
- goto lab31;
- else if((mem[page_tail].hh.b0 < 9))
- pi = 0;
- else
- goto lab90;
- break;
- case 11 :
- if(page_contents < 2)
- goto lab31;
- else if(mem[p].hh.v.RH == 0)
- return;
- else if(mem[mem[p].hh.v.RH].hh.b0 == 10)
- pi = 0;
- else
- goto lab90;
- break;
- case 12 :
- if(page_contents < 2)
- goto lab31;
+lab22:
+ p = link(contrib_head);
+
+ if (last_glue != max_halfword)
+ delete_glue_ref(last_glue);
+
+ last_penalty = 0;
+ last_kern = 0;
+
+ if (type(p) == glue_node)
+ {
+ last_glue = glue_ptr(p);
+ add_glue_ref(last_glue);
+ }
else
- pi = mem[p + 1].cint;
- break;
- case 4 :
- goto lab80;
- break;
- case 3 :
{
- if(page_contents == 0)
- freeze_page_specs(1);
- n = mem[p].hh.b1;
- r = mem_top;
- while(n >= mem[mem[r].hh.v.RH].hh.b1)
- r = mem[r].hh.v.RH;
- n = n;
- if(mem[r].hh.b1 != n)
- {
- q = get_node(4);
- mem[q].hh.v.RH = mem[r].hh.v.RH;
- mem[r].hh.v.RH = q;
- r = q;
- mem[r].hh.b1 = n;
- mem[r].hh.b0 = 0;
- ensure_vbox(n);
- if(eqtb[(hash_size + 1578) + n].hh.v.RH == 0)
- mem[r + 3].cint = 0;
- else
- mem[r + 3].cint = mem[eqtb[(hash_size + 1578) + n].hh.v.RH + 3].cint + mem[eqtb[(hash_size + 1578) + n].hh.v.RH + 2].cint;
- mem[r + 2].hh.v.LH = 0;
- q = eqtb[(hash_size + 800) + n].hh.v.RH;
- if(eqtb[(hash_size + 3218) + n].cint == 1000)
- h = mem[r + 3].cint;
+ last_glue = max_halfword;
+
+ if (type(p) == penalty_node)
+ last_penalty = penalty(p);
+ else if (type(p) == kern_node)
+ last_kern = width(p);
+ }
+
+ switch (type(p))
+ {
+ case hlist_node:
+ case vlist_node:
+ case rule_node:
+ if (page_contents < box_there)
+ {
+ if (page_contents == 0)
+ freeze_page_specs(box_there);
+ else
+ page_contents = box_there;
+
+ q = new_skip_param(top_skip_code);
+
+ if (width(temp_ptr) > height(p))
+ width(temp_ptr) = width(temp_ptr) - height(p);
+ else
+ width(temp_ptr) = 0;
+
+ link(q) = p;
+ link(contrib_head) = q;
+ goto lab22;
+ }
else
- h = x_over_n(mem[r + 3].cint, 1000)* eqtb[(hash_size + 3218) + n].cint;
- page_so_far[0]= page_so_far[0]- h - mem[q + 1].cint;
- page_so_far[2 + mem[q].hh.b0]= page_so_far[2 + mem[q].hh.b0]+ mem[q + 2].cint;
- page_so_far[6]= page_so_far[6]+ mem[q + 3].cint;
- if((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0))
{
- print_err("Infinite glue shrinkage inserted from");
- print_esc("skip");
- print_int(n);
- help3("The correction glue for page breaking with insertions",
- "must have finite shrinkability. But you may proceed,",
- "since the offensive shrinkability has been made finite.");
- error ();
- }
- }
- if(mem[r].hh.b0 == 1)
- insert_penalties = insert_penalties + mem[p + 1].cint;
- else {
- mem[r + 2].hh.v.RH = p;
- delta = page_so_far[0]- page_so_far[1]- page_so_far[7] + page_so_far[6];
- if(eqtb[(hash_size + 3218) + n].cint == 1000)
- h = mem[p + 3].cint;
+ page_total = page_total + page_depth + height(p);
+ page_depth = depth(p);
+ goto lab80;
+ }
+ break;
+
+ case whatsit_node:
+ goto lab80;
+ break;
+
+ case glue_node:
+ if (page_contents < box_there)
+ goto lab31;
+ else if (precedes_break(page_tail))
+ pi = 0;
else
- h = x_over_n(mem[p + 3].cint, 1000)* eqtb[(hash_size + 3218) + n].cint;
- if(((h <= 0)||(h <= delta)) &&(mem[p + 3].cint + mem[r + 3].cint <= eqtb[(hash_size + 3751) + n].cint))
+ goto lab90;
+ break;
+
+ case kern_node:
+ if (page_contents < box_there)
+ goto lab31;
+ else if (link(p) == 0)
+ return;
+ else if (type(link(p)) == glue_node)
+ pi = 0;
+ else
+ goto lab90;
+ break;
+
+ case penalty_node:
+ if (page_contents < box_there)
+ goto lab31;
+ else
+ pi = penalty(p);
+ break;
+
+ case mark_node:
+ goto lab80;
+ break;
+
+ case ins_node:
{
- page_so_far[0]= page_so_far[0]- h;
- mem[r + 3].cint = mem[r + 3].cint + mem[p + 3].cint;
- }
- else {
- if(eqtb[(hash_size + 3218) + n].cint <= 0)
- w = 1073741823L; /* 2^30 - 1 */
- else {
- w = page_so_far[0]- page_so_far[1]- page_so_far[7];
- if(eqtb[(hash_size + 3218) + n].cint != 1000)
- w = x_over_n(w, eqtb[(hash_size + 3218) + n].cint)* 1000;
- }
- if(w > eqtb[(hash_size + 3751) + n].cint - mem[r + 3].cint)
- w = eqtb[(hash_size + 3751) + n].cint - mem[r + 3].cint;
- q = vert_break(mem[p + 4].hh.v.LH, w, mem[p + 2].cint);
- mem[r + 3].cint = mem[r + 3].cint + best_height_plus_depth;
- ;
-#ifdef STAT
- if(eqtb[(hash_size + 3196)].cint > 0)
+ if (page_contents == 0)
+ freeze_page_specs(inserts_only);
+
+ n = subtype(p);
+ r = page_ins_head;
+
+ while (n >= subtype(link(r)))
+ r = link(r);
+
+ n = n;
+
+ if (subtype(r) != n)
{
- begin_diagnostic ();
- print_nl("% split"); /* */
- print_int(n);
- print_string(" to");
- print_scaled(w);
- print_char(44); /*, */
- print_scaled(best_height_plus_depth);
- print_string(" p=");
- if(q == 0) /* if q=null l.19614 */
- print_int(-10000);
- else if(mem[q].hh.b0 == 12)
- print_int(mem[q + 1].cint);
- else print_char(48); /* 0 */
- end_diagnostic(false);
- }
+ q = get_node(page_ins_node_size);
+ link(q) = link(r);
+ link(r) = q;
+ r = q;
+ subtype(r) = n;
+ type(r) = inserting;
+ ensure_vbox(n);
+
+ if (box(n) == 0)
+ height(r) = 0;
+ else
+ height(r) = height(box(n)) + depth(box(n));
+
+ best_ins_ptr(r) = 0;
+ q = skip(n);
+
+ if (count(n) == 1000)
+ h = height(r);
+ else
+ h = x_over_n(height(r), 1000) * count(n);
+
+ page_goal = page_goal - h - width(q);
+ page_so_far[2 + stretch_order(q)] = page_so_far[2 + stretch_order(q)] + stretch(q);
+ page_shrink = page_shrink + shrink(q);
+
+ if ((shrink_order(q) != normal) && (shrink(q) != 0))
+ {
+ print_err("Infinite glue shrinkage inserted from ");
+ print_esc("skip");
+ print_int(n);
+ help3("The correction glue for page breaking with insertions",
+ "must have finite shrinkability. But you may proceed,",
+ "since the offensive shrinkability has been made finite.");
+ error();
+ }
+ }
+
+ if (type(r) == split_up)
+ insert_penalties = insert_penalties + float_cost(p);
+ else
+ {
+ last_ins_ptr(r) = p;
+ delta = page_goal - page_total - page_depth + page_shrink;
+
+ if (count(n) == 1000)
+ h = height(p);
+ else
+ h = x_over_n(height(p), 1000) * count(n);
+
+ if (((h <= 0) || (h <= delta)) && (height(p) + height(r) <= dimen(n)))
+ {
+ page_goal = page_goal - h;
+ height(r) = height(r) + height(p);
+ }
+ else
+ {
+ if (count(n) <= 0)
+ w = max_dimen; /* 2^30 - 1 */
+ else
+ {
+ w = page_goal - page_total - page_depth;
+
+ if (count(n) != 1000)
+ w = x_over_n(w, count(n)) * 1000;
+ }
+
+ if (w > dimen(n) - height(r))
+ w = dimen(n) - height(r);
+
+ q = vert_break(ins_ptr(p), w, depth(p));
+ height(r) = height(r) + best_height_plus_depth;
+
+#ifdef STAT
+ if (tracing_pages > 0)
+ {
+ begin_diagnostic();
+ print_nl("% split");
+ print_int(n);
+ print_string(" to");
+ print_scaled(w);
+ print_char(',');
+ print_scaled(best_height_plus_depth);
+ print_string(" p=");
+
+ if (q == 0)
+ print_int(eject_penalty);
+ else if (type(q) == penalty_node)
+ print_int(penalty(q));
+ else
+ print_char('0');
+
+ end_diagnostic(false);
+ }
#endif /* STAT */
- if(eqtb[(hash_size + 3218) + n].cint != 1000)
- best_height_plus_depth = x_over_n(best_height_plus_depth, 1000) * eqtb[(hash_size + 3218) + n].cint;
- page_so_far[0]= page_so_far[0]- best_height_plus_depth;
- mem[r].hh.b0 = 1;
- mem[r + 1].hh.v.RH = q;
- mem[r + 1].hh.v.LH = p;
- if(q == 0)
- insert_penalties = insert_penalties - 10000;
- else if(mem[q].hh.b0 == 12)
- insert_penalties = insert_penalties + mem[q + 1].cint;
- }
- }
- goto lab80;
- }
- break;
- default:
- {
- confusion(987); /* page */
- return; // abort_flag set
+ if (count(n) != 1000)
+ best_height_plus_depth = x_over_n(best_height_plus_depth, 1000) * count(n);
+
+ page_goal = page_goal - best_height_plus_depth;
+ type(r) = split_up;
+ broken_ptr(r) = q;
+ broken_ins(r) = p;
+
+ if (q == 0)
+ insert_penalties = insert_penalties + (eject_penalty);
+ else if (type(q) == penalty_node)
+ insert_penalties = insert_penalties + penalty(q);
+ }
+ }
+ goto lab80;
+ }
+ break;
+
+ default:
+ {
+ confusion("page");
+ return; // abort_flag set
+ }
+ break;
}
- break;
- }
- if(pi < 10000)/* pi may be used ... */
- {
- if(page_so_far[1]< page_so_far[0])
- if((page_so_far[3]!= 0)||(page_so_far[4]!= 0)||(page_so_far[5]!= 0))
- b = 0;
+
+ if (pi < inf_penalty)
+ {
+ if (page_total < page_goal)
+ if ((page_so_far[3] != 0) || (page_so_far[4] != 0) || (page_so_far[5] != 0))
+ b = 0;
+ else
+ b = badness(page_goal - page_total, page_so_far[2]);
+ else if (page_total - page_goal > page_shrink)
+ b = awful_bad; /* 2^30 - 1 */
else
- b = badness(page_so_far[0]- page_so_far[1], page_so_far[2]);
- else if(page_so_far[1]- page_so_far[0]> page_so_far[6])
- b = 1073741823L; /* 2^30 - 1 */
- else
- b = badness(page_so_far[1]- page_so_far[0], page_so_far[6]);
- if(b < 1073741823L) /* 2^30 - 1 */
- if(pi <= -10000)
- c = pi;
- else if(b < 10000)
- c = b + pi + insert_penalties;
+ b = badness(page_total - page_goal, page_shrink);
+
+ if (b < awful_bad) /* 2^30 - 1 */
+ if (pi <= eject_penalty)
+ c = pi;
+ else if (b < inf_bad)
+ c = b + pi + insert_penalties;
+ else
+ c = deplorable;
else
- c = 100000L;
- else
- c = b;
- if (insert_penalties >= 10000)
- c = 1073741823L; /* 2^30 - 1 */
- ;
+ c = b;
+
+ if (insert_penalties >= 10000)
+ c = awful_bad; /* 2^30 - 1 */
+
#ifdef STAT
- if(eqtb[(hash_size + 3196)].cint > 0)
- {
- begin_diagnostic ();
- print_nl("%"); /* % */
- print_string(" t=");
- print_totals ();
- print_string(" g=");
- print_scaled(page_so_far[0]);
- print_string(" b=");
- if(b == 1073741823L) /* 2^30 - 1 */
- print_char(42); /* * */
- else
- print_int(b);
- print_string(" p=");
- print_int(pi);
- print_string(" c=");
- if(c == 1073741823L) /* 2^30 - 1 */
- print_char(42); /* * */
- else print_int(c);
- if(c <= least_page_cost)
- print_char(35); /* # */
- end_diagnostic(false);
- }
+ if (tracing_pages > 0)
+ {
+ begin_diagnostic();
+ print_nl("%");
+ print_string(" t=");
+ print_totals();
+ print_string(" g=");
+ print_scaled(page_goal);
+ print_string(" b=");
+
+ if (b == awful_bad) /* 2^30 - 1 */
+ print_char('*');
+ else
+ print_int(b);
+
+ print_string(" p=");
+ print_int(pi);
+ print_string(" c=");
+
+ if (c == awful_bad) /* 2^30 - 1 */
+ print_char('*');
+ else
+ print_int(c);
+
+ if (c <= least_page_cost)
+ print_char('#');
+
+ end_diagnostic(false);
+ }
#endif /* STAT */
- if(c <= least_page_cost)
- {
- best_page_break = p;
- best_size = page_so_far[0];
- least_page_cost = c;
- r = mem[mem_top].hh.v.RH;
- while(r != mem_top){
-
- mem[r + 2].hh.v.LH = mem[r + 2].hh.v.RH;
- r = mem[r].hh.v.RH;
- }
- }
- if((c == 1073741823L)||(pi <= -10000)) /* 2^30 - 1 */
+
+ if (c <= least_page_cost)
+ {
+ best_page_break = p;
+ best_size = page_goal;
+ least_page_cost = c;
+ r = link(page_ins_head);
+
+ while (r != page_ins_head)
+ {
+ best_ins_ptr(r) = last_ins_ptr(r);
+ r = link(r);
+ }
+ }
+
+ if ((c == awful_bad) || (pi <= eject_penalty)) /* 2^30 - 1 */
+ {
+ fire_up(p);
+
+ if (output_active)
+ return;
+
+ goto lab30;
+ }
+ }
+
+ if ((type(p) < glue_node) || (type(p) > kern_node))
+ goto lab80;
+lab90:
+ if (type(p) == kern_node)
+ q = p;
+ else
{
- fire_up(p);
- if(output_active)return;
- goto lab30;
- }
- }
- if((mem[p].hh.b0 < 10)||(mem[p].hh.b0 > 11))
- goto lab80;
- lab90: if(mem[p].hh.b0 == 11)
- q = p;
- else {
-
- q = mem[p + 1].hh.v.LH;
- page_so_far[2 + mem[q].hh.b0]= page_so_far[2 + mem[q].hh.b0]
- + mem[q + 2].cint;
- page_so_far[6]= page_so_far[6]+ mem[q + 3].cint;
- if((mem[q].hh.b1 != 0)&&(mem[q + 3].cint != 0))
+ q = glue_ptr(p);
+ page_so_far[2 + stretch_order(q)] = page_so_far[2 + stretch_order(q)] + stretch(q);
+ page_shrink = page_shrink + shrink(q);
+
+ if ((shrink_order(q) != normal) && (shrink(q) != 0))
+ {
+ print_err("Infinite glue shrinkage found on current page");
+ help4("The page about to be output contains some infinitely",
+ "shrinkable glue, e.g., `\\vss' or `\\vskip 0pt minus 1fil'.",
+ "Such glue doesn't belong there; but you can safely proceed,",
+ "since the offensive shrinkability has been made finite.");
+ error();
+ r = new_spec(q);
+ shrink_order(r) = normal;
+ delete_glue_ref(q);
+ glue_ptr(p) = r;
+ q = r;
+ }
+ }
+
+ page_total = page_total + page_depth + width(q);
+ page_depth = 0;
+lab80:
+ if (page_depth > page_max_depth)
{
- print_err("Infinite glue shrinkage found on current page");
- help4("The page about to be output contains some infinitely",
- "shrinkable glue, e.g., `\\vss' or `\\vskip 0pt minus 1fil'.",
- "Such glue doesn't belong there; but you can safely proceed,",
- "since the offensive shrinkability has been made finite.");
- error ();
- r = new_spec(q);
- mem[r].hh.b1 = 0;
- delete_glue_ref(q);
- mem[p + 1].hh.v.LH = r;
- q = r;
- }
- }
- page_so_far[1]= page_so_far[1]+ page_so_far[7]+ mem[q + 1].cint
- ;
- page_so_far[7]= 0;
- lab80: if(page_so_far[7]> page_max_depth)
- {
- page_so_far[1]= page_so_far[1]+ page_so_far[7]- page_max_depth;
- page_so_far[7]= page_max_depth;
- }
- mem[page_tail].hh.v.RH = p;
- page_tail = p;
- mem[mem_top - 1].hh.v.RH = mem[p].hh.v.RH;
- mem[p].hh.v.RH = 0;
- goto lab30;
- lab31: mem[mem_top - 1].hh.v.RH = mem[p].hh.v.RH;
- mem[p].hh.v.RH = 0;
- flush_node_list(p);
- lab30:;
- } while(!(mem[mem_top - 1].hh.v.RH == 0));
- if(nest_ptr == 0)
- tail = mem_top - 1;
- else nest[0].tail_field = mem_top - 1;
+ page_total = page_total + page_depth - page_max_depth;
+ page_depth = page_max_depth;
+ }
+
+ link(page_tail) = p;
+ page_tail = p;
+ link(contrib_head) = link(p);
+ link(p) = 0;
+ goto lab30;
+lab31:
+ link(contrib_head) = link(p);
+ link(p) = 0;
+ flush_node_list(p);
+lab30:;
+ }
+ while (!(link(contrib_head) == 0));
+
+ if (nest_ptr == 0)
+ tail = contrib_head;
+ else
+ nest[0].tail_field = contrib_head;
}
/* sec 1043 */
-void app_space (void)
-{
- halfword q;
- if((space_factor >= 2000) && (eqtb[(hash_size + 795)].hh.v.RH != 0))
- q = new_param_glue(13);
- else {
- if(eqtb[(hash_size + 794)].hh.v.RH != 0)
- main_p = eqtb[(hash_size + 794)].hh.v.RH;
- else {
- main_p = font_glue[eqtb[(hash_size + 1834)].hh.v.RH];
- if(main_p == 0)
+void app_space (void)
+{
+ halfword q;
+
+ if ((space_factor >= 2000) && (xspace_skip != zero_glue))
+ q = new_param_glue(xspace_skip_code);
+ else
+ {
+ if (space_skip != zero_glue)
+ main_p = space_skip;
+ else
+ {
+ main_p = font_glue[cur_font];
+
+ if (main_p == 0)
{
- main_p = new_spec(0);
- main_k = param_base[eqtb[(hash_size + 1834)].hh.v.RH]+ 2;
- mem[main_p + 1].cint = font_info[main_k].cint;
- mem[main_p + 2].cint = font_info[main_k + 1].cint;
- mem[main_p + 3].cint = font_info[main_k + 2].cint;
- font_glue[eqtb[(hash_size + 1834)].hh.v.RH]= main_p;
- }
- }
- main_p = new_spec(main_p);
- if(space_factor >= 2000)
- mem[main_p + 1].cint = mem[main_p + 1].cint + font_info[7 + param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint;
- mem[main_p + 2].cint = xn_over_d(mem[main_p + 2].cint, cur_list.aux_field.hh.v.LH, 1000);
- mem[main_p + 3].cint = xn_over_d(mem[main_p + 3].cint, 1000, space_factor);
- q = new_glue(main_p);
- mem[main_p].hh.v.RH = 0;
- }
- mem[tail].hh.v.RH = q;
- tail = q;
-}
-/* called from tex8.c only */
+ main_p = new_spec(zero_glue);
+ main_k = param_base[cur_font] + space_code;
+ width(main_p) = font_info[main_k].cint;
+ stretch(main_p) = font_info[main_k + 1].cint;
+ shrink(main_p) = font_info[main_k + 2].cint;
+ font_glue[cur_font] = main_p;
+ }
+ }
+
+ main_p = new_spec(main_p);
+
+ if (space_factor >= 2000)
+ width(main_p) = width(main_p) + extra_space(cur_font);
+
+ stretch(main_p) = xn_over_d(stretch(main_p), space_factor, 1000);
+ shrink(main_p) = xn_over_d(shrink(main_p), 1000, space_factor);
+ q = new_glue(main_p);
+ glue_ref_count(main_p) = 0;
+ }
+
+ link(tail) = q;
+ tail = q;
+}
/* sec 1047 */
-void insert_dollar_sign (void)
-{
- back_input ();
- cur_tok = 804;
- print_err("Proceed; I'll discard its present contents.");
+void insert_dollar_sign (void)
+{
+ back_input();
+ cur_tok = math_shift_token + '$';
+ print_err("Missing $ inserted");
help2("I've inserted a begin-math/end-math symbol since I think",
- "you left one out. Proceed, with fingers crossed.");
- ins_error ();
-}
+ "you left one out. Proceed, with fingers crossed.");
+ ins_error();
+}
/* sec 1049 */
-void you_cant (void)
+void you_cant (void)
{
print_err("You can't use `");
- print_cmd_chr(cur_cmd, cur_chr);
+ print_cmd_chr(cur_cmd, cur_chr);
print_string("' in ");
- print_mode(mode);
-}
+ print_mode(mode);
+}
/* sec 1050 */
-void report_illegal_case (void)
-{
- you_cant ();
+void report_illegal_case (void)
+{
+ you_cant();
help4("Sorry, but I'm not programmed to handle this case;",
- "I'll just pretend that you didn't ask for it.",
- "If you're in the wrong mode, you might be able to",
- "return to the right one by typing `I}' or `I$' or `I\\par'.");
- error ();
-}
+ "I'll just pretend that you didn't ask for it.",
+ "If you're in the wrong mode, you might be able to",
+ "return to the right one by typing `I}' or `I$' or `I\\par'.");
+ error();
+}
/* sec 1051 */
-bool privileged (void)
+boolean privileged (void)
{
- register bool Result;
- if(mode > 0)Result = true;
- else {
- report_illegal_case ();
- Result = false;
- }
- return Result;
-}
+ if (mode > 0)
+ return true;
+ else
+ {
+ report_illegal_case();
+ return false;
+ }
+}
/* sec 1054 */
-bool its_all_over (void)
-{/* 10 */
- register bool Result;
- if(privileged ())
+boolean its_all_over (void)
+{
+ if (privileged ())
{
- if((mem_top - 2 == page_tail) && (head == cur_list.tail_field) && (dead_cycles == 0))
- {
- Result = true;
- return(Result);
- }
- back_input ();
+ if ((page_head == page_tail) && (head == cur_list.tail_field) && (dead_cycles == 0))
{
- mem[tail].hh.v.RH = new_null_box ();
- tail = mem[tail].hh.v.RH;
- }
- mem[tail + 1].cint = eqtb[(hash_size + 3733)].cint;
- {
- mem[tail].hh.v.RH = new_glue(8);
- tail = mem[tail].hh.v.RH;
- }
- {
- mem[tail].hh.v.RH = new_penalty(-1073741824L);
- /* - 2^30 */
- tail = mem[tail].hh.v.RH;
- }
- build_page ();
- }
- Result = false;
- return Result;
-}
+ return true;
+ }
+
+ back_input();
+ tail_append(new_null_box());
+ width(tail) = hsize;
+ tail_append(new_glue(fill_glue));
+ tail_append(new_penalty(-1073741824L));
+ build_page();
+ }
+
+ return false;
+}
/* sec 1060 */
void append_glue (void)
{
- small_number s;
- s = cur_chr;
+ small_number s;
+
+ s = cur_chr;
+
switch(s)
- {case 0 :
- cur_val = 4;
- break;
- case 1 :
- cur_val = 8;
- break;
- case 2 :
- cur_val = 12;
- break;
- case 3 :
- cur_val = 16;
- break;
- case 4 :
- scan_glue(2);
- break;
- case 5 :
- scan_glue(3);
- break;
- }
{
- mem[tail].hh.v.RH = new_glue(cur_val);
- tail = mem[tail].hh.v.RH;
- }
- if(s >= 4)
+ case fil_code:
+ cur_val = fil_glue;
+ break;
+
+ case fill_code:
+ cur_val = fill_glue;
+ break;
+
+ case ss_code:
+ cur_val = ss_glue;
+ break;
+
+ case fil_neg_code:
+ cur_val = fil_neg_glue;
+ break;
+
+ case skip_code:
+ scan_glue(glue_val);
+ break;
+
+ case mskip_code:
+ scan_glue(mu_val);
+ break;
+ }
+
+ tail_append(new_glue(cur_val));
+
+ if (s >= skip_code)
{
- decr(mem[cur_val].hh.v.RH);
- if(s > 4)
- mem[tail].hh.b1 = 99;
- }
-}
-/* sec 1161 */
+ decr(glue_ref_count(cur_val));
+
+ if (s > skip_code)
+ subtype(tail) = mu_glue;
+ }
+}
+/* sec 1061 */
void append_kern (void)
{
- quarterword s;
- s = cur_chr;
- scan_dimen(s == 99, false, false);
- {
- mem[tail].hh.v.RH = new_kern(cur_val);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b1 = s;
-}
-/* sec 1054 */
-void off_save (void)
-{
- halfword p;
- if(cur_group == 0)
+ quarterword s;
+
+ s = cur_chr;
+
+ scan_dimen(s == mu_glue, false, false);
+ tail_append(new_kern(cur_val));
+ subtype(tail) = s;
+}
+/* sec 1064 */
+void off_save (void)
+{
+ halfword p;
+
+ if (cur_group == bottom_level)
{
- print_err("Extra ");
+ print_err("Extra ");
print_cmd_chr(cur_cmd, cur_chr);
- help1("Things are pretty mixed up, but I think the worst is over.");
- error ();
- }
- else {
-
- back_input ();
- p = get_avail ();
- mem[mem_top - 3].hh.v.RH = p;
- print_err("Missing ");
- switch(cur_group)
- {case 14 :
- {
-/* mem[p].hh.v.LH = (hash_size + 4611); */
-/* mem[p].hh.v.LH = (hash_size + 4095 + 516); */
- mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 516); /* 96/Jan/10 */
- print_esc("endgroup");
- }
- break;
- case 15 :
- {
- mem[p].hh.v.LH = 804;
- print_char(36);
- }
- break;
- case 16 :
- {
-/* mem[p].hh.v.LH = (hash_size + 4612); */
-/* mem[p].hh.v.LH = (hash_size + 4095 + 517); */
- mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 517); /* 96/Jan/10 */
- mem[p].hh.v.RH = get_avail ();
- p = mem[p].hh.v.RH;
- mem[p].hh.v.LH = 3118;
- print_esc("right.");
- }
- break;
- default:
- {
- mem[p].hh.v.LH = 637;
- print_char(125); /* } */
- }
- break;
- }
+ help1("Things are pretty mixed up, but I think the worst is over.");
+ error();
+ }
+ else
+ {
+ back_input();
+ p = get_avail();
+ link(temp_head) = p;
+ print_err("Missing ");
+
+ switch (cur_group)
+ {
+ case semi_simple_group:
+ {
+ info(p) = cs_token_flag + frozen_end_group;
+ print_esc("endgroup");
+ }
+ break;
+
+ case math_shift_group:
+ {
+ info(p) = math_shift_token + '$';
+ print_char('$');
+ }
+ break;
+
+ case math_left_group:
+ {
+ info(p) = cs_token_flag + frozen_right;
+ link(p) = get_avail();
+ p = link(p);
+ info(p) = other_token + '.';
+ print_esc("right.");
+ }
+ break;
+
+ default:
+ {
+ info(p) = right_brace_token + '}';
+ print_char('}');
+ }
+ break;
+ }
+
print_string(" inserted");
- begin_token_list(mem[mem_top - 3].hh.v.RH, 4);
- help5("I've inserted something that you may have forgotten.",
- "(See the <inserted text> above.)",
- "With luck, this will get me unwedged. But if you",
- "really didn't forget anything, try typing `2' now; then",
- "my insertion and my current dilemma will both disappear.");
- error ();
- }
-}
-/* only called from tex8.c */
+ ins_list(link(temp_head));
+ help5("I've inserted something that you may have forgotten.",
+ "(See the <inserted text> above.)",
+ "With luck, this will get me unwedged. But if you",
+ "really didn't forget anything, try typing `2' now; then",
+ "my insertion and my current dilemma will both disappear.");
+ error();
+ }
+}
/* sec 1069 */
-void extra_right_brace (void)
+void extra_right_brace (void)
{
- print_err("Extra }, or forgotten");
+ print_err("Extra }, or forgotten ");
+
switch(cur_group)
- {case 14 :
- print_esc("endgroup");
- break;
- case 15 :
- print_char(36); /* $ */
- break;
- case 16 :
- print_esc("right");
- break;
+ {
+ case semi_simple_group:
+ print_esc("endgroup");
+ break;
+
+ case math_shift_group:
+ print_char('$');
+ break;
+
+ case math_left_group:
+ print_esc("right");
+ break;
}
+
help5("I've deleted a group-closing symbol because it seems to be",
- "spurious, as in `$x}$'. But perhaps the } is legitimate and",
- "you forgot something else, as in `\\hbox{$x}'. In such cases",
- "the way to recover is to insert both the forgotten and the",
- "deleted material, e.g., by typing `I$}'.");
- error ();
- incr(align_state);
-}
+ "spurious, as in `$x}$'. But perhaps the } is legitimate and",
+ "you forgot something else, as in `\\hbox{$x}'. In such cases",
+ "the way to recover is to insert both the forgotten and the",
+ "deleted material, e.g., by typing `I$}'.");
+ error();
+ incr(align_state);
+}
/* sec 1070 */
-void normal_paragraph (void)
-{
-/* if looseness<>0 then eq_word_define(int_base+looseness_code,0); */
- if(eqtb[(hash_size + 3182)].cint != 0)
- eq_word_define((hash_size + 3182), 0);
- if(eqtb[(hash_size + 3747)].cint != 0)
- eq_word_define((hash_size + 3747), 0);
- if(eqtb[(hash_size + 3204)].cint != 1)
- eq_word_define((hash_size + 3204), 1);
- if(eqtb[(hash_size + 1312)].hh.v.RH != 0)
- eq_define((hash_size + 1312), 118, 0);
-}
+void normal_paragraph (void)
+{
+ if (looseness != 0)
+ eq_word_define(int_base + looseness_code, 0);
+
+ if (hang_indent != 0)
+ eq_word_define(dimen_base + hang_indent_code, 0);
+
+ if (hang_after != 1)
+ eq_word_define(int_base + hang_after_code, 1);
+
+ if (par_shape_ptr != 0)
+ eq_define(par_shape_loc, shape_ref, 0);
+}
/* sec 1075 */
-void box_end_(integer boxcontext)
+void box_end_(integer box_context)
{
- halfword p;
-/* if box_context<box_flag then ... 1073741824 2^30 */
- if(boxcontext < 1073741824L)
+ halfword p;
+
+ if (box_context < box_flag)
{
- if(cur_box != 0)
+ if (cur_box != 0)
{
- mem[cur_box + 4].cint = boxcontext;
- if(abs(mode)== 1)
+ shift_amount(cur_box) = box_context;
+
+ if (abs(mode) == vmode)
{
- append_to_vlist(cur_box);
- if(adjust_tail != 0)
- {
- if(mem_top - 5 != adjust_tail)
- {
- mem[tail].hh.v.RH = mem[mem_top - 5].hh
- .v.RH;
- tail = adjust_tail;
- }
- adjust_tail = 0;
- }
- if(mode > 0){
- build_page ();
- }
- }
- else {
- if(abs(mode)== 102)
- space_factor = 1000;
- else {
-
- p = new_noad ();
- mem[p + 1].hh.v.RH = 2;
- mem[p + 1].hh.v.LH = cur_box;
- cur_box = p;
- }
- mem[tail].hh.v.RH = cur_box;
- tail = cur_box;
- }
- }
- }
-
-/* following fixed 1994/Apr/5 1 day anno Yang --- moby sigh ... */
-
-/* else if box_context<box_flag+512 then ... */
-/* else if(boxcontext < 1073742336L)*/ /* 2^30 + 512 */
- else if(boxcontext < (1073741824L + 512)) /* 2^30 + 512 */
-/* else if box_context<box_flag+256 then ... */
-/* if(boxcontext < 1073742080L)*/ /* 2^30 + 256 */
- if(boxcontext < (1073741824L + 256))/* 2^30 + 256 */
-/* eq_define(box_base-box_flag+box_context,box_ref,cur_box) */
-/* eq_define((hash_size - 1073740246L) + boxcontext, 119, cur_box); */
- eq_define((hash_size + 1578 - 1073741824L) + boxcontext, 119, cur_box);
-/* else geq_define(box_base-box_flag-256+box_context,box_ref,cur_box) */
-/* else geq_define((hash_size - 1073740502L) + boxcontext, 119, cur_box); */
- else geq_define((hash_size + 1322 - 1073741824L) + boxcontext, 119, cur_box);
- else if(cur_box != 0)
-/* if(boxcontext > 1073742336L)*/ /* 2^30 + 512 */
- if(boxcontext > (1073741824L + 512)) /* 2^30 + 512 */
- {
- do {
- get_x_token ();
- } while(!((cur_cmd != 10)&&(cur_cmd != 0)));
-/* 424 in tex82.bug */
- if(((cur_cmd == 26) && (abs(mode)!= 1)) ||
- ((cur_cmd == 27) && (abs(mode)== 1)))
- {
-/* begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders); */
- append_glue ();
-/* -(2^30 + 513 - 100) */
- mem[tail].hh.b1 = boxcontext -(1073742237L);
- mem[tail + 1].hh.v.RH = cur_box;
- }
- else {
- print_err("Leaders not followed by proper glue");
- help3("You should say `\\leaders <box or rule><hskip or vskip>'.",
- "I found the <box or rule>, but there's no suitable",
- "<hskip or vskip>, so I'm ignoring these leaders.");
- back_error ();
- flush_node_list(cur_box);
- }
+ append_to_vlist(cur_box);
+
+ if (adjust_tail != 0)
+ {
+ if (adjust_head != adjust_tail)
+ {
+ link(tail) = link(adjust_head);
+ tail = adjust_tail;
+ }
+
+ adjust_tail = 0;
+ }
+
+ if (mode > 0)
+ build_page();
+ }
+ else
+ {
+ if (abs(mode) == hmode)
+ space_factor = 1000;
+ else
+ {
+ p = new_noad();
+ math_type(nucleus(p)) = sub_box;
+ info(nucleus(p)) = cur_box;
+ cur_box = p;
+ }
+
+ link(tail) = cur_box;
+ tail = cur_box;
+ }
+ }
}
- else ship_out(cur_box);
-}
-/* called only from tex8.c */
-/* sec 1079 */
-void begin_box_(integer boxcontext)
-{/* 10 30 */
- halfword p, q;
- quarterword m;
- halfword k;
- eight_bits n;
- switch(cur_chr){
- case 0 :
- {
- scan_eight_bit_int ();
- cur_box = eqtb[(hash_size + 1578) + cur_val].hh.v.RH;
- eqtb[(hash_size + 1578) + cur_val].hh.v.RH = 0;
- }
- break;
- case 1 :
- {
- scan_eight_bit_int ();
- cur_box = copy_node_list(eqtb[(hash_size + 1578) + cur_val].hh.v.RH);
- }
- break;
- case 2 :
+ else if (box_context < ship_out_flag)
+ if (box_context < (box_flag + 256))
+ eq_define((box_base - box_flag) + box_context, box_ref, cur_box);
+ else
+ geq_define((box_base - box_flag - 256) + box_context, box_ref, cur_box);
+ else if (cur_box != 0)
+ if (box_context > ship_out_flag)
{
- cur_box = 0;
- if(abs(mode)== 203)
+ do
+ {
+ get_x_token();
+ }
+ while(!((cur_cmd != spacer) && (cur_cmd != relax)));
+
+ if (((cur_cmd == hskip) && (abs(mode) != vmode)) || ((cur_cmd == vskip) && (abs(mode) == vmode)))
{
- you_cant ();
- help1("Sorry; this \\lastbox will be void.");
- error ();
- }
- else if((mode == 1)&&(head == cur_list
- .tail_field))
+ append_glue();
+ subtype(tail) = box_context - (leader_flag - a_leaders);
+ leader_ptr(tail) = cur_box;
+ }
+ else
{
- you_cant ();
- help2("Sorry...I usually can't take things from the current page.",
- "This \\lastbox will therefore be void.");
- error ();
- }
- else {
- if(!(tail >= hi_mem_min))
- if((mem[tail].hh.b0 == 0)||(mem[cur_list
- .tail_field].hh.b0 == 1))
+ print_err("Leaders not followed by proper glue");
+ help3("You should say `\\leaders <box or rule><hskip or vskip>'.",
+ "I found the <box or rule>, but there's no suitable",
+ "<hskip or vskip>, so I'm ignoring these leaders.");
+ back_error();
+ flush_node_list(cur_box);
+ }
+ }
+ else
+ ship_out(cur_box);
+}
+/* sec 1079 */
+void begin_box_(integer box_context)
+{
+ halfword p, q;
+ quarterword m;
+ halfword k;
+ eight_bits n;
+
+ switch(cur_chr)
{
- q = head;
- do {
- p = q;
- if(!(q >= hi_mem_min))
- if(mem[q].hh.b0 == 7)
+ case box_code:
+ {
+ scan_eight_bit_int();
+ cur_box = box(cur_val);
+ box(cur_val) = 0;
+ }
+ break;
+
+ case copy_code:
{
+ scan_eight_bit_int();
+ cur_box = copy_node_list(box(cur_val));
+ }
+ break;
+
+ case last_box_code:
+ {
+ cur_box = 0;
+
+ if (abs(mode) == mmode)
{
- register integer for_end;
- m = 1;
- for_end = mem[q].hh.b1;
- if(m <= for_end) do
- p = mem[p].hh.v.RH;
- while(m++ < for_end);
- }
- if(p == tail)
- goto lab30;
- }
- q = mem[p].hh.v.RH;
- } while(!(q == tail));
- cur_box = tail;
- mem[cur_box + 4].cint = 0;
- tail = p;
- mem[p].hh.v.RH = 0;
- lab30:;
- }
- }
- }
- break;
- case 3 :
- {
- scan_eight_bit_int ();
- n = cur_val;
- if(! scan_keyword(836)) /* to */
+ you_cant();
+ help1("Sorry; this \\lastbox will be void.");
+ error();
+ }
+ else if ((mode == vmode) && (head == cur_list.tail_field))
+ {
+ you_cant();
+ help2("Sorry...I usually can't take things from the current page.",
+ "This \\lastbox will therefore be void.");
+ error();
+ }
+ else
+ {
+ if (!(tail >= hi_mem_min))
+ if ((type(tail) == hlist_node) || (type(tail) == vlist_node))
+ {
+ q = head;
+
+ do
+ {
+ p = q;
+
+ if (!(q >= hi_mem_min))
+ if (type(q) == disc_node)
+ {
+ for (m = 1; m <= replace_count(q); m++)
+ p = link(p);
+
+ if (p == tail)
+ goto lab30;
+ }
+
+ q = link(p);
+ }
+ while (!(q == tail));
+
+ cur_box = tail;
+ shift_amount(cur_box) = 0;
+ tail = p;
+ link(p) = 0;
+lab30:
+ ;
+ }
+ }
+ }
+ break;
+
+ case vsplit_code:
{
- print_err("Missing `to' inserted");
- help2("I'm working on `\\vsplit<box number> to <dimen>';",
- "will look for the <dimen> next.");
- error ();
- }
- scan_dimen(false, false, false);
- cur_box = vsplit(n, cur_val);
- }
- break;
- default:
- {
- k = cur_chr - 4;
- save_stack[save_ptr + 0].cint = boxcontext;
- if(k == 102)
- if((boxcontext < 1073741824L)&& /* 2^30 */
- (abs(mode)== 1)
- )
- scan_spec(3, true);
- else scan_spec(2, true);
- else {
-
- if(k == 1)
- scan_spec(4, true);
- else {
-
- scan_spec(5, true);
- k = 1;
- }
- normal_paragraph ();
- }
- push_nest ();
- mode = - (integer) k;
- if(k == 1)
+ scan_eight_bit_int();
+ n = cur_val;
+
+ if (!scan_keyword("to"))
+ {
+ print_err("Missing `to' inserted");
+ help2("I'm working on `\\vsplit<box number> to <dimen>';",
+ "will look for the <dimen> next.");
+ error();
+ }
+
+ scan_dimen(false, false, false);
+ cur_box = vsplit(n, cur_val);
+ }
+ break;
+
+ default:
{
- cur_list.aux_field.cint = ignore_depth;
- if(eqtb[(hash_size + 1318)].hh.v.RH != 0)/* everyhbox */
- begin_token_list(eqtb[(hash_size + 1318)].hh.v.RH, 11);
- }
- else {
-
- space_factor = 1000;
- if(eqtb[(hash_size + 1317)].hh.v.RH != 0)/* everyhbox */
- begin_token_list(eqtb[(hash_size + 1317)].hh.v.RH, 10);
- }
- return;
- }
- break;
- }
- box_end(boxcontext);
-}
+ k = cur_chr - vtop_code;
+ saved(0) = box_context;
+
+ if (k == hmode)
+ if ((box_context < box_flag) && (abs(mode) == vmode))
+ scan_spec(adjust_hbox_group, true);
+ else
+ scan_spec(hbox_group, true);
+ else
+ {
+ if (k == vmode)
+ scan_spec(vbox_group, true);
+ else
+ {
+ scan_spec(vtop_group, true);
+ k = vmode;
+ }
+
+ normal_paragraph();
+ }
+
+ push_nest();
+ mode = - (integer) k;
+
+ if (k == vmode)
+ {
+ prev_depth = ignore_depth;
+
+ if (every_vbox != 0)
+ begin_token_list(every_vbox, every_vbox_text);
+ }
+ else
+ {
+ space_factor = 1000;
+
+ if (every_hbox != 0)
+ begin_token_list(every_hbox, every_vbox_text);
+ }
+ return;
+ }
+ break;
+ }
+
+ box_end(box_context);
+}
/* sec 1084 */
-void scan_box_(integer boxcontext)
-{
- do {
- get_x_token ();
- } while(!((cur_cmd != 10)&&(cur_cmd != 0)));
- if(cur_cmd == 20){
- begin_box(boxcontext);
+void scan_box_(integer box_context)
+{
+ do
+ {
+ get_x_token();
+ }
+ while (!((cur_cmd != spacer) && (cur_cmd != relax)));
+
+ if (cur_cmd == make_box)
+ {
+ begin_box(box_context);
}
- else if((boxcontext >= 1073742337L)&& /* (2^30 + 512 + 1) */
- ((cur_cmd == 36)||(cur_cmd == 35)))
+ else if ((box_context >= leader_flag) && ((cur_cmd == hrule) || (cur_cmd == vrule)))
{
- cur_box = scan_rule_spec ();
- box_end(boxcontext);
- }
- else {
- print_err("A <box> was supposed to be here");
- help3("I was expecting to see \\hbox or \\vbox or \\copy or \\box or",
- "something like that. So you might find something missing in",
- "your output. But keep trying; you can fix this later.");
- back_error ();
+ cur_box = scan_rule_spec();
+ box_end(box_context);
}
-}
+ else
+ {
+ print_err("A <box> was supposed to be here");
+ help3("I was expecting to see \\hbox or \\vbox or \\copy or \\box or",
+ "something like that. So you might find something missing in",
+ "your output. But keep trying; you can fix this later.");
+ back_error();
+ }
+}
/****************************************************************************/
void package_ (small_number);
/****************************************************************************/
/* sec 1091 */
-small_number norm_min_ (integer h)
-{register
-/* small_number Result; */
- int Result; /* 95/Jan/7 */
- if(h <= 0)
- Result = 1;
- else if(h >= 63)
- Result = 63;
- else Result = h;
- return Result;
-}
+small_number norm_min_ (integer h)
+{
+ if (h <= 0)
+ return 1;
+ else if (h >= 63)
+ return 63;
+ else
+ return h;
+}
/* sec 1091 */
-void new_graf_(bool indented)
-{
- prev_graf = 0;
- if((mode == 1)||(head != cur_list
- .tail_field))
- {
- mem[tail].hh.v.RH = new_param_glue(2);
- tail = mem[tail].hh.v.RH;
- }
-/* used to be followingin 3.141 */
-/* cur_list .lhmfield = norm_min(eqtb[(hash_size + 3214)].cint); */
-/* cur_list .rhmfield = norm_min(eqtb[(hash_size + 3215)].cint); */
- push_nest ();
- mode = 102;
- space_factor = 1000;
-/* changes here since 3.141 */
- if(eqtb[(hash_size + 3213)].cint <= 0)
- cur_lang = 0;
- else if(eqtb[(hash_size + 3213)].cint > 255)
- cur_lang = 0;
- else cur_lang = eqtb[(hash_size + 3213)].cint;
- clang = cur_lang;
- prev_graf =(norm_min(eqtb[(hash_size + 3214)].cint)* 64 +
- norm_min(eqtb[(hash_size + 3215)].cint)) * 65536L + cur_lang;
-/* eqtb ??? hash_size ? hash_size + hash_extra ? norm_min etc */
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
- if(indented)
+void new_graf_(boolean indented)
+{
+ prev_graf = 0;
+
+ if ((mode == vmode) || (head != tail))
+ tail_append(new_param_glue(par_skip_code));
+
+ push_nest();
+ mode = hmode;
+ space_factor = 1000;
+ set_cur_lang();
+ clang = cur_lang;
+ prev_graf =(norm_min(left_hyphen_min) * 64 + norm_min(right_hyphen_min)) * 65536L + cur_lang;
+
+ if (indented)
{
- tail = new_null_box ();
- mem[head].hh.v.RH = tail;
- mem[tail + 1].cint = eqtb[(hash_size + 3730)].cint;
- }
- if(eqtb[(hash_size + 1314)].hh.v.RH != 0) /* everypar */
- begin_token_list(eqtb[(hash_size + 1314)].hh.v.RH, 7);
- if(nest_ptr == 1){
- build_page ();
+ tail = new_null_box();
+ link(head) = tail;
+ width(tail) = par_indent;
}
-}
-/* procedure indent_in_hmode; l.21058 */
+
+ if (every_par != 0)
+ begin_token_list(every_par, every_par_text);
+
+ if (nest_ptr == 1)
+ build_page();
+}
/* sec 1093 */
-void indent_in_hmode (void)
-{
- halfword p, q;
- if(cur_chr > 0)
+void indent_in_hmode (void)
+{
+ pointer p, q;
+
+ if (cur_chr > 0)
{
- p = new_null_box ();
- mem[p + 1].cint = eqtb[(hash_size + 3730)].cint;
- if(abs(mode)== 102)
- space_factor = 1000;
- else {
-
- q = new_noad ();
- mem[q + 1].hh.v.RH = 2;
- mem[q + 1].hh.v.LH = p;
- p = q;
- }
+ p = new_null_box();
+ width(p) = par_indent;
+
+ if (abs(mode) == hmode)
+ space_factor = 1000;
+ else
{
- mem[tail].hh.v.RH = p;
- tail = mem[tail].hh.v.RH;
- }
- }
-}
-/* only called from tex8.c */
+ q = new_noad();
+ math_type(nucleus(q)) = sub_box;
+ info(nucleus(q)) = p;
+ p = q;
+ }
+
+ tail_append(p);
+ }
+}
/* sec 1095 */
-void head_for_vmode (void)
-{
- if(mode < 0)
- if(cur_cmd != 36){
- off_save ();
+void head_for_vmode (void)
+{
+ if (mode < 0)
+ {
+ if (cur_cmd != hrule)
+ off_save();
+ else
+ {
+ print_err("You can't use `");
+ print_esc("hrule");
+ print_string("' here except with leaders");
+ help2("To put a horizontal rule in an hbox or an alignment,",
+ "you should use \\leaders or \\hrulefill (see The TeXbook).");
+ error();
+ }
}
- else {
- print_err("You can't use `");
- print_esc("hrule");
- print_string("' here except with leaders");
- help2("To put a horizontal rule in an hbox or an alignment,",
- "you should use \\leaders or \\hrulefill (see The TeXbook).");
- error ();
- }
- else {
-
- back_input ();
- cur_tok = par_token;
- back_input ();
- cur_input.index_field = 4;
- }
-}
+ else
+ {
+ back_input();
+ cur_tok = par_token;
+ back_input();
+ cur_input.index_field = inserted;
+ }
+}
/* sec 1096 */
-void end_graf (void)
+void end_graf (void)
{
- if(mode == 102)
+ if (mode == hmode)
{
- if(head == tail)
- pop_nest ();
- else line_break(eqtb[(hash_size + 3169)].cint);
- normal_paragraph ();
- error_count = 0;
- }
-}
-/* only called form tex8.c */
+ if (head == tail)
+ pop_nest();
+ else
+ line_break(widow_penalty);
+
+ normal_paragraph();
+ error_count = 0;
+ }
+}
/* sec 1099 */
-void begin_insert_or_adjust (void)
-{
- if(cur_cmd == 38)
- cur_val = 255;
- else {
-
- scan_eight_bit_int ();
- if(cur_val == 255)
+void begin_insert_or_adjust (void)
+{
+ if (cur_cmd == vadjust)
+ cur_val = 255;
+ else
+ {
+ scan_eight_bit_int();
+
+ if (cur_val == 255)
{
- print_err("You can't ");
+ print_err("You can't ");
print_esc("insert");
print_int(255);
- help1("I'm changing to \\insert0; box 255 is special.");
- error ();
- cur_val = 0;
- }
- }
- save_stack[save_ptr + 0].cint = cur_val;
- incr(save_ptr);
- new_save_level(11);
- scan_left_brace ();
- normal_paragraph ();
- push_nest ();
- mode = -1;
- cur_list.aux_field.cint = ignore_depth;
-}
+ help1("I'm changing to \\insert0; box 255 is special.");
+ error();
+ cur_val = 0;
+ }
+ }
+
+ saved(0) = cur_val;
+ incr(save_ptr);
+ new_save_level(insert_group);
+ scan_left_brace();
+ normal_paragraph();
+ push_nest();
+ mode = -vmode;
+ prev_depth = ignore_depth;
+}
/* sec 1101 */
-void make_mark (void)
+void make_mark (void)
{
- halfword p;
- p = scan_toks(false, true);
- p = get_node(2);
- mem[p].hh.b0 = 4;
- mem[p].hh.b1 = 0;
- mem[p + 1].cint = def_ref;
- mem[tail].hh.v.RH = p;
- tail = p;
-}
+ pointer p;
+
+ p = scan_toks(false, true);
+ p = get_node(small_node_size);
+ type(p) = mark_node;
+ subtype(p) = 0;
+ mark_ptr(p) = def_ref;
+ link(tail) = p;
+ tail = p;
+}
/* sec 1103 */
-void append_penalty (void)
-{
- scan_int ();
- {
- mem[tail].hh.v.RH = new_penalty(cur_val);
- tail = mem[tail].hh.v.RH;
- }
- if(mode == 1){
- build_page ();
- }
-}
-/* only called from tex8.c */
+void append_penalty (void)
+{
+ scan_int();
+ tail_append(new_penalty(cur_val));
+
+ if (mode == vmode)
+ build_page();
+}
/* sec 1105 */
-void delete_last (void)
-{/* 10 */
- halfword p, q;
- quarterword m;
- if((mode == 1)&&(tail == cur_list
- .head_field))
+void delete_last (void)
+{
+ pointer p, q;
+ quarterword m;
+
+ if ((mode == vmode) && (tail == head))
{
-/* if((cur_chr != 10)||(last_glue != 262143L)) */
- if((cur_chr != 10)||(last_glue != empty_flag))
+ if ((cur_chr != glue_node) || (last_glue != max_halfword))
{
- you_cant ();
- help2("Sorry...I usually can't take things from the current page.",
- "Try `I\\vskip-\\lastskip' instead.");
- if(cur_chr == 11)
- help_line[0] = "Try `I\\kern-\\last_kern' instead.";
- else if(cur_chr != 10)
- help_line[0] = "Perhaps you can make the output routine do it.";
- error ();
- }
- }
- else {
-
- if(!(tail >= hi_mem_min))
- if(mem[tail].hh.b0 == cur_chr)
- {
- q = head;
- do {
- p = q;
- if(!(q >= hi_mem_min))
- if(mem[q].hh.b0 == 7)
+ you_cant();
+ help2("Sorry...I usually can't take things from the current page.",
+ "Try `I\\vskip-\\lastskip' instead.");
+
+ if (cur_chr == kern_node)
+ help_line[0] = "Try `I\\kern-\\last_kern' instead.";
+ else if (cur_chr != glue_node)
+ help_line[0] = "Perhaps you can make the output routine do it.";
+ error();
+ }
+ }
+ else
+ {
+ if (!(tail >= hi_mem_min))
+ if (type(tail) == cur_chr)
+ {
+ q = head;
+
+ do
+ {
+ p = q;
+
+ if (!(q >= hi_mem_min))
+ if (type(q) == disc_node)
+ {
+ for (m = 1; m <= replace_count(q); m++)
+ p = link(p);
+
+ if (p == tail)
+ return;
+ }
+
+ q = link(p);
+ }
+ while (!(q == tail));
+
+ link(p) = 0;
+ flush_node_list(tail);
+ tail = p;
+ }
+ }
+}
+/* sec 1110 */
+void unpackage (void)
+{
+ pointer p;
+ char c;
+
+ c = cur_chr;
+ scan_eight_bit_int();
+ p = box(cur_val);
+
+ if (p == 0)
+ return;
+
+ if ((abs(mode) == mmode) || ((abs(mode) == vmode) && (type(p) != vlist_node)) ||
+ ((abs(mode) == hmode) && (type(p) != hlist_node)))
+ {
+ print_err("Incompatible list can't be unboxed");
+ help3("Sorry, Pandora. (You sneaky devil.)",
+ "I refuse to unbox an \\hbox in vertical mode or vice versa.",
+ "And I can't open any boxes in math mode.");
+ error();
+ return;
+ }
+
+ if (c == copy_code)
+ link(tail) = copy_node_list(list_ptr(p));
+ else
+ {
+ link(tail) = list_ptr(p);
+ box(cur_val) = 0;
+ free_node(p, box_node_size);
+ }
+
+ while (link(tail) != 0)
+ tail = link(tail);
+}
+/* sec 1113 */
+void append_italic_correction (void)
+{
+ pointer p;
+ internal_font_number f;
+
+ if (tail != head)
+ {
+ if ((tail >= hi_mem_min))
+ p = tail;
+ else if (type(tail) == ligature_node)
+ p = tail + 1;
+ else
+ return;
+
+ f = font(p);
+ tail_append(new_kern(char_italic(f, char_info(f, character(p)))));
+ subtype(tail) = explicit;
+ }
+}
+/* sec 1117 */
+void append_discretionary (void)
+{
+ integer c;
+
+ tail_append(new_disc());
+
+ if (cur_chr == 1)
+ {
+ c = hyphen_char[cur_font];
+
+ if (c >= 0)
+ if (c < 256)
+ pre_break(tail) = new_character(cur_font, c);
+ }
+ else
+ {
+ incr(save_ptr);
+ saved(-1) = 0;
+ new_save_level(disc_group);
+ scan_left_brace();
+ push_nest();
+ mode = -hmode;
+ space_factor = 1000;
+ }
+}
+/* sec 1119 */
+void build_discretionary (void)
+{
+ pointer p, q;
+ integer n;
+
+ unsave();
+ q = head;
+ p = link(q);
+ n = 0;
+
+ while (p != 0)
+ {
+ if (!(p >= hi_mem_min))
+ if (type(p) > rule_node)
+ if (type(p) != kern_node)
+ if (type(p) != ligature_node)
+ {
+ print_err("Improper discretionary list");
+ help1("Discretionary lists must contain only boxes and kerns.");
+ error();
+ begin_diagnostic();
+ print_nl("The following discretionary sublist has been deleted:");
+ show_box(p);
+ end_diagnostic(true);
+ flush_node_list(p);
+ link(q) = 0;
+ goto lab30;
+ }
+
+ q = p;
+ p = link(q);
+ incr(n);
+ }
+
+lab30:
+ p = link(head);
+ pop_nest();
+
+ switch (saved(-1))
+ {
+ case 0:
+ pre_break(tail) = p;
+ break;
+
+ case 1:
+ post_break(tail) = p;
+ break;
+
+ case 2:
+ {
+ if ((n > 0) && (abs(mode) == mmode))
+ {
+ print_err("Illegal math ");
+ print_esc("discretionary");
+ help2("Sorry: The third part of a discretionary break must be",
+ "empty, in math formulas. I had to delete your third part.");
+ flush_node_list(p);
+ n = 0;
+ error();
+ }
+ else
+ link(tail) = p;
+
+ if (n <= max_quarterword)
+ replace_count(tail) = n;
+ else
+ {
+ print_err("Discretionary list is too long");
+ help2("Wow---I never thought anybody would tweak me here.",
+ "You can't seriously need such a huge discretionary list?");
+ error();
+ }
+
+ if (n > 0)
+ tail = q;
+
+ decr(save_ptr);
+ return;
+ }
+ break;
+ }
+
+ incr(saved(-1));
+ new_save_level(disc_group);
+ scan_left_brace();
+ push_nest();
+ mode = -hmode;
+ space_factor = 1000;
+}
+/* sec 1123 */
+void make_accent (void)
+{
+ real s, t;
+ pointer p, q, r;
+ internal_font_number f;
+ scaled a, h, x, w, delta;
+ four_quarters i;
+
+ scan_char_num();
+ f = cur_font;
+ p = new_character(f, cur_val);
+
+ if (p != 0)
{
+ x = x_height(f);
+ s = slant(f) / ((double) 65536.0);
+ a = char_width(f, char_info(f, character(p)));
+ do_assignments();
+ q = 0;
+ f = cur_font;
+
+ if ((cur_cmd == letter) || (cur_cmd == other_char) || (cur_cmd == char_given))
+ q = new_character(f, cur_chr);
+ else if (cur_cmd == char_num)
{
- register integer for_end;
- m = 1;
- for_end = mem[q].hh.b1;
- if(m <= for_end) do
- p = mem[p].hh.v.RH;
- while(m++ < for_end);
- }
- if(p == tail)
- return;
- }
- q = mem[p].hh.v.RH;
- } while(!(q == tail));
- mem[p].hh.v.RH = 0;
- flush_node_list(tail);
- tail = p;
- }
- }
-}
-/* only called from tex8.c */
-/* procedure unpackage; l.21256 */
-/* sec 1110 */
-void unpackage (void)
-{/* 10 */
- halfword p;
- char c;
- c = cur_chr;
- scan_eight_bit_int ();
- p = eqtb[(hash_size + 1578) + cur_val].hh.v.RH;
- if(p == 0)/* if p=null then return; l.21261 */
- return;
- if((abs(mode)== 203)||((abs(mode)
- == 1)&&(mem[p].hh.b0 != 1)) ||((abs(mode)==
- 102)&&(mem[p].hh.b0 != 0)))
- {
- print_err("Incompatible list can't be unboxed");
- help3("Sorry, Pandora. (You sneaky devil.)",
- "I refuse to unbox an \\hbox in vertical mode or vice versa.",
- "And I can't open any boxes in math mode.");
- error ();
- return;
- }
- if(c == 1)
- mem[tail].hh.v.RH = copy_node_list(mem[p + 5].hh
- .v.RH);
- else {
-
- mem[tail].hh.v.RH = mem[p + 5].hh.v.RH;
- eqtb[(hash_size + 1578) + cur_val].hh.v.RH = 0;
- free_node(p, 7);
- }
- while(mem[tail].hh.v.RH != 0)tail = mem
- [tail].hh.v.RH;
-}
-/* sec 1113 */
-void append_italic_correction (void)
-{/* 10 */
- halfword p;
- internal_font_number f;
- if(tail != head)
- {
- if((tail >= hi_mem_min))
- p = tail;
- else if(mem[tail].hh.b0 == 6)
- p = tail + 1;
- else return;
- f = mem[p].hh.b0;
+ scan_char_num();
+ q = new_character(f, cur_val);
+ }
+ else
+ back_input();
+
+ if (q != 0)
{
- mem[tail].hh.v.RH = new_kern(font_info[italic_base[
- f]+(font_info[char_base[f]+ mem[p].hh.b1].qqqq.b2)/ 4]
- .cint);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b1 = 1;
- }
-}
-/* sec 1117 */
-void append_discretionary (void)
-{
- integer c;
- {
- mem[tail].hh.v.RH = new_disc ();
- tail = mem[tail].hh.v.RH;
- }
- if(cur_chr == 1)
+ t = slant(f) / ((double) 65536.0);
+ i = char_info(f, character(q));
+ w = char_width(f, i);
+ h = char_height(f, height_depth(i));
+
+ if (h != x)
+ {
+ p = hpack(p, 0, 1);
+ shift_amount(p) = x - h;
+ }
+
+ delta = round((w - a) / ((double) 2.0)+ h * t - x * s);
+ r = new_kern(delta);
+ subtype(r) = acc_kern;
+ link(tail) = r;
+ link(r) = p;
+ tail = new_kern(- (integer) a - delta);
+ subtype(tail) = acc_kern;
+ link(p) = tail;
+ p = q;
+ }
+
+ link(tail) = p;
+ tail = p;
+ space_factor = 1000;
+ }
+}
+/* sec 1127 */
+void align_error (void)
+{
+ if (abs(align_state) > 2)
{
- c = hyphen_char[eqtb[(hash_size + 1834)].hh.v.RH];
- if(c >= 0)
- if(c < 256)
- mem[tail + 1].hh.v.LH = new_character(eqtb[(hash_size + 1834)]
- .hh.v.RH, c);
- }
- else {
-
- incr(save_ptr);
- save_stack[save_ptr - 1].cint = 0;
- new_save_level(10);
- scan_left_brace ();
- push_nest ();
- mode = -102;
- space_factor = 1000;
- }
-}
-/* only called form tex8.c */
-/* sec 1119 */
-void build_discretionary (void)
-{/* 30 10 */
- halfword p, q;
- integer n;
- unsave ();
- q = head;
- p = mem[q].hh.v.RH;
- n = 0;
- while(p != 0){
-
- if(!(p >= hi_mem_min))
- if(mem[p].hh.b0 > 2)
- if(mem[p].hh.b0 != 11)
- if(mem[p].hh.b0 != 6)
+ print_err("Misplaced ");
+ print_cmd_chr(cur_cmd, cur_chr);
+
+ if (cur_tok == tab_token + '&')
{
- print_err("Improper discretionary list");
- help1("Discretionary lists must contain only boxes and kerns.");
- error ();
- begin_diagnostic ();
- print_nl("The following discretionary sublist has been deleted:"); /* */
- show_box(p);
- end_diagnostic(true);
- flush_node_list(p);
- mem[q].hh.v.RH = 0;
- goto lab30;
- }
- q = p;
- p = mem[q].hh.v.RH;
- incr(n);
- }
- lab30:;
- p = mem[head].hh.v.RH;
- pop_nest ();
- switch(save_stack[save_ptr - 1].cint)
- {case 0 :
- mem[tail + 1].hh.v.LH = p;
- break;
- case 1 :
- mem[tail + 1].hh.v.RH = p;
- break;
- case 2 :
+ help6("I can't figure out why you would want to use a tab mark",
+ "here. If you just want an ampersand, the remedy is",
+ "simple: Just type `I\\&' now. But if some right brace",
+ "up above has ended a previous alignment prematurely,",
+ "you're probably due for more error messages, and you",
+ "might try typing `S' now just to see what is salvageable.");
+ }
+ else
{
- if((n > 0)&&(abs(mode)== 203))
- {
- print_err("Illegal math ");
- print_esc("discretionary");
- help2("Sorry: The third part of a discretionary break must be",
- "empty, in math formulas. I had to delete your third part.");
- flush_node_list(p);
- n = 0;
- error ();
- }
- else mem[tail].hh.v.RH = p;
-/* if n <= max_quarterword then replace_count(tail) <- n; p.1120 */
-/* if(n <= 255) */ /* 94/Apr/4 ? */
- if(n <= max_quarterword) /* 96/Oct/12 ??? */
- mem[tail].hh.b1 = n;
- else {
- print_err("Discretionary list is too long");
- help2("Wow---I never thought anybody would tweak me here.",
- "You can't seriously need such a huge discretionary list?");
- error ();
- }
- if(n > 0)
- tail = q;
- decr(save_ptr);
- return;
- }
- break;
- }
- incr(save_stack[save_ptr - 1].cint);
- new_save_level(10);
- scan_left_brace ();
- push_nest ();
- mode = -102;
- space_factor = 1000;
-}
-/* called only from tex8.c */
-/* sec 1123 */
-void make_accent (void)
-{
- real s, t;
- halfword p, q, r;
- internal_font_number f;
- scaled a, h, x, w, delta;
- ffourquarters i;
- scan_char_num ();
- f = eqtb[(hash_size + 1834)].hh.v.RH;
- p = new_character(f, cur_val);
- if(p != 0)
+ help5("I can't figure out why you would want to use a tab mark",
+ "or \\cr or \\span just now. If something like a right brace",
+ "up above has ended a previous alignment prematurely,",
+ "you're probably due for more error messages, and you",
+ "might try typing `S' now just to see what is salvageable.");
+ }
+
+ error();
+ }
+ else
{
- x = font_info[5 + param_base[f]].cint;
- s = font_info[1 + param_base[f]].cint / ((double) 65536.0);
- a = font_info[width_base[f]+ font_info[char_base[f]+ mem[p]
- .hh.b1].qqqq.b0].cint;
- do_assignments ();
- q = 0;
- f = eqtb[(hash_size + 1834)].hh.v.RH;
- if((cur_cmd == 11)||(cur_cmd == 12)||(cur_cmd == 68))
- q = new_character(f, cur_chr);
- else if(cur_cmd == 16)
+ back_input();
+
+ if (align_state < 0)
{
- scan_char_num ();
- q = new_character(f, cur_val);
- }
- else back_input ();
- if(q != 0)
+ print_err("Missing { inserted");
+ incr(align_state);
+ cur_tok = left_brace_token + '{';
+ }
+ else
{
- t = font_info[1 + param_base[f]].cint / ((double) 65536.0);
- i = font_info[char_base[f]+ mem[q].hh.b1].qqqq;
- w = font_info[width_base[f]+ i.b0].cint;
- h = font_info[height_base[f]+(i.b1)/ 16].cint;
- if(h != x)
- {
- p = hpack(p, 0, 1);
- mem[p + 4].cint = x - h;
- }
- delta = round((w - a)/ ((double) 2.0)+ h * t - x * s);
- r = new_kern(delta);
- mem[r].hh.b1 = 2;
- mem[tail].hh.v.RH = r;
- mem[r].hh.v.RH = p;
- tail = new_kern(- (integer) a - delta);
- mem[tail].hh.b1 = 2;
- mem[p].hh.v.RH = tail;
- p = q;
- }
- mem[tail].hh.v.RH = p;
- tail = p;
- space_factor = 1000;
- }
-}
-/* sec 1127 */
-void align_error (void)
-{
- if(abs(align_state)> 2){
- print_err("Misplaced ");
- print_cmd_chr(cur_cmd, cur_chr);
- if(cur_tok == 1062) {
- help6("I can't figure out why you would want to use a tab mark",
- "here. If you just want an ampersand, the remedy is",
- "simple: Just type `I\\&' now. But if some right brace",
- "up above has ended a previous alignment prematurely,",
- "you're probably due for more error messages, and you",
- "might try typing `S' now just to see what is salvageable.");
- }
- else {
- help5("I can't figure out why you would want to use a tab mark",
- "or \\cr or \\span just now. If something like a right brace",
- "up above has ended a previous alignment prematurely,",
- "you're probably due for more error messages, and you",
- "might try typing `S' now just to see what is salvageable.");
- }
- error ();
- }
- else {
- back_input ();
- if(align_state < 0) {
- print_err("Missing { inserted");
- incr(align_state);
- cur_tok = 379; /* belowdisplayshortskip ? */
- }
- else {
- print_err("Missing } inserted");
- decr(align_state);
- cur_tok = 637;
+ print_err("Missing } inserted");
+ decr(align_state);
+ cur_tok = right_brace_token + '}';
}
- help3("I've put in what seems to be necessary to fix",
- "the current column of the current alignment.",
- "Try to go on, since this might almost work.");
- ins_error ();
+
+ help3("I've put in what seems to be necessary to fix",
+ "the current column of the current alignment.",
+ "Try to go on, since this might almost work.");
+ ins_error();
}
-}
+}
/* sec 1129 */
-void noalign_error (void)
+void noalign_error (void)
{
print_err("Misplaced ");
print_esc("noalign");
help2("I expect to see \\noalign only after the \\cr of",
- "an alignment. Proceed, and I'll ignore this case.");
- error ();
-}
-/* only called from tex8.c */
+ "an alignment. Proceed, and I'll ignore this case.");
+ error();
+}
/* sec 1129 */
-void omit_error (void)
-{
+void omit_error (void)
+{
print_err("Misplaced ");
print_esc("omit");
help2("I expect to see \\omit only after tab marks or the \\cr of",
- "an alignment. Proceed, and I'll ignore this case.");
- error ();
-}
+ "an alignment. Proceed, and I'll ignore this case.");
+ error();
+}
/* sec 1131 */
-void do_endv (void)
+void do_endv (void)
{
- if(cur_group == 6) {
- end_graf ();
- if(fin_col ())fin_row ();
- }
- else off_save ();
-}
-/* only called form tex8.c */
+ base_ptr = input_ptr;
+ input_stack[base_ptr] = cur_input;
+
+ while ((input_stack[base_ptr].index_field != v_template) &&
+ (input_stack[base_ptr].loc_field == 0) &&
+ (input_stack[base_ptr].state_field == token_list))
+ decr(base_ptr);
+
+ if ((input_stack[base_ptr].index_field != v_template) ||
+ (input_stack[base_ptr].loc_field != 0) ||
+ (input_stack[base_ptr].state_field != token_list))
+ fatal_error("(interwoven alignment preambles are not allowed)");
+
+ if (cur_group == align_group)
+ {
+ end_graf();
+
+ if (fin_col ())
+ fin_row();
+ }
+ else
+ off_save();
+}
/* sec 1135 */
-void cs_error (void)
+void cs_error (void)
{
print_err("Extra ");
print_esc("endcsname");
help1("I'm ignoring this, since I wasn't doing a \\csname.");
- error ();
-}
+ error();
+}
/* sec 1136 */
-void push_math_(group_code c)
+void push_math_(group_code c)
{
- push_nest ();
- mode = -203;
- cur_list.aux_field.cint = 0;
- new_save_level(c);
-}
+ push_nest();
+ mode = -mmode;
+ incompleat_noad = 0;
+ new_save_level(c);
+}
/* sec 1138 */
-void init_math (void)
-{/* 21 40 45 30 */
- scaled w;
- scaled l;
- scaled s;
- halfword p;
- halfword q;
- internal_font_number f;
- integer n;
- scaled v;
- scaled d;
- get_token ();
- if((cur_cmd == 3)&&(mode > 0))
- {
- if(head == tail)
- {
- pop_nest ();
- w = -1073741823L; /* - (2^30 - 1) */
- }
- else {
-
- line_break(eqtb[(hash_size + 3170)].cint);
- v = mem[just_box + 4].cint + 2 * font_info[6 +
- param_base[eqtb[(hash_size + 1834)].hh.v.RH]].cint;
- w = -1073741823L; /* - (2^30 - 1) */
- p = mem[just_box + 5].hh.v.RH;
- while(p != 0){
-
- lab21: if((p >= hi_mem_min))
+void init_math (void)
+{
+ scaled w;
+ scaled l;
+ scaled s;
+ pointer p;
+ pointer q;
+ internal_font_number f;
+ integer n;
+ scaled v;
+ scaled d;
+
+ get_token();
+
+ if ((cur_cmd == math_shift) && (mode > 0))
{
- f = mem[p].hh.b0;
- d = font_info[width_base[f]+ font_info[char_base[f]+ mem[p
- ].hh.b1].qqqq.b0].cint;
- goto lab40;
- }
- switch(mem[p].hh.b0)
- {case 0 :
- case 1 :
- case 2 :
- {
- d = mem[p + 1].cint;
- goto lab40;
- }
- break;
- case 6 :
+ if (head == tail)
{
- mem[mem_top - 12]= mem[p + 1];
- mem[mem_top - 12].hh.v.RH = mem[p].hh.v.RH;
- p = mem_top - 12;
- goto lab21;
- }
- break;
- case 11 :
- case 9 :
- d = mem[p + 1].cint;
- break;
- case 10 :
+ pop_nest();
+ w = -max_dimen; /* - (2^30 - 1) */
+ }
+ else
{
- q = mem[p + 1].hh.v.LH;
- d = mem[q + 1].cint;
- if(mem[just_box + 5].hh.b0 == 1)
+ line_break(display_widow_penalty);
+ v = shift_amount(just_box) + 2 * quad(cur_font);
+ w = -max_dimen; /* - (2^30 - 1) */
+ p = list_ptr(just_box);
+
+ while (p != 0)
+ {
+lab21:
+ if ((p >= hi_mem_min))
+ {
+ f = font(p);
+ d = char_width(f, char_info(f, character(p)));
+ goto lab40;
+ }
+
+ switch (type(p))
+ {
+ case hlist_node:
+ case vlist_node:
+ case rule_node:
+ {
+ d = width(p);
+ goto lab40;
+ }
+ break;
+
+ case ligature_node:
+ {
+ mem[lig_trick] = mem[lig_char(p)];
+ link(lig_trick) = link(p);
+ p = lig_trick;
+ goto lab21;
+ }
+ break;
+
+ case kern_node:
+ case math_node:
+ d = width(p);
+ break;
+
+ case glue_node:
+ {
+ q = glue_ptr(p);
+ d = width(q);
+
+ if (glue_sign(just_box) == stretching)
+ {
+ if ((glue_order(just_box) == stretch_order(q)) && (stretch(q) != 0))
+ v = max_dimen; /* - (2^30 - 1) */
+ }
+ else if (glue_sign(just_box) == shrinking)
+ {
+ if ((glue_order(just_box) == shrink_order(q)) && (shrink(q) != 0))
+ v = max_dimen; /* - (2^30 - 1) */
+ }
+
+ if (subtype(p) >= a_leaders)
+ goto lab40;
+ }
+ break;
+
+ case whatsit_node:
+ d = 0;
+ break;
+
+ default:
+ d = 0;
+ break;
+ }
+
+ if (v < max_dimen) /* - (2^30 - 1) */
+ v = v + d;
+
+ goto lab45;
+lab40:
+ if (v < max_dimen) /* - (2^30 - 1) */
+ {
+ v = v + d;
+ w = v;
+ }
+ else
+ {
+ w = max_dimen; /* - (2^30 - 1) */
+ goto lab30;
+ }
+lab45:
+ p = link(p);
+ }
+lab30:;
+ }
+
+ if (par_shape_ptr == 0)
+ if ((hang_indent != 0) && (((hang_after >= 0) &&
+ (prev_graf + 2 > hang_after)) || (prev_graf + 1 < - (integer) hang_after)))
{
- if((mem[just_box + 5].hh.b1 == mem[q].hh.b0)&&(mem
- [q + 2].cint != 0))
- v = 1073741823L; /* - (2^30 - 1) */
- }
- else if(mem[just_box + 5].hh.b0 == 2)
+ l = hsize - abs(hang_indent);
+
+ if (hang_indent > 0)
+ s = hang_indent;
+ else
+ s = 0;
+ }
+ else
{
- if((mem[just_box + 5].hh.b1 == mem[q].hh.b1)&&(mem
- [q + 3].cint != 0))
- v = 1073741823L; /* - (2^30 - 1) */
- }
- if(mem[p].hh.b1 >= 100)
- goto lab40;
- }
- break;
- case 8 :
- d = 0;
- break;
- default:
- d = 0;
- break;
- }
- if(v < 1073741823L) /* - (2^30 - 1) */
- v = v + d;
- goto lab45;
- lab40: if(v < 1073741823L) /* - (2^30 - 1) */
- {
- v = v + d;
- w = v;
- }
- else {
-
- w = 1073741823L; /* - (2^30 - 1) */
- goto lab30;
- }
- lab45: p = mem[p].hh.v.RH;
- }
- lab30:;
- }
- if(eqtb[(hash_size + 1312)].hh.v.RH == 0)
- if((eqtb[(hash_size + 3747)].cint != 0)&&(((eqtb[(hash_size + 3204)].cint >= 0)&&
- (prev_graf + 2 > eqtb[(hash_size + 3204)].cint)) ||(prev_graf +
- 1 < - (integer) eqtb[(hash_size + 3204)].cint)))
+ l = hsize;
+ s = 0;
+ }
+ else
{
- l = eqtb[(hash_size + 3733)].cint - abs(eqtb[(hash_size + 3747)].cint);
- if(eqtb[(hash_size + 3747)].cint > 0)
- s = eqtb[(hash_size + 3747)].cint;
- else s = 0;
- }
- else {
-
- l = eqtb[(hash_size + 3733)].cint;
- s = 0;
- }
- else {
-
- n = mem[eqtb[(hash_size + 1312)].hh.v.RH].hh.v.LH;
- if(prev_graf + 2 >= n)
- p = eqtb[(hash_size + 1312)].hh.v.RH + 2 * n;
- else p = eqtb[(hash_size + 1312)].hh.v.RH + 2 *(prev_graf + 2);
- s = mem[p - 1].cint;
- l = mem[p].cint;
- }
- push_math(15);
- mode = 203;
- eq_word_define((hash_size + 3207), -1);
- eq_word_define((hash_size + 3743), w);
- eq_word_define((hash_size + 3744), l);
- eq_word_define((hash_size + 3745), s);
- if(eqtb[(hash_size + 1316)].hh.v.RH != 0)/* everydisplay */
- begin_token_list(eqtb[(hash_size + 1316)].hh.v.RH, 9);
- if(nest_ptr == 1){
- build_page ();
+ n = info(par_shape_ptr);
+
+ if (prev_graf + 2 >= n)
+ p = par_shape_ptr + 2 * n;
+ else
+ p = par_shape_ptr + 2 *(prev_graf + 2);
+
+ s = mem[p - 1].cint;
+ l = mem[p].cint;
+ }
+
+ push_math(math_shift_group);
+ mode = mmode;
+ eq_word_define(int_base + cur_fam_code, -1);
+ eq_word_define(dimen_base + pre_display_size_code, w);
+ eq_word_define(dimen_base + display_width_code, l);
+ eq_word_define(dimen_base + display_indent_code, s);
+
+ if (every_display != 0)
+ begin_token_list(every_display, every_display_text);
+
+ if (nest_ptr == 1)
+ {
+ build_page();
+ }
}
- }
- else {
-
- back_input ();
+ else
+ {
+ back_input();
+
{
- push_math(15);
- eq_word_define((hash_size + 3207), -1);
- if(eqtb[(hash_size + 1315)].hh.v.RH != 0)/* everymath */
- begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8);
- }
- }
-}
+ push_math(math_shift_group);
+ eq_word_define(int_base + cur_fam_code, -1);
+
+ if (every_math != 0)
+ begin_token_list(every_math, every_math_text);
+ }
+ }
+}
/* sec 1142 */
-void start_eq_no (void)
+void start_eq_no (void)
{
- save_stack[save_ptr + 0].cint = cur_chr;
- incr(save_ptr);
+ saved(0) = cur_chr;
+ incr(save_ptr);
+
{
- push_math(15);
- eq_word_define((hash_size + 3207), -1);
- if(eqtb[(hash_size + 1315)].hh.v.RH != 0)/* everymath */
- begin_token_list(eqtb[(hash_size + 1315)].hh.v.RH, 8);
- }
-}
+ push_math(math_shift_group);
+ eq_word_define(int_base + cur_fam_code, -1);
+
+ if (every_math != 0)
+ begin_token_list(every_math, every_math_text);
+ }
+}
/* sec 1151 */
-void scan_math_(halfword p)
-{/* 20 21 10 */
- integer c;
- lab20: do {
- get_x_token ();
- } while(!((cur_cmd != 10)&&(cur_cmd != 0)));
- lab21: switch(cur_cmd)
- {case 11 :
- case 12 :
- case 68 :
+void scan_math_(pointer p)
+{
+ integer c;
+
+lab20:
+ do
{
- c = eqtb[(hash_size + 2907) + cur_chr].hh.v.RH;
- if(c == 32768L)
- {
+ get_x_token();
+ }
+ while(!((cur_cmd != spacer) && (cur_cmd != relax)));
+
+lab21:
+ switch (cur_cmd)
{
- cur_cs = cur_chr + 1;
- cur_cmd = eqtb[cur_cs].hh.b0;
- cur_chr = eqtb[cur_cs].hh.v.RH;
- x_token ();
- back_input ();
- }
- goto lab20;
- }
- }
- break;
- case 16 :
- {
- scan_char_num ();
- cur_chr = cur_val;
- cur_cmd = 68;
- goto lab21;
- }
- break;
- case 17 :
- {
- scan_fifteen_bit_int ();
- c = cur_val;
- }
- break;
- case 69 :
- c = cur_chr;
- break;
- case 15 :
- {
- scan_twenty_seven_bit_int ();
- c = cur_val / 4096;
-/* c = cur_val >> 12; */
- }
- break;
- default:
- {
- back_input ();
- scan_left_brace ();
- save_stack[save_ptr + 0].cint = p;
- incr(save_ptr);
- push_math(9);
- return;
- }
- break;
- }
- mem[p].hh.v.RH = 1;
- mem[p].hh.b1 = c % 256;
-/* mem[p].hh.b1 = c & 255; */ /* last 8 bits */
- if((c >= 28672)&& /* 32768 - 4096 ??? if (c>=var_code) and ... */
- ((eqtb[(hash_size + 3207)].cint >= 0)&&
- (eqtb[(hash_size + 3207)].cint < 16)))
- mem[p].hh.b0 = eqtb[(hash_size + 3207)].cint;
- else mem[p].hh.b0 =(c / 256)% 16;
-/* else mem[p].hh.b0 =(c >> 8)& 15; */ /* 4 bits to left */
-}
+ case letter:
+ case other_char:
+ case char_given:
+ {
+ c = math_code(cur_chr);
+
+ if (c == 32768L)
+ {
+ {
+ cur_cs = cur_chr + active_base;
+ cur_cmd = eq_type(cur_cs);
+ cur_chr = equiv(cur_cs);
+ x_token();
+ back_input();
+ }
+
+ goto lab20;
+ }
+ }
+ break;
+
+ case char_num:
+ {
+ scan_char_num();
+ cur_chr = cur_val;
+ cur_cmd = char_given;
+ goto lab21;
+ }
+ break;
+
+ case math_char_num:
+ {
+ scan_fifteen_bit_int();
+ c = cur_val;
+ }
+ break;
+
+ case math_given:
+ c = cur_chr;
+ break;
+
+ case delim_num:
+ {
+ scan_twenty_seven_bit_int();
+ c = cur_val / 4096;
+ }
+ break;
+
+ default:
+ {
+ back_input();
+ scan_left_brace();
+ saved(0) = p;
+ incr(save_ptr);
+ push_math(math_group);
+ return;
+ }
+ break;
+ }
+
+ math_type(p) = math_char;
+ character(p) = c % 256;
+
+ if ((c >= var_code) && ((cur_fam >= 0) && (cur_fam < 16)))
+ fam(p) = cur_fam;
+ else
+ fam(p) = (c / 256) % 16;
+}
/* sec 1155 */
void set_math_char_(integer c)
{
- halfword p;
- if(c >= 32768L)
+ pointer p;
+
+ if (c >= 32768L)
{
- cur_cs = cur_chr + 1; /* ??? */
-/* cur_cmd = eqtb[eqtbextra + cur_cs].hh.b0; */ /* was wrong ??? */
- cur_cmd = eqtb[cur_cs].hh.b0;
-/* cur_chr = eqtb[cur_cs].hh.v.RH; */ /* should have been eqtbextra ? */
- cur_chr = eqtb[cur_cs].hh.v.RH;
- x_token ();
- back_input ();
- }
- else {
-
- p = new_noad ();
- mem[p + 1].hh.v.RH = 1;
- mem[p + 1].hh.b1 = c % 256;
-/* mem[p + 1].hh.b1 = c & 255; */ /* last 8 bits */
- mem[p + 1].hh.b0 =(c / 256)% 16;
-/* mem[p + 1].hh.b0 =(c >> 8)& 15; */ /* 4 bits to left */
- if(c >= 28672) /* 32768 - 4096 ? */
- {
- if(((eqtb[(hash_size + 3207)].cint >= 0)&&(eqtb[(hash_size + 3207)].cint < 16))
- )
- mem[p + 1].hh.b0 = eqtb[(hash_size + 3207)].cint;
- mem[p].hh.b0 = 16;
- }
- else mem[p].hh.b0 = 16 +(c / 4096);
-/* else mem[p].hh.b0 = 16 +(c >> 12); */
- mem[tail].hh.v.RH = p;
- tail = p;
- }
-}
-/* sec 1159 */
-void math_limit_switch (void)
-{/* 10 */
- if(head != tail)
- if(mem[tail].hh.b0 == 17)
+ cur_cs = cur_chr + active_base;
+ cur_cmd = eq_type(cur_cs);
+ cur_chr = equiv(cur_cs);
+ x_token();
+ back_input();
+ }
+ else
{
- mem[tail].hh.b1 = cur_chr;
- return;
+ p = new_noad();
+ math_type(nucleus(p)) = math_char;
+ character(nucleus(p)) = c % 256;
+ fam(nucleus(p)) = (c / 256) % 16;
+
+ if (c >= var_code)
+ {
+ if (((cur_fam >= 0) && (cur_fam < 16)))
+ fam(nucleus(p)) = cur_fam;
+
+ type(p) = ord_noad;
+ }
+ else
+ type(p) = ord_noad + (c / 4096);
+
+ link(tail) = p;
+ tail = p;
}
+}
+/* sec 1159 */
+void math_limit_switch (void)
+{
+ if (head != tail)
+ if (type(tail) == op_noad)
+ {
+ subtype(tail) = cur_chr;
+ return;
+ }
+
print_err("Limit controls must follow a math operator");
- help1("I'm ignoring this misplaced \\limits or \\nolimits command.");
- error ();
-}
+ help1("I'm ignoring this misplaced \\limits or \\nolimits command.");
+ error();
+}
/* sec 1160 */
-void scan_delimiter_(halfword p, bool r)
+void scan_delimiter_(pointer p, boolean r)
{
- if(r){
- scan_twenty_seven_bit_int ();
- }
- else {
-
- do {
- get_x_token ();
- } while(!((cur_cmd != 10)&&(cur_cmd != 0)));
- switch(cur_cmd)
- {case 11 :
- case 12 :
- cur_val = eqtb[(hash_size + 3474) + cur_chr].cint;
- break;
- case 15 :
- scan_twenty_seven_bit_int ();
- break;
- default:
- cur_val = -1;
- break;
- }
- }
- if(cur_val < 0)
- {
- print_err("Missing delimiter (. inserted)");
- help6("I was expecting to see something like `(' or `\\{' or",
- "`\\}' here. If you typed, e.g., `{' instead of `\\{', you",
- "should probably delete the `{' by typing `1' now, so that",
- "braces don't get unbalanced. Otherwise just proceed.",
- "Acceptable delimiters are characters whose \\delcode is",
- "nonnegative, or you can use `\\delimiter <delimiter code>'.");
- back_error ();
- cur_val = 0;
- }
-/* attempt to speed up - bkph */ /* is compiler smart enough already ? */
- mem[p].qqqq.b0 =(cur_val / 1048576L)% 16; /* 2^20 */
-/* mem[p].qqqq.b0 =(cur_val >> 20)& 15; */
- mem[p].qqqq.b1 =(cur_val / 4096)% 256;
-/* mem[p].qqqq.b1 =(cur_val >> 12)& 255; */
- mem[p].qqqq.b2 =(cur_val / 256)% 16;
-/* mem[p].qqqq.b2 =(cur_val >> 8)& 15; */
- mem[p].qqqq.b3 = cur_val % 256;
-/* mem[p].qqqq.b3 = cur_val & 255; */
-}
+ if (r)
+ {
+ scan_twenty_seven_bit_int();
+ }
+ else
+ {
+ do
+ {
+ get_x_token();
+ }
+ while (!((cur_cmd != spacer) && (cur_cmd != relax)));
+
+ switch (cur_cmd)
+ {
+ case letter:
+ case other_char:
+ cur_val = del_code(cur_chr);
+ break;
+
+ case delim_num:
+ scan_twenty_seven_bit_int();
+ break;
+
+ default:
+ cur_val = -1;
+ break;
+ }
+ }
+
+ if (cur_val < 0)
+ {
+ print_err("Missing delimiter (. inserted)");
+ help6("I was expecting to see something like `(' or `\\{' or",
+ "`\\}' here. If you typed, e.g., `{' instead of `\\{', you",
+ "should probably delete the `{' by typing `1' now, so that",
+ "braces don't get unbalanced. Otherwise just proceed.",
+ "Acceptable delimiters are characters whose \\delcode is",
+ "nonnegative, or you can use `\\delimiter <delimiter code>'.");
+ back_error();
+ cur_val = 0;
+ }
+
+ small_fam(p) = (cur_val / 1048576L) % 16;
+ small_char(p) = (cur_val / 4096) % 256;
+ large_fam(p) = (cur_val / 256) % 16;
+ large_char(p) = cur_val % 256;
+}
/* sec 1163 */
-void math_radical (void)
-{
- {
- mem[tail].hh.v.RH = get_node(5);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b0 = 24;
- mem[tail].hh.b1 = 0;
- mem[tail + 1].hh = empty_field;
- mem[tail + 3].hh = empty_field;
- mem[tail + 2].hh = empty_field;
- scan_delimiter(tail + 4, true);
- scan_math(tail + 1);
-}
+void math_radical (void)
+{
+ tail_append(get_node(radical_noad_size));
+ type(tail) = radical_noad;
+ subtype(tail) = normal;
+ mem[nucleus(tail)].hh = empty_field;
+ mem[subscr(tail)].hh = empty_field;
+ mem[supscr(tail)].hh = empty_field;
+ scan_delimiter(left_delimiter(tail), true);
+ scan_math(nucleus(tail));
+}
/* sec 1165 */
-void math_ac (void)
-{
- if(cur_cmd == 45)
+void math_ac (void)
+{
+ if (cur_cmd == accent)
{
print_err("Please use ");
print_esc("mathaccent");
print_string(" for accents in math mode");
- help2("I'm changing \\accent to \\mathaccent here; wish me luck.",
- "(Accents are not the same in formulas as they are in text.)");
- error ();
- }
- {
- mem[tail].hh.v.RH = get_node(5);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b0 = 28;
- mem[tail].hh.b1 = 0;
- mem[tail + 1].hh = empty_field;
- mem[tail + 3].hh = empty_field;
- mem[tail + 2].hh = empty_field;
- mem[tail + 4].hh.v.RH = 1;
- scan_fifteen_bit_int ();
- mem[tail + 4].hh.b1 = cur_val % 256;
-/* mem[tail + 4].hh.b1 = cur_val & 255; */
- if((cur_val >= 28672)&& /* 32768 - 4096 ? */
- ((eqtb[(hash_size + 3207)].cint >= 0)&&
- (eqtb[(hash_size + 3207)].cint < 16)))
- mem[tail + 4].hh.b0 = eqtb[(hash_size + 3207)].cint;
- else mem[tail + 4].hh.b0 =(cur_val / 256)% 16;
-/* else mem[tail + 4].hh.b0 =(cur_val >> 8)& 15; */
- scan_math(tail + 1);
-}
+ help2("I'm changing \\accent to \\mathaccent here; wish me luck.",
+ "(Accents are not the same in formulas as they are in text.)");
+ error();
+ }
+
+ tail_append(get_node(accent_noad_size));
+ type(tail) = accent_noad;
+ subtype(tail) = normal;
+ mem[nucleus(tail)].hh = empty_field;
+ mem[subscr(tail)].hh = empty_field;
+ mem[supscr(tail)].hh = empty_field;
+ math_type(accent_chr(tail)) = math_char;
+ scan_fifteen_bit_int();
+ character(accent_chr(tail)) = cur_val % 256;
+
+ if ((cur_val >= var_code) && ((cur_fam >= 0) && (cur_fam < 16)))
+ fam(accent_chr(tail)) = cur_fam;
+ else
+ fam(accent_chr(tail)) = (cur_val / 256) % 16;
+
+ scan_math(nucleus(tail));
+}
/* sec 1172 */
-void append_choices (void)
-{
- {
- mem[tail].hh.v.RH = new_choice ();
- tail = mem[tail].hh.v.RH;
- }
- incr(save_ptr);
- save_stack[save_ptr - 1].cint = 0;
- push_math(13);
- scan_left_brace ();
-}
+void append_choices (void)
+{
+ tail_append(new_choice());
+ incr(save_ptr);
+ saved(-1) = 0;
+ push_math(math_choice_group);
+ scan_left_brace();
+}
/* sec 1184 */
halfword fin_mlist_(halfword p)
-{register halfword Result;
- halfword q;
- if(cur_list.aux_field.cint != 0)
+{
+ pointer q;
+
+ if (incompleat_noad != 0)
{
- mem[cur_list.aux_field.cint + 3].hh.v.RH = 3;
- mem[cur_list.aux_field.cint + 3].hh.v.LH = mem[head]
- .hh.v.RH;
- if(p == 0)
- q = cur_list.aux_field.cint;
- else {
-
- q = mem[cur_list.aux_field.cint + 2].hh.v.LH;
- if(mem[q].hh.b0 != 30){
- confusion(871); /* right */
- return 0; // abort_flag set
+ math_type(denominator(incompleat_noad)) = sub_mlist;
+ info(denominator(incompleat_noad)) = link(head);
+
+ if (p == 0)
+ q = incompleat_noad;
+ else
+ {
+ q = info(numerator(incompleat_noad));
+
+ if (type(q) != left_noad)
+ {
+ confusion("right");
+ return 0; // abort_flag set
+ }
+
+ info(numerator(incompleat_noad)) = link(q);
+ link(q) = incompleat_noad;
+ link(incompleat_noad) = p;
}
- mem[cur_list.aux_field.cint + 2].hh.v.LH = mem[q].hh.v.RH;
- mem[q].hh.v.RH = cur_list.aux_field.cint;
- mem[cur_list.aux_field.cint].hh.v.RH = p;
- }
- }
- else {
-
- mem[tail].hh.v.RH = p;
- q = mem[head].hh.v.RH;
- }
- pop_nest ();
- Result = q;
- return Result;
-}
+ }
+ else
+ {
+ link(tail) = p;
+ q = link(head);
+ }
+ pop_nest();
+
+ return q;
+}
/* sec 1174 */
-void build_choices (void)
-{/* 10 */
- halfword p;
- unsave ();
- p = fin_mlist(0);
- switch(save_stack[save_ptr - 1].cint)
- {case 0 :
- mem[tail + 1].hh.v.LH = p;
- break;
- case 1 :
- mem[tail + 1].hh.v.RH = p;
- break;
- case 2 :
- mem[tail + 2].hh.v.LH = p;
- break;
- case 3 :
- {
- mem[tail + 2].hh.v.RH = p;
- decr(save_ptr);
- return;
- }
- break;
- }
- incr(save_stack[save_ptr - 1].cint);
- push_math(13);
- scan_left_brace ();
-}
+void build_choices (void)
+{
+ pointer p;
+
+ unsave();
+ p = fin_mlist(0);
+
+ switch (saved(-1))
+ {
+ case 0:
+ display_mlist(tail) = p;
+ break;
+
+ case 1:
+ text_mlist(tail) = p;
+ break;
+
+ case 2:
+ script_mlist(tail) = p;
+ break;
+
+ case 3:
+ {
+ script_script_mlist(tail) = p;
+ decr(save_ptr);
+ return;
+ }
+ break;
+ }
+
+ incr(saved(-1));
+ push_math(math_choice_group);
+ scan_left_brace();
+}
/* sec 1176 */
-void sub_sup (void)
+void sub_sup (void)
{
/* small_number t; */
- int t; /* 95/Jan/7 */
- halfword p;
- t = 0;
- p = 0;
- if(tail != head)
- if((mem[tail].hh.b0 >= 16)&&
- (mem[tail].hh.b0 < 30))
- {
- p = tail + 2 + cur_cmd - 7;
- t = mem[p].hh.v.RH;
- }
- if((p == 0)||(t != 0))
- {
+ int t; /* 95/Jan/7 */
+ pointer p;
+
+ t = 0;
+ p = 0;
+
+ if (tail != head)
+ if (script_allowed(tail))
{
- mem[tail].hh.v.RH = new_noad ();
- tail = mem[tail].hh.v.RH;
- }
- p = tail + 2 + cur_cmd - 7;
- if(t != 0)
+ p = supscr(tail) + cur_cmd - sup_mark;
+ t = math_type(p);
+ }
+
+ if ((p == 0) || (t != 0))
+ {
+ tail_append(new_noad());
+ p = supscr(tail) + cur_cmd - sup_mark;
+
+ if (t != 0)
{
- if(cur_cmd == 7)
+ if (cur_cmd == sup_mark)
{
- print_err("Double superscript");
- help1("I treat `x^1^2' essentially like `x^1{}^2'.");
- }
- else {
- print_err("Double subscript");
- help1("I treat `x_1_2' essentially like `x_1{}_2'.");
- }
- error ();
- }
- }
- scan_math(p);
-}
-/* used to continue here with math_fraction etc in tex7.c */
-/*****************************************************************************/
-/* moved down here to avoid pragma optimize questions 96/Sep/12 */
-/* #pragma optimize("g", off) */ /* for MC VS compiler */
-/* #pragma optimize("a", off) */ /* for MC VS compiler */
+ print_err("Double superscript");
+ help1("I treat `x^1^2' essentially like `x^1{}^2'.");
+ }
+ else
+ {
+ print_err("Double subscript");
+ help1("I treat `x_1_2' essentially like `x_1{}_2'.");
+ }
+ error();
+ }
+ }
+ scan_math(p);
+}
/* sec 1086 */
void package_(small_number c)
-{
- scaled h;
- halfword p;
- scaled d;
- d = eqtb[(hash_size + 3737)].cint;
- unsave ();
- save_ptr = save_ptr - 3;
- if(mode == -102)
- cur_box = hpack(mem[head].hh.v.RH, save_stack[save_ptr
- + 2].cint, save_stack[save_ptr + 1].cint);
- else {
-
- cur_box = vpackage(mem[head].hh.v.RH, save_stack[
- save_ptr + 2].cint, save_stack[save_ptr + 1].cint, d);
- if(c == 4)
+{
+ scaled h;
+ pointer p;
+ scaled d;
+
+ d = box_max_depth;
+ unsave();
+ save_ptr = save_ptr - 3;
+
+ if (mode == -hmode)
+ cur_box = hpack(link(head), saved(2), saved(1));
+ else
+ {
+ cur_box = vpackage(link(head), saved(2), saved(1), d);
+
+ if (c == vtop_code)
{
- h = 0;
- p = mem[cur_box + 5].hh.v.RH;
- if(p != 0)
- if(mem[p].hh.b0 <= 2)
- h = mem[p + 3].cint;
- mem[cur_box + 2].cint = mem[cur_box + 2].cint - h + mem[cur_box +
- 3].cint;
- mem[cur_box + 3].cint = h;
- }
- }
- pop_nest ();
- box_end(save_stack[save_ptr + 0].cint);
-}
-/* #pragma optimize("g", on) */ /* for MC VS compiler */
-/* #pragma optimize("a", on) */ /* for MC VS compiler */
-/* #pragma optimize("a",) */ /* 94/Jan/25 */
-#pragma optimize ("", on) /* 96/Sep/12 */
-/****************************************************************************/
+ h = 0;
+ p = list_ptr(cur_box);
+
+ if (p != 0)
+ if (type(p) <= rule_node)
+ h = height(p);
+
+ depth(cur_box) = depth(cur_box) - h + height(cur_box);
+ height(cur_box) = h;
+ }
+ }
+
+ pop_nest();
+ box_end(saved(0));
+}
\ No newline at end of file
OSDN Git Service
