#!Perl
#
#MacPerl:
# for 8th-bit characters on the clipboard, turn them into \xEF
#  where EF is the appropriate hex code
#

package Dartmouth;
&MacPerl::LoadExternals("clipboard.XFCN");
# XCMD for clipboard processing.  Available at
#http://www.unimelb.edu.au/~ssilcot/macperl-primer/scripts/lib/clipboard.XFCN.sea.hqx
# if you need it
package main;

&Dartmouth::Clipboard(
                      &x_escape( &Dartmouth::Clipboard() )
                     );
exit;

sub x_escape {
 my $foo = $_[0];
 $foo =~ s/([\x80-\xFF])/'\x'.(unpack("H2",$1))/eg;
 return $foo;
}