1*22561Sdist /* 2*22561Sdist * Copyright (c) 1980 Regents of the University of California. 3*22561Sdist * All rights reserved. The Berkeley software License Agreement 4*22561Sdist * specifies the terms and conditions for redistribution. 5*22561Sdist */ 65537Slinton 7*22561Sdist #ifndef lint 8*22561Sdist static char sccsid[] = "@(#)opinfo.c 5.1 (Berkeley) 06/06/85"; 9*22561Sdist #endif not lint 105537Slinton 115537Slinton /* 125562Slinton * Operator information structure. 135537Slinton */ 145537Slinton 155537Slinton #include "defs.h" 165537Slinton #include "opinfo.h" 175537Slinton 185537Slinton OPINFO opinfo[] ={ 195537Slinton /* O_NOP */ 0, 0, 205537Slinton /* O_NAME */ LEAF, 0, 215537Slinton /* O_QNAME */ LEAF, "$", 225537Slinton /* O_LCON */ LEAF, 0, 235537Slinton /* O_FCON */ LEAF, 0, 245537Slinton /* O_SCON */ LEAF, 0, 2511062Slinton /* O_INDEX */ UNARY, 0, 265537Slinton /* O_INDIR */ UNARY, "^", 275537Slinton /* O_RVAL */ UNARY, 0, 285537Slinton /* O_COMMA */ BINARY, ",", 295537Slinton /* O_ITOF */ UNARY|INTOP, 0, 305537Slinton /* O_ADD */ BINARY|INTOP, "+", 315537Slinton /* O_ADDF */ BINARY|REALOP, "+", 325537Slinton /* O_SUB */ BINARY|INTOP, "-", 335537Slinton /* O_SUBF */ BINARY|REALOP, "-", 345537Slinton /* O_NEG */ UNARY|INTOP, "-", 355537Slinton /* O_NEGF */ UNARY|REALOP, "-", 365537Slinton /* O_MUL */ BINARY|INTOP, "*", 375537Slinton /* O_MULF */ BINARY|REALOP, "*", 385537Slinton /* O_DIVF */ BINARY|REALOP, "/", 395537Slinton /* O_DIV */ BINARY|INTOP, " div ", 405537Slinton /* O_MOD */ BINARY|INTOP, " mod ", 415537Slinton /* O_AND */ BINARY|INTOP, " and ", 425537Slinton /* O_OR */ BINARY|INTOP, " or ", 435537Slinton /* O_LT */ BINARY|INTOP, " < ", 445537Slinton /* O_LTF */ BINARY|REALOP, " < ", 455537Slinton /* O_LE */ BINARY|INTOP, " <= ", 465537Slinton /* O_LEF */ BINARY|REALOP, " <= ", 475537Slinton /* O_GT */ BINARY|INTOP, " > ", 485537Slinton /* O_GTF */ BINARY|REALOP, " > ", 495537Slinton /* O_GE */ BINARY|INTOP, " >= ", 505537Slinton /* O_GEF */ BINARY|REALOP, " >= ", 515537Slinton /* O_EQ */ BINARY|INTOP, " = ", 525537Slinton /* O_EQF */ BINARY|REALOP, " = ", 535537Slinton /* O_NE */ BINARY|INTOP, " <> ", 545537Slinton /* O_NEF */ BINARY|REALOP, " <> ", 555537Slinton /* O_ASSIGN */ BINARY, " := ", 565537Slinton /* O_CHFILE */ 0, NIL, 575537Slinton /* O_CONT */ 0, NIL, 585537Slinton /* O_LIST */ 0, NIL, 595537Slinton /* O_NEXT */ 0, NIL, 605537Slinton /* O_PRINT */ 0, NIL, 615537Slinton /* O_STEP */ 0, NIL, 625537Slinton /* O_WHATIS */ 0, NIL, 635537Slinton /* O_WHERE */ 0, NIL, 645537Slinton /* O_XI */ 0, NIL, 655537Slinton /* O_XD */ 0, NIL, 665537Slinton /* O_CALL */ 0, NIL, 675537Slinton /* O_EDIT */ 0, NIL, 685537Slinton /* O_DUMP */ 0, NIL, 695537Slinton /* O_HELP */ 0, NIL, 705537Slinton /* O_REMAKE */ 0, NIL, 715537Slinton /* O_RUN */ 0, NIL, 725537Slinton /* O_SOURCE */ 0, NIL, 735537Slinton /* O_STATUS */ 0, NIL, 745537Slinton /* O_TRACE */ 0, NIL, 755537Slinton /* O_TRACEI */ 0, NIL, 765537Slinton /* O_STOP */ 0, NIL, 775537Slinton /* O_STOPI */ 0, NIL, 785537Slinton /* O_DELETE */ 0, NIL, 795537Slinton /* O_WHICH */ 0, NIL, 805537Slinton /* O_QLINE */ LEAF, NIL, 815537Slinton /* O_ALIAS */ LEAF, NIL, 825562Slinton /* O_GRIPE */ 0, NIL, 835537Slinton }; 84