Hi, I have compiled this script. AppleScript allowed my coding, but once I hit the “Run” button the scripts stops running almost immediately. Rather new to AppleScripting, and searching for clues as to why this is failing. Any input would be most appreciated, James.
property pashuaPath : “/Volumes/tlib/gui/Pashua.app/Contents/MacOS/Pashua”
property WindowsLF : (ASCII character 32) & (ASCII character 13) as string
on pDialog(dCmd)
set dCmd to dCmd as string
set dCmd to quoted form of dCmd
set cmdStr to “echo " & dCmd & " | " & quoted form of pashuaPath & " -e ‘utf8’ -”
return do shell script cmdStr
end pDialog
on parseUserEntry(dialogParameters)
set dialogParameters to my removeWindowsReturns(dialogParameters)
set msgItems to every paragraph of dialogParameters
set parameterTemplate to {dKey:“”, dValue:“”}
set userEntryRecs to {}
repeat with aLine in msgItems
tell (a reference to AppleScript’s text item delimiters)
set [astid, contents] to [contents, “=”] --need to check for = in the text string beyond bleah…
set [thisEntry, contents] to [(every text item of (contents of aLine)), astid]
end tell
–character set of returns must be addressed damnit
set parameterTemplate’s dKey to item 1 of thisEntry
set parameterTemplate’s dValue to item 2 of thisEntry
copy parameterTemplate to end of userEntryRecs
end repeat
return userEntryRecs
end parseUserEntry
on parseTextField(textString)
tell (a reference to AppleScript’s text item delimiters)
set [astid, contents] to [contents, “[return]”]
set [cleanText1, contents] to [every text item of textString, return]
set [cleanText2, contents] to [cleanText1 as text, astid]
end tell
return cleanText2
end parseTextField
on returnKeyValue(keyPairList, theKey)
repeat with aKey in keyPairList
try
if (contents of aKey)'s dKey = theKey then ¬
return (contents of aKey)'s dValue
end try
end repeat
error “The key "” & theKey & “" was not found.” as string
end returnKeyValue
on removeWindowsReturns(textString)
tell (a reference to AppleScript’s text item delimiters)
set [astid, contents] to [contents, WindowsLF]
set [cleanText1, contents] to [every text item of textString, “[return]”]
set [cleanText2, contents] to [cleanText1 as text, astid]
end tell
return cleanText2
end removeWindowsReturns