fOOrth 0.6.0 → 0.6.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 1d0d6f091b373efebb5abe63ef8640ff9b6ccb19
-  data.tar.gz: ac4726f91899a582360c249d6a56fbdb5a392c6e
+  metadata.gz: 30474940c4c3e0647c0c1205d6165d3c3d11ee3a
+  data.tar.gz: 8e65265692a9ed674814aa78c9fd2892da3456a1
 SHA512:
-  metadata.gz: 81570f5d034eb8507fb59a6121b0e205b3edcbfea451fcba3a49127a5a535ed92828b1fecd1da8a0359c802543f76830234201c38d9302dfe75024f489d8add5
-  data.tar.gz: 68e73dbaba411571709f779ba5b10f8af82a5d2a572be1fbc9b1bcf1a138c43cf02f344c91bf53f1dabd520699baee8d22ae754359dce8fb3c4976cd7982cf5f
+  metadata.gz: e53b8c014e66a4f7f0401292c00e4e361a0a0667ade42bc26be9db1a93976f8686ca0c874fabca16efad207a6c89c45994bf4be17ea712861ecdf64c84cf2446
+  data.tar.gz: 79cfd83122d97e5b83a357d6b7df7c8083a163c7467131d963396f13a300aae0c7a7e003dd51ec62776aa3adc33e8607bd711bf623808564fb5498baabb54758

data/integration/clone_lib_tests.rb

@@ -49,14 +49,15 @@ class CloneLibraryTester < Minitest::Test
     foorth_run('$tscx1 .clone val$: $tscx2')
 
     foorth_equal('$tscx1 .clone_exclude', [["@b"]])
+    foorth_equal('$tscx2 .clone_exclude', [["@b"]])
 
     foorth_equal('$tscx1 .a', ["a"])
     foorth_equal('$tscx1 .b', ["b"])
     foorth_equal('$tscx2 .a', ["a"])
     foorth_equal('$tscx2 .b', ["b"])
 
-    foorth_run('$tscx1 .a "1" <<')
-    foorth_run('$tscx1 .b "1" <<')
+    foorth_equal('$tscx1 .a "1" << ', ["a1"])
+    foorth_equal('$tscx1 .b "1" << ', ["b1"])
 
     foorth_equal('$tscx1 .a', ["a1"])
     foorth_equal('$tscx1 .b', ["b1"])

data/integration/object_lib_tests.rb

@@ -35,4 +35,32 @@ class ObjectLibraryTester < Minitest::Test
     foorth_equal("4              .strlen", [1])
   end
 
+  def test_for_mutable_and_protect
+    foorth_equal('"abc"  .mutable?', [false])
+    foorth_equal('"abc"  dup .protect .mutable?', [false])
+    foorth_equal('"abc"       protect .mutable?', [false])
+
+    foorth_equal('"abc"* .mutable?', [true])
+    foorth_equal('"abc"* dup .protect .mutable?', [false])
+    foorth_equal('"abc"*      protect .mutable?', [false])
+    foorth_raises('"abc"* dup .protect "a" <<', RuntimeError)
+    foorth_raises('"abc"*      protect "a" <<', RuntimeError)
+
+    foorth_equal('42     .mutable?', [false])
+    foorth_equal('42.5   .mutable?', [false])
+    foorth_equal('42/5   .mutable?', [false])
+    foorth_equal('42+5i  .mutable?', [false])
+
+    foorth_equal('[ "abc" ] .mutable?', [true])
+    foorth_equal('[ "abc" ] dup .protect .mutable?', [false])
+    foorth_equal('[ "abc" ]      protect .mutable?', [false])
+
+    foorth_equal('true   .mutable?', [false])
+    foorth_equal('false  .mutable?', [false])
+    foorth_equal('nil    .mutable?', [false])
+
+    foorth_equal('Object .new dup .protect .mutable?', [false])
+    foorth_equal('Object .new      protect .mutable?', [false])
+  end
+
 end

data/integration/string_lib_tests.rb

@@ -72,6 +72,25 @@ class StringLibraryTester < Minitest::Test
     foorth_equal('"A"* "B" >>', ["BA"])
   end
 
+  def test_some_additionelle_stuff
+    foorth_equal('"A"* .to_s .class    ', [String])
+
+    foorth_equal('"A"* .to_s .mutable? ', [false])
+
+    foorth_equal('"A"*      protect .class    ', [StringBuffer])
+    foorth_equal('"A"* dup .protect .class    ', [StringBuffer])
+
+    foorth_equal('"A"*      protect .mutable? ', [false])
+    foorth_equal('"A"* dup .protect .mutable? ', [false])
+
+    foorth_equal('"A"* .to_s* .class    ', [StringBuffer])
+    foorth_equal('"A"* .to_s* .mutable? ', [true])
+    foorth_equal('"A"* dup .to_s* distinct? ', [true])
+
+    foorth_equal('"A"* protect .to_s* .class ', [StringBuffer])
+    foorth_equal('"A"* protect .to_s* .mutable? ', [true])
+  end
+
   def test_file_loading
     foorth_equal('"integration/load_test_one.foorth" .load ', [42])
     foorth_equal('4 double ', [8])

data/lib/fOOrth/library/object_library.rb

@@ -87,4 +87,38 @@ module XfOOrth
     end
   })
 
+  #Is this object mutable?
+  # [a] .mutable? [flag]
+  Object.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(!self.frozen?); })
+
+  #Is this number mutable? No!
+  # [a] .mutable? [false]
+  Numeric.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(false); })
+
+  #Is this boolean mutable? No!
+  # [a] .mutable? [false]
+  TrueClass.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(false); })
+
+  #Is this boolean mutable? No!
+  # [a] .mutable? [false]
+  FalseClass.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(false); })
+
+  #Is nil mutable? No!
+  # [a] .mutable? [false]
+  NilClass.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(false); })
+
+  #Protect this object from change!
+  # [a] .protect [] The object is protected against change.
+  Object.create_shared_method('.protect', TosSpec, [],
+    &lambda{|vm| self.freeze })
+
+  #Protect this object from change!
+  # [a] protect [a] The object is protected against change.
+  VirtualMachine.create_shared_method('protect', VmSpec, [],
+    &lambda{|vm| vm.poke(vm.peek.freeze) })
 end

data/lib/fOOrth/library/string_library.rb

@@ -12,11 +12,6 @@ module XfOOrth
   # A no operation place holder for string literals
   VirtualMachine.create_shared_method('"', MacroSpec, [:macro, " "])
 
-  #Is this mutable? StringBuffers are, Strings are not.
-  # [a] .mutable? [flag]
-  String.create_shared_method('.mutable?', TosSpec, [],
-    &lambda {|vm| vm.push(!self.frozen?); })
-
   # [string] .each{{ ... }} [unspecified]
   String.create_shared_method('.each{{', NosSpec, [], &lambda { |vm|
     block, idx = vm.pop, 0

data/lib/fOOrth/monkey_patch/exceptions.rb

@@ -105,6 +105,20 @@ class SystemCallError
 
 end
 
+#Extensions to the RunTimeError to support fOOrth
+class RuntimeError
+
+  #Massage the messages a bit
+  def message
+    msg = super
+
+    msg["frozen"] && msg["frozen"] = "protected"
+
+    msg
+  end
+
+end
+
 # Extensions to Interrupt to support fOOrth.
 class Interrupt
 

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.6.0"
+  VERSION = "0.6.1"
 end

metadata

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