static char Sccsid[] = "at.c @(#)at.c 1.1 10/1/82 Berkeley "; /* * Declarations of all functions (required by Version 7 C * for the array to be set up without warning messages) */ extern ex_abs(); extern ex_add(); extern ex_and(); extern ex_ap(); extern ex_arg1(); extern ex_arg2(); extern ex_asgn(); extern ex_auto(); extern ex_base(); extern ex_botch(); extern ex_br(); extern ex_br0(); extern ex_cat(); extern ex_catk(); extern ex_ceil(); extern ex_chdir(); extern ex_cir(); extern ex_close(); extern ex_com(); extern ex_com0(); extern ex_comb(); extern ex_comk(); extern ex_creat(); extern ex_crp(); extern ex_ddom(); extern ex_deal(); extern ex_dfmt(); extern ex_dibm(); extern ex_diot(); extern ex_div(); extern ex_drho(); extern ex_drop(); extern ex_dtrn(); extern ex_dup(); extern ex_elid(); extern ex_eps(); extern ex_eq(); extern ex_exd(); extern ex_exd0(); extern ex_exdk(); extern ex_exec(); extern ex_exit(); extern ex_exp(); extern ex_fac(); extern ex_fdef(); extern ex_float(); extern ex_nl(); extern ex_floor(); extern ex_fork(); extern ex_fun(); extern ex_gdd(); extern ex_gddk(); extern ex_gdu(); extern ex_gduk(); extern ex_ge(); extern ex_gt(); extern ex_hprint(); extern ex_ibr(); extern ex_ibr0(); extern ex_immed(); extern ex_index(); extern ex_iprod(); extern ex_kill(); extern ex_label(); extern ex_le(); extern ex_log(); extern ex_loge(); extern ex_lt(); extern ex_max(); extern ex_mdom(); extern ex_menc(); extern ex_meps(); extern ex_mfmt(); extern ex_mibm(); extern ex_min(); extern ex_minus(); extern ex_miot(); extern ex_mod(); extern ex_mrho(); extern ex_mtrn(); extern ex_mul(); extern ex_nand(); extern ex_nc(); extern ex_ne(); extern ex_nilret(); extern ex_nor(); extern ex_not(); extern ex_open(); extern ex_oprod(); extern ex_or(); extern ex_pi(); extern ex_pipe(); extern ex_plus(); extern ex_print(); extern ex_pwr(); extern ex_rand(); extern ex_rav(); extern ex_ravk(); extern ex_rd(); extern ex_read(); extern ex_recip(); extern ex_red(); extern ex_red0(); extern ex_redk(); extern ex_rep(); extern ex_rest(); extern ex_rev(); extern ex_rev0(); extern ex_revk(); extern ex_rot(); extern ex_rot0(); extern ex_rotk(); extern ex_run(); extern ex_scan(); extern ex_scn0(); extern ex_scnk(); extern ex_seek(); extern ex_sgn(); extern ex_signl(); extern ex_sub(); extern ex_take(); extern ex_unlink(); extern ex_wait(); extern ex_write(); int (*exop[])() = { 0, /* 0 */ ex_add, /* 1 */ ex_plus, /* 2 */ ex_sub, /* 3 */ ex_minus, /* 4 */ ex_mul, /* 5 */ ex_sgn, /* 6 */ ex_div, /* 7 */ ex_recip, /* 8 */ ex_mod, /* 9 */ ex_abs, /* 10 */ ex_min, /* 11 */ ex_floor, /* 12 */ ex_max, /* 13 */ ex_ceil, /* 14 */ ex_pwr, /* 15 */ ex_exp, /* 16 */ ex_log, /* 17 */ ex_loge, /* 18 */ ex_cir, /* 19 */ ex_pi, /* 20 */ ex_comb, /* 21 */ ex_fac, /* 22 */ ex_deal, /* 23 */ ex_rand, /* 24 */ ex_drho, /* 25 */ ex_mrho, /* 26 */ ex_diot, /* 27 */ ex_miot, /* 28 */ ex_rot0, /* 29 */ ex_rev0, /* 30 */ ex_dtrn, /* 31 */ ex_mtrn, /* 32 */ ex_dibm, /* 33 */ ex_mibm, /* 34 */ ex_gdu, /* 35 */ ex_gduk, /* 36 */ ex_gdd, /* 37 */ ex_gddk, /* 38 */ ex_exd, /* 39 */ ex_scan, /* 40 */ ex_exdk, /* 41 */ ex_scnk, /* 42 */ ex_iprod, /* 43 */ ex_oprod, /* 44 */ 0, /* 45 */ 0, /* 46 */ ex_br0, /* 47 */ ex_br, /* 48 */ ex_ddom, /* 49 */ ex_mdom, /* 50 */ ex_com, /* 51 */ ex_red, /* 52 */ ex_comk, /* 53 */ ex_redk, /* 54 */ ex_rot, /* 55 */ ex_rev, /* 56 */ ex_rotk, /* 57 */ ex_revk, /* 58 */ ex_cat, /* 59 */ ex_rav, /* 60 */ ex_catk, /* 61 */ ex_ravk, /* 62 */ ex_print, /* 63 */ 0, /* 64 */ ex_elid, /* 65 */ 0, /* 66 */ 0, /* 67 */ ex_index, /* 68 */ ex_hprint, /* 69 */ 0, /* 70 */ ex_lt, /* 71 */ ex_le, /* 72 */ ex_gt, /* 73 */ ex_ge, /* 74 */ ex_eq, /* 75 */ ex_ne, /* 76 */ ex_and, /* 77 */ ex_or, /* 78 */ ex_nand, /* 79 */ ex_nor, /* 80 */ ex_not, /* 81 */ ex_eps, /* 82 */ ex_meps, /* 83 */ ex_rep, /* 84 */ ex_take, /* 85 */ ex_drop, /* 86 */ ex_exd0, /* 87 */ ex_asgn, /* 88 */ ex_immed, /* 89 */ 0, /* 90 */ 0, /* 91 */ ex_fun, /* 92 */ ex_arg1, /* 93 */ ex_arg2, /* 94 */ ex_auto, /* 95 */ ex_rest, /* 96 */ ex_com0, /* 97 */ ex_red0, /* 98 */ ex_exd0, /* 99 */ ex_scn0, /*100 */ ex_base, /*101 */ ex_menc, /*102 */ /* monadic encod */ ex_label, /*103 */ 0, /*104 */ 0, /*105 */ 0, /*106 */ 0, /*107 */ 0, /*108 */ 0, /*109 */ 0, /*110 */ 0, /*111 */ ex_run, /*112 */ ex_fork, /*113 */ ex_wait, /*114 */ ex_exec, /*115 */ ex_fdef, /*116 */ ex_exit, /*117 */ ex_pipe, /*118 */ ex_chdir, /*119 */ ex_open, /*120 */ ex_close, /*121 */ ex_read, /*122 */ ex_write, /*123 */ ex_creat, /*124 */ ex_seek, /*125 */ ex_unlink, /*126 */ ex_rd, /*127 */ ex_dup, /*128 */ ex_ap, /*129 */ ex_kill, /*130 */ ex_crp, /*131 */ ex_dfmt, /*132 */ ex_mfmt, /*133 */ ex_nc, /*134 */ ex_nilret, /*135 */ ex_botch, /*136 (XQUAD--never executed) */ ex_ibr, /*137 */ ex_ibr0, /*138 */ ex_botch, /*139 (RVAL--in a1.c) */ ex_signl, /*140 */ ex_float, /*141 */ ex_nl, /*142 */ ex_botch, /*142 */ ex_botch, /*143 */ };