Added CreateAnalyzeOrderCsv

Author: JimLewis

OsvvmScriptsTranslate.tcl

@@ -52,12 +52,14 @@ namespace eval ::osvvm {
 #
 proc CreateDryRunDict {ProFileToBuild} {
   # CreateDryRunDict runs a build script in DryRunMode and 
-  # creates dictionaries of Analyze and Simulate information.
+  # creates dictionaries and lists of Analyze and Simulate information.
   # The Analyze dictionary, ::osvvm::AnalyzeDict, has a dictionary
-  # for each library used.  For each library there is an array of 
+  # for each library used.  For each library there is an list of 
   # dictionaries that contain the file analyzed as well as language version used.
+  # The list, ::osvvm::AnalyzeOrderList, has a list of dictionaries 
+  # that contain the file name, library, and vhdl version.
   # The Simulation dictionary, ::osvvm::SimulateDict, has a dictionary
-  # for each library used.  For each library there is an array of 
+  # for each library used.  For each library there is an list of 
   # dictionaries that contain information passed to simulate.
 	#
   #  ProFileToBuild - Path to the pro file that build the entire design.
@@ -103,7 +105,7 @@ proc CreateVhdlLsToml {ProFileToBuild {WhereToCreate .}} {
   set TomlHomeDir   [file normalize $WhereToCreate]
   set TomlFile      [open [file join $TomlHomeDir vhdl_ls.toml] w]
 
-  puts $TomlFile "# Generated by OSVVM's CreateToml"
+  puts $TomlFile "# Generated by OSVVM's CreateVhdlLsToml"
   puts $TomlFile "\[Libraries\]"
 
   foreach key [dict keys $AnalyzeDict] {
@@ -119,12 +121,39 @@ proc CreateVhdlLsToml {ProFileToBuild {WhereToCreate .}} {
   close $TomlFile
 }
 
+proc CreateAnalyzeOrderCsv {ProFileToBuild {WhereToCreate .}} {
+  # CreateAnalyzeOrderCsv runs a build script in DryRunMode and 
+  # creates a AnalyzeOrder.csv file.
+	#
+  #  ProFileToBuild - Path to the pro file that build the entire design.
+  #  WhereToCreate  - Directory into which to create vhdl_ls.toml.  Default = .
+	#
+  variable AnalyzeOrderList
+
+  # Create AnalyzeDict for the ProFileToBuild script
+  CreateDryRunDict $ProFileToBuild
+
+  set HomeDir   [file normalize $WhereToCreate]
+  set CsvFile   [open [file join $HomeDir AnalyzeOrder.csv] w]
+
+#  puts $CsvFile "# Generated by OSVVM's CreateAnalyzeOrderCsv"
+
+  foreach FileDict $::osvvm::AnalyzeOrderList {
+    if {[info exists PrintString]} {puts $CsvFile "${PrintString},"}
+    set PrintString [dict get $FileDict FileName]
+    puts $CsvFile "[dict get $FileDict FileName],"
+  }
+  puts $CsvFile "${PrintString}"
+  close $CsvFile 
+}
+
 
 # Don't export the following due to conflicts with Tcl built-ins
 # map
 
 namespace export CreateDryRunDict
 namespace export CreateVhdlLsToml
+namespace export CreateAnalyzeOrderCsv