![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to e.y CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / usr.bin / eqn|
Return to e.y CVS log | Up to [CSRG BSD Unix] / 43BSD / usr.bin / eqn |
1.1 root 1: %{#
2: /* e.y 4.1 83/02/11 */
3: #include "e.h"
4: #
5: int fromflg;
6: %}
7: %term CONTIG QTEXT SPACE THIN TAB
8: %term MATRIX LCOL CCOL RCOL COL
9: %term MARK LINEUP
10: %term SUM INT PROD UNION INTER
11: %term LPILE PILE CPILE RPILE ABOVE
12: %term DEFINE TDEFINE NDEFINE DELIM GSIZE GFONT INCLUDE
13: %right FROM TO
14: %left OVER SQRT
15: %right SUP SUB
16: %right SIZE FONT ROMAN ITALIC BOLD FAT
17: %right UP DOWN BACK FWD
18: %left LEFT RIGHT
19: %right DOT DOTDOT HAT TILDE BAR UNDER VEC DYAD
20:
21: %%
22:
23: stuff : eqn { putout($1); }
24: | error { error(!FATAL, "syntax error"); }
25: | { eqnreg = 0; }
26: ;
27:
28: eqn : box
29: | eqn box { eqnbox($1, $2, 0); }
30: | eqn lineupbox { eqnbox($1, $2, 1); }
31: | LINEUP { lineup(0); }
32: ;
33:
34: lineupbox: LINEUP box { $$ = $2; lineup(1); }
35: ;
36:
37: matrix : MATRIX { $$ = ct; } ;
38:
39: collist : column
40: | collist column
41: ;
42:
43: column : lcol '{' list '}' { column('L', $1); }
44: | ccol '{' list '}' { column('C', $1); }
45: | rcol '{' list '}' { column('R', $1); }
46: | col '{' list '}' { column('-', $1); }
47: ;
48:
49: lcol : LCOL { $$ = ct++; } ;
50: ccol : CCOL { $$ = ct++; } ;
51: rcol : RCOL { $$ = ct++; } ;
52: col : COL { $$ = ct++; } ;
53:
54: sbox : sup box %prec SUP { $$ = $2; }
55: ;
56:
57: tbox : to box %prec TO { $$ = $2; }
58: | %prec FROM { $$ = 0; }
59: ;
60:
61: box : box OVER box { boverb($1, $3); }
62: | MARK box { mark($2); }
63: | size box %prec SIZE { size($1, $2); }
64: | font box %prec FONT { font($1, $2); }
65: | FAT box { fatbox($2); }
66: | SQRT box { sqrt($2); }
67: | lpile '{' list '}' { lpile('L', $1, ct); ct = $1; }
68: | cpile '{' list '}' { lpile('C', $1, ct); ct = $1; }
69: | rpile '{' list '}' { lpile('R', $1, ct); ct = $1; }
70: | pile '{' list '}' { lpile('-', $1, ct); ct = $1; }
71: | box sub box sbox %prec SUB { shift2($1, $3, $4); }
72: | box sub box %prec SUB { bshiftb($1, $2, $3); }
73: | box sup box %prec SUP { bshiftb($1, $2, $3); }
74: | int sub box sbox %prec SUB { integral($1, $3, $4); }
75: | int sub box %prec SUB { integral($1, $3, 0); }
76: | int sup box %prec SUP { integral($1, 0, $3); }
77: | int { integral($1, 0, 0); }
78: | left eqn right { paren($1, $2, $3); }
79: | pbox
80: | box from box tbox %prec FROM { fromto($1, $3, $4); fromflg=0; }
81: | box to box %prec TO { fromto($1, 0, $3); }
82: | box diacrit { diacrit($1, $2); }
83: | fwd box %prec UP { move(FWD, $1, $2); }
84: | up box %prec UP { move(UP, $1, $2); }
85: | back box %prec UP { move(BACK, $1, $2); }
86: | down box %prec UP { move(DOWN, $1, $2); }
87: | matrix '{' collist '}' { matrix($1); }
88: ;
89:
90: int : INT { setintegral(); }
91: ;
92:
93: fwd : FWD text { $$ = atoi((char *) $1); } ;
94: up : UP text { $$ = atoi((char *) $1); } ;
95: back : BACK text { $$ = atoi((char *) $1); } ;
96: down : DOWN text { $$ = atoi((char *) $1); } ;
97:
98: diacrit : HAT { $$ = HAT; }
99: | VEC { $$ = VEC; }
100: | DYAD { $$ = DYAD; }
101: | BAR { $$ = BAR; }
102: | UNDER { $$ = UNDER; } /* under bar */
103: | DOT { $$ = DOT; }
104: | TILDE { $$ = TILDE; }
105: | DOTDOT { $$ = DOTDOT; } /* umlaut = double dot */
106: ;
107:
108: from : FROM { $$=ps; ps -= 3; fromflg = 1;
109: if(dbg)printf(".\tfrom: old ps %d, new ps %d, fflg %d\n", $$, ps, fromflg);
110: }
111: ;
112:
113: to : TO { $$=ps; if(fromflg==0)ps -= 3;
114: if(dbg)printf(".\tto: old ps %d, new ps %d\n", $$, ps);
115: }
116: ;
117:
118: left : LEFT text { $$ = ((char *)$2)[0]; }
119: | LEFT '{' { $$ = '{'; }
120: ;
121:
122: right : RIGHT text { $$ = ((char *)$2)[0]; }
123: | RIGHT '}' { $$ = '}'; }
124: | { $$ = 0; }
125: ;
126:
127: list : eqn { lp[ct++] = $1; }
128: | list ABOVE eqn { lp[ct++] = $3; }
129: ;
130:
131: lpile : LPILE { $$ = ct; } ;
132: cpile : CPILE { $$ = ct; } ;
133: pile : PILE { $$ = ct; } ;
134: rpile : RPILE { $$ = ct; } ;
135:
136: size : SIZE text { $$ = ps; setsize((char *) $2); }
137: ;
138:
139: font : ROMAN { setfont(ROM); }
140: | ITALIC { setfont(ITAL); }
141: | BOLD { setfont(BLD); }
142: | FONT text { setfont(((char *)$2)[0]); }
143: ;
144:
145: sub : SUB { shift(SUB); }
146: ;
147:
148: sup : SUP { shift(SUP); }
149: ;
150:
151: pbox : '{' eqn '}' { $$ = $2; }
152: | QTEXT { text(QTEXT, (char *) $1); }
153: | CONTIG { text(CONTIG, (char *) $1); }
154: | SPACE { text(SPACE, 0); }
155: | THIN { text(THIN, 0); }
156: | TAB { text(TAB, 0); }
157: | SUM { funny(SUM); }
158: | PROD { funny(PROD); }
159: | UNION { funny(UNION); }
160: | INTER { funny(INTER); } /* intersection */
161: ;
162:
163: text : CONTIG
164: | QTEXT
165: ;
166:
167: %%
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.