diff -urN gns-2.11/keep/ISBN.html gns-2.11.isbnpatch/keep/ISBN.html
--- gns-2.11/keep/ISBN.html Thu Jan 1 09:00:00 1970
+++ gns-2.11.isbnpatch/keep/ISBN.html Mon Nov 6 23:44:44 2000
@@ -0,0 +1,21 @@
+#
+# 日記ソースに @isbn 4-04-873259-5 と書くと以下の文字列に置換する
+#
+# @replace_isbn1 の文字列を入力 isbnに置換
+# @replace_isbn2 の文字列を入力 isbnからハイフンを削除したものに置換
+#
+【
+bk1 /
+ISIZE /
+旭屋 /
+Jbook /
+BOL /
+紀伊國屋 /
+amazon /
+eS! /
+富士山 /
+本屋さん
+】
+
+
+
diff -urN gns-2.11/mkd.awk gns-2.11.isbnpatch/mkd.awk
--- gns-2.11/mkd.awk Wed Sep 20 10:41:12 2000
+++ gns-2.11.isbnpatch/mkd.awk Mon Nov 6 23:55:44 2000
@@ -4,6 +4,7 @@
#### mailto: gorry@hauN.org
####
#### History:
+#### 2000/11/06 ISBNpatch @/isbn/ オンライン書店への自動リンク処理を追加(hachi)
#### 2000/08/25 V2.10 @s1・@s2を追加。
#### 2000/04/06 V2.02 @footを追加。
#### PiloWeb対応。
@@ -47,6 +48,8 @@
BASEFOOTERNAME = "40.html" # ベースファイルフッタファイル名
ITEMNAME = "98.html" # 挿入アイテムファイル名
REPLACENAME = "99.html"; # URL置換データベース名
+ ISBNFNAME = "ISBN.html"; # ISBN output format定義ファイル名
+
LASTMODIFIEDFORMAT = "%a, %d %b %Y %H:%M:%S %Z"; # 更新時刻出力フォーマット(@/lastmodified/)
}
@@ -317,6 +320,23 @@
}
close( fin );
}
+########################################################################
+### ISBN置換データベースの初期化
+# ISBN output patch add. 2000.11.6 by hachi@hauN.org
+#
+function MakeReplaceISBN( fin )
+{
+ REPLACEISBN = "";
+
+ while ( ( getline 0 ) {
+ if ( match( $1, "^#" ) ) {
+ continue;
+ }
+ gsub( "\r", "", $0 );
+ REPLACEISBN = REPLACEISBN $0 "\n";
+ }
+ close( fin );
+}
########################################################################
### 固定置換およびURL置換データベースによる置換
@@ -376,6 +396,27 @@
sub( "@[*]", s, line );
} while (!0);
+ # ISBN output patch . 2000.11.6 by hachi@hauN.org
+ do {
+ pt = match( line, "@/isbn/[ \t]*[Xx0-9\-]*" );
+ if ( pt == 0 ) {
+ break;
+ }
+ le = RLENGTH;
+ s1 = substr( line, 1, pt-1 );
+ s = substr( line, pt, le );
+ s2 = substr( line, pt+le, length( line )-pt-le+1 );
+ isbn=s;
+ sub( "@/isbn/[ \t]*", "", isbn );
+ isbn2=isbn;
+ gsub( "-", "", isbn2 );
+ rep=REPLACEISBN;
+ gsub( "@replace_isbn1", isbn, rep);
+ gsub( "@replace_isbn2", isbn2, rep);
+ gsub( "@/isbn/", "\\@/isbn/", rep);
+ line = s1 rep s2;
+ } while (!0);
+
do {
pt = match( line, "@/[^/]*/[^/]*/" );
if ( pt == 0 ) {
@@ -743,6 +784,7 @@
Setup_PARTS();
Setup_ITEMS();
MakeReplaceDatabase( KEEPDIR SLASH REPLACENAME );
+ MakeReplaceISBN( KEEPDIR SLASH ISBNFNAME );
if ( command == "test" ) {
BindDiaryTest( totaldays_today );
} else {