rubyosa19 0.5.0 → 0.5.4

data/{ext/rubyosa/extconf.rb → extconf.rb}

@@ -29,18 +29,26 @@ require 'mkmf'
 $CFLAGS << ' -Wall '
 $LDFLAGS = '-framework Carbon -framework ApplicationServices'
 
+if RUBY_VERSION =~ /^1.9/ then
+  $CPPFLAGS += " -DRUBY_19"
+end
+
 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 = "#{RbConfig::CONFIG['rubyhdrdir']}/ruby.h"
-intern_h = "#{RbConfig::CONFIG['rubyhdrdir']}/ruby/intern.h"
+if RUBY_VERSION =~ /^1.9/ then
+  ruby_h = "#{Config::CONFIG['rubyhdrdir']}/ruby.h"
+  intern_h = "#{Config::CONFIG['rubyhdrdir']}/ruby/intern.h"
+else
+  ruby_h = "#{Config::CONFIG['archdir']}/ruby.h"
+  intern_h = "#{Config::CONFIG['archdir']}/intern.h"
+end
 new_filename_prefix = 'osx_'
 [ ruby_h, intern_h ].each do |src_path|
-    dst_fname = File.join('./', new_filename_prefix + File.basename(src_path))
+    dst_fname = File.join('./src', new_filename_prefix + File.basename(src_path))
     $stderr.puts "create #{File.expand_path(dst_fname)} ..."
-    $stderr.puts "path: #{`pwd`}"
     File.open(dst_fname, 'w') do |dstfile|
         IO.foreach(src_path) do |line|
             line = line.gsub(/\bID\b/, 'RB_ID')
@@ -52,4 +60,9 @@ new_filename_prefix = 'osx_'
 end
 
 # Generate the Makefile
-create_makefile('rubyosa/osa')
+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

data/sample/iTunes/tag_genre_lastfm.rb

@@ -0,0 +1,32 @@
+# For each selected track in iTunes, retrieve the genre from Last.fm and accordingly tag the track.
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+require 'net/http'
+require 'cgi'
+require 'rexml/document' 
+include REXML
+
+itunes = OSA.app('iTunes')
+
+selection = itunes.selection.get
+if selection.empty?
+  $stderr.puts "Please select some tracks."
+  exit 1
+end
+
+first = selection.first.artist 
+feed = "http://ws.audioscrobbler.com/1.0/artist/#{CGI::escape(first)}/toptags.xml"
+doc = Document.new(Net::HTTP.get(URI(feed))) 
+
+selection.each do |track|
+  if doc.root.attributes['artist'] == track.artist
+    genre = doc.root[1][1].text.capitalize
+  else
+    puts 'Querying Last.fm again...' 
+    feed = "http://ws.audioscrobbler.com/1.0/artist/#{CGI::escape(track.artist)}/toptags.xml"
+    doc = Document.new(Net::HTTP.get(URI(feed)))
+    genre = doc.root[1][1].text.capitalize
+  end
+  track.genre = genre
+end

data/sample/misc/sdef.rb

@@ -0,0 +1,37 @@
+# Print the given application's sdef(5).
+
+begin require 'rubygems'; rescue LoadError; end
+require 'rbosa'
+require 'rexml/document'
+
+def usage
+    STDERR.puts <<-EOS
+Usage: #{$0} [--name | --path | --bundle_id | --signature] ...
+Examples:
+    #{$0} --name iTunes
+    #{$0} --path /Applications/iTunes.app 
+    #{$0} --bundle_id com.apple.iTunes 
+    #{$0} --signature hook
+EOS
+    exit 1
+end
+
+usage unless ARGV.length == 2 
+
+key = case ARGV.first
+    when '--name'
+        :name
+    when '--path'
+        :path
+    when '--bundle_id'
+        :bundle_id
+    when '--signature'
+        :signature
+    else
+        usage
+end
+
+app = OSA.app(key => ARGV.last)
+doc = REXML::Document.new(app.sdef)
+doc.write(STDOUT, 0)
+puts ""

data/{lib/rubyosa → src/lib}/rbosa.rb

@@ -24,53 +24,23 @@
 # IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 # POSSIBILITY OF SUCH DAMAGE.
 
+unless RUBY_VERSION =~ /^1.9/ then
+  $KCODE = 'u' # we will use UTF-8 strings
+end
+
+require 'osa'
 require 'date'
 require 'uri'
-# require 'iconv'
-
-# Try to load RubyGems first, libxml-ruby may have been installed by it.
-begin require 'rubygems'; rescue LoadError; end
-
-# If libxml-ruby is not present, switch to REXML.
-USE_LIBXML = begin
-  require 'xml/libxml'
-
-  # libxml-ruby bug workaround.
-  class XML::Node
-    alias_method :old_cmp, :==
-    def ==(x)
-      (x != nil and old_cmp(x))
-    end
-  end
-  true
-rescue LoadError
-  require 'rexml/document'
-
-  # REXML -> libxml-ruby compatibility layer.
-  class REXML::Element
-    alias_method :old_find, :find
-    def find(path=nil, &block)
-      if path.nil? and block
-        old_find { |*x| block.call(*x) }
-      else
-        list = []
-        ::REXML::XPath.each(self, path) { |e| list << e }
-        list
-      end
-    end
-    def [](attr)
-      attributes[attr]
-    end
-    def find_first(path)
-      ::REXML::XPath.first(self, path)
-    end
-  end
-  false
-end
+require 'iconv'
+require 'xml'
 
 class String
   def to_4cc
-    OSA.__four_char_code__(self.encode('MACROMAN').to_s)
+    if RUBY_VERSION =~ /^1.9/ then
+      OSA.__four_char_code__(Iconv.iconv('MACROMAN', 'UTF-8', self)[0].to_s)
+    else
+      OSA.__four_char_code__(Iconv.iconv('MACROMAN', 'UTF-8', self).to_s)
+    end
   end
 end
 
@@ -463,12 +433,7 @@ module OSA
 
   def self.__load_sdef__(sdef, target, app_module, merge_only=false, app_class=nil)
     # Load the sdef.
-    doc = if USE_LIBXML
-      parser = XML::Parser.string(sdef)
-      parser.parse
-    else
-      REXML::Document.new(sdef)
-    end
+    doc = XML::Parser.string(sdef).parse
 
     # Retrieves and creates enumerations.
     enum_group_codes = {} 
@@ -652,13 +617,13 @@ module OSA
       has_result = result != nil
  
       code = element['code']
-      # begin
-        code = code.encode('MACROMAN').to_s
-      # rescue Iconv::IllegalSequence
-      #   # We can't do more...
-      #   STDERR.puts "unrecognized command code encoding '#{code}', skipping..." if $DEBUG
-      #   next
-      # end
+      begin
+        code = Iconv.iconv('MACROMAN', 'UTF-8', code).to_s
+      rescue Iconv::IllegalSequence
+        # We can't do more...
+        STDERR.puts "unrecognized command code encoding '#{code}', skipping..." if $DEBUG
+        next
+      end
 
       classes_to_define = []
       forget_direct_parameter = true
@@ -1038,3 +1003,5 @@ OSA.add_conversion_to_osa('color') do |values|
   ary = values.map { |i| OSA::Element.__new__('long', [i].pack('l')) }
   OSA::ElementList.__new__(ary)
 end
+
+require 'rbosa_properties'