/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.165 by kai, Sat Aug 3 09:25:07 2002 UTC revision 2.166 by kai, Sat Aug 3 15:45:12 2002 UTC
# Line 1244  on the remote file system.") Line 1244  on the remote file system.")
1244    "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'"    "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'"
1245    "Perl program to use for encoding a file.    "Perl program to use for encoding a file.
1246  Escape sequence %s is replaced with name of Perl binary.  Escape sequence %s is replaced with name of Perl binary.
1247    This string is passwd to `format', so percent characters need to be doubled.
1248  This implementation requires the MIME::Base64 Perl module to be installed  This implementation requires the MIME::Base64 Perl module to be installed
1249  on the remote host.")  on the remote host.")
1250    
# Line 1251  on the remote host.") Line 1252  on the remote host.")
1252    "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'"    "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'"
1253    "Perl program to use for decoding a file.    "Perl program to use for decoding a file.
1254  Escape sequence %s is replaced with name of Perl binary.  Escape sequence %s is replaced with name of Perl binary.
1255    This string is passwd to `format', so percent characters need to be doubled.
1256  This implementation requires the MIME::Base64 Perl module to be installed  This implementation requires the MIME::Base64 Perl module to be installed
1257  on the remote host.")  on the remote host.")
1258    
# Line 1260  on the remote host.") Line 1262  on the remote host.")
1262  # Copyright (C) 2002 Free Software Foundation, Inc.  # Copyright (C) 2002 Free Software Foundation, Inc.
1263  use strict;  use strict;
1264    
1265  my %trans = do {  my %%trans = do {
1266      my $i = 0;      my $i = 0;
1267      map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}      map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
1268        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
# Line 1277  while (my $data = <STDIN>) { Line 1279  while (my $data = <STDIN>) {
1279    
1280      # Only for the last chunk, and only if did not fill the last three-byte packet      # Only for the last chunk, and only if did not fill the last three-byte packet
1281      if (eof) {      if (eof) {
1282          my $mod = length($data) % 3;          my $mod = length($data) %% 3;
1283          $pad = q(=) x (3 - $mod) if $mod;          $pad = q(=) x (3 - $mod) if $mod;
1284      }      }
1285    
# Line 1293  while (my $data = <STDIN>) { Line 1295  while (my $data = <STDIN>) {
1295  }  }
1296  '"  '"
1297    "Perl program to use for encoding a file.    "Perl program to use for encoding a file.
1298  Escape sequence %s is replaced with name of Perl binary.")  Escape sequence %s is replaced with name of Perl binary.
1299    This string is passwd to `format', so percent characters need to be doubled.")
1300    
1301  (defvar tramp-perl-decode  (defvar tramp-perl-decode
1302    "%s -e '    "%s -e '
# Line 1301  Escape sequence %s is replaced with name Line 1304  Escape sequence %s is replaced with name
1304  # Copyright (C) 2002 Free Software Foundation, Inc.  # Copyright (C) 2002 Free Software Foundation, Inc.
1305  use strict;  use strict;
1306    
1307  my %trans = do {  my %%trans = do {
1308      my $i = 0;      my $i = 0;
1309      map {($_, sprintf(q(%06b), $i++))}      map {($_, sprintf(q(%%06b), $i++))}
1310        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)
1311  };  };
1312    
1313  my %bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;  my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
1314    
1315  binmode(\*STDOUT);  binmode(\*STDOUT);
1316    
# Line 1336  while (my $data = <STDIN>) { Line 1339  while (my $data = <STDIN>) {
1339  }  }
1340  '"  '"
1341    "Perl program to use for decoding a file.    "Perl program to use for decoding a file.
1342  Escape sequence %s is replaced with name of Perl binary.")  Escape sequence %s is replaced with name of Perl binary.
1343    This string is passwd to `format', so percent characters need to be doubled.")
1344    
1345  ; These values conform to `file-attributes' from XEmacs 21.2.  ; These values conform to `file-attributes' from XEmacs 21.2.
1346  ; GNU Emacs and other tools not checked.  ; GNU Emacs and other tools not checked.

Legend:
Removed from v.2.165  
changed lines
  Added in v.2.166

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26