gloo 0.3.0

data/lib/gloo/persist/file_loader.rb

@@ -0,0 +1,171 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class used to load a file and create objects in the heap.
+#
+
+module Gloo
+  module Persist
+    class FileLoader
+      
+      BEGIN_BLOCK = "BEGIN"
+      END_BLOCK = "END"
+      
+      attr_reader :obj
+      
+      # Set up a file storage for an object.
+      def initialize pn
+        @pn = pn
+        @tabs = 0
+        @obj = nil
+        @in_multiline = false
+        @exiting_multiline = false
+        @in_block = false
+        @block_value = ""
+				@debug = false
+      end
+            
+      # 
+      # Load the objects from the file.
+      # 
+      def load
+        unless File.exists?( @pn )
+          $log.error "File '#{@pn}' does not exist."
+          return
+        end
+        @tabs = 0
+        @parent_stack = []
+        @parent = $engine.heap.root
+        @parent_stack.push @parent
+        f = File.open( @pn, "r" ) 
+        f.each_line do |line|
+          next if skip_line? line
+          if line.strip.end_with? BEGIN_BLOCK
+            @in_block = true
+            @save_line = line
+          elsif @in_block
+            if line.strip == END_BLOCK
+              @in_block = false
+              determine_indent @save_line
+              process_line @save_line
+            else
+              @block_value << line
+            end
+          else
+            determine_indent line
+            process_line line
+          end
+        end
+      end
+      
+      # Is this line a comment or a blank line?
+      # If so we'll skip it.
+      def skip_line? line
+        line = line.strip
+        return true if line.empty?
+        return true if line[0] == "#"
+        return false
+      end
+      
+      # Determine the relative indent level for the line.
+      def determine_indent line
+        tabs = tab_count( line )
+        @indent = 0  # same level as prior line
+        if tabs > @tabs  # indent
+          # TODO:  What if indent is more than one more level?
+          @tabs = tabs
+          @indent = 1
+        elsif tabs < @tabs  # outdent
+          while tabs < @tabs
+            @tabs -= 1
+            @indent -= 1
+          end
+        end
+				puts "tabs: #{@tabs}, indent: #{@indent}, line: #{line}" if @debug
+      end
+
+      # Process one line and add objects.
+      def process_line line
+        # reset multiline unless we're actually indented
+        if @in_multiline && @multi_indent > @indent
+					puts "Done multiline mi: #{@multi_indent}, i: #{@indent}" if @debug
+          @in_multiline = false
+          @exiting_multiline = true
+        end
+        
+        if @in_multiline
+          @last.add_line line
+        else
+          process_obj_line line
+        end
+      end
+      
+      # Process one line and add objects.
+      def process_obj_line line
+        if @exiting_multiline
+          @exiting_multiline = false
+        elsif @indent > 0
+          @parent = @last
+          @parent_stack.push @parent
+        elsif @indent < 0
+          @indent.abs.times do
+            @parent_stack.pop
+            @parent = @parent_stack.last
+          end
+        end
+        
+        name, type, value = split_line( line )
+        unless @block_value == ""
+          value = @block_value
+          @block_value = ""
+        end
+        @last = $engine.factory.create( name, type, value, @parent )
+        if @last && @last.has_multiline_value?
+          @multi_indent = 0
+          @in_multiline = true
+					puts "*** Start multiline. multi_indent: #{@multi_indent}" if @debug
+        end
+        
+        @obj = @last if @obj.nil?
+      end
+      
+      # Get the number of leading tabs.
+      def tab_count line
+        i = 0
+        while line[i] == "\t"
+          i += 1
+        end
+        return i
+      end
+      
+      # Split the line into 3 parts.
+      def split_line line
+				puts "splitting line: #{line}" if @debug
+        line = line[ @tabs..-1]
+				line = line[0..-2] if line[-1] == "\n"
+        i = line.index( ' ' )
+        name = line[0..i-1]
+        
+        line = line[i+1..-1]
+        i = line.index( ' ' )
+        type = line[0..(i ? i-1 : -1)]
+        type = type[1..-1] if type[0] == '['
+        type = type[0..-2] if type[-1] == ']'
+        
+				if i
+	        value = line[i+1..-1]
+					if value[0..1] == ': '
+						value = value[2..-1] 
+					elsif value[0] == ':'
+	        	value = value[1..-1] 
+					end
+				else
+					value = nil
+				end
+				# puts "'#{value}'".yellow
+        return name, type, value
+      end
+      
+    end
+  end
+end

data/lib/gloo/persist/file_saver.rb

@@ -0,0 +1,43 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class used to save an object to a file..
+#
+
+module Gloo
+  module Persist
+    class FileSaver
+      
+      # Set up a file storage for an object.
+      def initialize pn, obj
+        @pn = pn
+        @obj = obj
+      end
+      
+      # 
+      # Save the object to the file.
+      # 
+      def save
+        data = get_obj( @obj )
+        File.write( @pn, data )
+      end
+      
+      # Get string of tabs for indentation.
+      def tabs indent=0
+        return "\t" * indent
+      end
+      
+      # Convert an object to textual representation.
+      # This is a recursive function.
+      def get_obj o, indent=0
+        t = tabs( indent )
+        str = "#{t}#{o.name} [#{o.type_display}] : #{o.value_display}\n"
+        o.children.each do |child|
+          str << get_obj( child, indent+1 )
+        end
+        return str
+      end
+
+    end
+  end
+end

data/lib/gloo/persist/file_storage.rb

@@ -0,0 +1,43 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class takes an object and writes it to a file.
+#
+
+module Gloo
+  module Persist
+    class FileStorage
+      
+      attr_reader :obj, :pn
+      
+      # Set up a file storage for an object.
+      def initialize pn, obj=nil
+        @obj = obj
+        @pn = pn
+      end
+      
+      # 
+      # Save the object to the file.
+      # 
+      def save
+        fs = FileSaver.new @pn, @obj
+        fs.save
+      end
+      
+      # 
+      # Load the object from the file.
+      # 
+      def load
+        fl = FileLoader.new @pn
+        fl.load
+        @obj = fl.obj
+				if @obj
+					$log.debug "Loaded object: #{@obj.name}"
+				else
+					$log.error "Error loading file at #{@pn}"
+				end
+      end
+    
+    end
+  end
+end

data/lib/gloo/persist/persist_man.rb

@@ -0,0 +1,90 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The persistance manager.
+# Keeps a collection of object-file mappings, and then
+# uses mappings to know how/where to save updated objects.
+#
+
+module Gloo
+  module Persist
+    class PersistMan
+      
+      attr_reader :maps
+      
+      # Contructor for the persistence manager.
+      def initialize
+        @maps = []
+      end
+      
+      # 
+      # Save one object to the file.
+      # 
+      def save name=""
+        if name.nil? || name.strip.empty?
+          save_all
+        else
+          save_one name
+        end
+      end
+      
+      # 
+      # Save one object to the file.
+      # 
+      def save_all
+        @maps.each do |o|
+          o.save
+        end
+      end
+      
+      # 
+      # Save one object to the file.
+      # 
+      def save_one name
+        ref = Gloo::Core::Pn.new name
+        obj = ref.resolve
+        pn = get_full_path_name name
+        fs = Gloo::Persist::FileStorage.new( pn, obj )
+        fs.save
+      end
+      
+      # 
+      # Load the object from the file.
+      # 
+      def load name
+        pn = get_full_path_name name
+        return unless pn
+				$log.debug "Load file at: #{pn}"
+        fs = Gloo::Persist::FileStorage.new( pn )
+        fs.load
+        @maps << fs
+        $engine.event_manager.on_load fs.obj
+        # show_maps
+      end
+      
+      # 
+      # Get the full path and name of the file.
+      # 
+      def get_full_path_name name
+        return nil if name.strip.empty?
+        path = $settings.project_path
+        full_name = "#{name}#{file_ext}"
+        return File.join( path, full_name )
+      end
+      
+      # Get the default file extention.
+      def file_ext
+        return ".gloo"
+      end
+      
+      # Print out all object - persistance mappings.
+      # This is a debugging tool.
+      def show_maps
+        @maps.each do |o|
+          puts " \t #{o.pn} \t #{o.obj.name}"
+        end
+      end
+    
+    end
+  end
+end

data/lib/gloo/utils/words.rb

@@ -0,0 +1,19 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Utilities related to words (strings).
+#
+
+require 'active_support/inflector'
+
+module Gloo
+  module Utils
+    class Words
+      
+      def self.pluralize( word )
+        return word.pluralize
+      end
+      
+    end
+  end
+end

data/lib/gloo/verbs/alert.rb

@@ -0,0 +1,42 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show a system notification.
+#
+
+module Gloo
+  module Verbs
+    class Alert < Gloo::Core::Verb
+      
+      KEYWORD = 'alert'
+      KEYWORD_SHORT = '!'
+
+      # 
+      # Run the verb.
+      # 
+      def run
+        if @tokens.token_count > 1
+          expr = Gloo::Expr::Expression.new( @tokens.params )
+          result = expr.evaluate
+          $engine.heap.it.set_to result
+          system( '/usr/bin/osascript -e "display notification \"' + result.to_s + '\" with title \"OutlineScript\" "' ) 
+        end
+      end
+                
+      # 
+      # Get the Verb's keyword.
+      # 
+      def self.keyword
+        return KEYWORD
+      end
+
+      # 
+      # Get the Verb's keyword shortcut.
+      # 
+      def self.keyword_shortcut
+        return KEYWORD_SHORT
+      end
+
+    end
+  end
+end

data/lib/gloo/verbs/context.rb

@@ -0,0 +1,52 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Set the current context pointer.
+# Alternatively if no value is provided, just show the context.
+#
+
+module Gloo
+  module Verbs
+    class Context < Gloo::Core::Verb
+      
+      KEYWORD = 'context'
+      KEYWORD_SHORT = '@'
+
+      # 
+      # Run the verb.
+      # 
+      def run
+        if @tokens.token_count == 1
+          show_context
+        else
+          path = @tokens.second
+          $engine.heap.context.set_to path
+          $engine.heap.it.set_to path
+          $log.debug "Context set to #{$engine.heap.context}"
+        end
+      end
+      
+      # 
+      # Show the current context.
+      # 
+      def show_context
+        $log.show "Context:  #{$engine.heap.context}"
+      end
+      
+      # 
+      # Get the Verb's keyword.
+      # 
+      def self.keyword
+        return KEYWORD
+      end
+
+      # 
+      # Get the Verb's keyword shortcut.
+      # 
+      def self.keyword_shortcut
+        return KEYWORD_SHORT
+      end
+
+    end
+  end
+end