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: };
|
Last modified: 1983-06-22
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1464 |
|