BOAST 0.994 → 0.995

data/BOAST.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name = 'BOAST'
-  s.version = "0.994"
+  s.version = "0.995"
   s.author = "Brice Videau"
   s.email = "brice.videau@imag.fr"
   s.homepage = "https://forge.imag.fr/projects/boast/"

data/lib/BOAST/CKernel.rb

@@ -661,6 +661,127 @@ EOF
      end
     end
 
+    def load_ref_inputs(path = "", suffix = ".in" )
+      return load_ref_files( path, suffix, :in )
+    end
+
+    def load_ref_outputs(path = "", suffix = ".out" )
+      return load_ref_files( path, suffix, :out )
+    end
+
+    def compare_ref(ref_outputs, outputs, epsilon = nil)
+      res = {}
+      @procedure.parameters.each_with_index { |param, indx|
+        if param.direction == :in or param.constant then
+          next
+        end
+        if param.dimension then
+          diff = (outputs[indx] - ref_outputs[indx]).abs
+          if epsilon then
+            diff.each { |elem|
+              raise "Error: #{param.name} different from ref by: #{elem}!" if elem > epsilon
+            }
+          end
+          res[param.name] = diff.max
+        else
+          raise "Error: #{param.name} different from ref: #{outputs[indx]} != #{ref_outputs[indx]} !" if epsilon and (outputs[indx] - ref_outputs[indx]).abs > epsilon
+          res[param.name] = (outputs[indx] - ref_outputs[indx]).abs
+        end
+      }
+      return res
+    end
+
+    def load_ref_files(  path = "", suffix = "", intent )
+      proc_path = path + "/#{@procedure.name}."
+      res = [] 
+      @procedure.parameters.collect { |param|
+        if intent == :out and ( param.direction == :in or param.constant ) then
+          res.push nil
+          next
+        end
+        f = File::new( proc_path+param.name+suffix, "rb" )
+        if param.dimension then
+          if param.type.class == BOAST::Real then
+            case param.type.size
+            when 4
+              type = NArray::SFLOAT
+            when 8
+              type = NArray::FLOAT
+            else
+              STDERR::puts "Unsupported Float size for NArray: #{param.type.size}, defaulting to byte" if BOAST::debug
+              type = NArray::BYTE
+            end
+          elsif param.type.class == BOAST::Int then
+            case param.type.size
+            when 1
+              type = NArray::BYTE
+            when 2
+              type = NArray::SINT
+            when 4
+              type = NArray::SINT
+            else
+              STDERR::puts "Unsupported Int size for NArray: #{param.type.size}, defaulting to byte" if BOAST::debug
+              type = NArray::BYTE
+            end
+          else
+            STDERR::puts "Unkown array type for NArray: #{param.type}, defaulting to byte" if BOAST::debug
+            type = NArray::BYTE
+          end
+          if f.size == 0 then
+            res.push NArray::new(type, 1)
+          else
+            res.push NArray.to_na(f.read, type)
+          end
+        else
+          if param.type.class == BOAST::Real then
+            case param.type.size
+            when 4
+              type = "f"
+            when 8
+              type = "d"
+            else
+              raise "Unsupported Real scalar size: #{param.type.size}!"
+            end
+          elsif param.type.class == BOAST::Int then
+            case param.type.size
+            when 1
+              type = "C"
+            when 2
+              type = "S"
+            when 4
+              type = "L"
+            when 8
+              type = "Q"
+            else
+              raise "Unsupported Int scalar size: #{param.type.size}!"
+            end
+            if param.type.signed? then
+              type.downcase!
+            end
+          end
+          res.push f.read.unpack(type).first
+        end
+        f.close
+      }
+      if @lang == BOAST::CUDA or @lang == BOAST::CL then
+        f = File::new( proc_path +"problem_size", "r")
+        s = f.read
+        local_dim, global_dim = s.scan(/<(.*?)>/)
+        local_dim  = local_dim.pop.split(",").collect!{ |e| e.to_i }
+        global_dim = global_dim.pop.split(",").collect!{ |e| e.to_i }
+        (local_dim.length..2).each{ |i| local_dim[i] = 1 }
+        (global_dim.length..2).each{ |i| global_dim[i] = 1 }
+        if @lang == BOAST::CL then
+          local_dim.each_index { |indx| global_dim[indx] *= local_dim[indx] }
+          res.push( { :global_work_size => global_dim, :local_work_size => local_dim } )
+        else
+          res.push( { :block_number => global_dim, :block_size => local_dim } )
+        end
+        f.close
+      end
+      return res
+    end
+
     def cost(*args)
       @cost_function.call(*args)
     end

data/lib/BOAST/DataTypes.rb

@@ -163,6 +163,10 @@ module BOAST
       return Int::new(hash)
     end
 
+    def signed?
+      return @signed
+    end
+
     def decl
       return "integer(kind=#{@size})" if BOAST::get_lang == FORTRAN
       if BOAST::get_lang == C then

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: BOAST
 version: !ruby/object:Gem::Version
-  version: '0.994'
+  version: '0.995'
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-06-25 00:00:00.000000000 Z
+date: 2014-06-30 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: narray