s0nspark-rubyosa 0.5.2

data/extconf.rb

@@ -0,0 +1,62 @@
+# Copyright (c) 2006-2007, Apple Inc. All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1.  Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer. 
+# 2.  Redistributions in binary form must reproduce the above copyright
+#     notice, this list of conditions and the following disclaimer in the
+#     documentation and/or other materials provided with the distribution. 
+# 3.  Neither the name of Apple Inc. ("Apple") nor the names of
+#     its contributors may be used to endorse or promote products derived
+#     from this software without specific prior written permission. 
+# 
+# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR
+# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
+# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+require 'mkmf'
+
+$CFLAGS << ' -Wall '
+$LDFLAGS = '-framework Carbon -framework ApplicationServices'
+
+exit 1 unless have_func('OSACopyScriptingDefinition')
+exit 1 unless have_func('LSFindApplicationForInfo')
+
+# Avoid `ID' and `T_DATA' symbol collisions between Ruby and Carbon.
+# (adapted code from RubyAEOSA - FUJIMOTO Hisakuni  <hisa@fobj.com>)
+ruby_h = "#{Config::CONFIG['archdir']}/ruby.h"
+intern_h = "#{Config::CONFIG['archdir']}/intern.h"
+new_filename_prefix = 'osx_'
+[ ruby_h, intern_h ].each do |src_path|
+    dst_fname = File.join('./src', new_filename_prefix + File.basename(src_path))
+    $stderr.puts "create #{File.expand_path(dst_fname)} ..."
+    File.open(dst_fname, 'w') do |dstfile|
+        IO.foreach(src_path) do |line|
+            # snow leopard does not need this fix!
+            unless Config::CONFIG['target_os'].match(/darwin10\./)
+              line = line.gsub(/\bID\b/, 'RB_ID')
+              line = line.gsub(/\bT_DATA\b/, 'RB_T_DATA')
+            end
+            line = line.gsub(/\bintern.h\b/, "#{new_filename_prefix}intern.h")
+            dstfile.puts line
+        end
+    end
+end
+
+# Generate the Makefile
+create_makefile('osa', 'src')
+
+# Tweak the Makefile to add an extra install task.
+text = File.read('Makefile')
+text << "\n\ninstall-extras: post-install.rb\n\t@$(RUBY) post-install.rb\n\n"
+File.open('Makefile', 'w') { |io| io.write(text) }

data/sample/AddressBook/inspect.rb

@@ -0,0 +1,31 @@
+# Print all the contacts your Address Book contains.
+# Thanks to Stefan Saasen.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+OSA.utf8_strings = true
+
+def print_person(pe)                 
+  puts pe.name
+  unless pe.emails.size < 1
+    puts "\tE-Mail: " + pe.emails.map { |email| 
+      email.value 
+    }.join(', ')
+  end
+  formatted_addresses = pe.addresses.map { |a|
+    # Some malformed addresses can't be formatted and the address book
+    # will therefore return an application-level error, that we handle there.
+    ('(' + a.label + ') ' + a.formatted_address rescue nil)
+  }.compact.map { |a|
+    "\t\t" + a.gsub(/\n/, ' ').strip.squeeze(' ')
+  }
+  unless formatted_addresses.size < 1
+    puts "\tAddresses:\n" + formatted_addresses.join("\n")
+  end
+end                          
+
+ab = OSA.app('Address Book')
+ab.people.each do |pe|
+  print_person pe
+end 

data/sample/BBEdit/unix_script.rb

@@ -0,0 +1,19 @@
+# Ask BBEdit to run the uptime(1) command and get the result.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+puts 'Asking for uptime...'
+
+bbedit = OSA.app('BBEdit')
+
+bbedit.make(OSA::BBEdit::TextDocument).text = <<EOS
+#!/bin/sh
+uptime
+EOS
+
+bbedit.run_unix_script
+
+output_doc = bbedit.text_documents.find { |x| x.name == 'Unix Script Output' }
+
+puts output_doc.text.get

data/sample/Finder/show_desktop.rb

@@ -0,0 +1,10 @@
+# Lists the content of the Finder desktop.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+ary = OSA.app('Finder').desktop.entire_contents.get
+ary.each do |x|
+    next unless x.is_a?(OSA::Finder::Item)
+    puts "#{x.class.name.sub(/^.+::/, '').sub(/_/, ' ').ljust(25)} #{x.name}"
+end

data/sample/Mail/get_selected_mail.rb

@@ -0,0 +1,14 @@
+# Retrieve and show every selected message content in Mail into new TextEdit documents. 
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+OSA.utf8_strings = true
+textedit = OSA.app('TextEdit')
+mailApp = OSA.app('Mail')
+viewers = mailApp.message_viewers
+viewers.each do |viewer|
+  viewer.selected_messages.each do |message|
+    textedit.make(OSA::TextEdit::Document).text = message.content
+  end
+end

data/sample/Photoshop/new_doc.rb

@@ -0,0 +1,13 @@
+# Creates a new Photoshop document with a given title and size.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+app = OSA.app('Adobe Photoshop CS2')
+app.settings.ruler_units = OSA::AdobePhotoshopCS2::E440::PIXEL_UNITS
+
+app.make(OSA::AdobePhotoshopCS2::Document, nil, :with_properties => {
+	:name => 'Ruby Rocks',
+  :width => 500,
+  :height => 500
+})

data/sample/Photoshop/new_doc_with_text.rb

@@ -0,0 +1,34 @@
+# Creates a new Photoshop document with a given title and size, and adds a text
+# layer on it.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+app = OSA.app('Adobe Photoshop CS2')
+app.settings.ruler_units = OSA::AdobePhotoshopCS2::E440::PIXEL_UNITS
+app.instance_eval do
+  def create_document(options = {})
+    make(OSA::AdobePhotoshopCS2::Document, nil, :with_properties => {
+       :name => 'Ruby Rocks',
+       :width => 500,
+       :height => 500
+     }.merge(options))
+  end
+
+  def add_layer(name, kind)
+    kinds = %w(NORMAL GRADIENTFILL PATTERNFILL TEXT SOLIDFILL)
+    do_javascript %(  
+      var doc = app.activeDocument;
+      var layer = doc.artLayers.add();
+      layer.name = "#{name || ''}";
+      layer.kind = LayerKind.#{kinds.detect {|k| k.downcase == kind} || 'NORMAL'};
+      )
+    current_document.art_layers[0]
+  end
+end
+
+app.create_document(:name => 'Schweet')
+layer = app.add_layer('A text layer', 'text')
+texto  = layer.text_object
+texto.size = 40
+texto.contents = "This is some text"

data/sample/QuickTime/play_all.rb

@@ -0,0 +1,30 @@
+# Opens given movies and in QuickTime and starts playing them indefinitely in fullscreen mode.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+if ARGV.empty?
+    STDERR.puts "Usage: #{$0} <movies-files>"
+    exit 1
+end
+
+app = OSA.app('QuickTime Player')
+ARGV.each { |p| app.open(p) }
+l = app.movies.to_a
+exit if l.length == 0
+last = nil
+loop do
+    l2 = []
+    l.length.times { l2 << l.slice!(rand(l.length)) }
+    l2[0], l2[1] = l2[1], l2[0] if l2[0] == last and l2.length > 1 # not to have the same file playing twice consecutively
+    l2.each do |m|
+        m.rewind # to be sure that we start at the beginning of the movie
+        m.present
+        sleep 0.1 while m.playing?
+        m.stop # to be sure we are not in presentation mode anymore
+        # if we do not end with a stop, and the movie has been stopped by the user,
+        # the next present will not play the movie because an other movie is still in presentation mode
+        last = m
+    end
+    l = l2
+end

data/sample/TextEdit/hello_world.rb

@@ -0,0 +1,19 @@
+# Create new TextEdit documents with a 'Hello World' text.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+textedit = OSA.app('TextEdit')
+
+# Complex way.
+textedit.make(OSA::TextEdit::Document, :with_properties => {:text => 'Hello World #1'})
+
+# Easier way.
+textedit.make(OSA::TextEdit::Document).text = 'Hello World #2'
+
+=begin
+# Easiest way, not implemented for now.
+document = OSA::TextEdit::Document.new
+document.text = 'Hello World #3'
+textedit << document
+=end

data/sample/iChat/image.rb

@@ -0,0 +1,18 @@
+# Periodically set your iChat image to one of the default images.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+ichat = OSA.app('iChat')
+
+old_image = ichat.image
+trap('INT') { ichat.image = old_image; exit 0 }
+
+paths = Dir.glob("/Library/User Pictures/**/*.tif")
+
+while true do
+  paths.each do |path|
+    ichat.image = File.read(path)
+    sleep 2
+  end
+end

data/sample/iChat/uptime.rb

@@ -0,0 +1,15 @@
+# Periodically set your iChat status to the output of uptime(1). 
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+app = OSA.app('iChat')
+previous_status_message = app.status_message
+trap('INT') { app.status_message = previous_status_message; exit 0 }
+while true
+    u = `uptime`
+    hours = u.scan(/^\s*(\d+:\d+)\s/).to_s + ' hours'
+    days = u.scan(/\d+\sdays/).to_s
+    app.status_message = "OSX up #{days} #{hours}"
+    sleep 5
+end

data/sample/iTunes/artwork.rb

@@ -0,0 +1,14 @@
+# Open the artwork of the current iTunes track in Preview.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+artworks = OSA.app('iTunes').current_track.artworks
+if artworks.size == 0
+  puts "No artwork for current track."
+  exit 1
+end
+
+fname = '/tmp/foo.' + artworks[0].format.downcase.strip
+File.open(fname, 'w') { |io| io.write(artworks[0].data) }
+system("open -a Preview #{fname}")

data/sample/iTunes/control.rb

@@ -0,0 +1,66 @@
+# Simple iTunes controller.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+require 'curses'
+include Curses
+
+app = OSA.app('iTunes')
+OSA.utf8_strings = true
+
+if app.current_track.nil?
+    # We don't support write access now, so...
+    puts "Please select a track in iTunes and retry again."
+    exit 1
+end
+
+init_screen
+
+addstr <<EOS
+Keys available:
+  SPACE     toggle play/pause
+  p         go to previous song
+  n         go to next song
+  f         toggle fast forward
+  r         toggle rewind
+  m         toggle mute
+  q         exit the program
+
+On track:
+EOS
+
+begin
+    noecho
+    while true
+        setpos(9, 2)
+        addstr "#{app.player_state.to_s.capitalize} : #{app.current_track.name}".ljust(cols - 3)
+        refresh
+        x = getch
+        case x.chr
+        when ' '
+            app.playpause
+        when 'p'
+            app.previous_track
+        when 'n'
+            app.next_track
+        when 'f'
+            if app.player_state == OSA::ITunes::EPLS::FAST_FORWARDING
+                app.resume
+            else
+                app.fast_forward
+            end
+        when 'r'
+            if app.player_state == OSA::ITunes::EPLS::REWINDING
+                app.resume
+            else
+                app.rewind
+            end
+        when 'm'
+            app.mute = !app.mute?
+        when 'q' 
+            break
+        end 
+    end
+ensure
+    echo
+end

data/sample/iTunes/fade_volume.rb

@@ -0,0 +1,23 @@
+# Start playing, then fade the volume from 0 to the original setting.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+app = OSA.app('iTunes')
+
+original_volume = app.sound_volume
+
+if original_volume == 0 or app.current_track.nil?
+    puts "Please select a track and/or set a higher volume."
+    exit 1
+end
+
+app.sound_volume = 0
+app.play
+
+0.step(original_volume, original_volume / 8.0) do |volume|
+    app.sound_volume = volume
+    sleep(0.1)
+end
+
+app.sound_volume = original_volume

data/sample/iTunes/inspect.rb

@@ -0,0 +1,16 @@
+# Quick inspection of iTunes' sources, playlists and tracks.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+app = OSA.app('iTunes')
+OSA.utf8_strings = true
+app.sources.each do |source|
+    puts source.name
+    source.playlists.each do |playlist|
+        puts " -> #{playlist.name}"
+        playlist.tracks.each do |track|
+            puts "     -> #{track.name}" if track.enabled?
+        end
+    end
+end

data/sample/iTunes/name_that_tune.rb

@@ -0,0 +1,97 @@
+# Plays a track of your iTunes library at random and asks you to guess the name of the track.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+
+OSA.app('iTunes') # initialize the constants
+
+class OSA::ITunes::Application
+  
+  def library_source
+    sources.find {|s| s.kind == OSA::ITunes::ESRC::LIBRARY }
+  end
+  
+  def library
+    library_source.playlists.find {|p| p.name == 'Library' }
+  end
+  
+  def party_shuffle
+    library_source.playlists.find {|p| p.special_kind == OSA::ITunes::ESPK::PARTY_SHUFFLE }
+  end
+
+end
+
+class OSA::ITunes::Playlist
+  
+  def random_track
+    tracks[rand * tracks.size]
+  end
+  
+end
+
+class OSA::ITunes::Track
+
+  def to_s
+    "#{artist} - #{name}"
+  end
+
+end
+
+
+class NameThatTune
+  attr_accessor :score
+  
+  def initialize
+    @itunes = OSA.app('iTunes')
+  end
+
+  def finish
+    puts "Thanks for playing! Score: #{score}"
+    exit
+  end
+
+  def start
+    @score = 0
+    while true
+      @itunes.party_shuffle.play
+      @itunes.next_track
+  
+      options = generate_options
+      options.each_with_index { |track, i| puts "#{i+1} - #{track}" }
+
+      selected = gets.to_i
+  
+      finish if selected == 0
+  
+      if correct?(options, selected)
+        points = calculate_points_for_correct_choice
+        puts "Correct! #{points} points"
+        self.score += points
+      else
+        puts "Sorry! That was #{@itunes.current_track}"
+      end
+    end
+  end
+  
+  private
+  
+  def correct?(options, selected)
+    options[selected-1] == @itunes.current_track
+  end
+  
+  def calculate_points_for_correct_choice
+    points = (@itunes.player_position > 10 ? 1 : 10 - @itunes.player_position) * 1000
+    points += (@itunes.current_track.played_count > 10 ? 1 : 10 - @itunes.current_track.played_count) * 100
+    points.to_i
+  end
+  
+  def generate_options(count = 5)
+    options = []
+    options << @itunes.current_track
+    (count - 1).times {|i| options << @itunes.library.random_track }
+    options = options.sort_by { rand }
+  end
+  
+end
+
+NameThatTune.new.start