やりたいこと

AppNap-browser applescriptの機能

• safariがアクティブの場合は、WebProcessのCPU の上限を指定しない。
  
• safariにフォーカスがない場合は、WebProcessのCPU上限を5%に制限する。
  
• firefoxがアクティブの場合は、FirefoxのCPUの上限を指定しない。
  
• firefoxにフォーカスがない場合は、FirefoxのCPU上限を5%に制限する。

準備

cputhrottleのインストール

AppleScript

global CPU_SLOW_PERCENTAGE
global myProcessDataList

set CPU_SLOW_PERCENTAGE to "5"
set myProcessDataList to {}

script ProcessData
property pid : -1
property procName : ""

on new(thePid, theProcName)
copy me to theData
set_pid(thePid) of theData
set_procName(theProcName) of theData
theData
end new
on set_pid(value)
set pid to value
end set_pid
on set_procName(value)
set procName to value
end set_procName
end script

on FindProcessDataList(theList, theProcName, retList)
repeat with v in theList
if procName of v is equal to theProcName then
set end of retList to v
end if
end repeat
return retList
end FindProcessDataList

on DeleteProcessDataList(theList, theProcName)
set retList to {}
repeat with v in theList
if procName of v is not equal to theProcName then
set end of retList to v
end if
end repeat
return retList
end DeleteProcessDataList

on StartBackgroundCpuControl(theProcName, theControledList)
syslog("StartBackgroundCpuControl  " & theProcName & "") of me
tell application "System Events"
set pList to (unix id of every process whose name contains theProcName)
if pList is not equal to {} then
repeat with unixID in pList
syslog("cputhrottle  " & (unixID as string) & " " & CPU_SLOW_PERCENTAGE) of me
do shell script "/tmp/cputhrottle " & (unixID as string) & " " & CPU_SLOW_PERCENTAGE & " >/dev/null 2>&1 & echo $!" with administrator privileges
set pid to result
set end of theControledList to new(pid, theProcName) of ProcessData
end repeat
end if
end tell
end StartBackgroundCpuControl

on StopBackgroundCpuControl(theControledList)
syslog("StopBackgroundCpuControl  targetCount=" & (length of theControledList as string) & "") of me
tell application "System Events"
repeat with v in theControledList
do shell script "kill -INT " & (pid of v as string) with administrator privileges
end repeat
end tell
end StopBackgroundCpuControl

on idle
tell application "System Events"
set activeProcs to every process whose frontmost is true
set activeProc to item 1 of activeProcs
tell activeProc
set activeProcName to name
end tell
end tell
if activeProcName is equal to "Safari" then
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "WebProcess", targetProcess)
if length of targetProcess is not equal to 0 then
StopBackgroundCpuControl(targetProcess)
set myProcessDataList to DeleteProcessDataList(myProcessDataList, "WebProcess")
end if
else if activeProcName is equal to "Firefox" then
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "Firefox", targetProcess)
if length of targetProcess is not equal to 0 then
StopBackgroundCpuControl(targetProcess)
set myProcessDataList to DeleteProcessDataList(myProcessDataList, "Firefox")
end if
else
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "WebProcess", targetProcess)
if length of targetProcess is equal to 0 then
-- 制御中は、再実行しない
StartBackgroundCpuControl("WebProcess", myProcessDataList)
end if
set targetProcess to {}
set targetProcess to FindProcessDataList(myProcessDataList, "Firefox", targetProcess)
if length of targetProcess is equal to 0 then
-- 制御中は、再実行しない
StartBackgroundCpuControl("Firefox", myProcessDataList)
end if
end if
return 1
end idle

on syslog(logmsg)
do shell script "logger -s " & logmsg
end syslog

実行してみました

1. Administrator privilegesを指定するため、
   キャッシュが消えたころにパスワードを促すダイアログが表示されて
   面倒に感じる