copy_xml.tcl

Go to the documentation of this file.

#!/usr/bin/env tclsh
#   Copyright 2018-2024 The University of Birmingham
#
#   Licensed under the Apache License, Version 2.0 (the "License");
#   you may not use this file except in compliance with the License.
#   You may obtain a copy of the License at
#
#       http://www.apache.org/licenses/LICENSE-2.0
#
#   Unless required by applicable law or agreed to in writing, software
#   distributed under the License is distributed on an "AS IS" BASIS,
#   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#   See the License for the specific language governing permissions and
#   limitations under the License.
 
# @file
# Copy IPBus XML files listed in a Hog list file and replace the version and SHA placeholders if they are present in any of the XML files.
 
if {[catch {package require cmdline} ERROR]} {
  puts "$ERROR\n If you are running this script on tclsh, you can fix this by installing 'tcllib'"
  return
}
 
set parameters {
  {generate  "If set, the VHDL address files will be generated and replaced if already exisiting."}
  {arg.ext_path "" "Path to external libraries"}
}
 
set usage   "Copy IPBus XML files listed in a XML list file of a project and replace the version and SHA placeholders if they are present in any of the XML files.\nUsage: $argv0  \[-generate\] <project> <destination directory>"
set tcl_path [file dirname [info script]]
set repo_path [file normalize $tcl_path/../../..]
source $tcl_path/../hog.tcl
 
 
if {[catch {array set options [cmdline::getoptions ::argv $parameters $usage]}] || [llength $argv] < 2} {
  Msg Info [cmdline::usage $parameters $usage]
  exit 1
} else {
  set project [lindex $argv 0]
  set dst       [lindex $argv 1]
  if { $options(generate) == 1 } {
    set generate 1
  } else {
    set generate 0
  }
  if { $options(arg.ext_path) == "" } {
    set ext_path ""
  } else {
    set ext_path $options(arg.ext_path)
  }
}
 
set proj_dir $repo_path/Top/$project
if {[llength [glob -nocomplain $proj_dir/list/*.ipb]] > 0 } {
  if {![file exists $dst]} {
    Msg Info "$dst directory not found, creating it..."
    file mkdir $dst
  }
} else {
  Msg Error "No .ipb files found in $proj_dir/list/"
  exit
}
set ret [GetRepoVersions $repo_path/Top/$project $repo_path $ext_path]
 
set sha [lindex $ret 13]
set hex_ver [lindex $ret 14]
 
set ver [HexVersionToString $hex_ver]
CopyIPbusXMLs $proj_dir $repo_path $dst $ver $sha $generate