01: /*
02: * Copyright (c) 1998-2008 Caucho Technology -- all rights reserved
03: *
04: * This file is part of Resin(R) Open Source
05: *
06: * Each copy or derived work must preserve the copyright notice and this
07: * notice unmodified.
08: *
09: * Resin Open Source is free software; you can redistribute it and/or modify
10: * it under the terms of the GNU General Public License as published by
11: * the Free Software Foundation; either version 2 of the License, or
12: * (at your option) any later version.
13: *
14: * Resin Open Source is distributed in the hope that it will be useful,
15: * but WITHOUT ANY WARRANTY; without even the implied warranty of
16: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE, or any warranty
17: * of NON-INFRINGEMENT. See the GNU General Public License for more
18: * details.
19: *
20: * You should have received a copy of the GNU General Public License
21: * along with Resin Open Source; if not, write to the
22: *
23: * Free Software Foundation, Inc.
24: * 59 Temple Place, Suite 330
25: * Boston, MA 02111-1307 USA
26: *
27: * @author Scott Ferguson
28: */
29:
30: package com.caucho.quercus.expr;
31:
32: import com.caucho.quercus.Location;
33: import com.caucho.quercus.env.Env;
34: import com.caucho.quercus.env.LongValue;
35: import com.caucho.quercus.env.Value;
36:
37: /**
38: * Converts to a long
39: */
40: public class ToLongExpr extends UnaryExpr {
41: public ToLongExpr(Location location, Expr expr) {
42: super (location, expr);
43: }
44:
45: public ToLongExpr(Expr expr) {
46: super (expr);
47: }
48:
49: /**
50: * Evaluates the expression.
51: *
52: * @param env the calling environment.
53: *
54: * @return the expression value.
55: */
56: public Value eval(Env env) {
57: return new LongValue(_expr.evalLong(env));
58: }
59:
60: public String toString() {
61: return "((long) " + _expr + ")";
62: }
63: }
|