InlineFortran 1.0.0

data/History.txt

@@ -0,0 +1,5 @@
+== 1.0.0 / 2006-10-21
+
+* 1 major enhancement
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,6 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+demo/hello.rb
+lib/inline/fortran.rb

data/README.txt

@@ -0,0 +1,55 @@
+Inline::Fortran by Ryan Davis
+    http://www.rubyforge.org/projects/rubyinline
+
+== DESCRIPTION:
+  
+Just because we can... Inline::Fortran.
+
+== FEATURES/PROBLEMS:
+  
+* Very rudimentary right now. Needs some love.
+
+== SYNOPSYS:
+
+    inline :Fortran do |builder|
+      builder.subroutine('print_integer', ["void", "int"], <<-END)
+        subroutine print_integer( integer )
+          integer, intent(in) :: integer
+          print *, 'integer: ', integer
+        end
+      END
+    end
+
+== REQUIREMENTS:
+
++ RubyInline
++ g95 - should support more compilers later.
+
+== INSTALL:
+
++ sudo gem install InlineFortran
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2006 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,16 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/inline/fortran.rb'
+
+Hoe.new('InlineFortran', Inline::Fortran::VERSION) do |p|
+  p.rubyforge_name = 'rubyinline'
+  p.summary = 'A RubyInline extension for Fortran'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+  p.extra_deps << "RubyInline"
+end
+
+# vim: syntax=Ruby

data/demo/hello.rb

@@ -0,0 +1,18 @@
+#!/usr/local/bin/ruby -w
+
+require 'rubygems'
+require 'inline/fortran'
+
+class FortranTest
+  inline :Fortran do |builder|
+    builder.subroutine('print_integer', ["void", "int"], <<-END)
+      subroutine print_integer( integer )
+        integer, intent(in) :: integer
+        print *, 'integer: ', integer
+      end
+    END
+  end
+end
+
+blah = FortranTest.new
+blah.print_integer(6)

data/lib/inline/fortran.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'inline'
+
+module Inline
+  class Fortran
+
+    VERSION = '1.0.0'
+
+    def initialize(mod)
+      @mod = mod
+      @functions = {}
+    end
+
+    def subroutine(subroutine_name, c_signature, src)
+      @functions[subroutine_name] = [c_signature, src]
+    end
+
+    def load_cache
+      return false
+    end
+
+    def build
+      c_builder = Inline::C.new(@mod)
+
+      src_name = "#{Inline.directory}/#{@mod}.f90"
+      File.open(src_name, "w") do |f|
+        @functions.each do |name, (signature, src)|
+
+          src.sub!(/#{name}/, "f_#{name}")
+          
+          args = []
+          call_args = []
+          return_type = signature.shift
+
+          signature.each_with_index do |arg_type, i|
+            args << "#{arg_type} arg#{i}"
+            call_args << "&arg#{i}"
+          end
+          
+          c_func = "#{return_type} #{name}(#{args.join(', ')})"
+          c_builder.c <<-EOF
+            #{c_func} {
+              f_#{name}(#{call_args.join(', ')});
+            }
+          EOF
+
+          f.puts src
+          f.puts
+        end
+      end
+
+      Dir.chdir File.dirname(src_name) do
+        cmd = "g95 -c -fno-underscoring #{File.basename(src_name)}"
+        $stderr.puts cmd if $DEBUG
+        system cmd
+        c_builder.add_link_flags "#{@mod}.o"
+        c_builder.add_link_flags "-lf95"
+        c_builder.build
+        c_builder.load
+      end
+    end
+    def load
+    end
+  end
+end

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: InlineFortran
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+date: 2006-10-22 00:00:00 -06:00
+summary: A RubyInline extension for Fortran
+require_paths: 
+- lib
+email: ryand-ruby@zenspider.com
+homepage: "    http://www.rubyforge.org/projects/rubyinline"
+rubyforge_project: rubyinline
+description: "== FEATURES/PROBLEMS:  * Very rudimentary right now. Needs some love.  == SYNOPSYS:  inline :Fortran do |builder| builder.subroutine('print_integer', [\"void\", \"int\"], <<-END) subroutine print_integer( integer ) integer, intent(in) :: integer print *, 'integer: ', integer end END end  == REQUIREMENTS:"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Ryan Davis
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- demo/hello.rb
+- lib/inline/fortran.rb
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.1.2
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: RubyInline
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: