hubris 0.0.1

data/History.txt

@@ -0,0 +1,4 @@
+=== 0.0.1 2009-08-10
+
+* 1 major enhancement:
+  * Initial release - allows calls to haskell from ruby.

data/Manifest.txt

@@ -0,0 +1,17 @@
+History.txt
+Manifest.txt
+PostInstall.txt
+README.rdoc
+Rakefile
+bin/jhc_builder.sh
+lib/Hubris.rb
+sample/Makefile
+sample/Test.hs
+sample/hsload.rb
+script/console
+script/destroy
+script/generate
+spec/Hubris_spec.rb
+spec/spec.opts
+spec/spec_helper.rb
+tasks/rspec.rake

data/PostInstall.txt

@@ -0,0 +1,7 @@
+
+For more information on Hubris, see http://Hubris.rubyforge.org
+
+NOTE: Change this information in PostInstall.txt 
+You can also delete it if you don't want it.
+
+

data/README.rdoc

@@ -0,0 +1,61 @@
+= Hubris
+
+* http://github.com/mwotton/Hubris
+
+== DESCRIPTION:
+
+  This is a quick and dirty way to call haskell functions from ruby.
+
+== FEATURES/PROBLEMS:
+
+  Hubris will wash your car, lie to your boss, and salvage your love life.
+  If you are very, very lucky, it might also let you get some uber-fast
+  functional goodness into your ruby programs through the back door.
+
+== SYNOPSIS:
+
+  Eventually, we'll integrate with RubyInline or something similar, 
+  so we can write inline Haskell. Until that happy day:
+
+    write a haskell file (say sample/foo.hs) with some ccall exports declared
+    call "jhc_builder.sh foo.hs". This will build "libfoo.so".
+    write a ruby file similar to sample/hsload.rb in order to call the functions from ruby
+
+if all else fails, mail mwotton@gmail.com with tales of woe.
+
+== REQUIREMENTS:
+
+  - jhc <http://repetae.net/computer/jhc/>
+  - gcc < ... oh, come on. don't tell me you don't have it. >
+  - ruby 1.8.6 or higher
+  - linux (mostly because jhc doesn't seem to be working on Mac at the moment.)
+  - bash
+
+== INSTALL:
+
+* sudo gem install Hubris
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2009 Mark Wotton
+
+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,28 @@
+require 'rubygems'
+gem 'hoe', '>= 2.1.0'
+require 'hoe'
+require 'fileutils'
+require './lib/Hubris'
+require 'rake/clean'
+
+CLEAN.include('tmp', 'libdynhs.so')
+
+Hoe.plugin :newgem
+# Hoe.plugin :website
+# Hoe.plugin :cucumberfeatures
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+$hoe = Hoe.spec 'hubris' do
+  self.developer 'Mark Wotton', 'mwotton@gmail.com'
+  self.rubyforge_name       = self.name # TODO this is default value
+  # self.extra_deps         = [['activesupport','>= 2.0.2']]
+
+end
+
+require 'newgem/tasks'
+Dir['tasks/**/*.rake'].each { |t| load t }
+
+# TODO - want other tests/tasks run by default? Add them to the list
+# remove_task :default
+# task :default => [:spec, :features]

data/bin/jhc_builder.sh

@@ -0,0 +1,17 @@
+#!/bin/sh
+
+# $1 is our source haskell
+rm -rf tmp.old
+mv tmp tmp.old
+mkdir tmp
+tmp="tmp/$1"
+cat $1 >> $tmp
+echo "main :: IO ()" >> $tmp
+echo "main = return ()"  >> $tmp
+
+cd tmp
+jhc "$1"
+sed -i 's/^main(/disregard_main(/' hs.out_code.c
+gcc '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math -Wshadow -Wextra -Wall -Wno-unused-parameter -o libdynhs.so \
+  hs.out_code.c -DNDEBUG -O3 -fPIC -shared
+mv libdynhs.so ..

data/lib/Hubris.rb

@@ -0,0 +1,6 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module Hubris
+  VERSION = '0.0.1'
+end

data/sample/Makefile

@@ -0,0 +1,6 @@
+all: libdynhs.so
+libdynhs.so: Test.hs
+	../bin/jhc_builder.sh Test.hs
+
+clean:
+	rm -rf tmp/ libdynhs.so

data/sample/Test.hs

@@ -0,0 +1,28 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+-- module Test where
+
+import Foreign.C.Types
+-- import Data.Map
+import Maybe
+
+-- main = putStrLn "11"
+
+fibonacci :: Int -> Int
+fibonacci n = fibs !! n
+  where fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
+
+-- local_map = Data.Map.fromList [(1,2), (3,4)]
+
+
+
+-- lookup_hs ::CInt -> CInt
+-- lookup_hs = fromIntegral . Maybe.fromJust . ((flip Data.Map.lookup) local_map) . fromIntegral
+-- foreign export ccall lookup_hs :: CInt -> CInt
+
+fibonacci_hs :: CInt -> CInt
+fibonacci_hs = fromIntegral . fibonacci . fromIntegral
+
+foreign export ccall fibonacci_hs :: CInt -> CInt
+
+

data/sample/hsload.rb

@@ -0,0 +1,9 @@
+require 'dl/import' 
+
+module HaskyPants
+  extend DL::Importable
+  dlload "./libdynhs.so"
+  extern "int fibonacci_hs(int)"
+end
+
+puts HaskyPants.fibonacci_hs(12)

data/script/console

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/Hubris.rb'}"
+puts "Loading Hubris gem"
+exec "#{irb} #{libs} --simple-prompt"

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/spec/Hubris_spec.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+
+# Time to add your specs!
+# http://rspec.info/
+describe "Hubris tests" do
+  
+  it "can build the sample app" do
+    # violated "Be sure to write your specs"
+  end
+  
+end

data/spec/spec.opts

@@ -0,0 +1 @@
+--colour

data/spec/spec_helper.rb

@@ -0,0 +1,10 @@
+begin
+  require 'spec'
+rescue LoadError
+  require 'rubygems' unless ENV['NO_RUBYGEMS']
+  gem 'rspec'
+  require 'spec'
+end
+
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+require 'Hubris'

data/tasks/rspec.rake

@@ -0,0 +1,21 @@
+begin
+  require 'spec'
+rescue LoadError
+  require 'rubygems' unless ENV['NO_RUBYGEMS']
+  require 'spec'
+end
+begin
+  require 'spec/rake/spectask'
+rescue LoadError
+  puts <<-EOS
+To use rspec for testing you must install rspec gem:
+    gem install rspec
+EOS
+  exit(0)
+end
+
+desc "Run the specs under spec/models"
+Spec::Rake::SpecTask.new do |t|
+  t.spec_opts = ['--options', "spec/spec.opts"]
+  t.spec_files = FileList['spec/**/*_spec.rb']
+end

metadata

@@ -0,0 +1,82 @@
+--- !ruby/object:Gem::Specification 
+name: hubris
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Mark Wotton
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-10 00:00:00 +10:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.3.3
+    version: 
+description: This is a quick and dirty way to call haskell functions from ruby.
+email: 
+- mwotton@gmail.com
+executables: 
+- jhc_builder.sh
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- PostInstall.txt
+files: 
+- History.txt
+- Manifest.txt
+- PostInstall.txt
+- README.rdoc
+- Rakefile
+- bin/jhc_builder.sh
+- lib/Hubris.rb
+- sample/Makefile
+- sample/Test.hs
+- sample/hsload.rb
+- script/console
+- script/destroy
+- script/generate
+- spec/Hubris_spec.rb
+- spec/spec.opts
+- spec/spec_helper.rb
+- tasks/rspec.rake
+has_rdoc: true
+homepage: http://github.com/mwotton/Hubris
+post_install_message: 
+rdoc_options: 
+- --main
+- README.rdoc
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: hubris
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: This is a quick and dirty way to call haskell functions from ruby.
+test_files: []
+