「TSF2KEV」はプログラミング言語「TSF_Tab-Separated-Forth」のD言語とPythonによる実装です。

version(branch):20170718T073839 modify:20180103W002937(執筆途中です)
ver3開発中(https://github.com/ooblog/TSF3KEV)につきver2の仕様は古くなります。

④-0.「TSF_Forth.d」「TSF_Forth.py」の関数一覧(forth.html)

TSFインタプリンタ実行モジュールです。
テキストファイル操作やRPN電卓などTSF_Io関連と、PPPPスタック操作が中心です。

string TSF_Forth_1ststack()
最初のスタック名(TSFAPI)。
string TSF_Forth_branchID()
TSFブランチ名(TSFAPI)。
string TSF_Forth_grammarID()
TSF文法管理番号(TSFAPI)。
string TSF_Forth_foolangID()
TSF実装言語(TSFAPI)。
void TSF_Forth_Initcards(ref string function()[string] TSF_cardsD,ref string[] TSF_cardsO)
関数カードに基本的な命令を追加する。(TSFAPI)
string TSF_Forth_fin()
TSF終了時のオプションを指定する。0枚[]ドロー。
string TSF_Forth_runagain()
TSFを終了せず、次のTSFを読み込んで実行。1枚[tsf]ドロー。
string TSF_Forth_runagainN()
TSFを終了せず、次のTSFを読み込んでパラメータも付けて実行。カード枚数+1枚[cardN…cardA,N]ドロー。
string TSF_Forth_countmax()
TSFスタックのカード数え上げ枚数の上限を指定。1枚[errmsg]ドロー。
string TSF_Forth_this()
thisスタックの変更。1枚[this]ドロー。
string TSF_Forth_that()
thatスタックの変更。1枚[that]ドロー。
string TSF_Forth_stylethe()
指定したスタックの表示方法を指定する。2枚[style,the]ドロー。
string TSF_Forth_stylethis()
実行中スタックの表示方法を指定する。1枚[style]ドロー。
string TSF_Forth_stylethat()
積込先スタックの表示方法を指定する。1枚[style]ドロー。
string TSF_Forth_stylethey()
全スタックの表示方法を一括指定。1枚[style]ドロー。
string TSF_Forth_viewthe()
指定したスタックを表示する。1枚[the]ドロー。
string TSF_Forth_viewthis()
実行中スタックを表示する。0枚ドロー。
string TSF_Forth_viewthat()
積込先スタックを表示する。0枚ドロー。
string TSF_Forth_viewthey()
スタック一覧を表示する。0枚ドロー。
string TSF_Forth_RPN()
RPN電卓。1枚[rpn]ドローして1枚[N]リターン。
string TSF_Forth_echo()
カードの表示。1枚[echo]ドロー。
string TSF_Forth_echoN()
カードの表示。RPN枚[echoN…echoA,N]ドロー。
string TSF_Forth_argvs()
コマンドを積込む。0枚[]ドローしてコマンド枚数+1枚[argvN…argvA,N]リターン。
string TSF_Forth_argvsthe()
指定スタックを積込む。1枚[the]ドローしてカード枚数+1枚[cardN…cardA,N]リターン。
string TSF_Forth_argvsthis()
実行中スタックを積込む。0枚[]ドローしてカード枚数+1枚[cardN…cardA,N]リターン。
string TSF_Forth_argvsthat()
積込先スタックを積込む。0枚[]ドローしてカード枚数+1枚[cardN…cardA,N]リターン。
string TSF_Forth_argvsthey()
カードN枚を逆順に積込。カード枚数+総数1枚[cardN…cardA,N]ドローしてカード枚数[cardN…cardA]リターン。
string TSF_Forth_reverseN()
カードN枚を逆順に積込。カード枚数+総数1枚[cardN…cardA,N]ドローしてカード枚数[cardN…cardA]リターン。
string TSF_Forth_joinN()
カードN枚を連結する。カード枚数+総数1枚[cardN…cardA,N]ドローして1枚[joined]リターン。
string TSF_Forth_joinsquarebrackets()
カードN枚を角括弧で連結する。数式の元を1枚[calc]ドローして1枚[joined]リターン。
string TSF_Forth_sandwichN()
カードN枚を連結する。カード枚数+総数1枚+接続詞1枚[cardN…cardA,N,joint]ドローして1枚[joined]リターン。
string TSF_Forth_split()
文字列を分割する。続詞1枚[joint]ドローしてカード枚数+総数1枚[cardN…cardA,N]リターン。
string TSF_Forth_chars()
文字列を一文字ずつに分割する。1枚[chars]ドローしてカード枚数+総数1枚[cardN…cardA,N]リターン。
string TSF_Forth_charslen()
文字数を数える。1枚[chars]ドローして1枚[N]リターン。
long TSF_Forth_len(string TSF_the)
指定スタックの枚数を取得。(TSFAPI)。
string TSF_Forth_lenthe()
指定スタックの枚数を取得。1枚[the]ドローして1枚[N]リターン。
string TSF_Forth_lenthis()
指定スタックの枚数を取得。0枚[]ドローして1枚[N]リターン。
string TSF_Forth_lenthat()
指定スタックの枚数を取得。0枚[]ドローして1枚[N]リターン。
string TSF_Forth_lenthey()
指定スタックの枚数を取得。0枚[]ドローして1枚[N]リターン。
long[] TSF_Forth_cardsFNCMVA(string TSF_the,long TSF_peek,string TSF_seek,char TSF_FNCMVAQIRHL)
peek,poke,pull,pushの共通部品。(TSFAPI)
string[] TSF_Forth_peek(string TSF_the,long TSF_peek,string TSF_seek,char TSF_FNCMVAQIRHL)
peekの共通部品。(TSFAPI)
void TSF_Forth_poke(string TSF_the,long TSF_peek,string TSF_seek,char TSF_FNCMVAQIRHL,string TSF_poke)
pokeの共通部品。(TSFAPI)
string[] TSF_Forth_pull(string TSF_the,long TSF_peek,string TSF_seek,char TSF_FNCMVAQIRHL)
pullの共通部品。(TSFAPI)
void TSF_Forth_push(string TSF_the,long TSF_peek,string TSF_seek,char TSF_FNCMVAQIRHL,string TSF_poke)
pushの共通部品。(TSFAPI)
void TSF_Forth_returnFNCMVA(string[] TSF_pulllist)
peek,pullの共通部品。FNCMVAは単独のカードを返す。(TSFAPI)
void TSF_Forth_returnQIRH(string[] TSF_pulllist)
peek,pullの共通部品。QIRHは複数のカードを返す。(TSFAPI)
string TSF_Forth_peekFthe()
指定スタックから表択でカードを読込。1枚[the]ドローして1枚[peek]リターン。
string TSF_Forth_peekFthis()
実行中スタックから表択でカードを読込。0枚[]ドローして1枚[peek]リターン。
string TSF_Forth_peekFthat()
積込先スタックから表択でカードを読込。0枚[]ドローして1枚[peek]リターン。
string TSF_Forth_peekFthey()
スタック一覧から表択でカードを読込。0枚[]ドローして1枚[peek]リターン。
string TSF_Forth_pokeFthe()
指定スタックからカードを表択で上書。2枚[poke,the]ドロー。
string TSF_Forth_pokeFthis()
実行中スタックから表択でカードを上書。1枚[poke]ドロー。
string TSF_Forth_pokeFthat()
積込先スタックから表択でカードを上書。1枚[poke]ドロー。
string TSF_Forth_pokeFthey()
スタック一覧から表択でカードを上書。1枚[poke]ドロー。
string TSF_Forth_pullFthe()
指定スタックから表択でカードを引抜。1枚[the]ドローして1枚[pull]リターン。
string TSF_Forth_pullFthis()
実行中スタックから表択でカードを引抜。0枚[]ドローして1枚[pull]リターン。
string TSF_Forth_pullFthat()
積込先スタックから表択でカードを引抜。リターンすると引抜にならないので例外的にリターンされない。
string TSF_Forth_pullFthey()
スタック一覧から表択でカードを引抜。0枚[]ドローして1枚[pull]リターン。
string TSF_Forth_pushFthe()
指定スタックからカードを表択で差込。2枚[push,the]ドロー。pushFは例外的に存在しないスタックにも直接pushできる。
string TSF_Forth_pushFthis()
実行中スタックから表択でカードを差込。1枚[push]ドロー。
string TSF_Forth_pushFthat()
積込先スタックから表択でカードを差込。1枚ドローするが、実質同じガードがリターンするので変化無し。
string TSF_Forth_pushFthey()
スタック一覧から表択でカードを差込。1枚[push]ドロー。
string TSF_Forth_peekNthe()
指定スタックから順択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekNthis()
実行中スタックから順択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekNthat()
積込先スタックから順択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekNthey()
スタック一覧から周順択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pokeNthe()
指定スタックからカードを順択で上書。3枚[poke,the,peek]ドロー。
string TSF_Forth_pokeNthis()
実行中スタックから順択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeNthat()
積込先スタックから順択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeNthey()
スタック一覧から順択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pullNthe()
指定スタックから順択でカードを引抜。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pullNthis()
実行中スタックから順択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullNthat()
積込先スタックから順択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullNthey()
スタック一覧から順択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pushNthe()
指定スタックからカードを順択で差込。3枚[poke,the,peek]ドロー。
string TSF_Forth_pushNthis()
実行中スタックから順択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushNthat()
積込先スタックから順択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushNthey()
スタック一覧から順択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_peekCthe()
指定スタックから周択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekCthis()
実行中スタックから周択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekCthat()
積込先スタックから周択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekCthey()
スタック一覧から周択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pokeCthe()
指定スタックからカードを周択で上書。3枚[poke,the,peek]ドロー。
string TSF_Forth_pokeCthis()
実行中スタックから周択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeCthat()
積込先スタックから周択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeCthey()
スタック一覧から周択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pullCthe()
指定スタックから周択でカードを引抜。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pullCthis()
実行中スタックから周択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullCthat()
積込先スタックから周択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullCthey()
スタック一覧から周択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pushCthe()
指定スタックからカードを周択で差込。3枚[poke,the,peek]ドロー。
string TSF_Forth_pushCthis()
実行中スタックから周択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushCthat()
積込先スタックから周択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushCthey()
スタック一覧から周択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_peekMthe()
指定スタックから囲択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekMthis()
実行中スタックから囲択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekMthat()
積込先スタックから囲択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekMthey()
スタック一覧から囲択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pokeMthe()
指定スタックからカードを囲択で上書。3枚[poke,the,peek]ドロー。
string TSF_Forth_pokeMthis()
実行中スタックから囲択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeMthat()
積込先スタックから囲択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeMthey()
スタック一覧から囲択でカードを上書。2枚[poke,peek]ドロー。
string TSF_Forth_pullMthe()
指定スタックから囲択でカードを引抜。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pullMthis()
実行中スタックから囲択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullMthat()
積込先スタックから囲択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pullMthey()
スタック一覧から囲択でカードを引抜。2枚[poke,peek]ドロー。
string TSF_Forth_pushMthe()
指定スタックからカードを囲択で差込。3枚[poke,the,peek]ドロー。
string TSF_Forth_pushMthis()
実行中スタックから囲択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushMthat()
積込先スタックから囲択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_pushMthey()
スタック一覧から囲択でカードを差込。2枚[poke,peek]ドロー。
string TSF_Forth_peekVthe()
「#!TSF_peekVthe」指定スタックから逆択でカードを読込。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_peekVthis()
「#!TSF_peekVthis」実行中スタックから逆択でカードを読込。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_peekVthat()
「#!TSF_peekVthat」積込先スタックから逆択でカードを読込。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_peekVthey()
「#!TSF_peekVthey」スタック一覧から逆択でカードを読込。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_pokeVthe()
「#!TSF_pokeVthe」指定スタックからカードを逆択で上書。3枚[poke,the,peek]ドロー。
string TSF_Forth_pokeVthis()
「#!TSF_pokeVthis」実行中スタックからカードを逆択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeVthat()
「#!TSF_pokeVthat」積込先スタックからカードを逆択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeVthey()
「#!TSF_pokeVthey」スタック一覧からカードを逆択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pullVthe()
「#!TSF_pullVthe」指定スタックから逆択でカードを引抜。2枚[the,peek]ドローして1枚[card]リターン。
string TSF_Forth_pullVthis()
「#!TSF_pullVthis」実行中スタックから逆択でカードを引抜。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_pullVthat()
「#!TSF_pullVthat」積込先スタックから逆択でカードを引抜。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_pullVthey()
「#!TSF_pullVthey」スタック一覧から逆択でカードを引抜。1枚[peek]ドローして1枚[card]リターン。
string TSF_Forth_pushVthe()
「#!TSF_pushVthe」指定スタックからカードを逆択で差込。3枚[push,the,peek]ドロー。
string TSF_Forth_pushVthis()
「#!TSF_pushVthis」実行中スタックからカードを逆択で差込。2枚[push,peek]ドロー。
string TSF_Forth_pushVthat()
「#!TSF_pushVthat」積込先スタックからカードを逆択で差込。2枚[push,peek]ドロー。
string TSF_Forth_pushVthey()
「#!TSF_pushVthey」スタック一覧からカードを逆択で差込。2枚[push,peek]ドロー。
string TSF_Forth_peekAthe()
「#!TSF_peekAthe」指定スタックから乱択でカードを読込。1枚[the]ドローして1枚[card]リターン。
string TSF_Forth_peekAthis()
「#!TSF_peekAthis」実行中スタックから乱択でカードを読込。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_peekAthat()
「#!TSF_peekAthat」積込先スタックから乱択でカードを読込。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_peekAthey()
「#!TSF_peekAthey」スタック一覧から乱択でカードを読込。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_pokeAthe()
「#!TSF_pokeAthe」指定スタックからカードを乱択で上書。2枚[poke,the,peek]ドロー。
string TSF_Forth_pokeAthis()
「#!TSF_pokeAthis」実行中スタックからカードを乱択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeAthat()
「#!TSF_pokeAthat」積込先スタックからカードを乱択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pokeAthey()
「#!TSF_pokeAthey」スタック一覧からカードを乱択で上書。2枚[poke,peek]ドロー。
string TSF_Forth_pullAthe()
「#!TSF_pullAthe」指定スタックから乱択でカードを引抜。1枚[the]ドローして1枚[card]リターン。
string TSF_Forth_pullAthis()
「#!TSF_pullAthis」実行中スタックから乱択でカードを引抜。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_pullAthat()
「#!TSF_pullAthat」積込先スタックから乱択でカードを引抜。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_pullAthey()
「#!TSF_pullAthey」スタック一覧から乱択でカードを引抜。0枚[]ドローして1枚[card]リターン。
string TSF_Forth_pushAthe()
「#!TSF_pushAthe」指定スタックからカードを乱択で差込。2枚[push,the]ドロー。
string TSF_Forth_pushAthis()
「#!TSF_pushAthis」実行中スタックからカードを乱択で差込。1枚[push]ドロー。
string TSF_Forth_pushAthat()
「#!TSF_pushAthat」積込先スタックからカードを乱択で差込。1枚[push]ドロー。
string TSF_Forth_pushAthey()
「#!TSF_pushAthey」スタック一覧からカードを乱択で差込。1枚[push]ドロー。
string TSF_Forth_swapBA()
カードAとカードBを交換する。2枚[cardB,cardA]ドローして2枚[cardA,cardB]リターン。
string TSF_Forth_swapCA()
カードAとカードCを交換する。3枚[cardC,cardB,cardA]ドローして3枚[cardA,cardB,cardC]リターン。
string TSF_Forth_swapCB()
カードBとカードCを交換する。3枚[cardC,cardB,cardA]ドローして3枚[cardB,cardC,cardA]リターン
string TSF_Forth_swapAA()
カードAをカードCの位置に沈下してカードBCを浮上。3枚[cardC,cardB,cardA]ドローして3枚[cardA,cardC,cardB]リターン。
string TSF_Forth_swapCC()
カードCをカードAの位置に浮上してカードBCを沈下。3枚[cardC,cardB,cardA]ドローして3枚[cardB,cardA,cardC]リターン。
void TSF_Forth_clone(string TSF_clone,string TSF_the)
スタックを複製する。(TSFAPI)
string TSF_Forth_clonethe()
指定スタックを複製する。2枚[clone,the]ドロー。
string TSF_Forth_clonethis()
実行中スタックを複製する。2枚[clone]ドロー。
string TSF_Forth_clonethat()
積込先スタックを複製する。2枚[clone]ドロー。
string TSF_Forth_clonethey()
スタック名一覧を複製する。2枚[clone]ドロー。
string TSF_Forth_readtext()
ファイル名のスタックにテキストを読み込む。1枚[path]ドロー。
string TSF_Forth_mergethe()
テキストをTSFとして読み込む。1枚[merge]ドロー。
string TSF_Forth_publishthe()
指定スタックをテキスト化。2枚[path,the]ドロー。
string TSF_Forth_publishthis()
実行中スタックをテキスト化。1枚[path]ドロー。
string TSF_Forth_publishthat()
実行中スタックをテキスト化。1枚[path]ドロー。
string TSF_Forth_remove()
ファイルを削除する。1枚[path]ドロー。
string TSF_Forth_savetext()
テキスト化スタックをファイルに保存する。2枚[path,the]ドロー。
string TSF_Forth_writetext()
テキスト化スタックをファイルに追記する。2枚[path,the]ドロー。
string TSF_Forth_branch()
TSFのブランチ名を確認する。0枚[]ドローして1枚[lang]リターン。
string TSF_Forth_grammar()
TSFの文法管理番号を確認する。0枚[]ドローして1枚[lang]リターン。
string TSF_Forth_foolang()
TSFの実装言語を確認する。0枚[]ドローして1枚[lang]リターン。
string TSF_Forth_mainfile()
TSFの実装ファイルを確認する。0枚[]ドローして1枚[lang]リターン。
void TSF_Forth_initTSF(string[] TSF_sysargvs,void function(ref string function()[string],ref string[])[] TSF_addcalls)
スタックやカードなどをまとめて初期化する(TSFAPI)。
string[] TSF_Forth_importlist(...)
モジュール一覧を管理する(TSFAPI)。
void TSF_Forth_setTSF(string TSF_the, ...)
スタックやカードなどをまとめて初期化する(TSFAPI)。
string TSF_Forth_loadtext(string TSF_the,string TSF_path)
スタックにテキストファイルを読み込む。(TSFAPI)
void TSF_Forth_merge(string TSF_path,string[] TSF_ESCstack=[], ...)
スタック内のテキストをTSFとして読み込む。(TSFAPI)
string TSF_Forth_run(...)
TSFデッキを走らせる。
string TSF_Forth_view(string TSF_the,bool TSF_view_io, ...)
スタックの内容をテキスト表示(TSFAPI)。
string TSF_Forth_draw(string TSF_the)
スタックから1枚ドロー。(TSFAPI)
string TSF_Forth_drawthe()
theスタックの取得(thatから1枚ドロー)。(TSFAPI)
string TSF_Forth_drawthis(...)
thisスタックの取得(thatから0枚ドロー)。(TSFAPI)
string TSF_Forth_drawthat(...)
thatスタックの取得(thatから0枚ドロー)。(TSFAPI)
void TSF_Forth_return(string TSF_the,string TSF_card)
theスタックに1枚リターン。(TSFAPI)
string[] TSF_Forth_mainandargvs(...)
argvsの取得。(TSFAPI)
string TSF_Forth_mainfilepath(...)
実行ファイル名を設定・取得(TSFAPI)。
string[] [string] TSF_Forth_stackD()
TSF_stackDの取得。(TSFAPI)
string[] TSF_Forth_stackO(...)
TSF_stackOの取得。(TSFAPI)
string TSF_Forth_samplerun(...)
TSF実行。ソース表示やログ保存機能付き。
void TSF_Forth_debug(string[] TSF_sysargvs)
「TSF_Forth」単体テスト風デバッグ。

⑩-1.ForthモジュールのFAQ(forth.html)

Q.同じような関数(PeekPokePullPush系統)はまとめられないのですか?
A.同じようでいて違う関数なので大量発生してます。特に「F」系統でドローしないリターンされない系の例外が存在します。
Q.D言語ならmixin使えばいいので「code_PPPP.tsf」いらなくない説。
A.D言語じゃない言語ではコンパイル時ソース生成ができない場合があるので別途ソースコード生成プログラムは必要。

⑪-0.作者について、例えば連絡先

更新情報はGitHubやブログを確認してください。

ooblog/TSF2KEV(GitHub)
https://github.com/ooblog/TSF2KEV
[TSF] - 大風呂ダ敷
http://d.hatena.ne.jp/ooblog/searchdiary?word=*[TSF]
[kanedit] - 大風呂ダ敷
http://d.hatena.ne.jp/ooblog/searchdiary?word=*[kanedit]
↑Top