6076 |
ange-ftp-bs2000-host-regexp) |
ange-ftp-bs2000-host-regexp) |
6077 |
ange-ftp-host-cache nil))) |
ange-ftp-host-cache nil))) |
6078 |
|
|
6079 |
|
(defvar ange-ftp-bs2000-posix-hook-installed nil) |
6080 |
|
|
6081 |
(defun ange-ftp-add-bs2000-posix-host (host) |
(defun ange-ftp-add-bs2000-posix-host (host) |
6082 |
"Mark HOST as the name of a machine running BS2000 with POSIX subsystem." |
"Mark HOST as the name of a machine running BS2000 with POSIX subsystem." |
6083 |
(interactive |
(interactive |
6147 |
(cons '(bs2000 . ange-ftp-parse-bs2000-listing) |
(cons '(bs2000 . ange-ftp-parse-bs2000-listing) |
6148 |
ange-ftp-parse-list-func-alist))) |
ange-ftp-parse-list-func-alist))) |
6149 |
|
|
|
(defvar ange-ftp-bs2000-posix-hook-installed nil) |
|
6150 |
(defun ange-ftp-bs2000-cd-to-posix () |
(defun ange-ftp-bs2000-cd-to-posix () |
6151 |
"cd to POSIX subsystem if the current host matches |
"cd to POSIX subsystem if the current host matches |
6152 |
ange-ftp-bs2000-posix-host-regexp. All BS2000 hosts with POSIX subsystem |
ange-ftp-bs2000-posix-host-regexp. All BS2000 hosts with POSIX subsystem |
6158 |
; (ange-ftp-raw-send-cmd proc "cd %POSIX") |
; (ange-ftp-raw-send-cmd proc "cd %POSIX") |
6159 |
(ange-ftp-cd host user "%POSIX") |
(ange-ftp-cd host user "%POSIX") |
6160 |
;; put new home directory in the expand-dir hashtable. |
;; put new home directory in the expand-dir hashtable. |
6161 |
|
;; `host' and `user' are bound in ange-ftp-get-process. |
6162 |
(ange-ftp-put-hash-entry (concat host "/" user "/~") |
(ange-ftp-put-hash-entry (concat host "/" user "/~") |
6163 |
(car (ange-ftp-get-pwd host user)) |
(car (ange-ftp-get-pwd host user)) |
6164 |
ange-ftp-expand-dir-hashtable)))) |
ange-ftp-expand-dir-hashtable)))) |