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: };

Defined variables

Sccsid defined in line 1; never used
Last modified: 1983-06-22
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 2951
Valid CSS Valid XHTML 1.0 Strict