hubris 0.0.1 → 0.0.2
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/HISTORY.markdown +17 -0
- data/Manifest.txt +5 -12
- data/PostInstall.txt +2 -6
- data/README.markdown +142 -0
- data/Rakefile +51 -28
- data/lib/hubris.rb +131 -0
- data/sample/{Test.hs → Fibonacci.hs} +1 -10
- data/sample/config.ru +21 -0
- data/spec/spec_helper.rb +1 -1
- metadata +27 -24
- data/History.txt +0 -4
- data/README.rdoc +0 -61
- data/bin/jhc_builder.sh +0 -17
- data/lib/Hubris.rb +0 -6
- data/sample/Makefile +0 -6
- data/sample/hsload.rb +0 -9
- data/script/console +0 -10
- data/script/destroy +0 -14
- data/script/generate +0 -14
- data/spec/Hubris_spec.rb +0 -11
- data/tasks/rspec.rake +0 -21
data/HISTORY.markdown
ADDED
@@ -0,0 +1,17 @@
|
|
1
|
+
## 0.0.1 2009-08-10
|
2
|
+
|
3
|
+
* Initial release - allows calls to haskell from ruby.
|
4
|
+
|
5
|
+
## 0.0.2 2009-08-16
|
6
|
+
|
7
|
+
* Fixed up docs
|
8
|
+
* Specs now running but not passing
|
9
|
+
* Can now run in ruby 1.8 and 1.9
|
10
|
+
|
11
|
+
## 0.0.3 2009-08-29
|
12
|
+
|
13
|
+
* first working inline version (ints only, jhc only, very limited)
|
14
|
+
|
15
|
+
## 0.0.4 2009-09-01
|
16
|
+
|
17
|
+
* floats, strings, nils, booleans now working.
|
data/Manifest.txt
CHANGED
@@ -1,17 +1,10 @@
|
|
1
|
-
|
1
|
+
HISTORY.markdown
|
2
2
|
Manifest.txt
|
3
3
|
PostInstall.txt
|
4
|
-
README.
|
4
|
+
README.markdown
|
5
5
|
Rakefile
|
6
|
-
|
7
|
-
|
8
|
-
sample/
|
9
|
-
sample/Test.hs
|
10
|
-
sample/hsload.rb
|
11
|
-
script/console
|
12
|
-
script/destroy
|
13
|
-
script/generate
|
14
|
-
spec/Hubris_spec.rb
|
6
|
+
lib/hubris.rb
|
7
|
+
sample/Fibonacci.hs
|
8
|
+
sample/config.ru
|
15
9
|
spec/spec.opts
|
16
10
|
spec/spec_helper.rb
|
17
|
-
tasks/rspec.rake
|
data/PostInstall.txt
CHANGED
@@ -1,7 +1,3 @@
|
|
1
|
+
For more information on Hubris, see http://github.com/mwotton/Hubris/tree/master
|
1
2
|
|
2
|
-
|
3
|
-
|
4
|
-
NOTE: Change this information in PostInstall.txt
|
5
|
-
You can also delete it if you don't want it.
|
6
|
-
|
7
|
-
|
3
|
+
You should now have a bin file named jhc_builder that you can use to compile Haskell files into .so files
|
data/README.markdown
ADDED
@@ -0,0 +1,142 @@
|
|
1
|
+
# Hubris
|
2
|
+
|
3
|
+
## Description
|
4
|
+
|
5
|
+
Hubris is a bridge between Ruby and Haskell, between love and bondage,
|
6
|
+
between slothful indolence and raw, blazing speed. Hubris will wash
|
7
|
+
your car, lie to your boss, and salvage your love life. If you are
|
8
|
+
very, very lucky, it might also let you get some functional goodness
|
9
|
+
into your ruby programs through the back door.
|
10
|
+
|
11
|
+
I probably don't have to say this, but patches are very much
|
12
|
+
welcome. If you have trouble installing it, tell me, and help me
|
13
|
+
improve the docs.
|
14
|
+
|
15
|
+
## Synopsis
|
16
|
+
|
17
|
+
The best docs, as ever, are in the tests, but as a quick precis, you
|
18
|
+
can use it a little like this:
|
19
|
+
|
20
|
+
require 'hubris' # best line ever
|
21
|
+
|
22
|
+
class Target
|
23
|
+
hubris :inline =>"triple::Int->Int; triple n = 3*n"
|
24
|
+
end
|
25
|
+
|
26
|
+
t = Target.new
|
27
|
+
puts t.triple(10)
|
28
|
+
=> 30
|
29
|
+
|
30
|
+
There are a few restrictions. All functions take one argument and
|
31
|
+
return one value: this shouldn't be a major problem because you can
|
32
|
+
pass arrays of arguments in if you need more. Hubris can currently
|
33
|
+
handle numbers, strings, basic types (like nil, true and false),
|
34
|
+
arrays and hashes. There will probably be some Ruby structures
|
35
|
+
(modules, regular expressions, etc) that won't ever be handled
|
36
|
+
natively unless someone can convince me it's a sensible thing to do.
|
37
|
+
|
38
|
+
Hubris will refuse to compile Haskell code that produces any
|
39
|
+
warnings. You can suppress this admittedly fairly strict behaviour by
|
40
|
+
passing the ":no_strict => true" flag, but in your heart of hearts
|
41
|
+
you'll know you've done the wrong thing.
|
42
|
+
|
43
|
+
There are also two other modes:
|
44
|
+
|
45
|
+
hubris :source => "MyCoolModule.hs"
|
46
|
+
|
47
|
+
which loads a source file on disk (in the same directory as your ruby),
|
48
|
+
and
|
49
|
+
|
50
|
+
hubris :module => "Data.ByteString", :packages => ["bytestring"]
|
51
|
+
|
52
|
+
which will load the Data.ByteString module which is installed on the
|
53
|
+
system. In this case, we also need to let the Haskell side know that
|
54
|
+
we'll be using the "bytestring" package, so we pass that too: You may
|
55
|
+
need to load extra packages with :inline and :source as well, and
|
56
|
+
that's supported.
|
57
|
+
|
58
|
+
|
59
|
+
## Requirements
|
60
|
+
|
61
|
+
* ghc 6.10 (to bootstrap 6.12) and cabal-install. This comes with the
|
62
|
+
Haskell Platform
|
63
|
+
* ruby 1.8.6 or higher (most heavily tested on 1.9.1)
|
64
|
+
* Linux or Mac. See
|
65
|
+
<http://www.shimweasel.com/2009/09/14/unprincipled-skulduggery-with-ghc-6-12-dylibs-on-mac-os-x>
|
66
|
+
and the following entry for more info on the Mac build.
|
67
|
+
* zsh or bash
|
68
|
+
* git
|
69
|
+
|
70
|
+
## Install
|
71
|
+
|
72
|
+
First, we install GHC 6.12 RC2 (living on the cutting edge is fun,
|
73
|
+
right?)
|
74
|
+
|
75
|
+
wget http://www.haskell.org/ghc/dist/6.12.1-rc2/ghc-6.12.0.20091121-src.tar.bz2
|
76
|
+
tar -jxvf ghc-6.12.0.20091121-src.tar.bz2
|
77
|
+
cd ghc-6.12.0.20091121-src
|
78
|
+
# adjust the argument to -j to your number of cores, and the prefix if you need to install somewhere else
|
79
|
+
sh boot && ./configure --enable-shared --prefix=/usr/local && make -j 4 && sudo make install
|
80
|
+
# check ghc --version at the prompt tells you you're running 6.12
|
81
|
+
|
82
|
+
Then get the Haskell support libraries installed
|
83
|
+
|
84
|
+
cabal install c2hs
|
85
|
+
# probably a better way of doing this, but this is how i build it.
|
86
|
+
cabal unpack hubris
|
87
|
+
cd hubris-0.0.2
|
88
|
+
# edit the --extra-include-dirs and --extra-lib-dirs to reflect
|
89
|
+
# your installation. You'll need the ruby headers installed -
|
90
|
+
# they're installed already in ports, and it's ruby1.9.dev on Ubuntu.
|
91
|
+
runhaskell Setup configure --enable-shared --user --ghc-options=-dynamic --extra-include-dirs=/usr/local/include/ruby-1.9.1/ --extra-lib-dirs=/usr/local/lib/
|
92
|
+
runhaskell Setup build
|
93
|
+
runhaskell Setup install
|
94
|
+
# check that Hubrify is now in your path.
|
95
|
+
|
96
|
+
Then the Ruby side
|
97
|
+
|
98
|
+
sudo gem install rake open4 rspec hubris
|
99
|
+
|
100
|
+
git clone git://github.com/mwotton/Hubris.git
|
101
|
+
cd Hubris/lib
|
102
|
+
ruby extconf.rb && make
|
103
|
+
cd ..
|
104
|
+
spec .
|
105
|
+
|
106
|
+
I'll gemify this soon too.
|
107
|
+
|
108
|
+
|
109
|
+
## Contributors
|
110
|
+
|
111
|
+
* Mark Wotton
|
112
|
+
* James Britt
|
113
|
+
* Josh Price
|
114
|
+
* Tatsuhiro Ujihisa
|
115
|
+
|
116
|
+
## License
|
117
|
+
|
118
|
+
(The MIT License)
|
119
|
+
|
120
|
+
Copyright (c) 2009 Mark Wotton
|
121
|
+
|
122
|
+
Permission is hereby granted, free of charge, to any person obtaining
|
123
|
+
a copy of this software and associated documentation files (the
|
124
|
+
'Software'), to deal in the Software without restriction, including
|
125
|
+
without limitation the rights to use, copy, modify, merge, publish,
|
126
|
+
distribute, sublicense, and/or sell copies of the Software, and to
|
127
|
+
permit persons to whom the Software is furnished to do so, subject to
|
128
|
+
the following conditions:
|
129
|
+
|
130
|
+
The above copyright notice and this permission notice shall be
|
131
|
+
included in all copies or substantial portions of the Software.
|
132
|
+
|
133
|
+
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
134
|
+
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
135
|
+
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
136
|
+
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
137
|
+
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
138
|
+
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
139
|
+
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
140
|
+
|
141
|
+
|
142
|
+
[haskell_platform]: http://hackage.haskell.org/platform/
|
data/Rakefile
CHANGED
@@ -1,28 +1,51 @@
|
|
1
|
-
require 'rubygems'
|
2
|
-
gem 'hoe', '>= 2.1.0'
|
3
|
-
require 'hoe'
|
4
|
-
require 'fileutils'
|
5
|
-
require './lib/
|
6
|
-
|
7
|
-
|
8
|
-
|
9
|
-
|
10
|
-
|
11
|
-
#
|
12
|
-
#
|
13
|
-
|
14
|
-
|
15
|
-
|
16
|
-
|
17
|
-
self.
|
18
|
-
self.
|
19
|
-
|
20
|
-
|
21
|
-
|
22
|
-
|
23
|
-
|
24
|
-
|
25
|
-
|
26
|
-
#
|
27
|
-
#
|
28
|
-
#
|
1
|
+
require 'rubygems'
|
2
|
+
gem 'hoe', '>= 2.1.0'
|
3
|
+
require 'hoe'
|
4
|
+
require 'fileutils'
|
5
|
+
require './lib/hubris'
|
6
|
+
|
7
|
+
# Hoe.plugin :newgem
|
8
|
+
# Hoe.plugin :website
|
9
|
+
# Hoe.plugin :cucumberfeatures
|
10
|
+
|
11
|
+
# Generate all the Rake tasks
|
12
|
+
# Run 'rake -T' to see list of generated tasks (from gem root directory)
|
13
|
+
$hoe = Hoe.spec 'hubris' do
|
14
|
+
self.developer 'Mark Wotton', 'mwotton@gmail.com'
|
15
|
+
self.rubyforge_name = "hubris"
|
16
|
+
self.summary = 'tool to help build .so files from haskell code for use in Ruby via dl'
|
17
|
+
self.post_install_message = 'PostInstall.txt'
|
18
|
+
self.readme_file = "README.markdown"
|
19
|
+
self.history_file = "HISTORY.markdown"
|
20
|
+
end
|
21
|
+
|
22
|
+
#require 'newgem/tasks'
|
23
|
+
# Dir['tasks/**/*.rake'].each { |t| load t }
|
24
|
+
|
25
|
+
|
26
|
+
#file "lib/RubyMap.hs" => ["lib/RubyMap.chs"] do
|
27
|
+
# str = "c2hs -v --cppopts='-I" + Hubris::RubyHeader + "' --cpp=gcc --cppopts=-E --cppopts=-xc lib/RubyMap.chs"
|
28
|
+
# # print str
|
29
|
+
# system(str)
|
30
|
+
#end
|
31
|
+
|
32
|
+
require 'spec'
|
33
|
+
require 'spec/rake/spectask'
|
34
|
+
|
35
|
+
# desc "Run the specs under spec/"
|
36
|
+
# all_examples = Spec::Rake::SpecTask.new do |t|
|
37
|
+
# t.spec_opts = ['--options', "spec/spec.opts"]
|
38
|
+
# t.spec_files = FileList['spec/*.rb']
|
39
|
+
# end
|
40
|
+
|
41
|
+
# task :spec => ["lib/RubyMap.hs"]
|
42
|
+
|
43
|
+
task :clean do
|
44
|
+
FileList[File.expand_path("~/.hubris_cache/*"),
|
45
|
+
'lib*.so', 'lib/*.o', 'libfoo_*.bundle' ].each do |f|
|
46
|
+
begin
|
47
|
+
File.delete(f)
|
48
|
+
rescue
|
49
|
+
end
|
50
|
+
end
|
51
|
+
end
|
data/lib/hubris.rb
ADDED
@@ -0,0 +1,131 @@
|
|
1
|
+
require 'tmpdir'
|
2
|
+
require 'rubygems'
|
3
|
+
require 'open4'
|
4
|
+
require 'digest/md5'
|
5
|
+
require 'rbconfig'
|
6
|
+
|
7
|
+
# require 'file/temp'
|
8
|
+
# require 'libHaskell'
|
9
|
+
# TODO delete old files
|
10
|
+
|
11
|
+
class HaskellError < RuntimeError
|
12
|
+
end
|
13
|
+
|
14
|
+
class File
|
15
|
+
# takes block
|
16
|
+
@@used = 0
|
17
|
+
def self.withTempFile(template)
|
18
|
+
# put the code in a temporary file, set opt[:source]
|
19
|
+
|
20
|
+
filename="/tmp/foo_#{$$}_#{@@used}.hs" # File::Temp.new(false)
|
21
|
+
@@used += 1
|
22
|
+
handle=File.open(filename, 'w')
|
23
|
+
yield(filename, handle)
|
24
|
+
File::delete(filename)
|
25
|
+
end
|
26
|
+
end
|
27
|
+
|
28
|
+
module Hubris
|
29
|
+
VERSION = '0.0.2'
|
30
|
+
SO_CACHE = File.expand_path("/var/hubris/cache")
|
31
|
+
HS_CACHE = File.expand_path("/var/hubris/source")
|
32
|
+
require 'HubrisStubLoader'
|
33
|
+
[SO_CACHE,HS_CACHE].each {|dir| FileUtils.mkdir_p(dir)}
|
34
|
+
$:.push(SO_CACHE)
|
35
|
+
@always_rebuild=false
|
36
|
+
|
37
|
+
@@basepackages = []
|
38
|
+
def self.add_packages(packages)
|
39
|
+
@@basepackages.concat packages
|
40
|
+
end
|
41
|
+
|
42
|
+
# load the new functions into target
|
43
|
+
def hubris(options = { })
|
44
|
+
# :inline beats :source beats :mod
|
45
|
+
immediate, source, mod,packages = [:inline,:source,:module,:packages].collect {|x| options[x]}
|
46
|
+
build_args = options[:no_strict] ? [] : ["--strict"]
|
47
|
+
# puts packages
|
48
|
+
|
49
|
+
# leaves generated source lying around - might want to clean up, but
|
50
|
+
# useful for debugging too...
|
51
|
+
source = anonymous_module(immediate, build_args) if immediate
|
52
|
+
mod = gen_modname(source) if source
|
53
|
+
raise "code error, should never happen" unless mod
|
54
|
+
require(hubrify(mod,build_args,source||"",packages||[])) # let it crash
|
55
|
+
|
56
|
+
# bind the functions from the Exports namespace
|
57
|
+
include(eval("Hubris::Exports::#{zencode(mod)}"))
|
58
|
+
end
|
59
|
+
|
60
|
+
private
|
61
|
+
|
62
|
+
def anonymous_module(source,build_args)
|
63
|
+
mod = "Inline_#{Digest::MD5.hexdigest(source + build_args.to_s)}"
|
64
|
+
filename = "#{HS_CACHE}/#{zencode(mod)}.hs"
|
65
|
+
File.open(filename, "w") {|h| h.write "module #{mod} where\nimport Language.Ruby.Hubris.Binding\n#{source}\n"}
|
66
|
+
return filename
|
67
|
+
end
|
68
|
+
|
69
|
+
def gen_modname(filename)
|
70
|
+
# find the code, compile into haskell module in namespace, set
|
71
|
+
l = File.open(filename).read
|
72
|
+
l =~ /^ *module *([^ \t\n]*)/
|
73
|
+
return $1
|
74
|
+
end
|
75
|
+
|
76
|
+
def zencode(name)
|
77
|
+
name.gsub(/Z/, 'ZZ').gsub(/z/, 'zz').gsub(/\./,'zi').gsub(/_/,'zu').gsub(/'/, 'zq')
|
78
|
+
end
|
79
|
+
|
80
|
+
def hubrify(mod, args, src,packages=[])
|
81
|
+
libFile = "#{SO_CACHE}/#{zencode(mod)}.#{dylib_suffix}"
|
82
|
+
if @always_rebuild or !File.exists?(libFile)
|
83
|
+
status,msg = Hubris.noisy("Hubrify --module #{mod} --output #{libFile} #{args.join(' ')} " +
|
84
|
+
(packages+@@basepackages).collect{|x| "--package #{x}"}.join(' ') + ' ' + src)
|
85
|
+
# if Hubrify's not installed, we throw an exception. just as good as explicitly checking a flag.
|
86
|
+
raise HaskellError.new("Hubrify error:\n#{msg + status.exitstatus.to_s}") unless status.exitstatus == 0
|
87
|
+
end
|
88
|
+
return libFile
|
89
|
+
end
|
90
|
+
|
91
|
+
def dylib_suffix
|
92
|
+
case Config::CONFIG['target_os']
|
93
|
+
when /darwin/
|
94
|
+
"bundle"
|
95
|
+
when /linux/
|
96
|
+
"so"
|
97
|
+
else
|
98
|
+
"so" #take a punt
|
99
|
+
end
|
100
|
+
end
|
101
|
+
|
102
|
+
def self.noisy(str)
|
103
|
+
pid, stdin, stdout, stderr = Open4.popen4 str
|
104
|
+
# puts "running #{str}\n"
|
105
|
+
|
106
|
+
|
107
|
+
# puts "Status: #{status.exitstatus}"
|
108
|
+
# puts "#{pid} done"
|
109
|
+
|
110
|
+
|
111
|
+
msg =<<-"EOF"
|
112
|
+
ran |#{str}|
|
113
|
+
output|#{stdout.read}|
|
114
|
+
error |#{stderr.read}|
|
115
|
+
EOF
|
116
|
+
ignored, status = Process.waitpid2 pid
|
117
|
+
msg += "status |#{status}|"
|
118
|
+
return status, msg
|
119
|
+
end
|
120
|
+
|
121
|
+
end
|
122
|
+
|
123
|
+
# this may be sketchy :)
|
124
|
+
class Class
|
125
|
+
include Hubris
|
126
|
+
end
|
127
|
+
|
128
|
+
# rescue LoadError
|
129
|
+
# raise HaskellError, "loading #{libFile} failed:\n#{$!.to_s}" +
|
130
|
+
# `nm #{libFile} 2>/dev/null` + "\n"
|
131
|
+
# end
|
@@ -1,5 +1,4 @@
|
|
1
|
-
|
2
|
-
|
1
|
+
module Fibonacci where
|
3
2
|
-- module Test where
|
4
3
|
|
5
4
|
import Foreign.C.Types
|
@@ -18,11 +17,3 @@ fibonacci n = fibs !! n
|
|
18
17
|
|
19
18
|
-- lookup_hs ::CInt -> CInt
|
20
19
|
-- lookup_hs = fromIntegral . Maybe.fromJust . ((flip Data.Map.lookup) local_map) . fromIntegral
|
21
|
-
-- foreign export ccall lookup_hs :: CInt -> CInt
|
22
|
-
|
23
|
-
fibonacci_hs :: CInt -> CInt
|
24
|
-
fibonacci_hs = fromIntegral . fibonacci . fromIntegral
|
25
|
-
|
26
|
-
foreign export ccall fibonacci_hs :: CInt -> CInt
|
27
|
-
|
28
|
-
|
data/sample/config.ru
ADDED
@@ -0,0 +1,21 @@
|
|
1
|
+
#\ -w -p 8765
|
2
|
+
use Rack::Reloader, 0
|
3
|
+
use Rack::ContentLength
|
4
|
+
|
5
|
+
require 'pp'
|
6
|
+
require 'hubris'
|
7
|
+
class Fibonacci
|
8
|
+
hubris :source => 'Fibonacci.hs'
|
9
|
+
end
|
10
|
+
|
11
|
+
|
12
|
+
def arg_from env
|
13
|
+
env['REQUEST_URI'] ? env['REQUEST_URI'].to_s.sub(/^\//, '').to_i : 0
|
14
|
+
end
|
15
|
+
|
16
|
+
app = proc do |env|
|
17
|
+
value = Fibonacci.new.fibonacci( arg_from env )
|
18
|
+
[ 200, {'Content-Type' => 'text/plain'}, "The fib number is #{value }" ]
|
19
|
+
end
|
20
|
+
|
21
|
+
run app
|
data/spec/spec_helper.rb
CHANGED
metadata
CHANGED
@@ -1,7 +1,7 @@
|
|
1
1
|
--- !ruby/object:Gem::Specification
|
2
2
|
name: hubris
|
3
3
|
version: !ruby/object:Gem::Version
|
4
|
-
version: 0.0.
|
4
|
+
version: 0.0.2
|
5
5
|
platform: ruby
|
6
6
|
authors:
|
7
7
|
- Mark Wotton
|
@@ -9,7 +9,7 @@ autorequire:
|
|
9
9
|
bindir: bin
|
10
10
|
cert_chain: []
|
11
11
|
|
12
|
-
date: 2009-
|
12
|
+
date: 2009-11-30 00:00:00 +11:00
|
13
13
|
default_executable:
|
14
14
|
dependencies:
|
15
15
|
- !ruby/object:Gem::Dependency
|
@@ -22,41 +22,44 @@ dependencies:
|
|
22
22
|
- !ruby/object:Gem::Version
|
23
23
|
version: 2.3.3
|
24
24
|
version:
|
25
|
-
description:
|
25
|
+
description: |-
|
26
|
+
Hubris is a bridge between Ruby and Haskell, between love and bondage,
|
27
|
+
between slothful indolence and raw, blazing speed. Hubris will wash
|
28
|
+
your car, lie to your boss, and salvage your love life. If you are
|
29
|
+
very, very lucky, it might also let you get some functional goodness
|
30
|
+
into your ruby programs through the back door.
|
31
|
+
|
32
|
+
I probably don't have to say this, but patches are very much
|
33
|
+
welcome. If you have trouble installing it, tell me, and help me
|
34
|
+
improve the docs.
|
26
35
|
email:
|
27
36
|
- mwotton@gmail.com
|
28
|
-
executables:
|
29
|
-
|
37
|
+
executables: []
|
38
|
+
|
30
39
|
extensions: []
|
31
40
|
|
32
41
|
extra_rdoc_files:
|
33
|
-
- History.txt
|
34
42
|
- Manifest.txt
|
35
43
|
- PostInstall.txt
|
36
44
|
files:
|
37
|
-
-
|
45
|
+
- HISTORY.markdown
|
38
46
|
- Manifest.txt
|
39
47
|
- PostInstall.txt
|
40
|
-
- README.
|
48
|
+
- README.markdown
|
41
49
|
- Rakefile
|
42
|
-
-
|
43
|
-
-
|
44
|
-
- sample/
|
45
|
-
- sample/Test.hs
|
46
|
-
- sample/hsload.rb
|
47
|
-
- script/console
|
48
|
-
- script/destroy
|
49
|
-
- script/generate
|
50
|
-
- spec/Hubris_spec.rb
|
50
|
+
- lib/hubris.rb
|
51
|
+
- sample/Fibonacci.hs
|
52
|
+
- sample/config.ru
|
51
53
|
- spec/spec.opts
|
52
54
|
- spec/spec_helper.rb
|
53
|
-
- tasks/rspec.rake
|
54
55
|
has_rdoc: true
|
55
|
-
homepage:
|
56
|
-
|
56
|
+
homepage:
|
57
|
+
licenses: []
|
58
|
+
|
59
|
+
post_install_message: PostInstall.txt
|
57
60
|
rdoc_options:
|
58
61
|
- --main
|
59
|
-
- README.
|
62
|
+
- README.markdown
|
60
63
|
require_paths:
|
61
64
|
- lib
|
62
65
|
required_ruby_version: !ruby/object:Gem::Requirement
|
@@ -74,9 +77,9 @@ required_rubygems_version: !ruby/object:Gem::Requirement
|
|
74
77
|
requirements: []
|
75
78
|
|
76
79
|
rubyforge_project: hubris
|
77
|
-
rubygems_version: 1.3.
|
80
|
+
rubygems_version: 1.3.5
|
78
81
|
signing_key:
|
79
|
-
specification_version:
|
80
|
-
summary:
|
82
|
+
specification_version: 3
|
83
|
+
summary: tool to help build .so files from haskell code for use in Ruby via dl
|
81
84
|
test_files: []
|
82
85
|
|
data/History.txt
DELETED
data/README.rdoc
DELETED
@@ -1,61 +0,0 @@
|
|
1
|
-
= Hubris
|
2
|
-
|
3
|
-
* http://github.com/mwotton/Hubris
|
4
|
-
|
5
|
-
== DESCRIPTION:
|
6
|
-
|
7
|
-
This is a quick and dirty way to call haskell functions from ruby.
|
8
|
-
|
9
|
-
== FEATURES/PROBLEMS:
|
10
|
-
|
11
|
-
Hubris will wash your car, lie to your boss, and salvage your love life.
|
12
|
-
If you are very, very lucky, it might also let you get some uber-fast
|
13
|
-
functional goodness into your ruby programs through the back door.
|
14
|
-
|
15
|
-
== SYNOPSIS:
|
16
|
-
|
17
|
-
Eventually, we'll integrate with RubyInline or something similar,
|
18
|
-
so we can write inline Haskell. Until that happy day:
|
19
|
-
|
20
|
-
write a haskell file (say sample/foo.hs) with some ccall exports declared
|
21
|
-
call "jhc_builder.sh foo.hs". This will build "libfoo.so".
|
22
|
-
write a ruby file similar to sample/hsload.rb in order to call the functions from ruby
|
23
|
-
|
24
|
-
if all else fails, mail mwotton@gmail.com with tales of woe.
|
25
|
-
|
26
|
-
== REQUIREMENTS:
|
27
|
-
|
28
|
-
- jhc <http://repetae.net/computer/jhc/>
|
29
|
-
- gcc < ... oh, come on. don't tell me you don't have it. >
|
30
|
-
- ruby 1.8.6 or higher
|
31
|
-
- linux (mostly because jhc doesn't seem to be working on Mac at the moment.)
|
32
|
-
- bash
|
33
|
-
|
34
|
-
== INSTALL:
|
35
|
-
|
36
|
-
* sudo gem install Hubris
|
37
|
-
|
38
|
-
== LICENSE:
|
39
|
-
|
40
|
-
(The MIT License)
|
41
|
-
|
42
|
-
Copyright (c) 2009 Mark Wotton
|
43
|
-
|
44
|
-
Permission is hereby granted, free of charge, to any person obtaining
|
45
|
-
a copy of this software and associated documentation files (the
|
46
|
-
'Software'), to deal in the Software without restriction, including
|
47
|
-
without limitation the rights to use, copy, modify, merge, publish,
|
48
|
-
distribute, sublicense, and/or sell copies of the Software, and to
|
49
|
-
permit persons to whom the Software is furnished to do so, subject to
|
50
|
-
the following conditions:
|
51
|
-
|
52
|
-
The above copyright notice and this permission notice shall be
|
53
|
-
included in all copies or substantial portions of the Software.
|
54
|
-
|
55
|
-
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
|
56
|
-
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
57
|
-
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
58
|
-
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
|
59
|
-
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
60
|
-
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
61
|
-
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
data/bin/jhc_builder.sh
DELETED
@@ -1,17 +0,0 @@
|
|
1
|
-
#!/bin/sh
|
2
|
-
|
3
|
-
# $1 is our source haskell
|
4
|
-
rm -rf tmp.old
|
5
|
-
mv tmp tmp.old
|
6
|
-
mkdir tmp
|
7
|
-
tmp="tmp/$1"
|
8
|
-
cat $1 >> $tmp
|
9
|
-
echo "main :: IO ()" >> $tmp
|
10
|
-
echo "main = return ()" >> $tmp
|
11
|
-
|
12
|
-
cd tmp
|
13
|
-
jhc "$1"
|
14
|
-
sed -i 's/^main(/disregard_main(/' hs.out_code.c
|
15
|
-
gcc '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math -Wshadow -Wextra -Wall -Wno-unused-parameter -o libdynhs.so \
|
16
|
-
hs.out_code.c -DNDEBUG -O3 -fPIC -shared
|
17
|
-
mv libdynhs.so ..
|
data/lib/Hubris.rb
DELETED
data/sample/Makefile
DELETED
data/sample/hsload.rb
DELETED
data/script/console
DELETED
@@ -1,10 +0,0 @@
|
|
1
|
-
#!/usr/bin/env ruby
|
2
|
-
# File: script/console
|
3
|
-
irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
|
4
|
-
|
5
|
-
libs = " -r irb/completion"
|
6
|
-
# Perhaps use a console_lib to store any extra methods I may want available in the cosole
|
7
|
-
# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
|
8
|
-
libs << " -r #{File.dirname(__FILE__) + '/../lib/Hubris.rb'}"
|
9
|
-
puts "Loading Hubris gem"
|
10
|
-
exec "#{irb} #{libs} --simple-prompt"
|
data/script/destroy
DELETED
@@ -1,14 +0,0 @@
|
|
1
|
-
#!/usr/bin/env ruby
|
2
|
-
APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
|
3
|
-
|
4
|
-
begin
|
5
|
-
require 'rubigen'
|
6
|
-
rescue LoadError
|
7
|
-
require 'rubygems'
|
8
|
-
require 'rubigen'
|
9
|
-
end
|
10
|
-
require 'rubigen/scripts/destroy'
|
11
|
-
|
12
|
-
ARGV.shift if ['--help', '-h'].include?(ARGV[0])
|
13
|
-
RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
|
14
|
-
RubiGen::Scripts::Destroy.new.run(ARGV)
|
data/script/generate
DELETED
@@ -1,14 +0,0 @@
|
|
1
|
-
#!/usr/bin/env ruby
|
2
|
-
APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
|
3
|
-
|
4
|
-
begin
|
5
|
-
require 'rubigen'
|
6
|
-
rescue LoadError
|
7
|
-
require 'rubygems'
|
8
|
-
require 'rubigen'
|
9
|
-
end
|
10
|
-
require 'rubigen/scripts/generate'
|
11
|
-
|
12
|
-
ARGV.shift if ['--help', '-h'].include?(ARGV[0])
|
13
|
-
RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
|
14
|
-
RubiGen::Scripts::Generate.new.run(ARGV)
|
data/spec/Hubris_spec.rb
DELETED
data/tasks/rspec.rake
DELETED
@@ -1,21 +0,0 @@
|
|
1
|
-
begin
|
2
|
-
require 'spec'
|
3
|
-
rescue LoadError
|
4
|
-
require 'rubygems' unless ENV['NO_RUBYGEMS']
|
5
|
-
require 'spec'
|
6
|
-
end
|
7
|
-
begin
|
8
|
-
require 'spec/rake/spectask'
|
9
|
-
rescue LoadError
|
10
|
-
puts <<-EOS
|
11
|
-
To use rspec for testing you must install rspec gem:
|
12
|
-
gem install rspec
|
13
|
-
EOS
|
14
|
-
exit(0)
|
15
|
-
end
|
16
|
-
|
17
|
-
desc "Run the specs under spec/models"
|
18
|
-
Spec::Rake::SpecTask.new do |t|
|
19
|
-
t.spec_opts = ['--options', "spec/spec.opts"]
|
20
|
-
t.spec_files = FileList['spec/**/*_spec.rb']
|
21
|
-
end
|