Updated CreateAnalyzeOrderCsv and CreateVhdlLsToml to accept PathAndFileName rather than just path.

Author: JimLewis

OsvvmScriptsTranslate.tcl

@@ -90,20 +90,19 @@ proc CreateDryRunDict {ProFileToBuild} {
 # -------------------------------------------------
 # CreateVhdlLsToml for VHDL LS
 #
-proc CreateVhdlLsToml {ProFileToBuild {WhereToCreate .}} {
+proc CreateVhdlLsToml {ProFileToBuild {FileNameAndPath "./vhdl_ls.toml"}} {
   # CreateVhdlLsToml runs a build script in DryRunMode and 
   # creates a vhdl_ls.toml file.
 	#
   #  ProFileToBuild - Path to the pro file that build the entire design.
-  #  WhereToCreate  - Directory into which to create vhdl_ls.toml.  Default = .
+  #  FileNameAndPath  - Name of file to create.  Default:  ./vhdl_ls.toml
 	#
   variable AnalyzeDict
 
   # Create AnalyzeDict for the ProFileToBuild script
   CreateDryRunDict $ProFileToBuild
 
-  set TomlHomeDir   [file normalize $WhereToCreate]
-  set TomlFile      [open [file join $TomlHomeDir vhdl_ls.toml] w]
+  set TomlFile      [open [file normalize $FileNameAndPath] w]
 
   puts $TomlFile "# Generated by OSVVM's CreateVhdlLsToml"
   puts $TomlFile "\[Libraries\]"
@@ -121,27 +120,26 @@ proc CreateVhdlLsToml {ProFileToBuild {WhereToCreate .}} {
   close $TomlFile
 }
 
-proc CreateAnalyzeOrderCsv {ProFileToBuild {WhereToCreate .}} {
+proc CreateAnalyzeOrderCsv {ProFileToBuild {FileNameAndPath "./AnalyzeOrder.csv"}} {
   # 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 = .
+  #  ProFileToBuild  - Path to the pro file that build the entire design.
+  #  FileNameAndPath - Name of file to create.  Default:  ./AnalyzeOrder.csv  
 	#
   variable AnalyzeOrderList
 
   # Create AnalyzeDict for the ProFileToBuild script
   CreateDryRunDict $ProFileToBuild
 
-  set HomeDir   [file normalize $WhereToCreate]
-  set CsvFile   [open [file join $HomeDir AnalyzeOrder.csv] w]
+  set CsvFile     [open [file normalize $FileNameAndPath] 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 "[dict get $FileDict FileName],"
   }
   puts $CsvFile "${PrintString}"
   close $CsvFile