tla-parser-s 0.1.0

data/lib/tla-parser-s.rb

@@ -0,0 +1,15 @@
+#
+
+# open Treetop::Runner::SyntaxNode
+require_relative( "utils/syntax_node" )
+
+require_relative( "utils/logger" )
+require_relative( "utils/version" )
+
+require_relative( "parser/exception" )
+require_relative( "parser/parser" )
+
+require_relative( "semantics/exception" )
+require_relative( "semantics/symbol_table" )
+require_relative( "semantics/context" )
+require_relative( "semantics/resolver" )

data/lib/utils/logger.rb

@@ -0,0 +1,80 @@
+require 'logger'
+
+# see http://hawkins.io/2013/08/using-the-ruby-logger/
+
+module TlaParserS
+  
+  module Utils
+    
+    module MyLogger
+
+      # no logging done
+
+      class NullLoger < Logger
+        def initialize(*args)
+        end
+
+        def add(*args, &block)
+        end
+
+        def debug?
+          false
+        end
+      end
+
+      @@logfile = nil                          # absolute path to log file
+      LOGFILE="tla-parser-s.log"
+
+      def logfile( options )
+        return @@logfile if @@logfile
+        @@logfile = options[:logfile] || File.join( Dir.getwd, LOGFILE )
+      end
+
+      def getLogger( progname, options={} ) 
+
+        level = get_level( options )
+
+        if level.nil? 
+
+          return NullLoger.new 
+
+        else
+          
+          logger = Logger.new( logfile( options ) )
+          logger.level=level
+          logger.progname = progname
+          return logger
+
+        end 
+
+      end # getLogger
+
+      # ------------------------------------------------------------------
+      private
+
+      def get_level( options ) 
+
+        # puts  "#{__method__}: options=#{options}" 
+
+        level_name = options && options[:log] ? options[:log] : ENV['LOG_LEVEL']
+
+        level = case  level_name
+                when 'warn', 'WARN'
+                  Logger::WARN
+                when 'info', 'INFO'
+                  Logger::INFO
+                when 'debug', 'DEBUG'
+                  Logger::DEBUG
+                when 'error', 'ERROR'
+                  Logger::ERROR
+                else
+                  nil
+                end
+
+        return level
+      end
+
+    end
+
+  end 
+end

data/lib/utils/syntax_node.rb

@@ -0,0 +1,73 @@
+module Treetop
+
+  module Runtime
+
+    class SyntaxNode
+
+      # @return [String] name of syntax node (as bare class name)
+      def node_type
+        self.class.name.split('::').last
+      end
+
+      # To abstact
+      # @return [String|Array|Hash] of node value
+      def node_value
+        text_value
+      end
+
+      # Default implementation of syntax node value (override in
+      # sub-classes)
+      #
+      # @return [String] value representeation of the node
+      def value
+        {
+          :node_type => node_type,
+          :value => node_value,
+        }
+      end
+
+
+      # http://www.rubydoc.info/gems/logstash-core/1.5.2.2/Treetop/Runtime/SyntaxNode
+      def recursive_inject_parent(results=[], &block)
+        if !parent.nil?
+          if block.call(parent)
+            results << parent
+          else
+            parent.recursive_inject_parent(results, &block)
+          end
+        end
+        return results
+      end
+
+      # Traverse the syntax tree recursively. The order should respect
+      # the order of the configuration file as it is read and written by
+      # humans (and the order in which it is parsed).
+      def recursive_inject(results=[], deep=false, &block)
+        if !elements.nil?
+          elements.each do |element|
+            if block.call(element)
+              results << element
+              if  deep
+                element.recursive_inject(results, deep, &block)
+              end
+            else
+              element.recursive_inject(results, &block)
+            end
+          end
+        end
+        return results
+      end
+
+      # When Treetop parses the configuration file it will generate a
+      # tree, the generated tree will contain a few `Empty` nodes to
+      # represent the actual space/tab or newline in the file. Some of
+      # theses node will point to our concrete class. To fetch a
+      # specific types of object we need to follow each branch and
+      # ignore the empty nodes.
+      def recursive_select(klass, deep=false)
+        return recursive_inject([], deep ) { |e| e.is_a?(klass) }
+      end
+      
+    end
+  end
+end

data/lib/utils/version.rb

@@ -0,0 +1,13 @@
+module TlaParserS
+
+
+  def self.version
+    File.readlines( File.join File.dirname( __FILE__ ), "../../VERSION" ).first.gsub( /\n/, "" )
+  end
+
+  def self.model_version
+    return File.readlines( "VERSION" ).first.gsub( /\n/, "" ) if File.exist?( "VERSION" )
+    return "Model version file #{Dir.pwd}/VERSION not found"
+  end
+
+end

data/spec/fixtures/callables1.tla

@@ -0,0 +1,64 @@
+\* line
+
+macro macroid1( m1_p1, m1_p2 )
+{
+   skip;
+
+};
+
+\* this is the second macro
+macro macroid2( macro2_a, macro2_b) {
+
+
+    skip;
+
+}
+
+(* ******************************************************************
+   This is comment containing macro3, which is not included into
+n   parse tree - because it is commented
+
+  macro macroid3( macro3_a, macro3_b) {
+
+
+    skip;
+
+  }
+   
+  ******************************************************************)
+
+
+
+ItWorks == TRUE
+
+ItCalls == ItWorks( 1 )
+
+
+(* ******************************************************************
+   Define procedures
+   ******************************************************************)
+
+procedure proc0( ) {
+   skip;
+}
+
+
+procedure proc1( a ) {
+   skip;
+}
+
+procedure proc2( a,b ) {
+   skip;
+}
+
+
+
+(* ******************************************************************
+   Variables
+   ******************************************************************)
+
+a = 1
+
+b = { a \in Set: TRUE }
+
+c = {}

data/spec/fixtures/directives.tla

@@ -0,0 +1,7 @@
+ASSUME Assume_Domains
+
+ASSUME a2 a3
+
+INVARIANT i1
+
+INVARIANT i2 i3

data/spec/fixtures/resolver1/comments.tla

@@ -0,0 +1 @@
+\* File with just comments

data/spec/fixtures/resolver1/directives.cfg

@@ -0,0 +1,6 @@
+ASSUME a1 a2
+
+INVARIANT i1
+
+
+

data/spec/fixtures/resolver1/directives.tla

@@ -0,0 +1,12 @@
+a1 == TRUE
+
+a2 == FALSE
+
+i1 == TRUE /\ a1
+
+
+
+
+
+
+

data/spec/fixtures/resolver1/macro1.tla

@@ -0,0 +1,3 @@
+macro macro1() {
+}
+

data/spec/fixtures/resolver1/macro2.tla

@@ -0,0 +1,3 @@
+macro macro2() {
+}
+

data/spec/fixtures/resolver1/op1.tla

@@ -0,0 +1,3 @@
+op1 == TRUE \/ FALSE
+
+

data/spec/fixtures/resolver1/op2.tla

@@ -0,0 +1,3 @@
+op2 == TRUE \/ FALSE
+
+

data/spec/fixtures/resolver1/proc1.tla

@@ -0,0 +1,4 @@
+procedure proc1( a ) {
+   macro1( a );
+}
+

data/spec/fixtures/resolver1/proc2.tla

@@ -0,0 +1,7 @@
+procedure proc2() {
+
+	  macro1(  );
+	  macro2();
+          call proc1();
+}
+

data/spec/fixtures/resolver1/proc3.tla

@@ -0,0 +1,4 @@
+procedure proc3( a ) {
+   macro1( var1, op1 );
+}
+

data/spec/fixtures/resolver1/proc4.tla

@@ -0,0 +1,4 @@
+procedure proc4( a ) {
+   call proc4( var4 );
+}
+

data/spec/fixtures/resolver1/proc4_hide.tla

@@ -0,0 +1,4 @@
+procedure proc4_hide( var4 ) {
+   call proc4_hide( var4 );
+}
+

data/spec/fixtures/resolver1/proc5.tla

@@ -0,0 +1,4 @@
+procedure proc5( a ) {
+   call proc5( var5 );
+}
+

data/spec/fixtures/resolver1/proc6.tla

@@ -0,0 +1,4 @@
+procedure proc6( a ) {
+   call proc7( a, unkown_variable );
+}
+

data/spec/fixtures/resolver1/proc7.tla

@@ -0,0 +1,4 @@
+procedure proc7( a ) {
+   call proc6( a );
+}
+

data/spec/fixtures/resolver1/stmt_assert.tla

@@ -0,0 +1,8 @@
+\*
+procedure stmt_assert( id_type ) {
+
+  assert( x = id_type );
+
+}
+
+

data/spec/fixtures/resolver1/stmt_assign.tla

@@ -0,0 +1,6 @@
+macro assignit( local ) {
+
+      var1.a := var4;
+
+}
+

data/spec/fixtures/resolver1/stmt_assign2.tla

@@ -0,0 +1,6 @@
+macro assignit2( local ) {
+
+      var5[x] := var4;
+
+}
+

data/spec/fixtures/resolver1/stmt_cond.tla

@@ -0,0 +1,13 @@
+\*
+procedure stmt_cond( id_type ) {
+
+\*   var4 := id_type;
+
+    if ( var4[ id_type ] = 0 ) {
+        x := TRUE;
+    }
+    else 
+    	var5 := FALSE;
+}
+
+

data/spec/fixtures/resolver1/stmt_either.tla

@@ -0,0 +1,12 @@
+\*
+procedure stmt_either( id_type ) {
+
+       either {
+           var4 := TRUE;
+       } or {
+           var5 := FALSE;
+       };
+
+}
+
+

data/spec/fixtures/resolver1/stmt_print.tla

@@ -0,0 +1,5 @@
+macro printit( local ) {
+
+      print <<var1,local, op2(var4)>>;
+}
+

data/spec/fixtures/resolver1/var4.tla

@@ -0,0 +1 @@
+var4 = 5

data/spec/fixtures/resolver1/var5.tla

@@ -0,0 +1 @@
+var5 = op1

data/spec/fixtures/resolver1/var_choose_except.tla

@@ -0,0 +1,2 @@
+var_choose_except = CHOOSE x \in Set : op1( x, var4 )
+

data/spec/fixtures/resolver1/var_quantify.tla

@@ -0,0 +1,4 @@
+var_quantify = \A a \in op1( var4 ): TRUE
+
+
+