とにかくposixパスの文字列をかえす

on getPosixStr(theItem)
	if class of theItem is string then
		if theItem contains ":" then
			return (POSIX path of theItem) as string
		else
			return theItem
		end if
	else if class of theItem is Unicode text then
		return theItem as string
	else
		return POSIX path of (theItem as string) as string
	end if
end getPosixStr

とにかくAlias値を返す。

on getAlias(theItem)
	try
		if class of theItem is string then
			if theItem contains ":" then
				return theItem as alias
			else
				return ((theItem as POSIX file) as string) as alias
			end if
		else if class of theItem is Unicode text then
			return (((theItem as string) as POSIX file) as string) as alias
		else if class of theItem is alias then
			return theItem
		else
			return theItem as alias
		end if
	on error
                set theMes to "error: getAlias" & return & (theItem as string)
                set theMes to theMes & ": No such file or directory"
		dispError( theMes )
	end try
	
end getAlias

とにかくファイル参照を返す。

on getFurl(theItem)
	if class of theItem is string then
		if theItem contains ":" then
			return (POSIX path of theItem) as POSIX file
		else
			return theItem as POSIX file
		end if
	else if class of theItem is Unicode text then
		return theItem as POSIX file
	else if class of theItem is alias then
		return (POSIX path of (theItem as string)) as POSIX file
	else
		return theItem
	end if
end getFurl

意味あるのか...