gloo-lang 0.9.0 → 0.9.3

data/lib/gloo_lang/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 GlooLang
+  module Objs
+    class Alias < GlooLang::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 = GlooLang::Core::Pn.new( 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( obj, ref_name = nil )
+        return nil unless obj
+        return obj unless obj.type_display == GlooLang::Objs::Alias.typename
+        return obj if ref_name&.end_with?( ALIAS_REFERENCE )
+
+        ln = GlooLang::Core::Pn.new( obj.value )
+        return ln.resolve
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/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 GlooLang
+  module Objs
+    class Boolean < GlooLang::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 = GlooLang::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_lang/objs/basic/container.rb

@@ -0,0 +1,76 @@
+# 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.
+#
+require 'tty-table'
+require 'pastel'
+
+module GlooLang
+  module Objs
+    class Container < GlooLang::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 ] }
+        pastel = ::Pastel.new
+        table = TTY::Table.new rows: data
+        pad = [ 0, 1, 0, 1 ]
+        rendered = table.render( :ascii, indent: 2, padding: pad ) do |r|
+          r.border.style = :blue
+          r.filter = proc do |val, _row_index, col_index|
+            col_index.zero? ? pastel.blue( val ) : pastel.white( val )
+          end
+        end
+        puts "\n  #{rendered}\n\n"
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/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 GlooLang
+  module Objs
+    class Decimal < GlooLang::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 = GlooLang::Expr::Expression.new( @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_lang/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 GlooLang
+  module Objs
+    class Integer < GlooLang::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

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

@@ -0,0 +1,99 @@
+# 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 GlooLang
+  module Objs
+    class Script < GlooLang::Core::Obj
+
+      KEYWORD = 'script'.freeze
+      KEYWORD_SHORT = 'cmd'.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
+
+      #
+      # 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_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 multiline_value?
+        return true
+      end
+
+      #
+      # Get the number of lines in this script.
+      #
+      def line_count
+        return self.value.count if self.value_is_array?
+
+        if self.value_string?
+          return self.value.strip.empty? ? 0 : 1
+        end
+
+        return 0
+      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 = GlooLang::Exec::Script.new self
+        s.run
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,77 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A String.
+#
+
+module GlooLang
+  module Objs
+    class String < GlooLang::Core::Obj
+
+      KEYWORD = 'string'.freeze
+      KEYWORD_SHORT = 'str'.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[up down size]
+      end
+
+      #
+      # Get the size of the string.
+      #
+      def msg_size
+        s = value.size
+        $engine.heap.it.set_to s
+        return s
+      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

data/lib/gloo_lang/objs/basic/text.rb

@@ -0,0 +1,87 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A [multiline] block of text.
+#
+require 'tty-editor'
+require 'tty-pager'
+
+module GlooLang
+  module Objs
+    class Text < GlooLang::Core::Obj
+
+      KEYWORD = 'text'.freeze
+      KEYWORD_SHORT = 'txt'.freeze
+      DEFAULT_TMP_FILE = 'tmp.txt'.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
+
+      #
+      # Does this object support multi-line values?
+      # Initially only true for scripts.
+      #
+      def multiline_value?
+        return false
+      end
+
+      #
+      # Get the number of lines of text.
+      #
+      def line_count
+        return value.split( "\n" ).count
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[edit page]
+      end
+
+      #
+      # Show the contents of the file, paginated.
+      #
+      def msg_page
+        return unless value
+
+        # pager = TTY::Pager::SystemPager.new command: 'less -R'
+        pager = TTY::Pager.new
+        pager.page( value )
+      end
+
+      #
+      # Edit the text in the default editor.
+      #
+      def msg_edit
+        tmp = File.join( $settings.tmp_path, DEFAULT_TMP_FILE )
+        File.open( tmp, 'w' ) { |file| file.write( self.value ) }
+        TTY::Editor.open( tmp )
+        set_value File.read( tmp )
+      end
+
+    end
+  end
+end