adsl 0.0.2

data/Gemfile

@@ -0,0 +1,17 @@
+source "http://rubygems.org"
+
+# base
+# indentation added to prevent these dependencies when building the gem
+  gem "rake"
+  gem "test-unit"
+  gem "i18n"
+
+# lexer/parser
+gem "rex"
+gem "racc"
+
+# used all over the place
+gem "active_support"
+
+# terminal color output
+gem "colorize"

data/LICENSE

@@ -0,0 +1,165 @@
+                   GNU LESSER GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+  This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+  0. Additional Definitions.
+
+  As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+  "The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+  An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+  A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+  The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+  The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+  1. Exception to Section 3 of the GNU GPL.
+
+  You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+  2. Conveying Modified Versions.
+
+  If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+   a) under this License, provided that you make a good faith effort to
+   ensure that, in the event an Application does not supply the
+   function or data, the facility still operates, and performs
+   whatever part of its purpose remains meaningful, or
+
+   b) under the GNU GPL, with none of the additional permissions of
+   this License applicable to that copy.
+
+  3. Object Code Incorporating Material from Library Header Files.
+
+  The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+   a) Give prominent notice with each copy of the object code that the
+   Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the object code with a copy of the GNU GPL and this license
+   document.
+
+  4. Combined Works.
+
+  You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+   a) Give prominent notice with each copy of the Combined Work that
+   the Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the Combined Work with a copy of the GNU GPL and this license
+   document.
+
+   c) For a Combined Work that displays copyright notices during
+   execution, include the copyright notice for the Library among
+   these notices, as well as a reference directing the user to the
+   copies of the GNU GPL and this license document.
+
+   d) Do one of the following:
+
+       0) Convey the Minimal Corresponding Source under the terms of this
+       License, and the Corresponding Application Code in a form
+       suitable for, and under terms that permit, the user to
+       recombine or relink the Application with a modified version of
+       the Linked Version to produce a modified Combined Work, in the
+       manner specified by section 6 of the GNU GPL for conveying
+       Corresponding Source.
+
+       1) Use a suitable shared library mechanism for linking with the
+       Library.  A suitable mechanism is one that (a) uses at run time
+       a copy of the Library already present on the user's computer
+       system, and (b) will operate properly with a modified version
+       of the Library that is interface-compatible with the Linked
+       Version.
+
+   e) Provide Installation Information, but only if you would otherwise
+   be required to provide such information under section 6 of the
+   GNU GPL, and only to the extent that such information is
+   necessary to install and execute a modified version of the
+   Combined Work produced by recombining or relinking the
+   Application with a modified version of the Linked Version. (If
+   you use option 4d0, the Installation Information must accompany
+   the Minimal Corresponding Source and Corresponding Application
+   Code. If you use option 4d1, you must provide the Installation
+   Information in the manner specified by section 6 of the GNU GPL
+   for conveying Corresponding Source.)
+
+  5. Combined Libraries.
+
+  You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+   a) Accompany the combined library with a copy of the same work based
+   on the Library, uncombined with any other library facilities,
+   conveyed under the terms of this License.
+
+   b) Give prominent notice with the combined library that part of it
+   is a work based on the Library, and explaining where to find the
+   accompanying uncombined form of the same work.
+
+  6. Revised Versions of the GNU Lesser General Public License.
+
+  The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+  Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+  If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.

data/README.md

@@ -0,0 +1,45 @@
+ADSL - Abstract Data Store Language Parser and Translator
+=========================================================
+
+This package contains adsl, a Ruby gem for verifying ADSL specifications.
+
+Installation
+------------
+
+Usage
+-----
+
+    adsl-verify <specification-file>
+
+For options and other modes of operation, run
+
+    adsl-verify --help
+  
+Development
+-----------
+
+### Source Repository
+
+The ADSL gem is currently hosted at github. The github web page is
+http://github.com/Bocete/adsl. The public git clone URL is
+
+    git://github.com/Bocete/adsl.git
+
+### Issues and Bug Reports
+
+Feature requests and bug reports can be made here
+
+    https://github.com/Bocete/adsl/issues
+
+License
+-------
+
+Rake is available under a [Lesser GPL (LGPL) license](LICENSE).
+
+Warranty
+--------
+
+This software is provided "as is" and without any express or
+implied warranties, including, without limitation, the implied
+warranties of merchantibility and fitness for a particular
+purpose.

data/bin/adsl-verify

@@ -0,0 +1,111 @@
+#!/usr/bin/env ruby
+require 'pathname'
+require 'optparse'
+require 'ostruct'
+
+options = OpenStruct.new
+options.path = :stdin
+options.language = 'spass'
+options.halt_on_error = false
+options.check_satisfiability = true
+options.timeout = 30
+options.csv_output = false
+options.actions = nil
+options.invariants = nil
+
+OptionParser.new do |opts|
+  opts.banner = "Usage: verify-adsl [options] [input_file]"
+  opts.separator ""
+  opts.separator "Specific options:"
+
+  opts.on("-l", "--language LANGUAGE",
+          "Specify the method for verifying the specification",
+          "  Only 'spass' is supported so far",
+          "  Default: #{options.language}") do |lang|
+    options.language = lang
+  end
+  
+  opts.on("-h", "--[no-]halt-on-error",
+          "Halt verification on the first error encountered. Default: #{options.halt_on_error}") do |halt|
+    options.halt_on_error = halt
+  end
+  
+  opts.on("-c", "--[no-]check-satisfiability",
+          "Before verifying actions individually, check that the data store has a valid state.",
+          "  Default: #{options.check_satisfiability}") do |check|
+    options.check_satisfiability = check
+  end
+
+  opts.on("-s", "--stats-csv",
+          "Output the results of the verification with stats in CSV form.",
+          "  Default: #{options.csv_output}") do
+    options.csv_output = true
+  end
+
+  opts.on("-t", "--timeout TIMEOUT", Integer,
+          "Timeout for verifying each individual conjecture, in seconds.",
+          "  Use -1 to allow infinite time for each conjecture. Default: #{options.timeout} sec") do |timeout|
+    raise OptionParser::InvalidArgument, "Timeout has to be a non-negative integer, or -1" if timeout < -1
+    options.timeout = timeout
+  end
+
+  opts.on("-a", "--actions ACTIONS",
+          "A colon separated list of actions to be verified.",
+          "  Only actions whose name contains any of the arguments will be vefified",
+          "  All actions are verified by default") do |actions|
+    options.actions = actions.split(':').map(&:strip)
+  end
+
+  opts.on("-i", "--invariants INVARIANTS",
+          "A colon separated list of invariants to be verified.",
+          "  Only invariants whose name contains any of the arguments will be vefified",
+          "  All invariants are verified by default") do |actions|
+    options.invariants = actions.split(':').map(&:strip)
+  end
+
+  opts.on_tail("--help", "Show this message") do
+    puts opts
+    exit
+  end
+end.parse!
+
+input = ""
+unless ARGV.empty?
+  raise OptionParser::ParseError "Invalid usage. Run verify-adsl --help for instructions" if ARGV.length != 1
+  options.path = ARGV.first
+  raise OptionParser::InvalidArgument, "File not found: #{File.expand_path options.path}" unless File.exists? options.path
+
+  file = File.new options.path
+  input = file.read
+else
+  input = STDIN.read
+end
+
+GEM_BIN_PATH = Pathname.new(File.expand_path(__FILE__)).parent
+GEM_LIB_PATH = GEM_BIN_PATH.parent + "lib"
+$LOAD_PATH.unshift GEM_LIB_PATH unless $LOAD_PATH.include? GEM_LIB_PATH
+
+case options.language
+when 'spass'
+  require 'spass/bin'
+  include Spass::Bin
+  begin
+    verify(input,
+      :halt_on_error => options.halt_on_error,
+      :check_satisfiability => options.check_satisfiability,
+      :timeout => options.timeout,
+      :csv_output => options.csv_output,
+      :actions => options.actions,
+      :invariants => options.invariants)
+  rescue Exception => e
+    $stderr.puts "Error thrown"
+    $stderr.puts e.message unless e.message.nil? or e.message.strip.length == 0
+    $stderr.puts e.backtrace
+    exit -1
+  end
+else
+  $stderr.puts "Unknown translation language #{options.language}"
+  exit -1
+end
+
+exit 0

data/lib/ds/data_store_spec.rb

@@ -0,0 +1,292 @@
+require 'util/util'
+
+module DS
+  class DSNode
+    def list_entity_classes_written_to
+      recursively_gather :entity_class_writes
+    end
+
+    def list_entity_classes_read
+      recursively_gather :entity_class_reads
+    end
+
+    def replace(what, with)
+      to_inspect = [self]
+      inspected = Set[]
+      replaced = false
+      while not to_inspect.empty?
+        elem = to_inspect.pop
+        if elem.kind_of? Array
+          elem.length.times do |i|
+            if elem[i] == what
+              elem[i] = with
+              replaced = true
+            else
+              to_inspect << elem[i] unless inspected.include? elem[i]
+            end
+            inspected << elem[i]
+          end
+        elsif elem.class.methods.include? 'container_for_fields'
+          elem.class.container_for_fields.each do |field_name|
+            field_val = elem.send field_name
+            if field_val == what
+              elem.send "#{field_name}=", with
+              replaced = true
+            elsif field_val.kind_of?(Array) or field_val.class.methods.include?('container_for_fields')
+              to_inspect << field_val unless inspected.include? field_val
+            end
+            inspected << field_val
+          end
+        end
+      end
+      replaced
+    end
+  end
+  
+  class DSSpec < DSNode
+    container_for :classes, :actions, :invariants
+  end
+
+  class DSClass < DSNode
+    container_for :name, :parent, :relations, :inverse_relations do
+      @relations = [] if @relations.nil?
+      @inverse_relations = [] if @inverse_relations.nil?
+    end
+
+    def to_s
+      @name
+    end
+
+    def superclass_of?(other_class)
+      until other_class.nil?
+        return true if other_class == self
+        other_class = other_class.parent
+      end
+      return false
+    end
+  end
+
+  class DSRelation < DSNode
+    container_for :cardinality, :from_class, :to_class, :name, :inverse_of
+
+    def to_s
+      "#{from}.#{name}"
+    end
+  end
+
+  class DSAction < DSNode
+    container_for :name, :args, :cardinalities, :block
+
+    def statements
+      @block.statements
+    end
+  end
+
+  class DSBlock < DSNode
+    container_for :statements
+  end
+
+  class DSAssignment < DSNode
+    container_for :var, :objset
+  end
+
+  class DSCreateObj < DSNode
+    container_for :klass
+    
+    def entity_class_writes
+      Set[@klass]
+    end
+  end
+  
+  class DSCreateObjset < DSNode
+    container_for :createobj
+  end
+
+  class DSCreateTup < DSNode
+    container_for :objset1, :relation, :objset2
+  end
+
+  class DSDeleteObj < DSNode
+    container_for :objset
+    
+    def entity_class_writes
+      Set[@objset.type]
+    end
+  end
+
+  class DSDeleteTup < DSNode
+    container_for :objset1, :relation, :objset2
+  end
+
+  class DSEither < DSNode
+    container_for :blocks, :lambdas
+  end
+  
+  class DSEitherLambdaObjset < DSNode
+    container_for :either, :vars
+  end
+
+  class DSForEachCommon < DSNode
+    container_for :objset, :block
+  end
+
+  class DSForEach < DSForEachCommon
+  end
+
+  class DSFlatForEach < DSForEachCommon
+  end
+
+  class DSForEachIteratorObjset < DSNode
+    container_for :for_each
+
+    def typecheck_and_resolve(context)
+      self
+    end
+
+    def type
+      @for_each.objset.type
+    end
+  end
+
+  class DSForEachPreLambdaObjset < DSNode
+    container_for :for_each, :before_var, :inside_var
+  end
+  
+  class DSForEachPostLambdaObjset < DSNode
+    container_for :for_each, :before_var, :inside_var
+  end
+
+  class DSVariable < DSNode
+    container_for :name, :type
+  end
+
+  class DSAllOf < DSNode
+    container_for :klass
+    
+    def type
+      @klass
+    end
+
+    def entity_class_reads
+      @klass
+    end
+  end
+
+  class DSSubset < DSNode
+    container_for :objset
+
+    def type
+      @objset.type
+    end
+  end
+
+  class DSOneOf < DSNode
+    container_for :objset
+    def type
+      @objset.type
+    end
+  end
+
+  class DSDereference < DSNode
+    container_for :objset, :relation
+
+    def type
+      @relation.to_class
+    end
+  end
+
+  class DSInvariant < DSNode
+    container_for :name, :formula
+  end
+
+  class DSBoolean < DSNode
+    container_for :bool_value
+
+    TRUE = DSBoolean.new :bool_value => true
+    FALSE = DSBoolean.new :bool_value => false
+
+    def type
+      :formula
+    end
+  end
+
+  class DSForAll < DSNode
+    container_for :vars, :objsets, :subformula
+
+    def type
+      :formula
+    end
+  end
+  
+  class DSExists < DSNode
+    container_for :vars, :objsets, :subformula
+
+    def type
+      :formula
+    end
+  end
+
+  class DSIn < DSNode
+    container_for :objset1, :objset2
+    
+    def type
+      :formula
+    end
+  end
+  
+  class DSEmpty < DSNode
+    container_for :objset
+    
+    def type
+      :formula
+    end
+  end
+
+  class DSNot < DSNode
+    container_for :subformula
+
+    def type
+      :formula
+    end
+  end
+  
+  class DSAnd < DSNode
+    container_for :subformulae
+
+    def type
+      :formula
+    end
+  end
+  
+  class DSOr < DSNode
+    container_for :subformulae
+
+    def type
+      :formula
+    end
+  end
+
+  class DSImplies < DSNode
+    container_for :subformula1, :subformula2
+
+    def type
+      :formula
+    end
+  end
+  
+  class DSEquiv < DSNode
+    container_for :subformulae
+
+    def type
+      :formula
+    end
+  end
+  
+  class DSEqual < DSNode
+    container_for :objsets
+
+    def type
+      :formula
+    end
+  end
+end