-#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
-
-#include "texwin.h"
-
-#pragma warning(disable:4131) // old style declarator
-#pragma warning(disable:4135) // conversion between different integral types
-#pragma warning(disable:4127) // conditional expression is constant
-
-#include <setjmp.h>
-
-#define EXTERN extern
-
-#include "texd.h"
-
-#pragma warning(disable:4244) /* 96/Jan/10 */
-
-
-/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */
-
-/* rebox_ used to be in tex4.c */
-
-halfword rebox_(halfword b, scaled w)
-{register halfword Result;
- halfword p;
- internal_font_number f;
- scaled v;
-/* begin if (width(b)<>w)and(list_ptr(b)<>null) then l.14010 */
- if ((mem[b + 1].cint != w) && (mem[b + 5].hh.v.RH != 0)) {
- if (mem[b].hh.b0 == 1)
- b = hpack(b, 0, 1);
- p = mem[b + 5].hh.v.RH;
-/* if (is_char_node(p))and(link(p)=null) then l.14013 */
- if (((p >= hi_mem_min)) &&(mem[p].hh.v.RH == 0)) {
- f = mem[p].hh.b0;
- v = font_info[width_base[f]+ font_info[char_base[f]+ mem[p].hh.b1].qqqq.b0].cint;
- if (v != mem[b + 1].cint)
- mem[p].hh.v.RH = new_kern(mem[b + 1].cint - v);
- }
- free_node(b, 7);
- b = new_glue(12);
- mem[b].hh.v.RH = p;
-/* while link(p)<>null do p:=link(p); l.14019 */
- while (mem[p].hh.v.RH != 0) p = mem[p].hh.v.RH;
- mem[p].hh.v.RH = new_glue(12);
- Result = hpack(b, w, 0);
- } else {
- mem[b + 1].cint = w;
- Result = b;
- }
- return Result;
-}
-/* This is to be the start of tex5.c */
-halfword math_glue_(halfword g, scaled m)
-{
- register halfword Result;
- halfword p;
- integer n;
- scaled f;
- n = x_over_n(m, 65536L);
- f = tex_remainder;
- if (f < 0) {
- decr(n);
- f = f + 65536L;
- }
- p = get_node(4);
- mem[p + 1].cint = mult_and_add(n, mem[g + 1].cint, xn_over_d(mem[g + 1].cint, f, 65536L), 1073741823L); /* 2^30 - 1 */
- mem[p].hh.b0 = mem[g].hh.b0;
- if (mem[p].hh.b0 == 0)
- mem[p + 2].cint = mult_and_add(n, mem[g + 2].cint, xn_over_d(mem[g + 2].cint, f, 65536L), 1073741823L); /* 2^30 - 1 */
- else
- mem[p + 2].cint = mem[g + 2].cint;
- mem[p].hh.b1 = mem[g].hh.b1;
- if (mem[p].hh.b1 == 0)
- mem[p + 3].cint = mult_and_add(n, mem[g + 3].cint, xn_over_d(mem[g + 3].cint, f, 65536L), 1073741823L); /* 2^30 - 1 */
- else
- mem[p + 3].cint = mem[g + 3].cint;
- Result = p;
- return Result;
-}
-void math_kern_ (halfword p, scaled m)
-{
- integer n;
- scaled f;
- if (mem[p].hh.b1 == 99)
- {
- n = x_over_n(m, 65536L);
- f = tex_remainder;
- if (f < 0)
- {
- decr(n);
- f = f + 65536L;
- }
- mem[p + 1].cint = mult_and_add(n, mem[p + 1].cint, xn_over_d(mem
- [p + 1].cint, f, 65536L), 1073741823L); /* 2^30 - 1 */
-/* mem[p].hh.b1 = 0; */
- mem[p].hh.b1 = 1; /* changed in 3.14159 */
- }
-}
-void flush_math (void)
-{
- flush_node_list(mem[head].hh.v.RH);
- flush_node_list(cur_list.aux_field.cint);
- mem[head].hh.v.RH = 0;
- tail = head;
- cur_list.aux_field.cint = 0;
-}
-halfword clean_box_(halfword p, small_number s)
-{/* 40 */ register halfword Result;
- halfword q;
- small_number savestyle;
- halfword x;
- halfword r;
- switch(mem[p].hh.v.RH)
- {case 1 :
- {
- cur_mlist = new_noad();
- mem[cur_mlist + 1]= mem[p];
- }
- break;
- case 2 :
- {
- q = mem[p].hh.v.LH;
- goto lab40;
- }
- break;
- case 3 :
- cur_mlist = mem[p].hh.v.LH;
- break;
- default:
- {
- q = new_null_box();
- goto lab40;
- }
- break;
- }
- savestyle = cur_style;
- cur_style = s;
- mlist_penalties = false;
- mlist_to_hlist();
- q = mem[temp_head].hh.v.RH;
- cur_style = savestyle;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint, 18);
- }
- lab40: if ((q >= hi_mem_min)||(q == 0))
- x = hpack(q, 0, 1);
- else if ((mem[q].hh.v.RH == 0)&&(mem[q].hh.b0 <= 1)&&(mem
- [q + 4].cint == 0))
- x = q;
- else x = hpack(q, 0, 1);
- q = mem[x + 5].hh.v.RH;
- if ((q >= hi_mem_min))
- {
- r = mem[q].hh.v.RH;
-/* if r<>null then if link(r)=null then l.14140 */
- if (r != 0)
- if (mem[r].hh.v.RH == 0)
- if (!(r >= hi_mem_min))
- if (mem[r].hh.b0 == 11)
- {
- free_node(r, 2);
- mem[q].hh.v.RH = 0; /* link(q):=null; */
- }
- }
- Result = x;
- return Result;
-}
-void fetch_(halfword a)
-{
- cur_c = mem[a].hh.b1;
- cur_f = eqtb[(hash_size + 1835) + mem[a].hh.b0 + cur_size].hh.v.RH;
- if (cur_f == 0)
- {
- print_err("");
- print_size(cur_size);
- print_char(' ');
- print_int(mem[a].hh.b0);
- print_string("is undefined (character ");
- print(cur_c);
- print_char(')');
- help4("Somewhere in the math formula just ended, you used the",
- "stated character from an undefined font family. For example,",
- "plain TeX doesn't allow \\it or \\sl in subscripts. Proceed,",
- "and I'll try to forget that I needed that character.");
- error();
- cur_i = null_character;
- mem[a].hh.v.RH = 0;
- }
- else {
-
- if ((cur_c >= font_bc[cur_f])&&(cur_c <= font_ec[cur_f]))
- cur_i = font_info[char_base[cur_f]+ cur_c].qqqq;
- else cur_i = null_character;
- if (!((cur_i.b0 > 0)))
- {
- char_warning(cur_f, cur_c);
- mem[a].hh.v.RH = 0;
- }
- }
-}
-void make_over_(halfword q)
-{
- mem[q + 1].hh.v.LH = overbar(clean_box(q + 1, 2 *(cur_style / 2)
- + 1), 3 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]
-].cint, font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]]
- .cint);
- mem[q + 1].hh.v.RH = 2;
-}
-void make_under_(halfword q)
-{
- halfword p, x, y;
- scaled delta;
- x = clean_box(q + 1, cur_style);
- p = new_kern(3 * font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint);
- mem[x].hh.v.RH = p;
- mem[p].hh.v.RH = fraction_rule(font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint);
- y = vpackage(x, 0, 1, 1073741823L); /* 2^30 - 1 */
- delta = mem[y + 3].cint + mem[y + 2].cint + font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint;
- mem[y + 3].cint = mem[x + 3].cint;
- mem[y + 2].cint = delta - mem[y + 3].cint;
- mem[q + 1].hh.v.LH = y;
- mem[q + 1].hh.v.RH = 2;
-}
-void make_vcenter_(halfword q)
-{
- halfword v;
- scaled delta;
- v = mem[q + 1].hh.v.LH;
- if (mem[v].hh.b0 != 1){
- confusion("vcenter");
- return; // abort_flag set
- }
- delta = mem[v + 3].cint + mem[v + 2].cint;
- mem[v + 3].cint = font_info[22 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + half(delta);
- mem[v + 2].cint = delta - mem[v + 3].cint;
-}
-void make_radical_(halfword q)
-{
- halfword x, y;
- scaled delta, clr;
- x = clean_box(q + 1, 2 *(cur_style / 2)+ 1);
- if (cur_style < 2)
- clr = font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint +
- (abs(font_info[5 + param_base[eqtb[(hash_size + 1837) +
- cur_size].hh.v.RH]].cint)/ 4);
- else {
-
- clr = font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint;
- clr = clr +(abs(clr)/ 4);
- }
- y = var_delimiter(q + 4, cur_size, mem[x + 3].cint + mem[x + 2]
- .cint + clr + font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint);
- delta = mem[y + 2].cint -(mem[x + 3].cint + mem[x + 2].cint +
- clr);
- if (delta > 0)
- clr = clr + half(delta);
- mem[y + 4].cint = - (integer)(mem[x + 3].cint + clr);
- mem[y].hh.v.RH = overbar(x, clr, mem[y + 3].cint);
- mem[q + 1].hh.v.LH = hpack(y, 0, 1);
- mem[q + 1].hh.v.RH = 2;
-}
-void make_math_accent_(halfword q)
-{/* 30 31 */
- halfword p, x, y;
- integer a;
- quarterword c;
- internal_font_number f;
- ffourquarters i;
- scaled s;
- scaled h;
- scaled delta;
- scaled w;
- fetch(q + 4);
- if ((cur_i.b0 > 0))
- {
- i = cur_i;
- c = cur_c;
- f = cur_f;
- s = 0;
- if (mem[q + 1].hh.v.RH == 1)
- {
- fetch(q + 1);
- if (((cur_i.b2)% 4)== 1)
- {
- a = lig_kern_base[cur_f]+ cur_i.b3;
- cur_i = font_info[a].qqqq;
- if (cur_i.b0 > 128)
- {
- a = lig_kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3 + 32768L - 256
- *(128);
- cur_i = font_info[a].qqqq;
- }
- while(true){
- if (cur_i.b1 == skew_char[cur_f])
- {
- if (cur_i.b2 >= 128)
- if (cur_i.b0 <= 128)
- s = font_info[kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3]
- .cint;
- goto lab31;
- }
- if (cur_i.b0 >= 128)
- goto lab31;
- a = a + cur_i.b0 + 1;
- cur_i = font_info[a].qqqq;
- }
- }
- }
- lab31:;
- x = clean_box(q + 1, 2 *(cur_style / 2)+ 1);
- w = mem[x + 1].cint;
- h = mem[x + 3].cint;
- while(true){
- if (((i.b2)% 4)!= 2)
- goto lab30;
- y = i.b3;
- i = font_info[char_base[f]+ y].qqqq;
- if (!(i.b0 > 0))
- goto lab30;
- if (font_info[width_base[f]+ i.b0].cint > w)
- goto lab30;
-/* long to unsigned short ... */
- c = y;
- }
- lab30:;
- if (h < font_info[5 + param_base[f]].cint)
- delta = h;
- else delta = font_info[5 + param_base[f]].cint;
- if ((mem[q + 2].hh.v.RH != 0)||(mem[q + 3].hh.v.RH != 0)
- )
- if (mem[q + 1].hh.v.RH == 1)
- {
- flush_node_list(x);
- x = new_noad();
- mem[x + 1]= mem[q + 1];
- mem[x + 2]= mem[q + 2];
- mem[x + 3]= mem[q + 3];
- mem[q + 2].hh = empty_field;
- mem[q + 3].hh = empty_field;
- mem[q + 1].hh.v.RH = 3;
- mem[q + 1].hh.v.LH = x;
- x = clean_box(q + 1, cur_style);
- delta = delta + mem[x + 3].cint - h;
- h = mem[x + 3].cint;
- }
- y = char_box(f, c);
- mem[y + 4].cint = s + half(w - mem[y + 1].cint);
- mem[y + 1].cint = 0;
- p = new_kern(- (integer) delta);
- mem[p].hh.v.RH = x;
- mem[y].hh.v.RH = p;
- y = vpackage(y, 0, 1, 1073741823L); /* 2^30 - 1 */
- mem[y + 1].cint = mem[x + 1].cint;
- if (mem[y + 3].cint < h)
- {
- p = new_kern(h - mem[y + 3].cint);
- mem[p].hh.v.RH = mem[y + 5].hh.v.RH;
- mem[y + 5].hh.v.RH = p;
- mem[y + 3].cint = h;
- }
- mem[q + 1].hh.v.LH = y;
- mem[q + 1].hh.v.RH = 2;
- }
-}
-void make_fraction_(halfword q)
-{
- halfword p, v, x, y, z;
- scaled delta, delta1, delta2, shiftup, shiftdown, clr;
- if (mem[q + 1].cint == 1073741824L) /* 2^30 */
- mem[q + 1].cint = font_info[8 +
- param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint;
- x = clean_box(q + 2, cur_style + 2 - 2 *(cur_style / 6));
- z = clean_box(q + 3, 2 *(cur_style / 2)+ 3 - 2 *(cur_style / 6));
- if (mem[x + 1].cint < mem[z + 1].cint)
- x = rebox(x, mem[z + 1].cint);
- else z = rebox(z, mem[x + 1].cint);
- if (cur_style < 2)
- {
- shiftup = font_info[8 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- shiftdown = font_info[11 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- }
- else {
-
- shiftdown = font_info[12 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- if (mem[q + 1].cint != 0)
- shiftup = font_info[9 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- else shiftup = font_info[10 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- }
- if (mem[q + 1].cint == 0)
- {
- if (cur_style < 2)
- clr = 7 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH]
- ].cint;
- else clr = 3 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint;
- delta = half(clr -((shiftup - mem[x + 2].cint)-(mem[z + 3]
- .cint - shiftdown)));
- if (delta > 0)
- {
- shiftup = shiftup + delta;
- shiftdown = shiftdown + delta;
- }
- }
- else {
-
- if (cur_style < 2)
- clr = 3 * mem[q + 1].cint;
- else clr = mem[q + 1].cint;
- delta = half(mem[q + 1].cint);
- delta1 = clr -((shiftup - mem[x + 2].cint)-(font_info[22 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + delta));
- delta2 = clr -((font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size]
- .hh.v.RH]].cint - delta)-(mem[z + 3].cint - shiftdown));
- if (delta1 > 0)
- shiftup = shiftup + delta1;
- if (delta2 > 0)
- shiftdown = shiftdown + delta2;
- }
- v = new_null_box();
- mem[v].hh.b0 = 1;
- mem[v + 3].cint = shiftup + mem[x + 3].cint;
- mem[v + 2].cint = mem[z + 2].cint + shiftdown;
- mem[v + 1].cint = mem[x + 1].cint;
- if (mem[q + 1].cint == 0)
- {
- p = new_kern((shiftup - mem[x + 2].cint)-(mem[z + 3].cint -
- shiftdown));
- mem[p].hh.v.RH = z;
- }
- else {
-
- y = fraction_rule(mem[q + 1].cint);
- p = new_kern((font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint - delta)-(mem[z + 3].cint - shiftdown));
- mem[y].hh.v.RH = p;
- mem[p].hh.v.RH = z;
- p = new_kern((shiftup - mem[x + 2].cint)-(font_info[22 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint + delta));
- mem[p].hh.v.RH = y;
- }
- mem[x].hh.v.RH = p;
- mem[v + 5].hh.v.RH = x;
- if (cur_style < 2)
- delta = font_info[20 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]]
- .cint;
- else delta = font_info[21 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH
-]].cint;
- x = var_delimiter(q + 4, cur_size, delta);
- mem[x].hh.v.RH = v;
- z = var_delimiter(q + 5, cur_size, delta);
- mem[v].hh.v.RH = z;
- mem[q + 1].cint = hpack(x, 0, 1);
-}
-/***************************************************************************/
-/* moved to end to avoid questions about pragma optimize 96/Sep/12 */
-scaled make_op_ (halfword);
-/***************************************************************************/
-void make_ord_(halfword q)
-{/* 20 10 */
- integer a;
- halfword p, r;
- lab20: if (mem[q + 3].hh.v.RH == 0)
- if (mem[q + 2].hh.v.RH == 0)
- if (mem[q + 1].hh.v.RH == 1)
- {
- p = mem[q].hh.v.RH;
- if (p != 0)
- if ((mem[p].hh.b0 >= 16)&&(mem[p].hh.b0 <= 22))
- if (mem[p + 1].hh.v.RH == 1)
- if (mem[p + 1].hh.b0 == mem[q + 1].hh.b0)
- {
- mem[q + 1].hh.v.RH = 4;
- fetch(q + 1);
- if (((cur_i.b2)% 4)== 1)
- {
- a = lig_kern_base[cur_f]+ cur_i.b3;
- cur_c = mem[p + 1].hh.b1;
- cur_i = font_info[a].qqqq;
- if (cur_i.b0 > 128)
- {
- a = lig_kern_base[cur_f]+ 256 * cur_i.b2 + cur_i.b3 + 32768L - 256
- *(128);
- cur_i = font_info[a].qqqq;
- }
- while(true){
- if (cur_i.b1 == cur_c)
- if (cur_i.b0 <= 128)
- if (cur_i.b2 >= 128)
- {
- p = new_kern(font_info[kern_base[cur_f]+ 256 * cur_i.b2 + cur_i
- .b3].cint);
- mem[p].hh.v.RH = mem[q].hh.v.RH;
- mem[q].hh.v.RH = p;
- return;
- }
- else {
-
- {
- if (interrupt != 0){
- pause_for_instructions();
- }
- }
- switch(cur_i.b2)
- {case 1 :
- case 5 :
- mem[q + 1].hh.b1 = cur_i.b3;
- break;
- case 2 :
- case 6 :
- mem[p + 1].hh.b1 = cur_i.b3;
- break;
- case 3 :
- case 7 :
- case 11 :
- {
- r = new_noad();
- mem[r + 1].hh.b1 = cur_i.b3;
- mem[r + 1].hh.b0 = mem[q + 1].hh.b0;
- mem[q].hh.v.RH = r;
- mem[r].hh.v.RH = p;
- if (cur_i.b2 < 11)
- mem[r + 1].hh.v.RH = 1;
- else mem[r + 1].hh.v.RH = 4;
- }
- break;
- default:
- {
- mem[q].hh.v.RH = mem[p].hh.v.RH;
- mem[q + 1].hh.b1 = cur_i.b3;
- mem[q + 3]= mem[p + 3];
- mem[q + 2]= mem[p + 2];
- free_node(p, 4);
- }
- break;
- }
- if (cur_i.b2 > 3)
- return;
- mem[q + 1].hh.v.RH = 1;
- goto lab20;
- }
- if (cur_i.b0 >= 128)
- return;
- a = a + cur_i.b0 + 1;
- cur_i = font_info[a].qqqq;
- }
- }
- }
- }
-}
-/***************************************************************************/
-/* moved to end to avoid questions about pragma optimize 96/Sep/12 */
-void make_scripts_ (halfword, scaled);
-/***************************************************************************/
-small_number make_left_right_(halfword q, small_number style, scaled maxd, scaled max_h)
-{register small_number Result;
- scaled delta, delta1, delta2;
- if (style < 4)
- cur_size = 0;
- else cur_size = 16 *((style - 2)/ 2);
- delta2 = maxd + font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint;
- delta1 = max_h + maxd - delta2;
- if (delta2 > delta1)
- delta1 = delta2;
- delta =(delta1 / 500)* eqtb[(hash_size + 3181)].cint;
- delta2 = delta1 + delta1 - eqtb[(hash_size + 3740)].cint;
- if (delta < delta2)
- delta = delta2;
- mem[q + 1].cint = var_delimiter(q + 1, cur_size, delta);
- Result = mem[q].hh.b0 -(10);
- return Result;
-}
-void mlist_to_hlist (void)
-{/* 21 82 80 81 83 30 */
- halfword mlist;
- bool penalties;
- small_number style;
- small_number savestyle;
- halfword q;
- halfword r;
-/* small_number rtype; */
- int rtype; /* 95/Jan/7 */
-/* small_number t; */
- int t; /* 95/Jan/7 */
- halfword p, x, y, z;
- integer pen;
- small_number s;
- scaled max_h, maxd;
- scaled delta;
- mlist = cur_mlist;
- penalties = mlist_penalties;
- style = cur_style;
- q = mlist;
- r = 0;
- rtype = 17;
- max_h = 0;
- maxd = 0;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint, 18);
- }
- while(q != 0){
-
- lab21: delta = 0;
- switch(mem[q].hh.b0){
- case 18 :
- switch(rtype)
- {case 18 :
- case 17 :
- case 19 :
- case 20 :
- case 22 :
- case 30 :
- {
- mem[q].hh.b0 = 16;
- goto lab21;
- }
- break;
- default:
- ;
- break;
- }
- break;
- case 19 :
- case 21 :
- case 22 :
- case 31 :
- {
- if (rtype == 18) mem[r].hh.b0 = 16;
- if (mem[q].hh.b0 == 31) goto lab80;
- }
- break;
- case 30 :
- goto lab80;
- break;
- case 25 :
- {
- make_fraction(q);
- goto lab82;
- }
- break;
- case 17 :
- {
- delta = make_op(q);
- if (mem[q].hh.b1 == 1)
- goto lab82;
- }
- break;
- case 16 :
- make_ord(q);
- break;
- case 20 :
- case 23 :
- ;
- break;
- case 24 :
- make_radical(q);
- break;
- case 27 :
- make_over(q);
- break;
- case 26 :
- make_under(q);
- break;
- case 28 :
- make_math_accent(q);
- break;
- case 29 :
- make_vcenter(q);
- break;
- case 14 :
- {
- cur_style = mem[q].hh.b1;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
- .hh.v.RH]].cint, 18);
- }
- goto lab81;
- }
- break;
- case 15 :
- {
- switch(cur_style / 2)
- {case 0 :
- {
- p = mem[q + 1].hh.v.LH;
- mem[q + 1].hh.v.LH = 0;
- }
- break;
- case 1 :
- {
- p = mem[q + 1].hh.v.RH;
- mem[q + 1].hh.v.RH = 0;
- }
- break;
- case 2 :
- {
- p = mem[q + 2].hh.v.LH;
- mem[q + 2].hh.v.LH = 0;
- }
- break;
- case 3 :
- {
- p = mem[q + 2].hh.v.RH;
- mem[q + 2].hh.v.RH = 0;
- }
- break;
- }
- flush_node_list(mem[q + 1].hh.v.LH);
- flush_node_list(mem[q + 1].hh.v.RH);
- flush_node_list(mem[q + 2].hh.v.LH);
- flush_node_list(mem[q + 2].hh.v.RH);
- mem[q].hh.b0 = 14;
- mem[q].hh.b1 = cur_style;
- mem[q + 1].cint = 0;
- mem[q + 2].cint = 0;
- if (p != 0)/* if p<>null then l.14317 */
- {
- z = mem[q].hh.v.RH;
- mem[q].hh.v.RH = p;
-/* while link(p)<>null do p:=link(p); */
- while(mem[p].hh.v.RH != 0)p = mem[p].hh.v.RH;
- mem[p].hh.v.RH = z;
- }
- goto lab81;
- }
- break;
- case 3 :
- case 4 :
- case 5 :
- case 8 :
- case 12 :
- case 7 :
- goto lab81;
- break;
- case 2 :
- {
- if (mem[q + 3].cint > max_h)
- max_h = mem[q + 3].cint;
- if (mem[q + 2].cint > maxd)
- maxd = mem[q + 2].cint;
- goto lab81;
- }
- break;
- case 10 :
- {
- if (mem[q].hh.b1 == 99)
- {
- x = mem[q + 1].hh.v.LH;
- y = math_glue(x, cur_mu);
- delete_glue_ref(x);
- mem[q + 1].hh.v.LH = y;
- mem[q].hh.b1 = 0;
- }
- else if ((cur_size != 0)&&(mem[q].hh.b1 == 98))
- {
- p = mem[q].hh.v.RH;
-/* if p<>null then if (type(p)=glue_node)or(type(p)=kern_node) then */
- if (p != 0)
- if ((mem[p].hh.b0 == 10)||(mem[p].hh.b0 == 11))
- {
- mem[q].hh.v.RH = mem[p].hh.v.RH;
- mem[p].hh.v.RH = 0;
- flush_node_list(p);
- }
- }
- goto lab81;
- }
- break;
- case 11 :
- {
- math_kern(q, cur_mu);
- goto lab81;
- }
- break;
- default:
- {
- confusion("mlist1");
- return; // abort_flag set
- }
- break;
- } /* end of switch */
-
- switch(mem[q + 1].hh.v.RH){
- case 1 :
- case 4 :
- {
- fetch(q + 1);
- if ((cur_i.b0 > 0))
- {
- delta = font_info[italic_base[cur_f]+(cur_i.b2)/ 4].cint;
- p = new_character(cur_f, cur_c);
- if ((mem[q + 1].hh.v.RH == 4)&&(font_info[2 + param_base
- [cur_f]].cint != 0))
- delta = 0;
- if ((mem[q + 3].hh.v.RH == 0)&&(delta != 0))
- {
- mem[p].hh.v.RH = new_kern(delta);
- delta = 0;
- }
- }
- else p = 0;
- }
- break;
- case 0 :
- p = 0;
- break;
- case 2 :
- p = mem[q + 1].hh.v.LH;
- break;
- case 3 :
- {
- cur_mlist = mem[q + 1].hh.v.LH;
- savestyle = cur_style;
- mlist_penalties = false;
- mlist_to_hlist();
- cur_style = savestyle;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
- .hh.v.RH]].cint, 18);
- }
- p = hpack(mem[temp_head].hh.v.RH, 0, 1);
- }
- break;
- default:
- {
- confusion("mlist2");
- return; // abort_flag set
- }
- break;
- } /* end of switch */
-
- mem[q + 1].cint = p; /* p may be used without ... */
- if ((mem[q + 3].hh.v.RH == 0)&&(mem[q + 2].hh.v.RH == 0)
- )
- goto lab82;
- make_scripts(q, delta);
- lab82: z = hpack(mem[q + 1].cint, 0, 1);
- if (mem[z + 3].cint > max_h)
- max_h = mem[z + 3].cint;
- if (mem[z + 2].cint > maxd)
- maxd = mem[z + 2].cint;
- free_node(z, 7);
- lab80: r = q;
- rtype = mem[r].hh.b0;
- lab81: q = mem[q].hh.v.RH;
- }
- if (rtype == 18)
- mem[r].hh.b0 = 16;
- p = temp_head;
- mem[p].hh.v.RH = 0;
- q = mlist;
- rtype = 0;
- cur_style = style;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint, 18);
- }
- while(q != 0){
-
- t = 16;
- s = 4;
- pen = 10000;
- switch(mem[q].hh.b0)
- {case 17 :
- case 20 :
- case 21 :
- case 22 :
- case 23 :
- t = mem[q].hh.b0;
- break;
- case 18 :
- {
- t = 18;
- pen = eqtb[(hash_size + 3172)].cint;
- }
- break;
- case 19 :
- {
- t = 19;
- pen = eqtb[(hash_size + 3173)].cint;
- }
- break;
- case 16 :
- case 29 :
- case 27 :
- case 26 :
- ;
- break;
- case 24 :
- s = 5;
- break;
- case 28 :
- s = 5;
- break;
- case 25 :
- {
- t = 23;
- s = 6;
- }
- break;
- case 30 :
- case 31 :
- t = make_left_right(q, style, maxd, max_h);
- break;
- case 14 :
- {
- cur_style = mem[q].hh.b1;
- s = 3;
- {
- if (cur_style < 4)
- cur_size = 0;
- else cur_size = 16 *((cur_style - 2)/ 2);
- cur_mu = x_over_n(font_info[6 + param_base[eqtb[(hash_size + 1837) + cur_size]
- .hh.v.RH]].cint, 18);
- }
- goto lab83;
- }
- break;
- case 8 :
- case 12 :
- case 2 :
- case 7 :
- case 5 :
- case 3 :
- case 4 :
- case 10 :
- case 11 :
- {
- mem[p].hh.v.RH = q;
- p = q;
- q = mem[q].hh.v.RH;
- mem[p].hh.v.RH = 0;
- goto lab30;
- }
- break;
- default:
- {
- confusion("mlist3");
- return; // abort_flag set
- }
- break;
- }
- if (rtype > 0)
- {
- switch(str_pool[rtype * 8 + t + magic_offset])
- {case 48 :
- x = 0;
- break;
- case 49 :
- if (cur_style < 4)
- x = 15;
- else x = 0;
- break;
- case 50 :
- x = 15;
- break;
- case 51 :
- if (cur_style < 4)
- x = 16;
- else x = 0;
- break;
- case 52 :
- if (cur_style < 4)
- x = 17;
- else x = 0;
- break;
- default:
- {
- confusion("mlist4");
- return; // abort_flag set
- }
- break;
- }
- if (x != 0)
- {
- y = math_glue(eqtb[(hash_size + 782) + x].hh.v.RH, cur_mu); /* gluebase + x */
- z = new_glue(y);
- mem[y].hh.v.RH = 0;
- mem[p].hh.v.RH = z;
- p = z;
- mem[z].hh.b1 = x + 1; /* x may be used without ... */
- }
- }
- if (mem[q + 1].cint != 0)
- {
- mem[p].hh.v.RH = mem[q + 1].cint;
- do {
- p = mem[p].hh.v.RH;
- } while(!(mem[p].hh.v.RH == 0));
- }
- if (penalties)
- if (mem[q].hh.v.RH != 0)
- if (pen < 10000)
- {
- rtype = mem[mem[q].hh.v.RH].hh.b0;
- if (rtype != 12)
- if (rtype != 19)
- {
- z = new_penalty(pen);
- mem[p].hh.v.RH = z;
- p = z;
- }
- }
- rtype = t;
- lab83: r = q;
- q = mem[q].hh.v.RH;
- free_node(r, s);
- lab30:;
- }
-}
-void push_alignment (void)
-{
- halfword p;
- p = get_node(5);
- mem[p].hh.v.RH = align_ptr;
- mem[p].hh.v.LH = cur_align;
- mem[p + 1].hh.v.LH = mem[align_head].hh.v.RH;
- mem[p + 1].hh.v.RH = cur_span;
- mem[p + 2].cint = cur_loop;
- mem[p + 3].cint = align_state;
- mem[p + 4].hh.v.LH = cur_head;
- mem[p + 4].hh.v.RH = cur_tail;
- align_ptr = p;
- cur_head = get_avail();
-}
-void pop_alignment (void)
-{
- halfword p;
- {
- mem[cur_head].hh.v.RH = avail;
- avail = cur_head;
- ;
-#ifdef STAT
- decr(dyn_used);
-#endif /* STAT */
- }
- p = align_ptr;
- cur_tail = mem[p + 4].hh.v.RH;
- cur_head = mem[p + 4].hh.v.LH;
- align_state = mem[p + 3].cint;
- cur_loop = mem[p + 2].cint;
- cur_span = mem[p + 1].hh.v.RH;
- mem[align_head].hh.v.RH = mem[p + 1].hh.v.LH;
- cur_align = mem[p].hh.v.LH;
- align_ptr = mem[p].hh.v.RH;
- free_node(p, 5);
-}
-void get_preamble_token (void)
-{/* 20 */
- lab20: get_token();
- while((cur_chr == 256)&&(cur_cmd == 4)) {
-
- get_token();
- if (cur_cmd > 100)
- {
- expand();
- get_token();
- }
- }
- if (cur_cmd == 9){
- fatal_error("(interwoven alignment preambles are not allowed)"); /* */
- return; // abort_flag set
- }
- if ((cur_cmd == 75)&&(cur_chr == (hash_size + 793)))
- {
- scan_optional_equals();
- scan_glue(2);
- if (eqtb[(hash_size + 3206)].cint > 0)
- geq_define((hash_size + 793), 117, cur_val);
- else eq_define((hash_size + 793), 117, cur_val);
- goto lab20;
- }
-}
-void init_align (void)
-{/* 30 31 32 22 */
- halfword savecsptr;
- halfword p;
- savecsptr = cur_cs;
- push_alignment();
- align_state = -1000000L;
- if ((mode == 203)&&((tail != cur_list
- .head_field)||(cur_list.aux_field.cint != 0)))
- {
- print_err("Improper ");
- print_esc("halign");
- print_string("inside $$");
- help3("Displays can use special alignments (like \\eqalignno)",
- "only if nothing but the alignment itself is between $$'s.",
- "So I've deleted the formulas that preceded this alignment.");
- error();
- flush_math();
- }
- push_nest();
- if (mode == 203)
- {
- mode = -1;
- cur_list.aux_field.cint = nest[nest_ptr - 2].aux_field.cint;
- }
- else if (mode > 0)
-/* long to short ... */
- mode = - (integer) mode;
- scan_spec(6, false);
- mem[align_head].hh.v.RH = 0;
- cur_align = align_head;
- cur_loop = 0;
- scanner_status = 4;
- warning_index = savecsptr;
- align_state = -1000000L;
- while(true){
- mem[cur_align].hh.v.RH = new_param_glue(11);
- cur_align = mem[cur_align].hh.v.RH;
- if (cur_cmd == 5)
- goto lab30;
- p = hold_head;
- mem[p].hh.v.RH = 0;
- while(true){
- get_preamble_token();
- if (cur_cmd == 6)
- goto lab31;
- if ((cur_cmd <= 5)&&(cur_cmd >= 4)&&(align_state == -1000000L))
- if ((p == hold_head)&&(cur_loop == 0)&&(cur_cmd == 4))
- cur_loop = cur_align;
- else {
- print_err("Missing # inserted in alignment preamble");
- help3("There should be exactly one # between &'s, when an",
- "\\halign or \\valign is being set up. In this case you had",
- "none, so I've put one in; maybe that will work.");
- back_error();
- goto lab31;
- }
- else if ((cur_cmd != 10)||(p != hold_head))
- {
- mem[p].hh.v.RH = get_avail();
- p = mem[p].hh.v.RH;
- mem[p].hh.v.LH = cur_tok;
- }
- }
- lab31:;
- mem[cur_align].hh.v.RH = new_null_box();
- cur_align = mem[cur_align].hh.v.RH;
- mem[cur_align].hh.v.LH = end_span;
- mem[cur_align + 1].cint = -1073741824L; /* - 2^30 */
- mem[cur_align + 3].cint = mem[hold_head].hh.v.RH;
- p = hold_head;
- mem[p].hh.v.RH = 0;
- while(true){
-lab22:
- get_preamble_token();
- if ((cur_cmd <= 5)&&(cur_cmd >= 4)&&(align_state == -1000000L))
- goto lab32;
- if (cur_cmd == 6)
- {
- print_err("Only one # is allowed per tab");
- help3("There should be exactly one # between &'s, when an",
- "\\halign or \\valign is being set up. In this case you had",
- "more than one, so I'm ignoring all but the first.");
- error();
- goto lab22;
- }
- mem[p].hh.v.RH = get_avail();
- p = mem[p].hh.v.RH;
- mem[p].hh.v.LH = cur_tok;
- }
- lab32: mem[p].hh.v.RH = get_avail();
- p = mem[p].hh.v.RH;
-/* mem[p].hh.v.LH = (hash_size + 4614); */
-/* mem[p].hh.v.LH = (hash_size + 4095 + 519); */
- mem[p].hh.v.LH = (hash_size + hash_extra + 4095 + 519); /* 96/Jan/10 */
- mem[cur_align + 2].cint = mem[hold_head].hh.v.RH;
- }
- lab30: scanner_status = 0;
- new_save_level(6);
-/* if every_cr<>null then begin_token_list(every_cr,every_cr_text); l.15665 */
- if (eqtb[(hash_size + 1320)].hh.v.RH != 0)/* everycr */
- begin_token_list(eqtb[(hash_size + 1320)].hh.v.RH, 13);
- align_peek();
-}
-void init_span_ (halfword p)
-{
- push_nest();
- if (mode == -102)
- space_factor = 1000;
- else {
-
- cur_list.aux_field.cint = ignore_depth;
- normal_paragraph();
- }
- cur_span = p;
-}
-void init_row (void)
-{
- push_nest();
- mode =(-103)- mode;
- if (mode == -102)
- space_factor = 0;
- else cur_list.aux_field.cint = 0;
- {
- mem[tail].hh.v.RH = new_glue(mem[mem[align_head]
- .hh.v.RH + 1].hh.v.LH);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b1 = 12;
- cur_align = mem[mem[align_head].hh.v.RH].hh.v.RH;
- cur_tail = cur_head;
- init_span(cur_align);
-}
-void init_col (void)
-{
- mem[cur_align + 5].hh.v.LH = cur_cmd;
- if (cur_cmd == 63)
- align_state = 0;
- else {
-
- back_input();
- begin_token_list(mem[cur_align + 3].cint, 1);
- }
-}
-/* fin_col() moved to end to hide in pragma (g, "off") */
-/* may need to move more ? everything calling new_null_box() ? */
-void fin_row (void)
-{
- halfword p;
- if (mode == -102)
- {
- p = hpack(mem[head].hh.v.RH, 0, 1);
- pop_nest();
- append_to_vlist(p);
- if (cur_head != cur_tail)
- {
- mem[tail].hh.v.RH = mem[cur_head].hh.v.RH;
- tail = cur_tail;
- }
- }
- else {
-
- p = vpackage(mem[head].hh.v.RH, 0, 1,
- 1073741823L); /* 2^30 - 1 */
- pop_nest();
- mem[tail].hh.v.RH = p;
- tail = p;
- space_factor = 1000;
- }
- mem[p].hh.b0 = 13;
- mem[p + 6].cint = 0;
- if (eqtb[(hash_size + 1320)].hh.v.RH != 0)/* everycr */
- begin_token_list(eqtb[(hash_size + 1320)].hh.v.RH, 13);
- align_peek();
-}
-void fin_align (void)
-{
- halfword p, q, r, s, u, v;
- scaled t, w;
- scaled o;
- halfword n;
- scaled rulesave;
- memory_word auxsave;
-
- if (cur_group != 6){
- confusion("align1");
- return; // abort_flag set
- }
- unsave();
- if (cur_group != 6){
- confusion("align0");
- return; // abort_flag set
- }
- unsave();
- if (nest[nest_ptr - 1].mode_field == 203)
- o = eqtb[(hash_size + 3745)].cint;
- else o = 0;
- q = mem[mem[align_head].hh.v.RH].hh.v.RH;
- do {
- flush_list(mem[q + 3].cint);
- flush_list(mem[q + 2].cint);
- p = mem[mem[q].hh.v.RH].hh.v.RH;
- if (mem[q + 1].cint == -1073741824L) /* - 2^30 */
- {
- mem[q + 1].cint = 0;
- r = mem[q].hh.v.RH;
- s = mem[r + 1].hh.v.LH;
- if (s != 0)
- {
- incr(mem[0].hh.v.RH); /* mem[mem_bot]? mem[null]? */
- delete_glue_ref(s);
- mem[r + 1].hh.v.LH = 0;
- }
- }
- if (mem[q].hh.v.LH != end_span)
- {
- t = mem[q + 1].cint + mem[mem[mem[q].hh.v.RH + 1].hh
- .v.LH + 1].cint;
- r = mem[q].hh.v.LH;
- s = end_span;
- mem[s].hh.v.LH = p;
- n = 1;
- do {
- mem[r + 1].cint = mem[r + 1].cint - t;
- u = mem[r].hh.v.LH;
- while(mem[r].hh.v.RH > n){
-
- s = mem[s].hh.v.LH;
- n = mem[mem[s].hh.v.LH].hh.v.RH + 1;
- }
- if (mem[r].hh.v.RH < n)
- {
- mem[r].hh.v.LH = mem[s].hh.v.LH;
- mem[s].hh.v.LH = r;
- decr(mem[r].hh.v.RH);
- s = r;
- }
- else {
-
- if (mem[r + 1].cint > mem[mem[s].hh.v.LH + 1].cint)
- mem[mem[s].hh.v.LH + 1].cint = mem[r + 1].cint;
- free_node(r, 2);
- }
- r = u;
- } while(!(r == end_span));
- }
- mem[q].hh.b0 = 13;
- mem[q].hh.b1 = 0;
- mem[q + 3].cint = 0;
- mem[q + 2].cint = 0;
- mem[q + 5].hh.b1 = 0;
- mem[q + 5].hh.b0 = 0;
- mem[q + 6].cint = 0;
- mem[q + 4].cint = 0;
- q = p;
- } while(!(q == 0));
- save_ptr = save_ptr - 2;
- pack_begin_line = - (integer) mode_line;
- if (mode == -1)
- {
- rulesave = eqtb[(hash_size + 3746)].cint;
- eqtb[(hash_size + 3746)].cint = 0;
- p = hpack(mem[align_head].hh.v.RH, save_stack[save_ptr + 1].cint
- , save_stack[save_ptr + 0].cint);
- eqtb[(hash_size + 3746)].cint = rulesave;
- }
- else {
-
- q = mem[mem[align_head].hh.v.RH].hh.v.RH;
- do {
- mem[q + 3].cint = mem[q + 1].cint;
- mem[q + 1].cint = 0;
- q = mem[mem[q].hh.v.RH].hh.v.RH;
- } while(!(q == 0));
- p = vpackage(mem[align_head].hh.v.RH, save_stack[save_ptr + 1]
- .cint, save_stack[save_ptr + 0].cint, 1073741823L); /* 2^30 - 1 */
- q = mem[mem[align_head].hh.v.RH].hh.v.RH;
- do {
- mem[q + 1].cint = mem[q + 3].cint;
- mem[q + 3].cint = 0;
- q = mem[mem[q].hh.v.RH].hh.v.RH;
- } while(!(q == 0));
- }
- pack_begin_line = 0;
- q = mem[head].hh.v.RH;
- s = head;
- while(q != 0){ /* while q<>null l.15794 OK */
-
- if (!(q >= hi_mem_min)) /* begin if not is_char_node(q) then */
- if (mem[q].hh.b0 == 13)
- {
- if (mode == -1)
- {
- mem[q].hh.b0 = 0;
- mem[q + 1].cint = mem[p + 1].cint;
- }
- else {
-
- mem[q].hh.b0 = 1;
- mem[q + 3].cint = mem[p + 3].cint;
- }
- mem[q + 5].hh.b1 = mem[p + 5].hh.b1;
- mem[q + 5].hh.b0 = mem[p + 5].hh.b0;
- mem[q + 6].gr = mem[p + 6].gr;
- mem[q + 4].cint = o;
- r = mem[mem[q + 5].hh.v.RH].hh.v.RH;
- s = mem[mem[p + 5].hh.v.RH].hh.v.RH;
- do {
- n = mem[r].hh.b1;
- t = mem[s + 1].cint;
- w = t;
- u = hold_head;
- while(n > 0){
-
- decr(n);
- s = mem[s].hh.v.RH;
- v = mem[s + 1].hh.v.LH;
- mem[u].hh.v.RH = new_glue(v);
- u = mem[u].hh.v.RH;
- mem[u].hh.b1 = 12;
- t = t + mem[v + 1].cint;
- if (mem[p + 5].hh.b0 == 1)
- {
- if (mem[v].hh.b0 == mem[p + 5].hh.b1)
- t = t + round(mem[p + 6].gr * mem[v + 2].cint);
- }
- else if (mem[p + 5].hh.b0 == 2)
- {
- if (mem[v].hh.b1 == mem[p + 5].hh.b1)
- t = t - round(mem[p + 6].gr * mem[v + 3].cint);
- }
- s = mem[s].hh.v.RH;
- mem[u].hh.v.RH = new_null_box();
- u = mem[u].hh.v.RH;
- t = t + mem[s + 1].cint;
- if (mode == -1)
- mem[u + 1].cint = mem[s + 1].cint;
- else {
-
- mem[u].hh.b0 = 1;
- mem[u + 3].cint = mem[s + 1].cint;
- }
- }
- if (mode == -1)
- {
- mem[r + 3].cint = mem[q + 3].cint;
- mem[r + 2].cint = mem[q + 2].cint;
- if (t == mem[r + 1].cint)
- {
- mem[r + 5].hh.b0 = 0;
- mem[r + 5].hh.b1 = 0;
- mem[r + 6].gr = 0.0;
- }
- else if (t > mem[r + 1].cint)
- {
- mem[r + 5].hh.b0 = 1;
- if (mem[r + 6].cint == 0)
- mem[r + 6].gr = 0.0;
- else mem[r + 6].gr =(t - mem[r + 1].cint)/ ((double)
- mem[r + 6].cint);
- }
- else {
-
- mem[r + 5].hh.b1 = mem[r + 5].hh.b0;
- mem[r + 5].hh.b0 = 2;
- if (mem[r + 4].cint == 0)
- mem[r + 6].gr = 0.0;
- else if ((mem[r + 5].hh.b1 == 0)&&(mem[r + 1].cint -
- t > mem[r + 4].cint))
- mem[r + 6].gr = 1.0;
- else mem[r + 6].gr =(mem[r + 1].cint - t)/ ((double)
- mem[r + 4].cint);
- }
- mem[r + 1].cint = w;
- mem[r].hh.b0 = 0;
- }
- else {
-
- mem[r + 1].cint = mem[q + 1].cint;
- if (t == mem[r + 3].cint)
- {
- mem[r + 5].hh.b0 = 0;
- mem[r + 5].hh.b1 = 0;
- mem[r + 6].gr = 0.0;
- }
- else if (t > mem[r + 3].cint)
- {
- mem[r + 5].hh.b0 = 1;
- if (mem[r + 6].cint == 0)
- mem[r + 6].gr = 0.0;
- else mem[r + 6].gr =(t - mem[r + 3].cint)/ ((double)
- mem[r + 6].cint);
- }
- else {
-
- mem[r + 5].hh.b1 = mem[r + 5].hh.b0;
- mem[r + 5].hh.b0 = 2;
- if (mem[r + 4].cint == 0)
- mem[r + 6].gr = 0.0;
- else if ((mem[r + 5].hh.b1 == 0)&&(mem[r + 3].cint -
- t > mem[r + 4].cint))
- mem[r + 6].gr = 1.0;
- else mem[r + 6].gr =(mem[r + 3].cint - t)/ ((double)
- mem[r + 4].cint);
- }
- mem[r + 3].cint = w;
- mem[r].hh.b0 = 1;
- }
- mem[r + 4].cint = 0;
- if (u != hold_head)
- {
- mem[u].hh.v.RH = mem[r].hh.v.RH;
- mem[r].hh.v.RH = mem[hold_head].hh.v.RH;
- r = u;
- }
- r = mem[mem[r].hh.v.RH].hh.v.RH;
- s = mem[mem[s].hh.v.RH].hh.v.RH;
- } while(!(r == 0));
- }
- else if (mem[q].hh.b0 == 2)
- {
- if ((mem[q + 1].cint == -1073741824L)) /* 2^30 */
- mem[q + 1].cint = mem[p + 1].cint;
- if ((mem[q + 3].cint == -1073741824L)) /* 2^30 */
- mem[q + 3].cint = mem[p + 3].cint;
- if ((mem[q + 2].cint == -1073741824L)) /* 2^30 */
- mem[q + 2].cint = mem[p + 2].cint;
- if (o != 0)
- {
- r = mem[q].hh.v.RH;
- mem[q].hh.v.RH = 0;
- q = hpack(q, 0, 1);
- mem[q + 4].cint = o;
- mem[q].hh.v.RH = r;
- mem[s].hh.v.RH = q;
- }
- }
- s = q;
- q = mem[q].hh.v.RH;
- }
- flush_node_list(p);
- pop_alignment();
- auxsave = cur_list.aux_field;
- p = mem[head].hh.v.RH;
- q = tail;
- pop_nest();
- if (mode == 203)
- {
- do_assignments();
- if (cur_cmd != 3) {
- print_err("Missing $$ inserted");
- help2("Displays can use special alignments (like \\eqalignno)",
- "only if nothing but the alignment itself is between $$'s.");
- back_error();
- }
- else {
-
- get_x_token();
- if (cur_cmd != 3)
- {
- print_err("Display math should end with $$");
- help2("The `$' that I just saw supposedly matches a previous `$$'.",
- "So I shall assume that you typed `$$' both times.");
- back_error();
- }
- }
- pop_nest();
- {
- mem[tail].hh.v.RH = new_penalty(eqtb[(hash_size + 3174)].cint
- );
- tail = mem[tail].hh.v.RH;
- }
- {
- mem[tail].hh.v.RH = new_param_glue(3);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.v.RH = p;
- if (p != 0)
- tail = q;
- {
- mem[tail].hh.v.RH = new_penalty(eqtb[(hash_size + 3175)].cint
- );
- tail = mem[tail].hh.v.RH;
- }
- {
- mem[tail].hh.v.RH = new_param_glue(4);
- tail = mem[tail].hh.v.RH;
- }
- cur_list.aux_field.cint = auxsave.cint;
- resume_after_display();
- }
- else {
-
- cur_list.aux_field = auxsave;
- mem[tail].hh.v.RH = p;
- if (p != 0) /* if p<>null then tail:=q; l.15926 */
- tail = q;
- if (mode == 1){
- build_page();
- }
- }
-}
-/* used to be align_peek, zfintieshrink, etc in old tex5.c */
-/************************************************************************/
-/* moved down here to avoid questions about pragma optimize */
-#pragma optimize("g", off) /* for MC VS compiler */
-/* Moved down here 96/Oct/12 in response to problem with texerror.tex */
-/* pragma optimize("a", off) not strong enough - this may slow things */
-bool fin_col (void)
-{/* 10 */ register bool Result;
- halfword p;
- halfword q, r;
- halfword s;
- halfword u;
- scaled w;
- glue_ord o;
- halfword n;
- if (cur_align == 0){
- confusion("endv");
- return 0; // abort_flag set
- }
- q = mem[cur_align].hh.v.RH;
- if (q == 0){
- confusion("endv");
- return 0; // abort_flag set
- }
- if (align_state < 500000L) { /* ??? */
- fatal_error("(interwoven alignment preambles are not allowed)"); /* */
- return 0; // abort_flag set
- }
- p = mem[q].hh.v.RH; /* p <- link(q) p.791 */
-/* if (p = null) ^ (extra_info(cur_align) < cr_code) then p.792 */
- if ((p == 0)&&(mem[cur_align + 5].hh.v.LH < 257))
- if (cur_loop != 0)
- {
-/* potential problem here if new_null_box causes memory reallocation ??? */
-/* compiler optimization does not refresh `mem' loaded in registers ? */
- mem[q].hh.v.RH = new_null_box();
- p = mem[q].hh.v.RH;
- mem[p].hh.v.LH = end_span;
- mem[p + 1].cint = -1073741824L; /* - 2^30 */
- cur_loop = mem[cur_loop].hh.v.RH;
- q = hold_head;
- r = mem[cur_loop + 3].cint;
- while(r != 0){
-
- mem[q].hh.v.RH = get_avail();
- q = mem[q].hh.v.RH;
- mem[q].hh.v.LH = mem[r].hh.v.LH;
- r = mem[r].hh.v.RH;
- }
- mem[q].hh.v.RH = 0;
- mem[p + 3].cint = mem[hold_head].hh.v.RH;
- q = hold_head;
- r = mem[cur_loop + 2].cint;
- while(r != 0){
-
- mem[q].hh.v.RH = get_avail();
- q = mem[q].hh.v.RH;
- mem[q].hh.v.LH = mem[r].hh.v.LH;
- r = mem[r].hh.v.RH;
- }
- mem[q].hh.v.RH = 0;
- mem[p + 2].cint = mem[hold_head].hh.v.RH;
- cur_loop = mem[cur_loop].hh.v.RH;
- mem[p].hh.v.RH = new_glue(mem[cur_loop + 1].hh.v.LH);
- }
- else {
- print_err("Extra alignment tab has been changed to ");
- print_esc("cr");
- help3("You have given more \\span or & marks than there were",
- "in the preamble to the \\halign or \\valign now in progress.",
- "So I'll assume that you meant to type \\cr instead.");
-/* extra_info(cur_align) < cr_code) ? */
- mem[cur_align + 5].hh.v.LH = 257;
- error();
- }
- if (mem[cur_align + 5].hh.v.LH != 256)
- {
- unsave();
- new_save_level(6);
- {
- if (mode == -102)
- {
- adjust_tail = cur_tail;
- u = hpack(mem[head].hh.v.RH, 0, 1);
- w = mem[u + 1].cint;
- cur_tail = adjust_tail;
- adjust_tail = 0;
- }
- else {
-
- u = vpackage(mem[head].hh.v.RH, 0, 1, 0);
- w = mem[u + 3].cint;
- }
- n = 0;
- if (cur_span != cur_align)
- {
- q = cur_span;
- do {
- incr(n);
- q = mem[mem[q].hh.v.RH].hh.v.RH;
- } while(!(q == cur_align));
-/* if n > max_quarterword then confusion("256 spans"); p.798 */
-/* if (n > 255) */ /* 94/Apr/4 ? */
- if (n > max_quarterword) { /* 96/Oct/12 ??? */
- confusion("256 spans"); /* 256 spans --- message wrong now, but ... */
- return 0; // abort_flag set
- }
- q = cur_span;
- while(mem[mem[q].hh.v.LH].hh.v.RH < n)q = mem[q].hh
- .v.LH;
- if (mem[mem[q].hh.v.LH].hh.v.RH > n)
- {
- s = get_node(2);
- mem[s].hh.v.LH = mem[q].hh.v.LH;
- mem[s].hh.v.RH = n;
- mem[q].hh.v.LH = s;
- mem[s + 1].cint = w;
- }
- else if (mem[mem[q].hh.v.LH + 1].cint < w)
- mem[mem[q].hh.v.LH + 1].cint = w;
- }
- else if (w > mem[cur_align + 1].cint)
- mem[cur_align + 1].cint = w;
- mem[u].hh.b0 = 13;
- mem[u].hh.b1 = n;
- if (totalstretch[3]!= 0)
- o = 3;
- else if (totalstretch[2]!= 0)
- o = 2;
- else if (totalstretch[1]!= 0)
- o = 1;
- else o = 0;
- mem[u + 5].hh.b1 = o;
- mem[u + 6].cint = totalstretch[o];
- if (totalshrink[3]!= 0)
- o = 3;
- else if (totalshrink[2]!= 0)
- o = 2;
- else if (totalshrink[1]!= 0)
- o = 1;
- else o = 0;
- mem[u + 5].hh.b0 = o;
- mem[u + 4].cint = totalshrink[o];
- pop_nest();
- mem[tail].hh.v.RH = u;
- tail = u;
- }
- {
- mem[tail].hh.v.RH = new_glue(mem[mem[cur_align]
- .hh.v.RH + 1].hh.v.LH);
- tail = mem[tail].hh.v.RH;
- }
- mem[tail].hh.b1 = 12;
-/* if (extra_info(cur_align) >= cr_code) then p.792 */
- if (mem[cur_align + 5].hh.v.LH >= 257)
- {
- Result = true;
- return(Result);
- }
- init_span(p);
- }
- align_state = 1000000L;
- do {
- get_x_token();
- } while(!(cur_cmd != 10));
- cur_align = p;
- init_col();
- Result = false;
- return Result;
-}
-/* #pragma optimize ("g", on) */ /* for MC VS compiler */
-/* #pragma optimize ("g",) */ /* 94/Jan/25 */
-/* #pragma optimize ("", on) */ /* 96/Sep/12 */
-/* #pragma optimize("g", off) */ /* for MC VS compiler */
-
-scaled make_op_(halfword q)
-{register scaled Result;
- scaled delta;
- halfword p, v, x, y, z;
- quarterword c;
- ffourquarters i;
- scaled shiftup, shiftdown;
- if ((mem[q].hh.b1 == 0)&&(cur_style < 2))
- mem[q].hh.b1 = 1;
- if (mem[q + 1].hh.v.RH == 1)
- {
- fetch(q + 1);
- if ((cur_style < 2)&&(((cur_i.b2)% 4)== 2))
- {
- c = cur_i.b3;
- i = font_info[char_base[cur_f]+ c].qqqq;
- if ((i.b0 > 0))
- {
- cur_c = c;
- cur_i = i;
- mem[q + 1].hh.b1 = c;
- }
- }
- delta = font_info[italic_base[cur_f]+(cur_i.b2)/ 4].cint;
- x = clean_box(q + 1, cur_style);
- if ((mem[q + 3].hh.v.RH != 0)&&(mem[q].hh.b1 != 1))
- mem[x + 1].cint = mem[x + 1].cint - delta;
- mem[x + 4].cint = half(mem[x + 3].cint - mem[x + 2].cint)-
- font_info[22 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint;
- mem[q + 1].hh.v.RH = 2;
- mem[q + 1].hh.v.LH = x;
- }
- else delta = 0;
- if (mem[q].hh.b1 == 1)
- {
- x = clean_box(q + 2, 2 *(cur_style / 4)+ 4 +(cur_style % 2));
- y = clean_box(q + 1, cur_style);
- z = clean_box(q + 3, 2 *(cur_style / 4)+ 5);
- v = new_null_box();
- mem[v].hh.b0 = 1;
- mem[v + 1].cint = mem[y + 1].cint;
- if (mem[x + 1].cint > mem[v + 1].cint)
- mem[v + 1].cint = mem[x + 1].cint;
- if (mem[z + 1].cint > mem[v + 1].cint)
- mem[v + 1].cint = mem[z + 1].cint;
- x = rebox(x, mem[v + 1].cint);
- y = rebox(y, mem[v + 1].cint);
- z = rebox(z, mem[v + 1].cint);
- mem[x + 4].cint = half(delta);
- mem[z + 4].cint = - (integer) mem[x + 4].cint;
- mem[v + 3].cint = mem[y + 3].cint;
- mem[v + 2].cint = mem[y + 2].cint;
- if (mem[q + 2].hh.v.RH == 0)
- {
- free_node(x, 7);
- mem[v + 5].hh.v.RH = y;
- }
- else {
-
- shiftup = font_info[11 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH
- ]].cint - mem[x + 2].cint;
- if (shiftup < font_info[9 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint)
- shiftup = font_info[9 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH
- ]].cint;
- p = new_kern(shiftup);
- mem[p].hh.v.RH = y;
- mem[x].hh.v.RH = p;
- p = new_kern(font_info[13 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint);
- mem[p].hh.v.RH = x;
- mem[v + 5].hh.v.RH = p;
- mem[v + 3].cint = mem[v + 3].cint + font_info[13 + param_base[
- eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint + mem[x + 3].cint + mem
- [x + 2].cint + shiftup;
- }
- if (mem[q + 3].hh.v.RH == 0)
- free_node(z, 7);
- else {
-
- shiftdown = font_info[12 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint - mem[z + 3].cint;
- if (shiftdown < font_info[10 + param_base[eqtb[(hash_size + 1838) + cur_size]
- .hh.v.RH]].cint)
- shiftdown = font_info[10 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint;
- p = new_kern(shiftdown);
- mem[y].hh.v.RH = p;
- mem[p].hh.v.RH = z;
- p = new_kern(font_info[13 + param_base[eqtb[(hash_size + 1838) + cur_size].hh
- .v.RH]].cint);
- mem[z].hh.v.RH = p;
- mem[v + 2].cint = mem[v + 2].cint + font_info[13 + param_base[
- eqtb[(hash_size + 1838) + cur_size].hh.v.RH]].cint + mem[z + 3].cint + mem
- [z + 2].cint + shiftdown;
- }
- mem[q + 1].cint = v;
- }
- Result = delta;
- return Result;
-}
-/* #pragma optimize ("g", on) */ /* for MC VS compiler */
-/* #pragma optimize ("g",) */ /* 94/Jan/25 */
-/* #pragma optimize ("", on) */ /* 96/Sep/12 */
-/* #pragma optimize ("g", off) */
-
-void make_scripts_(halfword q, scaled delta)
-{
- halfword p, x, y, z;
- scaled shiftup, shiftdown, clr;
- small_number t;
- p = mem[q + 1].cint;
- if ((p >= hi_mem_min))
- {
- shiftup = 0;
- shiftdown = 0;
- }
- else {
-
- z = hpack(p, 0, 1);
- if (cur_style < 4)
- t = 16;
- else t = 32;
- shiftup = mem[z + 3].cint - font_info[18 + param_base[eqtb[(hash_size + 1837) +
- t].hh.v.RH]].cint;
- shiftdown = mem[z + 2].cint + font_info[19 + param_base[eqtb[(hash_size + 1837)
- + t].hh.v.RH]].cint;
- free_node(z, 7);
- }
- if (mem[q + 2].hh.v.RH == 0)
- {
- x = clean_box(q + 3, 2 *(cur_style / 4)+ 5);
- mem[x + 1].cint = mem[x + 1].cint + eqtb[(hash_size + 3742)].cint;
- if (shiftdown < font_info[16 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint)
- shiftdown = font_info[16 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH
- ]].cint;
- clr = mem[x + 3].cint -(abs(font_info[5 + param_base[eqtb[
- (hash_size + 1837) + cur_size].hh.v.RH]].cint * 4)/ 5);
- if (shiftdown < clr)
- shiftdown = clr;
- mem[x + 4].cint = shiftdown;
- }
- else {
-
- {
- x = clean_box(q + 2, 2 *(cur_style / 4)+ 4 +(cur_style % 2));
- mem[x + 1].cint = mem[x + 1].cint + eqtb[(hash_size + 3742)].cint;
- if (odd(cur_style))
- clr = font_info[15 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]]
- .cint;
- else if (cur_style < 2)
- clr = font_info[13 + param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]]
- .cint;
- else clr = font_info[14 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint;
- if (shiftup < clr)
- shiftup = clr;
- clr = mem[x + 2].cint +(abs(font_info[5 +
- param_base[eqtb[(hash_size + 1837) + cur_size].hh.v.RH]].cint)/ 4);
- if (shiftup < clr)
- shiftup = clr;
- }
- if (mem[q + 3].hh.v.RH == 0)
- mem[x + 4].cint = - (integer) shiftup;
- else {
-
- y = clean_box(q + 3, 2 *(cur_style / 4)+ 5);
- mem[y + 1].cint = mem[y + 1].cint + eqtb[(hash_size + 3742)].cint;
- if (shiftdown < font_info[17 + param_base[eqtb[(hash_size + 1837) + cur_size]
- .hh.v.RH]].cint)
- shiftdown = font_info[17 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint;
- clr = 4 * font_info[8 + param_base[eqtb[(hash_size + 1838) + cur_size].hh.v.RH
- ]].cint -((shiftup - mem[x + 2].cint)-(mem[y + 3].cint
- - shiftdown));
- if (clr > 0)
- {
- shiftdown = shiftdown + clr;
- clr =(abs(font_info[5 + param_base[eqtb[(hash_size + 1837) + cur_size].hh
- .v.RH]].cint * 4)/ 5)-(shiftup - mem[x + 2].cint);
- if (clr > 0)
- {
- shiftup = shiftup + clr;
- shiftdown = shiftdown - clr;
- }
- }
- mem[x + 4].cint = delta;
- p = new_kern((shiftup - mem[x + 2].cint)-(mem[y + 3].cint
- - shiftdown));
- mem[x].hh.v.RH = p;
- mem[p].hh.v.RH = y;
- x = vpackage(x, 0, 1, 1073741823L); /* 2^30 - 1 */
- mem[x + 4].cint = shiftdown;
- }
- }
- if (mem[q + 1].cint == 0)
- mem[q + 1].cint = x;
- else {
-
- p = mem[q + 1].cint;
- while(mem[p].hh.v.RH != 0)p = mem[p].hh.v.RH;
- mem[p].hh.v.RH = x;
- }
-}
-/* #pragma optimize ("g", on) */ /* 96/Sep/12 */
-/* #pragma optimize ("g") */ /* 94/Jan/25 */
-#pragma optimize ("", on) /* 96/Sep/12 */
-/***************************************************************************/
+/*\r
+ Copyright 2014 Clerk Ma\r
+\r
+ This program is free software; you can redistribute it and/or modify\r
+ it under the terms of the GNU General Public License as published by\r
+ the Free Software Foundation; either version 2 of the License, or\r
+ (at your option) any later version.\r
+\r
+ This program is distributed in the hope that it will be useful, but\r
+ WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
+ General Public License for more details.\r
+\r
+ You should have received a copy of the GNU General Public License\r
+ along with this program; if not, write to the Free Software\r
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA\r
+ 02110-1301 USA.\r
+*/\r
+\r
+#define EXTERN extern\r
+#include "yandytex.h"\r
+\r
+/* sec 0715 */\r
+pointer rebox (pointer b, scaled w)\r
+{\r
+ pointer p;\r
+ internal_font_number f;\r
+ scaled v;\r
+\r
+ if ((width(b) != w) && (list_ptr(b) != 0))\r
+ {\r
+ if (type(b) == vlist_node)\r
+ b = hpack(b, 0, 1);\r
+\r
+ p = list_ptr(b);\r
+\r
+ if ((is_char_node(p)) && (link(p) == 0))\r
+ {\r
+ f = font(p);\r
+ v = char_width(f, char_info(f, character(p)));\r
+\r
+ if (v != width(b))\r
+ link(p) = new_kern(width(b) - v);\r
+ }\r
+\r
+ free_node(b, box_node_size);\r
+ b = new_glue(ss_glue);\r
+ link(b) = p;\r
+\r
+ while (link(p) != 0)\r
+ p = link(p);\r
+\r
+ link(p) = new_glue(ss_glue);\r
+ return hpack(b, w, exactly);\r
+ }\r
+ else\r
+ {\r
+ width(b) = w;\r
+ return b;\r
+ }\r
+}\r
+/* sec 0716 */\r
+pointer math_glue (pointer g, scaled m)\r
+{\r
+ pointer p;\r
+ integer n;\r
+ scaled f;\r
+\r
+ n = x_over_n(m, 65536L);\r
+ f = tex_remainder;\r
+\r
+ if (f < 0)\r
+ {\r
+ decr(n);\r
+ f = f + 65536L;\r
+ }\r
+\r
+ p = get_node(glue_spec_size);\r
+ width(p) = mu_mult(width(g));\r
+ stretch_order(p) = stretch_order(g);\r
+\r
+ if (stretch_order(p) == normal)\r
+ stretch(p) = mu_mult(stretch(g));\r
+ else\r
+ stretch(p) = stretch(g);\r
+\r
+ shrink_order(p) = shrink_order(g);\r
+\r
+ if (shrink_order(p) == normal)\r
+ shrink(p) = mu_mult(shrink(g));\r
+ else\r
+ shrink(p) = shrink(g);\r
+\r
+ return p;\r
+}\r
+/* sec 0717 */\r
+void math_kern (pointer p, scaled m)\r
+{\r
+ integer n;\r
+ scaled f;\r
+\r
+ if (subtype(p) == mu_glue)\r
+ {\r
+ n = x_over_n(m, 65536L);\r
+ f = tex_remainder;\r
+\r
+ if (f < 0)\r
+ {\r
+ decr(n);\r
+ f = f + 65536L;\r
+ }\r
+\r
+ width(p) = mu_mult(width(p));\r
+ subtype(p) = explicit;\r
+ }\r
+}\r
+/* sec 0718 */\r
+void flush_math (void)\r
+{\r
+ flush_node_list(link(head));\r
+ flush_node_list(incompleat_noad);\r
+ link(head) = 0;\r
+ tail = head;\r
+ incompleat_noad = 0;\r
+}\r
+/* sec 0720 */\r
+pointer clean_box (pointer p, small_number s)\r
+{\r
+ pointer q;\r
+ small_number save_style;\r
+ pointer x;\r
+ pointer r;\r
+\r
+ switch (math_type(p))\r
+ {\r
+ case math_char:\r
+ {\r
+ cur_mlist = new_noad();\r
+ mem[nucleus(cur_mlist)] = mem[p];\r
+ }\r
+ break;\r
+\r
+ case sub_box:\r
+ {\r
+ q = info(p);\r
+ goto found;\r
+ }\r
+ break;\r
+\r
+ case sub_mlist:\r
+ cur_mlist = info(p);\r
+ break;\r
+\r
+ default:\r
+ {\r
+ q = new_null_box();\r
+ goto found;\r
+ }\r
+ break;\r
+ }\r
+\r
+ save_style = cur_style;\r
+ cur_style = s;\r
+ mlist_penalties = false;\r
+ mlist_to_hlist();\r
+ q = link(temp_head);\r
+ cur_style = save_style;\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+found:\r
+ if (is_char_node(q) || (q == 0))\r
+ x = hpack(q, 0, 1);\r
+ else if ((link(q) == 0) && (type(q) <= vlist_node) && (shift_amount(q) == 0))\r
+ x = q;\r
+ else\r
+ x = hpack(q, 0, 1);\r
+\r
+ q = list_ptr(x);\r
+\r
+ if (is_char_node(q))\r
+ {\r
+ r = link(q);\r
+\r
+ if (r != 0)\r
+ if (link(r) == 0)\r
+ if (!is_char_node(r))\r
+ if (type(r) == kern_node)\r
+ {\r
+ free_node(r, small_node_size);\r
+ link(q) = 0;\r
+ }\r
+ }\r
+\r
+ return x;\r
+}\r
+/* sec 0722 */\r
+void fetch (pointer a)\r
+{\r
+ cur_c = character(a);\r
+ cur_f = fam_fnt(fam(a) + cur_size);\r
+\r
+ if (cur_f == null_font)\r
+ {\r
+ print_err("");\r
+ print_size(cur_size);\r
+ print_char(' ');\r
+ print_int(fam(a));\r
+ prints(" is undefined (character ");\r
+ print(cur_c);\r
+ print_char(')');\r
+ help4("Somewhere in the math formula just ended, you used the",\r
+ "stated character from an undefined font family. For example,",\r
+ "plain TeX doesn't allow \\it or \\sl in subscripts. Proceed,",\r
+ "and I'll try to forget that I needed that character.");\r
+ error();\r
+ cur_i = null_character;\r
+ math_type(a) = 0;\r
+ }\r
+ else\r
+ {\r
+ if ((cur_c >= font_bc[cur_f]) && (cur_c <= font_ec[cur_f]))\r
+ cur_i = char_info(cur_f, cur_c);\r
+ else\r
+ cur_i = null_character;\r
+\r
+ if (!char_exists(cur_i))\r
+ {\r
+ char_warning(cur_f, cur_c);\r
+ math_type(a) = 0;\r
+ }\r
+ }\r
+}\r
+/* sec 0734 */\r
+void make_over (pointer q)\r
+{\r
+ info(nucleus(q)) = overbar(clean_box(nucleus(q), 2 * (cur_style / 2) + 1),\r
+ 3 * default_rule_thickness, default_rule_thickness);\r
+ math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0735 */\r
+void make_under (pointer q)\r
+{\r
+ pointer p, x, y;\r
+ scaled delta;\r
+\r
+ x = clean_box(nucleus(q), cur_style);\r
+ p = new_kern(3 * default_rule_thickness);\r
+ link(x) = p;\r
+ link(p) = fraction_rule(default_rule_thickness);\r
+ y = vpackage(x, 0, 1, max_dimen);\r
+ delta = height(y) + depth(y) + default_rule_thickness;\r
+ height(y) = height(x);\r
+ depth(y) = delta - height(y);\r
+ info(nucleus(q)) = y;\r
+ math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0736 */\r
+void make_vcenter (pointer q)\r
+{ \r
+ pointer v;\r
+ scaled delta;\r
+\r
+ v = info(nucleus(q));\r
+\r
+ if (type(v) != vlist_node)\r
+ {\r
+ confusion("vcenter");\r
+ return;\r
+ }\r
+\r
+ delta = height(v) + depth(v);\r
+ height(v) = axis_height(cur_size) + half(delta);\r
+ depth(v) = delta - height(v);\r
+}\r
+/* sec 0737 */\r
+void make_radical (pointer q)\r
+{\r
+ pointer x, y;\r
+ scaled delta, clr;\r
+\r
+ x = clean_box(nucleus(q), 2 * (cur_style / 2) + 1);\r
+\r
+ if (cur_style < text_style)\r
+ clr = default_rule_thickness + (abs(math_x_height(cur_size)) / 4);\r
+ else\r
+ {\r
+ clr = default_rule_thickness;\r
+ clr = clr + (abs(clr) / 4);\r
+ }\r
+\r
+ y = var_delimiter(left_delimiter(q), cur_size, height(x) + depth(x) + clr + default_rule_thickness);\r
+ delta = depth(y) - (height(x) + depth(x) + clr);\r
+\r
+ if (delta > 0)\r
+ clr = clr + half(delta);\r
+\r
+ shift_amount(y) = - (integer) (height(x) + clr);\r
+ link(y) = overbar(x, clr, height(y));\r
+ info(nucleus(q)) = hpack(y, 0, 1);\r
+ math_type(nucleus(q)) = sub_box;\r
+}\r
+/* sec 0738 */\r
+void make_math_accent (pointer q)\r
+{\r
+ pointer p, x, y;\r
+ integer a;\r
+ quarterword c;\r
+ internal_font_number f;\r
+ four_quarters i;\r
+ scaled s;\r
+ scaled h;\r
+ scaled delta;\r
+ scaled w;\r
+\r
+ fetch(accent_chr(q));\r
+\r
+ if (char_exists(cur_i))\r
+ {\r
+ i = cur_i;\r
+ c = cur_c;\r
+ f = cur_f;\r
+ s = 0;\r
+\r
+ if (math_type(nucleus(q)) == math_char)\r
+ {\r
+ fetch(nucleus(q));\r
+\r
+ if (char_tag(cur_i) == lig_tag)\r
+ {\r
+ a = lig_kern_start(cur_f, cur_i);\r
+ cur_i = font_info[a].qqqq;\r
+\r
+ if (skip_byte(cur_i) > stop_flag)\r
+ {\r
+ a = lig_kern_restart(cur_f, cur_i);\r
+ cur_i = font_info[a].qqqq;\r
+ }\r
+\r
+ while (true)\r
+ {\r
+ if (next_char(cur_i) == skew_char[cur_f])\r
+ {\r
+ if (op_byte(cur_i) >= kern_flag)\r
+ if (skip_byte(cur_i) <= stop_flag)\r
+ s = char_kern(cur_f, cur_i);\r
+\r
+ goto done1;\r
+ }\r
+\r
+ if (skip_byte(cur_i) >= stop_flag)\r
+ goto done1;\r
+\r
+ a = a + skip_byte(cur_i) + 1;\r
+ cur_i = font_info[a].qqqq;\r
+ }\r
+ }\r
+ }\r
+\r
+done1:\r
+ x = clean_box(nucleus(q), cramped_style(cur_style));\r
+ w = width(x);\r
+ h = height(x);\r
+\r
+ while (true)\r
+ {\r
+ if (char_tag(i) != list_tag)\r
+ goto done;\r
+\r
+ y = rem_byte(i);\r
+ i = char_info(f, y);\r
+\r
+ if (!char_exists(i))\r
+ goto done;\r
+\r
+ if (char_width(f, i) > w)\r
+ goto done;\r
+\r
+ c = y;\r
+ }\r
+\r
+done:\r
+ if (h < x_height(f))\r
+ delta = h;\r
+ else\r
+ delta = x_height(f);\r
+\r
+ if ((math_type(supscr(q)) != 0) || (math_type(subscr(q)) != 0))\r
+ if (math_type(nucleus(q)) == math_char)\r
+ {\r
+ flush_node_list(x);\r
+ x = new_noad();\r
+ mem[nucleus(x)] = mem[nucleus(q)];\r
+ mem[supscr(x)] = mem[supscr(q)];\r
+ mem[subscr(x)] = mem[subscr(q)];\r
+ mem[supscr(q)].hh = empty_field;\r
+ mem[subscr(q)].hh = empty_field;\r
+ math_type(nucleus(q)) = sub_mlist;\r
+ info(nucleus(q)) = x;\r
+ x = clean_box(nucleus(q), cur_style);\r
+ delta = delta + height(x) - h;\r
+ h = height(x);\r
+ }\r
+\r
+ y = char_box(f, c);\r
+ shift_amount(y) = s + half(w - width(y));\r
+ width(y) = 0;\r
+ p = new_kern(-(integer) delta);\r
+ link(p) = x;\r
+ link(y) = p;\r
+ y = vpackage(y, 0, 1, max_dimen);\r
+ width(y) = width(x);\r
+\r
+ if (height(y) < h)\r
+ {\r
+ p = new_kern(h - height(y));\r
+ link(p) = list_ptr(y);\r
+ list_ptr(y) = p;\r
+ height(y) = h;\r
+ }\r
+\r
+ info(nucleus(q)) = y;\r
+ math_type(nucleus(q)) = sub_box;\r
+ }\r
+}\r
+/* sec 0743 */\r
+void make_fraction (pointer q)\r
+{\r
+ pointer p, v, x, y, z;\r
+ scaled delta, delta1, delta2, shift_up, shift_down, clr;\r
+ \r
+ if (thickness(q) == default_code)\r
+ thickness(q) = default_rule_thickness;\r
+\r
+ x = clean_box(numerator(q), num_style(cur_style));\r
+ z = clean_box(denominator(q), denom_style(cur_style));\r
+\r
+ if (width(x) < width(z))\r
+ x = rebox(x, width(z));\r
+ else\r
+ z = rebox(z, width(x));\r
+\r
+ if (cur_style < text_style)\r
+ {\r
+ shift_up = num1(cur_size);\r
+ shift_down = denom1(cur_size);\r
+ }\r
+ else\r
+ {\r
+ shift_down = denom2(cur_size);\r
+\r
+ if (thickness(q) != 0)\r
+ shift_up = num2(cur_size);\r
+ else\r
+ shift_up = num3(cur_size);\r
+ }\r
+\r
+ if (thickness(q) == 0)\r
+ {\r
+ if (cur_style < text_style)\r
+ clr = 7 * default_rule_thickness;\r
+ else\r
+ clr = 3 * default_rule_thickness;\r
+\r
+ delta = half(clr - ((shift_up - depth(x)) - (height(z) - shift_down)));\r
+\r
+ if (delta > 0)\r
+ {\r
+ shift_up = shift_up + delta;\r
+ shift_down = shift_down + delta;\r
+ }\r
+ }\r
+ else\r
+ {\r
+ if (cur_style < text_style)\r
+ clr = 3 * thickness(q);\r
+ else\r
+ clr = thickness(q);\r
+\r
+ delta = half(thickness(q));\r
+ delta1 = clr - ((shift_up - depth(x)) - (axis_height(cur_size) + delta));\r
+ delta2 = clr - ((axis_height(cur_size) - delta) - (height(z) - shift_down));\r
+\r
+ if (delta1 > 0)\r
+ shift_up = shift_up + delta1;\r
+\r
+ if (delta2 > 0)\r
+ shift_down = shift_down + delta2;\r
+ }\r
+\r
+ v = new_null_box();\r
+ type(v) = vlist_node;\r
+ height(v) = shift_up + height(x);\r
+ depth(v) = depth(z) + shift_down;\r
+ width(v) = width(x);\r
+\r
+ if (thickness(q) == 0)\r
+ {\r
+ p = new_kern((shift_up - depth(x)) - (height(z) - shift_down));\r
+ link(p) = z;\r
+ }\r
+ else\r
+ {\r
+ y = fraction_rule(thickness(q));\r
+ p = new_kern((axis_height(cur_size) - delta) - (height(z) - shift_down));\r
+ link(y) = p;\r
+ link(p) = z;\r
+ p = new_kern((shift_up - depth(x)) - (axis_height(cur_size) + delta));\r
+ link(p) = y;\r
+ }\r
+\r
+ link(x) = p;\r
+ list_ptr(v) = x;\r
+\r
+ if (cur_style < text_style)\r
+ delta = delim1(cur_size);\r
+ else\r
+ delta = delim2(cur_size);\r
+\r
+ x = var_delimiter(left_delimiter(q), cur_size, delta);\r
+ link(x) = v;\r
+ z = var_delimiter(right_delimiter(q), cur_size, delta);\r
+ link(v) = z;\r
+ new_hlist(q) = hpack(x, 0, 1);\r
+}\r
+/* sec 0752 */\r
+void make_ord (pointer q)\r
+{\r
+ integer a;\r
+ pointer p, r;\r
+\r
+restart:\r
+ if (math_type(subscr(q)) == 0)\r
+ if (math_type(supscr(q)) == 0)\r
+ if (math_type(nucleus(q)) == math_char)\r
+ {\r
+ p = link(q);\r
+\r
+ if (p != 0)\r
+ if ((type(p) >= ord_noad) && (type(p) <= punct_noad))\r
+ if (math_type(nucleus(p)) == math_char)\r
+ if (fam(nucleus(p)) == fam(nucleus(q)))\r
+ {\r
+ math_type(nucleus(q)) = math_text_char;\r
+ fetch(nucleus(q));\r
+\r
+ if (char_tag(cur_i) == lig_tag)\r
+ {\r
+ a = lig_kern_start(cur_f, cur_i);\r
+ cur_c = character(nucleus(p));\r
+ cur_i = font_info[a].qqqq;\r
+\r
+ if (skip_byte(cur_i) > stop_flag)\r
+ {\r
+ a = lig_kern_restart(cur_f, cur_i);\r
+ cur_i = font_info[a].qqqq;\r
+ }\r
+\r
+ while (true)\r
+ {\r
+ if (next_char(cur_i) == cur_c)\r
+ if (skip_byte(cur_i) <= stop_flag)\r
+ if (op_byte(cur_i) >= kern_flag)\r
+ {\r
+ p = new_kern(char_kern(cur_f, cur_i));\r
+ link(p) = link(q);\r
+ link(q) = p;\r
+ return;\r
+ }\r
+ else\r
+ {\r
+ check_interrupt();\r
+\r
+ switch (op_byte(cur_i))\r
+ {\r
+ case 1:\r
+ case 5:\r
+ character(nucleus(q)) = rem_byte(cur_i);\r
+ break;\r
+ case 2:\r
+ case 6:\r
+ character(nucleus(p)) = rem_byte(cur_i);\r
+ break;\r
+ case 3:\r
+ case 7:\r
+ case 11:\r
+ {\r
+ r = new_noad();\r
+ character(nucleus(r)) = rem_byte(cur_i);\r
+ fam(nucleus(r)) = fam(nucleus(q));\r
+ link(q) = r;\r
+ link(r) = p;\r
+\r
+ if (op_byte(cur_i) < 11)\r
+ math_type(nucleus(r)) = math_char;\r
+ else\r
+ math_type(nucleus(r)) = math_text_char;\r
+ }\r
+ break;\r
+\r
+ default:\r
+ {\r
+ link(q) = link(p);\r
+ character(nucleus(q)) = rem_byte(cur_i);\r
+ mem[subscr(q)] = mem[subscr(p)];\r
+ mem[supscr(q)] = mem[supscr(p)];\r
+ free_node(p, noad_size);\r
+ }\r
+ break;\r
+ }\r
+\r
+ if (op_byte(cur_i) > 3)\r
+ return;\r
+\r
+ math_type(nucleus(q)) = math_char;\r
+ goto restart;\r
+ }\r
+\r
+ if (skip_byte(cur_i) >= stop_flag)\r
+ return;\r
+\r
+ a = a + skip_byte(cur_i) + 1;\r
+ cur_i = font_info[a].qqqq;\r
+ }\r
+ }\r
+ }\r
+ }\r
+}\r
+/* sec 0762 */\r
+small_number make_left_right (pointer q, small_number style, scaled max_d, scaled max_h)\r
+{\r
+ scaled delta, delta1, delta2;\r
+\r
+ if (style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 * ((style - text_style) / 2);\r
+\r
+ delta2 = max_d + axis_height(cur_size);\r
+ delta1 = max_h + max_d - delta2;\r
+\r
+ if (delta2 > delta1)\r
+ delta1 = delta2;\r
+\r
+ delta = (delta1 / 500) * delimiter_factor;\r
+ delta2 = delta1 + delta1 - delimiter_shortfall;\r
+\r
+ if (delta < delta2)\r
+ delta = delta2;\r
+\r
+ new_hlist(q) = var_delimiter(delimiter(q), cur_size, delta);\r
+\r
+ return type(q) - (left_noad - open_noad);\r
+}\r
+/* sec 0726 */\r
+void mlist_to_hlist (void)\r
+{\r
+ pointer mlist;\r
+ boolean penalties;\r
+ small_number style;\r
+ small_number save_style;\r
+ pointer q;\r
+ pointer r;\r
+ /* small_number r_type; */\r
+ int r_type;\r
+ /* small_number t; */\r
+ int t;\r
+ pointer p, x, y, z;\r
+ integer pen;\r
+ small_number s;\r
+ scaled max_h, max_d;\r
+ scaled delta;\r
+\r
+ mlist = cur_mlist;\r
+ penalties = mlist_penalties;\r
+ style = cur_style;\r
+ q = mlist;\r
+ r = 0;\r
+ r_type = op_noad;\r
+ max_h = 0;\r
+ max_d = 0;\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+ while (q != 0)\r
+ {\r
+reswitch:\r
+ delta = 0;\r
+\r
+ switch (type(q))\r
+ {\r
+ case bin_noad:\r
+ switch (r_type)\r
+ {\r
+ case bin_noad:\r
+ case op_noad:\r
+ case rel_noad:\r
+ case open_noad:\r
+ case punct_noad:\r
+ case left_noad:\r
+ {\r
+ type(q) = ord_noad;\r
+ goto reswitch;\r
+ }\r
+ break;\r
+\r
+ default:\r
+ do_nothing();\r
+ break;\r
+ }\r
+ break;\r
+\r
+ case rel_noad:\r
+ case close_noad:\r
+ case punct_noad:\r
+ case right_noad:\r
+ {\r
+ if (r_type == bin_noad)\r
+ type(r) = ord_noad;\r
+\r
+ if (type(q) == right_noad)\r
+ goto done_with_noad;\r
+ }\r
+ break;\r
+\r
+ case left_noad:\r
+ goto done_with_noad;\r
+ break;\r
+\r
+ case fraction_noad:\r
+ {\r
+ make_fraction(q);\r
+ goto check_dimensions;\r
+ }\r
+ break;\r
+\r
+ case op_noad:\r
+ {\r
+ delta = make_op(q);\r
+\r
+ if (subtype(q) == limits)\r
+ goto check_dimensions;\r
+ }\r
+ break;\r
+\r
+ case ord_noad:\r
+ make_ord(q);\r
+ break;\r
+\r
+ case open_noad:\r
+ case inner_noad:\r
+ do_nothing();\r
+ break;\r
+\r
+ case radical_noad:\r
+ make_radical(q);\r
+ break;\r
+\r
+ case over_noad:\r
+ make_over(q);\r
+ break;\r
+\r
+ case under_noad:\r
+ make_under(q);\r
+ break;\r
+\r
+ case accent_noad:\r
+ make_math_accent(q);\r
+ break;\r
+\r
+ case vcenter_noad:\r
+ make_vcenter(q);\r
+ break;\r
+\r
+ case style_node:\r
+ {\r
+ cur_style = subtype(q);\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+ goto done_with_node;\r
+ }\r
+ break;\r
+\r
+ case choice_node:\r
+ {\r
+ switch (cur_style / 2)\r
+ {\r
+ case 0:\r
+ choose_mlist(display_mlist);\r
+ break;\r
+\r
+ case 1:\r
+ choose_mlist(text_mlist);\r
+ break;\r
+\r
+ case 2:\r
+ choose_mlist(script_mlist);\r
+ break;\r
+\r
+ case 3:\r
+ choose_mlist(script_script_mlist);\r
+ break;\r
+ }\r
+\r
+ flush_node_list(display_mlist(q));\r
+ flush_node_list(text_mlist(q));\r
+ flush_node_list(script_mlist(q));\r
+ flush_node_list(script_script_mlist(q));\r
+ type(q) = style_node;\r
+ subtype(q) = cur_style;\r
+ width(q) = 0;\r
+ depth(q) = 0;\r
+\r
+ if (p != 0)\r
+ {\r
+ z = link(q);\r
+ link(q) = p;\r
+\r
+ while (link(p) != 0)\r
+ p = link(p);\r
+\r
+ link(p) = z;\r
+ }\r
+\r
+ goto done_with_node;\r
+ }\r
+ break;\r
+\r
+ case ins_node:\r
+ case mark_node:\r
+ case adjust_node:\r
+ case whatsit_node:\r
+ case penalty_node:\r
+ case disc_node:\r
+ goto done_with_node;\r
+ break;\r
+\r
+ case rule_node:\r
+ {\r
+ if (height(q) > max_h)\r
+ max_h = height(q);\r
+\r
+ if (depth(q) > max_d)\r
+ max_d = depth(q);\r
+\r
+ goto done_with_node;\r
+ }\r
+ break;\r
+\r
+ case glue_node:\r
+ {\r
+ if (subtype(q) == mu_glue)\r
+ {\r
+ x = glue_ptr(q);\r
+ y = math_glue(x, cur_mu);\r
+ delete_glue_ref(x);\r
+ glue_ptr(q) = y;\r
+ subtype(q) = normal;\r
+ }\r
+ else if ((cur_size != text_size) && (subtype(q) == cond_math_glue))\r
+ {\r
+ p = link(q);\r
+\r
+ if (p != 0)\r
+ if ((type(q) == glue_node) || (type(p) == kern_node))\r
+ {\r
+ link(q) = link(p);\r
+ link(p) = 0;\r
+ flush_node_list(p);\r
+ }\r
+ }\r
+\r
+ goto done_with_node;\r
+ }\r
+ break;\r
+\r
+ case kern_node:\r
+ {\r
+ math_kern(q, cur_mu);\r
+ goto done_with_node;\r
+ }\r
+ break;\r
+\r
+ default:\r
+ {\r
+ confusion("mlist1");\r
+ return;\r
+ }\r
+ break;\r
+ }\r
+\r
+ switch (math_type(nucleus(q)))\r
+ {\r
+ case math_char:\r
+ case math_text_char:\r
+ {\r
+ fetch(nucleus(q));\r
+\r
+ if (char_exists(cur_i))\r
+ {\r
+ delta = char_italic(cur_f, cur_i);\r
+ p = new_character(cur_f, cur_c);\r
+\r
+ if ((math_type(nucleus(q)) == math_text_char) && (space(cur_f) != 0))\r
+ delta = 0;\r
+\r
+ if ((math_type(subscr(q)) == 0) && (delta != 0))\r
+ {\r
+ link(p) = new_kern(delta);\r
+ delta = 0;\r
+ }\r
+ }\r
+ else\r
+ p = 0;\r
+ }\r
+ break;\r
+\r
+ case 0:\r
+ p = 0;\r
+ break;\r
+\r
+ case sub_box:\r
+ p = info(nucleus(q));\r
+ break;\r
+\r
+ case sub_mlist:\r
+ {\r
+ cur_mlist = info(nucleus(q));\r
+ save_style = cur_style;\r
+ mlist_penalties = false;\r
+ mlist_to_hlist();\r
+ cur_style = save_style;\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 * ((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+ p = hpack(link(temp_head), 0, 1);\r
+ }\r
+ break;\r
+\r
+ default:\r
+ {\r
+ confusion("mlist2");\r
+ return;\r
+ }\r
+ break;\r
+ }\r
+ \r
+ new_hlist(q) = p;\r
+\r
+ if ((math_type(subscr(q)) == 0) && (math_type(supscr(q)) == 0))\r
+ goto check_dimensions;\r
+\r
+ make_scripts(q, delta);\r
+\r
+check_dimensions:\r
+ z = hpack(new_hlist(q), 0, 1);\r
+\r
+ if (height(z) > max_h)\r
+ max_h = height(z);\r
+\r
+ if (depth(z) > max_d)\r
+ max_d = depth(z);\r
+\r
+ free_node(z, box_node_size);\r
+\r
+done_with_noad:\r
+ r = q;\r
+ r_type = type(r);\r
+\r
+done_with_node:\r
+ q = link(q);\r
+ }\r
+\r
+ if (r_type == bin_noad)\r
+ type(r) = ord_noad;\r
+\r
+ p = temp_head;\r
+ link(p) = 0;\r
+ q = mlist;\r
+ r_type = 0;\r
+ cur_style = style;\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 *((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+ while (q != 0)\r
+ {\r
+ t = ord_noad;\r
+ s = noad_size;\r
+ pen = inf_penalty;\r
+\r
+ switch (type(q))\r
+ {\r
+ case op_noad:\r
+ case open_noad:\r
+ case close_noad:\r
+ case punct_noad:\r
+ case inner_noad:\r
+ t = type(q);\r
+ break;\r
+\r
+ case bin_noad:\r
+ {\r
+ t = bin_noad;\r
+ pen = bin_op_penalty;\r
+ }\r
+ break;\r
+\r
+ case rel_noad:\r
+ {\r
+ t = rel_noad;\r
+ pen = rel_penalty;\r
+ }\r
+ break;\r
+\r
+ case ord_noad:\r
+ case vcenter_noad:\r
+ case over_noad:\r
+ case under_noad:\r
+ do_nothing();\r
+ break;\r
+\r
+ case radical_noad:\r
+ s = radical_noad_size;\r
+ break;\r
+\r
+ case accent_noad:\r
+ s = accent_noad_size;\r
+ break;\r
+\r
+ case fraction_noad:\r
+ {\r
+ t = inner_noad;\r
+ s = fraction_noad_size;\r
+ }\r
+ break;\r
+\r
+ case left_noad:\r
+ case right_noad:\r
+ t = make_left_right(q, style, max_d, max_h);\r
+ break;\r
+\r
+ case style_node:\r
+ {\r
+ cur_style = subtype(q);\r
+ s = style_node_size;\r
+\r
+ {\r
+ if (cur_style < script_style)\r
+ cur_size = text_size;\r
+ else\r
+ cur_size = 16 *((cur_style - text_style) / 2);\r
+\r
+ cur_mu = x_over_n(math_quad(cur_size), 18);\r
+ }\r
+\r
+ goto delete_q;\r
+ }\r
+ break;\r
+\r
+ case whatsit_node:\r
+ case penalty_node:\r
+ case rule_node:\r
+ case disc_node:\r
+ case adjust_node:\r
+ case ins_node:\r
+ case mark_node:\r
+ case glue_node:\r
+ case kern_node:\r
+ {\r
+ link(p) = q;\r
+ p = q;\r
+ q = link(q);\r
+ link(p) = 0;\r
+ goto done;\r
+ }\r
+ break;\r
+\r
+ default:\r
+ {\r
+ confusion("mlist3");\r
+ return;\r
+ }\r
+ break;\r
+ }\r
+\r
+ if (r_type > 0)\r
+ {\r
+ switch (str_pool[r_type * 8 + t + magic_offset])\r
+ {\r
+ case '0':\r
+ x = 0;\r
+ break;\r
+\r
+ case '1':\r
+ if (cur_style < script_style)\r
+ x = thin_mu_skip_code;\r
+ else\r
+ x = 0;\r
+ break;\r
+\r
+ case '2':\r
+ x = thin_mu_skip_code;\r
+ break;\r
+\r
+ case '3':\r
+ if (cur_style < script_style)\r
+ x = med_mu_skip_code;\r
+ else\r
+ x = 0;\r
+ break;\r
+\r
+ case '4':\r
+ if (cur_style < script_style)\r
+ x = thick_mu_skip_code;\r
+ else\r
+ x = 0;\r
+ break;\r
+\r
+ default:\r
+ {\r
+ confusion("mlist4");\r
+ return;\r
+ }\r
+ break;\r
+ }\r
+\r
+ if (x != 0)\r
+ {\r
+ y = math_glue(glue_par(x), cur_mu);\r
+ z = new_glue(y);\r
+ glue_ref_count(y) = 0;\r
+ link(p) = z;\r
+ p = z;\r
+ subtype(z) = x + 1;\r
+ }\r
+ }\r
+\r
+ if (new_hlist(q) != 0)\r
+ {\r
+ link(p) = new_hlist(q);\r
+\r
+ do\r
+ {\r
+ p = link(p);\r
+ }\r
+ while (!(link(p) == 0));\r
+ }\r
+\r
+ if (penalties)\r
+ if (link(q) != 0)\r
+ if (pen < inf_penalty)\r
+ {\r
+ r_type = type(link(q));\r
+\r
+ if (r_type != penalty_node)\r
+ if (r_type != rel_noad)\r
+ {\r
+ z = new_penalty(pen);\r
+ link(p) = z;\r
+ p = z;\r
+ }\r
+ }\r
+\r
+ r_type = t;\r
+\r
+delete_q:\r
+ r = q;\r
+ q = link(q);\r
+ free_node(r, s);\r
+done:;\r
+ }\r
+}\r
+/* sec 0772 */\r
+void push_alignment (void)\r
+{\r
+ pointer p;\r
+\r
+ p = get_node(align_stack_node_size);\r
+ link(p) = align_ptr;\r
+ info(p) = cur_align;\r
+ llink(p) = preamble;\r
+ rlink(p) = cur_span;\r
+ mem[p + 2].cint = cur_loop;\r
+ mem[p + 3].cint = align_state;\r
+ info(p + 4) = cur_head;\r
+ link(p + 4) = cur_tail;\r
+ align_ptr = p;\r
+ cur_head = get_avail();\r
+}\r
+/* sec 0772 */\r
+void pop_alignment (void)\r
+{\r
+ pointer p;\r
+\r
+ free_avail(cur_head);\r
+ p = align_ptr;\r
+ cur_tail = link(p + 4);\r
+ cur_head = info(p + 4);\r
+ align_state = mem[p + 3].cint;\r
+ cur_loop = mem[p + 2].cint;\r
+ cur_span = rlink(p);\r
+ preamble = llink(p);\r
+ cur_align = info(p);\r
+ align_ptr = link(p);\r
+ free_node(p, align_stack_node_size);\r
+}\r
+/* sec 0782 */\r
+void get_preamble_token (void)\r
+{\r
+restart:\r
+ get_token();\r
+\r
+ while ((cur_chr == span_code) && (cur_cmd == tab_mark))\r
+ {\r
+ get_token();\r
+\r
+ if (cur_cmd > max_command)\r
+ {\r
+ expand();\r
+ get_token();\r
+ }\r
+ }\r
+\r
+ if (cur_cmd == endv)\r
+ {\r
+ fatal_error("(interwoven alignment preambles are not allowed)");\r
+ return;\r
+ }\r
+\r
+ if ((cur_cmd == assign_glue) && (cur_chr == glue_base + tab_skip_code))\r
+ {\r
+ scan_optional_equals();\r
+ scan_glue(glue_val);\r
+\r
+ if (global_defs > 0)\r
+ geq_define(glue_base + tab_skip_code, glue_ref, cur_val);\r
+ else\r
+ eq_define(glue_base + tab_skip_code, glue_ref, cur_val);\r
+\r
+ goto restart;\r
+ }\r
+}\r
+/* sec 0774 */\r
+void init_align (void)\r
+{\r
+ pointer save_cs_ptr;\r
+ pointer p;\r
+\r
+ save_cs_ptr = cur_cs;\r
+ push_alignment();\r
+ align_state = -1000000L;\r
+\r
+ if ((mode == mmode) && ((tail != head) || (incompleat_noad != 0)))\r
+ {\r
+ print_err("Improper ");\r
+ print_esc("halign");\r
+ prints(" inside $$'s");\r
+ help3("Displays can use special alignments (like \\eqalignno)",\r
+ "only if nothing but the alignment itself is between $$'s.",\r
+ "So I've deleted the formulas that preceded this alignment.");\r
+ error();\r
+ flush_math();\r
+ }\r
+\r
+ push_nest();\r
+\r
+ if (mode == mmode)\r
+ {\r
+ mode = -vmode;\r
+ prev_depth = nest[nest_ptr - 2].aux_field.cint;\r
+ }\r
+ else if (mode > 0)\r
+ mode = - (integer) mode;\r
+\r
+ scan_spec(align_group, false);\r
+ preamble = 0;\r
+ cur_align = align_head;\r
+ cur_loop = 0;\r
+ scanner_status = aligning;\r
+ warning_index = save_cs_ptr;\r
+ align_state = -1000000L;\r
+\r
+ while (true)\r
+ {\r
+ link(cur_align) = new_param_glue(tab_skip_code);\r
+ cur_align = link(cur_align);\r
+\r
+ if (cur_cmd == car_ret)\r
+ goto done;\r
+\r
+ p = hold_head;\r
+ link(p) = 0;\r
+\r
+ while (true)\r
+ {\r
+ get_preamble_token();\r
+\r
+ if (cur_cmd == mac_param)\r
+ goto done1;\r
+\r
+ if ((cur_cmd <= car_ret) && (cur_cmd >= tab_mark) && (align_state == -1000000L))\r
+ if ((p == hold_head) && (cur_loop == 0) && (cur_cmd == tab_mark))\r
+ cur_loop = cur_align;\r
+ else\r
+ {\r
+ print_err("Missing # inserted in alignment preamble");\r
+ help3("There should be exactly one # between &'s, when an",\r
+ "\\halign or \\valign is being set up. In this case you had",\r
+ "none, so I've put one in; maybe that will work.");\r
+ back_error();\r
+ goto done1;\r
+ }\r
+ else if ((cur_cmd != spacer) || (p != hold_head))\r
+ {\r
+ link(p) = get_avail();\r
+ p = link(p);\r
+ info(p) = cur_tok;\r
+ }\r
+ }\r
+\r
+done1:\r
+ link(cur_align) = new_null_box();\r
+ cur_align = link(cur_align);\r
+ info(cur_align) = end_span;\r
+ width(cur_align) = null_flag;\r
+ u_part(cur_align) = link(hold_head);\r
+ p = hold_head;\r
+ link(p) = 0;\r
+\r
+ while (true)\r
+ {\r
+continu:\r
+ get_preamble_token();\r
+\r
+ if ((cur_cmd <= car_ret) && (cur_cmd >= tab_mark) && (align_state == -1000000L))\r
+ goto done2;\r
+\r
+ if (cur_cmd == mac_param)\r
+ {\r
+ print_err("Only one # is allowed per tab");\r
+ help3("There should be exactly one # between &'s, when an",\r
+ "\\halign or \\valign is being set up. In this case you had",\r
+ "more than one, so I'm ignoring all but the first.");\r
+ error();\r
+ goto continu;\r
+ }\r
+\r
+ link(p) = get_avail();\r
+ p = link(p);\r
+ info(p) = cur_tok;\r
+ }\r
+\r
+done2:\r
+ link(p) = get_avail();\r
+ p = link(p);\r
+ info(p) = end_template_token;\r
+ v_part(cur_align) = link(hold_head);\r
+ }\r
+\r
+done:\r
+ scanner_status = 0;\r
+ new_save_level(align_group);\r
+\r
+ if (every_cr != 0)\r
+ begin_token_list(every_cr, every_cr_text);\r
+\r
+ align_peek();\r
+}\r
+/* sec 0787 */\r
+void init_span (pointer p)\r
+{\r
+ push_nest();\r
+\r
+ if (mode == -hmode)\r
+ space_factor = 1000;\r
+ else\r
+ {\r
+ prev_depth = ignore_depth;\r
+ normal_paragraph();\r
+ }\r
+\r
+ cur_span = p;\r
+}\r
+/* sec 0786 */\r
+void init_row (void)\r
+{\r
+ push_nest();\r
+\r
+ mode = (-hmode - vmode) - mode;\r
+\r
+ if (mode == -hmode)\r
+ space_factor = 0;\r
+ else\r
+ prev_depth = 0;\r
+\r
+ tail_append(new_glue(glue_ptr(preamble)));\r
+ subtype(tail) = tab_skip_code + 1;\r
+ cur_align = link(preamble);\r
+ cur_tail = cur_head;\r
+ init_span(cur_align);\r
+}\r
+/* sec 0788 */\r
+void init_col (void)\r
+{\r
+ extra_info(cur_align) = cur_cmd;\r
+\r
+ if (cur_cmd == omit)\r
+ align_state = 0;\r
+ else\r
+ {\r
+ back_input();\r
+ begin_token_list(u_part(cur_align), u_template);\r
+ }\r
+}\r
+/* sec 0799 */\r
+void fin_row (void)\r
+{\r
+ pointer p;\r
+\r
+ if (mode == -hmode)\r
+ {\r
+ p = hpack(link(head), 0, 1);\r
+ pop_nest();\r
+ append_to_vlist(p);\r
+\r
+ if (cur_head != cur_tail)\r
+ {\r
+ link(tail) = link(cur_head);\r
+ tail = cur_tail;\r
+ }\r
+ }\r
+ else\r
+ {\r
+ p = vpackage(link(head), 0, 1, max_dimen);\r
+ pop_nest();\r
+ link(tail) = p;\r
+ tail = p;\r
+ space_factor = 1000;\r
+ }\r
+\r
+ type(p) = unset_node;\r
+ glue_stretch(p) = 0;\r
+\r
+ if (every_cr != 0)\r
+ begin_token_list(every_cr, every_cr_text);\r
+\r
+ align_peek();\r
+}\r
+/* sec 0800 */\r
+void fin_align (void)\r
+{\r
+ pointer p, q, r, s, u, v;\r
+ scaled t, w;\r
+ scaled o;\r
+ halfword n;\r
+ scaled rule_save;\r
+ memory_word aux_save;\r
+\r
+ if (cur_group != align_group)\r
+ {\r
+ confusion("align1");\r
+ return;\r
+ }\r
+\r
+ unsave();\r
+\r
+ if (cur_group != align_group)\r
+ {\r
+ confusion("align0");\r
+ return;\r
+ }\r
+\r
+ unsave();\r
+\r
+ if (nest[nest_ptr - 1].mode_field == mmode)\r
+ o = display_indent;\r
+ else\r
+ o = 0;\r
+\r
+ q = link(preamble);\r
+\r
+ do\r
+ {\r
+ flush_list(u_part(q));\r
+ flush_list(v_part(q));\r
+ p = link(link(q));\r
+\r
+ if (width(q) == null_flag)\r
+ {\r
+ width(q) = 0;\r
+ r = link(q);\r
+ s = glue_ptr(r);\r
+\r
+ if (s != zero_glue)\r
+ {\r
+ add_glue_ref(zero_glue);\r
+ delete_glue_ref(s);\r
+ glue_ptr(c) = zero_glue;\r
+ }\r
+ }\r
+\r
+ if (info(q) != end_span)\r
+ {\r
+ t = width(q) + width(glue_ptr(link(q)));\r
+ r = info(q);\r
+ s = end_span;\r
+ info(s) = p;\r
+ n = min_quarterword + 1;\r
+\r
+ do\r
+ {\r
+ width(r) = width(r) - t;\r
+ u = info(r);\r
+\r
+ while (link(r) > n)\r
+ {\r
+ s = info(s);\r
+ n = link(info(s)) + 1;\r
+ }\r
+\r
+ if (link(r) < n)\r
+ {\r
+ info(r) = info(s);\r
+ info(s) = r;\r
+ decr(link(r));\r
+ s = r;\r
+ }\r
+ else\r
+ {\r
+ if (width(r) > width(info(s)))\r
+ width(info(s)) = width(r);\r
+\r
+ free_node(r, span_node_size);\r
+ }\r
+\r
+ r = u;\r
+ }\r
+ while (!(r == end_span));\r
+ }\r
+\r
+ type(q) = unset_node;\r
+ span_count(q) = min_quarterword;\r
+ height(q) = 0;\r
+ depth(q) = 0;\r
+ glue_order(q) = normal;\r
+ glue_sign(q) = normal;\r
+ glue_stretch(q) = 0;\r
+ glue_shrink(q) = 0;\r
+ q = p;\r
+ }\r
+ while (!(q == 0));\r
+\r
+ save_ptr = save_ptr - 2;\r
+ pack_begin_line = - (integer) mode_line;\r
+\r
+ if (mode == -vmode)\r
+ {\r
+ rule_save = overfull_rule;\r
+ overfull_rule = 0;\r
+ p = hpack(preamble, saved(1), saved(0));\r
+ overfull_rule = rule_save;\r
+ }\r
+ else\r
+ {\r
+ q = link(preamble);\r
+\r
+ do\r
+ {\r
+ height(q) = width(q);\r
+ width(q) = 0;\r
+ q = link(link(q));\r
+ }\r
+ while (!(q == 0));\r
+\r
+ p = vpackage(preamble, saved(1), saved(0), max_dimen);\r
+ q = link(preamble);\r
+\r
+ do\r
+ {\r
+ width(q) = height(q);\r
+ height(q) = 0;\r
+ q = link(link(q));\r
+ }\r
+ while (!(q == 0));\r
+ }\r
+\r
+ pack_begin_line = 0;\r
+ q = link(head);\r
+ s = head;\r
+\r
+ while (q != 0)\r
+ {\r
+ if (!is_char_node(q))\r
+ if (type(q) == unset_node)\r
+ {\r
+ if (mode == -vmode)\r
+ {\r
+ type(q) = hlist_node;\r
+ width(q) = width(p);\r
+ }\r
+ else\r
+ {\r
+ type(q) = vlist_node;\r
+ height(q) = height(p);\r
+ }\r
+\r
+ glue_order(q) = glue_order(p);\r
+ glue_sign(q) = glue_sign(p);\r
+ glue_set(q) = glue_set(p);\r
+ shift_amount(q) = o;\r
+ r = link(list_ptr(q));\r
+ s = link(list_ptr(p));\r
+\r
+ do\r
+ {\r
+ n = span_count(r);\r
+ t = width(s);\r
+ w = t;\r
+ u = hold_head;\r
+\r
+ while (n > min_quarterword)\r
+ {\r
+ decr(n);\r
+ s = link(s);\r
+ v = glue_ptr(s);\r
+ link(u) = new_glue(v);\r
+ u = link(u);\r
+ subtype(u) = tab_skip_code + 1;\r
+ t = t + width(v);\r
+\r
+ if (glue_sign(p) == stretching)\r
+ {\r
+ if (stretch_order(v) == glue_order(p))\r
+ t = t + round(glue_set(p) * stretch(v));\r
+ }\r
+ else if (glue_sign(p) == shrinking)\r
+ {\r
+ if (shrink_order(v) == glue_order(p))\r
+ t = t - round(glue_set(p) * shrink(v));\r
+ }\r
+\r
+ s = link(s);\r
+ link(u) = new_null_box();\r
+ u = link(u);\r
+ t = t + width(s);\r
+\r
+ if (mode == -vmode)\r
+ width(u) = width(s);\r
+ else\r
+ {\r
+ type(u) = vlist_node;\r
+ height(u) = width(s);\r
+ }\r
+ }\r
+ \r
+\r
+ if (mode == -vmode)\r
+ {\r
+ height(r) = height(q);\r
+ depth(r) = depth(q);\r
+\r
+ if (t == width(r))\r
+ {\r
+ glue_sign(r) = normal;\r
+ glue_order(r) = normal;\r
+ glue_set(r) = 0.0;\r
+ }\r
+ else if (t > width(r))\r
+ {\r
+ glue_sign(r) = stretching;\r
+\r
+ if (glue_stretch(r) == 0)\r
+ glue_set(r) = 0.0;\r
+ else\r
+ glue_set(r) = (t - width(r)) / ((double) glue_stretch(r));\r
+ }\r
+ else\r
+ {\r
+ glue_order(r) = glue_sign(r);\r
+ glue_sign(r) = shrinking;\r
+\r
+ if (glue_shrink(r) == 0)\r
+ glue_set(r) = 0.0;\r
+ else if ((glue_order(r) == normal) && (width(r) - t > glue_shrink(r)))\r
+ glue_set(r) = 1.0;\r
+ else\r
+ glue_set(r) = (width(r) - t)/ ((double) glue_shrink(r));\r
+ }\r
+\r
+ width(r) = w;\r
+ type(r) = hlist_node;\r
+ }\r
+ else\r
+ {\r
+ width(r) = width(q);\r
+\r
+ if (t == height(r))\r
+ {\r
+ glue_sign(r) = normal;\r
+ glue_order(r) = normal;\r
+ glue_set(r) = 0.0;\r
+ }\r
+ else if (t > height(r))\r
+ {\r
+ glue_sign(r) = stretching;\r
+\r
+ if (glue_stretch(r) == 0)\r
+ glue_set(r) = 0.0;\r
+ else\r
+ glue_set(r) = (t - height(r)) / ((double) glue_stretch(r));\r
+ }\r
+ else\r
+ {\r
+ glue_order(r) = glue_sign(r);\r
+ glue_sign(r) = shrinking;\r
+\r
+ if (glue_shrink(r) == 0)\r
+ glue_set(r) = 0.0;\r
+ else if ((glue_order(r) == normal) && (height(r) - t > glue_shrink(r)))\r
+ glue_set(r) = 1.0;\r
+ else\r
+ glue_set(r) = (height(r) - t) / ((double) glue_shrink(r));\r
+ }\r
+\r
+ height(r) = w;\r
+ type(r) = vlist_node;\r
+ }\r
+\r
+ shift_amount(r) = 0;\r
+\r
+ if (u != hold_head)\r
+ {\r
+ link(u) = link(r);\r
+ link(r) = link(hold_head);\r
+ r = u;\r
+ }\r
+\r
+ r = link(link(r));\r
+ s = link(link(s));\r
+ }\r
+ while (!(r == 0));\r
+ }\r
+ else if (type(q) == rule_node)\r
+ {\r
+ if (is_running(width(q)))\r
+ width(q) = width(p);\r
+\r
+ if (is_running(height(q)))\r
+ height(q) = height(p);\r
+\r
+ if (is_running(depth(q)))\r
+ depth(q) = depth(p);\r
+\r
+ if (o != 0)\r
+ {\r
+ r = link(q);\r
+ link(q) = 0;\r
+ q = hpack(q, 0, 1);\r
+ shift_amount(q) = o;\r
+ link(q) = r;\r
+ link(s) = q;\r
+ }\r
+ }\r
+ s = q;\r
+ q = link(q);\r
+ }\r
+\r
+ flush_node_list(p);\r
+ pop_alignment();\r
+ aux_save = cur_list.aux_field;\r
+ p = link(head);\r
+ q = tail;\r
+ pop_nest();\r
+\r
+ if (mode == mmode)\r
+ {\r
+ do_assignments();\r
+\r
+ if (cur_cmd != math_shift)\r
+ {\r
+ print_err("Missing $$ inserted");\r
+ help2("Displays can use special alignments (like \\eqalignno)",\r
+ "only if nothing but the alignment itself is between $$'s.");\r
+ back_error();\r
+ }\r
+ else\r
+ {\r
+ get_x_token();\r
+\r
+ if (cur_cmd != math_shift)\r
+ {\r
+ print_err("Display math should end with $$");\r
+ help2("The `$' that I just saw supposedly matches a previous `$$'.",\r
+ "So I shall assume that you typed `$$' both times.");\r
+ back_error();\r
+ }\r
+ }\r
+\r
+ pop_nest();\r
+ tail_append(new_penalty(pre_display_penalty));\r
+ tail_append(new_param_glue(above_display_skip_code));\r
+ link(tail) = p;\r
+\r
+ if (p != 0)\r
+ tail = q;\r
+\r
+ tail_append(new_penalty(post_display_penalty));\r
+ tail_append(new_param_glue(below_display_skip_code));\r
+ prev_depth = aux_save.cint;\r
+ resume_after_display();\r
+ }\r
+ else\r
+ {\r
+ cur_list.aux_field = aux_save;\r
+ link(tail) = p;\r
+\r
+ if (p != 0)\r
+ tail = q;\r
+\r
+ if (mode == vmode)\r
+ build_page();\r
+ }\r
+}\r
+/* sec 0791 */\r
+boolean fin_col (void)\r
+{\r
+ pointer p;\r
+ pointer q, r;\r
+ pointer s;\r
+ pointer u;\r
+ scaled w;\r
+ glue_ord o;\r
+ halfword n;\r
+\r
+ if (cur_align == 0)\r
+ {\r
+ confusion("endv");\r
+ return 0;\r
+ }\r
+\r
+ q = link(cur_align);\r
+\r
+ if (q == 0)\r
+ {\r
+ confusion("endv");\r
+ return 0;\r
+ }\r
+\r
+ if (align_state < 500000L)\r
+ {\r
+ fatal_error("(interwoven alignment preambles are not allowed)");\r
+ return 0;\r
+ }\r
+\r
+ p = link(q);\r
+\r
+ if ((p == 0) && (extra_info(cur_align) < cr_code))\r
+ if (cur_loop != 0)\r
+ {\r
+ link(q) = new_null_box();\r
+ p = link(q);\r
+ info(p) = end_span;\r
+ width(p) = null_flag;\r
+ cur_loop = link(cur_loop);\r
+ q = hold_head;\r
+ r = u_part(cur_loop);\r
+\r
+ while (r != 0)\r
+ {\r
+ link(q) = get_avail();\r
+ q = link(q);\r
+ info(q) = info(r);\r
+ r = link(r);\r
+ }\r
+\r
+ link(q) = 0;\r
+ u_part(p) = link(hold_head);\r
+ q = hold_head;\r
+ r = v_part(cur_loop);\r
+\r
+ while (r != 0)\r
+ {\r
+ link(q) = get_avail();\r
+ q = link(q);\r
+ info(q) = info(r);\r
+ r = link(r);\r
+ }\r
+\r
+ link(q) = 0;\r
+ v_part(p) = link(hold_head);\r
+ cur_loop = link(cur_loop);\r
+ link(p) = new_glue(glue_ptr(cur_loop));\r
+ }\r
+ else\r
+ {\r
+ print_err("Extra alignment tab has been changed to ");\r
+ print_esc("cr");\r
+ help3("You have given more \\span or & marks than there were",\r
+ "in the preamble to the \\halign or \\valign now in progress.",\r
+ "So I'll assume that you meant to type \\cr instead.");\r
+ extra_info(cur_align) = cr_code;\r
+ error();\r
+ }\r
+\r
+ if (extra_info(cur_align) != span_code)\r
+ {\r
+ unsave();\r
+ new_save_level(align_group);\r
+\r
+ {\r
+ if (mode == -hmode)\r
+ {\r
+ adjust_tail = cur_tail;\r
+ u = hpack(link(head), 0, 1);\r
+ w = width(u);\r
+ cur_tail = adjust_tail;\r
+ adjust_tail = 0;\r
+ }\r
+ else\r
+ {\r
+ u = vpackage(link(head), 0, 1, 0);\r
+ w = height(u);\r
+ }\r
+\r
+ n = min_quarterword;\r
+\r
+ if (cur_span != cur_align)\r
+ {\r
+ q = cur_span;\r
+\r
+ do\r
+ {\r
+ incr(n);\r
+ q = link(link(q));\r
+ }\r
+ while (!(q == cur_align));\r
+\r
+ if (n > max_quarterword)\r
+ {\r
+ confusion("256 spans");\r
+ return 0;\r
+ }\r
+\r
+ q = cur_span;\r
+\r
+ while (link(info(q)) < n)\r
+ q = info(q);\r
+\r
+ if (link(info(q)) > n)\r
+ {\r
+ s = get_node(span_node_size);\r
+ info(s) = info(q);\r
+ link(s) = n;\r
+ info(q) = s;\r
+ width(s) = w;\r
+ }\r
+ else if (width(info(q)) < w)\r
+ width(info(q)) = w;\r
+ }\r
+ else if (w > width(cur_align))\r
+ width(cur_align) = w;\r
+\r
+ type(u) = unset_node;\r
+ span_count(u) = n;\r
+\r
+ if (total_stretch[filll] != 0)\r
+ o = filll;\r
+ else if (total_stretch[fill] != 0)\r
+ o = fill;\r
+ else if (total_stretch[fil] != 0)\r
+ o = fil;\r
+ else\r
+ o = normal;\r
+\r
+ glue_order(u) = o;\r
+ glue_stretch(u) = total_stretch[o];\r
+\r
+ if (total_shrink[filll] != 0)\r
+ o = filll;\r
+ else if (total_shrink[fill] != 0)\r
+ o = fill;\r
+ else if (total_shrink[fil] != 0)\r
+ o = fil;\r
+ else\r
+ o = normal;\r
+\r
+ glue_sign(u) = o;\r
+ glue_shrink(u) = total_shrink[o];\r
+ pop_nest();\r
+ link(tail) = u;\r
+ tail = u;\r
+ }\r
+\r
+ tail_append(new_glue(glue_ptr(link(cur_align))));\r
+ subtype(tail) = tab_skip_code + 1;\r
+\r
+ if (extra_info(cur_align) >= cr_code)\r
+ {\r
+ return true;\r
+ }\r
+\r
+ init_span(p);\r
+ }\r
+\r
+ align_state = 1000000L;\r
+\r
+ do\r
+ {\r
+ get_x_token();\r
+ }\r
+ while (!(cur_cmd != spacer));\r
+\r
+ cur_align = p;\r
+ init_col();\r
+\r
+ return false;\r
+}\r
+/* sec 0749 */\r
+scaled make_op (pointer q)\r
+{\r
+ scaled delta;\r
+ pointer p, v, x, y, z;\r
+ quarterword c;\r
+ four_quarters i;\r
+ scaled shift_up, shift_down;\r
+\r
+ if ((subtype(q) == normal) && (cur_style < text_style))\r
+ subtype(q) = limits;\r
+\r
+ if (math_type(nucleus(q)) == math_char)\r
+ {\r
+ fetch(nucleus(q));\r
+\r
+ if ((cur_style < text_style) && (char_tag(cur_i) == list_tag))\r
+ {\r
+ c = rem_byte(cur_i);\r
+ i = char_info(cur_f, c);\r
+\r
+ if (char_exists(i))\r
+ {\r
+ cur_c = c;\r
+ cur_i = i;\r
+ character(nucleus(q)) = c;\r
+ }\r
+ }\r
+\r
+ delta = char_italic(cur_f, cur_i);\r
+ x = clean_box(nucleus(q), cur_style);\r
+\r
+ if ((math_type(subscr(q)) != 0) && (subtype(q) != limits))\r
+ width(x) = width(x) - delta;\r
+\r
+ shift_amount(x) = half(height(x) - depth(x)) - axis_height(cur_size);\r
+ math_type(nucleus(q)) = sub_box;\r
+ info(nucleus(q)) = x;\r
+ }\r
+ else\r
+ delta = 0;\r
+\r
+ if (subtype(q) == limits)\r
+ {\r
+ x = clean_box(supscr(q), sup_style(cur_style));\r
+ y = clean_box(nucleus(q), cur_style);\r
+ z = clean_box(subscr(q), sub_style(cur_style));\r
+ v = new_null_box();\r
+ type(v) = vlist_node;\r
+ width(v) = width(y);\r
+\r
+ if (width(x) > width(v))\r
+ width(v) = width(x);\r
+\r
+ if (width(z) > width(v))\r
+ width(v) = width(z);\r
+\r
+ x = rebox(x, width(v));\r
+ y = rebox(y, width(v));\r
+ z = rebox(z, width(v));\r
+ shift_amount(x) = half(delta);\r
+ shift_amount(z) = - (integer) shift_amount(x);\r
+ height(v) = height(y);\r
+ depth(v) = depth(y);\r
+\r
+ if (math_type(supscr(q)) == 0)\r
+ {\r
+ free_node(x, box_node_size);\r
+ list_ptr(v) = y;\r
+ }\r
+ else\r
+ {\r
+ shift_up = big_op_spacing3 - depth(x);\r
+\r
+ if (shift_up < big_op_spacing1)\r
+ shift_up = big_op_spacing1;\r
+\r
+ p = new_kern(shift_up);\r
+ link(p) = y;\r
+ link(x) = p;\r
+ p = new_kern(big_op_spacing5);\r
+ link(p) = x;\r
+ list_ptr(v) = p;\r
+ height(v) = height(v) + big_op_spacing5 + height(x) + depth(x) + shift_up;\r
+ }\r
+\r
+ if (math_type(subscr(q)) == 0)\r
+ free_node(z, box_node_size);\r
+ else\r
+ {\r
+ shift_down = big_op_spacing4 - height(z);\r
+\r
+ if (shift_down < big_op_spacing2)\r
+ shift_down = big_op_spacing2;\r
+\r
+ p = new_kern(shift_down);\r
+ link(y) = p;\r
+ link(p) = z;\r
+ p = new_kern(big_op_spacing5);\r
+ link(z) = p;\r
+ depth(v) = depth(v) + big_op_spacing5 + height(z) + depth(z) + shift_down;\r
+ }\r
+\r
+ new_hlist(q) = v;\r
+ }\r
+\r
+ return delta;\r
+}\r
+/* sec 0756 */\r
+void make_scripts (pointer q, scaled delta)\r
+{\r
+ pointer p, x, y, z;\r
+ scaled shift_up, shift_down, clr;\r
+ small_number t;\r
+\r
+ p = new_hlist(q);\r
+\r
+ if (is_char_node(p))\r
+ {\r
+ shift_up = 0;\r
+ shift_down = 0;\r
+ }\r
+ else\r
+ {\r
+ z = hpack(p, 0, 1);\r
+\r
+ if (cur_style < script_style)\r
+ t = script_size;\r
+ else\r
+ t = script_script_size;\r
+\r
+ shift_up = height(z) - sup_drop(t);\r
+ shift_down = depth(z) + sub_drop(t);\r
+ free_node(z, box_node_size);\r
+ }\r
+\r
+ if (math_type(supscr(q)) == 0)\r
+ {\r
+ x = clean_box(subscr(q), sub_style(cur_style));\r
+ width(x) = width(x) + script_space;\r
+\r
+ if (shift_down < sub1(cur_size))\r
+ shift_down = sub1(cur_size);\r
+\r
+ clr = height(x) -(abs(math_x_height(cur_size) * 4) / 5);\r
+\r
+ if (shift_down < clr)\r
+ shift_down = clr;\r
+\r
+ shift_amount(x) = shift_down;\r
+ }\r
+ else\r
+ {\r
+ {\r
+ x = clean_box(supscr(q), sup_style(cur_style));\r
+ width(x) = width(x) + script_space;\r
+\r
+ if (odd(cur_style))\r
+ clr = sup3(cur_size);\r
+ else if (cur_style < text_style)\r
+ clr = sup1(cur_size);\r
+ else\r
+ clr = sup2(cur_size);\r
+\r
+ if (shift_up < clr)\r
+ shift_up = clr;\r
+\r
+ clr = depth(x) +(abs(math_x_height(cur_size)) / 4);\r
+\r
+ if (shift_up < clr)\r
+ shift_up = clr;\r
+ }\r
+\r
+ if (math_type(subscr(q)) == 0)\r
+ shift_amount(x) = - (integer) shift_up;\r
+ else\r
+ {\r
+ y = clean_box(subscr(q), sub_style(cur_style));\r
+ width(y) = width(y) + script_space;\r
+\r
+ if (shift_down < sub2(cur_size))\r
+ shift_down = sub2(cur_size);\r
+\r
+ clr = 4 * default_rule_thickness - ((shift_up - depth(x)) - (height(y) - shift_down));\r
+\r
+ if (clr > 0)\r
+ {\r
+ shift_down = shift_down + clr;\r
+\r
+ clr = (abs(math_x_height(cur_size) * 4) / 5) - (shift_up - depth(x));\r
+\r
+ if (clr > 0)\r
+ {\r
+ shift_up = shift_up + clr;\r
+ shift_down = shift_down - clr;\r
+ }\r
+ }\r
+\r
+ shift_amount(x) = delta;\r
+ p = new_kern((shift_up - depth(x)) - (height(y) - shift_down));\r
+ link(x) = p;\r
+ link(p) = y;\r
+ x = vpackage(x, 0, 1, max_dimen);\r
+ shift_amount(x) = shift_down;\r
+ }\r
+ }\r
+\r
+ if (new_hlist(q) == 0)\r
+ new_hlist(q) = x;\r
+ else\r
+ {\r
+ p = new_hlist(q);\r
+\r
+ while (link(p) != 0)\r
+ p = link(p);\r
+\r
+ link(p) = x;\r
+ }\r
+}
\ No newline at end of file