//***************************************************************************** // でるもんたの HTML 補助モード //***************************************************************************** $RCSID = "$Id: ds_html.mac 1.5 2005/06/12 10:58:21 delmonta Exp $"; //-------------------------------- データの定義 ------------------------------- $Tag['1']="h1"; $Tag['2']="h2"; $Tag['3']="h3"; $Tag['4']="h4"; $Tag['5']="h5"; $Tag['6']="h6"; $Tag['a']="a"; $Parameter['a']="href=\"\" name=\"\""; $Tag['b']="b"; $Tag['B']="blockquote"; $Tag['c']="code"; $Tag['C']="center"; $Tag['e']="em"; $Tag['f']="font"; $Parameter['f']="color=\"\""; $Tag['i']="i"; $Tag['k']="kbd"; $Tag['n']="nobr"; $Tag['O']="ol"; $Tag['p']="pre"; $Tag['R']="ruby"; $Tag['s']="strong"; $Tag['S']="select"; $Tag['t']="tt"; $Tag['u']="u"; $Tag['U']="ul"; $Tag['x']="s"; $Tag['^']="sup"; $Tag['_']="sub"; $Tag['+']="big"; $Tag['-']="small"; //------------------------------- メインルーチン ------------------------------ main: #c = inputchar("でるもんたの HTML 補助モード "+$RCSID); if (#c=='B'-64) beginsel; else if (#c=='O'-64) {#c=inputchar(""); endmacro;} else if (#c==0x1B) escape; else if (#c==0x1C || #c=='S'-64) left; else if (#c==0x1D || #c=='E'-64) up; else if (#c==0x1E || #c=='D'-64) right; else if (#c==0x1F || #c=='X'-64) down; else if (#c=='F'-64) golineend; else if (#c=='A'-64) golinetop; else if (#c=='C'-64) nextpage; else if (#c=='R'-64) prevpage; else if (#c=='H'-64) backspace; else if (#c==' ' ) insert " "; else if (#c=='I'-64) insert "\t"; else if (#c=='M'-64) insert "\n"; else if (#c==0x7f) delete; else if (#c=='U'-64) undo; else if ($Tag[#c]!="") call insert_tag $Tag[#c], $Parameter[#c]; else if (#c=='A' ) call anchor_with_dup; else if (#c=='M' ) call insert_matrix; else if (#c=='T' ) call table; else if (#c=='#' ) call type_any_key; else if (#c=='&' ) call quote_metacharacter; else if (#c=='%' ) call quote_if_necessary; else if (#c=='$' ) call quote_always; else if (#c=='\\') call quote_2nd_5C; else if (#c=='I' ) insert ""; else if (#c=='l' ) insert "
  • ";; else if (#c=='o' ) insert "