proc CreateNewTopologyNgpfHlt { topologyParams } {
    # How to use this from a script:
    #     set port1 1/1/3
    #     set topology1(-topology_name)  "IPv4 Topology Tx-1"
    #     set topology1(-port_handle) [  list [list $port1]]
    #     set topology1Keys [CreateNewTopologyNgpfHlt ::topology1]
    #     set topology1(portHandle) [keylget topology1Keys topology_handle]

    upvar $topologyParams params

    puts "\nCreateNewTopologyNgpfHlt ..."
    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }

    puts "\nCreateNewTopologyNgpfHlt paramList: $paramList"
    set topologyStatus [eval ::ixiangpf::topology_config $paramList]

    if {[keylget topologyStatus status] != $::SUCCESS} {
	puts "\nError CreateNewTopologyNgpfHlt: $topologyStatus"
	return 1
    }
    
    return $topologyStatus
}