[MacPerl] Re: Problems installing Mac Glue

[John Delacour <JD@Pianomaker.co.uk>]

At 12:49 pm -0500 26/12/99, Chris Nandor wrote:

>Odd.  What version of cpan-mac do you have installed?

0.40.  I have only just dowloaded and installed it.

>
>
>>On my decoding them in the original folder, the installation went smoothly
>except that I had to move the scripts folder manually to site_perl.
>
>The scripts folder does not go in site_perl.  It doesn't really go
>anywhere, specifically.  Just wherever you feel like it.
>
>
>>All the scripts
>>Have problems with memory if MacPerl is not already running,
>
>What kind of problems?  Do you have more than one version of the MacPerl
>app installed?  If so, simply executing a script when MacPerl is not
>running may start the wrong version of the app for you.

I have only the latest version, r4.  Since I am new to MacPerl I have not messed about with any of the directories.

> >and all of them fail with problems in glue.pm, eg:
>>
>># Unquoted string "peffpwpc" may clash with future reserved word.
>>File 'D8:Program Files:MacPerl Ÿ:site_perl:Mac:Glue.pm'; Line 1
>># Unrecognized character \001.
>>File 'D8:Program Files:MacPerl Ÿ:site_perl:Mac:Glue.pm'; Line 1
>># BEGIN failed--compilation aborted.
>>File 'D8:Program Files:MacPerl Ÿ:site_perl:scripts:gluedialect'; Line 11
>>.....
>
>That is very odd.  The character "\001" does not exist in Mac::Glue, nor
>does the string "peffpwpc".  And since these all appear to be on line 1, it
>seems that the file did not get translated from Unix to Mac text;

It is a 1.7 Mb binary file beginning Joy!peffpwpc

> so again,
>as noted above, it seems cpan-mac is the culprit.  Either cpan-mac is not
>installed properly, or there is an old version installed.  Along with
>checking the version of cpan-mac installed, could you tell me what the
>contents of @INC are?
>
>  print join "\n", @INC;

D8:Program Files:MacPerl Ÿ:lib:MacPPC:
D8:Program Files:MacPerl Ÿ:lib:
D8:Program Files:MacPerl Ÿ:site_perl:MacPPC:
D8:Program Files:MacPerl Ÿ:site_perl:
:
Dev:Pseudo:


Part of the problem seems to have been caused by my dropping the expanded folder onto installme rather than the tar.gz.  At one point in the docs it says either method will do and at another there is a clear warning to use the compressed file.

I have now done a completely new install of MacPerl and this time there were no problems installing cpan-mac or Mac Glue, but I'm still warned of missing files when I install Mac-AppleEvents-Simple-0.81.tgz.


convert MacBinary :Mac-AppleEvents-Simple-0.81:blib:lib:MacPPC:auto:Mac:AppleEvents:AppleEvents.bin
LF->CR translate  :Mac-AppleEvents-Simple-0.81:Makefile.PL
LF->CR translate  :Mac-AppleEvents-Simple-0.81:MANIFEST
LF->CR translate  :Mac-AppleEvents-Simple-0.81:README
LF->CR translate  :Mac-AppleEvents-Simple-0.81:Simple.pm
LF->CR translate  :Mac-AppleEvents-Simple-0.81:test.pl
Checking if your kit is complete...
Warning: the following files are missing in your kit:
	:lib:Mac:AppleEvents.pm
	:lib:MacCFM68K:auto:Mac:AppleEvents:AppleEvents
	:lib:MacPPC:auto:Mac:AppleEvents:AppleEvents
Please inform the author.
Writing Makefile.mk for Mac::AppleEvents::Simple
...

The few events I've tried using the new files seem to work fine, and the files declared to me missing seem to be there, so maybe now things are all right.

Now a couple of simple questions.  Take the script:

use Mac::Glue;
my $obj = new Mac::Glue 'Eudora';
$obj->activate;
$obj->connect;


When run from MacPerl, the loading of the library always takes several seconds, no matter how often I run the script.  This is surprising to me after working with Script Editor, Frontier etc. where once the script is compiled, it will thereafter run fast even from the editor.

and how do I actually get the selected text as text using the following event?

use Mac::Glue;
my $obj = new Mac::Glue 'Eudora';
$obj -> get (selected_text);
print "\n" ; print $obj;
#--> Mac::Glue::GLUE0=HASH(0x21db2ec)

Is it possible to use the raw event codes rather than loading the library?



JD


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org