BOAST 0.94 → 0.95

data/BOAST.gemspec

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

data/lib/BOAST/Algorithm.rb

@@ -223,7 +223,11 @@ module BOAST
     def ==(x)
       return Expression::new("==",self,x)
     end
- 
+
+    def !=(x)
+      return Expression::new(BOAST::Different,self,x)
+    end
+
     def +(x)
       return Expression::new(BOAST::Addition,self,x)
     end
@@ -553,6 +557,10 @@ module BOAST
       return Expression::new("==",self,x)
     end
 
+    def !=(x)
+      return Expression::new(BOAST::Different,self,x)
+    end
+
     def >(x)
       return Expression::new(">",self,x)
     end
@@ -1371,14 +1379,15 @@ module BOAST
     def to_str_fortran(constants, first)
       s = ""
       if first then
-        s += "select case #{@expression}\n"
+        s += " "*BOAST::get_indent_level
+        s += "select case (#{@expression})\n"
         BOAST::increment_indent_level
       else
         BOAST::decrement_indent_level
       end
       s += " "*BOAST::get_indent_level
       if constants and constants.size>0 then
-        s += "case #{constants.join(" : ")}"
+        s += "case (#{constants.join(" : ")})"
       else
         s += "case default"
       end
@@ -1389,7 +1398,7 @@ module BOAST
     def to_str_c(constants, first)
       s = ""
       if first then
-      s += " "*BOAST::get_indent_level
+        s += " "*BOAST::get_indent_level
         s += "switch(#{@expression}){\n"
         BOAST::increment_indent_level
       else
@@ -1480,10 +1489,10 @@ module BOAST
     def to_str_fortran(condition, first)
       s = ""
       if first then
-        s += "if #{condition} then"
+        s += "if ( #{condition} ) then"
       else
         if condition then
-          s += "else if #{condition} then"
+          s += "else if ( #{condition} ) then"
         else
           s += "else"
         end
@@ -1576,7 +1585,7 @@ module BOAST
     def to_str_fortran
       s = ""
       s += "do #{@iterator}=#{@begin}, #{@end}"
-      s += ", #{@step}" if @step != 1
+      s += ", #{@step}" if 1 != @step
       return s
     end
     def to_str_c

data/lib/BOAST/CKernel.rb

@@ -61,6 +61,7 @@ module BOAST
     @@compiler_default_options.each_key { |k|
       @@compiler_default_options[k] = ENV[k.to_s] if ENV[k.to_s]
     }
+    @@compiler_default_options[:LD] = ENV["LD"] if ENV["LD"]
     @@verbose = ENV["VERBOSE"] if ENV["VERBOSE"]
   end
 
@@ -341,7 +342,7 @@ EOF
     def build(options = {})
       compiler_options = BOAST::get_compiler_options
       compiler_options.update(options)
-      return build_opencl(comiler_options) if @lang == BOAST::CL
+      return build_opencl(compiler_options) if @lang == BOAST::CL
       ldflags = self.setup_compiler(compiler_options)
       extension = ".c" if @lang == BOAST::C
       extension = ".cu" if @lang == BOAST::CUDA

data/lib/BOAST/Operators.rb

@@ -201,6 +201,17 @@ module BOAST
     end
   end
 
+  class Different < Operator
+    def Different.to_s(arg1, arg2, return_type)
+      return basic_usage(arg1, arg2)
+    end
+
+    def Different.basic_usage(arg1, arg2)
+      return "#{arg1} /= #{arg2}" if BOAST::get_lang == FORTRAN
+      return "#{arg1} != #{arg2}"
+    end
+  end
+
   class Affectation < Operator
     def Affectation.to_s(arg1, arg2, return_type)
       if BOAST::get_lang == C then

metadata

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