// カーソル語をルート直下SubDirでGrep
// GrepSubDirCurWord.ppa

// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに ppa.dll を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。

var // 変数を確保する場所
NewPath:String;
FullPath:String;
PDir,Dir,Fname,Ext:String;
pt:Integer; // 整数数値変数
NL:String;
CurWord:String;
Cnt:Integer; // 整数数値変数
begin // ここより処理内容 //{
// ↓改行を用意
NL := '
';
FullPath := S_GetFilename(); // 編集中のファイル名を取得する
CurWord := S_ExpandParameter('$C'); //

// フルパスファイル名（FullPath）をディレクトリ(Dir)とファイル名(Fname)に分離する。
Fname := FullPath;
Dir := '';
repeat //{
pt := Pos( '\' , Fname ); //'
if( pt > 0 ) then begin
Dir := Dir + Copy ( Fname , 1 , pt );
Fname := Delete( Fname , 1 , pt );
end;
until ( pt <= 0 ); //}

// ディレクトリ(Dir)を親ディレクトリ(PDir)とディレクトリ(Dir)に分離する。
if ( Length(Dir) > 3 ) then Dir := Delete(Dir,Length(Dir),1);
PDir := '';
Cnt := 0;
repeat //{
pt := Pos( '\' , Dir ); //'
if( pt > 0 ) then begin
PDir := PDir + Copy ( Dir , 1 , pt );
Dir := Delete( Dir , 1 , pt );
Cnt := Cnt + 1;
if ( Cnt > 1 ) then break;
end;
until ( pt <= 0 ); //}

NewPath := PDir ;

// ↓for デバッグ
// MessageBox(
// '[' + NewPath + ']' + NL +
// '[' + FullPath + ']' + NL +
// '[' + PDir + ']' + NL +
// '[' + Dir + ']' + NL +
// '[' + Fname + ']' + NL +
// '' , '確認.end' , 0 );

// NewPath が空で無ければ開く
if ( Length(CurWord) > 1 ) then
if (NewPath <> '') then S_Grep(CurWord,'*.cpp;*.c;*.h',NewPath,1);
end;
end;
//}