allocate 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 40ffef2ab0f089aa82c7f6f8a07a82124e45acb94832585e2bcab6a889aa61c5
+  data.tar.gz: a2580d56f8dedb4305dd28b057583ac3f4c4bda2a0bae8ee791915a14b7d1648
+SHA512:
+  metadata.gz: c4e6295e9464dc0b633948c89113af3d25b88b00a4713e4f3cbb2be98bfd727daa5787bb779aa2617d1bdbd354224ce511208fd40157a49fae56d0d13d58a046
+  data.tar.gz: 1000a13809564528dab3fe05ab0edb0c8535a38f768728d692fe307a663704f7ca156004b65eb70f160a3aaed829a55ccb85b49fc598652224f95dec215ef1fe

data/ext/allocate/allocate.c

@@ -0,0 +1,189 @@
+// Author: Marek K.
+
+/*
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+    Dieses Programm ist Freie Software: Sie koennen es unter den Bedingungen
+    der GNU General Public License, wie von der Free Software Foundation,
+    Version 3 der Lizenz oder (nach Ihrer Wahl) jeder neueren
+    veroeffentlichten Version, weiter verteilen und/oder modifizieren.
+
+    Dieses Programm wird in der Hoffnung bereitgestellt, dass es nuetzlich sein wird, jedoch
+    OHNE JEDE GEWAEHR,; sogar ohne die implizite
+    Gewaehr der MARKTFAEHIGKEIT oder EIGNUNG FUER EINEN BESTIMMTEN ZWECK.
+    Siehe die GNU General Public License fuer weitere Einzelheiten.
+
+    Sie sollten eine Kopie der GNU General Public License zusammen mit diesem
+    Programm erhalten haben. Wenn nicht, siehe <http://www.gnu.org/licenses/>.
+    
+*/
+
+#include <ruby.h>
+#include <stdlib.h>
+#include <stddef.h>
+
+struct allocate_s
+{
+    size_t size;
+    void * ptr;
+};
+
+static VALUE allocate_allocallocate(VALUE);  /* Allocates the object */
+static void allocate_allocatefree(void *);  /* Releases the previously allocated memory of the object. */
+
+static VALUE allocate_init(VALUE);  /* Initializes the object */
+static VALUE allocate_free(VALUE);  /* Free memory */
+static VALUE allocate_alloc(VALUE, VALUE);  /* Allocated memory */
+static VALUE allocate_good(VALUE);  /* Check if the memory is ready */
+static VALUE allocate_set(VALUE, VALUE, VALUE);  /* Sets a value */
+static VALUE allocate_get(VALUE, VALUE);  /* Get a value */
+static VALUE allocate_max(VALUE self);
+
+void Init_allocate();
+
+static void allocate_allocatefree(void * p)
+{
+    struct allocate_s * ptr = (struct allocate_s *) p;
+    
+    if(ptr->ptr != NULL)
+        free(ptr->ptr);
+}
+
+static VALUE allocate_allocallocate(VALUE klass)
+{
+    VALUE obj;
+    struct allocate_s * ptr;
+    
+    obj = Data_Make_Struct(klass, struct allocate_s, NULL, allocate_allocatefree, ptr);
+    
+    ptr->size = 0;
+    ptr->ptr = NULL;
+    
+    return obj;
+}
+
+static VALUE allocate_init(VALUE self)
+{
+    //struct allocate_s * ptr;
+
+    //Data_Get_Struct(self, struct allocate_s, ptr);
+
+    return self;
+}
+
+static VALUE allocate_free(VALUE self)
+{
+    struct allocate_s * ptr;
+
+    Data_Get_Struct(self, struct allocate_s, ptr);
+
+    if (0 == ptr->size)
+        return self;
+
+    free(ptr->ptr);
+    
+    ptr->size = 0;
+    ptr->ptr = NULL;
+
+    return self;
+}
+
+static VALUE allocate_alloc(VALUE self, VALUE size)
+{
+    struct allocate_s * ptr;
+    
+    Data_Get_Struct(self, struct allocate_s, ptr);
+    
+    if(NUM2UINT(size) == 0)
+        rb_raise(rb_eArgError, "At least 1 byte must be allocated.");
+        
+    ptr->size = NUM2SIZET(size);
+    ptr->ptr = malloc(NUM2SIZET(size) * sizeof(unsigned char));
+    
+    if(ptr->ptr == NULL)
+        rb_raise(rb_eArgError, "There was an error while allocating.");
+    
+    return self;
+}
+
+static VALUE allocate_good(VALUE self)
+{
+    struct allocate_s * ptr;
+    
+    Data_Get_Struct(self, struct allocate_s, ptr);
+    
+    return (ptr->size>0&&ptr->ptr!=NULL?Qtrue:Qfalse);
+}
+
+static VALUE allocate_set(VALUE self, VALUE index, VALUE size)
+{
+    struct allocate_s * ptr;
+    
+    Data_Get_Struct(self, struct allocate_s, ptr);
+    
+    if(ptr->size > 0 && ptr->ptr != NULL)
+    {
+        ((unsigned char *) ptr->ptr)[NUM2SIZET(index)] = (unsigned char) NUM2CHR(size);
+    }
+    else
+    {
+        rb_raise(rb_eArgError, "An area that has not been allocated can not contain a value.");
+    }
+    
+    return self;
+}
+
+static VALUE allocate_get(VALUE self, VALUE index)
+{
+    struct allocate_s * ptr;
+    
+    Data_Get_Struct(self, struct allocate_s, ptr);
+    
+    if(ptr->size > 0 && ptr->ptr != NULL)
+    {
+        return UINT2NUM((unsigned int) ((unsigned char *) ptr->ptr)[NUM2SIZET(index)]);
+    }
+    else
+    {
+        rb_raise(rb_eArgError, "Can not read from an area that has not been allocated.");
+    }
+    
+    return self;
+}
+
+static VALUE allocate_max(VALUE self)
+{
+    struct allocate_s * ptr;
+    
+    Data_Get_Struct(self, struct allocate_s, ptr);
+    
+    return UINT2NUM(ptr->size);
+}
+
+void Init_allocate()
+{
+    VALUE cAllocate;
+
+    cAllocate = rb_const_get(rb_cObject, rb_intern("Allocate"));
+
+    rb_define_alloc_func(cAllocate, allocate_allocallocate);
+    rb_define_method(cAllocate, "initialize", allocate_init, 0);
+    rb_define_method(cAllocate, "alloc", allocate_alloc, 1);
+    rb_define_method(cAllocate, "good?", allocate_good, 0);
+    rb_define_method(cAllocate, "set", allocate_set, 2);
+    rb_define_method(cAllocate, "get", allocate_get, 1);
+    rb_define_method(cAllocate, "max?", allocate_max, 0);
+    rb_define_method(cAllocate, "free", allocate_free, 0);
+}

data/ext/allocate/extconf.rb

@@ -0,0 +1,7 @@
+require "mkmf"
+
+abort "missing malloc()" unless have_func "malloc"
+abort "missing free()"   unless have_func "free"
+
+create_header
+create_makefile "allocate/allocate"

data/lib/allocate.rb

@@ -0,0 +1,5 @@
+class Allocate
+  VERSION = "1.0"
+end
+
+require "allocate/allocate"

data/test/test_allocate.rb

@@ -0,0 +1,61 @@
+# Author: Marek K.
+
+=begin
+
+  This program is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+  Dieses Programm ist Freie Software: Sie können es unter den Bedingungen
+  der GNU General Public License, wie von der Free Software Foundation,
+  Version 3 der Lizenz oder (nach Ihrer Wahl) jeder neueren
+  veröffentlichten Version, weiter verteilen und/oder modifizieren.
+
+  Dieses Programm wird in der Hoffnung bereitgestellt, dass es nützlich sein wird, jedoch
+  OHNE JEDE GEWÄHR,; sogar ohne die implizite
+  Gewähr der MARKTFÄHIGKEIT oder EIGNUNG FÜR EINEN BESTIMMTEN ZWECK.
+  Siehe die GNU General Public License für weitere Einzelheiten.
+
+  Sie sollten eine Kopie der GNU General Public License zusammen mit diesem
+  Programm erhalten haben. Wenn nicht, siehe <http://www.gnu.org/licenses/>.
+
+=end
+
+require "test/unit"
+require "allocate"
+
+class AllocateTest < Test::Unit::TestCase
+  
+  def setup
+    @a = Allocate.new
+  end
+  
+  def test_test
+    @a.alloc 4
+	
+    assert_equal @a.good?, true
+	
+    @a.set 0, 3
+    @a.set 1, 6
+    @a.set 2, 9
+    @a.set 3, 12
+	
+    assert_equal @a.get(0), 3
+    assert_equal @a.get(1), 6
+    assert_equal @a.get(2), 9
+    assert_equal @a.get(3), 12
+    assert_equal @a.max?, 4
+	
+    @a.free
+    assert_equal @a.good?, false
+  end
+end

metadata

@@ -0,0 +1,52 @@
+--- !ruby/object:Gem::Specification
+name: allocate
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Marek K.
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2018-12-10 00:00:00.000000000 Z
+dependencies: []
+description: Allocate requests memory by means of the C function malloc and can release
+  this memory with the C function free again. It is also possible to set values in
+  the memory area.
+email: m.k@mk16.de
+executables: []
+extensions:
+- ext/allocate/extconf.rb
+extra_rdoc_files: []
+files:
+- ext/allocate/allocate.c
+- ext/allocate/extconf.rb
+- lib/allocate.rb
+- test/test_allocate.rb
+homepage: http://test.mk16.de/projects/allocate-gem
+licenses:
+- GPL-3.0
+metadata:
+  documentation_uri: http://test.mk16.de/projects/allocate-gem
+  source_code_uri: http://test.mk16.de/scriptFiles/allocate/
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.7.8
+signing_key: 
+specification_version: 4
+summary: Interface between Ruby and the C functions malloc and free.
+test_files: []