gloo 1.4.2 → 2.0.0

data/lib/gloo/expr/l_boolean.rb

@@ -0,0 +1,36 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An Expression that can be evaluated.
+#
+
+module Gloo
+  module Expr
+    class LBoolean < Gloo::Core::Literal
+
+      #
+      # Is the given token a boolean?
+      #
+      def self.boolean?( token )
+        return Gloo::Objs::Boolean.boolean? token
+      end
+
+      #
+      # Set the value, converting to an boolean.
+      #
+      def set_value( value )
+        @value = Gloo::Objs::Boolean.coerse_to_bool value
+      end
+
+      #
+      # Get string representation
+      #
+      def to_s
+        return 'false' unless @value
+
+        return @value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/l_decimal.rb

@@ -0,0 +1,39 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A literal decimal value.
+#
+
+module Gloo
+  module Expr
+    class LDecimal < Gloo::Core::Literal
+
+      #
+      # Is the given token a decimal?
+      #
+      def self.decimal?( token )
+        return true if token.is_a? Numeric
+
+        s = token.strip
+        return s.to_f.to_s == s
+      end
+
+      #
+      # Set the value, converting to an integer.
+      #
+      def set_value( value )
+        value = value.to_s if value.is_a? Numeric
+
+        @value = value.to_f
+      end
+
+      #
+      # Get string representation
+      #
+      def to_s
+        return self.value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/l_integer.rb

@@ -0,0 +1,37 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An Expression that can be evaluated.
+#
+
+module Gloo
+  module Expr
+    class LInteger < Gloo::Core::Literal
+
+      #
+      # Is the given token an integer?
+      #
+      def self.integer?( token )
+        return true if token.is_a? Integer
+
+        s = token.strip
+        return s.to_i.to_s == s
+      end
+
+      #
+      # Set the value, converting to an integer.
+      #
+      def set_value( value )
+        @value = value.to_i
+      end
+
+      #
+      # Get string representation
+      #
+      def to_s
+        return self.value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/l_string.rb

@@ -0,0 +1,58 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An Expression that can be evaluated.
+#
+
+module Gloo
+  module Expr
+    class LString < Gloo::Core::Literal
+
+      #
+      # Set the value, triming opening and closing
+      # quotations if necessary.
+      #
+      def set_value( value )
+        @value = value
+        return unless value
+
+        @value = LString.strip_quotes( @value )
+      end
+
+      #
+      # Is the given token a string?
+      #
+      def self.string?( token )
+        return false unless token.is_a? String
+        return true if token.start_with?( '"' )
+        return true if token.start_with?( "'" )
+
+        return false
+      end
+
+      #
+      # Given a string with leading and trailing quotes,
+      # strip them out.
+      #
+      def self.strip_quotes( str )
+        if str.start_with?( '"' )
+          str = str[ 1..-1 ]
+          str = str[ 0..-2 ] if str.end_with?( '"' )
+          return str
+        elsif str.start_with?( "'" )
+          str = str[ 1..-1 ]
+          str = str[ 0..-2 ] if str.end_with?( "'" )
+          return str
+        end
+      end
+
+      #
+      # Get string representation
+      #
+      def to_s
+        return self.value
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/op_div.rb

@@ -0,0 +1,22 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Division operator.
+#
+
+module Gloo
+  module Expr
+    class OpDiv < Gloo::Core::Op
+
+      #
+      # Perform the operation and return the result.
+      #
+      def perform( left, right )
+        return left / right.to_i if left.is_a? Integer
+
+        return left / right.to_f if left.is_a? Numeric
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/op_minus.rb

@@ -0,0 +1,22 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Subtraction operator.
+#
+
+module Gloo
+  module Expr
+    class OpMinus < Gloo::Core::Op
+
+      #
+      # Perform the operation and return the result.
+      #
+      def perform( left, right )
+        return left - right.to_i if left.is_a? Integer
+
+        return left - right.to_f if left.is_a? Numeric
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/op_mult.rb

@@ -0,0 +1,22 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Multiplication operator.
+#
+
+module Gloo
+  module Expr
+    class OpMult < Gloo::Core::Op
+
+      #
+      # Perform the operation and return the result.
+      #
+      def perform( left, right )
+        return left * right.to_i if left.is_a? Integer
+
+        return left * right.to_f if left.is_a? Numeric
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/op_plus.rb

@@ -0,0 +1,24 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Addition operator.
+#
+
+module Gloo
+  module Expr
+    class OpPlus < Gloo::Core::Op
+
+      #
+      # Perform the operation and return the result.
+      #
+      def perform( left, right )
+        return left + right.to_s if left.is_a? String
+
+        return left + right.to_i if left.is_a? Integer
+
+        return left + right.to_f if left.is_a? Numeric
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/alias.rb

@@ -0,0 +1,78 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A String.
+#
+
+module Gloo
+  module Objs
+    class Alias < Gloo::Core::Obj
+
+      KEYWORD = 'alias'.freeze
+      KEYWORD_SHORT = 'ln'.freeze
+      ALIAS_REFERENCE = '*'.freeze
+
+      #
+      # The name of the object type.
+      #
+      def self.typename
+        return KEYWORD
+      end
+
+      #
+      # The short name of the object type.
+      #
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        self.value = new_value.to_s
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[resolve]
+      end
+
+      #
+      # Check to see if the referenced object exists.
+      #
+      def msg_resolve
+        pn = Gloo::Core::Pn.new( @engine, self.value )
+        s = pn.exists?
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      # ---------------------------------------------------------------------
+      #    Resolve
+      # ---------------------------------------------------------------------
+
+      #
+      # Is the object an alias  If so, then resolve it.
+      # The ref_name is the name used to refer to the object.
+      # If it ends with the * then we won't resolve the alias since
+      # we are trying to refer to the alias itself.
+      #
+      def self.resolve_alias( engine, obj, ref_name = nil )
+        return nil unless obj
+        return obj unless obj.type_display == Gloo::Objs::Alias.typename
+        return obj if ref_name&.end_with?( ALIAS_REFERENCE )
+
+        ln = Gloo::Core::Pn.new( engine, obj.value )
+        return ln.resolve
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/boolean.rb

@@ -0,0 +1,120 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object with an boolean value.
+#
+
+module Gloo
+  module Objs
+    class Boolean < Gloo::Core::Obj
+
+      KEYWORD = 'boolean'.freeze
+      KEYWORD_SHORT = 'bool'.freeze
+      TRUE = 'true'.freeze
+      FALSE = 'false'.freeze
+
+      #
+      # The name of the object type.
+      #
+      def self.typename
+        return KEYWORD
+      end
+
+      #
+      # The short name of the object type.
+      #
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        self.value = Gloo::Objs::Boolean.coerse_to_bool( new_value )
+      end
+
+      #
+      # Coerse the new value to a boolean value.
+      #
+      def self.coerse_to_bool( new_value )
+        return false if new_value.nil?
+
+        # I should be able to use this:
+        # if new_value.kind_of?( String )
+        # but it doesn't work.  I don't know why.
+        if new_value.class.name == 'String'
+          return true if new_value.strip.downcase == TRUE
+          return false if new_value.strip.downcase == FALSE
+          return true if new_value.strip.downcase == 't'
+          return false if new_value.strip.downcase == 'f'
+        elsif new_value.class.name == 'Integer'
+          return new_value.zero? ? false : true
+        end
+
+        return new_value == true
+      end
+
+      #
+      # Is the given token a boolean?
+      #
+      def self.boolean?( token )
+        return true if token == true
+        return true if token == false
+
+        if token.class.name == 'String'
+          return true if token.strip.downcase == TRUE
+          return true if token.strip.downcase == FALSE
+        end
+        return false
+      end
+
+      #
+      # Get the value for display purposes.
+      #
+      def value_display
+        return value ? TRUE : FALSE
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[not true false]
+      end
+
+      #
+      # Set the value to the opposite of what it is.
+      #
+      def msg_not
+        v = !value
+        set_value v
+        @engine.heap.it.set_to v
+        return v
+      end
+
+      #
+      # Set the value to true.
+      #
+      def msg_true
+        set_value true
+        @engine.heap.it.set_to true
+        return true
+      end
+
+      #
+      # Set the value to false.
+      #
+      def msg_false
+        set_value false
+        @engine.heap.it.set_to false
+        return false
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/container.rb

@@ -0,0 +1,65 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that contains a collection of other objects.
+#
+
+module Gloo
+  module Objs
+    class Container < Gloo::Core::Obj
+
+      KEYWORD = 'container'.freeze
+      KEYWORD_SHORT = 'can'.freeze
+
+      #
+      # The name of the object type.
+      #
+      def self.typename
+        return KEYWORD
+      end
+
+      #
+      # The short name of the object type.
+      #
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[count delete_children show_key_value_table]
+      end
+
+      #
+      # Count the number of children in the container.
+      #
+      def msg_count
+        i = child_count
+        @engine.heap.it.set_to i
+        return i
+      end
+
+      #
+      # Delete all children in the container.
+      #
+      def msg_delete_children
+        self.delete_children
+      end
+
+      #
+      # Show the given table data.
+      #
+      def msg_show_key_value_table
+        data = self.children.map { |o| [ o.name, o.value ] }
+        @engine.platform.show_table nil, data, title
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/decimal.rb

@@ -0,0 +1,76 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# An object with a decimal value.
+#
+
+module Gloo
+  module Objs
+    class Decimal < Gloo::Core::Obj
+
+      KEYWORD = 'decimal'.freeze
+      KEYWORD_SHORT = 'num'.freeze
+
+      #
+      # The name of the object type.
+      #
+      def self.typename
+        return KEYWORD
+      end
+
+      #
+      # The short name of the object type.
+      #
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        if new_value.nil?
+          self.value = 0.0
+          return
+        end
+
+        unless new_value.is_a? Numeric
+          self.value = @engine.converter.convert( new_value, 'Decimal', 0.0 )
+          return
+        end
+
+        self.value = new_value.to_f
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[round]
+      end
+
+      #
+      # Round the value to a whole value.
+      # If a parameter is included in the message,
+      # round to the precision given.
+      #
+      def msg_round
+        data = 0
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate.to_i
+        end
+
+        i = self.value.round( data )
+        set_value i
+        @engine.heap.it.set_to i
+        return i
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/integer.rb

@@ -0,0 +1,73 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object with an integer value.
+#
+
+module Gloo
+  module Objs
+    class Integer < Gloo::Core::Obj
+
+      KEYWORD = 'integer'.freeze
+      KEYWORD_SHORT = 'int'.freeze
+
+      #
+      # The name of the object type.
+      #
+      def self.typename
+        return KEYWORD
+      end
+
+      #
+      # The short name of the object type.
+      #
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        unless new_value.is_a? Numeric
+          self.value = @engine.converter.convert( new_value, 'Integer', 0 )
+          return
+        end
+
+        self.value = new_value.to_i
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[inc dec]
+      end
+
+      #
+      # Increment the integer
+      #
+      def msg_inc
+        i = value + 1
+        set_value i
+        @engine.heap.it.set_to i
+        return i
+      end
+
+      #
+      # Decrement the integer
+      #
+      def msg_dec
+        i = value - 1
+        set_value i
+        @engine.heap.it.set_to i
+        return i
+      end
+
+    end
+  end
+end