/* $Id$ */
#include "bbs.h"
/*
* more.c
* a mini pager in 130 lines of code, or stub of the huge pager pmore.
* Author: Hung-Te Lin (piaip), April 2008.
*
* Copyright (c) 2008 Hung-Te Lin <piaip@csie.ntu.edu.tw>
* All rights reserved.
* Distributed under BSD license (GPL compatible).
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are met:
*
* * Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* * Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*/
#ifdef USE_PMORE
/* use new pager: piaip's more. */
int more(const char *fpath, int promptend)
{
int r = pmore(fpath, promptend);
switch(r)
{
case RET_DOSYSOPEDIT:
r = FULLUPDATE;
if (!HasUserPerm(PERM_SYSOP) ||
strcmp(fpath, "etc/ve.hlp") == 0)
break;
#ifdef BN_SECURITY
if (strcmp(currboard, BN_SECURITY) == 0)
break;
#endif // BN_SECURITY
log_filef("log/security", LOG_CREAT,
"%u %s %d %s admin edit file=%s\n",
(int)now, Cdate(&now), getpid(), cuser.userid, fpath);
veditfile(fpath);
break;
case RET_SELECTBRD:
r = FULLUPDATE;
if (HasUserPerm(PERM_BASIC))
{
if (currstat == READING)
return Select();
}
break;
case RET_COPY2TMP:
r = FULLUPDATE;
if (HasUserPerm(PERM_BASIC))
{
char buf[PATHLEN];
getdata(b_lines - 1, 0, "把這篇文章收入到暫存檔？[y/N] ",
buf, 4, LCECHO);
if (buf[0] != 'y')
break;
setuserfile(buf, ask_tmpbuf(b_lines - 1));
Copy(fpath, buf);
}
break;
case RET_DOCHESSREPLAY:
r = FULLUPDATE;
if (HasUserPerm(PERM_BASIC))
{
ChessReplayGame(fpath);
}
break;
#if defined(USE_BBSLUA) && !defined(DISABLE_BBSLUA_IN_PAGER)
case RET_DOBBSLUA:
r = FULLUPDATE;
if (HasUserPerm(PERM_BASIC))
{
bbslua(fpath);
} else {
vmsg("抱歉，此帳號無權限執行 BBS-Lua 程式。");
}
break;
#endif
}
return r;
}
#else // !USE_PMORE
// minimore: a mini pager in exactly 130 lines
#define PAGER_MAXLINES (2048)
int more(const char *fpath, int promptend)
{
FILE *fp = fopen(fpath, "rt");
int lineno = 0, lines = 0, oldlineno = -1;
int i = 0, abort = 0, showall = 0, colorize = 0;
int lpos[PAGER_MAXLINES] = {0}; // line position
char buf [ANSILINELEN];
if (!fp) return -1;
clear();
if (promptend == NA) { // quick print one page
for (i = 0; i < t_lines-1; i++)
if (!fgets(buf, sizeof(buf), fp))
break;
else
outs(buf);
fclose(fp);
return 0;
}
// YEA mode: pre-read
while (lines < PAGER_MAXLINES-1 &&
fgets(buf, sizeof(buf), fp) != NULL)
lpos[++lines] = ftell(fp);
rewind(fp);
while (!abort)
{
if (oldlineno != lineno) // seek and print
{
clear();
showall = 0;
oldlineno = lineno;
fseek(fp, lpos[lineno], SEEK_SET);
for (i = 0, buf[0] = 0; i < t_lines-1; i++, buf[0] = 0)
{
if (!showall)
{
fgets(buf, sizeof(buf), fp);
if (lineno + i == 0 &&
(strncmp(buf, STR_AUTHOR1, strlen(STR_AUTHOR1))==0 ||
strncmp(buf, STR_AUTHOR2, strlen(STR_AUTHOR2))==0))
colorize = 1;
}
if (!buf[0])
{
outs("\n");
showall = 1;
} else {
// dirty code to render heeader
if (colorize && lineno+i < 4 && *buf &&
*buf != '\n' && strchr(buf, ':'))
{
char *q1 = strchr(buf, ':');
int l = t_columns - 2 - strlen(buf);
char *q2 = strstr(buf, STR_POST1);
chomp(buf);
if (q2 == NULL) q2 = strstr(buf, STR_POST2);
if (q2) { *(q2-1) = 0; q2 = strchr(q2, ':'); }
else q2 = q1;
*q1++ = 0; *q2++ = 0;
if (q1 == q2) q2 = NULL;
outs(ANSI_COLOR(34;47) " ");
outs(buf); outs(" " ANSI_REVERSE);
outs(q1); prints("%*s", l, ""); q1 += strlen(q1);
if (q2) {
outs(ANSI_COLOR(0;34;47) " "); outs(q1+1);
outs(" " ANSI_REVERSE); outs(q2);
}
outs(ANSI_RESET"\n");
} else
outs(buf);
}
}
if (lineno + i >= lines)
showall = 1;
// print prompt bar
snprintf(buf, sizeof(buf),
" 瀏覽 P.%d ", 1 + (lineno / (t_lines-2)));
vs_footer(buf,
" (→↓[PgUp][PgDn][Home][End])游標移動\t(←/q)結束");
}
// process key
switch(vkey()) {
case KEY_UP: case 'k': case Ctrl('P'):
if (lineno == 0) abort = READ_PREV;
lineno--;
break;
case KEY_PGUP: case Ctrl('B'):
if (lineno == 0) abort = READ_PREV;
lineno -= t_lines-2;
break;
case KEY_PGDN: case Ctrl('F'): case ' ':
case KEY_RIGHT:
if (showall) abort = READ_NEXT;
lineno += t_lines-2;
break;
case KEY_DOWN: case 'j': case Ctrl('N'):
if (showall) abort = READ_NEXT;
lineno++;
break;
case KEY_HOME: case Ctrl('A'):
lineno = 0;
break;
case KEY_END: case Ctrl('E'):
lineno = lines - (t_lines-1);
break;
case KEY_LEFT: case 'q':
abort = FULLUPDATE;
break;
case 'b':
abort = READ_PREV;
break;
case 'f':
abort = READ_NEXT;
break;
}
if (lineno + (t_lines-1) >= lines)
lineno = lines-(t_lines-1);
if (lineno < 0)
lineno = 0;
}
fclose(fp);
return abort > 0 ? abort : 0;
}
#endif // !USE_PMORE
