#col = 75; // 一行の文字数 golinetop; // 行の先頭へ copyword; // 一単語コピー(関数名) beginclipboardread; $func = getclipboard; // 関数名取得 while($func == ""){ // 関数名が指定されていない場合 message "関数名が指定されていません。"; $func = input ("関数名を指定して下さい。"); } deleteline; // 行削除 insert "/**eject*/\n"; // ドキュメント生成ツール用 call comline; insert "/*$f\t"; insert $func; // 関数名をペースト call comend; // コメントの終わり call comcom"書式"; insert "\t\t"; insert $func; // 関数名をペースト insert "\n"; call comcom "機能"; insert "\n"; call comemp; call comcom "戻り値"; insert "\n"; call comemp; call comcom "補足説明"; insert "\n"; call comemp; call comcom "変数"; call comline; up 12; right 2; endmacro; iast: while(x < ##1){ insert "*"; } return; itab: while(x < ##1-1){ insert "\t"; } return; comline: insert "/"; call iast #col-2; insert "/\n"; return; comend: call itab #col-2; insert "*/\n"; return; comemp: insert "/*"; call comend; return; comcom: insert "/*" + $$1 + ":"; call comend; return;