[Hugin-cvs] SF.net SVN: hugin: [2694] hugin/trunk/mac/PutAutopanoSiftToHugin. applescript

[<ip...@us...>]

Revision: 2694
          http://hugin.svn.sourceforge.net/hugin/?rev=2694&view=rev
Author:   ippei
Date:     2008-01-24 14:11:58 -0800 (Thu, 24 Jan 2008)

Log Message:
-----------
this thing really looks out of place doesn't it?

Added Paths:
-----------
    hugin/trunk/mac/PutAutopanoSiftToHugin.applescript

Copied: hugin/trunk/mac/PutAutopanoSiftToHugin.applescript (from rev 2690, hugin/trunk/mac/ExternalPrograms/PutAutopanoSiftToHugin.applescript)
===================================================================
--- hugin/trunk/mac/PutAutopanoSiftToHugin.applescript	                        (rev 0)
+++ hugin/trunk/mac/PutAutopanoSiftToHugin.applescript	2008-01-24 22:11:58 UTC (rev 2694)
@@ -0,0 +1,29 @@
+display alert "Do you know what you are doing?" message \xC2
+	"Please read the readme and license files carefully before use. You'd better know what you are doing before you proceed." buttons {"Quit", "OK"} cancel button 1 as warning
+
+tell application "Finder"
+	copy "" to autopanoDirPath
+	repeat while autopanoDirPath is equal to ""
+		copy (choose folder with prompt "Where is autopano-sift bin folder?" without invisibles) to autopanoDirPath
+		if (not (exists file "autopano.exe" of folder autopanoDirPath)) \xC2
+			or (not (exists file "generatekeys-sd.exe" of folder autopanoDirPath)) \xC2
+			or (not (exists file "libsift.dll" of folder autopanoDirPath)) then
+			copy "" to autopanoDirPath
+			display alert "Error: autopano-sift file names do not match" as warning
+		end if
+	end repeat
+	copy "" to huginPath
+	repeat while huginPath is equal to ""
+		copy (choose file of type {"APPL"} with prompt "Where is Hugin.app?" without invisibles) to huginPath
+		if the name of file huginPath is not equal to "Hugin.app" then
+			copy "" to huginPath
+			display alert "Error: Hugin.app file name do not match" as warning
+		end if
+	end repeat
+	if exists folder "autopano-sift" of folder "Contents:Resources:" of file huginPath then delete folder "autopano-sift" of folder "Contents:Resources:" of file huginPath
+	
+	copy (make new folder with properties {name:"autopano-sift"} at folder "Contents:Resources:" of file huginPath) to autopanoSiftFolder
+	duplicate file "autopano.exe" of folder autopanoDirPath to autopanoSiftFolder
+	duplicate file "generatekeys-sd.exe" of folder autopanoDirPath to autopanoSiftFolder
+	duplicate file "libsift.dll" of folder autopanoDirPath to autopanoSiftFolder
+end tell
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.