I have two snippets of AppleScript that I want to be able to execute
from a Perl program.
(Forgive me for a bunch of references to variables and functions that
are set as part of a larger enclosing script such as xbhome workdir,
CVSSetup, cwtarg, goodbuild, workmsg1() etc... these snippets would not
work standalone as shown).
first one talks to MacCVS Pro.
with timeout of 600 seconds
tell application "MacCVSPro"
open CVSSetup
set module name of session "xb.cvs" to "System"
set CVS root of session "xb.cvs" to "/drive1/cvs"
set local root of session "xb.cvs" to (xbhome & ":" & workdir) as
alias
tell session "xb.cvs"
check out
save
close
end tell
quit
end tell
end timeout
second one talks to CodeWarrior:
try
with timeout of 15000 seconds
tell application "CodeWarrior IDE 4.2.6"
activate
Set Current Target cwtarg
Make Project
end tell
end timeout
on error number errnum
workmsg1("Error in CW project make: " & errnum)
set goodbuild to 0 -- it's OK to have compile errors, we keep working
if errnum = -128 then
workmsg1(" (User canceled)")
set good to 0 -- it was canceled
end if
end try
How would I go about translating either of these scripts into a form
that I could embed in a Perl program?
Can I just take the raw text (after having dealt with any variable
references and moving data between the Perl world and the AS world) and
run it as shown here in the link below?
http://search.cpan.org/author/JLABOVITZ/Mac-AppleScript-Glue-0.03/
Glue.pm
(under "FUNCTIONS")
How might I best go about exporting a multivalued set of results from
the AS world (say a boolean and a pathname?)
