ExternalVendorCode/genode
1
0
Fork 0
mirror of https://github.com/genodelabs/genode.git synced 2025-06-18 15:18:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

tool/dts: rename 'get_cmd_[arg|switch]'-proc

Browse Source 
...to be consistent with the naming in tool/run.

Related to #5432
This commit is contained in:
Roman Iten
2025-02-05 18:14:44 +01:00
committed by Christian Helmuth
parent 5ebcf36d69
commit 43098a1b4c
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tool/dts/extract
View File

@ -9,7 +9,7 @@
## ##
# Return true if command-line switch was specified # Return true if command-line switch was specified
# #
proc get_cmd_switch { arg_name } { proc have_cmd_arg { arg_name } {
global argv global argv
return [expr [lsearch $argv $arg_name] >= 0] return [expr [lsearch $argv $arg_name] >= 0]
} }
@ -21,7 +21,7 @@ proc get_cmd_switch { arg_name } {
# If a argument name is specified multiple times, a # If a argument name is specified multiple times, a
# list of argument values is returned. # list of argument values is returned.
# #
proc get_cmd_arg { arg_name default_value } { proc cmd_arg { arg_name default_value } {
global argv global argv
# find argument name in argv list # find argument name in argv list
@ -367,7 +367,7 @@ proc select {path} {
collect_labels_and_references collect_labels_and_references
foreach arg [get_cmd_arg --select {}] { foreach arg [cmd_arg --select {}] {
# distinguish DTS path argument (starting with /) from label argument # distinguish DTS path argument (starting with /) from label argument
if {[string match "/*" $arg]} { if {[string match "/*" $arg]} {
@ -405,22 +405,22 @@ foreach path [array names selected] {
} }
if {[get_cmd_switch --labels]} { if {[have_cmd_arg --labels]} {
foreach n [lsort [array names labels]] { foreach n [lsort [array names labels]] {
puts "$n\t$labels($n)" } } puts "$n\t$labels($n)" } }
if {[get_cmd_switch --nodes]} { if {[have_cmd_arg --nodes]} {
foreach n [lsort [array names selected]] { foreach n [lsort [array names selected]] {
puts "$n" } } puts "$n" } }
if {[get_cmd_switch --references]} { if {[have_cmd_arg --references]} {
foreach n [lsort [array names references]] { foreach n [lsort [array names references]] {
puts "$n\t$references($n)" } } puts "$n\t$references($n)" } }
if {[get_cmd_switch --dot-graph]} { if {[have_cmd_arg --dot-graph]} {
puts "digraph {" puts "digraph {"
puts { rankdir=LR; nodesep=0.01;} puts { rankdir=LR; nodesep=0.01;}
puts { node[shape=polygon, height=0, color=gray, fontsize=12, margin="0.1,0.01"];} puts { node[shape=polygon, height=0, color=gray, fontsize=12, margin="0.1,0.01"];}