/***********************************************************
"cb.exe" main script
標準入力がリダイレクトされていれば、そこからデータを
取得してクリップボードに出力。リダイレクトされていな
ければ、クリップボードのテキストを取得して標準出力に
出力。
【2006/5/20 更新】
実行ファイルは自動作成で作って下さい。
***********************************************************/
/******************************/
/* 実行ファイル作成オプション */
/******************************/
#packopt name "cb"
#runtime "hsp3cl"
/******************/
/* 汎用モジュール */
/******************/
#include "gm_cb_text.hsp"
#include "gm_stdio.hsp"
/**************/
/* メイン処理 */
/**************/
buf = ""
/* 標準入力がリダイレクトされているかチェック */
if is_stdin_redirected() { // Yes
/* EOFまで標準入力を取得 */
input2 buf
/* クリップボードに出力 */
setcbtext buf
}
else { // No
/* クリップボードのテキストを取得 */
getcbtext buf
/* 標準出力に出力 */
mes2 buf
}
end
|