SCClassLibrary/Platform/iphone/iPhonePlatform.sc

   1 IPhonePlatform : UnixPlatform
   2 {
   3         initPlatform {
   4                 super.initPlatform;
   5         }
   6
   7         name { ^\iphone }
   8
   9         startupFiles {
  10                 var filename = "startup.rtf";
  11                 var deprecated = [this.systemAppSupportDir +/+ filename, this.userAppSupportDir +/+ filename];
  12                 Platform.deprecatedStartupFiles(deprecated);
  13                 ^(deprecated ++ super.startupFiles)
  14         }
  15
  16         startup {
  17                 "starting up iPhone Platform !".postln;
  18                 PathName.tmp_("~/Documents/tmp/".standardizePath);
  19                 //Document.implementationClass.startup;
  20                 // make server window
  21                 Server.internal.recSampleFormat = "int16";
  22                 Server.internal.makeWindow;
  23                 Server.internal.options.hardwareBufferSize = 256;
  24                 Server.internal.options.blockSize = 256;
  25                 Server.default = Server.internal;
  26                 //Server.local.makeWindow;
  27                 this.loadStartupFiles;
  28         }
  29         shutdown {
  30                 //HIDDeviceService.releaseDeviceList;
  31         }
  32
  33                 // only osx uses Cocoa guis
  34         defaultGUIScheme { ^\iphone }
  35         defaultHIDScheme { ^\osx_hid }
  36
  37         open {|aPath|
  38                 ("open " ++ aPath.escapeChar($ )).systemCmd
  39         }
  40 }