//---------------------------------------------------------------------------
//  STRRSTR     :   指定文字列の最後から文字(列)を探すルーチン
//      [Usage] :
//          call STRRSTR $$str, $$s_str;
//          ##num = ##return;
//
//          $$str       :   検索対象の文字列
//          $$s_str     :   検索する文字(列)
//          ##num       :   見つかった場所(strstr() 関数の戻り値と同じ仕様)
//
STRRSTR:
    ##l = strlen($$1);
    ##n = strlen($$2);
    ##off = 0;
    while( 1 ){
        ##s = strstr($$1,$$2);
        if( !(##s+1) ) break;
        $$1 = midstr($$1,##s+##n,##l);
        ##off = ##off + ##s + ##n;
    }
    if( !##off ) return -1;
    else return ##off - ##n;
//---------------------------------------------------------------------------