|
|
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.