basis/elevate/macosx/macosx.factor

   1 USING: cocoa.apple-script elevate elevate.unix ;
   2 IN: elevate.macosx
   3
   4 <PRIVATE
   5 : apple-script-elevated ( command -- )
   6     quote-apple-script
   7     "do shell script %s with administrator privileges without altering line endings"
   8     sprintf run-apple-script ;
   9
  10 ! TODO
  11 M:: macosx elevated ( command replace? win-console? posix-graphical? -- process )
  12     already-root? [ <process> command >>command 1array ] [
  13         posix-graphical? [ ! graphical through applescript
  14             command apple-script-elevated
  15         ] when
  16         posix-elevated
  17     ] if ;
  18
  19 M: macosx lowered
  20     posix-lowered ;
  21
  22 PRIVATE>
  23