Re: [MacPerl] Re: [MacPerl-Toolbox] New Mac::OSA::Simple, p2as

[Chris Nandor <pudge@pobox.com>]

At 10.49 -0500 1999.03.12, Jefferson R. Lowrey wrote:
>>sub fix_text (\$) {
>>    my $text = shift;
>>
>>    # more to do than just fix " marks and \ ?
>>    $$text =~ s/\\/\\\\/g;
>>    $$text =~ s/"/\\"/g;
>>
>>    1;
>>}
>
>Do we want to recognize the AppleScript line continuation character?  It
>might not be terribly necessary, but there could be instances where people
>are reading in scripts that have it.  I'm going to type it in in quotes,
>and hope it doesn't get too mangled by mailers "Â".  I assume the AS
>compiler recognizes it by ASCII value - but that might not be true.  If so,
>it's 194.

It shouldn't need to be escaped, because when in quotes in AppleScript, it
is treated as normal text, which is what is wanted.  So:

  --- script.plx ---
  print "Â"

Becomes:

  --- script.scr ---

  tell application "MacPerl" to Do Script "print \"Â\""

Which does what we want.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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