![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to at.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / apl / src|
Return to at.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / apl / src |
1.1 root 1: static char Sccsid[] = "at.c @(#)at.c 1.1 10/1/82 Berkeley ";
2: /*
3: * Declarations of all functions (required by Version 7 C
4: * for the array to be set up without warning messages)
5: */
6:
7: extern ex_abs();
8: extern ex_add();
9: extern ex_and();
10: extern ex_ap();
11: extern ex_arg1();
12: extern ex_arg2();
13: extern ex_asgn();
14: extern ex_auto();
15: extern ex_base();
16: extern ex_botch();
17: extern ex_br();
18: extern ex_br0();
19: extern ex_cat();
20: extern ex_catk();
21: extern ex_ceil();
22: extern ex_chdir();
23: extern ex_cir();
24: extern ex_close();
25: extern ex_com();
26: extern ex_com0();
27: extern ex_comb();
28: extern ex_comk();
29: extern ex_creat();
30: extern ex_crp();
31: extern ex_ddom();
32: extern ex_deal();
33: extern ex_dfmt();
34: extern ex_dibm();
35: extern ex_diot();
36: extern ex_div();
37: extern ex_drho();
38: extern ex_drop();
39: extern ex_dtrn();
40: extern ex_dup();
41: extern ex_elid();
42: extern ex_eps();
43: extern ex_eq();
44: extern ex_exd();
45: extern ex_exd0();
46: extern ex_exdk();
47: extern ex_exec();
48: extern ex_exit();
49: extern ex_exp();
50: extern ex_fac();
51: extern ex_fdef();
52: extern ex_float();
53: extern ex_nl();
54: extern ex_floor();
55: extern ex_fork();
56: extern ex_fun();
57: extern ex_gdd();
58: extern ex_gddk();
59: extern ex_gdu();
60: extern ex_gduk();
61: extern ex_ge();
62: extern ex_gt();
63: extern ex_hprint();
64: extern ex_ibr();
65: extern ex_ibr0();
66: extern ex_immed();
67: extern ex_index();
68: extern ex_iprod();
69: extern ex_kill();
70: extern ex_label();
71: extern ex_le();
72: extern ex_log();
73: extern ex_loge();
74: extern ex_lt();
75: extern ex_max();
76: extern ex_mdom();
77: extern ex_menc();
78: extern ex_meps();
79: extern ex_mfmt();
80: extern ex_mibm();
81: extern ex_min();
82: extern ex_minus();
83: extern ex_miot();
84: extern ex_mod();
85: extern ex_mrho();
86: extern ex_mtrn();
87: extern ex_mul();
88: extern ex_nand();
89: extern ex_nc();
90: extern ex_ne();
91: extern ex_nilret();
92: extern ex_nor();
93: extern ex_not();
94: extern ex_open();
95: extern ex_oprod();
96: extern ex_or();
97: extern ex_pi();
98: extern ex_pipe();
99: extern ex_plus();
100: extern ex_print();
101: extern ex_pwr();
102: extern ex_rand();
103: extern ex_rav();
104: extern ex_ravk();
105: extern ex_rd();
106: extern ex_read();
107: extern ex_recip();
108: extern ex_red();
109: extern ex_red0();
110: extern ex_redk();
111: extern ex_rep();
112: extern ex_rest();
113: extern ex_rev();
114: extern ex_rev0();
115: extern ex_revk();
116: extern ex_rot();
117: extern ex_rot0();
118: extern ex_rotk();
119: extern ex_run();
120: extern ex_scan();
121: extern ex_scn0();
122: extern ex_scnk();
123: extern ex_seek();
124: extern ex_sgn();
125: extern ex_signl();
126: extern ex_sub();
127: extern ex_take();
128: extern ex_unlink();
129: extern ex_wait();
130: extern ex_write();
131:
132:
133:
134: int (*exop[])() = {
135:
136: 0, /* 0 */
137: ex_add, /* 1 */
138: ex_plus, /* 2 */
139: ex_sub, /* 3 */
140: ex_minus, /* 4 */
141: ex_mul, /* 5 */
142: ex_sgn, /* 6 */
143: ex_div, /* 7 */
144: ex_recip, /* 8 */
145: ex_mod, /* 9 */
146: ex_abs, /* 10 */
147: ex_min, /* 11 */
148: ex_floor, /* 12 */
149: ex_max, /* 13 */
150: ex_ceil, /* 14 */
151: ex_pwr, /* 15 */
152: ex_exp, /* 16 */
153: ex_log, /* 17 */
154: ex_loge, /* 18 */
155: ex_cir, /* 19 */
156: ex_pi, /* 20 */
157: ex_comb, /* 21 */
158: ex_fac, /* 22 */
159: ex_deal, /* 23 */
160: ex_rand, /* 24 */
161: ex_drho, /* 25 */
162: ex_mrho, /* 26 */
163: ex_diot, /* 27 */
164: ex_miot, /* 28 */
165: ex_rot0, /* 29 */
166: ex_rev0, /* 30 */
167: ex_dtrn, /* 31 */
168: ex_mtrn, /* 32 */
169: ex_dibm, /* 33 */
170: ex_mibm, /* 34 */
171: ex_gdu, /* 35 */
172: ex_gduk, /* 36 */
173: ex_gdd, /* 37 */
174: ex_gddk, /* 38 */
175: ex_exd, /* 39 */
176: ex_scan, /* 40 */
177: ex_exdk, /* 41 */
178: ex_scnk, /* 42 */
179: ex_iprod, /* 43 */
180: ex_oprod, /* 44 */
181: 0, /* 45 */
182: 0, /* 46 */
183: ex_br0, /* 47 */
184: ex_br, /* 48 */
185: ex_ddom, /* 49 */
186: ex_mdom, /* 50 */
187: ex_com, /* 51 */
188: ex_red, /* 52 */
189: ex_comk, /* 53 */
190: ex_redk, /* 54 */
191: ex_rot, /* 55 */
192: ex_rev, /* 56 */
193: ex_rotk, /* 57 */
194: ex_revk, /* 58 */
195: ex_cat, /* 59 */
196: ex_rav, /* 60 */
197: ex_catk, /* 61 */
198: ex_ravk, /* 62 */
199: ex_print, /* 63 */
200: 0, /* 64 */
201: ex_elid, /* 65 */
202: 0, /* 66 */
203: 0, /* 67 */
204: ex_index, /* 68 */
205: ex_hprint, /* 69 */
206: 0, /* 70 */
207: ex_lt, /* 71 */
208: ex_le, /* 72 */
209: ex_gt, /* 73 */
210: ex_ge, /* 74 */
211: ex_eq, /* 75 */
212: ex_ne, /* 76 */
213: ex_and, /* 77 */
214: ex_or, /* 78 */
215: ex_nand, /* 79 */
216: ex_nor, /* 80 */
217: ex_not, /* 81 */
218: ex_eps, /* 82 */
219: ex_meps, /* 83 */
220: ex_rep, /* 84 */
221: ex_take, /* 85 */
222: ex_drop, /* 86 */
223: ex_exd0, /* 87 */
224: ex_asgn, /* 88 */
225: ex_immed, /* 89 */
226: 0, /* 90 */
227: 0, /* 91 */
228: ex_fun, /* 92 */
229: ex_arg1, /* 93 */
230: ex_arg2, /* 94 */
231: ex_auto, /* 95 */
232: ex_rest, /* 96 */
233: ex_com0, /* 97 */
234: ex_red0, /* 98 */
235: ex_exd0, /* 99 */
236: ex_scn0, /*100 */
237: ex_base, /*101 */
238: ex_menc, /*102 */ /* monadic encod */
239: ex_label, /*103 */
240: 0, /*104 */
241: 0, /*105 */
242: 0, /*106 */
243: 0, /*107 */
244: 0, /*108 */
245: 0, /*109 */
246: 0, /*110 */
247: 0, /*111 */
248: ex_run, /*112 */
249: ex_fork, /*113 */
250: ex_wait, /*114 */
251: ex_exec, /*115 */
252: ex_fdef, /*116 */
253: ex_exit, /*117 */
254: ex_pipe, /*118 */
255: ex_chdir, /*119 */
256: ex_open, /*120 */
257: ex_close, /*121 */
258: ex_read, /*122 */
259: ex_write, /*123 */
260: ex_creat, /*124 */
261: ex_seek, /*125 */
262: ex_unlink, /*126 */
263: ex_rd, /*127 */
264: ex_dup, /*128 */
265: ex_ap, /*129 */
266: ex_kill, /*130 */
267: ex_crp, /*131 */
268: ex_dfmt, /*132 */
269: ex_mfmt, /*133 */
270: ex_nc, /*134 */
271: ex_nilret, /*135 */
272: ex_botch, /*136 (XQUAD--never executed) */
273: ex_ibr, /*137 */
274: ex_ibr0, /*138 */
275: ex_botch, /*139 (RVAL--in a1.c) */
276: ex_signl, /*140 */
277: ex_float, /*141 */
278: ex_nl, /*142 */
279: ex_botch, /*142 */
280: ex_botch, /*143 */
281: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.