cobplexity 0.1.0

data/bin/cobplexity

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+
+require 'cobplexity/runner'

data/lib/cobplexity.rb

@@ -0,0 +1,4 @@
+require 'cobplexity/paragraph'
+require 'cobplexity/line'
+require 'cobplexity/module'
+require 'cobplexity/analyzer'

data/lib/cobplexity/analyzer.rb

@@ -0,0 +1,52 @@
+module Cobplexity
+
+  class Analyzer
+    attr_accessor :files, :threshold, :group
+    def initialize
+      @files = []
+      @threshold = 0
+      @group = "APPLICATION"
+      @metrics = []
+    end
+    def analyze
+      @files.each do |file|
+        Dir.glob file do |filename|
+          @filename = filename
+          analyze_file
+        end
+      end
+      @metrics
+    end
+    def analyze_file
+      File.open @filename do |file|
+        program = Module.new file.readlines.join
+        program.paragraphs.each do |paragraph|
+          analyze_paragraph paragraph
+        end
+      end
+    end
+    def analyze_paragraph paragraph
+      metric = Metric.new 
+      metric.size = paragraph.lines
+      metric.color = @threshold == 0 ? paragraph.complexity : @threshold - paragraph.complexity
+      metric.categories << @group
+      metric.categories << @filename
+      metric.categories << paragraph.name
+      @metrics << metric
+    end
+  end
+
+  class Metric
+    attr_accessor :size, :color, :categories
+    def initialize
+      @categories = []
+    end
+    def to_s
+      categories = @categories.collect do |category|
+        category.delete '",'
+      end
+      "#{@size},#{@color},#{categories.join ','}"
+    end
+  end
+
+end

data/lib/cobplexity/line.rb

@@ -0,0 +1,44 @@
+module Cobplexity
+
+  class Line
+    def initialize line
+      @line = line.strip
+    end
+    def code?
+      !self.blank? && !self.comment? && !self.continuation? && !self.paragraph? && !self.procedure_division?
+    end
+    def blank?
+      self.statement.empty?
+    end
+    def comment?
+      self.control == '*'
+    end
+    def continuation?
+      self.control == '-'
+    end
+    def branches
+      self.statement.split.count do |item|
+        ['IF', 'ELSE', 'WHEN', 'WHILE', 'UNTIL'].include? item.upcase
+      end
+    end
+    def paragraph?
+      !self.statement.match(/COPY /i) && !self.area_a.strip.empty?
+    end
+    def paragraph_name
+      self.statement.strip.delete '.'
+    end
+    def area_a
+      self.statement[0..3]
+    end
+    def control
+      @line.length > 6 ? @line[6] : ' '
+    end
+    def statement
+      @line.length > 7 ? @line[7..@line.length] : ''
+    end
+    def procedure_division?
+      @line.match /PROCEDURE DIVISION/i
+    end
+  end
+
+end

data/lib/cobplexity/module.rb

@@ -0,0 +1,40 @@
+module Cobplexity
+
+  class Module
+    attr_reader :code, :lines, :paragraphs
+    def initialize code=''
+      self.code = code
+    end
+    def code= code
+      @code = code
+      analyze_code
+    end
+    def analyze_code
+      reset_data
+      @code.lines.each do |line|
+        @line = Line.new line
+        if @line.procedure_division?
+          reset_data
+        else
+          count_module
+          count_paragraph
+        end
+      end
+    end
+    def reset_data
+      @lines = 0
+      @paragraphs = []
+    end
+    def count_module
+      @lines += 1 if @line.code? 
+    end
+    def count_paragraph
+      @paragraphs << Paragraph.new(@line.paragraph_name) if @line.paragraph?
+      if @line.code? && !@paragraphs.last.nil?
+        @paragraphs.last.lines += 1
+        @paragraphs.last.complexity += @line.branches
+      end
+    end
+  end
+
+end

data/lib/cobplexity/paragraph.rb

@@ -0,0 +1,13 @@
+module Cobplexity
+
+  class Paragraph
+    attr_reader :name
+    attr_accessor :lines, :complexity
+    def initialize name
+      @name = name
+      @lines = 0
+      @complexity = 1
+    end
+  end
+
+end

data/lib/cobplexity/runner.rb

@@ -0,0 +1,21 @@
+require 'optparse'
+require 'cobplexity'
+
+analyzer = Cobplexity::Analyzer.new
+
+OptionParser.new do |opts|
+  opts.banner = "Usage: cobplexity [options]"
+  opts.on("-g", "--group NAME", String, "Top level categroy for select code, defaults to 'APPLICATION'") do |group|
+    analyzer.group = group
+  end
+  opts.on("-t", "--threshold NUM", String, "Sets the threshold for code complexity. Complexity greater than threshold will be negative. If not specified, complexity is always a positive number") do |threshold|
+    analyzer.threshold = threshold.to_i
+  end
+  opts.on("-f", "--files a,b,c", Array, "Required: List of files to analyze, accepts wildcards") do |files|
+    analyzer.files.concat files
+  end
+end.parse!
+
+analyzer.analyze.each do |metric|
+  puts metric.to_s
+end

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification
+name: cobplexity
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Guy Royse
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-12-01 00:00:00.000000000 -06:00
+default_executable: 
+dependencies: []
+description: Generates CSV files that can be consumed by Microsoft Treemapper from
+  COBOL source modules
+email:
+- guy@guyroyse.com
+executables:
+- cobplexity
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/cobplexity/runner.rb
+- lib/cobplexity/analyzer.rb
+- lib/cobplexity/line.rb
+- lib/cobplexity/module.rb
+- lib/cobplexity/paragraph.rb
+- lib/cobplexity.rb
+- bin/cobplexity
+has_rdoc: true
+homepage: http://github.com/guyroyse/cobplexity
+licenses:
+- http://creativecommons.org/licenses/by-sa/3.0/
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: 1.3.6
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.6.2
+signing_key: 
+specification_version: 3
+summary: Generates CSV files of static code analysis for COBOL modules
+test_files: []