/[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.152 by kai, Sun Jul 28 11:37:44 2002 UTC revision 2.153 by kai, Mon Jul 29 07:32:04 2002 UTC
# Line 1188  $s[7], $s[2], $s[1] >> 16 & 0xffff, $s[1 Line 1188  $s[7], $s[2], $s[1] >> 16 & 0xffff, $s[1
1188    "Perl script to produce output suitable for use with `file-attributes'    "Perl script to produce output suitable for use with `file-attributes'
1189  on the remote file system.")  on the remote file system.")
1190    
1191  (defvar tramp-perl-encode "%s -e'\  ;; ;; These two use uu encoding.
1192  print qq(begin 644 xxx\n);  ;; (defvar tramp-perl-encode "%s -e'\
1193  my $s = q();  ;; print qq(begin 644 xxx\n);
1194  my $res = q();  ;; my $s = q();
1195  while (read(STDIN, $s, 45)) {  ;; my $res = q();
1196      print pack(q(u), $s);  ;; while (read(STDIN, $s, 45)) {
1197  }  ;;     print pack(q(u), $s);
1198  print qq(`\n);  ;; }
1199  print qq(end\n);  ;; print qq(`\n);
1200  '"  ;; print qq(end\n);
1201    ;; '"
1202    ;;   "Perl program to use for encoding a file.
1203    ;; Escape sequence %s is replaced with name of Perl binary.")
1204    
1205    ;; (defvar tramp-perl-decode "%s -ne '
1206    ;; print unpack q(u), $_;
1207    ;; '"
1208    ;;   "Perl program to use for decoding a file.
1209    ;; Escape sequence %s is replaced with name of Perl binary.")
1210    
1211    ;; These two use base64 encoding.
1212    (defvar tramp-perl-encode
1213      "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'"
1214    "Perl program to use for encoding a file.    "Perl program to use for encoding a file.
1215  Escape sequence %s is replaced with name of Perl binary.")  Escape sequence %s is replaced with name of Perl binary.")
1216    
1217  (defvar tramp-perl-decode "%s -ne '  (defvar tramp-perl-decode
1218  print unpack q(u), $_;    "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'"
 '"  
1219    "Perl program to use for decoding a file.    "Perl program to use for decoding a file.
1220  Escape sequence %s is replaced with name of Perl binary.")  Escape sequence %s is replaced with name of Perl binary.")
1221    
   
1222  ; These values conform to `file-attributes' from XEmacs 21.2.  ; These values conform to `file-attributes' from XEmacs 21.2.
1223  ; GNU Emacs and other tools not checked.  ; GNU Emacs and other tools not checked.
1224  (defconst tramp-file-mode-type-map '((0  . "-")  ; Normal file (SVID-v2 and XPG2)  (defconst tramp-file-mode-type-map '((0  . "-")  ; Normal file (SVID-v2 and XPG2)
# Line 4404  locale to C and sets up the remote shell Line 4415  locale to C and sets up the remote shell
4415  ;; alternative is to use the Perl version of UU encoding.  But then  ;; alternative is to use the Perl version of UU encoding.  But then
4416  ;; we need a Lisp version of uuencode.  ;; we need a Lisp version of uuencode.
4417  (defvar tramp-coding-commands  (defvar tramp-coding-commands
4418    `(("mimencode -b" "mimencode -u -b"    '(("mimencode -b" "mimencode -u -b"
4419       base64-encode-region base64-decode-region)       base64-encode-region base64-decode-region)
4420      ("mmencode -b" "mmencode -u -b"      ("mmencode -b" "mmencode -u -b"
4421       base64-encode-region base64-decode-region)       base64-encode-region base64-decode-region)
# Line 4412  locale to C and sets up the remote shell Line 4423  locale to C and sets up the remote shell
4423       nil uudecode-decode-region)       nil uudecode-decode-region)
4424      ("uuencode xxx" "uudecode -p"      ("uuencode xxx" "uudecode -p"
4425       nil uudecode-decode-region)       nil uudecode-decode-region)
4426  ;;     ("tramp_encode" "tramp_decode"      ("tramp_encode" "tramp_decode"
4427  ;;      "uuencode xxx" uudecode-decode-region)       base64-encode-region base64-decode-region))
     )  
4428    "List of coding commands for inline transfer.    "List of coding commands for inline transfer.
4429  Each item is a list (ENCODING-COMMAND DECODING-COMMAND  Each item is a list (ENCODING-COMMAND DECODING-COMMAND
4430  ENCODING-FUNCTION DECODING-FUNCTION).  ENCODING-FUNCTION DECODING-FUNCTION).

Legend:
Removed from v.2.152  
changed lines
  Added in v.2.153

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