Loading incoming/yasuoka/bin/.makecorpus.sh.swp 0 → 100644 +12 KiB File added.No diff preview for this file type. View file incoming/yasuoka/bin/makecorpus.sh +23 −2 Original line number Diff line number Diff line Loading @@ -15,9 +15,30 @@ if [ ! -s $G ] then sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' `ls -1t incoming/*/[th]*/$B.utf-8 | head -1` | tr '()\133\135' '\012\012\012\012' > $G elif [ $D/hakubun/$B.utf-8 -nt $G ] then ( sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' `ls -1t incoming/*/[th]*/$B.utf-8 | head -1` | tr '()\133\135' '\012\012\012\012' ; echo '' ) | tr -s '\012' '\012' > $G.a~ then ( sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' $D/hakubun/$B.utf-8 | tr '()\133\135' '\012\012\012\012' ; echo '' ) | tr -s '\012' '\012' > $G.a~ sed -e '/ /{' -e :loop -e N -e 's/ .*\n//' -e 's/EOS//' -e '/ /bloop' -e '}' $G | tr -s '\012' '\012' > $G.b~ exit X=`diff $G.a~ $G.b~ | sed -e 's/^\([0-9]*\).*$/\1/' -e 1q` if [ 0$X -gt 0 ] then if [ $X -eq 1 ] then cp $D/hakubun/$B.utf-8 $G else awk ' BEGIN{ x='$X'; } { printf("%s\n",$0); if($0~/EOS/){ x--; if(x<2){ printf("\n"); exit; } } }' $G > $G.b~ tail +$X $G.a~ >> $G.b~ mv $G.b~ $G fi fi else : fi xemacs $G Loading incoming/yasuoka/corpus/KT02p0093.mc.utf-8.a~ +1 −2 Original line number Diff line number Diff line 箋解古文眞寶後集卷之二 說類 師說 師説 韓退之 洪曰 柳子厚答韋中立書云 Loading incoming/yasuoka/corpus/KT02p0093.mc.utf-8.b~ +0 −28 Original line number Diff line number Diff line 箋解古文眞寶後集卷之二 箋解古文眞寶後集卷之二 說類 說類 師說 師說 韓退之 韓退之 洪曰 洪曰 柳子厚答韋中立書云 柳子厚答韋中立書云 今之世 不聞有師 獨韓愈不顧流俗犯笑侮 Loading @@ -35,8 +23,6 @@ 段段有力 學者宜熟讀 ○東萊曰 ○東萊曰 此篇最是結得 段段有力 中閒三段 Loading Loading @@ -515,17 +501,13 @@ 欲以致天下賢英士大夫 日聞所不聞 以益聖 師古曰 日日得聞異言也 而君自閉箝天下之口 而日益愚 師古曰 箝籋也 音其炎反 夫以聖主責愚相 君受禍不久矣 ●{換骨法}野客叢書卷十二附錄云 Loading Loading @@ -844,7 +826,6 @@ 天下無英雄豪傑 嗚呼天下眞無英雄豪傑 宰相眞不識英雄豪傑 ●{雜說}黃氏日抄卷五十九云 雜說四首 龍喩言君不可以無臣 Loading Loading @@ -1023,7 +1004,6 @@ 轍乎 吾知免矣 逆知少公得禍必輕 ●{名二子說}三蘇文定卷四又 事文類聚後集卷二載之 ○瞿景淳曰 Loading Loading @@ -1215,7 +1195,6 @@ 特見朋友相切磋之意 亦且知古之昆季其相勉厲也 蓋如此 ●{稼說}東坡全集卷十 名文殊璣卷十二載之 ○按 Loading Loading @@ -1550,19 +1529,15 @@ 江 出泯山 今松江 河 出崑崙山 今西國 淮 出桐栢山 今唐州 濟 出王屋山 今孟州 ● {亦上國}事文無亦字 ●{不染ー}胡時化云 Loading Loading @@ -1763,7 +1738,6 @@ 人能熟讀此等文字 筆便圓活 便能生議論 ●{解}文禮明辨云 解 按 Loading Loading @@ -1919,7 +1893,6 @@ 牝曰麟 麒者其牡也 玄枵北星之次也 麒似麟而無角 萬民者德之精也 ○左傳襄公二十八年 Loading Loading @@ -2338,7 +2311,6 @@ 狶苓乃猪苓 迂云 應前醫師匠氏之說 ●{進學解}韓文題注云 愈再爲國子博士 既才高 Loading Loading
incoming/yasuoka/bin/.makecorpus.sh.swp 0 → 100644 +12 KiB File added.No diff preview for this file type. View file
incoming/yasuoka/bin/makecorpus.sh +23 −2 Original line number Diff line number Diff line Loading @@ -15,9 +15,30 @@ if [ ! -s $G ] then sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' `ls -1t incoming/*/[th]*/$B.utf-8 | head -1` | tr '()\133\135' '\012\012\012\012' > $G elif [ $D/hakubun/$B.utf-8 -nt $G ] then ( sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' `ls -1t incoming/*/[th]*/$B.utf-8 | head -1` | tr '()\133\135' '\012\012\012\012' ; echo '' ) | tr -s '\012' '\012' > $G.a~ then ( sed -e 's/[/\[/g' -e 's/]/\]/g' -e 's/\[[^]]*\]//g' -e 's/(/(/g' -e 's/)/)/g' -e 's/([^)]*)//g' $D/hakubun/$B.utf-8 | tr '()\133\135' '\012\012\012\012' ; echo '' ) | tr -s '\012' '\012' > $G.a~ sed -e '/ /{' -e :loop -e N -e 's/ .*\n//' -e 's/EOS//' -e '/ /bloop' -e '}' $G | tr -s '\012' '\012' > $G.b~ exit X=`diff $G.a~ $G.b~ | sed -e 's/^\([0-9]*\).*$/\1/' -e 1q` if [ 0$X -gt 0 ] then if [ $X -eq 1 ] then cp $D/hakubun/$B.utf-8 $G else awk ' BEGIN{ x='$X'; } { printf("%s\n",$0); if($0~/EOS/){ x--; if(x<2){ printf("\n"); exit; } } }' $G > $G.b~ tail +$X $G.a~ >> $G.b~ mv $G.b~ $G fi fi else : fi xemacs $G Loading
incoming/yasuoka/corpus/KT02p0093.mc.utf-8.a~ +1 −2 Original line number Diff line number Diff line 箋解古文眞寶後集卷之二 說類 師說 師説 韓退之 洪曰 柳子厚答韋中立書云 Loading
incoming/yasuoka/corpus/KT02p0093.mc.utf-8.b~ +0 −28 Original line number Diff line number Diff line 箋解古文眞寶後集卷之二 箋解古文眞寶後集卷之二 說類 說類 師說 師說 韓退之 韓退之 洪曰 洪曰 柳子厚答韋中立書云 柳子厚答韋中立書云 今之世 不聞有師 獨韓愈不顧流俗犯笑侮 Loading @@ -35,8 +23,6 @@ 段段有力 學者宜熟讀 ○東萊曰 ○東萊曰 此篇最是結得 段段有力 中閒三段 Loading Loading @@ -515,17 +501,13 @@ 欲以致天下賢英士大夫 日聞所不聞 以益聖 師古曰 日日得聞異言也 而君自閉箝天下之口 而日益愚 師古曰 箝籋也 音其炎反 夫以聖主責愚相 君受禍不久矣 ●{換骨法}野客叢書卷十二附錄云 Loading Loading @@ -844,7 +826,6 @@ 天下無英雄豪傑 嗚呼天下眞無英雄豪傑 宰相眞不識英雄豪傑 ●{雜說}黃氏日抄卷五十九云 雜說四首 龍喩言君不可以無臣 Loading Loading @@ -1023,7 +1004,6 @@ 轍乎 吾知免矣 逆知少公得禍必輕 ●{名二子說}三蘇文定卷四又 事文類聚後集卷二載之 ○瞿景淳曰 Loading Loading @@ -1215,7 +1195,6 @@ 特見朋友相切磋之意 亦且知古之昆季其相勉厲也 蓋如此 ●{稼說}東坡全集卷十 名文殊璣卷十二載之 ○按 Loading Loading @@ -1550,19 +1529,15 @@ 江 出泯山 今松江 河 出崑崙山 今西國 淮 出桐栢山 今唐州 濟 出王屋山 今孟州 ● {亦上國}事文無亦字 ●{不染ー}胡時化云 Loading Loading @@ -1763,7 +1738,6 @@ 人能熟讀此等文字 筆便圓活 便能生議論 ●{解}文禮明辨云 解 按 Loading Loading @@ -1919,7 +1893,6 @@ 牝曰麟 麒者其牡也 玄枵北星之次也 麒似麟而無角 萬民者德之精也 ○左傳襄公二十八年 Loading Loading @@ -2338,7 +2311,6 @@ 狶苓乃猪苓 迂云 應前醫師匠氏之說 ●{進學解}韓文題注云 愈再爲國子博士 既才高 Loading