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) |
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) |
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). |