irule 0.1-universal-dotnet

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License
+
+Copyright (c) 2010 Ian Dees
+
+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/README.rst

@@ -0,0 +1,32 @@
+=====
+Irule
+=====
+
+Irule, the .I.ron.RU.by tc.L. .E.xtension, is a Ruby library that
+provides a minimal wrapper around the Tcl programming language for
+IronRuby_.  It mimics the ``load_from_file`` and ``eval`` methods from
+its more full-featured cousin, the tcl_ Ruby library.
+
+Prerequisites
+-------------
+#. Tcl 8.4.
+#. Mono or .NET.
+
+Installation
+------------
+
+``igem install irule``, or just put ``tcl.rb`` and ``irule.dll``
+somewhere in your ``LOAD_PATH``.
+
+Usage
+-----
+
+Sample code::
+
+  require 'tcl'
+
+  tcl    = Tcl::Interp.load_from_file 'some.tcl'
+  result = tcl.eval 'someTclCode'
+
+.. _IronRuby: http://ironruby.net
+.. _tcl: http://rubygems.org/gems/tcl

data/lib/irule.cs

@@ -0,0 +1,81 @@
+// The code is new, but the idea is from http://wiki.tcl.tk/9563
+
+using System;
+using System.Runtime.InteropServices;
+
+namespace Irule
+{
+    public class TclInterp : IDisposable
+    {
+        [DllImport("tcl8.4")]
+        protected static extern IntPtr Tcl_CreateInterp();
+
+        [DllImport("tcl8.4")]
+        protected static extern int Tcl_Init(IntPtr interp);
+
+        [DllImport("tcl8.4")]
+        protected static extern int Tcl_Eval(IntPtr interp, string script);
+
+        [DllImport("tcl8.4")]
+        protected static extern IntPtr Tcl_GetStringResult(IntPtr interp);
+
+        [DllImport("tcl8.4")]
+        protected static extern void Tcl_DeleteInterp(IntPtr interp);
+
+        [DllImport("tcl8.4")]
+        protected static extern void Tcl_Finalize();
+
+        protected const int TCL_ERROR = 1;
+
+        private IntPtr interp;
+        private bool disposed;
+
+        public TclInterp()
+        {
+            interp = Tcl_CreateInterp();
+            Tcl_Init(interp);
+
+            disposed = false;
+        }
+
+        public void Dispose()
+        {
+            Dispose(true);
+            GC.SuppressFinalize(this);
+        }
+
+        protected virtual void Dispose(bool disposing)
+        {
+            if (!disposed)
+            {
+                if (disposing && interp != IntPtr.Zero)
+                {
+                    Tcl_DeleteInterp(interp);
+                    Tcl_Finalize();
+                }
+
+                interp = IntPtr.Zero;
+                disposed = true;
+            }
+        }
+
+        public string Eval(string text)
+        {
+            if (disposed)
+            {
+                throw new ObjectDisposedException("Attempt to use disposed Tcl interpreter");
+            }
+
+            var status = Tcl_Eval(interp, text);
+            var raw    = Tcl_GetStringResult(interp);
+            var result = Marshal.PtrToStringAnsi(raw);
+
+            if (TCL_ERROR == status)
+            {
+                throw new Exception("Tcl interpreter returned an error: " + result);
+            }
+
+            return result;
+        }
+    }
+}

data/lib/tcl.rb

@@ -0,0 +1,19 @@
+require File.dirname(__FILE__) + '/irule.dll'
+
+module Tcl
+  class Interp
+    def initialize
+      @interp = Irule::TclInterp.new
+    end
+
+    def eval(text)
+      @interp.eval text
+    end
+
+    def self.load_from_file(file)
+      interp = Interp.new
+      interp.eval IO.read(file)
+      interp
+    end
+  end
+end

metadata

@@ -0,0 +1,61 @@
+--- !ruby/object:Gem::Specification 
+name: irule
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+platform: universal-dotnet
+authors: 
+- Ian Dees
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2010-05-13 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: Provides an tiny subset of the tcl gem for IronRuby
+email: 
+- undees@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files: 
+- lib/irule.cs
+- lib/irule.dll
+- lib/tcl.rb
+- LICENSE.txt
+- README.rst
+has_rdoc: true
+homepage: http://github.com/undees/irule
+licenses: []
+post_install_message: 
+rdoc_options: []
+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: 1.3.5
+  version: 
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: .I.ron.RU.by tc.L. .E.xtension
+test_files: []