&MacPerl'DoAppleScript(<<ENDIT);
tell application "Data:Mike:Projects:cvs-1.8.6:macintosh:MacCVS"
do script { "status" } environment { "CVSROOT", "ladwig\@manic:/projects/sdt/repository/eM2" }
end tell
ENDIT
exit(0);
#
# This fragment illustrates how to invoke MacCVS change its directory prior to executing
# the CVS command. This is akin to being in a directory when you invoke CVS.
#
&MacPerl'DoAppleScript(<<ENDIT);
tell application "Data:Mike:Projects:cvs-1.8.6:macintosh:MacCVS"
do script { "status" } environment { "CVSROOT", "ladwig\@manic:/projects/sdt/repository/eM2" } pathway "OS:Workspace:eM:src:daemon"
end tell
ENDIT
exit(0);
use Mac::AppleEvents;
AEInstallEventHandler("MCVS", "DATA", "MacCVSData", 0);
&MacPerl'DoAppleScript(<<ENDIT);
tell application "Data:Mike:Projects:cvs-1.8.6:macintosh:MacCVS.PPC"
do script { "-help add" } environment { "CVSROOT", "ladwig\@manic:/projects/sdt/repository/sdt" } Mode AE
end tell
ENDIT
$done = 0;
$in = 0;
while( $done = 0 ) { sleep(1);}
print "QUITTING!\n";
AERemoveEventHandler ("MCVS", "DATA");
exit(0);
sub MacCVSData {
my($event) = @_;
print "**** MCVS/Data Handler called\n";
$rDesc = AEGetParamDesc($event, "----");
if( $rDesc )
{
$data = AEPrint($rDesc);
chop $data; $data = substr($data, 1);
print "---- data = <$data> \n";
}
AEDisposeDesc($rDesc);
$rDesc = AEGetParamDesc($event, "DONE");
if( $rDesc )
{ print "!!!! DONE\n"; $done = 1; AEDisposeDesc($rDesc); }
print "Exiting MCVS/Data Handler ****\n";
return 0;
}
#
# This fragment illustrates how to have MacCVS save the results to a file in your MacOS
# filesystem.
#
&MacPerl'DoAppleScript(<<ENDIT);
tell application "Data:Projects:cvs-1.8.6:macintosh:MacCVS"
do script { "-d ladwig\@manic:/projects/sdt/repository/eM2", "status" } mode file filename "os:out.file"
end tell
ENDIT
exit(0);