Improved scope compliance on catch() while attempting to pesudo-Replace() the non...

diff --git a/Parser.hpp b/Parser.hpp
index 361beaa105fe696b8d7903daef41b0111004be40..ceb4b6fd25785a9e803bb4d9d6b3b166d1e2eed1 100644 (file)
--- a/Parser.hpp
+++ b/Parser.hpp
@@ -310,6 +310,7 @@ enum CYIdentifierFlags {
     CYIdentifierVariable,
     CYIdentifierOther,
     CYIdentifierMagic,
     CYIdentifierVariable,
     CYIdentifierOther,
     CYIdentifierMagic,

+    CYIdentifierCatch,

 };
 
 typedef std::set<const char *, CYCStringLess> CYCStringSet;
 };
 
 typedef std::set<const char *, CYCStringLess> CYCStringSet;


@@ -323,19 +324,27 @@ struct CYIdentifierUsage {
 
 typedef std::vector<CYIdentifierUsage> CYIdentifierUsageVector;
 
 
 typedef std::vector<CYIdentifierUsage> CYIdentifierUsageVector;
 

+// XXX: strategy pattern, maybe subclass
+enum CYScopeType {
+    CYScopeCatch,
+    CYScopeFunction,
+    CYScopeProgram,
+};
+

 struct CYScope {
 struct CYScope {

+    CYScopeType type_;
+
+    CYContext &context_;
+    CYStatement *&statements_;
+

     CYScope *parent_;
 
     CYIdentifierAddressFlagsMap internal_;
     CYIdentifierValueSet identifiers_;
 
     CYScope *parent_;
 
     CYIdentifierAddressFlagsMap internal_;
     CYIdentifierValueSet identifiers_;
 

-    CYScope() :
-        parent_(NULL)
-    {
-    }
+    CYScope(CYScopeType type, CYContext &context, CYStatement *&statements);

 
 

-    virtual ~CYScope() {
-    }
+    void Close();

 
     void Declare(CYContext &context, CYIdentifier *identifier, CYIdentifierFlags flags);
     virtual CYIdentifier *Lookup(CYContext &context, CYIdentifier *identifier);
 
     void Declare(CYContext &context, CYIdentifier *identifier, CYIdentifierFlags flags);
     virtual CYIdentifier *Lookup(CYContext &context, CYIdentifier *identifier);

diff --git a/Replace.cpp b/Replace.cpp
index 9cbd30fbbe86c958e67a6dfb5401bcb3dc24cbd8..3fd02aac8ec811aca5092a7678f529244c44431a 100644 (file)
--- a/Replace.cpp
+++ b/Replace.cpp
@@ -132,7 +132,13 @@ namespace cy {
 namespace Syntax {
 
 void Catch::Replace(CYContext &context) { $T()
 namespace Syntax {
 
 void Catch::Replace(CYContext &context) { $T()

+    CYScope scope(CYScopeCatch, context, code_.statements_);
+
+    context.Replace(name_);
+    context.scope_->Declare(context, name_, CYIdentifierCatch);
+

     code_.Replace(context);
     code_.Replace(context);

+    scope.Close();

 }
 
 } }
 }
 
 } }


@@ -176,16 +182,24 @@ void CYContext::NonLocal(CYStatement *&statements) {
     CYContext &context(*this);
 
     if (nextlocal_ != NULL && nextlocal_->identifier_ != NULL) {
     CYContext &context(*this);
 
     if (nextlocal_ != NULL && nextlocal_->identifier_ != NULL) {

-        CYVariable *cye($V("$cye"));
-        CYVariable *unique($ CYVariable(nextlocal_->identifier_));
+        CYIdentifier *cye($I("$cye")->Replace(context));
+        CYIdentifier *unique(nextlocal_->identifier_->Replace(context));
+
+        CYStatement *declare(
+            $ CYVar($L1($L(unique, $ CYObject()))));
+
+        cy::Syntax::Catch *rescue(
+            $ cy::Syntax::Catch(cye, $$->*
+                $ CYIf($ CYIdentical($M($ CYVariable(cye), $S("$cyk")), $ CYVariable(unique)), $$->*
+                    $ CYReturn($M($ CYVariable(cye), $S("$cyv"))))->*
+                $ cy::Syntax::Throw($ CYVariable(cye))));
+
+        declare = declare->Replace(context);
+        rescue->Replace(context);

 
         statements = $$->*
 
         statements = $$->*

-            $E($ CYAssign(unique, $ CYObject()))->*
-            $ cy::Syntax::Try(statements, $ cy::Syntax::Catch(cye->name_, $$->*
-                $ CYIf($ CYIdentical($M(cye, $S("$cyk")), unique), $$->*
-                    $ CYReturn($M(cye, $S("$cyv"))))->*
-                $ cy::Syntax::Throw(cye)
-            ), NULL);
+            declare->*
+            $ cy::Syntax::Try(statements, rescue, NULL);

     }
 }
 
     }
 }
 


@@ -372,9 +386,7 @@ void CYFunction::Replace_(CYContext &context, bool outer) {
     if (outer)
         Inject(context);
 
     if (outer)
         Inject(context);
 

-    CYScope scope;
-    scope.parent_ = context.scope_;
-    context.scope_ = &scope;
+    CYScope scope(CYScopeFunction, context, code_.statements_);

 
     CYNonLocal *nonlocal(context.nonlocal_);
     CYNonLocal *nextlocal(context.nextlocal_);
 
     CYNonLocal *nonlocal(context.nonlocal_);
     CYNonLocal *nextlocal(context.nextlocal_);


@@ -394,6 +406,7 @@ void CYFunction::Replace_(CYContext &context, bool outer) {
 
     if (parameters_ != NULL)
         parameters_ = parameters_->Replace(context, code_);
 
     if (parameters_ != NULL)
         parameters_ = parameters_->Replace(context, code_);

+

     code_.Replace(context);
 
     if (localize)
     code_.Replace(context);
 
     if (localize)


@@ -402,8 +415,7 @@ void CYFunction::Replace_(CYContext &context, bool outer) {
     context.nextlocal_ = nextlocal;
     context.nonlocal_ = nonlocal;
 
     context.nextlocal_ = nextlocal;
     context.nonlocal_ = nonlocal;
 

-    context.scope_ = scope.parent_;
-    scope.Scope(context, code_.statements_);
+    scope.Close();

 }
 
 CYExpression *CYFunctionExpression::Replace(CYContext &context) {
 }
 
 CYExpression *CYFunctionExpression::Replace(CYContext &context) {


@@ -554,17 +566,13 @@ namespace {
 }
 
 void CYProgram::Replace(CYContext &context) {
 }
 
 void CYProgram::Replace(CYContext &context) {

-    CYScope scope;
-    scope.parent_ = context.scope_;
-    context.scope_ = &scope;
+    CYScope scope(CYScopeProgram, context, statements_);

 
     context.nextlocal_ = $ CYNonLocal();
 
     context.nextlocal_ = $ CYNonLocal();

-

     statements_ = statements_->ReplaceAll(context);
     context.NonLocal(statements_);
 
     statements_ = statements_->ReplaceAll(context);
     context.NonLocal(statements_);
 

-    context.scope_ = scope.parent_;
-    scope.Scope(context, statements_);
+    scope.Close();

 
     size_t offset(0);
 
 
     size_t offset(0);
 


@@ -641,8 +649,25 @@ CYExpression *CYRubyProc::Replace(CYContext &context) {
     return function;
 }
 
     return function;
 }
 

+CYScope::CYScope(CYScopeType type, CYContext &context, CYStatement *&statements) :
+    type_(type),
+    context_(context),
+    statements_(statements),
+    parent_(context.scope_)
+{
+    context_.scope_ = this;
+}
+
+void CYScope::Close() {
+    context_.scope_ = parent_;
+    Scope(context_, statements_);
+}
+

 void CYScope::Declare(CYContext &context, CYIdentifier *identifier, CYIdentifierFlags flags) {
 void CYScope::Declare(CYContext &context, CYIdentifier *identifier, CYIdentifierFlags flags) {

-    internal_.insert(CYIdentifierAddressFlagsMap::value_type(identifier, flags));
+    if (type_ == CYScopeCatch && flags != CYIdentifierCatch)
+        parent_->Declare(context, identifier, flags);
+    else
+        internal_.insert(CYIdentifierAddressFlagsMap::value_type(identifier, flags));

 }
 
 CYIdentifier *CYScope::Lookup(CYContext &context, CYIdentifier *identifier) {
 }
 
 CYIdentifier *CYScope::Lookup(CYContext &context, CYIdentifier *identifier) {