| 1 | |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | |
|---|
| 10 | |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | package com.sun.fortress.interpreter.evaluator.values; |
|---|
| 19 | |
|---|
| 20 | import com.sun.fortress.interpreter.env.BetterEnv; |
|---|
| 21 | import com.sun.fortress.interpreter.evaluator.types.FType; |
|---|
| 22 | import com.sun.fortress.interpreter.evaluator.types.FTypeArrow; |
|---|
| 23 | import com.sun.fortress.interpreter.evaluator.types.FTypeVoid; |
|---|
| 24 | import com.sun.fortress.nodes.IdOrOpOrAnonymousName; |
|---|
| 25 | import com.sun.fortress.nodes_util.NodeFactory; |
|---|
| 26 | import com.sun.fortress.useful.NI; |
|---|
| 27 | import com.sun.fortress.useful.Useful; |
|---|
| 28 | |
|---|
| 29 | import java.util.List; |
|---|
| 30 | |
|---|
| 31 | |
|---|
| 32 | public class Dummy_fcn extends Simple_fcn { |
|---|
| 33 | private List<FType> domain; |
|---|
| 34 | private String allocationSite; |
|---|
| 35 | private IdOrOpOrAnonymousName fnName = NodeFactory.makeId(NodeFactory.interpreterSpan, "Dummy"); |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | |
|---|
| 39 | |
|---|
| 40 | @Override |
|---|
| 41 | public IdOrOpOrAnonymousName getFnName() { |
|---|
| 42 | return fnName; |
|---|
| 43 | } |
|---|
| 44 | |
|---|
| 45 | public String stringName() { |
|---|
| 46 | return fnName.stringName(); |
|---|
| 47 | } |
|---|
| 48 | |
|---|
| 49 | public Dummy_fcn(List<FType> _params) { |
|---|
| 50 | super(BetterEnv.blessedEmpty()); |
|---|
| 51 | allocationSite = Useful.backtrace(2, 3); |
|---|
| 52 | this.domain = _params; |
|---|
| 53 | setFtype(FTypeArrow.make(_params, FTypeVoid.ONLY)); |
|---|
| 54 | } |
|---|
| 55 | |
|---|
| 56 | public List<FType> getDomain() { |
|---|
| 57 | return domain; |
|---|
| 58 | } |
|---|
| 59 | |
|---|
| 60 | public FValue applyInnerPossiblyGeneric(List<FValue> vals) { |
|---|
| 61 | return NI.nyi("Dummy_fcn.apply_inner"); |
|---|
| 62 | } |
|---|
| 63 | |
|---|
| 64 | public String toString() { |
|---|
| 65 | return "DummyFunc" + Useful.listInParens(domain); |
|---|
| 66 | } |
|---|
| 67 | |
|---|
| 68 | |
|---|
| 69 | |
|---|
| 70 | |
|---|
| 71 | @Override |
|---|
| 72 | public String at() { |
|---|
| 73 | return allocationSite; |
|---|
| 74 | } |
|---|
| 75 | |
|---|
| 76 | @Override |
|---|
| 77 | boolean getFinished() { |
|---|
| 78 | |
|---|
| 79 | return true; |
|---|
| 80 | } |
|---|
| 81 | |
|---|
| 82 | public boolean seqv(FValue v) { |
|---|
| 83 | return false; |
|---|
| 84 | } |
|---|
| 85 | } |
|---|