#! /usr/bin/env ruby

text = STDIN.gets(nil)

# Applescript to check that GUI scripting is turned on
start = %Q{
-- get the system version
set the hexData to system attribute "sysv"
set hexString to {}
repeat 4 times
	set hexString to ((hexData mod 16) as string) & hexString
	set hexData to hexData div 16
end repeat
set the OS_version to the hexString as string
if the OS_version is less than "1030" then
	display dialog "This script requires the installation of Mac OS X 10.3 or higher." buttons {"Cancel"} default button 1 with icon 2
end if
-- check to see if assistive devices is enabled
tell application "System Events"
	set UI_enabled to UI elements enabled
end tell
if UI_enabled is false then
	tell application "System Preferences"
		activate
		set current pane to pane "com.apple.preference.universalaccess"
		display dialog "This script utilizes the built-in Graphic User Interface Scripting architecture of Mac OS X which is currently disabled." & return & return & "You can activate GUI Scripting by selecting the checkbox \\"Enable access for assistive devices\\" in the Universal Access preference pane." with icon 1 buttons {"Cancel"} default button 1
	end tell
end if

tell application "System Events"

}

finish = <<EOF

end tell
EOF

# Bring specified window to the front
# (window can either be integer or quoted string)
def raisewindow(app, window)
  if (window == nil) 
    %Q{tell application "#{app}" to activate}
  else  
    %Q{
      tell application "#{app}"
      	set the index of window #{window} to 1
      end tell    
    }.gsub(/^\s+/, "")
  end
end

# Pause for specified number of seconds
def pause(seconds)
  %Q{
    delay #{seconds}
  }
end

# Type line of text into active application
def type_line(line) 
  if line =~ /^---RAISE\s*(.+?):(.+)$/
    raisewindow($1, $2)
  elsif line =~ /^---RAISE\s*(.+)$/
    raisewindow($1, nil)
  elsif line =~ /^---PAUSE\s*(.+)$/
    pause($1)
  else 

	  line.chomp.split("").map {|char| "keystroke \"#{escape(char)}\"\n#{rpause}"} + ["key code 36\n#{rpause "line"}"]
	end
end

# Generate random pause
# Character pauses are short (~0.1s), line pauses are long (1s)
def rpause(type="char")
  if (type == "char")
    length = 0.1
  else 
    length = 2
  end
  "delay " + (length * (0.9 + rand(20)/100.0)).to_s
end

# Escape special characters
def escape(char)
	char == '"' ? '\"' : char
end

puts start + text.map{|line| type_line(line)}.join("\n") + finish