disabledraw ; call insertLastModifiedDateTime ; endmacro; // lib: return ; // HTMLtoXHTML: gofiletop ; insert "\n" ; call toSmallLetterTag ; call addEndTag ; call toStandardTag ; call addNoIndent ; gofiletop ; deleteline ; return ; toSmallLetterTag: $$tagStart = "<[^!?]" ; ##tagEnd = '>' ; gofiletop ; searchdown $$tagStart, regular ; while (result) { escape ; right ; while (code != ##tagEnd) { if (code == '"') { searchdown "\"" ; escape ; } if (('A' <= code) && (code <= 'Z')) { overwrite char(code -'A' + 'a') ; }else{ right ; } } searchdown $$tagStart, regular ; } return ; addEndTag: $$tags = "<(br|hr|img|link|meta)[^a-z]" ; gofiletop ; searchdown $$tags, regular ; while (result) { searchdown ">", regular ; escape ; left ; if (code != '/') { right ; insert " /" ; } searchdown $$tags, regular ; } return ; toStandardTag: gofiletop ; $$tags = "" ; left ; replacedown "/>", "" ; searchdown $$tags, regular ; } return ; addNoIndent: gofiletop ; replaceallfast "", "
", regular return ; // toXHTML_preprocess: call convEscChars ; call delBlankLines ; return ; toXHTML_postprocess: call makeBody_p ; call insertHeader ; call insertFooter ; replaceallfast "", "

", regular ; replaceallfast "", "

", regular ; return ; toXHTML: call convEscChars ; call delBlankLines ; call makeBody_br ; call insertHeader ; call insertFooter ; replaceallfast "", "

", regular ; replaceallfast "", "

", regular ; return ; toPRE_XHTML: call insertHeader ; call insertFooter ; replaceallfast "", "
", regular ;
    replaceallfast "", "
", regular ; return ; // // convEscChars: replaceallfast "&", "&", regular ; replaceallfast "\"",""",regular ; replaceallfast "<", "<", regular ; replaceallfast ">", ">", regular ; return ; // delBlankLines: // 2行以上続いている空行を1行に。 gofiletop ; insert "\n\n" ; gofileend ; insert "\n" ; replaceallfast "\\n\\n[\\n]+", "\\n\\n", regular ; while (result) { replaceallfast "\\n\\n[\\n]+", "\\n\\n", regular ; } gofileend ; up ; deleteline ; gofiletop ; deleteline ; deleteline ; return ; // makeBody_p: replaceallfast "\\n\\n", "

", regular ; // 空行をパラグラフの終了&開始に。 replaceallfast "\\n", "", regular ; // 元の行端を保存。(工夫の余地あり) replaceallfast "><", "\\n><", regular ; // ソースを見やすくするためにパラグラフの区切りで改行 return ; makeBody_br: replaceallfast "\\n\\n", "

", regular ; // 空行を改行２つに。(1) replaceallfast "\\n", "", regular ; // 元の行端を保存。(工夫の余地あり) replaceallfast " />
\n" ; insert "\n\n" ; insert "\n\n" ; insert "\n" ; insert " " + basename2 + "\n" ; insert " \n\n" ; insert " \n" ; insert " \n" ; insert " \n\n" ; insert " \n" ; insert " \n" ; insert " \n\n" ; insert " \n" ; insert " \n" ; insert " \n" ; insert "\n\n" ; insert "\n\n" ; insert "

Notice : 内容無保証。禁無断転載。リンク不自由。
\n\n" ; insert "
\n\n" ; insert "
\n\n" ; insert "
\n\n" ; insert "

" + basename + "

\n\n" ; insert "
" ; return ; // insertFooter: gofileend ; insert "
\n\n" ; insert "
\n\n" ; insert "\n\n" ; insert "\n\n" ; insert "\n" ; return ; // insertLastModifiedDateTime: call datetime ; $$datetime = $$return ; gofiletop ; searchdown "" ; searchdown "today?" ; if (result) { wordright ; deleteword ; insert $$datetime ; searchup "today?" ; wordright ; deleteword ; delete ; right ; right ; delete ; right ; right ; delete ; right ; right ; delete ; right ; right ; deleteword ; deleteword ; deleteword ; deleteword ; deleteword ; deleteword ; } return ; } searchdown "\n" ; return ; } searchdown "\n\n" ; } return ; // [ISO8601][DATETIME] : YYYY-MM-DDThh:mm:ssTZD datetime: $$TZD = $$1 ; if ($$TZD == "") { $$TZD = "+09:00" ; // 日本標準時をデフォルトとする } $$datetime = year + "-" + month + "-" + day + "T" + time + $$TZD ; return $$datetime ; // Lib: $$target = filename2 ; $$lib = macrodir + "\\lib.mac" ; if (findhidemaru($$lib) == -1) { openfile $$lib ; } setactivehidemaru findhidemaru($$lib) ; gofiletop ; down ; deleteline ; insert "call " + $$1 + " ;\n" ; save ; setactivehidemaru findhidemaru($$target) ; closehidemaru findhidemaru($$lib) ; execmacro "lib.mac" ; disabledraw ; return ;