Re: w3m-expand-url

[Hidefumi Fujimoto <fujimoto@xxxxxxxxxxxxxxx>]

藤本と申します。

> ## 他に VC++ で Make した Meadow3 使っている人いませんかぁ〜〜〜。

VC++7で参考にならないかもしれませんが、以下のようになりました。

(let ((urls '("?y"
	      "/../g"
	      "../../../g"
	      "http:g"
	      "./g/."
	      "/./g"
	      ".."
	      "."))
      (i 1)
      url)
  (while (setq url (car urls))
    (insert (format "%d %s" i url))
    (move-to-column 16 t)
    (insert (format "%s\n" (w3m-expand-url url "http://a/b/c/d;p?q")))
    (setq urls (cdr urls))
    (setq i (1+ i))))
1 ?y			http://a/b/c/d;p?y
2 /../g			http://a/g
3 ../../../g	http://a/g
4 http:g		http://a/b/c/g
5 ./g/.			http://a/b/c/g
6 /./g			http://a/g
7 ..			http://a/b
8 .				http://a/b/c
nil

(w3m-expand-url "../../hoge/fuga.html" "http://exsample.com/foo/bar/")
"http://exsample.com/hoge/fuga.html"

-- 
#####################
藤本  英史 ( Hidefumi Fujimoto )
#####################