fOOrth 0.5.3 → 0.6.0

data/lib/fOOrth/library/thread_library.rb

@@ -13,7 +13,7 @@ module XfOOrth
   # [name Thread]  .new{{ ... }} [a_thread]
   Thread.create_exclusive_method('.new{{', NosSpec, [], &lambda {|vm|
     block = vm.pop
-    name  = vm.pop.to_s
+    name  = vm.pop.to_s.freeze
     vm.push(block.do_thread_start(vm, name))
   })
 

data/lib/fOOrth/library/vm_library.rb

@@ -6,7 +6,7 @@ module XfOOrth
   #Get the VM as a string.
   # [vm] .to_s ["vm as a string"]
   VirtualMachine.create_shared_method('.to_s', TosSpec, [],
-    &lambda {|vm| vm.push(self.foorth_name)})
+    &lambda {|vm| vm.push(self.foorth_name.freeze)})
 
   #Create a macro to get at the current virtual machine instance.
   # [] vm [the_current_vm]

data/lib/fOOrth/monkey_patch/numeric.rb

@@ -6,7 +6,7 @@ class Numeric
   #<br>Returns
   #* An embeddable form of this number as a string.
   def foorth_embed
-    self.to_s
+    self.to_s.freeze
   end
 
   #Convert this number to a single character string.

data/lib/fOOrth/monkey_patch/object.rb

@@ -28,6 +28,11 @@ class Object
     nil
   end
 
+  #Freeze only pure strings
+  def foorth_string_freeze
+    self
+  end
+
   #Fail with XfOOrthError argument error.
   def error(msg)
     fail XfOOrth::XfOOrthError, msg, caller

data/lib/fOOrth/monkey_patch/string.rb

@@ -13,7 +13,7 @@ class String
   #<br>Endemic Code Smells
   #* :reek:FeatureEnvy -- false positive
   def foorth_coerce(arg)
-    arg.to_s
+    arg.to_s.freeze
   rescue
     error "F40: Cannot coerce a #{arg.foorth_name} to an String instance"
   end
@@ -48,4 +48,61 @@ class String
     self.to_foorth_n.to_foorth_r
   end
 
+  #A special patch for safe_clone
+  def safe_clone
+    self.freeze
+  end
+
+  #A special patch for full_clone
+  def full_clone(_arg=nil)
+    self.freeze
+  end
+
+  #Freeze only pure strings
+  def foorth_string_freeze
+    self.freeze
+  end
+
+  #Create an instance of a String.
+  #<br>Parameters:
+  #* vm - The current fOOrth virtual machine.
+  def self.create_foorth_instance(vm)
+    (obj = "".freeze).foorth_init(vm)
+    obj
+  end
+
+end
+
+#The \StringBuffer class is the mutable variant of the String class.
+class StringBuffer < String
+
+  #Create a string buffer from an object. Make sure that object is a
+  #string and make sure that string is not frozen.
+  def initialize(text="")
+    super(text)
+  end
+
+  #A special patch for safe_clone
+  def safe_clone
+    self.clone
+  end
+
+  #A special patch for full_clone
+  def full_clone(_arg=nil)
+    self.clone
+  end
+
+  #Freeze only pure strings
+  def foorth_string_freeze
+    self
+  end
+
+  #Create an instance of StringBuffer.
+  #<br>Parameters:
+  #* vm - The current fOOrth virtual machine.
+  def self.create_foorth_instance(vm)
+    (obj = self.new).foorth_init(vm)
+    obj
+  end
+
 end

data/lib/fOOrth/version.rb

@@ -3,5 +3,5 @@
 #* version.rb - The version string for fOOrth.
 module XfOOrth
   #The version string for fOOrth.
-  VERSION = "0.5.3"
+  VERSION = "0.6.0"
 end

data/tests/monkey_patch/string_test.rb

@@ -46,8 +46,16 @@ class StringMonkeyPatchTester < Minitest::Test
   def test_to_rational
     assert_equal(Rational(1,2), '1/2'.to_foorth_r)
     assert_equal(nil, 'apple'.to_foorth_r)
-
   end
 
+  def test_clone_patches
+    s = "abc"
+    assert_equal(s.object_id, s.safe_clone.object_id)
+    assert_equal(s.object_id, s.full_clone.object_id)
+
+    b = StringBuffer.new('abc')
+    refute_equal(b.object_id, b.safe_clone.object_id)
+    refute_equal(b.object_id, b.full_clone.object_id)
+  end
 
-end
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: fOOrth
 version: !ruby/object:Gem::Version
-  version: 0.5.3
+  version: 0.6.0
 platform: ruby
 authors:
 - Peter Camilleri
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-04-07 00:00:00.000000000 Z
+date: 2016-04-13 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler