1*5537Slinton /* Copyright (c) 1982 Regents of the University of California */ 2*5537Slinton 3*5537Slinton static char sccsid[] = "@(#)opinfo.c 1.1 01/18/82"; 4*5537Slinton 5*5537Slinton /* 6*5537Slinton * operator information structure 7*5537Slinton */ 8*5537Slinton 9*5537Slinton #include "defs.h" 10*5537Slinton #include "opinfo.h" 11*5537Slinton 12*5537Slinton OPINFO opinfo[] ={ 13*5537Slinton /* O_NOP */ 0, 0, 14*5537Slinton /* O_NAME */ LEAF, 0, 15*5537Slinton /* O_QNAME */ LEAF, "$", 16*5537Slinton /* O_LCON */ LEAF, 0, 17*5537Slinton /* O_FCON */ LEAF, 0, 18*5537Slinton /* O_SCON */ LEAF, 0, 19*5537Slinton /* O_INDEX */ BINARY, 0, 20*5537Slinton /* O_INDIR */ UNARY, "^", 21*5537Slinton /* O_RVAL */ UNARY, 0, 22*5537Slinton /* O_COMMA */ BINARY, ",", 23*5537Slinton /* O_ITOF */ UNARY|INTOP, 0, 24*5537Slinton /* O_ADD */ BINARY|INTOP, "+", 25*5537Slinton /* O_ADDF */ BINARY|REALOP, "+", 26*5537Slinton /* O_SUB */ BINARY|INTOP, "-", 27*5537Slinton /* O_SUBF */ BINARY|REALOP, "-", 28*5537Slinton /* O_NEG */ UNARY|INTOP, "-", 29*5537Slinton /* O_NEGF */ UNARY|REALOP, "-", 30*5537Slinton /* O_MUL */ BINARY|INTOP, "*", 31*5537Slinton /* O_MULF */ BINARY|REALOP, "*", 32*5537Slinton /* O_DIVF */ BINARY|REALOP, "/", 33*5537Slinton /* O_DIV */ BINARY|INTOP, " div ", 34*5537Slinton /* O_MOD */ BINARY|INTOP, " mod ", 35*5537Slinton /* O_AND */ BINARY|INTOP, " and ", 36*5537Slinton /* O_OR */ BINARY|INTOP, " or ", 37*5537Slinton /* O_LT */ BINARY|INTOP, " < ", 38*5537Slinton /* O_LTF */ BINARY|REALOP, " < ", 39*5537Slinton /* O_LE */ BINARY|INTOP, " <= ", 40*5537Slinton /* O_LEF */ BINARY|REALOP, " <= ", 41*5537Slinton /* O_GT */ BINARY|INTOP, " > ", 42*5537Slinton /* O_GTF */ BINARY|REALOP, " > ", 43*5537Slinton /* O_GE */ BINARY|INTOP, " >= ", 44*5537Slinton /* O_GEF */ BINARY|REALOP, " >= ", 45*5537Slinton /* O_EQ */ BINARY|INTOP, " = ", 46*5537Slinton /* O_EQF */ BINARY|REALOP, " = ", 47*5537Slinton /* O_NE */ BINARY|INTOP, " <> ", 48*5537Slinton /* O_NEF */ BINARY|REALOP, " <> ", 49*5537Slinton /* O_ASSIGN */ BINARY, " := ", 50*5537Slinton /* O_CHFILE */ 0, NIL, 51*5537Slinton /* O_CONT */ 0, NIL, 52*5537Slinton /* O_LIST */ 0, NIL, 53*5537Slinton /* O_NEXT */ 0, NIL, 54*5537Slinton /* O_PRINT */ 0, NIL, 55*5537Slinton /* O_STEP */ 0, NIL, 56*5537Slinton /* O_WHATIS */ 0, NIL, 57*5537Slinton /* O_WHERE */ 0, NIL, 58*5537Slinton /* O_XI */ 0, NIL, 59*5537Slinton /* O_XD */ 0, NIL, 60*5537Slinton /* O_CALL */ 0, NIL, 61*5537Slinton /* O_EDIT */ 0, NIL, 62*5537Slinton /* O_DUMP */ 0, NIL, 63*5537Slinton /* O_HELP */ 0, NIL, 64*5537Slinton /* O_REMAKE */ 0, NIL, 65*5537Slinton /* O_RUN */ 0, NIL, 66*5537Slinton /* O_SOURCE */ 0, NIL, 67*5537Slinton /* O_STATUS */ 0, NIL, 68*5537Slinton /* O_TRACE */ 0, NIL, 69*5537Slinton /* O_TRACEI */ 0, NIL, 70*5537Slinton /* O_STOP */ 0, NIL, 71*5537Slinton /* O_STOPI */ 0, NIL, 72*5537Slinton /* O_DELETE */ 0, NIL, 73*5537Slinton /* O_WHICH */ 0, NIL, 74*5537Slinton /* O_QLINE */ LEAF, NIL, 75*5537Slinton /* O_ALIAS */ LEAF, NIL, 76*5537Slinton }; 77