falluto 0.0.1 → 0.0.9

data/lib/falluto/nusmv/fault.rb

@@ -0,0 +1,87 @@
+module Falluto
+  module NuSMV
+    class AuxiliarVariable
+      attr_reader :name, :condition
+      def initialize name, condition
+        @name, @condition = name, condition
+      end
+    end
+
+    class Fault
+      GUARD_VARIABLE_FORMAT = '%s_g%d'
+
+      attr_reader :name, :process_name
+      attr_reader :precondition, :restore
+      attr_reader :precondition_variable, :restore_variable, :active_variable,
+                  :fairness_variable
+
+      def initialize modul, name, precondition, restore, effect
+        @name = name
+        @process_name = "#{modul}_#{name}"
+        @precondition = precondition
+        @restore = restore
+        @system_effect = effect
+
+        @fairness_variable = "#{@name}_vfair"
+        @precondition_variable = "#{@name}_pre"
+        @restore_variable = "#{@name}_restore"
+        @active_variable = "active"
+
+        @auxiliar_variables = []
+
+      end
+
+      def add_auxiliar_variable guard
+        vname = next_auxiliar_variable
+        @auxiliar_variables << AuxiliarVariable.new(vname, guard)
+      end
+
+      def next_auxiliar_variable
+        i = @auxiliar_variables.length + 1
+        GUARD_VARIABLE_FORMAT % [@name, i]
+      end
+
+      def strong_fairness inst
+        "((G F (#{fairness_condition(inst)})) -> (G F (#{inst}.#{fairness_variable})))"
+      end
+
+      ##### Variables affected by system effect
+      def each_affected_variable &block
+        @system_effect.variables.each{ |v| yield v }
+      end
+
+      def each_affected_variable_with_effect &block
+        @system_effect.each_pair{ |v, effect| yield v, effect }
+      end
+      
+      def instance_signature
+        parameters = "#{precondition_variable}, #{restore_variable}"
+        each_affected_variable{|v| parameters << ", #{v}"}
+        %Q|#{process_name}(#{parameters})|
+      end
+
+      def each_auxiliar_variable &block
+        @auxiliar_variables.each {|v| yield v}
+      end
+
+      def fairness_condition inst = nil
+        if inst.nil?
+          not_effect = "! #{@name}.#{active_variable}"
+    #      not_effect = "! #{active_variable}"
+        else
+          not_effect = "! #{inst}.#{@name}.#{active_variable}"
+        end
+
+        if @auxiliar_variables.empty?
+          not_effect
+        else
+          vars = @auxiliar_variables.collect do |v|
+            (inst.nil? ? '' : "#{inst}.") + v.name
+          end
+          '( ' + vars.join(' | ') + " ) & #{not_effect}"
+        end
+      end
+    end
+  end
+end
+

data/lib/falluto/nusmv/module.rb

@@ -0,0 +1,45 @@
+require 'falluto/symboltable'
+
+module Falluto
+  module NuSMV
+    class Module
+      attr_reader :name
+
+      def initialize name
+        @name = name
+        @faults = SymbolTable.new
+        @variables = SymbolTable.new
+      end
+
+      def add_fault fault
+        @faults.insert fault
+      end
+
+      def get_faults *fault_names
+        fault_names.collect{ |fname| @faults.get fname }
+#    @faults.get f
+      end
+
+      def is_defined? fault
+        @faults.has? fault
+      end
+
+      def has_faults?
+        not @faults.empty?
+      end
+
+      def each_fault &block
+        @faults.each &block
+      end
+
+      def add_variable var
+        @variables.insert var
+      end
+
+      def each_variable &block
+        @variables.each &block
+      end
+
+    end
+  end
+end

data/lib/falluto/nusmv/variable.rb

@@ -0,0 +1,13 @@
+module Falluto
+  module NuSMV
+    class Variable
+      attr_reader :name, :type
+      def initialize(name, type)
+        raise 'name cannot be empty' if (name.nil? or name.empty?)
+        raise 'type cannot be empty' if (type.nil? or type.empty?)
+        @name, @type = name, type
+      end
+    end
+  end
+end
+

data/lib/falluto/nusmv.rb

@@ -0,0 +1,4 @@
+require 'falluto/nusmv/codegen'
+require 'falluto/nusmv/variable'
+require 'falluto/nusmv/module'
+require 'falluto/nusmv/fault'

data/lib/falluto/ruby_extensions/class.rb

@@ -0,0 +1,10 @@
+class Class
+  def human_name
+    name.to_s.gsub(/::/, '_').
+      gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+      gsub(/([a-z\d])([A-Z])/,'\1_\2').
+      tr("-", "_").
+      downcase
+  end
+end
+

data/lib/falluto/ruby_extensions/file.rb

@@ -0,0 +1,5 @@
+class File
+  def self.replace_extension filename, newext
+      File.basename(filename, '.*') + ".#{newext}"
+  end
+end

data/lib/falluto/ruby_extensions/hash.rb

@@ -0,0 +1,3 @@
+class Hash
+  alias variables keys
+end

data/lib/falluto/ruby_extensions/string.rb

@@ -0,0 +1,5 @@
+class String
+  def quote
+      '"' + self + '"'
+  end
+end

data/lib/falluto/ruby_extensions.rb

@@ -0,0 +1,4 @@
+require 'falluto/ruby_extensions/class'
+require 'falluto/ruby_extensions/file'
+require 'falluto/ruby_extensions/hash'
+require 'falluto/ruby_extensions/string'

data/lib/falluto/symboltable.rb

@@ -0,0 +1,34 @@
+class SymbolTable
+  include Enumerable
+
+  def initialize attribute = :name
+    @table = Hash.new
+    @attribute = attribute
+  end
+
+  def has? object
+    key = object.send(@attribute)
+    @table.include? key
+  end
+
+  def insert(object)
+    key = object.send(@attribute)
+    @table[key] = object
+  end
+  alias << insert
+
+  def get key
+    @table[key]
+  end
+  alias [] get
+
+  def empty?
+    @table.empty?
+  end
+
+  def each &block
+    @table.values.each &block
+  end
+end
+
+

data/lib/falluto/version.rb

@@ -0,0 +1,10 @@
+module Falluto
+  module Version
+    MAJOR = 0
+    MINOR = 0
+    PATCH = 9
+
+    STRING = "#{MAJOR}.#{MINOR}.#{PATCH}"
+  end
+  NAME = "Falluto"
+end

data/spec/grammar/parser_spec.rb

@@ -0,0 +1,121 @@
+require 'spec_helper'
+require 'falluto/grammar'
+
+describe 'a Falluto Parser' do
+  before do
+    @parser = Falluto::GrammarParser.new
+  end
+
+  it 'should parse a simple module' do
+    tree = @parser.parse %q{
+      MODULE main
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a module with a variable' do
+    tree = @parser.parse %q{
+      MODULE main
+      VAR
+        x : boolean;
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a fault declaration' do
+    @parser.root = :fault
+    declaration = @parser.parse %q{FAULT f
+         pre(true);
+         effect(x = 0, y = 1);
+         restores(false);
+    }
+    declaration.should.not.be.nil
+    declaration.name.should.equal 'f'
+    declaration.precondition.should.equal 'true'
+    declaration.restores.should.equal 'false'
+    declaration.effect.should.equal 'x' => '0', 'y' => '1'
+  end
+
+  it 'should parse a module with a fault' do
+    tree = @parser.parse %q{
+      MODULE main
+      FAULT f
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      VAR
+        x : boolean;
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a module with two faults' do
+    tree = @parser.parse %q{
+      MODULE main
+      FAULT f
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      FAULT g
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      VAR
+        x : boolean;
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a module with a fault in next assignment' do
+    tree = @parser.parse %q{
+      MODULE main
+      FAULT f
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      VAR
+        x : boolean;
+      ASSIGN
+        next(x) := x + 1 disabled_by {f};
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a module with a fault in case assignment' do
+    tree = @parser.parse %q{
+      MODULE main
+      FAULT f
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      VAR
+        x : boolean;
+      ASSIGN
+        next(x) :=
+          case
+            c1 : x + 1;
+            1  : x;
+          esac disabled_by {f};
+    }
+    tree.should.not.be.nil
+  end
+
+  it 'should parse a module with a fault in case element' do
+    tree = @parser.parse %q{
+      MODULE main
+      FAULT f
+        pre(cond1 & cond2 | cond3);
+        effect(x = x + 1);
+        restores(!reset);
+      VAR
+        x : boolean;
+      ASSIGN
+        next(x) :=
+          case
+            c1 : x + 1 disabled_by {f};
+            1  : x;
+          esac;
+    }
+    tree.should.not.be.nil
+  end
+end

data/spec/nusmv/fault_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+require 'falluto/nusmv'
+
+describe 'a Falluto Fault' do
+  before do
+    pre = 'x > 0'
+    restore = 'x >= 0'
+    effect = nil
+    @fault = Falluto::NuSMV::Fault.new 'Foo', 'Bar', pre, restore, effect
+  end
+
+  it 'should have a name' do
+    @fault.name.should.be.equal 'Bar'
+    @fault.process_name.should.be.equal 'Foo_Bar'
+  end
+
+end

data/spec/nusmv/generator_spec.rb

@@ -0,0 +1,42 @@
+require 'spec_helper'
+require 'falluto/nusmv'
+
+describe 'a NuSMV Code Generator' do
+  before do
+    @generator = Falluto::NuSMV::CodeGenerator.new
+  end
+
+  it 'should generate a module' do
+    @generator.module('main(a, b)').should.equal 'MODULE main(a, b)'
+  end
+
+  it 'should generate a variable' do
+    @generator.variable_declaration('v', 'boolean').should.equal 'VAR v : boolean;'
+  end
+
+  it 'should instance a process' do
+    @generator.instance_process('no_params').should.equal 'process no_params();'
+    @generator.instance_process('sometype', 'arg1', 'arg2').should.equal 'process sometype(arg1, arg2);'
+  end
+
+  it 'should generate a process' do
+    @generator.process('sometype()').should.equal 'process sometype()'
+  end
+
+  it 'should generate a fairness constraint' do
+    @generator.fairness('running').should.equal 'FAIRNESS running'
+  end
+
+  it 'should generate macros' do
+    @generator.define('v', 'expr').should.equal 'DEFINE v := (expr);'
+  end
+
+  it 'should generate an LTL spec' do
+    @generator.ltlspec('G F p').should.equal 'LTLSPEC G F p'
+  end
+
+  it 'should generate implication' do
+    @generator.implies('p', 'q').should.equal '((p) -> (q))'
+  end
+end
+

data/spec/nusmv/module_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+require 'falluto/nusmv'
+
+describe 'a NuSMV Module' do
+  before do
+    @module = Falluto::NuSMV::Module.new 'SomeModule'
+  end
+
+  it 'should have a name' do
+    @module.name.should.equal 'SomeModule'
+  end
+end

data/spec/nusmv/variable_spec.rb

@@ -0,0 +1,32 @@
+require 'spec_helper'
+require 'falluto/nusmv'
+
+describe 'a NuSMV Variable' do
+  before do
+  end
+
+  it 'should have a name and type' do
+    var = Falluto::NuSMV::Variable.new 'procvar', 'SomeProcType'
+    var.name.should.equal 'procvar'
+    var.type.should.equal 'SomeProcType'
+  end
+
+  it 'should raise an error if name is nil or empty' do
+    lambda { Falluto::NuSMV::Variable.new nil, 'sometype' }.
+      should.raise(Exception).
+        message.should.match(/name cannot be empty/)
+    lambda { Falluto::NuSMV::Variable.new '', 'sometype' }.
+      should.raise(Exception).
+        message.should.match(/name cannot be empty/)
+  end
+
+  it 'should raise an error if type is nil or empty' do
+    lambda { Falluto::NuSMV::Variable.new 'somename', nil }.
+      should.raise(Exception).
+        message.should.match(/type cannot be empty/)
+    lambda { Falluto::NuSMV::Variable.new 'somename', '' }.
+      should.raise(Exception).
+        message.should.match(/type cannot be empty/)
+  end
+end
+

data/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+require 'rubygems'
+require 'bacon'
+
+Bacon.summary_on_exit

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: falluto
 version: !ruby/object:Gem::Version 
-  version: 0.0.1
+  version: 0.0.9
 platform: ruby
 authors: 
 - Edgardo Hames
@@ -9,18 +9,18 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-12-17 00:00:00 -08:00
-default_executable: falluto.rb
+date: 2010-01-06 00:00:00 -08:00
+default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: thoughtbot-shoulda
+  name: bacon
   type: :development
   version_requirement: 
   version_requirements: !ruby/object:Gem::Requirement 
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        version: "0"
+        version: 1.1.0
     version: 
 - !ruby/object:Gem::Dependency 
   name: treetop
@@ -35,22 +35,39 @@ dependencies:
 description: A model checker for verifying fault tolerant systems
 email: ehames@gmail.com
 executables: 
+- cleantrace.rb
 - falluto.rb
+- ftnusmv.rb
+- viewtrace.rb
 extensions: []
 
 extra_rdoc_files: 
 - LICENSE
 - README.rdoc
 files: 
-- .document
-- .gitignore
+- bin/cleantrace.rb
+- bin/falluto.rb
+- bin/ftnusmv.rb
+- bin/viewtrace.rb
+- lib/falluto/compiler.rb
+- lib/falluto/grammar.rb
+- lib/falluto/grammar/nodes.rb
+- lib/falluto/grammar/rules.treetop
+- lib/falluto/grammar/tokens.treetop
+- lib/falluto/nusmv.rb
+- lib/falluto/nusmv/codegen.rb
+- lib/falluto/nusmv/fault.rb
+- lib/falluto/nusmv/module.rb
+- lib/falluto/nusmv/variable.rb
+- lib/falluto/ruby_extensions.rb
+- lib/falluto/ruby_extensions/class.rb
+- lib/falluto/ruby_extensions/file.rb
+- lib/falluto/ruby_extensions/hash.rb
+- lib/falluto/ruby_extensions/string.rb
+- lib/falluto/symboltable.rb
+- lib/falluto/version.rb
 - LICENSE
 - README.rdoc
-- Rakefile
-- VERSION
-- bin/falluto.rb
-- test/helper.rb
-- test/test_falluto.rb
 has_rdoc: true
 homepage: http://github.com/ehames/falluto
 licenses: []
@@ -80,5 +97,9 @@ signing_key:
 specification_version: 3
 summary: A model checker for verifying fault tolerant systems
 test_files: 
-- test/helper.rb
-- test/test_falluto.rb
+- spec/grammar/parser_spec.rb
+- spec/spec_helper.rb
+- spec/nusmv/fault_spec.rb
+- spec/nusmv/variable_spec.rb
+- spec/nusmv/generator_spec.rb
+- spec/nusmv/module_spec.rb

data/.document

@@ -1,5 +0,0 @@
-README.rdoc
-lib/**/*.rb
-bin/*
-features/**/*.feature
-LICENSE

data/.gitignore

@@ -1,21 +0,0 @@
-## MAC OS
-.DS_Store
-
-## TEXTMATE
-*.tmproj
-tmtags
-
-## EMACS
-*~
-\#*
-.\#*
-
-## VIM
-*.swp
-
-## PROJECT::GENERAL
-coverage
-rdoc
-pkg
-
-## PROJECT::SPECIFIC

data/Rakefile

@@ -1,56 +0,0 @@
-require 'rubygems'
-require 'rake'
-
-begin
-  require 'jeweler'
-  Jeweler::Tasks.new do |gem|
-    gem.name = "falluto"
-    gem.summary = %Q{A model checker for verifying fault tolerant systems}
-    gem.description = %Q{A model checker for verifying fault tolerant systems}
-    gem.email = "ehames@gmail.com"
-    gem.homepage = "http://github.com/ehames/falluto"
-    gem.authors = ["Edgardo Hames"]
-    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
-
-    gem.add_dependency "treetop", ">= 1.2.3"
-
-    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
-  end
-  Jeweler::GemcutterTasks.new
-rescue LoadError
-  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
-end
-
-require 'rake/testtask'
-Rake::TestTask.new(:test) do |test|
-  test.libs << 'lib' << 'test'
-  test.pattern = 'test/**/test_*.rb'
-  test.verbose = true
-end
-
-begin
-  require 'rcov/rcovtask'
-  Rcov::RcovTask.new do |test|
-    test.libs << 'test'
-    test.pattern = 'test/**/test_*.rb'
-    test.verbose = true
-  end
-rescue LoadError
-  task :rcov do
-    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
-  end
-end
-
-task :test => :check_dependencies
-
-task :default => :test
-
-require 'rake/rdoctask'
-Rake::RDocTask.new do |rdoc|
-  version = File.exist?('VERSION') ? File.read('VERSION') : ""
-
-  rdoc.rdoc_dir = 'rdoc'
-  rdoc.title = "falluto #{version}"
-  rdoc.rdoc_files.include('README*')
-  rdoc.rdoc_files.include('lib/**/*.rb')
-end

data/VERSION

@@ -1 +0,0 @@
-0.0.1

data/test/helper.rb

@@ -1,10 +0,0 @@
-require 'rubygems'
-require 'test/unit'
-require 'shoulda'
-
-$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
-$LOAD_PATH.unshift(File.dirname(__FILE__))
-require 'falluto'
-
-class Test::Unit::TestCase
-end

data/test/test_falluto.rb

@@ -1,7 +0,0 @@
-require 'helper'
-
-class TestFalluto < Test::Unit::TestCase
-  should "probably rename this file and start testing for real" do
-    flunk "hey buddy, you should probably rename this file and start testing for real"
-  end
-end