Tramp Trips

Tramp Trips

[Tak Ota]

I thought the tramp takes care of ange-ftp path name.  Why does it
complain about the name "/ota@xenon:~/"?

I am using the CVS head updated on Aug. 6th.

-Tak

Debugger entered--Lisp error: (error "Not a tramp file name: /ota@xenon:~/")
  signal(error ("Not a tramp file name: /ota@xenon:~/"))
  error("Not a tramp file name: %s" "/ota@xenon:~/")
  (if (string-match (nth 0 tramp-file-name-structure) name) nil (error "Not a tramp file name: %s" name))
  (unless (string-match (nth 0 tramp-file-name-structure) name) (error "Not a tramp file name: %s" name))
  (progn (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (unwind-protect (progn (unless ... ...) (setq method ...) (if ... ... ...)) (set-match-data save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ...) (set-match-data save-match-data-internal)))
  (save-match-data (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (let (method) (save-match-data (unless ... ...) (setq method ...) (if ... ... ...)))
  tramp-dissect-file-name("/ota@xenon:~/")
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path ...)) (unless (file-name-absolute-p path) (setq path ...)) (save-excursion (when ... ...) (tramp-make-tramp-file-name multi-method method user host ...)))
  (if (not (tramp-tramp-file-p name)) (tramp-run-real-handler (quote expand-file-name) (list name nil)) (let* (... ... ... ... ... ...) (unless ... ...) (save-excursion ... ...)))
  tramp-handle-expand-file-name("/ota@xenon:~/" nil)
  apply(tramp-handle-expand-file-name ("/ota@xenon:~/" nil))
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (if fn (save-match-data (apply ... args)) (tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (save-match-data ...) (tramp-run-real-handler operation args)))
  tramp-file-name-handler(expand-file-name "/ota@xenon:~/" nil)
  expand-file-name("/ota@xenon:~/")
  ffap()
  call-interactively(ffap)
  byte-code("ÀÁ!ˆp‡" [call-interactively ffap] 2)
  ffap-other-window()
* call-interactively(ffap-other-window)

Re: Tramp Trips

[Kai Großjohann]

Tak Ota <Takaaki.Ota@am.sony.com> writes:

> I thought the tramp takes care of ange-ftp path name.  Why does it
> complain about the name "/ota@xenon:~/"?
>
> I am using the CVS head updated on Aug. 6th.
>
> -Tak
>
> Debugger entered--Lisp error: (error "Not a tramp file name: /ota@xenon:~/")
>   signal(error ("Not a tramp file name: /ota@xenon:~/"))
>   error("Not a tramp file name: %s" "/ota@xenon:~/")

What's tramp-file-name-structure when this happens?  It should be:

/----
| tramp-file-name-structure's value is 
| ("\\`/\\(\\([a-zA-Z0-9-]+\\):\\)?\\(\\([^:@/]+\\)@\\)?\\([^:/]+\\):\\(.*\\)\\'" 2 4 5 6)
| 
| 
| *List of five elements (REGEXP METHOD USER HOST FILE), detailing the tramp file name structure.
| 
| The first element REGEXP is a regular expression matching a tramp file
| name.  The regex should contain parentheses around the method name,
| the user name, the host name, and the file name parts.
| 
| The second element METHOD is a number, saying which pair of
| parentheses matches the method name.  The third element USER is
| similar, but for the user name.  The fourth element HOST is similar,
| but for the host name.  The fifth element FILE is for the file name.
| These numbers are passed directly to `match-string', which see.  That
| means the opening parentheses are counted to identify the pair.
| 
| See also `tramp-file-name-regexp' and `tramp-make-tramp-file-format'.
| 
| You can customize this variable.
| 
| Defined in `tramp'.
\----

What happens when you eval the following Lisp expression?  (The
second line shows the result when I do it.)

(tramp-dissect-file-name "/ota@xenon:~/")
[cl-struct-tramp-file-name nil "sm" "ota" "xenon" "~/"]

The "sm" is wrong.  I think it's due to our broken local config.  It
should be "ssh".

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)

Re: Tramp Trips

[Tak Ota]

Wed, 07 Aug 2002 12:34:23 +0200: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) wrote:

> What's tramp-file-name-structure when this happens?  It should be:
> 
> /----
> | tramp-file-name-structure's value is 
> | ("\\`/\\(\\([a-zA-Z0-9-]+\\):\\)?\\(\\([^:@/]+\\)@\\)?\\([^:/]+\\):\\(.*\\)\\'" 2 4 5 6)
> | 
> | 
> | *List of five elements (REGEXP METHOD USER HOST FILE), detailing the tramp file name structure.
> | 
> | The first element REGEXP is a regular expression matching a tramp file
> | name.  The regex should contain parentheses around the method name,
> | the user name, the host name, and the file name parts.
> | 
> | The second element METHOD is a number, saying which pair of
> | parentheses matches the method name.  The third element USER is
> | similar, but for the user name.  The fourth element HOST is similar,
> | but for the host name.  The fifth element FILE is for the file name.
> | These numbers are passed directly to `match-string', which see.  That
> | means the opening parentheses are counted to identify the pair.
> | 
> | See also `tramp-file-name-regexp' and `tramp-make-tramp-file-format'.
> | 
> | You can customize this variable.
> | 
> | Defined in `tramp'.
> \----

This is what I get.  It looks slightly different from yours.

  tramp-file-name-structure's value is 
  ("\\`/r\\(@\\([a-z0-9]+\\)\\)?:\\(\\([-a-z0-9_#]+\\)@\\)?\\([-a-z0-9.]+\\):\\(.*\\)\\'" 2 4 5 6)


  *List of five elements (REGEXP METHOD USER HOST FILE), detailing the tramp file name structure.

  The first element REGEXP is a regular expression matching a tramp file
  name.  The regex should contain parentheses around the method name,
  the user name, the host name, and the file name parts.

  The second element METHOD is a number, saying which pair of
  parentheses matches the method name.  The third element USER is
  similar, but for the user name.  The fourth element HOST is similar,
  but for the host name.  The fifth element FILE is for the file name.
  These numbers are passed directly to `match-string', which see.  That
  means the opening parentheses are counted to identify the pair.

  See also `tramp-file-name-regexp' and `tramp-make-tramp-file-format'.

  You can customize this variable.

  Defined in `tramp'.


M-x tramp-version returns this.

"$Id: tramp.el,v 2.0.2.3 2001/03/28 21:44:30 grossjoh Exp $"


> What happens when you eval the following Lisp expression?  (The
> second line shows the result when I do it.)
> 
> (tramp-dissect-file-name "/ota@xenon:~/")
> [cl-struct-tramp-file-name nil "sm" "ota" "xenon" "~/"]
> 
> The "sm" is wrong.  I think it's due to our broken local config.  It
> should be "ssh".

It ends up with the same error as this.


Debugger entered--Lisp error: (error "Not a tramp file name: /ota@xenon:~/")
  signal(error ("Not a tramp file name: /ota@xenon:~/"))
  error("Not a tramp file name: %s" "/ota@xenon:~/")
  (if (string-match (nth 0 tramp-file-name-structure) name) nil (error "Not a tramp file name: %s" name))
  (unless (string-match (nth 0 tramp-file-name-structure) name) (error "Not a tramp file name: %s" name))
  (progn (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (unwind-protect (progn (unless ... ...) (setq method ...) (if ... ... ...)) (set-match-data save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ...) (set-match-data save-match-data-internal)))
  (save-match-data (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (let (method) (save-match-data (unless ... ...) (setq method ...) (if ... ... ...)))
  tramp-dissect-file-name("/ota@xenon:~/")

Re: Tramp Trips

[Tak Ota]

Please disregard my previous messages regarding the tramp problem.  I
had some old version of tramp package in my site-lisp directory.
Sorry for the confusion.  Now the tramp-version returns 2.0.12.

-Tak

Re: Tramp Trips

[Kai Großjohann]

Tak Ota <Takaaki.Ota@am.sony.com> writes:

> Please disregard my previous messages regarding the tramp problem.  I
> had some old version of tramp package in my site-lisp directory.
> Sorry for the confusion.  Now the tramp-version returns 2.0.12.

So I assume there are no bugs now, and Tramp works as advertised.  If
this is not the case, send another message :-)

kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)