bel_parser 1.0.0.alpha.38-java → 1.0.0.alpha.39-java

data/lib/bel_parser/parsers/bel_script/define_namespace.rl

@@ -7,49 +7,86 @@
   include 'identifier.rl';
   include 'string.rl';
 
-  DEFINE_KW     = [dD][eE][fF][iI][nN][eE];
-  NAMESPACE_KW  = [nN][aA][mM][eE][sS][pP][aA][cC][eE];
-  AS_KW         = [aA][sS];
-  URL_KW        = [uU][rR][lL];
-
-  action namespace_keyword {
-    @buffers[:namespace_definition] = namespace_definition()
+  action add_name {
+    trace('DEFINE_NAMESPACE add_name')
+    name = @buffers.delete(:ident)
+    @buffers[:namespace_definition_name] = name
   }
 
-  action keyword {
-    @buffers[:namespace_definition] = @buffers[:namespace_definition] << keyword(@buffers[:ident])
+  action add_string_value {
+    trace('DEFINE_NAMESPACE add_string_value')
+    string_node = @buffers.delete(:string)
+    leaf = domain(url(string_node))
+    leaf.complete = string_node.complete
+    @buffers[:namespace_definition_domain] = leaf
   }
 
-  action url_keyword {
-    @buffers[:namespace_definition] = @buffers[:namespace_definition] << domain(url())
+  action add_url_domain {
+    trace('DEFINE_NAMESPACE add_url_domain')
+    @url_domain = true
   }
 
-  action string {
-    keyword, domain                 = @buffers[:namespace_definition].children
-    domain                          = domain(
-                                        domain.children[0] << @buffers[:string])
-    @buffers[:namespace_definition] = namespace_definition(keyword, domain)
+  action define_namespace_end {
+    trace('DEFINE_NAMESPACE define_namespace_end')
+    namespace_definition_node = namespace_definition()
+
+    name = @buffers.delete(:namespace_definition_name)
+    namespace_definition_node <<= keyword(name)
+
+    domain = @buffers.delete(:namespace_definition_domain)
+    unless domain.nil?
+      namespace_definition_node <<= domain
+      namespace_definition_node.complete = domain.complete
+    end
+    @buffers[:namespace_definition] = namespace_definition_node
   }
 
-  action yield_namespace_definition {
+  action yield_define_namespace {
+    trace('DEFINE_NAMESPACE yield_define_namespace')
     yield @buffers[:namespace_definition]
   }
 
-  # Define FSM
-  define_namespace :=
-    DEFINE_KW
-    SP+
-    NAMESPACE_KW @namespace_keyword
+  action define_namespace_node_eof {
+    trace('DEFINE_NAMESPACE define_namespace_node_eof')
+    leaf = url()
+    string_node = @buffers.delete(:string)
+    unless string_node.nil?
+      leaf <<= string_node
+      leaf.complete = string_node.complete
+    end
+    domain_node = domain(leaf)
+    domain_node.complete = leaf.complete
+    namespace_definition_node = namespace_definition(domain_node)
+    namespace_definition_node.complete = domain_node.complete
+    yield namespace_definition_node
+  }
+
+  string_value =
+    a_string
+    %add_string_value
+    ;
+
+  url_domain =
+    KW_URL
+    %add_url_domain
+    ;
+
+  define_namespace_node :=
+    DEFINE_NAMESPACE
     SP+
-    IDENT %keyword
+    an_ident
+    %add_name
     SP+
-    AS_KW
+    KW_AS
     SP+
-    URL_KW @url_keyword
+    url_domain
     SP+
-    STRING %string
-    SP*
-    NL @yield_namespace_definition;
+    string_value
+    @eof(define_namespace_node_eof)
+    %define_namespace_end
+    %yield_define_namespace
+    NL
+    ;
 }%%
 =end
 # end: ragel
@@ -57,6 +94,7 @@
 require_relative '../ast/node'
 require_relative '../mixin/buffer'
 require_relative '../nonblocking_io_wrapper'
+require_relative '../tracer'
 
 module BELParser
   module Parsers
@@ -82,26 +120,28 @@ module BELParser
           include Enumerable
           include BELParser::Parsers::Buffer
           include BELParser::Parsers::AST::Sexp
+          include BELParser::Parsers::Tracer
 
           def initialize(content)
             @content = content
-      # begin: ragel        
+      # begin: ragel
             %% write data;
-      # end: ragel        
+      # end: ragel
           end
 
           def each
-            @buffers = {}
-            stack    = []
-            data     = @content.unpack('C*')
-            p        = 0
-            pe       = data.length
-            eof      = data.length
-
-      # begin: ragel        
+            @buffers =    {}
+            @incomplete = {}
+            stack       = []
+            data        = @content.unpack('C*')
+            p           = 0
+            pe          = data.length
+            eof         = data.length
+
+      # begin: ragel
             %% write init;
             %% write exec;
-      # end: ragel        
+      # end: ragel
           end
         end
       end