adams-visiona 1.0.0

data/spec/utilities/csv_spec.rb

@@ -0,0 +1,148 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+require "spec_helper"
+require "cosmos/utilities/csv"
+require "tempfile"
+
+module Cosmos
+  describe CSV do
+    before(:each) do
+      @lines = []
+      # CSV data can't have extra spaces in array values
+      @lines << "# This is a comment\n"
+      @lines << "test,1,2,3\n"
+      @lines << "bool1,true,false\n"
+      @lines << "bool2,false,true\n"
+      @lines << "int,10,11\n"
+      @lines << "float,1.1,2.2,3.3\n"
+      @lines << "string,test,text with space\n"
+
+      @test_file = File.open('cosmos_csv_spec.csv','w')
+      @test_file.write(@lines.join(''))
+      @test_file.close
+
+      @csv = CSV.new(@test_file.path)
+    end
+
+    after(:each) do
+      Dir["*cosmos_csv_spec*"].each do |filename|
+        File.delete(filename)
+      end
+    end
+
+    describe "initialize" do
+      it "loads the CSV data and overwrites existing key/values" do
+        tf = Tempfile.new("test.csv")
+        tf.puts "test,1,2,3\n"
+        tf.puts "other,10\n"
+        tf.puts "test,1.1,2.2,3.3\n"
+        tf.close
+        csv = CSV.new(tf.path)
+        # Expect 1.1, 2.2, 3.3 not 1, 2, 3 because the same key was used
+        expect(csv["test"]).to eql(%w(1.1 2.2 3.3))
+
+        tf.unlink
+      end
+    end
+
+    describe "access" do
+      it "allows hash style access" do
+        expect(@csv["test"]).to eq(%w(1 2 3))
+      end
+
+      it "returns all keys and ignores comments" do
+        expect(@csv.keys).to eq(%w(test bool1 bool2 int float string))
+      end
+
+      it "returns boolean values" do
+        expect(@csv.boolean("bool1")).to be true
+        expect(@csv.bool("bool2")).to be false
+
+        expect(@csv.boolean("bool1", 1)).to be false
+        expect(@csv.bool("bool2", 1)).to be true
+
+        expect(@csv.bool("bool1", (0..-1))).to eql([true, false])
+        expect(@csv.bool("bool2", (0..-1))).to eql([false, true])
+      end
+
+      it "returns integer values" do
+        expect(@csv.integer("int")).to be(10)
+        expect(@csv.int("int", 1)).to be(11)
+        expect(@csv.integer("int", (0..1))).to eql([10, 11])
+      end
+
+      it "returns float values" do
+        expect(@csv.float("float")).to eq(1.1)
+        expect(@csv.float("float", 1)).to eq(2.2)
+        expect(@csv.float("float", 2)).to eq(3.3)
+        expect(@csv.float("float", (0..1))).to eql([1.1, 2.2])
+        expect(@csv.float("float", (1..2))).to eql([2.2, 3.3])
+        expect(@csv.float("float", (0..-1))).to eql([1.1, 2.2, 3.3])
+      end
+
+      it "returns string values" do
+        expect(@csv.string("string")).to eq("test")
+        expect(@csv.str("string", 1)).to eq("text with space")
+        expect(@csv.str("string", (0..-1))).to eq(["test", "text with space"])
+      end
+
+      it "returns symbol values" do
+        expect(@csv.symbol("string")).to eq(:test)
+        # This works but please don't do this! Symbols with spaces is ugly!
+        expect(@csv.sym("string", 1)).to eq(:"text with space")
+        expect(@csv.sym("string", (0..-1))).to eq([:test, :"text with space"])
+      end
+    end
+
+    describe "create_archive" do
+      it "creates a default archive file" do
+        @csv.create_archive
+        expect(File.exist?(@csv.archive_file)).to be true
+        @csv.close_archive
+      end
+
+      it "automatically closes an existing open archive file" do
+        @csv.create_archive
+        first = @csv.archive_file
+        expect(File.basename(first)).to match(/.*#{File.basename(@test_file,'.csv')}.*/)
+        @csv.create_archive
+        second = @csv.archive_file
+        expect(File.basename(second)).to match(/.*#{File.basename(@test_file,'.csv')}.*/)
+        expect(first).to_not eql(second)
+      end
+
+      it "creates an archive file at an arbitrary path" do
+        if Kernel.is_windows?
+          Dir.mkdir("C:/temp") unless File.directory?("C:/temp")
+          @csv.create_archive("C:/temp")
+          expect(File.exist?(@csv.archive_file)).to be true
+          @csv.close_archive
+        end
+      end
+    end
+
+    describe "write_archive" do
+      it "writes to the archive file" do
+        @csv.create_archive
+        @csv.write_archive(%w(HI a b c))
+        @csv.close_archive
+        data = File.read @csv.archive_file
+        expect(data.include?("HI,a,b,c")).to be true
+      end
+
+      it "automatically opens an archive for writing" do
+        expect(@csv.archive_file).to eq('')
+        @csv.write_archive([])
+        expect(File.basename(@csv.archive_file)).to match(/.*#{File.basename(@test_file,'.csv')}.*/)
+      end
+    end
+  end
+end

data/spec/utilities/logger_spec.rb

@@ -0,0 +1,102 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+require "spec_helper"
+require "cosmos/utilities/logger"
+
+module Cosmos
+  describe Logger do
+    describe "initialize" do
+      it "initializes the level to UNKNOWN" do
+        expect(Logger.new.level).to eql Logger::UNKNOWN
+        Logger.level = Logger::UNKNOWN
+      end
+    end
+
+    describe "level" do
+      it "gets and set the level" do
+        Logger.level = Logger::DEBUG
+        expect(Logger.level).to eql Logger::DEBUG
+        Logger.level = Logger::UNKNOWN
+      end
+    end
+
+    def test_output(level, method, block = false)
+      stdout = StringIO.new('', 'r+')
+      $stdout = stdout
+      Logger.level = level
+      if block
+        Logger.public_send(method, "Message1") { "Block1" }
+        expect(stdout.string).not_to match("Message1")
+        expect(stdout.string).to match("#{method.upcase}: Block1")
+      else
+        Logger.public_send(method, "Message1")
+        expect(stdout.string).to match("#{method.upcase}: Message1")
+      end
+      Logger::instance.level = level + 1
+      if block
+        Logger.debug("Message2") { "Block2" }
+        expect(stdout.string).not_to match("Message2")
+        expect(stdout.string).not_to match("Block2")
+      else
+        Logger.public_send(method, "Message2")
+        expect(stdout.string).not_to match("Message2")
+      end
+      $stdout = STDOUT
+      Logger.level = Logger::UNKNOWN
+    end
+
+    describe "debug" do
+      it "only prints if level is DEBUG" do
+        test_output(Logger::DEBUG, 'debug')
+      end
+      it "takes a block" do
+        test_output(Logger::DEBUG, 'debug', true)
+      end
+    end
+
+    describe "info" do
+      it "only prints if level is INFO" do
+        test_output(Logger::INFO, 'info')
+      end
+      it "takes a block" do
+        test_output(Logger::INFO, 'info', true)
+      end
+    end
+
+    describe "warn" do
+      it "only prints if level is WARN" do
+        test_output(Logger::WARN, 'warn')
+      end
+      it "takes a block" do
+        test_output(Logger::WARN, 'warn', true)
+      end
+    end
+
+    describe "error" do
+      it "only prints if level is ERROR" do
+        test_output(Logger::ERROR, 'error')
+      end
+      it "takes a block" do
+        test_output(Logger::ERROR, 'error', true)
+      end
+    end
+
+    describe "fatal" do
+      it "only prints if level is FATAL" do
+        test_output(Logger::FATAL, 'fatal')
+      end
+      it "takes a block" do
+        test_output(Logger::FATAL, 'fatal', true)
+      end
+    end
+  end
+end
+

data/spec/utilities/message_log_spec.rb

@@ -0,0 +1,84 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+require "spec_helper"
+require "cosmos/utilities/message_log"
+
+module Cosmos
+  describe MessageLog do
+    describe "initialize" do
+      it "accepts a tool name and use the default LOG path" do
+        log = MessageLog.new('TEST')
+        log.start
+        log.stop
+        Cosmos.set_working_dir do
+          expect(File.exist?(log.filename)).to be true
+          expect(log.filename).to match('TEST')
+          expect(log.filename).to match('logs')
+          File.delete log.filename
+        end
+      end
+
+      it "accepts a tool name and path" do
+        log = MessageLog.new('TEST', File.expand_path(File.dirname(__FILE__)))
+        log.start
+        log.stop
+        expect(File.exist?(log.filename)).to be true
+        expect(log.filename).to match(File.expand_path(File.dirname(__FILE__)))
+        File.delete log.filename
+      end
+    end
+
+    describe "write" do
+      it "writes a message to the log" do
+        log = MessageLog.new('TEST')
+        log.write("Test message")
+        log.stop
+        Cosmos.set_working_dir do
+          expect(File.read(log.filename)).to eql "Test message"
+          File.delete log.filename
+        end
+      end
+    end
+
+    describe "start" do
+      it "creates a new message log" do
+        log = MessageLog.new('TEST')
+        log.start
+        filename = log.filename
+        # Allow a second to tick by so we have a unique filename
+        sleep(1.001)
+        log.start
+        expect(log.filename).not_to eql filename
+        log.stop
+        Cosmos.set_working_dir do
+          File.delete filename
+          File.delete log.filename
+        end
+      end
+    end
+
+    describe "stop" do
+      it "closes the message log and mark it read-only" do
+        log = MessageLog.new('TEST')
+        log.start
+        log.stop
+        if Kernel.is_windows? or Process.uid != 0
+          # writable? is always true for root, so skip this check
+          Cosmos.set_working_dir do
+            expect(File.stat(log.filename).writable?).to be false
+            File.delete log.filename
+          end
+        end
+      end
+    end
+  end
+end
+

data/spec/utilities/quaternion_spec.rb

@@ -0,0 +1,107 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+require "spec_helper"
+require "cosmos/utilities/quaternion"
+include Math
+
+module Cosmos
+  describe Quaternion do
+
+    describe "initialize" do
+      it "creates 0.0 elements" do
+        expect(Quaternion.new.data).to eql [0.0,0.0,0.0,0.0]
+      end
+
+      it "takes an initialization array" do
+        expect(Quaternion.new([1.1,2.2,3.3,4.4]).data).to eql [1.1,2.2,3.3,4.4]
+      end
+    end
+
+    describe "[] and []=" do
+      it "gets and set individual elements" do
+        q = Quaternion.new
+        q[0] = 5.5
+        expect(q[0]).to eql 5.5
+      end
+    end
+
+    describe "data and data=" do
+      it "gets and set all elements" do
+        q = Quaternion.new
+        q.data = [1.1,2.2,3.3,4.4]
+        expect(q.data).to eql [1.1,2.2,3.3,4.4]
+      end
+    end
+
+    describe "q0, q1, q2, q3 getter and setter" do
+      it "gets and set an element" do
+        q = Quaternion.new()
+        q.q0 = 1.1
+        q.q1 = 2.2
+        q.q2 = 3.3
+        q.q3 = 4.4
+        expect(q.q0).to eql 1.1
+        expect(q.q1).to eql 2.2
+        expect(q.q2).to eql 3.3
+        expect(q.q3).to eql 4.4
+      end
+    end
+
+    describe "*" do
+      it "multiplies quaternions" do
+        q1 = Quaternion.new([1,0,0,1])
+        q2 = Quaternion.new([0,1,0,1])
+        expect((q1 * q2).data).to eql [1,1,1,1]
+        q1 = Quaternion.new([0,1,0,1])
+        q2 = Quaternion.new([0,0,1,1])
+        expect((q1 * q2).data).to eql [1,1,1,1]
+        q1 = Quaternion.new([1,0,0,1])
+        q2 = Quaternion.new([0,0,1,1])
+        expect((q1 * q2).data).to eql [1,-1,1,1]
+      end
+    end
+
+    describe "inverse" do
+      it "returns the inverse" do
+        expect(Quaternion.new([1,2,3,4]).inverse.data).to eql [-1,-2,-3,4]
+      end
+    end
+
+    describe "vecrot" do
+      it "rotates the vector using the quaternion" do
+        expect(Quaternion.new([1,0,0,1]).vecrot([1,1,1])).to eql [2,2,-2]
+      end
+    end
+
+    describe "Quaternion.signnz" do
+      it "returns 1 for zero" do
+        expect(Quaternion.signnz(0)).to eql 1.0
+      end
+
+      it "returns 1 for positive" do
+        expect(Quaternion.signnz(0.5)).to eql 1.0
+      end
+
+      it "returns -1 for negative" do
+        expect(Quaternion.signnz(-123456789)).to eql -1.0
+      end
+    end
+
+    describe "Quaternion.qfromc" do
+      it "creates a quaternion from the matrix" do
+        q = Quaternion.qfromc(Matrix[[1,0,0],[0,1,0],[0,0,1]])
+        expect(q).to be_a Quaternion
+        expect(q.data).to eql [0.0,0.0,0.0,1.0]
+      end
+    end
+  end
+end
+

data/spec/utilities/ruby_lex_utils_spec.rb

@@ -0,0 +1,86 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+require "spec_helper"
+require "cosmos/utilities/ruby_lex_utils"
+
+module Cosmos
+  describe RubyLexUtils do
+    before(:each) do
+      @lex = RubyLexUtils.new
+    end
+
+    describe "contains_begin?" do
+      it "detects the begin keyword" do
+        expect(@lex.contains_begin?("  begin  ")).to be true
+        expect(@lex.contains_begin?("  begin # asdf  ")).to be true
+      end
+    end
+
+    describe "contains_keyword?" do
+      it "detects the ruby keywords" do
+        expect(@lex.contains_keyword?("if something")).to be true
+        expect(@lex.contains_keyword?("obj.method = something")).to be false
+      end
+    end
+
+    describe "contains_block_beginning?" do
+      it "detects block beginning keywords" do
+        expect(@lex.contains_block_beginning?("do")).to be true
+        expect(@lex.contains_block_beginning?("[].each {")).to be true
+        expect(@lex.contains_block_beginning?("begin")).to be true
+      end
+    end
+
+    describe "remove_comments" do
+      it "removes comments" do
+text = <<DOC
+# This is a comment
+blah = 5 # Inline comment
+# Another
+DOC
+        expect(@lex.remove_comments(text)).to eql "\nblah = 5 \n\n"
+      end
+    end
+
+    describe "each_lexed_segment" do
+      it "yields each segment" do
+text = <<DOC
+begin
+  x = 0
+end
+DOC
+        expect { |b| @lex.each_lexed_segment(text, &b) }.to yield_successive_args(
+          ["begin\n",false,0,1],  # can't instrument begin
+          ["  x = 0\n",true,0,2],
+          ["end\n",false,nil,3])  # can't instrument end
+      end
+
+      it "yields each segment" do
+text = <<DOC
+
+if x
+y
+else
+z
+end
+DOC
+        expect { |b| @lex.each_lexed_segment(text, &b) }.to yield_successive_args(
+          ["\n",true,nil,1],
+          ["if x\n",false,nil,2], # can't instrument if
+          ["y\n",true,nil,3],
+          ["else\n",false,nil,4], # can't instrument else
+          ["z\n",true,nil,5],
+          ["end\n",false,nil,6])  # can't instrument end
+      end
+    end
+  end
+end
+

data/tasks/gemfile_stats.rake

@@ -0,0 +1,103 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+desc 'Create a picture of gemfile downloads'
+task :gemfile_stats do
+  require 'gems'
+  require 'win32ole'
+
+  def get_latest_gem_data
+    gem_data = []
+    # This is the only API call to Rubygems
+    versions = Gems.versions 'cosmos'
+    versions.each do |version|
+      version_no = version['number']
+      next if version_no.split('.')[0] < '3' # anything before 3 is another gem
+      month = version['built_at'].split('-')[0..1].join('-')
+      downloads = version['downloads_count'].to_i
+      if gem_data.length > 0 && gem_data[-1][1] == version_no
+        gem_data[-1][2] += downloads
+      else
+        gem_data << [month, version_no, downloads]
+      end
+    end
+    gem_data
+  end
+
+  # This is useful for testing to prevent server round trips
+  # Simply comment out this line when working on the formatting below (after first running once)
+  File.open("gemdata.marshall", 'w') {|file| file.write(Marshal.dump(get_latest_gem_data())) }
+  gem_data = Marshal.load(File.read("gemdata.marshall"))
+
+  # Convert all the date text into Ruby Dates
+  gem_data.map! {|x| [Date.strptime(x[0], "%Y-%m"), x[1], x[2]]}
+  # Sort first by date and then version number
+  gem_data.sort_by! {|x| [x[0], x[1]] }
+
+  excel = WIN32OLE.new('excel.application')
+  excel.visible = true
+  book = excel.Workbooks.Add
+  sheet = book.Worksheets(1)
+
+  # Build up date labels
+  labels = {} # Must be hash with integer keys and label value
+  index = 0
+  start_date = gem_data[0][0]
+  end_date = gem_data[-1][0]
+  while (start_date <= end_date)
+    labels[index] = start_date.strftime("%m/%y")
+    index += 1
+    start_date = start_date >> 1
+  end
+
+  # Create an array of 0s the size of the labels which will hold the D/L counts
+  counts = Array.new(labels.length, 0)
+  dataset = {}
+  gem_data.each do |full_date, full_version, count|
+    # Build up just the major minor version: 1.0
+    version = full_version.split('.')[0..1].join('.')
+    date = full_date.strftime("%m/%y")
+    # Find the location in the count array to start adding counts
+    index = labels.key(date)
+    dataset[version] ||= counts.clone
+    # We fill in the count array starting at the first location
+    # and going until the end because this is a stacked area graph
+    # and all the counts are additive over time
+    (index...counts.length).each do |i|
+      dataset[version][i] += count
+    end
+  end
+
+  # Put dates in rows as there are more dates than there are releases
+  # Force the date column to be text
+  sheet.Columns(1).NumberFormat = "\@"
+  labels.values.each_with_index do |val, x|
+    sheet.Cells((x+2), 1).Value = val
+  end
+
+  col = 2
+  dataset.each do |version, data|
+    # Set the version (e.g. 3.0) in the top row
+    sheet.Cells(1, col).Value = version
+    # The download values by date appear below the version in the same column
+    data.each_with_index do |val, x|
+      sheet.Cells((x+2), col).Value = val
+    end
+    col += 1
+  end
+  # Excel column name lookup, 4 sets of alphabets gives us 104 versions to work with
+  letters = ('A'..'Z').to_a.concat(('AA'..'AZ').to_a).concat(('BA'..'BZ').to_a).concat(('CA'..'CZ').to_a)
+  chart = book.Charts.Add
+  chart.Name = "COSMOS Downloads"
+  chart.SetSourceData(sheet.Range("A1:#{letters[dataset.length]}#{labels.length+1}"))
+  chart.HasTitle = true
+  chart.ChartTitle.Characters.Text = "COSMOS Downloads"
+  chart.ChartType = 76 # AreaStacked
+end

data/tasks/manifest.rake

@@ -0,0 +1,22 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+desc 'Create a new manifest'
+task :manifest do
+  puts "Now calculating the file list from git. Please wait..."
+  fn = 'Manifest.txt'
+  # Ask git what all our files are
+  files = `git ls-tree --full-tree -r --name-only HEAD`.split($\)
+  # Remove all the directories
+  files.reject! {|f| File::Stat.new(f).directory? or f.include?("vendor") }
+  # Write out the manifest file
+  File.open(fn, 'w') {|fp| fp.puts files.sort}
+  puts "Successfully created #{fn}."
+end

data/tasks/spec.rake

@@ -0,0 +1,23 @@
+# encoding: ascii-8bit
+
+# Copyright 2014 Ball Aerospace & Technologies Corp.
+# All Rights Reserved.
+#
+# This program is free software; you can modify and/or redistribute it
+# under the terms of the GNU General Public License
+# as published by the Free Software Foundation; version 3 with
+# attribution addendums as found in the LICENSE.txt
+
+begin
+  require 'rspec/core/rake_task'
+
+  desc 'Run all specs with basic output'
+  RSpec::Core::RakeTask.new do |t|
+    t.pattern = ['spec/*_spec.rb']
+    t.rspec_opts = '-f d'
+  end
+
+rescue LoadError
+  puts "rspec not loaded. gem install rspec"
+end
+

data/test/benchmarks/binary_accessor_benchmark.rb

@@ -0,0 +1,14 @@
+require 'benchmark/ips'
+require 'cosmos'
+require 'cosmos/packets/binary_accessor'
+
+Benchmark.ips do |x|
+  @data = "\x80\x81\x82\x83\x84\x85\x86\x87\x00\x09\x0A\x0B\x0C\x0D\x0E\x0F"
+  @baseline_data = "\x80\x81\x82\x83\x84\x85\x86\x87\x00\x09\x0A\x0B\x0C\x0D\x0E\x0F"
+  x.report('read') do
+    Cosmos::BinaryAccessor.read(-16, 16, :BLOCK, @data, :BIG_ENDIAN)
+  end
+  x.report('write') do
+    Cosmos::BinaryAccessor.write(@baseline_data[14..15], -16, 16, :STRING, @data, :BIG_ENDIAN, :ERROR)
+  end
+end