[xyzzy:04332] Re: 関数一覧

[Masahiro Hayashi <hayashi@xxxxxxxxxxxxxx>]

亀井さんありがとうございます。林です。

Tetsuya Kamei <kamei@xxxxxxxxxxxx> wrote:
> (match-string N) は、N 番目の \(...\) に対応する文字列
> を持ってくるので、\(...\) を追加した場合はその分増やさ
> なければなりません。
　なるほど、うまくいきました。

たったこれだけからも、色々勉強できて非常におもしろいです。

ヒントが欲しいのですが、もし良ければ教えてください。
先ほどのコードをしたのようにして、

  (scan-buffer "^[ \t]*procedure[ \t]+\\([^ \t\n{(]+\\)"
			  :regexp t :tail t)
  (setq str (match-string 2))
　(push (list (current-line-number) str) result)

となっていますが、
 (setq str ())
でどのように入れたら、現在の位置から行末までの文字列が取れますか？
scan-bufferで :tail tなので例えば
 procedure sample(var sam:string);
なら、scan-bufferが終わったところで
　procedure sample(
の最後にポイント？があると思うのですが、どうにかすれば
var sam:string);
が取れそうなのですが、どうやればよいのでしょうか？
current-line-numberがあるので、現在ヒットしている
　procedure sample(
が分かれば何とかなりそうなのですが・・

色々試してみたのですが、どうもうまくいかないので、ヒントを教えてい
ただきたいです。

聞いてばかりで、申し訳ないです。

- 
--------------------------------------------
（株）インテック  システム事業本部
　　　　　　　　データウェアシステム部
　 開発グループ　    林　雅大  (Masahiro.H)
         e-mail: hayashi@xxxxxxxxxxxxxx
　〒136-8637 東京都江東区新砂 1-3-3
　TEL (03)5665-5137　　FAX (03)5665-5186
--------------------------------------------
                             (_ _) ZZZzzz....