/***********************************************************
mes.exe main file
標準入力から来たデータ、またはコマンドライン引数に
指定されたパスのファイル内容をそのまま標準出力に出力
【2005/11/13 更新】
実行ファイルは自動作成で作って下さい。
***********************************************************/
#packopt name "mes"
#runtime "hsp3cl"
#include "gm_quote.hsp"
#include "gm_stdio.hsp"
#include "gm_crlf.hsp"
/* 入力を取得 */
if is_stdin_redirected() { // 標準入力がリダイレクトされている
input buf,,0 // 標準入力をEOFまで取得
}
else {
path = dir_cmdline
if path="" { // コマンドライン引数が指定されていない
input buf,,1 // キーボードからの入力を待つ
}
else {
/* コマンドライン引数から読み込むファイルのパスを取得 */
rmquot path,TYPE_DQUOTE
exist path
if strsize=-1 {
dialog path+"というファイルはありません。",1,"エラー"
end
}
notesel buf
noteload path
}
}
conv_crlf buf,TYPE_CRLF // 改行コードをCRLFに変換
/* 入力をそのまま出力 */
mes2 buf
end
|