Changeset 3099
- Timestamp:
- 11/25/08 08:12:32 (12 months ago)
- Location:
- trunk/ProjectFortress
- Files:
-
- 9 modified
-
astgen/Fortress.ast (modified) (3 diffs)
-
src/com/sun/fortress/compiler/typechecker/FnTypeEnv.java (modified) (1 diff)
-
src/com/sun/fortress/compiler/typechecker/ObjectTypeEnv.java (modified) (1 diff)
-
src/com/sun/fortress/compiler/typechecker/TypeChecker.java (modified) (1 diff)
-
src/com/sun/fortress/compiler/typechecker/TypeEnv.java (modified) (2 diffs)
-
src/com/sun/fortress/interpreter/rewrite/DesugarerVisitor.java (modified) (1 diff)
-
src/com/sun/fortress/parser/Compilation.rats (modified) (1 diff)
-
src/com/sun/fortress/parser/preparser/PreCompilation.rats (modified) (1 diff)
-
src/com/sun/fortress/tools/FortressAstToConcrete.java (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ProjectFortress/astgen/Fortress.ast
r3098 r3099 146 146 * end 147 147 */ 148 Component(boolean _native = false, APIName name, List<Import> imports,148 Component(boolean _native = false, 149 149 List<APIName> exports, List<Decl> decls, 150 150 List<_RewriteObjectExpr> objectExprs = … … 915 915 * e.g.) fn x => x + 2 916 916 */ 917 FnExpr(ignoreForEquals Span span, // no default -- required to produce a fnName 918 ignoreForEquals boolean parenthesized = false, 919 IdOrOpOrAnonymousName name = new AnonymousFnName(in_span), 917 FnExpr(IdOrOpOrAnonymousName name = new AnonymousFnName(in_span), 920 918 List<StaticParam> staticParams 921 919 = Collections.<StaticParam>emptyList(), … … 1399 1397 _RewriteGenericArrowType(List<StaticParam> staticParams 1400 1398 = Collections.<StaticParam>emptyList(), 1401 Domain domain,1402 Type range,1403 Effect effect1404 = FortressUtil.emptyEffect(),1405 1399 Option<WhereClause> where 1406 1400 = Option.<WhereClause>none()); -
trunk/ProjectFortress/src/com/sun/fortress/compiler/typechecker/FnTypeEnv.java
r3095 r3099 149 149 // Invariant: _fn.params().isSome() 150 150 // Otherwise, _fn should not have been in entries. 151 overloadedTypes.add(new _RewriteGenericArrowType(loc, _fn.staticParameters(),151 overloadedTypes.add(new _RewriteGenericArrowType(loc, 152 152 domainFromParams(_fn.parameters()), 153 153 selfType, 154 154 makeEffect(loc.getEnd(), CollectUtil.makeList(_fn.thrownTypes())), 155 _fn.staticParameters(), 155 156 _fn.where())); 156 157 } -
trunk/ProjectFortress/src/com/sun/fortress/compiler/typechecker/ObjectTypeEnv.java
r3096 r3099 90 90 // TODO: handle type variables bound in where clause 91 91 type = 92 new _RewriteGenericArrowType(decl.getSpan(), decl.getStaticParams(), 93 domainFromParams(decl.getParams().unwrap()), 94 NodeFactory.makeTraitType(_var, TypeEnv.staticParamsToArgs(decl.getStaticParams())), 95 decl.getWhere()); 92 new _RewriteGenericArrowType(decl.getSpan(), 93 domainFromParams(decl.getParams().unwrap()), 94 NodeFactory.makeTraitType(_var, TypeEnv.staticParamsToArgs(decl.getStaticParams())), 95 decl.getStaticParams(), 96 decl.getWhere()); 96 97 } 97 98 } -
trunk/ProjectFortress/src/com/sun/fortress/compiler/typechecker/TypeChecker.java
r3098 r3099 2031 2031 Component new_comp = 2032 2032 new Component(that.getSpan(), 2033 that.is_native(),2034 2033 (APIName)name_result.ast(), 2035 2034 (List<Import>)TypeCheckerResult.astFromResults(imports_result), 2035 that.is_native(), 2036 2036 (List<APIName>)TypeCheckerResult.astFromResults(exports_result), 2037 2037 (List<Decl>)TypeCheckerResult.astFromResults(decls_result)); -
trunk/ProjectFortress/src/com/sun/fortress/compiler/typechecker/TypeEnv.java
r3095 r3099 148 148 protected static _RewriteGenericArrowType genericArrowFromDecl(FnDecl decl) { 149 149 return new _RewriteGenericArrowType(decl.getSpan(), 150 decl.getStaticParams(),151 150 domainFromParams(decl.getParams()), 152 151 // all types have been filled in at this point … … 154 153 makeEffect(decl.getSpan().getEnd(), 155 154 decl.getThrowsClause()), 155 decl.getStaticParams(), 156 156 decl.getWhere()); 157 157 } -
trunk/ProjectFortress/src/com/sun/fortress/interpreter/rewrite/DesugarerVisitor.java
r3096 r3099 669 669 670 670 AbstractNode nn = 671 new Component(com.getSpan(), com.is_native(),672 name_result, imports_result, 671 new Component(com.getSpan(), 672 name_result, imports_result, com.is_native(), 673 673 exports_result, decls_result, 674 674 objectExprs, Useful.list(functionals)); -
trunk/ProjectFortress/src/com/sun/fortress/parser/Compilation.rats
r3093 r3099 122 122 yyValue = new Component(span, a2, a3, a4, a5); 123 123 else 124 yyValue = new Component(span, true, a2, a3, a4, a5);124 yyValue = new Component(span, a2, a3, true, a4, a5); 125 125 }; 126 126 -
trunk/ProjectFortress/src/com/sun/fortress/parser/preparser/PreCompilation.rats
r3093 r3099 98 98 yyValue = new Component(span, a2, a3, a4, a5); 99 99 else 100 yyValue = new Component(span, true, a2, a3, a4, a5);100 yyValue = new Component(span, a2, a3, true, a4, a5); 101 101 }; 102 102 -
trunk/ProjectFortress/src/com/sun/fortress/tools/FortressAstToConcrete.java
r3098 r3099 2249 2249 2250 2250 @Override public String for_RewriteGenericArrowTypeOnly(_RewriteGenericArrowType that, 2251 List<String> staticParams_result,2252 2251 String domain_result, 2253 2252 String range_result, 2254 2253 String effect_result, 2254 List<String> staticParams_result, 2255 2255 Option<String> where_result) { 2256 2256 StringBuilder s = new StringBuilder();

