fOOrth 0.6.6 → 0.6.7

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: b78d9f4016b73209d62eaf5c8d01497f64b65582
-  data.tar.gz: 98ec2f26ae3bf20ea9a65d120ecb0d9bc6b2f88c
+  metadata.gz: 1374c4bba58032a13a910d7b284ef79fcb512837
+  data.tar.gz: 5c60e71d86f800551b0041c5f8afa4c75e8b87a8
 SHA512:
-  metadata.gz: f04893f0850026b62865f1087298d8f8ad1a621da78d097a96106adcba71f00ba14abe1968992bcdda57ef14ed6a0bfc4969d9f3b291793b55618d0b7cad0e09
-  data.tar.gz: 0f17fc2d2d9dd61a37e6b3be5440346a18af935d591d261ef53a3d7b2eb9e94ef29460bf6b40babe243d39efb4139dc63bd97081cb098bac012a04ac03869dc6
+  metadata.gz: 2d4ee24f67b5268c8976acfd83f54604ef65aef74c648507fed2356a7f5afe2025480314c9708b9bc5782507d98f671f1c5504523142f31d11364ba1ed8ed28e
+  data.tar.gz: aa223c7aff3c0f0a5bfb60b365f8bf7f6596889e071d9333ed7dc44f583edf79cd9e8ae7c5372d26f38ecc2bd179e39bba169d340e2e7a5a155be90bfb04530a

data/integration/compile_lib_tests.rb

@@ -112,7 +112,6 @@ class CompileLibraryTester < Minitest::Test
 
     foorth_equal('Object .: .lvt6 val: lv lv 10  * ;' , [])
     foorth_equal('10 Object .new .lvt6 ' , [100])
-
   end
 
   def test_exclusive_methods
@@ -233,7 +232,74 @@ class CompileLibraryTester < Minitest::Test
 
     foorth_equal("Integer    .: minus self swap -  ; 10 5 minus", [5])
     foorth_equal("Integer '. .: rinus self swap -  ; 10 5 rinus", [-5])
+  end
+
+  def test_method_aliasing
+    foorth_run('class: TestAlias')
+    foorth_run('TestAlias .: .method_name 42 ;')
+    foorth_run('TestAlias .new val$: $test_aliasing_one')
+    foorth_run('TestAlias .new val$: $test_aliasing_two')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_raises('$test_aliasing_one .alias_name')
+    foorth_raises('$test_aliasing_one .with {{ ~other_name }}')
+
+    foorth_run('".method_name" TestAlias .alias: .alias_name')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_one .alias_name', [42])
+    foorth_raises('$test_aliasing_one .with {{ ~other_name }}')
+
+    foorth_run('".method_name" TestAlias .alias: ~other_name')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_one .alias_name', [42])
+    foorth_equal('$test_aliasing_one .with{{ ~other_name }}', [42])
+
+    foorth_raises('".method_name" TestAlias .alias: ++++')
+
+    foorth_run('$test_aliasing_two .:: .method_name 69 ;')
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_two .method_name', [69])
+
+    foorth_run('".method_name" $test_aliasing_two .alias:: .crazy')
+    foorth_equal('$test_aliasing_two .crazy', [69])
+    foorth_raises('$test_aliasing_one .crazy')
+
+    foorth_raises('"+" Numeric .alias: .add')
+    foorth_run('"-" Numeric \'* .alias: .sub')
+    foorth_equal('11 4 .sub', [7])
 
+    foorth_run('"dup" alias: doop')
+    foorth_equal('11 doop', [11, 11])
   end
 
+  def test_method_stubs
+    foorth_run('class: TestStubs')
+    foorth_equal('TestStubs .new .to_i', [nil])
+
+    foorth_run('TestStubs .stub: .to_i')
+    foorth_raises('TestStubs .new .to_i')
+
+    foorth_run('TestStubs .new val$: $test_stubs_one')
+    foorth_run('TestStubs .new val$: $test_stubs_two')
+
+    foorth_run('$test_stubs_two .stub:: .to_r')
+
+    foorth_equal('$test_stubs_one .to_r', [nil])
+    foorth_raises('$test_stubs_two .to_r')
+
+    foorth_run('"dup" alias: dupe')
+    foorth_equal('3 dup ', [3,3])
+    foorth_equal('3 dupe', [3,3])
+
+    foorth_run('stub: dup')
+
+    foorth_raises('3 dup ')
+    foorth_equal('3 dupe', [3,3])
+
+    foorth_run('"dupe" alias: dup')
+  end
+
+
 end

data/lib/fOOrth/compiler/context/map_name.rb

@@ -11,9 +11,30 @@ module XfOOrth
     #* name - The string to be mapped.
     #<br>Returns:
     #* The specification that corresponds to the name or nil if none found.
-    def map(name, allow_defaults=:allow)
+    def map_with_defaults(name)
       if (@symbol = SymbolMap.map(@name = name))
-        do_map_name(allow_defaults)
+        do_map_name ||
+          case @name[0]
+          when '.'
+            TosSpec.new(@name, @symbol, [:temp])
+
+          when '~'
+            SelfSpec.new(@name, @symbol, [:temp])
+
+          else
+            spec_error
+          end
+      end
+    end
+
+    #Map a name to a specification.
+    #<br>Parameters:
+    #* name - The string to be mapped.
+    #<br>Returns:
+    #* The specification that corresponds to the name or nil if none found.
+    def map_without_defaults(name)
+      if (@symbol = SymbolMap.map(@name = name))
+        do_map_name
       end
     end
 
@@ -21,23 +42,13 @@ module XfOOrth
     private
 
     #Do a search of dictionaries based on the syntax of the name.
-    def do_map_name(allow_defaults)
+    def do_map_name
       self[@symbol]        ||
       do_target_class_map  ||
       do_target_object_map ||
       do_target_vm_map     ||
       do_object_class_map  ||
-      do_global_map        ||
-      (allow_defaults && case @name[0]
-      when '.'
-        TosSpec.new(@name, @symbol, [:temp])
-
-      when '~'
-        SelfSpec.new(@name, @symbol, [:temp])
-
-      else
-        spec_error
-      end)
+      do_global_map
     end
 
     #Do a search of the Object class for the item.

data/lib/fOOrth/compiler/process/generate.rb

@@ -11,7 +11,7 @@ module XfOOrth
     #* token - The token to receive the generated code.
     #* word  - The text of the word.
     def generate_code(token, word)
-      if (spec = @context.map(word))
+      if (spec = @context.map_with_defaults(word))
         token.add(spec.builds, spec.tags)
       elsif (value = word.to_foorth_n)
         token.add("vm.push(#{value.foorth_embed}); ", [:numeric])

data/lib/fOOrth/compiler/word_specs.rb

@@ -39,7 +39,7 @@ module XfOOrth
     #Get the default action if none is specified.
     def get_stub_action(name, symbol)
       lambda do |*_any|
-        error "F20: A #{self.foorth_name} does not understand #{name} (#{symbol.inspect})."
+        f20_error(self, name, symbol)
       end
     end
 
@@ -100,7 +100,7 @@ module XfOOrth
         #be removed at this time.
         vm.data_stack.pop
 
-        error "F20: A #{self.foorth_name} does not understand #{name} (#{symbol.inspect})."
+        f20_error(self, name, symbol)
       end
     end
 
@@ -175,7 +175,7 @@ module XfOOrth
     #* The last entry in the tags array is expected to be a string
     #  with the text of the command macro.
     def build_builds_string(_name, _symbol)
-      @builds = @tags.pop
+      @builds = @tags[-1]
     end
   end
 end

data/lib/fOOrth/core/object.rb

@@ -68,7 +68,7 @@ class Object
       if (stub_spec = Object.foorth_shared[symbol])
         self.instance_exec(*args, &stub_spec.does)
       else
-        error "F20: A #{self.foorth_name} does not understand #{name} (#{symbol})."
+        f20_error(self, name, symbol)
       end
     else
       super

data/lib/fOOrth/library.rb

@@ -7,6 +7,8 @@ require_relative 'library/vm_library'
 require_relative 'library/data_ref_library'
 require_relative 'library/clone_library'
 require_relative 'library/compile_library'
+require_relative 'library/alias_library'
+require_relative 'library/stubs_library'
 require_relative 'library/ctrl_struct_library'
 require_relative 'library/stdio_library'
 require_relative 'library/numeric_library'

data/lib/fOOrth/library/alias_library.rb

@@ -0,0 +1,126 @@
+# coding: utf-8
+
+#* library/alias_library.rb - Support for method aliasing in fOOrth.
+module XfOOrth
+
+  VirtualMachine.create_shared_method('alias:', VmSpec, [:immediate],
+  &lambda {|vm|
+    new_name = parser.get_word().inspect
+    process_text("vm.create_word_alias(#{new_name}); ")
+  })
+
+  VirtualMachine.create_shared_method('.alias:', VmSpec, [:immediate],
+  &lambda {|vm|
+    new_name = parser.get_word().inspect
+    process_text("vm.create_shared_alias(#{new_name}); ")
+  })
+
+  VirtualMachine.create_shared_method('.alias::', VmSpec, [:immediate],
+  &lambda {|vm|
+    new_name = parser.get_word().inspect
+    process_text("vm.create_exclusive_alias(#{new_name}); ")
+  })
+
+  # Alias support methods in the VirtualMachine class.
+  class VirtualMachine
+    ALLOWED_ALIAS_TYPES = {
+      TosSpec  => [TosSpec, SelfSpec],
+      SelfSpec => [TosSpec, SelfSpec],
+      NosSpec  => [NosSpec]
+    }
+
+    #Create a virtual machine word method alias.
+    def create_word_alias(new_name)
+      old_name, target = pop, self.class
+
+      old_spec = get_old_shared_spec(target, old_name)
+
+      target.create_shared_method(new_name,
+                                  old_spec.class,
+                                  old_spec.tags,
+                                  &old_spec.does)
+    end
+
+    #Create a shared method alias
+    def create_shared_alias(new_name)
+      old_name, target = popm(2)
+
+      unless target.is_a?(Class)
+        error "F13: The target of .alias: must be a class"
+      end
+
+      old_spec = get_old_shared_spec(target, old_name)
+
+      target.create_shared_method(new_name,
+                                  get_alias_type(old_spec, new_name),
+                                  old_spec.tags,
+                                  &old_spec.does)
+      clear_cast
+    end
+
+    #Create an exclusive method alias
+    def create_exclusive_alias(new_name)
+      old_name, target = popm(2)
+
+      old_spec = get_old_exclusive_spec(target, old_name)
+
+      target.create_exclusive_method(new_name,
+                                     get_alias_type(old_spec, new_name),
+                                     old_spec.tags,
+                                     &old_spec.does)
+      clear_cast
+    end
+
+    private
+
+    #Get the shared specification of the original method.
+    def get_old_shared_spec(target, old_name)
+      old_symbol = get_old_symbol(old_name)
+
+      unless (old_spec = target.map_foorth_shared(old_symbol))
+        f20_error(target, old_name, old_symbol)
+      end
+
+      old_spec
+    end
+
+    #Get the exclusive specification of the original method.
+    def get_old_exclusive_spec(target, old_name)
+      old_symbol = get_old_symbol(old_name)
+
+      unless (old_spec = target.map_foorth_exclusive(old_symbol))
+        f20_error(target, old_name, old_symbol)
+      end
+
+      old_spec
+    end
+
+    #Get the symbol of the old method.
+    def get_old_symbol(old_name)
+      old_symbol = XfOOrth::SymbolMap.map(old_name)
+      error "F10: ?#{old_name}?" unless old_symbol
+      old_symbol
+    end
+
+    #Get the type of the aliased method.
+    def get_alias_type(old_spec, new_name)
+      old_type = old_spec.class
+      new_type = XfOOrth.name_to_type(new_name, self)
+      old_desc, new_desc = old_type.foorth_name, new_type.foorth_name
+
+      unless (allowed = ALLOWED_ALIAS_TYPES[old_type])
+        error "F13: A #{old_desc} method may not be aliased."
+      end
+
+      unless allowed.include?(new_type)
+        error "F13: A #{old_desc} method may not be aliased as a #{new_desc}"
+      end
+
+      XfOOrth.validate_type(self, new_type, new_name)
+
+      new_type
+    end
+
+  end
+
+end

data/lib/fOOrth/library/compile_library.rb

@@ -74,7 +74,7 @@ module XfOOrth
       error "F13: The target of .: must be a class" unless target.is_a?(Class)
 
       name   = vm.parser.get_word()
-      type   = XfOOrth.name_to_type(name, get_cast)
+      type   = XfOOrth.name_to_type(name, self)
       XfOOrth.validate_type(vm, type, name)
       XfOOrth.validate_string_method(type, target, name)
 
@@ -132,7 +132,7 @@ module XfOOrth
     if execute_mode?
       target = vm.pop
       name   = vm.parser.get_word()
-      type   = XfOOrth.name_to_type(name, get_cast)
+      type   = XfOOrth.name_to_type(name, self)
       XfOOrth.validate_type(vm, type, name)
       XfOOrth.validate_string_method(type, target.class, name)
 
@@ -188,6 +188,8 @@ module XfOOrth
   #<br>Parameters:
   #* vm - The current virtual machine instance.
   #* ctrl - A list of valid start controls.
+  #<br>Endemic Code Smells
+  #* :reek:TooManyStatements
   def self.add_common_compiler_locals(vm, ctrl)
     context = vm.context
 
@@ -212,7 +214,7 @@ module XfOOrth
   #*name - The name of the method to be created.
   #<Returns>
   #* The class of the spec to be used for this method.
-  def self.name_to_type(name, cast_spec=nil)
+  def self.name_to_type(name, vm)
     normal_spec = case name[0]
     when '.'
       TosSpec
@@ -227,7 +229,7 @@ module XfOOrth
       NosSpec
     end
 
-    cast_spec || normal_spec
+    vm.get_cast || normal_spec
   end
 
   #Compare the new method's spec against the specs of other methods of the
@@ -238,7 +240,7 @@ module XfOOrth
   #*type - The class of the method to be created.
   #*name - The name of the method to be created.
   def self.validate_type(vm, type, name)
-    if (spec = vm.context.map(name, false))
+    if (spec = vm.context.map_without_defaults(name))
       if spec.class != type
         error "F90: Spec type mismatch #{spec.foorth_name} vs #{type.foorth_name}"
       end

data/lib/fOOrth/library/formatting/bullets.rb

@@ -13,13 +13,15 @@ module XfOOrth
     #Add an item to this page.
     #<br>Returns
     #* The number if items that did not fit in the page.
+    #<br>Endemic Code Smells
+    #* :reek:FeatureEnvy
     def add(raw_bullet = "*", *raw_item)
 
       if raw_item.empty?
         bullet = ["*"]
         items = raw_bullet.in_array
       else
-        bullet = raw_bullet.in_array
+        bullet = [raw_bullet]
         items = raw_item.in_array
       end
 
@@ -48,24 +50,25 @@ module XfOOrth
     end
 
     #Render one bullet point.
+    #<br>Endemic Code Smells
+    #* :reek:DuplicateMethodCall :reek:TooManyStatements
     def render_bullet(key, item)
-      result = []
+      result, pass_one = [], true
       input  = item.split(' ').each
       temp   = key.ljust(len = @key_length)
-      pass_one = true
 
       loop do
         word = ' ' + input.next
 
         while len >= @page_width
           result << temp.slice!(0, @page_width - 1)
-          temp = (' ' * @key_length) + ' ' + temp
+          temp = blank_key + ' ' + temp
           len  = temp.length
         end
 
         if ((len += word.length) >= @page_width) && !pass_one
           result << temp
-          temp = (' ' * @key_length) + word
+          temp = blank_key + word
           len  = temp.length
         else
           temp << word
@@ -76,10 +79,16 @@ module XfOOrth
       result << temp
     end
 
+    #Generate a blank bullet key
+    def blank_key
+      ' ' * @key_length
+    end
+
   end
 
 end
 
+#Bullet point support in the Array class.
 class Array
   #Print out the array as bullet points.
   def puts_foorth_bullets(page_width)
@@ -100,6 +109,7 @@ class Array
   end
 end
 
+#Bullet point support in the Hash class.
 class Hash
   #Print out the hash as bullet points.
   def puts_foorth_bullets(page_width)

data/lib/fOOrth/library/formatting/columns.rb

@@ -28,6 +28,8 @@ module XfOOrth
     end
 
     #Render the page as an array of strings.
+    #<br>Endemic Code Smells
+    #* :reek:NestedIterators :reek:TooManyStatements
     def render
       results = []
       widths  = @page_data.map {|column| column.foorth_column_width}

data/lib/fOOrth/library/introspection/class.rb

@@ -30,17 +30,11 @@ class Class
     found = false
 
     if symbol
-      spec, info = map_foorth_shared_info(symbol)
-
-      if spec && !spec.has_tag?(:stub)
-        (results << ["", ""]).concat(info).concat(spec.get_info)
+      if scrape_method_info(results, *map_foorth_shared_info(symbol))
         found = true
       end
 
-      spec, info = map_foorth_exclusive_info(symbol)
-
-      if spec && !spec.has_tag?(:stub)
-        (results << ["", ""]).concat(info).concat(spec.get_info)
+      if scrape_method_info(results, *map_foorth_exclusive_info(symbol, "Class"))
         found = true
       end
 
@@ -54,18 +48,28 @@ class Class
   def get_info
     results = [["Lineage", lineage]]
 
-    if foorth_has_exclusive?
-      results.concat([["", ""], ["Methods", "Class"]])
+    get_exclusive_method_info(results, "Class")
+    get_shared_method_info(results)
 
-      foorth_exclusive.extract_method_names(:all).sort.each do |name|
-        symbol, info = XfOOrth::SymbolMap.map_info(name)
-        (results << ["", ""]).concat(info)
+    results
+  end
 
-        spec, info = map_foorth_exclusive_info(symbol, :shallow)
-        results.concat(info).concat(spec.get_info)
-      end
+  private
+
+  #Get method information
+  #<br>Endemic Code Smells
+  #* :reek:UtilityFunction
+  def scrape_method_info(results, spec, info)
+    if spec && !spec.has_tag?(:stub)
+      (results << ["", ""]).concat(info).concat(spec.get_info)
+      true
+    else
+      false
     end
+  end
 
+  #Get shared method info
+  def get_shared_method_info(results)
     unless foorth_shared.empty?
       results.concat([["", ""], ["Methods", "Shared"]])
 
@@ -77,8 +81,6 @@ class Class
         results.concat(info).concat(spec.get_info)
       end
     end
-
-    results
   end
 
 end

data/lib/fOOrth/library/introspection/context.rb

@@ -7,6 +7,8 @@ module XfOOrth
   class Context
 
     #Get introspection info.
+    #<br>Endemic Code Smells
+    #* :reek:FeatureEnvy :reek:TooManyStatements
     def get_info
       results = [["Level", depth]]
 
@@ -25,8 +27,7 @@ module XfOOrth
       end
 
       if (prev = self.previous)
-        results << ["", ""]
-        results.concat(prev.get_info)
+        results.concat([["", ""]]).concat(prev.get_info)
       end
 
       results

data/lib/fOOrth/library/introspection/object.rb

@@ -17,31 +17,15 @@ class Object
   #Get introspection info.
   def get_info
     results = [["Type", foorth_name]]
-
-    unless (vars = instance_variables).empty?
-      results.concat([["", ""], ["Data", "Instance"], ["", ""]])
-
-      vars.sort.each do |name|
-        var_name = XfOOrth::SymbolMap.unmap(name[1..-1].to_sym) || name
-        results << [var_name, instance_variable_get(name)]
-      end
-    end
-
-    if foorth_has_exclusive?
-      results.concat([["", ""], ["Methods", "Exclusive"]])
-
-      foorth_exclusive.extract_method_names(:all).sort.each do |name|
-        symbol, info = XfOOrth::SymbolMap.map_info(name)
-        results.concat([["", ""], ["Name", name], info])
-        spec, info = map_foorth_exclusive_info(symbol, :shallow)
-        results.concat(info).concat(spec.get_info)
-      end
-    end
+    get_instance_variable_info(results)
+    get_exclusive_method_info(results, "Exclusive")
 
     results
   end
 
   #Investigate a method of this object.
+  #<br>Endemic Code Smells
+  #* :reek:FeatureEnvy
   def foorth_method_info(name)
     symbol, results = XfOOrth::SymbolMap.map_info(name)
     found = false
@@ -65,5 +49,43 @@ class Object
     foorth_name + " < " + self.class.lineage
   end
 
+  private
+
+  #Get information about instance variables
+  def get_instance_variable_info(results)
+    names = instance_variables.map do |sym|
+      if (name = XfOOrth::SymbolMap.unmap(sym.to_s[1..-1].to_sym))
+        [name, sym]
+      end
+    end
+    .compact
+    .sort {|first, second| first[0] <=> second[0] }
+
+    unless names.empty?
+      results.concat([["", ""], ["Data", "Instance"], ["", ""]])
+
+      names.each do |name, sym|
+        results << [name, instance_variable_get(sym)]
+      end
+    end
+  end
+
+
+  #Get exclusive method info
+  def get_exclusive_method_info(results, designation)
+    if foorth_has_exclusive?
+      results.concat([["", ""], ["Methods", designation]])
+
+      foorth_exclusive.extract_method_names(:all).sort.each do |name|
+        symbol, info = XfOOrth::SymbolMap.map_info(name)
+        (results << ["", ""]).concat(info)
+
+        spec, info = map_foorth_exclusive_info(symbol, :shallow)
+        results.concat(info).concat(spec.get_info)
+      end
+    end
+  end
+
+
 
 end

data/lib/fOOrth/library/introspection/string.rb

@@ -4,6 +4,8 @@
 class String
 
   #Scan all classes for information about a method.
+  #<br>Endemic Code Smells
+  #* :reek:DuplicateMethodCall :reek:FeatureEnvy :reek:TooManyStatements
   def foorth_method_scan
     symbol, results = XfOOrth::SymbolMap.map_info(self)
     found = false
@@ -11,13 +13,27 @@ class String
     symbol && $FOORTH_GLOBALS.values
       .select {|entry| entry.has_tag?(:class)}
       .collect {|spec| spec.new_class}
-      .sort {|a,b| a.foorth_name <=> b.foorth_name}
+      .sort {|first, second| first.foorth_name <=> second.foorth_name}
       .each do |klass|
-        spec, info = klass.map_foorth_shared_info(symbol, :shallow)
-        found |= spec && (results << ["", ""]).concat(info).concat(spec.get_info)
+        shared_spec, shared_info = klass.map_foorth_shared_info(symbol, :shallow)
 
-        spec, info = klass.map_foorth_exclusive_info(symbol, :shallow)
-        found |= spec && (results << ["", ""]).concat(info).concat(spec.get_info)
+        if shared_spec
+          results
+            .concat([["", ""]])
+            .concat(shared_info)
+            .concat(shared_spec.get_info)
+        end
+
+        excl_spec, excl_info = klass.map_foorth_exclusive_info(symbol, :shallow)
+
+        if excl_spec
+          results
+            .concat([["", ""]])
+            .concat(excl_info)
+            .concat(excl_spec.get_info)
+        end
+
+        found ||= (shared_spec || excl_spec)
       end
 
     results << ["Scope", "not found in any class."] if symbol && !found

data/lib/fOOrth/library/introspection/vm.rb

@@ -8,6 +8,18 @@ module XfOOrth
 
     #Get introspection info.
     def get_info
+      results = get_basic_vm_info
+      get_instance_variable_info(results)
+      get_vm_thread_data_info(results)
+      get_exclusive_method_info(results, "Exclusive")
+
+      results
+    end
+
+    private
+
+    #Get the vm basic stuff first.
+    def get_basic_vm_info
       results = [["Name",    foorth_name],
                  ["Ruby",    self.to_s],
                  ["Stack",   @data_stack.inspect],
@@ -22,47 +34,23 @@ module XfOOrth
         results << ["Buffer", source.read_buffer.inspect]
       end
 
-      names = instance_variables.map do |sym|
-        if (name = XfOOrth::SymbolMap.unmap(sym.to_s[1..-1].to_sym))
-          [name, sym]
-        end
-      end
-
-      names.compact!
-
-      unless names.empty?
-        results.concat([["", ""], ["Data", "Instance"], ["", ""]])
-
-        names.each do |name, sym|
-          results << [name, instance_variable_get(sym)]
-        end
-      end
+      results
+    end
 
+    #Get the thread data info.
+    def get_vm_thread_data_info(results)
       unless @data.empty?
         results.concat([["", ""], ["Data", "Thread"], ["", ""]])
 
         @data
           .keys
           .map{|symbol| [SymbolMap.unmap(symbol), symbol]}
-          .sort{|a,b| a[0] <=> b[0]}
+          .sort{|first, second| first[0] <=> second[0]}
           .map{|name, symbol| [name, @data[symbol]]}
           .each do |name, value|
             results << [name, value.inspect]
           end
       end
-
-      if foorth_has_exclusive?
-        results.concat([["", ""], ["Methods", "Exclusive"]])
-
-        foorth_exclusive.extract_method_names(:all).sort.each do |name|
-          symbol, info = SymbolMap.map_info(name)
-          results.concat([["", ""], ["Name", name], info])
-          spec, info = map_foorth_exclusive_info(symbol, :shallow)
-          results.concat(info).concat(spec.get_info)
-        end
-      end
-
-      results
     end
 
   end

data/lib/fOOrth/library/stubs_library.rb

@@ -0,0 +1,49 @@
+# coding: utf-8
+
+#* library/stubs_library.rb - Support for method stubs in fOOrth.
+module XfOOrth
+  VirtualMachine.create_shared_method('stub:', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.class.create_shared_method(#{name}, VmSpec, [:stub]); ")
+  })
+
+  VirtualMachine.create_shared_method('.stub:', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.create_shared_stub(#{name}); ")
+  })
+
+  VirtualMachine.create_shared_method('.stub::', VmSpec, [:immediate],
+  &lambda {|vm|
+    name = parser.get_word().inspect
+    process_text("vm.create_exclusive_stub(#{name}); ")
+  })
+
+  # Stub support methods in the VirtualMachine class.
+  class VirtualMachine
+
+    #Create a shared method stub
+    def create_shared_stub(name)
+      unless (target = pop).is_a?(Class)
+        error "F13: The target of .stub: must be a class"
+      end
+
+      type = XfOOrth.name_to_type(name, self)
+      XfOOrth.validate_type(self, type, name)
+      target.create_shared_method(name, type, [:stub])
+      clear_cast
+    end
+
+    #Create an exclusive method stub
+    def create_exclusive_stub(name)
+      target = pop
+      type = XfOOrth.name_to_type(name, self)
+      XfOOrth.validate_type(self, type, name)
+      target.create_exclusive_method(name, type, [:stub])
+      clear_cast
+    end
+
+  end
+
+end

data/lib/fOOrth/monkey_patch/object.rb

@@ -38,6 +38,13 @@ class Object
     fail XfOOrth::XfOOrthError, msg, caller
   end
 
+  #A helper macro for method not understood errors.
+  def f20_error(recvr, name, symbol)
+    fail XfOOrth::XfOOrthError,
+         "F20: A #{recvr.foorth_name} does not understand #{name} (#{symbol.inspect}).",
+         caller
+  end
+
   #Argument coercion methods. These are stubs.
 
   #Coerce the argument to match my type. Stub

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.6"
+  VERSION = "0.6.7"
 end

data/reek.txt

@@ -1,59 +1 @@
-lib/fOOrth/compiler/context/map_name.rb -- 1 warning:
-  [31]:ControlParameter: XfOOrth::Context#do_map_name is controlled by argument allow_defaults [https://github.com/troessner/reek/blob/master/docs/Control-Parameter.md]
-lib/fOOrth/library/compile_library.rb -- 2 warnings:
-  [230]:ControlParameter: XfOOrth#self.name_to_type is controlled by argument cast_spec [https://github.com/troessner/reek/blob/master/docs/Control-Parameter.md]
-  [191]:TooManyStatements: XfOOrth#self.add_common_compiler_locals has approx 8 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/formatting/bullets.rb -- 10 warnings:
-  [20, 22]:DuplicateMethodCall: XfOOrth::BulletPoints#add calls raw_bullet.in_array 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 68]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls ' ' * @key_length 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [67, 76]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls result << temp 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [63, 69]:DuplicateMethodCall: XfOOrth::BulletPoints#render_bullet calls temp.length 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [26, 27]:FeatureEnvy: XfOOrth::BulletPoints#add refers to items more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [20, 22]:FeatureEnvy: XfOOrth::BulletPoints#add refers to raw_bullet more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [18, 23]:FeatureEnvy: XfOOrth::BulletPoints#add refers to raw_item more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [83]:IrresponsibleModule: Array has no descriptive comment [https://github.com/troessner/reek/blob/master/docs/Irresponsible-Module.md]
-  [103]:IrresponsibleModule: Hash has no descriptive comment [https://github.com/troessner/reek/blob/master/docs/Irresponsible-Module.md]
-  [51]:TooManyStatements: XfOOrth::BulletPoints#render_bullet has approx 15 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/formatting/columns.rb -- 2 warnings:
-  [36]:NestedIterators: XfOOrth::ColumnizedPage#render contains iterators nested 2 deep [https://github.com/troessner/reek/blob/master/docs/Nested-Iterators.md]
-  [31]:TooManyStatements: XfOOrth::ColumnizedPage#render has approx 8 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/class.rb -- 15 warnings:
-  [35, 42]:DuplicateMethodCall: Class#foorth_method_info calls !spec.has_tag?(:stub) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls (results << ["", ""]).concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [36, 43]:DuplicateMethodCall: Class#foorth_method_info calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [35, 42]:DuplicateMethodCall: Class#foorth_method_info calls spec.has_tag?(:stub) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 74]:DuplicateMethodCall: Class#get_info calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [61, 73]:DuplicateMethodCall: Class#get_info calls XfOOrth::SymbolMap.map_info(name) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [62, 74]:DuplicateMethodCall: Class#get_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls results.concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls results.concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [65, 77]:DuplicateMethodCall: Class#get_info calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [35, 36, 42, 43]:FeatureEnvy: Class#foorth_method_info refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [28]:TooManyStatements: Class#foorth_method_info has approx 10 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [54]:TooManyStatements: Class#get_info has approx 14 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/context.rb -- 3 warnings:
-  [14, 28]:DuplicateMethodCall: XfOOrth::Context#get_info calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [14, 17, 18, 19, 21, 22, 28, 29]:FeatureEnvy: XfOOrth::Context#get_info refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [10]:TooManyStatements: XfOOrth::Context#get_info has approx 11 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/object.rb -- 3 warnings:
-  [53, 57]:FeatureEnvy: Object#foorth_method_info refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [52, 53]:FeatureEnvy: Object#foorth_method_info refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [18]:TooManyStatements: Object#get_info has approx 12 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-lib/fOOrth/library/introspection/string.rb -- 10 warnings:
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls (results << ["", ""]).concat(info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls (results << ["", ""]).concat(info).concat(spec.get_info) 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls results << ["", ""] 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20]:DuplicateMethodCall: String#foorth_method_scan calls spec.get_info 2 times [https://github.com/troessner/reek/blob/master/docs/Duplicate-Method-Call.md]
-  [17, 20, 23]:FeatureEnvy: String#foorth_method_scan refers to found more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [17, 20, 23]:FeatureEnvy: String#foorth_method_scan refers to results more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [13, 17, 20]:FeatureEnvy: String#foorth_method_scan refers to spec more than self (maybe move it to another class?) [https://github.com/troessner/reek/blob/master/docs/Feature-Envy.md]
-  [7]:TooManyStatements: String#foorth_method_scan has approx 12 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [14]:UncommunicativeVariableName: String#foorth_method_scan has the variable name 'a' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-  [14]:UncommunicativeVariableName: String#foorth_method_scan has the variable name 'b' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-lib/fOOrth/library/introspection/vm.rb -- 3 warnings:
-  [10]:TooManyStatements: XfOOrth::VirtualMachine#get_info has approx 22 statements [https://github.com/troessner/reek/blob/master/docs/Too-Many-Statements.md]
-  [47]:UncommunicativeVariableName: XfOOrth::VirtualMachine#get_info has the variable name 'a' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-  [47]:UncommunicativeVariableName: XfOOrth::VirtualMachine#get_info has the variable name 'b' [https://github.com/troessner/reek/blob/master/docs/Uncommunicative-Variable-Name.md]
-49 total warnings
+0 total warnings

data/tests/compiler/context_tests.rb

@@ -108,7 +108,7 @@ class ContextTester < Minitest::Test
     name = 'b'
     sym = XfOOrth::SymbolMap.add_entry(name)
     context[sym] = XfOOrth::VmSpec.new(name, sym, [])
-    spec = context.map(name)
+    spec = context.map_with_defaults(name)
     assert(spec.is_a?(XfOOrth::VmSpec))
   end
 
@@ -119,7 +119,7 @@ class ContextTester < Minitest::Test
     name = '.c'
     sym = XfOOrth::SymbolMap.add_entry(name)
     mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
-    spec = context.map(name)
+    spec = context.map_with_defaults(name)
     assert(spec.is_a?(XfOOrth::TosSpec))
   end
 
@@ -130,7 +130,7 @@ class ContextTester < Minitest::Test
     name = '.d'
     sym = XfOOrth::SymbolMap.add_entry(name)
     mk[sym] = XfOOrth::TosSpec.new(name, sym, [])
-    spec = context.map(name)
+    spec = context.map_with_defaults(name)
     assert(spec.is_a?(XfOOrth::TosSpec))
   end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: fOOrth
 version: !ruby/object:Gem::Version
-  version: 0.6.6
+  version: 0.6.7
 platform: ruby
 authors:
 - Peter Camilleri
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-09-16 00:00:00.000000000 Z
+date: 2016-09-21 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -266,6 +266,7 @@ files:
 - lib/fOOrth/interpreter/do_loop.rb
 - lib/fOOrth/interpreter/squash.rb
 - lib/fOOrth/library.rb
+- lib/fOOrth/library/alias_library.rb
 - lib/fOOrth/library/array_library.rb
 - lib/fOOrth/library/bundle_library.rb
 - lib/fOOrth/library/class_library.rb
@@ -306,6 +307,7 @@ files:
 - lib/fOOrth/library/stdio_library.rb
 - lib/fOOrth/library/string_library.rb
 - lib/fOOrth/library/stubs.rb
+- lib/fOOrth/library/stubs_library.rb
 - lib/fOOrth/library/sync_bundle_library.rb
 - lib/fOOrth/library/thread_library.rb
 - lib/fOOrth/library/time_library.rb