use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

–https://github.com/fermion-star/apple_sensors
–Temperature Sensor Monitor for Apple Silicon M1
property comPathPX : missing value

set cpuRes to getCPUType() of me
if cpuRes is not equal to "ARM64E" then
　　display dialog "This is not Apple Silicon Mac"
　　return
end if

set tMin to getMINAppleSiliconMacSensorValue() of me
display dialog "Minimum Temp(Celsius):" & tMin as string

set tMax to getMAXAppleSiliconMacSensorValue() of me
display dialog "maximum Temp(Celsius):" & tMax as string

set tList to getAppleSiliconMacSensorValues() of me
–> {{sName:"PMGR SOC Die Temp Sensor1", sVal:33.3}, {sName:"PMU tdev5", sVal:-21.5}, {sName:"PMU tdie6", sVal:41.2}, {sName:"PMU tdev3", sVal:37.6}, {sName:"PMU2 TR1l", sVal:43.1}, {sName:"ANE MTR Temp Sensor1", sVal:30.0}, {sName:"PMU tdev6", sVal:37.3}, {sName:"ISP MTR Temp Sensor5", sVal:30.0}, {sName:"GPU MTR Temp Sensor4", sVal:30.0}, {sName:"PMU tdev8", sVal:36.9}, {sName:"PMU tdie8", sVal:38.7}, {sName:"PMU2 TR3b", sVal:40.5}, {sName:"SOC MTR Temp Sensor0", sVal:32.8}, {sName:"eACC MTR Temp Sensor3", sVal:29.1}, {sName:"pACC MTR Temp Sensor5", sVal:29.3}, {sName:"PMU TP3w", sVal:41.8}, {sName:"PMU2 TR1d", sVal:37.5}, {sName:"PMU tdie1", sVal:42.8}, {sName:"PMU2 TR5b", sVal:42.4}, {sName:"PMU tdev7", sVal:38.7}, {sName:"PMU tdev1", sVal:35.7}, {sName:"PMU2 TR3d", sVal:35.9}, {sName:"pACC MTR Temp Sensor9", sVal:32.5}, {sName:"PMU2 TR7b", sVal:42.0}, {sName:"PMU tdev4", sVal:-21.5}, {sName:"pACC MTR Temp Sensor7", sVal:35.2}, {sName:"PMU tdie5", sVal:41.6}, {sName:"PMU2 TR5d", sVal:36.7}, {sName:"pACC MTR Temp Sensor3", sVal:34.2}, {sName:"PMU tdie7", sVal:40.8}, {sName:"PMGR SOC Die Temp Sensor2", sVal:33.5}, {sName:"PMU2 TR2l", sVal:42.0}, {sName:"PMU tdie2", sVal:40.0}, {sName:"pACC MTR Temp Sensor8", sVal:34.5}, {sName:"PMU tcal", sVal:51.9}, {sName:"PMU2 TR0Z", sVal:51.9}, {sName:"PMU2 TR4b", sVal:42.9}, {sName:"pACC MTR Temp Sensor4", sVal:33.4}, {sName:"PMGR SOC Die Temp Sensor0", sVal:33.4}, {sName:"GPU MTR Temp Sensor1", sVal:30.0}, {sName:"eACC MTR Temp Sensor0", sVal:30.5}, {sName:"PMU tdie4", sVal:41.6}, {sName:"PMU2 TR2d", sVal:35.8}, {sName:"PMU2 TR6b", sVal:40.8}, {sName:"SOC MTR Temp Sensor2", sVal:35.0}, {sName:"PMU tdev2", sVal:36.2}, {sName:"SOC MTR Temp Sensor1", sVal:35.6}, {sName:"NAND CH0 temp", sVal:34.0}, {sName:"PMU2 TR4d", sVal:35.7}, {sName:"pACC MTR Temp Sensor2", sVal:32.0}, {sName:"PMU2 TR8b", sVal:42.9}}

return tList

–最も値が小さなセンサー値を返す
on getMINAppleSiliconMacSensorValue()
　　checkComPath() of me
　　
　　set smcRes to do shell script comPathPX
　　set {aList, bList} to paragraphs of smcRes
　　
　　set b1List to parseByDelim(bList, ", ") of me
　　set b1List to items 1 thru -2 of b1List
　　
　　–マイナス値のデータを無視する
　　set b2List to {}
　　repeat with i in b1List
　　　　set j to contents of i
　　　　if j > 0 then
　　　　　　set the end of b2List to j
　　　　end if
　　end repeat
　　
　　set maxRes to minimumFromList(b2List) of me
　　return maxRes as real
end getMINAppleSiliconMacSensorValue

–最も値が大きなセンサー値を返す
on getMAXAppleSiliconMacSensorValue()
　　checkComPath() of me
　　
　　set smcRes to do shell script comPathPX
　　set {aList, bList} to paragraphs of smcRes
　　
　　set b1List to parseByDelim(bList, ", ") of me
　　set b1List to items 1 thru -2 of b1List
　　
　　set maxRes to maximumFromList(b1List) of me
　　return maxRes as real
end getMAXAppleSiliconMacSensorValue

–すべてのセンサー名と値を取得
on getAppleSiliconMacSensorValues()
　　checkComPath() of me
　　
　　set smcRes to do shell script comPathPX
　　set {aList, bList} to paragraphs of smcRes
　　
　　set a1List to parseByDelim(aList, ", ") of me
　　set b1List to parseByDelim(bList, ", ") of me
　　
　　set a1List to items 1 thru -2 of a1List
　　set b1List to items 1 thru -2 of b1List
　　
　　set aLen to length of a1List
　　set outList to {}
　　
　　repeat with i from 1 to aLen
　　　　set aDat to contents of item i of a1List
　　　　set bDat to contents of item i of b1List
　　　　set the end of outList to {sName:aDat, sVal:bDat as real}
　　end repeat
　　
　　return outList
end getAppleSiliconMacSensorValues

on checkComPath()
　　if my comPathPX = missing value then
　　　　set mePath to (path to me) as string
　　　　set comPath to mePath & "Contents:Resources:temp_sensor2"
　　　　set my comPathPX to quoted form of (POSIX path of comPath)
　　end if
end checkComPath

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

–最小値を取得する
on minimumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set min to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n < min then set min to n
　　end repeat
　　return min
end minimumFromList

–最大値を取得する
on maximumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set max to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n > max then set max to n
　　end repeat
　　return max
end maximumFromList