Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 1 | #!/bin/bash |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 2 | |
| 3 | # Utility to print all SST data present on D-Bus. |
| 4 | # Simply searches for all objects implementing known interfaces and prints out |
| 5 | # the property values on those interfaces. |
| 6 | |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 7 | set -e |
| 8 | |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 9 | BUSCTL='busctl' |
| 10 | XYZ='xyz.openbmc_project' |
| 11 | OBJECT_MAPPER="$XYZ.ObjectMapper /xyz/openbmc_project/object_mapper $XYZ.ObjectMapper" |
| 12 | CPU_INTF="$XYZ.Control.Processor.CurrentOperatingConfig" |
| 13 | CONFIG_INTF="$XYZ.Inventory.Item.Cpu.OperatingConfig" |
| 14 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 15 | function trim_quotes() { |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 16 | trim_obj=${1%\"} |
| 17 | trim_obj=${trim_obj#\"} |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 18 | echo "$trim_obj" |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 19 | } |
| 20 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 21 | function get_sub_tree_paths() { |
| 22 | resp=$($BUSCTL call "$OBJECT_MAPPER" GetSubTreePaths sias "$1" 0 "$2" "$3" \ |
Patrick Williams | 306df48 | 2022-12-08 06:26:05 -0600 | [diff] [blame] | 23 | | cut -d' ' -f3-) |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 24 | for obj in $resp |
| 25 | do |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 26 | trim_quotes "$obj" |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 27 | done |
| 28 | } |
| 29 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 30 | function get_service_from_object() { |
| 31 | trim_quotes "$($BUSCTL call "$OBJECT_MAPPER" GetObject sas "$1" "$2" "$3" \ |
| 32 | | cut -d' ' -f3)" |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 33 | } |
| 34 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 35 | function get_property_names() { |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 36 | service=$1 |
| 37 | object=$2 |
| 38 | intf=$3 |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 39 | $BUSCTL introspect "$service" "$object" "$intf" \ |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 40 | | awk '/property/ {print substr($1, 2)}' |
| 41 | } |
| 42 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 43 | function get_property() { |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 44 | service=$1 |
| 45 | object=$2 |
| 46 | intf=$3 |
| 47 | prop=$4 |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 48 | $BUSCTL get-property "$service" "$object" "$intf" "$prop" |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 49 | } |
| 50 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 51 | function set_property() { |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 52 | service=$1 |
| 53 | object=$2 |
| 54 | intf=$3 |
| 55 | prop=$4 |
| 56 | signature=$5 |
| 57 | value=$6 |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 58 | $BUSCTL set-property "$service" "$object" "$intf" "$prop" \ |
| 59 | "$signature" "$value" |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 60 | } |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 61 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 62 | function show() { |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 63 | cpu_paths=$(get_sub_tree_paths "/" 1 "$CPU_INTF") |
| 64 | for cpu_path in $cpu_paths |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 65 | do |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 66 | service=$(get_service_from_object "$cpu_path" 1 "$CPU_INTF") |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 67 | echo "Found SST on $cpu_path on $service" |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 68 | for prop in $(get_property_names "$service" "$cpu_path" "$CPU_INTF") |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 69 | do |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 70 | echo " $prop: $(get_property "$service" "$cpu_path" "$CPU_INTF" "$prop")" |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 71 | done |
| 72 | |
| 73 | |
| 74 | profiles=$(get_sub_tree_paths "$cpu_path" 1 "$CONFIG_INTF") |
| 75 | for profile in $profiles |
| 76 | do |
| 77 | echo |
| 78 | echo " Found Profile $profile" |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 79 | for prop in $(get_property_names "$service" "$profile" "$CONFIG_INTF") |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 80 | do |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 81 | echo " $prop: $(get_property "$service" "$profile" "$CONFIG_INTF" "$prop")" |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 82 | done |
Jonathan Doman | 94c94bf | 2020-10-05 23:25:45 -0700 | [diff] [blame] | 83 | done |
| 84 | done |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 85 | } |
| 86 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 87 | function set_cpu_prop() { |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 88 | cpu_basename=$1 |
| 89 | prop=$2 |
| 90 | signature=$3 |
| 91 | value=$4 |
| 92 | |
| 93 | |
| 94 | cpu_paths=$(get_sub_tree_paths "/" 1 "$CPU_INTF") |
| 95 | for cpu_path in $cpu_paths |
| 96 | do |
| 97 | if [[ $cpu_path != *$cpu_basename ]] |
| 98 | then |
| 99 | continue |
| 100 | fi |
| 101 | |
| 102 | if [[ "$prop" == "AppliedConfig" ]] |
| 103 | then |
| 104 | value=$cpu_path/$value |
| 105 | fi |
| 106 | |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 107 | service=$(get_service_from_object "$cpu_path" 1 "$CPU_INTF") |
| 108 | set_property "$service" "$cpu_path" "$CPU_INTF" "$prop" "$signature" "$value" |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 109 | return 0 |
| 110 | done |
| 111 | |
| 112 | echo "$cpu_basename not found" |
| 113 | return 1 |
| 114 | } |
| 115 | |
| 116 | if [[ ${DEBUG:=0} -eq 1 ]] |
| 117 | then |
| 118 | set -x |
| 119 | fi |
| 120 | |
| 121 | action=${1:-show} |
| 122 | |
| 123 | case "$action" in |
| 124 | show) show ;; |
Patrick Williams | 3e6be2e | 2022-12-04 15:46:55 -0600 | [diff] [blame] | 125 | set-config) set_cpu_prop "$2" AppliedConfig o "$3" ;; |
| 126 | set-bf) set_cpu_prop "$2" BaseSpeedPriorityEnabled b "$3" ;; |
Jonathan Doman | 703a185 | 2020-11-11 13:04:02 -0800 | [diff] [blame] | 127 | *) |
| 128 | echo "Usage:" |
| 129 | echo "$0 (show|set-config|set-bf) [ARGS...]" |
| 130 | echo "" |
| 131 | echo "show (Default action) - show info" |
| 132 | echo "set-config cpuN configM - Set applied operating config for cpuN to configM" |
| 133 | echo "set-bf cpuN val - Set SST-BF enablement for cpuN to val (boolean)" |
| 134 | ;; |
| 135 | esac |