File: Tuminus.java

package info (click to toggle)
jflex 1.7.0-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 13,944 kB
  • sloc: java: 421,255; xml: 1,130; makefile: 123; lisp: 90; yacc: 65; sh: 13
file content (38 lines) | stat: -rw-r--r-- 1,111 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright (C) 2001       Gerwin Klein <lsf@jflex.de>                    *
 * Copyright (C) 2001       Bernhard Rumpe <rumpe@in.tum.de>               *
 * All rights reserved.                                                    *
 *                                                                         *
 * License: BSD                                                            *
 *                                                                         *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */


/**
 * AST node for unary minus expressions.
 */ 
class Tuminus extends Texp implements AST {

  Texp exp;                           // the negated expression

  public Tuminus(Texp e) {
    exp=e; 
  }

  public String toString() {
    return "-"+exp; 
  }

  public void checkcontext(SymTab st) {
    exp.checkcontext(st); 
  }

  public void prepInterp(SymTab st) {  
    exp.prepInterp(st); 
  }

  public int interpret(int[] in, int[] par) {
    return -(exp.interpret(in,par)); 
  }
}