|
22
|
1 ;; -*-Emacs-Lisp-*-
|
|
|
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
3 ;;
|
|
|
4 ;; File: efs-plan9.el
|
|
|
5 ;; Release: $efs release: 1.15 $
|
|
|
6 ;; Version: $Revision: 1.1 $
|
|
|
7 ;; RCS:
|
|
|
8 ;; Description: efs support for the Plan 9 FTP Server
|
|
|
9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
|
|
|
10 ;; Created: Sat Jan 22 21:26:06 1994 by sandy on ibm550
|
|
|
11 ;; Modified: Sun Nov 27 18:41:05 1994 by sandy on gandalf
|
|
|
12 ;;
|
|
|
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
14
|
|
|
15 ;;; This file is part of efs. See efs.el for copyright
|
|
|
16 ;;; (it's copylefted) and warrranty (there isn't one) information.
|
|
|
17
|
|
|
18 ;;; Works for the plan 9 server plan9.att.com. Plan 9 is an
|
|
|
19 ;;; AT&T operating system that is similar to unix.
|
|
|
20
|
|
|
21 (provide 'efs-plan9)
|
|
|
22 (require 'efs)
|
|
|
23
|
|
|
24 (defconst efs-plan9-version
|
|
|
25 (concat (substring "$efs release: 1.15 $" 14 -2)
|
|
|
26 "/"
|
|
|
27 (substring "$Revision: 1.1 $" 11 -2)))
|
|
|
28
|
|
|
29 (efs-defun efs-fix-dir-path plan9 (dir-path)
|
|
|
30 ;; Convert DIR-PATH from UN*X-ish to Plan 9. Does nothing actually.
|
|
|
31 ;; Avoids appending the "." that we do in unix.
|
|
|
32 dir-path)
|
|
|
33
|
|
|
34 (efs-defun efs-allow-child-lookup plan9 (host user dir file)
|
|
|
35 ;; Returns t if FILE in directory DIR could possibly be a subdir
|
|
|
36 ;; according to its file-name syntax, and therefore a child listing should
|
|
|
37 ;; be attempted.
|
|
|
38 ;; Relies on the fact that directories can't have extensions in plan9,
|
|
|
39 ;; I think.
|
|
|
40 (and (not (and (string-equal dir "/") (string-equal file ".")))
|
|
|
41 (progn
|
|
|
42 ;; Makes sure that this is cached, before cd'ing
|
|
|
43 (efs-expand-tilde "~" 'plan9 host user)
|
|
|
44 (efs-raw-send-cd host user
|
|
|
45 (if (string-equal file ".")
|
|
|
46 (efs-internal-file-name-nondirectory
|
|
|
47 dir)
|
|
|
48 (concat dir file))
|
|
|
49 t))))
|
|
|
50
|
|
|
51 ;;; end of efs-plan9.el
|
