/***********************************************************
"lnpfx.exe" main script
【2005/11/18 更新】
引数に指定された文字列を標準入力から取得したテキストの
各行頭に追加、または各行頭から削除するコンソール・アプリ
引数
p1： 各行頭に追加または削除する文字列
（必ず""で囲む。）
（"を指定するのは不可）
オプション
(なし)： p1に指定された文字列を行頭に追加
/r： p1に指定された文字列を行頭から削除
使用上の注意
出力されるテキストの改行コードは自動的にCRLF形式
に変換されます。
同梱の実行ファイルは[実行ファイル自動作成]で作りました。
***********************************************************/
/******************************/
/* 実行ファイル作成オプション */
/******************************/
#packopt name "lnpfx"
#runtime "hsp3cl"
/******************/
/* 定数マクロなど */
/******************/
#define PREFIX_REMOVE "r"
/******************/
/* 汎用モジュール */
/******************/
#include "gm_stdio.hsp"
#include "gm_crlf.hsp"
#include "gm_record_str.hsp"
#include "gm_cmdline.hsp"
#include "gm_quote.hsp"
#include "gm_rm_fix.hsp"
/**************/
/* メイン処理 */
/**************/
/* 処理対象データを取得 */
if is_stdin_redirected() { // 標準入力がリダイレクトされている
; input buf,,0
/*
input命令を使うと受け取るデータが大きいとき
システムエラー（error 1）が発生して落ちる。
bufのサイズを十分に確保していてもダメ。
*/
input2 buf
}
else {
end // 標準入力がリダイレクトされていなければ終了
}
conv_crlf buf,TYPE_CRLF // 改行コードをCRLFに変換
/* 引数とオプションに従ってデータを加工 */
i = 0
p1 = getarg(i)
rmquot p1,TYPE_DQUOTE
if p1="" {
goto *@f // 引数が指定されていなければそのまま出力して終了
}
notesel buf
repeat notemax
noteget linestr,cnt
if chkopt(PREFIX_REMOVE) {
rm_prefix linestr,p1
}
else {
linestr = p1+linestr
}
noteadd linestr,cnt,1
loop
*@
/* 出力 */
mes2 buf
end
|