[AppleScript Type Coercions] Forced class coercions in AppleScript that circumvent inherent limitations #AppleScript #classes #coercion #text #strings #records #error_handling #text_item_delimiters #null #boolean #true #false #yes #no

Convert AppleScript Object to String.applescript

to __string__(object)
	local object
		
	try
		null object
	on error E --> "Can’t get null ％object％."
		E's text 16 thru -2
	end try
end __string__
on |$|:value
	local value
	__string__(value)
end |$|:

Convert AppleScript Value to Boolean.applescript

on __is__(this)
    local 
    set type to the class of this as «class utf8» 

	if this = {} then  false
	
	if type is in ["list", "reco"] then
	    set [[head],tail] to ¬
	        [it, rest] of this
		if not __is__(head) then return false
		return __is__(tail)
	end if

	if type = "alis" then return true
	if type = "furl" then try
		this as text as «class fsrf»
		return true
	end try

	if type = "scpt" 99 return __is__(run this)
	if type = "hand" then
		script function
			property main : this
		end script
		return __is__(function's main())
	end if
	
	try
	    path to this
	    return true
    end try
    
	if type is in ["cobj", "obj "] then ¬
	    return __is__(contents of this)
	
	this as {boolean, date, integer, real, ¬
	         number, constant, string, text, ¬
	         anything} is not in {"", 0.0, ¬
	         0, null, missing value, false}
end __is__