gloo 0.3.0

data/lib/gloo/expr/op_minus.rb

@@ -0,0 +1,20 @@
+# 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
+        if left.is_a? Integer
+          return left - right.to_i
+        end
+      end
+      
+    end
+  end
+end

data/lib/gloo/expr/op_mult.rb

@@ -0,0 +1,20 @@
+# 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
+        if left.is_a? Integer
+          return left * right.to_i
+        end
+      end
+      
+    end
+  end
+end

data/lib/gloo/expr/op_plus.rb

@@ -0,0 +1,22 @@
+# 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
+        if left.is_a? String
+          return left + right.to_s
+        elsif left.is_a? Integer
+          return left + right.to_i
+        end
+      end
+      
+    end
+  end
+end

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

@@ -0,0 +1,113 @@
+# 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'
+      KEYWORD_SHORT = 'bool'
+      TRUE = 'true'
+      FALSE = 'false'
+
+      # 
+      # 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
+        if new_value.nil?
+          return false
+        elsif 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 false if new_value == 0
+          return true
+        else
+          return new_value == true
+        end
+      end
+      
+      # 
+      # Is the given token a boolean?
+      # 
+      def self.is_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 + [ "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,50 @@
+# 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'
+      KEYWORD_SHORT = 'can'
+
+      # 
+      # 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 + [ "count" ]
+      end
+      
+      # Count the number of children in the container.
+      def msg_count
+        i = child_count
+        $engine.heap.it.set_to i
+        return i
+      end
+
+
+    end
+  end
+end

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

@@ -0,0 +1,65 @@
+# 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'
+      KEYWORD_SHORT = 'int'
+
+      # 
+      # 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_i
+      end
+      
+      
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      # 
+      # Get a list of message names that this object receives.
+      # 
+      def self.messages
+        return super + [ "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

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

@@ -0,0 +1,101 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A Script.
+# A set of commands to be run.
+#
+
+module Gloo
+  module Objs
+    class Script < Gloo::Core::Obj
+      
+      KEYWORD = 'script'
+      KEYWORD_SHORT = 'cmd'
+
+      # 
+      # 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
+      
+      # 
+      # Set the value as an array.
+      # 
+      def set_array_value arr
+        self.value = arr
+      end
+      
+      # 
+      # Add a line (cmd) to the script.
+      # 
+      def add_line line
+        if self.value_is_string?
+          first = self.value
+          self.set_array_value []
+          self.value << first unless first.empty?
+        elsif self.value_is_blank?
+          self.set_array_value []
+        end
+        self.value << line.strip
+      end
+
+      # 
+      # Does this object support multi-line values?
+      # Initially only true for scripts.
+      # 
+      def has_multiline_value?
+        return true
+      end
+      
+      # 
+      # Get the number of lines in this script.
+      # 
+      def line_count
+        if self.value_is_array?
+          return self.value.count
+        elsif self.value_is_string?
+          return 0 if ( self.value.strip.empty? )
+          return 1
+        else
+          return 0
+        end
+      end
+
+      
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      # 
+      # Get a list of message names that this object receives.
+      # 
+      def self.messages
+        return super + [ "run" ]
+      end
+
+      # 
+      # Send the object the unload message.
+      # 
+      def msg_run
+        s = Gloo::Core::Script.new self
+        s.run
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,65 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A String.
+#
+
+module Gloo
+  module Objs
+    class String < Gloo::Core::Obj
+      
+      KEYWORD = 'string'
+      KEYWORD_SHORT = 'str'
+
+      # 
+      # 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 + [ "up", "down" ]
+      end
+      
+      # Convert string to upper case
+      def msg_up
+        s = value.upcase
+        set_value s
+        $engine.heap.it.set_to s
+        return s
+      end
+
+      # Convert string to lower case
+      def msg_down
+        s = value.downcase
+        set_value s
+        $engine.heap.it.set_to s
+        return s
+      end
+
+    end
+  end
+end