fortran_dependencies 1.2.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 44dbac005646f5c1f69e22b41a8bc406019ccbce
+  data.tar.gz: 6126656a72b400d1b4ea4aed981e15d5eab56e2d
+SHA512:
+  metadata.gz: 962ec87f99cb91c0f385f6696a90441c0cc7eb89a56d425dd1658a05c5a567a6592fd39cab26026e9bd1b62806692e87f575994745fb2a9907e1d6dbbf90a82a
+  data.tar.gz: 7628050a04d0c3300ee7b3e0d2cb9c128b031d221c7f1f7149e1715fca8238ec9ce6856c915aeed6ed2ff7f9aa5a7b844403c96b7030d7bb9515c6f2df6363e3

data/History.txt

@@ -0,0 +1,32 @@
+== 1.1.0 / 2016-01-15
+
+* 1 minor enhancement
+  * parse included (inlined) files for module use statments
+
+== 1.1.0 / 2009-10-28
+
+* 1 minor enhancement
+  * allow two modules to be defined per source file
+
+== 1.0.3 / 2007-11-16
+
+* 1 bug fix
+  * forgot release notes.
+
+== 1.0.2 / 2007-11-16
+
+* 1 bug fix
+  * repaired gem spec author field (thanks to Eric Hodel).
+
+== 1.0.1 / 2007-08-20
+
+* 1 minor enhancement
+  * stripped './' from source file names to appease windoze.
+
+* 1 minor enhancement
+  * stripped './' from source file names to appease windoze.
+
+== 1.0.0 / 2007-07-26
+
+* 1 major enhancement
+  * Birthday!

data/License.txt

@@ -0,0 +1,263 @@
+== LICENSE
+
+ NASA OPEN SOURCE AGREEMENT VERSION 1.3
+
+ THIS OPEN SOURCE AGREEMENT ("AGREEMENT") DEFINES THE RIGHTS OF USE,
+ REPRODUCTION, DISTRIBUTION, MODIFICATION AND REDISTRIBUTION OF CERTAIN
+ COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT
+ AS REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT
+ AGENCY").  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT
+ AGENCY, IS AN INTENDED THIRD-PARTY BENEFICIARY OF ALL SUBSEQUENT
+ DISTRIBUTIONS OR REDISTRIBUTIONS OF THE SUBJECT SOFTWARE.  ANYONE WHO
+ USES, REPRODUCES, DISTRIBUTES, MODIFIES OR REDISTRIBUTES THE SUBJECT
+ SOFTWARE, AS DEFINED HEREIN, OR ANY PART THEREOF, IS, BY THAT ACTION,
+ ACCEPTING IN FULL THE RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN
+ THIS AGREEMENT.
+
+ Government Agency: NASA Langley Research Center
+ Government Agency Original Software Designation: LAR-17081-1
+ Government Agency Original Software Title: fUnit
+ User Registration Requested: please see clause 3.F.
+ Government Agency Point of Contact: please see clause 5.F.
+
+ 1. DEFINITIONS
+
+ A. "Contributor" means Government Agency, as the developer of the
+ Original Software, and any entity that makes a Modification.
+
+ B. "Covered Patents" mean patent claims licensable by a Contributor
+ that are necessarily infringed by the use or sale of its Modification
+ alone or when combined with the Subject Software.
+
+ C. "Display" means the showing of a copy of the Subject Software,
+ either directly or by means of an image, or any other device.
+
+ D. "Distribution" means conveyance or transfer of the Subject
+ Software, regardless of means, to another.
+
+ E. "Larger Work" means computer software that combines Subject
+ Software, or portions thereof, with software separate from the Subject
+ Software that is not governed by the terms of this Agreement.
+
+ F. "Modification" means any alteration of, including addition to or
+ deletion from, the substance or structure of either the Original
+ Software or Subject Software, and includes derivative works, as that
+ term is defined in the Copyright Statute, 17 USC 101.  However, the
+ act of including Subject Software as part of a Larger Work does not in
+ and of itself constitute a Modification.
+
+ G. "Original Software" means the computer software first released
+ under this Agreement by Government Agency with Government Agency
+ designation NASA and entitled fUnit, including source code,
+ object code and accompanying documentation, if any.
+
+ H. "Recipient" means anyone who acquires the Subject Software under
+ this Agreement, including all Contributors.
+
+ I. "Redistribution" means Distribution of the Subject Software after a
+ Modification has been made.
+
+ J. "Reproduction" means the making of a counterpart, image or copy of
+ the Subject Software.
+
+ K. "Sale" means the exchange of the Subject Software for money or
+ equivalent value.
+
+ L. "Subject Software" means the Original Software, Modifications, or
+ any respective parts thereof.
+
+ M. "Use" means the application or employment of the Subject Software
+ for any purpose.
+
+ 2. GRANT OF RIGHTS
+
+ A. Under Non-Patent Rights: Subject to the terms and conditions of
+ this Agreement, each Contributor, with respect to its own contribution
+ to the Subject Software, hereby grants to each Recipient a
+ non-exclusive, world-wide, royalty-free license to engage in the
+ following activities pertaining to the Subject Software:
+
+  1. Use
+  2. Distribution
+  3. Reproduction
+  4. Modification
+  5. Redistribution
+  6. Display
+
+ B. Under Patent Rights: Subject to the terms and conditions of this
+ Agreement, each Contributor, with respect to its own contribution to
+ the Subject Software, hereby grants to each Recipient under Covered
+ Patents a non-exclusive, world-wide, royalty-free license to engage in
+ the following activities pertaining to the Subject Software:
+
+  1. Use
+  2. Distribution
+  3. Reproduction
+  4. Sale
+  5. Offer for Sale
+
+ C. The rights granted under Paragraph B. also apply to the combination
+ of a Contributor's Modification and the Subject Software if, at the
+ time the Modification is added by the Contributor, the addition of
+ such Modification causes the combination to be covered by the Covered
+ Patents.  It does not apply to any other combinations that include a
+ Modification.
+
+ D. The rights granted in Paragraphs A. and B. allow the Recipient to
+ sublicense those same rights.  Such sublicense must be under the same
+ terms and conditions of this Agreement.
+
+ 3. OBLIGATIONS OF RECIPIENT
+
+ A. Distribution or Redistribution of the Subject Software must be made
+ under this Agreement except for additions covered under paragraph 3H.
+
+ 1. Whenever a Recipient distributes or redistributes the Subject
+     Software, a copy of this Agreement must be included with each copy
+     of the Subject Software; and
+
+ 2. If Recipient distributes or redistributes the Subject Software in
+     any form other than source code, Recipient must also make the
+     source code freely available, and must provide with each copy of
+     the Subject Software information on how to obtain the source code
+     in a reasonable manner on or through a medium customarily used for
+     software exchange.
+
+ B. Each Recipient must ensure that the following copyright notice
+ appears prominently in the Subject Software:
+
+  Copyright 2007 United States Government as represented by
+  NASA Langley Research Center. No copyright is claimed in
+  the United States under Title 17, U.S. Code. All Other Rights
+  Reserved.
+
+ C. Each Contributor must characterize its alteration of the Subject
+ Software as a Modification and must identify itself as the originator
+ of its Modification in a manner that reasonably allows subsequent
+ Recipients to identify the originator of the Modification.  In
+ fulfillment of these requirements, Contributor must include a file
+ (e.g., a change log file) that describes the alterations made and the
+ date of the alterations, identifies Contributor as originator of the
+ alterations, and consents to characterization of the alterations as a
+ Modification, for example, by including a statement that the
+ Modification is derived, directly or indirectly, from Original
+ Software provided by Government Agency. Once consent is granted, it
+ may not thereafter be revoked.
+
+ D. A Contributor may add its own copyright notice to the Subject
+ Software.  Once a copyright notice has been added to the Subject
+ Software, a Recipient may not remove it without the express permission
+ of the Contributor who added the notice.
+
+ E. A Recipient may not make any representation in the Subject Software
+ or in any promotional, advertising or other material that may be
+ construed as an endorsement by Government Agency or by any prior
+ Recipient of any product or service provided by Recipient, or that may
+ seek to obtain commercial advantage by the fact of Government Agency's
+ or a prior Recipient's participation in this Agreement.
+
+ F. In an effort to track usage and maintain accurate records of the
+ Subject Software, each Recipient, upon receipt of the Subject Software,
+ is requested to provide Government Agency, by e-mail to the Government
+ Agency Point of Contact listed in clause 5.F., the following information:
+ name, institution (if applicable), postal code, and country.
+ Recipient's name and personal information shall be used for statistical
+ purposes only. Once a Recipient makes a Modification available, it is
+ requested that the Recipient inform Government Agency, by e-mail to the
+ Government Agency Point of Contact listed in clause 5.F., how to
+ access the Modification.
+
+ G. Each Contributor represents that that its Modification is believed
+ to be Contributor's original creation and does not violate any
+ existing agreements, regulations, statutes or rules, and further that
+ Contributor has sufficient rights to grant the rights conveyed by this
+ Agreement.
+
+ H. A Recipient may choose to offer, and to charge a fee for, warranty,
+ support, indemnity and/or liability obligations to one or more other
+ Recipients of the Subject Software.  A Recipient may do so, however,
+ only on its own behalf and not on behalf of Government Agency or any
+ other Recipient.  Such a Recipient must make it absolutely clear that
+ any such warranty, support, indemnity and/or liability obligation is
+ offered by that Recipient alone.  Further, such Recipient agrees to
+ indemnify Government Agency and every other Recipient for any
+ liability incurred by them as a result of warranty, support, indemnity
+ and/or liability offered by such Recipient.
+
+ I. A Recipient may create a Larger Work by combining Subject Software
+ with separate software not governed by the terms of this agreement and
+ distribute the Larger Work as a single product. In such case, the
+ Recipient must make sure Subject Software, or portions thereof,
+ included in the Larger Work is subject to this Agreement.
+
+ J. Notwithstanding any provisions contained herein, Recipient is
+ hereby put on notice that export of any goods or technical data from
+ the United States may require some form of export license from the
+ U.S. Government.  Failure to obtain necessary export licenses may
+ result in criminal liability under U.S. laws.  Government Agency
+ neither represents that a license shall not be required nor that, if
+ required, it shall be issued.  Nothing granted herein provides any
+ such export license.
+
+ 4. DISCLAIMER OF WARRANTIES AND LIABILITIES; WAIVER AND INDEMNIFICATION
+
+ A. No Warranty: THE SUBJECT SOFTWARE IS PROVIDED "AS IS" WITHOUT ANY
+ WARRANTY OF ANY KIND, EITHER EXPRESSED, IMPLIED, OR STATUTORY,
+ INCLUDING, BUT NOT LIMITED TO, ANY WARRANTY THAT THE SUBJECT SOFTWARE
+ WILL CONFORM TO SPECIFICATIONS, ANY IMPLIED WARRANTIES OF
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR FREEDOM FROM
+ INFRINGEMENT, ANY WARRANTY THAT THE SUBJECT SOFTWARE WILL BE ERROR
+ FREE, OR ANY WARRANTY THAT DOCUMENTATION, IF PROVIDED, WILL CONFORM TO
+ THE SUBJECT SOFTWARE. THIS AGREEMENT DOES NOT, IN ANY MANNER,
+ CONSTITUTE AN ENDORSEMENT BY GOVERNMENT AGENCY OR ANY PRIOR RECIPIENT
+ OF ANY RESULTS, RESULTING DESIGNS, HARDWARE, SOFTWARE PRODUCTS OR ANY
+ OTHER APPLICATIONS RESULTING FROM USE OF THE SUBJECT SOFTWARE.
+ FURTHER, GOVERNMENT AGENCY DISCLAIMS ALL WARRANTIES AND LIABILITIES
+ REGARDING THIRD-PARTY SOFTWARE, IF PRESENT IN THE ORIGINAL SOFTWARE,
+ AND DISTRIBUTES IT "AS IS."
+
+ B. Waiver and Indemnity: RECIPIENT AGREES TO WAIVE ANY AND ALL CLAIMS
+ AGAINST THE UNITED STATES GOVERNMENT, ITS CONTRACTORS AND
+ SUBCONTRACTORS, AS WELL AS ANY PRIOR RECIPIENT.  IF RECIPIENT'S USE OF
+ THE SUBJECT SOFTWARE RESULTS IN ANY LIABILITIES, DEMANDS, DAMAGES,
+ EXPENSES OR LOSSES ARISING FROM SUCH USE, INCLUDING ANY DAMAGES FROM
+ PRODUCTS BASED ON, OR RESULTING FROM, RECIPIENT'S USE OF THE SUBJECT
+ SOFTWARE, RECIPIENT SHALL INDEMNIFY AND HOLD HARMLESS THE UNITED
+ STATES GOVERNMENT, ITS CONTRACTORS AND SUBCONTRACTORS, AS WELL AS ANY
+ PRIOR RECIPIENT, TO THE EXTENT PERMITTED BY LAW.  RECIPIENT'S SOLE
+ REMEDY FOR ANY SUCH MATTER SHALL BE THE IMMEDIATE, UNILATERAL
+ TERMINATION OF THIS AGREEMENT.
+
+ 5. GENERAL TERMS
+
+ A. Termination: This Agreement and the rights granted hereunder will
+ terminate automatically if a Recipient fails to comply with these
+ terms and conditions, and fails to cure such noncompliance within
+ thirty (30) days of becoming aware of such noncompliance.  Upon
+ termination, a Recipient agrees to immediately cease use and
+ distribution of the Subject Software.  All sublicenses to the Subject
+ Software properly granted by the breaching Recipient shall survive any
+ such termination of this Agreement.
+
+ B. Severability: If any provision of this Agreement is invalid or
+ unenforceable under applicable law, it shall not affect the validity
+ or enforceability of the remainder of the terms of this Agreement.
+
+ C. Applicable Law: This Agreement shall be subject to United States
+ federal law only for all purposes, including, but not limited to,
+ determining the validity of this Agreement, the meaning of its
+ provisions and the rights, obligations and remedies of the parties.
+
+ D. Entire Understanding: This Agreement constitutes the entire
+ understanding and agreement of the parties relating to release of the
+ Subject Software and may not be superseded, modified or amended except
+ by further written agreement duly executed by the parties.
+
+ E. Binding Authority: By accepting and using the Subject Software
+ under this Agreement, a Recipient affirms its authority to bind the
+ Recipient to all terms and conditions of this Agreement and that that
+ Recipient hereby agrees to all terms and conditions herein.
+
+ F. Point of Contact: Any Recipient contact with Government Agency is
+ to be directed to the designated representative as follows:
+ Bil.Kleb@NASA.gov

data/Manifest.txt

@@ -0,0 +1,7 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/fortran.rb
+test/test_fortran.rb

data/README.txt

@@ -0,0 +1,31 @@
+fortran
+
+* http://nasarb.rubyforge.org/fortran
+* http://rubyforge.org/projects/nasarb
+* mailto:Bil.Kleb@nasa.gov
+
+== DESCRIPTION:
+
+Fortran 90/95/2003 utilities.
+
+Currently, only provides Fortran 90/95/2003 dependencies.
+
+== SYNOPSIS:
+
+  require 'rubygems'
+  require 'fortran'
+
+  Fortran::Dependencies.new( 'main.f90' ).dependencies
+
+== REQUIREMENTS:
+
+* Ruby with Rubygems
+
+== INSTALL:
+
+* <tt>sudo gem install fortran</tt>
+
+== LICENSE 
+
+Released under the NASA Open Source Agreement -- see License.txt[link:files/License_txt.html] for details.
+

data/lib/fortran_dependencies.rb

@@ -0,0 +1,173 @@
+module Fortran
+  
+  ##
+  # This version of Fortran library
+
+  VERSION = '1.2.0'
+
+  ##
+  # Find Fortran dependencies
+
+  class Dependencies
+ 
+    OPTIONS = { :search_paths => [ '.', '../lib' ],
+                :ignore_files => %r{ },
+                :ignore_modules => %r{ },
+                :ignore_symlinks => true }
+    
+    USE_MODULE_REGEX = /^\s*use\s+(\w+)/i
+    MODULE_DEF_REGEX = /^\s*module\s+(\w+)/i
+    MODULE_INCLUDE_REGEX = /\s*include\s+('|")(\w+\.(f|F)90)('|")/i
+ 
+    FILE_EXTENSION = /\.f90$/i
+  
+    attr_reader :file_dependencies, :source_files
+
+    def initialize( config=OPTIONS )
+      @config = config
+      OPTIONS.each{ |opt,default| @config[opt] = default unless @config.has_key? opt }
+      @parsed, @file_dependencies, @source_files = [], {}, []
+      @hash = build_hash_of_modules_in_files
+      @included_files = build_hash_of_non_module_files
+      self
+    end
+
+    def modules_used_in( file )
+      modules = IO.readlines( file ).map do |line|
+        $1.downcase if line.match USE_MODULE_REGEX
+      end.uniq.compact
+    end
+
+    def modules_defined_in( file )
+      modules = IO.readlines( file ).map do |line| 
+        $1.downcase if line.match MODULE_DEF_REGEX
+      end.uniq.compact
+    end
+
+    def files_included_in( file )
+      files = IO.readlines( file ).map do |line|
+        $2 if line.match MODULE_INCLUDE_REGEX
+      end.uniq.compact
+    end
+
+    def build_dictionary_of_modules( files )
+      file_containing_module = {}
+      files.each do |file|
+        modules_defined_in( file ).each{ |mod| file_containing_module[mod]=file }
+      end
+      file_containing_module
+    end
+
+    def find_fortran_files
+      source = @config[:search_paths].map{ |path| Dir[path+"/*.[fF]90"] }
+      source.flatten!.uniq!
+      source.delete_if{ |file| File.lstat(file).symlink? } if @config[:ignore_symlinks]
+      source.delete_if{ |file| file.match @config[:ignore_files] }
+      source.map!{ |file| file.sub(/^\.\//,'') }# strip leading ./
+    end
+
+    def build_hash_of_non_module_files
+      files = find_fortran_files
+      included_files = {}
+      files.each do |file|
+        unless file_is_module?(file)
+          included_files[File.basename(file)] = file
+        end
+      end
+      included_files
+    end
+
+    def file_is_module?(file)
+      IO.readlines( file ).map do |line|
+        return true if line.match MODULE_DEF_REGEX
+      end
+      return false
+    end
+
+    def build_hash_of_modules_in_files
+      build_dictionary_of_modules find_fortran_files
+    end
+
+    def modules_in_included_files( file )
+      modules = files_included_in( file ).map do |included_file|
+        modules_used_in(@included_files[included_file])
+      end.flatten.uniq.compact
+    end
+
+    def makefile_dependency_line( source )
+      real_source = source.sub(/PHYSICS_DUMMY/,'PHYSICS_MODULES')# FIXME: What's this?!
+      source_no_path = File.basename source
+      @source_files.push source_no_path.gsub(%r|^.*/|,'')
+      output = ''
+      if (File.expand_path(source) != File.expand_path(source_no_path))
+        output += source_no_path+ ": " + real_source + "\n"
+        output += "\tln -sf "+real_source+" .\n"
+      end
+      output += source.gsub(FILE_EXTENSION, ".o").gsub(%r|^.*/|,'' ) +
+                ": " + source.gsub(%r|^.*/|,"" ) 
+      modules_used_in( source ).each do |use|
+        unless @hash[use]
+          unless use.match @config[:ignore_modules]
+            $stderr.puts 'Warning: unable to locate module #{use} used in #{source}.'
+            $stderr.puts '         set :search_paths or :ignore_module_regex options.'
+          end
+          next
+        end
+        output = output + " \\\n " +
+                 @hash[use].gsub(FILE_EXTENSION, ".o").gsub(%r|^.*/|,'' )
+      end
+      output+"\n"
+    end
+
+    def dependencies( start )
+      modules = modules_used_in( start )
+      @parsed = @parsed || [start]
+      new_source_files = modules.collect{ |mod| @hash[mod] }.compact
+      makefile_dependency_line(start) +
+      new_source_files.collect do |file|
+        next if @parsed.include?(file)
+        @parsed.push file
+        dependencies file
+      end.to_s
+    end
+
+    def source_file_dependencies( head_f90 )
+      modules_head_uses = modules_used_in( head_f90 )
+      modules_head_uses += modules_in_included_files( head_f90 )
+      required_f90s = modules_head_uses.map{ |mod| @hash[mod] }.compact
+      required_f90s.delete_if{ |f| f == head_f90 }
+      @file_dependencies[head_f90] = required_f90s
+      required_f90s.each do |required_f90|
+        next if @parsed.include?(required_f90)
+        source_file_dependencies( required_f90 )
+      end
+      @parsed.push head_f90
+    end
+
+    def required_source_files( head_f90 )
+      @parsed.clear
+      source_file_dependencies( head_f90 )
+      sources = []
+      until @file_dependencies.empty? do
+        no_dependents_pair = @file_dependencies.detect{ |h,d| d == [] }
+        no_dependents = no_dependents_pair.first
+        sources.push no_dependents
+        @file_dependencies.delete(no_dependents){ |el| "#{el} not found" }
+        @file_dependencies.each_value{ |deps| deps.delete(no_dependents) }
+      end
+      sources
+    end
+
+  end # class
+
+end # module
+
+#--
+# Copyright 2007 United States Government as represented by
+# NASA Langley Research Center. No copyright is claimed in
+# the United States under Title 17, U.S. Code. All Other Rights
+# Reserved.
+#
+# This file is governed by the NASA Open Source Agreement.
+# See License.txt for details.
+#++

data/lib/lakos/analyze_dependencies.rb

@@ -0,0 +1,323 @@
+#!/usr/bin/env ruby
+#
+# For a given directory, this routine will find the
+# dependency levels of resident *90 files and various
+# code complexify measures per Lakos' /Large Scale
+# C++ Software Design/ book.
+#
+# Usage:
+#
+# To do an entire directory,
+#
+#  HEFSS.rps/FUN3D_90
+#  ../Ruby/CASE_tools/analyze_dependencies.rb
+#
+# If a main.*90 is found, the results will be sorted by level
+# and a HTML summary page will be produced to add navigation.
+#
+# To do a set of files, pass their names as arguments,
+#
+#  ../Ruby/CASE_tools/analyze_dependencies.rb main.F90 project.f90 [..]
+#
+# Results, consising of text and Graphviz dot files,
+# are deposited in a subdirectory according to DROP_DIR
+# set below.
+
+SEARCH_PATH = %w[ ../LibF90 ../PHYSICS_MODULES ../PHYSICS_DEPS . ]
+DROP_DIR = 'Lakos'
+
+require 'fortran'
+
+##
+# add a deep clone method to completely duplicate hashes
+
+class Object
+  def deep_clone; Marshal::load(Marshal.dump(self)); end
+end
+
+##
+# add a cleaning method for FUN3D file names
+
+class String
+  def fun3d_clean
+    File.basename(self).sub(/_module/i,'').sub(/\.f90$/i,'')
+  end
+end
+
+class DependencyAnalyzer
+
+  attr_reader :use_deps, :tc_deps, :dd_deps, :lvl_deps,
+              :levels, :components, :ccd, :acd, :nccd
+
+  def initialize( head, search_path=SEARCH_PATH )
+    @head = head
+    @levels    = Hash.new{ |hash,key| hash[key]=Array.new }
+    @tc_deps   = Hash.new{ |hash,key| hash[key]=Array.new }
+    @use_deps  = Hash.new
+    shorten_dependency_file_names(find_file_dependencies(head,search_path))
+    find_levels_of_dependencies(@use_deps.deep_clone)
+    find_transitive_closure_graph
+    compute_stats
+    find_direct_dependencies_graph
+    find_level_dependencies_graph
+  end
+
+  def compute_stats
+    @components = 0;  @levels.each_value{ |v| @components += v.size }
+    @ccd = 0; @tc_deps.each_value{ |dependents| @ccd += dependents.size + 1 }
+    @acd = @ccd/@components.to_f
+    ccd_binary_tree = (@components+1)*(Math::log(@components+1)/Math::log(2)-1)+1
+    @nccd = @ccd / ccd_binary_tree
+  end
+
+  def find_file_dependencies( head, search_path )
+    depend = Fortran::Dependencies.new( :search_path => search_path )
+    depend.source_file_dependencies(head)
+    depend.file_dependencies
+  end
+
+  def shorten_dependency_file_names(deps)
+    deps.each_pair do |file,dependents|
+      @use_deps[file] = dependents
+    end
+  end
+
+  def find_transitive_closure_graph
+    # turn the hash into a sorted array to assure bottom-to-top ordering
+    @levels.sort.each do |pair|
+      components = pair.last
+      components.each do |component|
+        @tc_deps[component] = @use_deps[component].clone
+        @use_deps[component].each do |dependent|
+          @tc_deps[component].push @tc_deps[dependent].clone
+        end
+        @tc_deps[component].flatten!
+        @tc_deps[component].uniq!
+      end
+    end
+  end
+
+  def find_direct_dependencies_graph
+    @dd_deps = Hash.new
+    @tc_deps.each{|k,v| @dd_deps[k] = @tc_deps[k].clone}
+    # turn the hash into a sorted array to assure bottom-to-top ordering
+    @levels.sort.each do |pair|
+      components = pair.last
+      components.each do |component|
+        @dd_deps[component].each do |dependent|
+          @dd_deps[component] -= @dd_deps[dependent]
+        end
+      end
+    end
+  end
+
+  def level_of(component)
+    @levels.
+    select{ |level,components| components.include?(component) }.
+    flatten.first
+  end
+
+  # only the dependencies "holding up" the levels
+  def find_level_dependencies_graph
+    long_distance_dependents = Array.new
+    @lvl_deps =  @dd_deps.deep_clone
+    @levels.sort.reverse.each do |pair|
+      level, components = pair
+      components.each do |component|
+        long_distance_dependents.clear
+        @dd_deps[component].each do |dependent|
+          long_distance_dependents << dependent if level_of(dependent) < level-1
+        end
+        @lvl_deps[component] -= long_distance_dependents
+      end
+    end
+  end
+
+  def find_levels_of_dependencies(deps)
+    level = 1
+    until deps.empty? do
+      deps.each{ |file,dependents| @levels[level] << file if dependents.empty? }
+      deps.delete_if{ |file,dependents| @levels[level].include?(file) }
+      deps.each do |file,dependents|
+        dependents.delete_if{ |dependent| @levels[level].include?(dependent) }
+      end
+      level += 1
+    end
+    @levels
+  end
+
+  def summary
+    result = Array.new
+    result << "COMPONENT:\n"
+    result << " #@head"
+    result << "\nSUMMARY:\n"
+    result << " Components: #@components"
+    result << "     Levels: #{@levels.size}"
+    result << "        CCD: #@ccd [Cumulative Component Dependency]"
+    result << "        ACD: #{sprintf('%.1f',@acd)} (average CD)"
+    result << "       NCCD: #{sprintf('%.2f',@nccd)} (normalized CCD -- desired: 0.85 to 1.10)"
+    result << "\nLEVELS:\n"
+    @levels.sort.each do |pair|
+      result << "#{pair.first}:".rjust(3)
+      pair.last.each{ |component| result << "   #{component.sub(/\.*\//,'')}" }
+    end
+    result.join "\n"
+  end
+
+  def graph( deps )
+    graph = ''
+    graph << "digraph G {\n"
+    graph << " ratio=0.67;\n"
+    graph << " label=\"#{File.basename(Dir.pwd)}/#{@head}\\n"
+    graph << "#{Time.now}\\n"
+    graph << "Lakos Levels/Components/CCD/ACD/NCCD\\n"
+    graph << "#{@levels.size}/#@components/#@ccd/#{sprintf('%.1f',@acd)}/#{sprintf('%.2f',@nccd)}\\n"
+    graph << "\";\n"
+    #  graph << " nodesep=0.3;\n"
+    graph << " fontname=GillSans; fontsize=24;\n"
+    graph << " node [fontname=GillSans,fontsize=24,shape=plaintext];\n"
+    graph << " edge [arrowhead=none];\n"
+    graph << "{ node [shape=box];"
+    (@levels.size).downto(2){ |lvl| graph << " #{lvl}->#{lvl-1};" }
+    graph << " };\n"
+    @levels.each do |level,components|
+      graph << "{ rank = same; #{level}; \"#{components.map{|c| c.fun3d_clean}.join('"; "')}\"; }\n"
+    end
+    deps.each do |file,dependents|
+      dependents.each do |dependent|
+        graph << "\"#{file.fun3d_clean}\" -> \"#{dependent.fun3d_clean}\";\n"
+      end
+    end
+    graph << "}"
+    graph
+  end
+
+end # class
+
+if $0 == __FILE__ then
+
+  require 'fileutils'
+
+  dot_capable = system("which dot") and system("which epstopdf")
+
+  Dir.mkdir DROP_DIR unless File.exist? DROP_DIR
+
+  if ARGV.empty?
+    directory = true
+    files = Dir["*90"]
+  else
+    directory = false
+    files = ARGV.map{|a| a.dup}
+  end
+
+  files.delete_if{ |f| !File.exists? f }
+
+  # sort the file list by level if the big cahuna is present
+  if directory
+    if files.include?('main.F90') then
+      da = DependencyAnalyzer.new( 'main.F90' )
+    elsif files.include?('main.f90') then
+      da = DependencyAnalyzer.new( 'main.f90' )
+    end
+    files.clear
+    da.levels.sort.reverse.each{|pair| files.push pair.last }
+    files.flatten!
+  end
+
+  File.open(File.join(DROP_DIR,'index.html'),'w') do |index|
+
+    pwd = File.basename(Dir.pwd)
+
+    index.puts "<html>"
+    index.puts " <head><title>#{pwd}</title></head>"
+    index.puts "<body>"
+    index.puts "<h1>#{pwd}</h1>"
+    index.puts "Data generated by #$0 at #{Time.now}."
+    index.puts "<table cellspacing=10>"
+    index.puts " <tr>"
+    index.puts "  <th colspan=5>Statistics</th>"
+    index.puts "  <th></th>"
+    index.puts "  <th colspan=2>Dependency Plots</th>"
+    index.puts " </tr>"
+    index.puts " <tr>"
+    index.puts "  <th>Level</th>"
+    index.puts "  <th>#Cs</th>"
+    index.puts "  <th>CCD</th>"
+    index.puts "  <th>ACD</th>"
+    index.puts "  <th>NCCD</th>"
+    index.puts "  <th></th>"
+    index.puts "  <th>Use</th>"
+    index.puts "  <th>Level</th>"
+    index.puts "  <th align=left>Source</th>"
+    index.puts " </tr>"
+
+    files.each_with_index do |file,number|
+
+      $stderr.puts "Analyzing #{number+1} of #{files.size}: #{file}"
+      $stderr.flush
+
+      da = DependencyAnalyzer.new( file )
+
+      FileUtils.copy( file, DROP_DIR )
+
+      rootname = File.join(DROP_DIR,File.basename(file).fun3d_clean.sub(/\.f90$/i,''))
+
+      File.open(rootname+'.txt',    'w'){ |f| f.puts da.summary }
+      File.open(rootname+'_use.dot','w'){ |f| f.puts da.graph(da.use_deps) }
+      File.open(rootname+'_lvl.dot','w'){ |f| f.puts da.graph(da.lvl_deps) }
+
+      if dot_capable
+        puts command = " dot -Tps #{rootname}_lvl.dot -o #{rootname}_lvl.ps" +
+        " && epstopdf #{rootname}_lvl.ps"
+        system command
+        puts command = " dot -Tps #{rootname}_use.dot -o #{rootname}_use.ps" +
+        " && epstopdf #{rootname}_use.ps"
+        system command
+      end
+
+      root = File.basename(rootname)
+
+      index.puts " <tr>"
+      index.puts "  <td align=right>#{da.levels.size}</td>"
+      index.puts "  <td align=right>#{da.components}</td>"
+      index.puts "  <td align=right>#{da.ccd}</td>"
+      index.puts "  <td align=right>#{sprintf('%.1f',da.acd)}</td>"
+      index.puts "  <td align=right>#{sprintf('%.2f',da.nccd)}</td>"
+      index.puts "  <td><a href='#{root}.txt'>(details)</a></td>"
+      index.puts "  <td><a href='#{root}_use.dot'>dot</a>|" +
+      "<a href='#{root}_use.ps'>PS</a>|" +
+      "<a href='#{root}_use.pdf'>PDF</a></td>"
+      index.puts "  <td><a href='#{root}_lvl.dot'>dot</a>|" +
+      "<a href='#{root}_lvl.ps'>PS</a>|" +
+      "<a href='#{root}_lvl.pdf'>PDF</a></td>"
+      index.puts "  <td><a href='#{File.basename(file)}'>#{File.basename(file)}</a></td>"
+      index.puts " </tr>"
+
+    end
+
+    if files.size > 20
+      index.puts " <tr>"
+      index.puts "  <th>Level</th>"
+      index.puts "  <th>#Cs</th>"
+      index.puts "  <th>CCD</th>"
+      index.puts "  <th>ACD</th>"
+      index.puts "  <th>NCCD</th>"
+      index.puts "  <th></th>"
+      index.puts "  <th>Use</th>"
+      index.puts "  <th>Level</th>"
+      index.puts "  <th align=left>Source</th>"
+      index.puts " </tr>"
+      index.puts " <tr>"
+      index.puts "  <th colspan=5>Statistics</th>"
+      index.puts "  <th></th>"
+      index.puts "  <th colspan=2>Dependency Plots</th>"
+      index.puts " </tr>"
+    end
+
+    index.puts "</table>"
+    index.puts "</body>"
+    index.puts "</html>"
+
+  end
+
+end

data/lib/lakos/mk_lakos_plots.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+
+CODES = %w[ Adapt Design Adjoint FUN3D_90 GetGrad GridMove Party PartyMPI ]
+
+require 'fileutils'
+
+FileUtils.rm_rf 'Lakos' if File.exist? 'Lakos'
+Dir.mkdir 'Lakos'
+
+File.open('Lakos/index.html','w') do |index|
+
+ index.puts "<h1> Lakos-Style Physical Dependency Analysis</h1>"
+ index.puts "<p>This snapshot brought to you by #$0.</p>"
+ index.puts "<p>Started: #{Time.now}.</p>"
+ index.puts "<ul>"
+
+ CODES.each do |code|
+  puts "#{code}"
+  puts "=" * code.length
+  Dir.chdir code
+  if system '../Ruby/CASE_tools/analyze_dependencies.rb'# add main.?90
+   FileUtils.mv 'Lakos', "../Lakos/#{code}", {:force=>true}
+   index.puts "<li><a href='#{code}/index.html'>#{code}</a></li>"
+  else
+   $stderr.puts "Failed to make dependency plots for #{code}."
+  end
+  Dir.chdir '..'
+  puts
+ end
+
+ index.puts "</ul>"
+ index.puts "<p>Completed: #{Time.now}.</p>"
+
+end
+
+FileUtils.rm_rf '/var/www/html/HEFSS/Lakos' if File.exist? '/var/www/html/HEFSS/Lakos'
+FileUtils.cp_r 'Lakos', '/var/www/html/HEFSS'

data/test/lakos/test_analyze_dependencies.rb

@@ -0,0 +1,35 @@
+require 'test/unit'
+require 'lakos/analyze_dependencies'
+require 'fileutils'
+
+class TestAnalyzeDependencies < Test::Unit::TestCase
+
+ def setup
+  FileUtils.rm_rf 'AD_fixtures'
+  Dir.mkdir 'AD_fixtures'
+  Dir.chdir 'AD_fixtures'
+  File.open('m.f90','w'){|f| f.puts "program m\nuse a\nuse b\nuse d\nuse f" }
+  File.open('a.f90','w'){|f| f.puts "module a" }
+  File.open('b.f90','w'){|f| f.puts "module b\nuse c\nuse d\nuse e" }
+  File.open('c.f90','w'){|f| f.puts "module c" }
+  File.open('d.f90','w'){|f| f.puts "module d" }
+  File.open('e.f90','w'){|f| f.puts "module e" }
+  File.open('f.f90','w'){|f| f.puts "module f\nuse c\nuse e" }
+  @da = DependencyAnalyzer.new( 'm.f90', ['.'] )
+  Dir.chdir '..'
+  File.open('main.dot','w'){ |f| f.puts @da.graph(@da.dd_deps) }
+ end
+
+ def test_statistics
+  assert_equal(  3, @da.levels.size )
+  assert_equal(  7, @da.components )
+  assert_equal( 18, @da.ccd )
+  assert_in_delta( 18/7.to_f,  @da.acd,  Float::EPSILON )
+  assert_in_delta( 18/17.to_f, @da.nccd, Float::EPSILON )
+ end
+
+ def teardown
+  FileUtils.rm_rf 'AD_fixtures'
+ end
+
+end

data/test/test_fortran.rb

@@ -0,0 +1,186 @@
+require 'test/unit'
+require 'fortran_dependencies'
+require 'fileutils'
+
+class TestFortran < Test::Unit::TestCase
+
+  def setup
+    Dir.mkdir 'DependenciesFixture'
+    Dir.chdir 'DependenciesFixture' # FIXME: use block form for readability
+    Dir.mkdir 'lib'
+    Dir.chdir 'lib'
+    File.open('solution.f90','w') do |f|
+      f.puts "module solution\nuse area\nend module solution"
+    end
+    Dir.chdir '..'
+    Dir.mkdir 'src'
+    Dir.chdir 'src'
+    File.open('main.F90','w') do |f|
+      f.puts 'program whizzard'
+      f.puts " use grid\n use solution\n use circle"
+      f.puts 'end program whizzard'
+    end
+    File.open('grid.f90','w') do |f|
+      f.puts "module grid\nuse area\nend module grid"
+    end
+    File.open('shapes.f90','w') do |f|
+      f.puts "module rectangle_fun3d\nend module rectangle_fun3d"
+      f.puts "module circle\n use area\nend module circle"
+    end
+    File.open('area.f90','w'){ |f| f.puts "module area\nend module area" }
+    File.open('externalUse.f90','w') do |f|
+      f.puts "program user\nuse cantFindModule\nend program"
+    end
+    @dep = Fortran::Dependencies.new
+  end
+
+  def teardown
+    Dir.chdir '../..'
+    FileUtils.rm_rf 'DependenciesFixture'
+  end
+
+  def test_finds_which_modules_a_source_file_uses
+    assert_equal %w[grid solution circle], @dep.modules_used_in( 'main.F90' )
+  end
+
+  def test_finds_modules_defined_in_source_file
+    assert_equal %w[rectangle_fun3d circle],
+                 @dep.modules_defined_in( 'shapes.f90' )
+  end
+
+  def test_create_module_definition_hash
+    assert_equal %w[circle rectangle_fun3d],
+    @dep.build_dictionary_of_modules( 'shapes.f90' ).keys.sort
+  end
+
+  def test_locating_all_fortran_files_in_search_path
+    files = %w[ ../lib/solution.f90 area.f90 externalUse.f90
+                grid.f90 main.F90 shapes.f90 ]
+    @dep.find_fortran_files.each do |file|
+      assert files.include?(file)
+    end
+  end
+
+  def test_build_hash_with_source_files
+    f90 = %w[grid.f90 ../lib/solution.f90 shapes.f90 area.f90]
+    hash = @dep.build_dictionary_of_modules( f90 )
+    assert_equal %w[ shapes.f90 shapes.f90 area.f90
+                     ../lib/solution.f90 grid.f90 ].sort,
+                 hash.values.sort
+    assert_equal %w[ rectangle_fun3d circle area solution grid ].sort,
+                 hash.keys.sort
+    assert_equal hash , @dep.build_hash_of_modules_in_files
+  end
+
+  def test_dependency_generation_elements
+    directoryHash = @dep.build_hash_of_modules_in_files
+
+    source_file = "main.F90"
+    modules = @dep.modules_used_in( source_file )
+    assert_equal %w[grid solution circle], modules
+    
+    new_source_files = modules.collect{ |mod| directoryHash[mod] }
+    assert_equal %w[ grid.f90 ../lib/solution.f90 shapes.f90],
+                 new_source_files
+    
+    new_modules = new_source_files.collect do |file|
+      @dep.modules_used_in( file )
+    end.flatten.uniq
+
+    assert_equal ["area"], new_modules
+  end
+
+  def test_makefile_dependency_line_generation
+    source_file = "main.F90"
+    make_golden=String.new <<-GOLDEN
+main.o: main.F90 \\
+ grid.o \\
+ solution.o \\
+ shapes.o
+    GOLDEN
+    assert_equal make_golden, @dep.makefile_dependency_line(source_file)
+  end
+
+  def test_makefile_dependency_recurses_properly
+    make_golden=String.new <<-GOLDEN
+main.o: main.F90 \\
+ grid.o \\
+ solution.o \\
+ shapes.o
+grid.o: grid.f90 \\
+ area.o
+area.o: area.f90
+solution.f90: ../lib/solution.f90
+\tln -sf ../lib/solution.f90 .
+solution.o: solution.f90 \\
+ area.o
+shapes.o: shapes.f90 \\
+ area.o
+    GOLDEN
+
+    gold_split = make_golden.split("\n")
+    test_split = @dep.dependencies('main.F90').split("\n")
+
+    while (gold = gold_split.shift) && (test = test_split.shift)
+      assert_equal gold, test
+    end
+  end
+
+  def test_source_file_dependency_hash
+    @dep.source_file_dependencies('main.F90')
+    assert_equal( 5, @dep.file_dependencies.size )
+    expected = {
+      "area.f90" => [],
+      "grid.f90" => ["area.f90"],
+      "../lib/solution.f90" => ["area.f90"],
+      "shapes.f90" => ["area.f90"],
+      "main.F90" => ["grid.f90", "../lib/solution.f90", "shapes.f90"]
+    }
+    assert_equal expected, @dep.file_dependencies
+  end
+
+  def test_finds_required_source_files
+    expected = %w[ area.f90 shapes.f90 ../lib/solution.f90
+                   grid.f90 main.F90 ]
+    found = @dep.required_source_files('main.F90')
+    assert_equal expected.size, found.size
+    assert_equal 'main.F90', found.last
+    assert_equal 'area.f90', found.first
+  end
+
+  def test_finds_required_source_files_unordered
+    @dep.dependencies('main.F90')
+    sources = @dep.source_files
+    expected = %w[ main.F90 grid.f90 area.f90 solution.f90 shapes.f90 ]
+    assert_equal expected.size, sources.size
+    assert_equal 'shapes.f90', sources.last
+    assert_equal 'main.F90', sources.first
+    assert_equal expected, sources
+  end
+
+  def test_can_find_required_source_files_twice
+    files = %w[ main.F90 shapes.f90 area.f90
+                ../lib/solution.f90 grid.f90 ]
+    @dep.required_source_files('main.F90')
+    assert_equal files.sort, @dep.required_source_files('main.F90').sort
+  end
+
+  def test_recognizes_external_modules
+    file = 'externalUse.f90'
+    assert_equal [file], @dep.required_source_files(file).sort
+  end
+
+  def test_two_modules_in_a_single_source_file_uses
+    begin
+      File.open('two_modules.f90','w') do |f|
+        f.puts "module one\nend module one\nmodule two\n use one\nend module two"
+      end
+      dep = Fortran::Dependencies.new
+      assert_equal %w[one], dep.modules_used_in( 'two_modules.f90' )
+      dep.source_file_dependencies 'two_modules.f90'
+    ensure
+      FileUtils.rm 'two_modules.f90'
+    end
+  end
+
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification
+name: fortran_dependencies
+version: !ruby/object:Gem::Version
+  version: 1.2.0
+platform: ruby
+authors:
+- Bil Kleb
+- Mike Park
+- Bill Wood
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-01-19 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 2.3.3
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 2.3.3
+description: 'Fortran 90/95/2003 utilities.  Currently, only provides Fortran 90/95/2003
+  dependencies. (Note: this is a fork of the original fortran gem, since the ability
+  to push that gem has been lost'
+email: Bil.Kleb@NASA.gov
+executables: []
+extensions: []
+extra_rdoc_files:
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+files:
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+- lib/fortran_dependencies.rb
+- lib/lakos/analyze_dependencies.rb
+- lib/lakos/mk_lakos_plots.rb
+- test/lakos/test_analyze_dependencies.rb
+- test/test_fortran.rb
+homepage: http://nasarb.rubyforge.org/fortran
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options:
+- --main
+- README.txt
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: nasarb
+rubygems_version: 2.4.8
+signing_key: 
+specification_version: 2
+summary: Fortran 90/95/2003 utilities.
+test_files: []