#!/usr/local/bin/tt

# 超簡単な grep コマンドだにゃん♪

/*--1---2---3---4---5---6---7---8---9---A---B---C---D---E---F---G---H---I---J---K---L---M---N---*/

# 引数の確認
if( argc!=2 && argc!=3 )
    dying("使い方:  grep  正規表現パターン  [ファイル名]\n")

# パターンの取得   → p は正規表現パターン（文字列）
p = shift ( )                           # 最初のパラメーターを取得
p = regexp(p)                           # 正規表現のコンパイル

# ファイル名の取得 → f はファイル名（文字列）
f = shift(stdin)                        # 未指定時は stdin を戻す

# ファイルの読み込み＆マッチ行の表示（ファイルは自動オープン＆自動クローズ）
while( s=gets(f) ){                     # １行毎に読み込む（ファイル末で s=NULL となりループ終了）
    if( s~~p )                          # もし、行 s がパターン p にマッチしたら...
        puts(s)                         # 行 s を標準出力に出力
}
