Mac::OSA::Simple - Simple access to Mac::OSA
#!perl -wl use Mac::OSA::Simple; osa_script('LAND', <<'EOS'); dialog.getInt ("Duration?",@examples.duration); dialog.getInt ("Amplitude?",@examples.amplitude); dialog.getInt ("Frequency?",@examples.frequency); speaker.sound (examples.duration, examples.amplitude, examples.frequency) EOS print frontier('clock.now()'); applescript('beep 3');
**MAJOR CHANGE** Scripting component in osa_script and compile_osa_script is now the first parameter, not the second. Now the script text is second.
You can access scripting components via the tied hash %ScriptComponents which is automatically exported. Components are only opened if they have not been already, and are closed when the program exits. It is normally not necessary to use this hash, as it is accessed internally when needed.
%ScriptComponents
Also usually not necessary, but possibly useful, are all the functions and constants from Mac::OSA, available with the EXPORT_TAG "all".
The following functions are automatically exported.
Compiles and executes SCRIPTTEXT, using four-char SCRIPTCOMPONENT. Component is opened and closed behind the scenes, and SCRIPTTEXT is compiled, executed, and disposed of behind the scenes. If the script returns data, the function returns the data, else it returns 1 or undef on failure.
Same thing as osa_script with SCRIPTCOMPONENT already set ('ascr' for AppleScript, 'LAND' for Frontier).
osa_script
Compiles script as osa_script above, but does not execute it. Returns Mac::OSA::Simple object. See "Methods" for more information.
Same thing as compile_osa_script with SCRIPTCOMPONENT already set.
compile_osa_script
In the first form, load compiled OSA script using data in HANDLE (same data as returned by compiled method; see Mac::Memory). In the second form, with FROMFILE true, gets script from FILE using RESOURCEID (which is 128 by default). Returns Mac::OSA::Simple object.
compiled
**NOTE** This function uses FSpOpenResFile, which has a bug in it that causes it to treat $ENV{MACPERL} as the current directory. For safety, always pass FILE as an absolute path, for now.
Example:
use Mac::OSA::Simple qw(:all); use Mac::Resources; $res = FSpOpenResFile($file, 0) or die $^E; $scpt = Get1Resource(kOSAScriptResourceType, 128) or die $^E; $osa = load_osa_script($scpt); $osa->execute; CloseResFile($res);
Same thing:
use Mac::OSA::Simple; $osa = load_osa_script($file, 1); $osa->execute;
Another example:
use Mac::OSA::Simple; $osa1 = compile_applecript('return "foo"'); print $osa1->execute; # make copy of script in $osa1 and execute it $osa2 = load_osa_script($osa1->compiled); print $osa2->execute;
See "Methods" for more information.
This section describes methods for use on objects returned by compile_osa_script and its related functions and load_osa_script.
load_osa_script
Returns a HANDLE containing the raw compiled form of the script (see Mac::Memory).
Disposes of OSA script. Done automatically if not called explicitly.
Executes script. Can be executed more than once.
Saves script in FILE with ID and NAME. ID defaults to 128, NAME defaults to "MacPerl Script". DANGEROUS! Will overwrite existing resource!
load_osa_script function and save method require absolute paths. Problem in Mac::Resources itself.
save
Work on error handling. We don't want to die when a toolbox function fails. We'd rather return undef and have the user check $^E.
Should frontier() and/or osa_script('LAND', $script) launch Frontier if it is not running?
frontier()
osa_script('LAND', $script)
Changed around the argument order for osa_script and compile_osa_script.
Added load_osa_script function.
Added save method.
Added lots of tests.
Added lots of stuff to get compiled script data.
Here goes ...
Chris Nandor <pudge@pobox.com> http://pudge.net/
Copyright (c) 1999 Chris Nandor. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Please see the Perl Artistic License.
Mac::OSA, Mac::AppleEvents, Mac::AppleEvents::Simple, macperlcat.
Version 0.50 (Friday, March 12, 1999)
To install Mac::OSA::Simple, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mac::OSA::Simple
CPAN shell
perl -MCPAN -e shell install Mac::OSA::Simple
For more information on module installation, please visit the detailed CPAN module installation guide.