fOOrth 0.5.0

data/tests/monkey_patch/object_test.rb

@@ -0,0 +1,49 @@
+# coding: utf-8
+
+require_relative '../../lib/fOOrth/monkey_patch'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+#Test the monkey patches applied to the Object class.
+class ObjectMonkeyPatchTester < Minitest::Test
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  #Test that it does NOT foorth_embed.
+  def test_foorth_embed_error
+    obj = Object.new
+    assert_raises(XfOOrth::XfOOrthError) { obj.foorth_embed }
+  end
+
+  #Test for conversion to a boolean.
+  def test_to_boolean
+    obj = Object.new
+    assert_equal(obj.to_foorth_b, true)
+  end
+
+  #Test for conversion to a character.
+  def test_to_character
+    obj = Object.new
+    assert_equal(obj.to_foorth_c, "\x00")
+  end
+
+  #Test for conversion to a number.
+  def test_to_number
+    obj = Object.new
+    assert_equal(obj.to_foorth_n, nil)
+  end
+
+  #Test for conversion to a rational.
+  def test_to_rational
+    obj = Object.new
+    assert_equal(obj.to_foorth_r, nil)
+  end
+
+  #Test the quick fail raise in fOOrth.
+  def test_that_exceptions_are_easy_to_raise
+    assert_raises(XfOOrth::XfOOrthError) { error('Failure IS an option!') }
+  end
+
+end

data/tests/monkey_patch/rational_test.rb

@@ -0,0 +1,57 @@
+# coding: utf-8
+
+require_relative '../../lib/fOOrth/monkey_patch/numeric'
+require_relative '../../lib/fOOrth/monkey_patch/rational'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+#Test the monkey patches applied to the Object class.
+class RationalMonkeyPatchTester < Minitest::Test
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  #Test that it embeds
+  def test_foorth_embed
+    rat = '1/2'.to_r
+    assert_equal(rat.foorth_embed, "'1/2'.to_r")
+  end
+
+  #Test for conversion to a rational.
+  def test_to_rational
+    rat = '1/2'.to_r
+    assert_equal(rat.to_foorth_r, rat)
+  end
+
+  def test_coerce
+    assert_equal(Rational(1,2), Rational.foorth_coerce(0.5))
+    assert_equal(Rational(5,1), Rational.foorth_coerce(5))
+    assert_equal(Rational(13,10), Rational.foorth_coerce(1.3))
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      Rational.foorth_coerce("apple")
+    end
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      Rational.foorth_coerce(nil)
+    end
+
+    rat = '1/2'.to_r
+
+    assert_equal(Rational(1,2), rat.foorth_coerce(0.5))
+    assert_equal(Rational(5,1), rat.foorth_coerce(5))
+    assert_equal(Rational(13,10), rat.foorth_coerce(1.3))
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      rat.foorth_coerce("apple")
+    end
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      rat.foorth_coerce(nil)
+    end
+  end
+
+
+
+end

data/tests/monkey_patch/string_test.rb

@@ -0,0 +1,53 @@
+# coding: utf-8
+
+require_relative '../../lib/fOOrth/monkey_patch/string'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+#Test the monkey patches applied to the Object class.
+class StringMonkeyPatchTester < Minitest::Test
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  #Test that it embeds
+  def test_foorth_embed
+    assert_equal("A big blue cat".foorth_embed, "\"A big blue cat\"")
+    assert_equal("The cat's toy".foorth_embed,  "\"The cat's toy\"")
+    assert_equal('A dog\cat race'.foorth_embed, "\"A dog\\\\cat race\"")
+    assert_equal('A dog/cat race'.foorth_embed, "\"A dog/cat race\"")
+  end
+
+  #Test converting to a character.
+  def test_to_character
+    assert_equal('ABC'.to_foorth_c, 'A')
+    assert_equal('A'.to_foorth_c,   'A')
+    assert_equal(''.to_foorth_c,    nil)
+  end
+
+  #Test converting to a number.
+  def test_to_number
+    assert_equal('123'.to_foorth_n,   123)
+    assert_equal('123.4'.to_foorth_n, 123.4)
+    assert_equal('1/2'.to_foorth_n, '1/2'.to_r)
+    assert_equal('1+2i'.to_foorth_n, Complex(1,2))
+    assert_equal('2i'.to_foorth_n, Complex(0,2))
+    assert_equal('1-2i'.to_foorth_n, Complex(1,-2))
+    assert_equal('-2i'.to_foorth_n, Complex(0,-2))
+    assert_equal('+1+2i'.to_foorth_n, Complex(1,2))
+    assert_equal('+2i'.to_foorth_n, Complex(0,2))
+    assert_equal('+1-2i'.to_foorth_n, Complex(1,-2))
+
+    assert_equal('fubar'.to_foorth_n, nil)
+    assert_equal('2cats'.to_foorth_n, nil)
+  end
+
+  def test_to_rational
+    assert_equal(Rational(1,2), '1/2'.to_foorth_r)
+    assert_equal(nil, 'apple'.to_foorth_r)
+
+  end
+
+
+end

data/tests/symbol_map_tests.rb

@@ -0,0 +1,53 @@
+# coding: utf-8
+
+require_relative '../lib/fOOrth/monkey_patch'
+require_relative '../lib/fOOrth/symbol_map'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+#Test the monkey patches applied to the Object class.
+class SymbolMapTester < Minitest::Test
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  #Test that we can add, map, and un-map names.
+  def test_adding_mappings
+    XfOOrth::SymbolMap.restart('test_10')
+    assert_equal(XfOOrth::SymbolMap.add_entry('foo'), :test_11)
+    assert_equal(XfOOrth::SymbolMap.add_entry('bar'), :test_12)
+    assert_equal(XfOOrth::SymbolMap.add_entry('foo'), :test_11)
+    assert_equal(XfOOrth::SymbolMap.map('foo'), :test_11)
+    refute(XfOOrth::SymbolMap.map('goo'))
+    assert_equal(XfOOrth::SymbolMap.unmap(:test_11), 'foo')
+    assert_equal(XfOOrth::SymbolMap.unmap(:test_12), 'bar')
+    refute(XfOOrth::SymbolMap.unmap(:test_ikle))
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      XfOOrth::SymbolMap.add_entry('foo', :evil_method)
+    end
+  end
+
+  #Test the special mappings facility
+  def test_special_mappings
+    assert_equal(XfOOrth::SymbolMap.map('.init'), :foorth_init)
+    assert_equal(XfOOrth::SymbolMap.unmap(:foorth_init), '.init')
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      XfOOrth::SymbolMap.add_entry('.init', :evil_method)
+    end
+
+    assert_raises(XfOOrth::XfOOrthError) do
+      XfOOrth::SymbolMap.add_entry('.wrong', :foorth_init)
+    end
+
+  end
+
+  #Test mapping with . and ~
+  def test_mapping_with_dot_and_tilde
+    XfOOrth::SymbolMap.restart('test_20')
+    assert_equal(XfOOrth::SymbolMap.add_entry('.foo'), :test_21)
+    assert_equal(XfOOrth::SymbolMap.map('.foo'), :test_21)
+  end
+end

metadata

@@ -0,0 +1,366 @@
+--- !ruby/object:Gem::Specification
+name: fOOrth
+version: !ruby/object:Gem::Version
+  version: 0.5.0
+platform: ruby
+authors:
+- Peter Camilleri
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-03-06 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: reek
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.7'
+- !ruby/object:Gem::Dependency
+  name: minitest_visible
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.0
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 4.0.1
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 4.0.1
+- !ruby/object:Gem::Dependency
+  name: ruby_sscanf
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.2.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.2.0
+- !ruby/object:Gem::Dependency
+  name: format_engine
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.7.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.7.0
+- !ruby/object:Gem::Dependency
+  name: full_clone
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: safe_clone
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: in_array
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: mini_readline
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.3.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.3.3
+description: An Object Oriented FORTHesque language gem.
+email: peter.c.camilleri@gmail.com
+executables:
+- fOOrth
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".rdoc_options"
+- Gemfile
+- README.md
+- bin/fOOrth
+- demo.rb
+- fOOrth.gemspec
+- fOOrth.reek
+- integration/README.md
+- integration/_FILE_test.foorth
+- integration/array_lib_tests.rb
+- integration/class_lib_tests.rb
+- integration/clone_lib_tests.rb
+- integration/comparison_tests.rb
+- integration/compile_lib_tests.rb
+- integration/ctrl_struct_lib_tests.rb
+- integration/data_ref_lib_tests.rb
+- integration/exception_lib_tests.rb
+- integration/fiber_bundle_tests.rb
+- integration/hash_lib_tests.rb
+- integration/in_stream_test_1.txt
+- integration/load_test_one.foorth
+- integration/load_test_two.foorth
+- integration/numeric_lib_tests.rb
+- integration/object_lib_tests.rb
+- integration/procedure_lib_tests.rb
+- integration/queue_lib_tests.rb
+- integration/stack_lib_tests.rb
+- integration/standard_lib_tests.rb
+- integration/stdio_lib_tests.rb
+- integration/stream_lib_tests.rb
+- integration/string_lib_tests.rb
+- integration/support/foorth_testing.rb
+- integration/thread_lib_tests.rb
+- integration/time_lib_tests.rb
+- integration/vm_lib_tests.rb
+- lib/fOOrth.rb
+- lib/fOOrth/compiler.rb
+- lib/fOOrth/compiler/context.rb
+- lib/fOOrth/compiler/context/locals.rb
+- lib/fOOrth/compiler/context/map_name.rb
+- lib/fOOrth/compiler/context/tags.rb
+- lib/fOOrth/compiler/modes.rb
+- lib/fOOrth/compiler/modes/compiled.rb
+- lib/fOOrth/compiler/modes/deferred.rb
+- lib/fOOrth/compiler/modes/delayed.rb
+- lib/fOOrth/compiler/modes/nested.rb
+- lib/fOOrth/compiler/modes/suspend.rb
+- lib/fOOrth/compiler/parser.rb
+- lib/fOOrth/compiler/parser/get_string.rb
+- lib/fOOrth/compiler/parser/normal.rb
+- lib/fOOrth/compiler/parser/skip.rb
+- lib/fOOrth/compiler/parser/special.rb
+- lib/fOOrth/compiler/process.rb
+- lib/fOOrth/compiler/process/generate.rb
+- lib/fOOrth/compiler/process/get_token.rb
+- lib/fOOrth/compiler/process/procedure.rb
+- lib/fOOrth/compiler/process/string.rb
+- lib/fOOrth/compiler/source.rb
+- lib/fOOrth/compiler/source/console.rb
+- lib/fOOrth/compiler/source/file_source.rb
+- lib/fOOrth/compiler/source/read_point.rb
+- lib/fOOrth/compiler/source/string_source.rb
+- lib/fOOrth/compiler/token.rb
+- lib/fOOrth/compiler/word_specs.rb
+- lib/fOOrth/core.rb
+- lib/fOOrth/core/class.rb
+- lib/fOOrth/core/object.rb
+- lib/fOOrth/core/virtual_machine.rb
+- lib/fOOrth/debug.rb
+- lib/fOOrth/debug/context_dump.rb
+- lib/fOOrth/debug/dbg_puts.rb
+- lib/fOOrth/debug/display_abort.rb
+- lib/fOOrth/debug/vm_dump.rb
+- lib/fOOrth/initialize.rb
+- lib/fOOrth/interpreter.rb
+- lib/fOOrth/interpreter/add_to_hash.rb
+- lib/fOOrth/interpreter/data_stack.rb
+- lib/fOOrth/interpreter/do_loop.rb
+- lib/fOOrth/interpreter/squash.rb
+- lib/fOOrth/library.rb
+- lib/fOOrth/library/array_library.rb
+- lib/fOOrth/library/bundle_library.rb
+- lib/fOOrth/library/class_library.rb
+- lib/fOOrth/library/clone_library.rb
+- lib/fOOrth/library/command_library.rb
+- lib/fOOrth/library/compile_library.rb
+- lib/fOOrth/library/complex_library.rb
+- lib/fOOrth/library/ctrl_struct_library.rb
+- lib/fOOrth/library/data_ref_library.rb
+- lib/fOOrth/library/duration/arithmetic.rb
+- lib/fOOrth/library/duration/formatter.rb
+- lib/fOOrth/library/duration/intervals.rb
+- lib/fOOrth/library/duration/make.rb
+- lib/fOOrth/library/duration_library.rb
+- lib/fOOrth/library/fiber_library.rb
+- lib/fOOrth/library/hash_library.rb
+- lib/fOOrth/library/in_stream_library.rb
+- lib/fOOrth/library/integer_library.rb
+- lib/fOOrth/library/mutex_library.rb
+- lib/fOOrth/library/numeric_library.rb
+- lib/fOOrth/library/object_library.rb
+- lib/fOOrth/library/other_value_types_library.rb
+- lib/fOOrth/library/out_stream_library.rb
+- lib/fOOrth/library/procedure_library.rb
+- lib/fOOrth/library/queue_library.rb
+- lib/fOOrth/library/rational_library.rb
+- lib/fOOrth/library/stack_library.rb
+- lib/fOOrth/library/stdio_library.rb
+- lib/fOOrth/library/string_library.rb
+- lib/fOOrth/library/stubs.rb
+- lib/fOOrth/library/sync_bundle_library.rb
+- lib/fOOrth/library/thread_library.rb
+- lib/fOOrth/library/time_library.rb
+- lib/fOOrth/library/vm_library.rb
+- lib/fOOrth/main.rb
+- lib/fOOrth/monkey_patch.rb
+- lib/fOOrth/monkey_patch/complex.rb
+- lib/fOOrth/monkey_patch/exceptions.rb
+- lib/fOOrth/monkey_patch/false.rb
+- lib/fOOrth/monkey_patch/float.rb
+- lib/fOOrth/monkey_patch/integer.rb
+- lib/fOOrth/monkey_patch/nil.rb
+- lib/fOOrth/monkey_patch/numeric.rb
+- lib/fOOrth/monkey_patch/object.rb
+- lib/fOOrth/monkey_patch/rational.rb
+- lib/fOOrth/monkey_patch/string.rb
+- lib/fOOrth/symbol_map.rb
+- lib/fOOrth/version.rb
+- license.txt
+- rakefile.rb
+- reek.txt
+- sire.rb
+- t.txt
+- test.foorth
+- tests/compiler/context_tests.rb
+- tests/compiler/file_source_test_one.txt
+- tests/compiler/file_source_test_three.txt
+- tests/compiler/file_source_test_two.txt
+- tests/compiler/file_source_tests.rb
+- tests/compiler/mode_tests.rb
+- tests/compiler/parser_tests.rb
+- tests/compiler/spec_tests.rb
+- tests/compiler/string_source_tests.rb
+- tests/core_tests.rb
+- tests/interpreter/data_stack_tests.rb
+- tests/monkey_patch/coerce_test.rb
+- tests/monkey_patch/complex_test.rb
+- tests/monkey_patch/numeric_test.rb
+- tests/monkey_patch/object_test.rb
+- tests/monkey_patch/rational_test.rb
+- tests/monkey_patch/string_test.rb
+- tests/symbol_map_tests.rb
+homepage: http://teuthida-technologies.com/
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 1.9.3
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: FNF == fOOrth is Not FORTH.
+test_files: []
+has_rdoc: