";
sectionmode = 2;
} else if ( match( line, /^@p/ ) ) {
CloseSection( sectionmode );
line = "";
sectionmode = 0;
} else if ( match( line, /^@close/ ) ) {
CloseSection( sectionmode );
sectionmode = -1;
continue;
} else if ( match( line, /^@c/ ) ) {
CloseSection( sectionmode );
line = "
";
sectionmode = 3;
} else if ( match( line, /^@ul/ ) ) {
CloseSection( sectionmode );
line = "";
sectionmode = 4;
} else if ( match( line, /^@ol/ ) ) {
CloseSection( sectionmode );
line = "";
sectionmode = 5;
} else if ( match( line, /^@f/ ) ) {
CloseSection( sectionmode );
nfootnote++;
line = "";
if ( sectionmode != 6 ) {
line = ""; # "
\n";
}
line = line sprintf( "%s%d:", date, nfootnote, year, month, PARTS[part], date, nfootnote, FOOTNOTEMARK, nfootnote );
sectionmode = 6;
} else {
if ( sectionmode == -1 ) {
line = "
" line;
sectionmode = 0;
}
}
DIARYLINE[DIARYLINES++] = line;
}
CloseSection( sectionmode );
close( fin );
}
########################################################################
### 表示アイテムの初期化
#
function Setup_ITEMS( fin, line, i )
{
if ( WDAYS[0] == "" ) {
fin = KEEPDIR SLASH ITEMNAME;
i = 0;
while ( (getline line 0 ) {
gsub( "\r", "", line );
WDAYS[i++] = line;
}
close( fin );
TITLEMARK = WDAYS[7];
SENTENSEMARK = WDAYS[8];
FOOTNOTEMARK = WDAYS[9];
FOOTSTARTMARK = WDAYS[10];
FOOTENDMARK = WDAYS[11];
}
}
########################################################################
### 旬名の初期化
#
function Setup_PARTS()
{
PARTS[0] = "a";
PARTS[1] = "b";
PARTS[2] = "c";
}
########################################################################
### URL置換データベースの初期化
#
function MakeReplaceDatabase( fin )
{
FS = "[ \t]+";
NREPLACE = 0;
while ( ( getline 0 ) {
if ( match( $1, "^#" ) ) {
continue;
}
if ( length( $0 ) < 1 ) {
continue;
}
REPLACE_Key[ NREPLACE ] = $1;
REPLACE_Name[ $1 ] = $2;
REPLACE_Obj[ $1 ] = $3;
gsub( "\r", "", REPLACE_Obj[ $1 ] );
NREPLACE++;
}
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置換データベースによる置換
#
function Replace( line, year, month, part, date , y, m, p, s, i, pt, le, s1, s2, key, name )
{
if ( !match( line, "@" ) ) {
return line;
}
gsub( "@/lastmodified/", LASTMODIFIED, line );
s = sprintf( "%04d", year );
gsub( "@/year/", s, line );
s = sprintf( "%02d", month );
gsub( "@/month/", s, line );
gsub( "@/part/", PARTS[part], line );
gsub( "@/PART/", part+1, line );
if ( match( line, "@/prevfile/" ) ) {
y = year;
m = month;
p = part;
p--;
if ( p < 0 ) {
p = 2;
m--;
if ( m < 1 ) {
m = 12;
y--;
}
}
s = sprintf( "%04d%02d%s.html", y, m, PARTS[p] );
gsub( "@/prevfile/", s, line );
}
if ( match( line, "@/nextfile/" ) ) {
y = year;
m = month;
p = part;
p++;
if ( p > 2 ) {
p = 0;
m++;
if ( m > 12 ) {
m = 1;
y++;
}
}
s = sprintf( "%04d%02d%s.html", y, m, PARTS[p] );
gsub( "@/nextfile/", s, line );
}
do {
if ( !match( line, "@[*]" ) ) {
break;
}
FOOTNOTE_REFER++;
s = sprintf( "%s%d", year, month, PARTS[part], date, FOOTNOTE_REFER, FOOTNOTEMARK, FOOTNOTE_REFER );
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 ) {
break;
}
le = RLENGTH;
s1 = substr( line, 1, pt-1 );
s = substr( line, pt, le );
s2 = substr( line, pt+le, length( line )-pt-le+1 );
# print "["s1"]", "["s"]", "["s2"]";
key = s;
sub( "@/", "", key );
sub( "/[^/]*/", "", key );
# print "["key"]";
if ( !(key in REPLACE_Name) ) {
# print "No Key [" key "].";
sub( "@", "\\@", s );
line = s1 s s2;
continue;
}
name = s;
sub( "@/[^/]*/", "", name );
sub( "/", "", name );
# print "["name"]";
if ( name == "" ) {
name = REPLACE_Name[key];
}
line = s1 ""name"" s2;
} while (!0);
return line;
}
########################################################################
### ファイル内容を置換しながらcat
#
function CatFile( fout, fin, year, month, part , line )
{
while ( ( getline line 0 ) {
sub( "\r", "", line );
print Replace( line, year, month, part, 0 )>fout;
}
close( fin );
}
########################################################################
### 日付から旬を得る
#
function GetDiaryPart( year, month, date ,days, i )
{
STARTDATE = 1;
PART = 0;
days = 10;
if ( date >= STARTDATE+days ) {
STARTDATE += days;
PART++;
}
if ( date >= STARTDATE+days ) {
STARTDATE += days;
PART++;
days++; # 31日
}
ENDDATE = STARTDATE+days;
YMD2DAYS( year, month, STARTDATE );
if ( ENDDATE > DAYS[month]+1 ) {
ENDDATE = DAYS[month]+1;
}
}
########################################################################
### ベースファイルを作成
#
function BindDiaryBase( year, month, date ,startdate, enddate, part, i, fout, fout2, cmd, fin, line, needinterval )
{
GetDiaryPart( year, month, date );
needinterval = 0;
startdate = STARTDATE;
enddate = ENDDATE;
part = PART;
fout = TMPDIR SLASH "%tmp1.out";
CatFile( fout, KEEPDIR SLASH BASEHEADERNAME, year, month, part );
PrintStart( fout );
for ( i=startdate; i 0 ) ) {
close( fin );
if ( needinterval ) {
PrintInterval( fout );
}
PrintDiary( fout, year, month, i, part, 0 );
needinterval = !0;
}
}
PrintTerminate( fout );
CatFile( fout, KEEPDIR SLASH BASEFOOTERNAME, year, month, part );
close( fout );
cmd = CHMODCMD " " fout;
system( cmd );
fout2 = sprintf( PUTDIR SLASH "%04d%02d%s.html", year, month, PARTS[part] );
cmd = NKFCMD " " NKFCODE " " fout ">" fout2;
# print cmd;
system( cmd );
cmd = CHMODCMD " " fout2;
system( cmd );
}
########################################################################
### ダイジェストファイルを作成
#
function BindDiaryDigest( totaldays , days, year, month, date, part, i, fout, fout2, cmd, fin, line, needinterval, istoday )
{
needinterval = 0;
fout = TMPDIR SLASH "%tmp2.out";
CatFile( fout, KEEPDIR SLASH DIGESTHEADERNAME, year, month, part );
CatFile( fout, KEEPDIR SLASH DIGESTPREMEMONAME, year, month, part );
PrintStart( fout );
for ( i=0; i 0 ) ) {
close( fin );
if ( needinterval ) {
PrintInterval( fout );
}
istoday = 0;
if ( i == 0 ) {
istoday = 1;
}
PrintDiary( fout, year, month, date, part, istoday );
needinterval = !0;
}
}
PrintTerminate( fout );
CatFile( fout, KEEPDIR SLASH DIGESTPOSTMEMONAME, year, month, part );
CatFile( fout, KEEPDIR SLASH DIGESTFOOTERNAME, year, month, part );
close( fout );
cmd = CHMODCMD " " fout;
system( cmd );
fout2 = PUTDIR SLASH DIGESTNAME;
cmd = NKFCMD " " NKFCODE " " fout ">" fout2;
# print cmd;
system( cmd );
cmd = CHMODCMD " " fout2;
system( cmd );
}
########################################################################
### テストファイルを作成
#
function BindDiaryTest( totaldays , days, year, month, date, part, i, fout, fout2, cmd )
{
fout = TMPDIR SLASH "%tmp2.out";
PrintStart( fout );
for ( i=0; i<1; i++ ) {
days = totaldays-i;
if ( days < 0 ) break;
DAYS2YMD( days );
year = YEAR;
month = MONTH;
date = DATE;
GetDiaryPart( year, month, date );
part = PART;
PrintDiary( fout, year, month, date, part, 0 );
}
PrintTerminate( fout );
close( fout );
fout2 = TMPDIR SLASH "test.html";
cmd = NKFCMD " " NKFCODE " " fout ">" fout2;
# print cmd;
system( cmd );
cmd = CHMODCMD " " fout2;
system( cmd );
}
########################################################################
### 月の日数を初期化
#
function Setup_DAYS( year )
{
DAYS[1] = 31;
DAYS[2] = 28;
DAYS[3] = 31;
DAYS[4] = 30;
DAYS[5] = 31;
DAYS[6] = 30;
DAYS[7] = 31;
DAYS[8] = 31;
DAYS[9] = 30;
DAYS[10] = 31;
DAYS[11] = 30;
DAYS[12] = 31;
if ( (((year%4) == 0) && ((year%100) != 0)) || ((year%400) == 0) ) {
DAYS[2] = 29;
}
}
########################################################################
### 年の日数を初期化
#
function Setup_DAYS1( year )
{
DAYS1 = 365;
if ( (((year%4) == 0) && ((year%100) != 0)) || ((year%400) == 0) ) {
DAYS1++;
}
}
########################################################################
### 年月日から「1980/01/01からの積算日付」を求める
#
function YMD2DAYS( year, month, date ,days, i )
{
if ( date < 1 ) {
error_arg("date<1");
}
Setup_DAYS( year );
days = DAYS[month];
if ( date > days ) {
error_arg("date>end " date ">" days);
}
TOTALDAYS = 0;
for ( i=1980; iSAT
}
########################################################################
### 「1980/01/01からの積算日付」から年月日を求める
#
function DAYS2YMD( totaldays )
{
WDAY = (TOTALDAYS+2) % 7; # SUN->SAT
for ( YEAR=1980; YEAR<2100; YEAR++ ) {
Setup_DAYS1( YEAR );
if ( DAYS1 > totaldays ) {
break;
}
totaldays -= DAYS1;
}
Setup_DAYS( YEAR );
for ( MONTH=1; MONTH<=12; MONTH++ ) {
if ( DAYS[MONTH] > totaldays ) {
break;
}
totaldays -= DAYS[MONTH];
}
DATE = totaldays+1;
}
function error_arg(s)
{
print "error_arg " s;
exit;
}
########################################################################
### 「最新更新日付」を読み出す
#
function ReadLastUpload( fin )
{
fin = KEEPDIR SLASH LASTUPLOADNAME;
while ( ( getline 0 ) {
YEAR = $1;
MONTH = $2;
DATE = $3;
}
close( fin );
}
########################################################################
### 「最新更新日付」を記録する
#
function WriteLastUpload( year, month, date ,fout, cmd )
{
fout = KEEPDIR SLASH LASTUPLOADNAME;
print year, month, date >fout;
close( fout );
cmd = CHMODCMD " " fout;
system( cmd );
}
########################################################################
### BEGIN
#
BEGIN {
Setup();
if ( ARGC < 4 ) {
error_arg("4");
}
if ( ARGC >= 5 ) {
command = ARGV[4];
}
year_today = ARGV[1]+0;
month_today = ARGV[2]+0;
date_today = ARGV[3]+0;
if ( year_today < 1980 ) {
error_arg("year<1980");
}
if ( year_today > 2099 ) {
error_arg("year>2099");
}
if ( month_today < 1 ) {
error_arg("month<1");
}
if ( month_today > 12 ) {
error_arg("month>12");
}
LASTMODIFIED = strftime( LASTMODIFIEDFORMAT, systime() );
YEAR = 1980;
MONTH = 1;
DATE = 1;
ReadLastUpload();
year_last = YEAR+0;
month_last = MONTH+0;
date_last = DATE+0;
YMD2DAYS( year_today, month_today, date_today );
totaldays_today = TOTALDAYS;
if ( command == "prev" ) {
command = "test";
totaldays_today -= 1;
}
if ( command == "next" ) {
command = "test";
totaldays_today += 1;
}
if ( command == "today" ) {
command = "test";
}
DAYS2YMD( totaldays_today );
year_today = YEAR+0;
month_today = MONTH+0;
date_today = DATE+0;
YMD2DAYS( year_last, month_last, date_last );
totaldays_last = TOTALDAYS;
if ( totaldays_last < totaldays_today ) {
totaldays_last = totaldays_today;
year_last = year_today;
month_last = month_today;
date_last = date_today;
}
Setup_PARTS();
Setup_ITEMS();
MakeReplaceDatabase( KEEPDIR SLASH REPLACENAME );
MakeReplaceISBN( KEEPDIR SLASH ISBNFNAME );
if ( command == "test" ) {
BindDiaryTest( totaldays_today );
} else {
WriteLastUpload( year_last+0, month_last+0, date_last+0 );
BindDiaryBase( year_today, month_today, date_today );
if ( (totaldays_last-totaldays_today) < DIGESTDAYS ) {
BindDiaryDigest( totaldays_last );
}
}
}
# [EOF]