/* $Id: main.c,v 1.1.1.1 2001/11/08 05:15:13 a-ito Exp $ */
#define MAINPROGRAM
#include "fm.h"
#include <signal.h>
#include <setjmp.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <fcntl.h>
#include "terms.h"
#include "myctype.h"
#ifdef MOUSE
#ifdef USE_GPM
#include <gpm.h>
#endif /* USE_GPM */
#if defined(USE_GPM) || defined(USE_SYSMOUSE)
extern int do_getch();
#define getch() do_getch()
#endif /* defined(USE_GPM) || *
* defined(USE_SYSMOUSE) */
#endif
#define DSTR_LEN 256
Hist *LoadHist;
Hist *SaveHist;
Hist *URLHist;
Hist *ShellHist;
Hist *TextHist;
#define N_EVENT_QUEUE 10
typedef struct {
int cmd;
void *user_data;
} Event;
static Event eventQueue[N_EVENT_QUEUE];
static int n_event_queue;
#ifdef USE_MARK
static char *MarkString = NULL;
#endif
static char *SearchString = NULL;
int (*searchRoutine) (Buffer *, char *);
JMP_BUF IntReturn;
static void cmd_loadfile(char *path);
static void cmd_loadURL(char *url, ParsedURL * current);
static void cmd_loadBuffer(Buffer * buf, int prop, int link);
static void keyPressEventProc(int c);
#ifdef USE_MARK
static void cmd_mark(Lineprop * p);
#endif /* USE_MARK */
#ifdef SHOW_PARAMS
int show_params_p = 0;
void show_params(FILE * fp);
#endif
static int display_ok = FALSE;
int w3m_dump = 0;
int w3m_dump_source = 0;
int w3m_dump_head = 0;
static void dump_source(Buffer *);
static void dump_head(Buffer *);
int prec_num = 0;
int prev_key = -1;
int on_target = 1;
static void _goLine(char*);
#define PREC_NUM (prec_num ? prec_num : 1)
#define PREC_LIMIT 10000
#if 0
static int searchKeyNum(void);
#endif
#include "gcmain.c"
#define help() fusage(stdout, 0)
#define usage() fusage(stderr, 1)
static void
fusage(FILE *f, int err)
{
fprintf(f, "version %s\n", version);
fprintf(f, "usage: w3m [options] [URL or filename]\noptions:\n");
fprintf(f, " -t tab set tab width\n");
fprintf(f, " -r ignore backspace effect\n");
fprintf(f, " -l line # of preserved line (default 10000)\n");
#ifdef JP_CHARSET
#ifndef DEBIAN /* disabled by ukai: -s is used for squeeze multi lines */
fprintf(f, " -e EUC-JP\n");
fprintf(f, " -s Shift_JIS\n");
fprintf(f, " -j JIS\n");
#endif
fprintf(f, " -I e|s document code\n");
#endif /* JP_CHARSET */
fprintf(f, " -B load bookmark\n");
fprintf(f, " -bookmark file specify bookmark file\n");
fprintf(f, " -T type specify content-type\n");
fprintf(f, " -m internet message mode\n");
fprintf(f, " -v visual startup mode\n");
#ifdef COLOR
fprintf(f, " -M monochrome display\n");
#endif /* COLOR */
fprintf(f, " -F automatically render frame\n");
fprintf(f, " -dump dump formatted page into stdout\n");
fprintf(f, " -cols width specify column width (used with -dump)\n");
fprintf(f, " -ppc count specify the number of pixels per character (4.0...32.0)\n");
fprintf(f, " -dump_source dump page source into stdout\n");
fprintf(f, " -dump_head dump response of HEAD request into stdout\n");
fprintf(f, " +<num> goto <num> line\n");
fprintf(f, " -num show line number\n");
fprintf(f, " -no-proxy don't use proxy\n");
#ifdef MOUSE
fprintf(f, " -no-mouse don't use mouse\n");
#endif /* MOUSE */
#ifdef USE_COOKIE
fprintf(f, " -cookie use cookie (-no-cookie: don't use cookie)\n");
fprintf(f, " -pauth user:pass proxy authentication\n");
#endif /* USE_COOKIE */
#ifndef KANJI_SYMBOLS
fprintf(f, " -no-graph don't use graphic character\n");
#endif /* not KANJI_SYMBOLS */
#ifdef DEBIAN /* replaced by ukai: pager requires -s */
fprintf(f, " -s squeeze multiple blank lines\n");
#else
fprintf(f, " -S squeeze multiple blank lines\n");
#endif
fprintf(f, " -W toggle wrap search mode\n");
fprintf(f, " -X don't use termcap init/deinit\n");
fprintf(f, " -o opt=value assign value to config option\n");
fprintf(f, " -config file specify config file\n");
fprintf(f, " -debug DO NOT USE\n");
#ifdef SHOW_PARAMS
if (show_params_p)
show_params(f);
#endif
exit(err);
}
static int option_assigned = 0;
extern void parse_proxy(void);
static GC_warn_proc orig_GC_warn_proc = NULL;
#define GC_WARN_KEEP_MAX (20)
static void
wrap_GC_warn_proc(char *msg, GC_word arg)
{
if (fmInitialized) {
static struct {
char *msg;
GC_word arg;
} msg_ring[GC_WARN_KEEP_MAX] = {
{NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0},
{NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0},
{NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0},
{NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0}, {NULL, 0},
};
static int i = 0;
static int n = 0;
static int lock = 0;
int j;
j = (i + n) % (sizeof(msg_ring) / sizeof(msg_ring[0]));
msg_ring[j].msg = msg;
msg_ring[j].arg = arg;
if (n < sizeof(msg_ring) / sizeof(msg_ring[0]))
++n;
else
++i;
if (!lock) {
lock = 1;
for (; n > 0 ; --n, ++i) {
i %= sizeof(msg_ring) / sizeof(msg_ring[0]);
disp_message_nsec(Sprintf(msg_ring[i].msg, (unsigned long)msg_ring[i].arg)->ptr, FALSE, 1, TRUE, FALSE);
}
lock = 0;
}
}
else if (orig_GC_warn_proc)
orig_GC_warn_proc(msg, arg);
else
fprintf(stderr, msg, (unsigned long)arg);
}
int
MAIN(int argc, char **argv, char **envp)
{
Buffer *newbuf = NULL;
char *p, c;
int i;
InputStream redin;
char *line_str = NULL;
char **load_argv;
FormList *request;
int load_argc = 0;
int load_bookmark = FALSE;
int visual_start = FALSE;
#ifndef SYS_ERRLIST
prepare_sys_errlist();
#endif /* not SYS_ERRLIST */
srand48(time(0));
NO_proxy_domains = newTextList();
fileToDelete = newTextList();
load_argv = New_N(char *, argc - 1);
load_argc = 0;
CurrentDir = currentdir();
BookmarkFile = NULL;
rc_dir = expandName(RC_DIR);
i = strlen(rc_dir);
if (i > 1 && rc_dir[i - 1] == '/')
rc_dir[i - 1] = '\0';
config_file = rcFile(CONFIG_FILE);
create_option_search_table();
/* argument search 1 */
for (i = 1; i < argc; i++) {
if (*argv[i] == '-') {
if (!strcmp("-config", argv[i])) {
argv[i] = "-dummy";
if (++i >= argc)
usage();
config_file = argv[i];
argv[i] = "-dummy";
}
else if (!strcmp("-h", argv[i]))
help();
}
}
/* initializations */
init_rc(config_file);
initKeymap();
#ifdef MENU
initMenu();
CurrentMenuData = NULL;
#endif /* MENU */
#ifdef USE_COOKIE
initCookie();
#endif /* USE_COOKIE */
setLocalCookie(); /* setup cookie for local CGI */
LoadHist = newHist();
SaveHist = newHist();
ShellHist = newHist();
TextHist = newHist();
URLHist = newHist();
#ifdef USE_HISTORY
loadHistory(URLHist);
#endif /* not USE_HISTORY */
if (!non_null(HTTP_proxy) &&
((p = getenv("HTTP_PROXY")) ||
(p = getenv("http_proxy")) ||
(p = getenv("HTTP_proxy")))) {
HTTP_proxy = p;
parseURL(p, &HTTP_proxy_parsed, NULL);
}
#ifdef USE_GOPHER
if (!non_null(GOPHER_proxy) &&
((p = getenv("GOPHER_PROXY")) ||
(p = getenv("gopher_proxy")) ||
(p = getenv("GOPHER_proxy")))) {
GOPHER_proxy = p;
parseURL(p, &GOPHER_proxy_parsed, NULL);
}
#endif /* USE_GOPHER */
if (!non_null(FTP_proxy) &&
((p = getenv("FTP_PROXY")) ||
(p = getenv("ftp_proxy")) ||
(p = getenv("FTP_proxy")))) {
FTP_proxy = p;
parseURL(p, &FTP_proxy_parsed, NULL);
}
if (!non_null(NO_proxy) &&
((p = getenv("NO_PROXY")) ||
(p = getenv("no_proxy")) ||
(p = getenv("NO_proxy")))) {
NO_proxy = p;
set_no_proxy(p);
}
if (Editor == NULL && (p = getenv("EDITOR")) != NULL)
Editor = p;
if (Mailer == NULL && (p = getenv("MAILER")) != NULL)
Mailer = p;
/* argument search 2 */
i = 1;
while (i < argc) {
if (*argv[i] == '-') {
if (!strcmp("-t", argv[i])) {
if (++i >= argc)
usage();
if (atoi(argv[i]) != 0)
Tabstop = atoi(argv[i]);
}
else if (!strcmp("-r", argv[i]))
ShowEffect = FALSE;
else if (!strcmp("-l", argv[i])) {
if (++i >= argc)
usage();
PagerMax = atoi(argv[i]);
}
#ifdef JP_CHARSET
#ifndef DEBIAN /* XXX: use -o kanjicode={S|J|E} */
else if (!strcmp("-s", argv[i]))
DisplayCode = CODE_SJIS;
else if (!strcmp("-j", argv[i]))
DisplayCode = CODE_JIS_n;
else if (!strcmp("-e", argv[i]))
DisplayCode = CODE_EUC;
#endif
else if (!strcmp("-I", argv[i])) {
if (++i >= argc)
usage();
DocumentCode = str_to_code(argv[i]);
}
#endif /* JP_CHARSET */
#ifndef KANJI_SYMBOLS
else if (!strcmp("-no-graph", argv[i]))
no_graphic_char = TRUE;
#endif /* not KANJI_SYMBOLS */
else if (!strcmp("-T", argv[i])) {
if (++i >= argc)
usage();
DefaultType = argv[i];
}
else if (!strcmp("-m", argv[i]))
SearchHeader = TRUE;
else if (!strcmp("-v", argv[i]))
visual_start = TRUE;
#ifdef COLOR
else if (!strcmp("-M", argv[i]))
useColor = FALSE;
#endif /* COLOR */
else if (!strcmp("-B", argv[i]))
load_bookmark = TRUE;
else if (!strcmp("-bookmark", argv[i])) {
if (++i >= argc)
usage();
BookmarkFile = argv[i];
if (BookmarkFile[0] != '~' && BookmarkFile[0] != '/') {
Str tmp = Strnew_charp(CurrentDir);
if (Strlastchar(tmp) != '/')
Strcat_char(tmp, '/');
Strcat_charp(tmp, BookmarkFile);
BookmarkFile = cleanupName(tmp->ptr);
}
}
else if (!strcmp("-F", argv[i]))
RenderFrame = TRUE;
else if (!strcmp("-W", argv[i])) {
if (WrapSearch) {
WrapSearch = FALSE;
}
else {
WrapSearch = TRUE;
}
}
else if (!strcmp("-dump", argv[i])) {
w3m_dump = TRUE;
w3m_dump_source = FALSE;
w3m_dump_head = FALSE;
w3m_halfdump = FALSE;
if (COLS == 0)
COLS = 80;
}
else if (!strcmp("-dump_source", argv[i])) {
w3m_dump = TRUE;
w3m_dump_source = TRUE;
w3m_dump_head = FALSE;
w3m_halfdump = FALSE;
if (COLS == 0)
COLS = 80;
}
else if (!strcmp("-dump_head", argv[i])) {
w3m_dump = TRUE;
w3m_dump_head = TRUE;
w3m_dump_source = FALSE;
w3m_halfdump = FALSE;
if (COLS == 0)
COLS = 80;
}
else if (!strcmp("-halfdump", argv[i])) {
w3m_halfdump = TRUE;
w3m_dump = FALSE;
if (COLS == 0)
COLS = 80;
}
else if (!strcmp("-halfload", argv[i])) {
w3m_halfload = TRUE;
w3m_dump = FALSE;
w3m_halfdump = FALSE;
}
else if (!strcmp("-backend", argv[i])) {
w3m_backend = TRUE;
}
else if (!strcmp("-backend_batch", argv[i])) {
w3m_backend = TRUE;
if (++i >= argc)
usage();
if (!backend_batch_commands)
backend_batch_commands = newTextList();
pushText(backend_batch_commands, argv[i]);
}
else if (!strcmp("-cols", argv[i])) {
if (++i >= argc)
usage();
COLS = atoi(argv[i]);
}
else if (!strcmp("-ppc", argv[i])) {
double ppc;
if (++i >= argc)
usage();
ppc = atof(argv[i]);
if (ppc >= MINIMUM_PIXEL_PER_CHAR &&
ppc <= MAXIMUM_PIXEL_PER_CHAR)
pixel_per_char = ppc;
}
else if (!strcmp("-num", argv[i]))
showLineNum = TRUE;
else if (!strcmp("-no-proxy", argv[i]))
Do_not_use_proxy = TRUE;
#ifdef MOUSE
else if (!strcmp("-no-mouse", argv[i])) {
mouse_end();
use_mouse = FALSE;
}
#endif /* MOUSE */
#ifdef USE_COOKIE
else if (!strcmp("-no-cookie", argv[i])) {
use_cookie = FALSE;
}
else if (!strcmp("-cookie", argv[i])) {
use_cookie = TRUE;
}
else if (!strcmp("-pauth", argv[i])) {
if (++i >= argc)
usage();
proxy_auth_cookie = encodeB(argv[i]);
while (argv[i][0]) {
argv[i][0] = '\0';
argv[i]++;
}
}
#endif /* USE_COOKIE */
#ifdef DEBIAN
else if (!strcmp("-s", argv[i]))
#else
else if (!strcmp("-S", argv[i]))
#endif
squeezeBlankLine = TRUE;
else if (!strcmp("-X", argv[i]))
Do_not_use_ti_te = TRUE;
else if (!strcmp("-o", argv[i])) {
#ifdef SHOW_PARAMS
if (++i >= argc || !strcmp(argv[i], "?")) {
show_params_p = 1;
usage();
}
#else
if (++i >= argc)
usage();
#endif
if (!set_param_option(argv[i])) {
/* option set failed */
fprintf(stderr, "%s: bad option\n", argv[i]);
#ifdef SHOW_PARAMS
show_params_p = 1;
usage();
#else
exit(1);
#endif
}
option_assigned = 1;
}
else if (!strcmp("-dummy", argv[i])) {
/* do nothing */
}
else if (!strcmp("-debug", argv[i]))
w3m_debug = TRUE;
else {
usage();
}
}
else if (*argv[i] == '+') {
line_str = argv[i] + 1;
}
else {
load_argv[load_argc++] = argv[i];
}
i++;
}
if (option_assigned) {
parse_proxy();
}
#ifdef __WATT32__
if (w3m_debug)
dbug_init();
sock_init();
#endif
Firstbuf = NULL;
Currentbuf = NULL;
CurrentKey = -1;
if (BookmarkFile == NULL)
BookmarkFile = rcFile(BOOKMARK);
if (!isatty(1) && !w3m_dump && !w3m_halfdump) {
/* redirected output */
w3m_dump = TRUE;
if (COLS == 0)
COLS = 80;
}
if (w3m_backend)
backend();
if (!w3m_dump && !w3m_halfdump)
fmInit();
orig_GC_warn_proc = GC_set_warn_proc(wrap_GC_warn_proc);
if (w3m_halfdump)
printf("<pre>\n");
if (load_argc == 0) {
if (!isatty(0)) {
redin = newFileStream(fdopen(dup(0), "rb"), (void (*)()) pclose);
newbuf = openGeneralPagerBuffer(redin);
dup2(1, 0);
}
else if (load_bookmark) {
newbuf = loadGeneralFile(BookmarkFile, NULL, NO_REFERER, 0, NULL);
if (newbuf == NULL)
fprintf(stderr, "w3m: Can't load bookmark\n");
}
else if (visual_start) {
Str s_page;
s_page = Strnew_charp("<title>W3M startup page</title><center><b>Welcome to ");
#ifdef JP_CHARSET
Strcat_charp(s_page, "<a href='http://ei5nazha.yz.yamagata-u.ac.jp/~aito/w3m/'>");
#else
Strcat_charp(s_page, "<a href='http://ei5nazha.yz.yamagata-u.ac.jp/~aito/w3m/eng/'>");
#endif /* JP_CHARSET */
Strcat_m_charp(s_page,
"w3m</a>!<p><p>This is w3m version ",
version,
"<br>Written by <a href='mailto:aito@ei5sun.yz.yamagata-u.ac.jp'>Akinori Ito</a>",
NULL);
#ifdef DEBIAN
Strcat_m_charp(s_page,
"<p>Debian package is maintained by <a href='mailto:ukai@debian.or.jp'>Fumitoshi UKAI</a>.",
"You can read <a href='file:///usr/share/doc/w3m/'>w3m documents on your local system</a>.",
NULL);
#endif /* DEBIAN */
newbuf = loadHTMLString(s_page);
if (newbuf == NULL)
fprintf(stderr, "w3m: Can't load string\n");
else
newbuf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
}
else if ((p = getenv("HTTP_HOME")) != NULL ||
(p = getenv("WWW_HOME")) != NULL) {
newbuf = loadGeneralFile(p, NULL, NO_REFERER, 0, NULL);
if (newbuf == NULL)
fprintf(stderr, "w3m: Can't load %s\n", p);
}
else {
if (fmInitialized)
fmTerm();
usage();
}
if (newbuf == NULL) {
deleteFiles();
if (fmInitialized) {
sleep_till_anykey(1, 0);
fmTerm();
}
exit(2);
}
i = -1;
}
else {
i = 0;
}
for (; i < load_argc; i++) {
if (i >= 0) {
if (w3m_dump && w3m_dump_head) {
request = New(FormList);
request->method = FORM_METHOD_HEAD;
newbuf = loadGeneralFile(load_argv[i], NULL, NO_REFERER, 0, request);
}
else {
newbuf = loadGeneralFile(load_argv[i], NULL, NO_REFERER, 0, NULL);
}
if (newbuf == NULL) {
fprintf(stderr, "w3m: Can't load %s\n", load_argv[i]);
continue;
}
else if (newbuf == NO_BUFFER)
continue;
switch (newbuf->real_scheme) {
#ifdef USE_NNTP
case SCM_NNTP:
case SCM_NEWS:
#endif /* USE_NNTP */
case SCM_MAILTO:
break;
case SCM_LOCAL:
case SCM_LOCAL_CGI:
unshiftHist(LoadHist, load_argv[i]);
break;
default:
pushHashHist(URLHist, parsedURL2Str(&newbuf->currentURL)->ptr);
break;
}
}
if (newbuf == NO_BUFFER)
continue;
if (w3m_halfdump) {
Currentbuf = Firstbuf = newbuf;
printf("</pre><title>%s</title>\n", htmlquote_str(newbuf->buffername));
deleteFiles();
exit(0);
}
if (w3m_dump) {
Currentbuf = Firstbuf = newbuf;
if (w3m_dump_source)
dump_source(Currentbuf);
else if (w3m_dump_head)
dump_head(Currentbuf);
else {
if (Currentbuf->frameset != NULL && RenderFrame)
rFrame();
saveBuffer(Currentbuf, stdout);
}
deleteFiles();
#ifdef USE_COOKIES
save_cookies();
#endif /* USE_COOKIES */
exit(0);
}
if (Currentbuf == NULL)
Firstbuf = Currentbuf = newbuf;
else {
Currentbuf->nextBuffer = newbuf;
Currentbuf = newbuf;
}
if (Currentbuf && Currentbuf != NO_BUFFER &&
RenderFrame && Currentbuf->frameset != NULL) {
rFrame();
Currentbuf = newbuf;
}
#ifdef BUFINFO
saveBufferInfo();
#endif
}
if (!Firstbuf || Firstbuf == NO_BUFFER) {
if (newbuf == NO_BUFFER) {
if (fmInitialized)
inputStr("Hit any key to quit w3m:", "");
quitfm();
}
deleteFiles();
if (fmInitialized) {
sleep_till_anykey(1, 0);
fmTerm();
}
exit(2);
}
#ifdef SIGWINCH
signal(SIGWINCH, resize_hook);
#else /* not SIGWINCH */
setlinescols();
setupscreen();
#endif /* not SIGWINCH */
Currentbuf = Firstbuf;
displayBuffer(Currentbuf, B_NORMAL);
onA();
if (line_str) {
_goLine(line_str);
}
for (;;) {
/* event processing */
if (n_event_queue > 0) {
for (i = 0; i < n_event_queue; i++) {
CurrentKey = -1;
CurrentKeyData = eventQueue[i].user_data;
#ifdef MENU
CurrentMenuData = NULL;
#endif
w3mFuncList[eventQueue[i].cmd].func();
}
n_event_queue = 0;
}
CurrentKeyData = NULL;
/* get keypress event */
#ifdef MOUSE
if (use_mouse)
mouse_active();
#endif /* MOUSE */
c = getch();
#ifdef MOUSE
if (use_mouse)
mouse_inactive();
#endif /* MOUSE */
if (IS_ASCII(c)) { /* Ascii */
if (((prec_num && c == '0') || '1' <= c) && (c <= '9')) {
prec_num = prec_num * 10 + (int) (c - '0');
if (prec_num > PREC_LIMIT)
prec_num = PREC_LIMIT;
}
else {
keyPressEventProc((int) c);
prec_num = 0;
}
}
prev_key = CurrentKey;
CurrentKey = -1;
}
}
static void
keyPressEventProc(int c)
{
CurrentKey = c;
w3mFuncList[(int) GlobalKeymap[c]].func();
onA();
}
void
pushEvent(int event, void *user_data)
{
if (n_event_queue < N_EVENT_QUEUE) {
eventQueue[n_event_queue].cmd = event;
eventQueue[n_event_queue].user_data = user_data;
n_event_queue++;
}
}
static void
dump_source(Buffer * buf)
{
FILE *f;
char c;
if (buf->sourcefile == NULL)
return;
f = fopen(buf->sourcefile, "r");
if (f == NULL)
return;
while (c = fgetc(f), !feof(f)) {
putchar(c);
}
fclose(f);
}
static void
dump_head(Buffer * buf)
{
TextListItem *ti;
if (buf->document_header == NULL)
return;
for (ti = buf->document_header->first; ti; ti = ti->next) {
printf("%s", ti->ptr);
}
puts("");
}
void
nulcmd(void)
{ /* do nothing */
}
#ifdef __EMX__
void
pcmap(void)
{
w3mFuncList[(int) PcKeymap[(int) getch()].func();
}
#else /* not __EMX__ */
void pcmap(void)
{
}
#endif
void
escmap(void)
{
char c;
c = getch();
if (IS_ASCII(c)) {
CurrentKey = K_ESC | c;
w3mFuncList[(int) EscKeymap[(int) c]].func();
}
}
void
escbmap(void)
{
char c;
c = getch();
if (IS_DIGIT(c))
escdmap(c);
else if (IS_ASCII(c)) {
CurrentKey = K_ESCB | c;
w3mFuncList[(int) EscBKeymap[(int) c]].func();
}
}
void
escdmap(char c)
{
int d;
d = (int) c - (int) '0';
c = getch();
if (IS_DIGIT(c)) {
d = d * 10 + (int) c - (int) '0';
c = getch();
}
if (c == '~') {
CurrentKey = K_ESCD | d;
w3mFuncList[(int) EscDKeymap[d]].func();
}
}
void
tmpClearBuffer(Buffer * buf)
{
if (buf->pagerSource == NULL &&
writeBufferCache(buf) == 0) {
buf->firstLine = NULL;
buf->topLine = NULL;
buf->currentLine = NULL;
buf->lastLine = NULL;
}
}
static Str currentURL(void);
void
saveBufferInfo()
{
FILE *fp;
if ((fp = fopen(rcFile("bufinfo"), "w")) == NULL) {
return;
}
else {
fprintf(fp, "%s\n", currentURL()->ptr);
fclose(fp);
}
}
static void
pushBuffer(Buffer * buf)
{
Buffer *b;
if (clear_buffer)
tmpClearBuffer(Currentbuf);
if (Firstbuf == Currentbuf) {
buf->nextBuffer = Firstbuf;
Firstbuf = Currentbuf = buf;
}
else if ((b = prevBuffer(Firstbuf, Currentbuf)) != NULL) {
b->nextBuffer = buf;
buf->nextBuffer = Currentbuf;
Currentbuf = buf;
}
#ifdef BUFINFO
saveBufferInfo();
#endif
}
static void
delBuffer(Buffer * buf)
{
if (buf == NULL)
return;
if (Currentbuf == buf)
Currentbuf = buf->nextBuffer;
Firstbuf = deleteBuffer(Firstbuf, buf);
if (!Currentbuf)
Currentbuf = Firstbuf;
}
static void
repBuffer(Buffer * oldbuf, Buffer * buf)
{
Firstbuf = replaceBuffer(Firstbuf, oldbuf, buf);
Currentbuf = buf;
}
MySignalHandler
intTrap(SIGNAL_ARG)
{ /* Interrupt catcher */
LONGJMP(IntReturn, 0);
SIGNAL_RETURN;
}
#ifdef SIGWINCH
MySignalHandler
resize_hook(SIGNAL_ARG)
{
setlinescols();
setupscreen();
if (Currentbuf)
displayBuffer(Currentbuf, B_FORCE_REDRAW);
signal(SIGWINCH, resize_hook);
SIGNAL_RETURN;
}
#endif /* SIGWINCH */
/*
* Command functions: These functions are called with a keystroke.
*/
#define MAX(a, b) ((a) > (b) ? (a) : (b))
#define MIN(a, b) ((a) < (b) ? (a) : (b))
static void
nscroll(int n, int mode)
{
Line *curtop = Currentbuf->topLine;
int lnum, tlnum, llnum, diff_n;
if (Currentbuf->firstLine == NULL)
return;
lnum = Currentbuf->currentLine->linenumber;
Currentbuf->topLine = lineSkip(Currentbuf, curtop, n, FALSE);
if (Currentbuf->topLine == curtop) {
lnum += n;
if (lnum < Currentbuf->topLine->linenumber)
lnum = Currentbuf->topLine->linenumber;
else if (lnum > Currentbuf->lastLine->linenumber)
lnum = Currentbuf->lastLine->linenumber;
} else {
tlnum = Currentbuf->topLine->linenumber;
llnum = Currentbuf->topLine->linenumber + LASTLINE - 1;
diff_n = n - (tlnum - curtop->linenumber);
if (lnum < tlnum)
lnum = tlnum + diff_n;
if (lnum > llnum)
lnum = llnum + diff_n;
}
gotoLine(Currentbuf, lnum);
arrangeLine(Currentbuf);
displayBuffer(Currentbuf, mode);
}
/* Move page forward */
void
pgFore(void)
{
#ifdef VI_PREC_NUM
nscroll(PREC_NUM * (LASTLINE - 1), B_NORMAL);
#else /* not VI_PREC_NUM */
nscroll(prec_num ? prec_num : (LASTLINE - 1),
prec_num ? B_SCROLL : B_NORMAL);
#endif /* not VI_PREC_NUM */
}
/* Move page backward */
void
pgBack(void)
{
#ifdef VI_PREC_NUM
nscroll(- PREC_NUM * (LASTLINE - 1), B_NORMAL);
#else /* not VI_PREC_NUM */
nscroll(- (prec_num ? prec_num : (LASTLINE - 1)),
prec_num ? B_SCROLL : B_NORMAL);
#endif /* not VI_PREC_NUM */
}
/* 1 line up */
void
lup1(void)
{
nscroll(PREC_NUM, B_SCROLL);
}
/* 1 line down */
void
ldown1(void)
{
nscroll(-PREC_NUM, B_SCROLL);
}
/* move cursor position to the center of screen */
void
ctrCsrV(void)
{
int offsety;
if (Currentbuf->firstLine == NULL)
return;
offsety = LASTLINE / 2 - Currentbuf->cursorY;
if (offsety != 0) {
/* Currentbuf->currentLine = lineSkip(Currentbuf,
* Currentbuf->currentLine,offsety, FALSE); */
Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->topLine, -offsety, FALSE);
arrangeLine(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
}
void
ctrCsrH(void)
{
int offsetx;
if (Currentbuf->firstLine == NULL)
return;
offsetx = Currentbuf->cursorX - COLS / 2;
if (offsetx != 0) {
columnSkip(Currentbuf, offsetx);
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
}
/* Redraw screen */
void
rdrwSc(void)
{
clear();
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Search regular expression forward */
void
srchfor(void)
{
MySignalHandler(*prevtrap) ();
char *str;
int i;
int wrapped = 0;
str = inputStrHist("Forward: ", NULL, TextHist);
if (str != NULL && *str == '\0')
str = SearchString;
if (str == NULL || *str == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
SearchString = str;
prevtrap = signal(SIGINT, intTrap);
crmode();
if (SETJMP(IntReturn) == 0)
for (i = 0; i < PREC_NUM; i++)
wrapped = forwardSearch(Currentbuf, SearchString);
signal(SIGINT, prevtrap);
term_raw();
displayBuffer(Currentbuf, B_NORMAL);
if (wrapped) {
disp_message("Search wrapped", FALSE);
}
searchRoutine = forwardSearch;
}
/* Search regular expression backward */
void
srchbak(void)
{
MySignalHandler(*prevtrap) ();
char *str;
int i;
int wrapped = 0;
str = inputStrHist("Backward: ", NULL, TextHist);
if (str != NULL && *str == '\0')
str = SearchString;
if (str == NULL || *str == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
SearchString = str;
prevtrap = signal(SIGINT, intTrap);
crmode();
if (SETJMP(IntReturn) == 0)
for (i = 0; i < PREC_NUM; i++)
wrapped = backwardSearch(Currentbuf, SearchString);
signal(SIGINT, prevtrap);
term_raw();
displayBuffer(Currentbuf, B_NORMAL);
if (wrapped) {
disp_message("Search wrapped", FALSE);
}
searchRoutine = backwardSearch;
}
static void
srch_nxtprv(int reverse)
{
int i;
int wrapped = 0;
static int (*routine[2]) (Buffer *, char *) =
{
forwardSearch, backwardSearch
};
MySignalHandler(*prevtrap) ();
if (searchRoutine == NULL) {
disp_message("No previous regular expression", TRUE);
return;
}
move(LASTLINE, 0);
addstr(searchRoutine == forwardSearch ? "Forward: " : "Backward: ");
addstr(SearchString);
clrtoeolx();
move(LASTLINE, 0);
refresh();
if (reverse != 0)
reverse = 1;
if (searchRoutine == backwardSearch)
reverse ^= 1;
prevtrap = signal(SIGINT, intTrap);
crmode();
if (SETJMP(IntReturn) == 0)
for (i = 0; i < PREC_NUM; i++)
wrapped = (*routine[reverse]) (Currentbuf, SearchString);
signal(SIGINT, prevtrap);
term_raw();
displayBuffer(Currentbuf, B_NORMAL);
if (wrapped) {
disp_message("Search wrapped", FALSE);
}
}
/* Search next matching */
void
srchnxt(void)
{
srch_nxtprv(0);
}
/* Search previous matching */
void
srchprv(void)
{
srch_nxtprv(1);
}
static void
shiftvisualpos(Buffer * buf, int shift)
{
buf->visualpos -= shift;
if (buf->visualpos >= COLS)
buf->visualpos = COLS - 1;
else if (buf->visualpos < 0)
buf->visualpos = 0;
arrangeLine(buf);
if (buf->visualpos == -shift && buf->cursorX == 0)
buf->visualpos = 0;
}
/* Shift screen left */
void
shiftl(void)
{
int column;
if (Currentbuf->firstLine == NULL)
return;
column = Currentbuf->currentColumn;
columnSkip(Currentbuf, PREC_NUM * (-COLS + 1) + 1);
shiftvisualpos(Currentbuf, Currentbuf->currentColumn - column);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Shift screen right */
void
shiftr(void)
{
int column;
if (Currentbuf->firstLine == NULL)
return;
column = Currentbuf->currentColumn;
columnSkip(Currentbuf, PREC_NUM * (COLS - 1) - 1);
shiftvisualpos(Currentbuf, Currentbuf->currentColumn - column);
displayBuffer(Currentbuf, B_NORMAL);
}
void
col1R(void)
{
Buffer *buf = Currentbuf;
Line *l = buf->currentLine;
int j, column;
if (l == NULL)
return;
for (j = 0; j < PREC_NUM; j++) {
column = buf->currentColumn;
columnSkip(Currentbuf, 1);
if (column == buf->currentColumn)
break;
shiftvisualpos(Currentbuf, 1);
}
displayBuffer(Currentbuf, B_NORMAL);
}
void
col1L(void)
{
Buffer *buf = Currentbuf;
Line *l = buf->currentLine;
int j;
if (l == NULL)
return;
for (j = 0; j < PREC_NUM; j++) {
if (buf->currentColumn == 0)
break;
columnSkip(Currentbuf, -1);
shiftvisualpos(Currentbuf, -1);
}
displayBuffer(Currentbuf, B_NORMAL);
}
/* Execute shell command and read output ac pipe. */
void
pipesh(void)
{
Buffer *buf;
char *cmd;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
cmd = searchKeyData();
if (cmd == NULL || *cmd == '\0') {
cmd = inputLineHist("(read shell[pipe])!", "", IN_COMMAND, ShellHist);
if (cmd == NULL || *cmd == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
}
buf = getpipe(cmd);
if (buf == NULL) {
disp_message("Execution failed", FALSE);
}
else {
buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
if (buf->type == NULL)
buf->type = "text/plain";
pushBuffer(buf);
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Execute shell command and load entire output to buffer */
void
readsh(void)
{
Buffer *buf;
MySignalHandler(*prevtrap) ();
char *cmd;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
cmd = searchKeyData();
if (cmd == NULL || *cmd == '\0') {
cmd = inputLineHist("(read shell)!", "", IN_COMMAND, ShellHist);
if (cmd == NULL || *cmd == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
}
prevtrap = signal(SIGINT, intTrap);
crmode();
buf = getshell(cmd);
signal(SIGINT, prevtrap);
term_raw();
if (buf == NULL) {
disp_message("Execution failed", FALSE);
}
else {
buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
if (buf->type == NULL)
buf->type = "text/plain";
pushBuffer(buf);
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Execute shell command */
void
execsh(void)
{
#ifdef MOUSE
int use_m = use_mouse;
#endif
char *cmd;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
cmd = searchKeyData();
if (cmd == NULL || *cmd == '\0') {
cmd = inputLineHist("(exec shell)!", "", IN_COMMAND, ShellHist);
}
if (cmd != NULL && *cmd != '\0') {
fmTerm();
system(cmd);
printf("\n[Hit any key]");
fflush(stdout);
#ifdef MOUSE
use_mouse = FALSE;
#endif
fmInit();
getch();
#ifdef MOUSE
use_mouse = use_m;
if (use_mouse)
mouse_init();
#endif
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Load file */
void
ldfile(void)
{
char *fn;
fn = searchKeyData();
if (fn == NULL || *fn == '\0') {
fn = inputFilenameHist("(Load)Filename? ", NULL, LoadHist);
if (fn == NULL || *fn == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
}
cmd_loadfile(fn);
}
/* Load help file */
void
ldhelp(void)
{
cmd_loadURL(helpFile(HELP_FILE), NULL);
}
static void
cmd_loadfile(char *fn)
{
Buffer *buf;
buf = loadGeneralFile(fn, NULL, NO_REFERER, 0, NULL);
if (buf == NULL) {
char *emsg = Sprintf("%s not found", fn)->ptr;
disp_err_message(emsg, FALSE);
}
else if (buf != NO_BUFFER) {
pushBuffer(buf);
if (RenderFrame && Currentbuf->frameset != NULL)
rFrame();
}
displayBuffer(Currentbuf, B_NORMAL);
}
/* Move cursor left */
void
movL(void)
{
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++)
cursorLeft(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Move cursor downward */
void
movD(void)
{
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++)
cursorDown(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* move cursor upward */
void
movU(void)
{
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++)
cursorUp(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Move cursor right */
void
movR(void)
{
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++)
cursorRight(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* movLW, movRW */
/*
* From: Takashi Nishimoto <g96p0935@mse.waseda.ac.jp> Date: Mon, 14 Jun
* 1999 09:29:56 +0900 */
#define IS_WORD_CHAR(c,p) (IS_ALNUM(c) && CharType(p) == PC_ASCII)
static int
prev_nonnull_line(Line * line)
{
Line *l;
for (l = line; l != NULL && l->len == 0; l = l->prev);
if (l == NULL || l->len == 0)
return -1;
Currentbuf->currentLine = l;
if (l != line)
Currentbuf->pos = Currentbuf->currentLine->len;
return 0;
}
void
movLW(void)
{
char *lb;
Lineprop *pb;
Line *pline;
int ppos;
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++) {
pline = Currentbuf->currentLine;
ppos = Currentbuf->pos;
if (prev_nonnull_line(Currentbuf->currentLine) < 0)
goto end;
while (1) {
lb = Currentbuf->currentLine->lineBuf;
pb = Currentbuf->currentLine->propBuf;
while (Currentbuf->pos > 0 &&
!IS_WORD_CHAR(lb[Currentbuf->pos - 1], pb[Currentbuf->pos - 1])) {
Currentbuf->pos--;
}
if (Currentbuf->pos > 0)
break;
if (prev_nonnull_line(Currentbuf->currentLine->prev) < 0) {
Currentbuf->currentLine = pline;
Currentbuf->pos = ppos;
goto end;
}
Currentbuf->pos = Currentbuf->currentLine->len;
}
lb = Currentbuf->currentLine->lineBuf;
pb = Currentbuf->currentLine->propBuf;
while (Currentbuf->pos > 0 &&
IS_WORD_CHAR(lb[Currentbuf->pos - 1], pb[Currentbuf->pos - 1])) {
Currentbuf->pos--;
}
}
end:
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
static int
next_nonnull_line(Line * line)
{
Line *l;
for (l = line; l != NULL && l->len == 0; l = l->next);
if (l == NULL || l->len == 0)
return -1;
Currentbuf->currentLine = l;
if (l != line)
Currentbuf->pos = 0;
return 0;
}
void
movRW(void)
{
char *lb;
Lineprop *pb;
Line *pline;
int ppos;
int i;
if (Currentbuf->firstLine == NULL)
return;
for (i = 0; i < PREC_NUM; i++) {
pline = Currentbuf->currentLine;
ppos = Currentbuf->pos;
if (next_nonnull_line(Currentbuf->currentLine) < 0)
goto end;
lb = Currentbuf->currentLine->lineBuf;
pb = Currentbuf->currentLine->propBuf;
while (lb[Currentbuf->pos] &&
IS_WORD_CHAR(lb[Currentbuf->pos], pb[Currentbuf->pos]))
Currentbuf->pos++;
while (1) {
while (lb[Currentbuf->pos] &&
!IS_WORD_CHAR(lb[Currentbuf->pos], pb[Currentbuf->pos]))
Currentbuf->pos++;
if (lb[Currentbuf->pos])
break;
if (next_nonnull_line(Currentbuf->currentLine->next) < 0) {
Currentbuf->currentLine = pline;
Currentbuf->pos = ppos;
goto end;
}
Currentbuf->pos = 0;
lb = Currentbuf->currentLine->lineBuf;
pb = Currentbuf->currentLine->propBuf;
}
}
end:
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Question and Quit */
void
qquitfm(void)
{
char *ans;
if (!confirm_on_quit)
quitfm();
ans = inputStr("Do you want to exit w3m? (y or n)", "");
if (ans != NULL && tolower(*ans) == 'y')
quitfm();
displayBuffer(Currentbuf, B_NORMAL);
}
/* Quit */
void
quitfm(void)
{
fmTerm();
deleteFiles();
#ifdef USE_COOKIE
save_cookies();
#endif /* USE_COOKIE */
#ifdef USE_HISTORY
if (SaveURLHist)
saveHistory(URLHist, URLHistSize);
#endif /* USE_HISTORY */
exit(0);
}
/* Select buffer */
void
selBuf(void)
{
Buffer *buf;
int ok;
char cmd;
ok = FALSE;
do {
buf = selectBuffer(Firstbuf, Currentbuf, &cmd);
switch (cmd) {
case 'B':
ok = TRUE;
break;
case '\n':
case ' ':
Currentbuf = buf;
ok = TRUE;
break;
case 'D':
delBuffer(buf);
if (Firstbuf == NULL) {
/* No more buffer */
Firstbuf = nullBuffer();
Currentbuf = Firstbuf;
}
break;
case 'q':
qquitfm();
break;
case 'Q':
quitfm();
break;
}
} while (!ok);
if (clear_buffer) {
for (buf = Firstbuf; buf != NULL; buf = buf->nextBuffer)
tmpClearBuffer(buf);
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Suspend (on BSD), or run interactive shell (on SysV) */
void
susp(void)
{
#ifndef SIGSTOP
char *shell;
#endif /* not SIGSTOP */
move(LASTLINE, 0);
clrtoeolx();
refresh();
fmTerm();
#ifndef SIGSTOP
shell = getenv("SHELL");
if (shell == NULL)
shell = "/bin/sh";
system(shell);
#else /* SIGSTOP */
kill((pid_t)0, SIGSTOP);
#endif /* SIGSTOP */
fmInit();
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Go to specified line */
static void
_goLine(char *l)
{
if (l == NULL || *l == '\0' || Currentbuf->currentLine == NULL) {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
Currentbuf->pos = 0;
if (((*l == '^') || (*l == '$')) && prec_num) {
gotoRealLine(Currentbuf, prec_num);
}
else if (*l == '^') {
Currentbuf->topLine = Currentbuf->currentLine = Currentbuf->firstLine;
}
else if (*l == '$') {
Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->lastLine, -(LASTLINE + 1) / 2, TRUE);
Currentbuf->currentLine = Currentbuf->lastLine;
}
else
gotoRealLine(Currentbuf, atoi(l));
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
void
goLine(void)
{
char *l = inputStr("Goto line: ", "");
prec_num = 0;
_goLine(l);
}
void
goLineF(void)
{
_goLine("^");
}
void
goLineL(void)
{
_goLine("$");
}
/* Go to the beginning of the line */
void
linbeg(void)
{
if (Currentbuf->firstLine == NULL)
return;
Currentbuf->pos = 0;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Go to the bottom of the line */
void
linend(void)
{
if (Currentbuf->firstLine == NULL)
return;
Currentbuf->pos = Currentbuf->currentLine->len - 1;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* Run editor on the current buffer */
void
editBf(void)
{
char *fn = Currentbuf->filename;
char *type = Currentbuf->type;
int top, linenum, cursorY, pos, currentColumn;
Buffer *buf, *fbuf = NULL;
Str cmd;
if (fn == NULL ||
Currentbuf->pagerSource != NULL || /* Behaving as a pager */
(Currentbuf->type == NULL &&
Currentbuf->edit == NULL) || /* Reading shell */
Currentbuf->real_scheme != SCM_LOCAL ||
!strcmp(Currentbuf->currentURL.file, "-") || /* file is std *
* input */
Currentbuf->bufferprop & BP_FRAME) { /* Frame */
disp_err_message("Can't edit other than local file", TRUE);
return;
}
if (Currentbuf->frameset != NULL)
fbuf = Currentbuf->linkBuffer[LB_FRAME];
if (Currentbuf->firstLine == NULL) {
top = 1;
linenum = 1;
} else {
top = Currentbuf->topLine->linenumber;
linenum = Currentbuf->currentLine->linenumber;
}
cursorY = Currentbuf->cursorY;
pos = Currentbuf->pos;
currentColumn = Currentbuf->currentColumn;
if (Currentbuf->edit) {
cmd = unquote_mailcap(Currentbuf->edit,
Currentbuf->real_type,
quoteShell(fn)->ptr, NULL);
}
else {
char *file = quoteShell(fn)->ptr;
if (strcasestr(Editor, "%s")) {
if (strcasestr(Editor, "%d"))
cmd = Sprintf(Editor, linenum, file);
else
cmd = Sprintf(Editor, file);
} else {
if (strcasestr(Editor, "%d"))
cmd = Sprintf(Editor, linenum);
else if (strcasestr(Editor, "vi"))
cmd = Sprintf("%s +%d", Editor, linenum);
else
cmd = Strnew_charp(Editor);
Strcat_m_charp(cmd, " ", file, NULL);
}
}
fmTerm();
system(cmd->ptr);
fmInit();
buf = loadGeneralFile(fn, NULL, NO_REFERER, 0, NULL);
if (buf == NULL) {
disp_err_message("Re-loading failed", FALSE);
buf = nullBuffer();
}
else if (buf == NO_BUFFER) {
buf = nullBuffer();
}
if (fbuf != NULL)
Firstbuf = deleteBuffer(Firstbuf, fbuf);
repBuffer(Currentbuf, buf);
if ((type != NULL) && (buf->type != NULL) &&
((!strcasecmp(buf->type, "text/plain") &&
!strcasecmp(type, "text/html")) ||
(!strcasecmp(buf->type, "text/html") &&
!strcasecmp(type, "text/plain")))) {
vwSrc();
if (Currentbuf != buf)
Firstbuf = deleteBuffer(Firstbuf, buf);
}
if (Currentbuf->firstLine == NULL) {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->topLine, top - 1, FALSE);
gotoLine(Currentbuf, linenum);
Currentbuf->pos = pos;
Currentbuf->currentColumn = currentColumn;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* Run editor on the current screen */
void
editScr(void)
{
int lnum;
Str cmd;
Str tmpf;
FILE *f;
tmpf = tmpfname(TMPF_DFL, NULL);
f = fopen(tmpf->ptr, "w");
if (f == NULL) {
cmd = Sprintf("Can't open %s\n", tmpf->ptr);
disp_err_message(cmd->ptr, TRUE);
return;
}
saveBuffer(Currentbuf, f);
fclose(f);
if (Currentbuf->currentLine)
lnum = Currentbuf->currentLine->linenumber;
else
lnum = 1;
if (strcasestr(Editor, "%s")) {
if (strcasestr(Editor, "%d"))
cmd = Sprintf(Editor, lnum, tmpf->ptr);
else
cmd = Sprintf(Editor, tmpf->ptr);
} else {
if (strcasestr(Editor, "%d"))
cmd = Sprintf(Editor, lnum);
else if (strcasestr(Editor, "vi"))
cmd = Sprintf("%s +%d", Editor, lnum);
else
cmd = Strnew_charp(Editor);
Strcat_m_charp(cmd, " ", tmpf->ptr, NULL);
}
fmTerm();
system(cmd->ptr);
fmInit();
unlink(tmpf->ptr);
gotoLine(Currentbuf, lnum);
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
#ifdef USE_MARK
/* Set / unset mark */
void
_mark(void)
{
Line *l;
if (Currentbuf->firstLine == NULL)
return;
l = Currentbuf->currentLine;
cmd_mark(&l->propBuf[Currentbuf->pos]);
redrawLine(Currentbuf, l, l->linenumber - Currentbuf->topLine->linenumber);
}
static void
cmd_mark(Lineprop * p)
{
if ((*p & PM_MARK) && (*p & PE_STAND))
*p &= ~PE_STAND;
else if (!(*p & PM_MARK) && !(*p & PE_STAND))
*p |= PE_STAND;
*p ^= PM_MARK;
}
/* Go to next mark */
void
nextMk(void)
{
Line *l;
int i;
if (Currentbuf->firstLine == NULL)
return;
i = Currentbuf->pos + 1;
l = Currentbuf->currentLine;
if (i >= l->len) {
i = 0;
l = l->next;
}
while (l != NULL) {
for (; i < l->len; i++) {
if (l->propBuf[i] & PM_MARK) {
Currentbuf->currentLine = l;
Currentbuf->pos = i;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
return;
}
}
l = l->next;
i = 0;
}
disp_message("No mark exist after here", TRUE);
}
/* Go to previous mark */
void
prevMk(void)
{
Line *l;
int i;
if (Currentbuf->firstLine == NULL)
return;
i = Currentbuf->pos - 1;
l = Currentbuf->currentLine;
if (i < 0) {
l = l->prev;
if (l != NULL)
i = l->len - 1;
}
while (l != NULL) {
for (; i >= 0; i--) {
if (l->propBuf[i] & PM_MARK) {
Currentbuf->currentLine = l;
Currentbuf->pos = i;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
return;
}
}
l = l->prev;
if (l != NULL)
i = l->len - 1;
}
disp_message("No mark exist before here", TRUE);
}
/* Mark place to which the regular expression matches */
void
reMark(void)
{
Line *l;
char *str;
char *p, *p1, *p2;
str = inputStrHist("(Mark)Regexp: ", MarkString, TextHist);
if (str == NULL || *str == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
MarkString = str;
if ((MarkString = regexCompile(MarkString, 1)) != NULL) {
disp_message(MarkString, TRUE);
return;
}
for (l = Currentbuf->firstLine; l != NULL; l = l->next) {
p = l->lineBuf;
for (;;) {
if (regexMatch(p, &l->lineBuf[l->len] - p, p == l->lineBuf) == 1) {
matchedPosition(&p1, &p2);
cmd_mark(l->propBuf + (p1 - l->lineBuf));
p = p2;
}
else
break;
}
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
#endif /* USE_MARK */
#ifdef JP_CHARSET
static char *
cURLcode(char *url, Buffer * buf)
{
char *p;
Str s;
for (p = url; *p; p++) {
if (!IS_ASCII(*p)) {
/* URL contains Kanji... uugh */
s = conv(url, InnerCode, buf->document_code);
return s->ptr;
}
}
return url;
}
#else /* not JP_CHARSET */
#define cURLcode(url,buf) (url)
#endif /* not JP_CHARSET */
static Buffer *
loadNormalBuf(Buffer * buf, int renderframe)
{
pushBuffer(buf);
if (renderframe && RenderFrame && Currentbuf->frameset != NULL)
rFrame();
return buf;
}
static Buffer *
loadLink(char *url, char *target, char *referer, FormList * request)
{
Buffer *buf, *nfbuf;
union frameset_element *f_element = NULL;
int flag = 0;
ParsedURL *base, pu;
message(Sprintf("loading %s\n", url)->ptr, 0, 0);
refresh();
base = baseURL(Currentbuf);
if (base == NULL ||
base->scheme == SCM_LOCAL || base->scheme == SCM_LOCAL_CGI)
referer = NO_REFERER;
if (referer == NULL)
referer = parsedURL2Str(&Currentbuf->currentURL)->ptr;
buf = loadGeneralFile(cURLcode(url, Currentbuf),
baseURL(Currentbuf),
referer,
flag,
request);
if (buf == NULL) {
char *emsg = Sprintf("Can't load %s\n", url)->ptr;
disp_err_message(emsg, FALSE);
return NULL;
}
parseURL2(url, &pu, base);
pushHashHist(URLHist, parsedURL2Str(&pu)->ptr);
if (buf == NO_BUFFER) {
return NULL;
}
if (!on_target) /* open link as an indivisual page */
return loadNormalBuf(buf, TRUE);
if (do_download) /* download (thus no need to render frame) */
return loadNormalBuf(buf, FALSE);
if (target == NULL || /* no target specified (that means * this
* page is not a frame page) */
!strcmp(target, "_top") || /* this link is specified to * be
* opened as an indivisual * page */
!(Currentbuf->bufferprop & BP_FRAME) /* This page is not a *
* frame page */
) {
return loadNormalBuf(buf, TRUE);
}
nfbuf = Currentbuf->linkBuffer[LB_N_FRAME];
if (nfbuf == NULL) {
/* original page (that contains <frameset> tag) doesn't exist */
return loadNormalBuf(buf, TRUE);
}
f_element = search_frame(nfbuf->frameset, target);
if (f_element == NULL) {
/* specified target doesn't exist in this frameset */
return loadNormalBuf(buf, TRUE);
}
/* frame page */
/* stack current frameset */
pushFrameTree(&(nfbuf->frameQ),
copyFrameSet(nfbuf->frameset),
Currentbuf->currentLine ?
Currentbuf->currentLine->linenumber : 0,
Currentbuf->pos);
/* delete frame view buffer */
delBuffer(Currentbuf);
Currentbuf = nfbuf;
/* nfbuf->frameset = copyFrameSet(nfbuf->frameset); */
resetFrameElement(f_element, buf, referer, request);
discardBuffer(buf);
rFrame();
{
Anchor *al = NULL;
char *label = pu.label;
if (label && f_element->element->attr == F_BODY) {
al = searchAnchor(f_element->body->nameList, label);
}
if (!al) {
label = Strnew_m_charp("_", target, NULL)->ptr;
al = searchURLLabel(Currentbuf, label);
}
if (al) {
gotoLine(Currentbuf, al->start.line);
Currentbuf->pos = al->start.pos;
arrangeCursor(Currentbuf);
}
}
displayBuffer(Currentbuf, B_NORMAL);
return buf;
}
static void
gotoLabel(char *label)
{
Buffer *buf;
Anchor *al;
int i;
al = searchURLLabel(Currentbuf, label);
if (al == NULL) {
disp_message(Sprintf("%s is not found", label)->ptr, TRUE);
return;
}
buf = newBuffer(Currentbuf->width);
copyBuffer(buf, Currentbuf);
for (i = 0; i < MAX_LB; i++)
buf->linkBuffer[i] = NULL;
buf->currentURL.label = allocStr(label, 0);
pushHashHist(URLHist, parsedURL2Str(&buf->currentURL)->ptr);
(*buf->clone)++;
pushBuffer(buf);
gotoLine(Currentbuf, al->start.line);
Currentbuf->pos = al->start.pos;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
/* follow HREF link */
void
followA(void)
{
Line *l;
Anchor *a;
ParsedURL u;
if (Currentbuf->firstLine == NULL)
return;
l = Currentbuf->currentLine;
a = retrieveCurrentAnchor(Currentbuf);
if (a == NULL) {
followForm();
return;
}
if (*a->url == '#') { /* index within this buffer */
gotoLabel(a->url + 1);
return;
}
parseURL2(a->url, &u, baseURL(Currentbuf));
if (u.scheme == Currentbuf->currentURL.scheme &&
u.port == Currentbuf->currentURL.port &&
((u.host == NULL && Currentbuf->currentURL.host == NULL) ||
(u.host != NULL && Currentbuf->currentURL.host != NULL &&
strcasecmp(u.host, Currentbuf->currentURL.host) == 0)) &&
((u.file == NULL && Currentbuf->currentURL.file == NULL) ||
(u.file != NULL && Currentbuf->currentURL.file != NULL &&
strcmp(u.file, Currentbuf->currentURL.file) == 0))) {
/* index within this buffer */
if (u.label) {
gotoLabel(u.label);
return;
}
}
if (!strncasecmp(a->url, "mailto:", 7)) {
/* invoke external mailer */
Str tmp;
char *to = quoteShell(a->url + 7)->ptr;
if (strcasestr(Mailer, "%s"))
tmp = Sprintf(Mailer, to);
else
tmp = Strnew_m_charp(Mailer, " ", to, NULL);
fmTerm();
system(tmp->ptr);
fmInit();
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
#ifdef USE_NNTP
else if (!strncasecmp(a->url, "news:", 5) &&
strchr(a->url, '@') == NULL) {
/* news:newsgroup is not supported */
disp_err_message("news:newsgroup_name is not supported", TRUE);
return;
}
#endif /* USE_NNTP */
loadLink(a->url, a->target, a->referer, NULL);
displayBuffer(Currentbuf, B_NORMAL);
}
/* follow HREF link in the buffer */
void
bufferA(void)
{
on_target = FALSE;
followA();
on_target = TRUE;
}
/* view inline image */
void
followI(void)
{
Line *l;
Anchor *a;
Buffer *buf;
if (Currentbuf->firstLine == NULL)
return;
l = Currentbuf->currentLine;
a = retrieveCurrentImg(Currentbuf);
if (a == NULL)
return;
message(Sprintf("loading %s\n", a->url)->ptr, 0, 0);
refresh();
buf = loadGeneralFile(cURLcode(a->url, Currentbuf), baseURL(Currentbuf), NULL, 0, NULL);
if (buf == NULL) {
char *emsg = Sprintf("Can't load %s\n", a->url)->ptr;
disp_err_message(emsg, FALSE);
}
else if (buf != NO_BUFFER) {
pushBuffer(buf);
}
displayBuffer(Currentbuf, B_NORMAL);
}
static void
do_update_form_radio(FormItemList * f, void *data)
{
Buffer *buf = (Buffer *) data;
formUpdateBuffer(&buf->formitem->anchors[f->anchor_num], buf, f);
}
static FormItemList *
save_submit_formlist(FormItemList * src)
{
FormList *list;
FormList *srclist;
FormItemList *srcitem;
FormItemList *item;
FormItemList *ret = NULL;
#ifdef MENU_SELECT
FormSelectOptionItem *opt;
FormSelectOptionItem *curopt;
FormSelectOptionItem *srcopt;
#endif /* MENU_SELECT */
if (src == NULL)
return NULL;
srclist = src->parent;
list = New(FormList);
list->method = srclist->method;
list->action = Strdup(srclist->action);
list->charset = srclist->charset;
list->enctype = srclist->enctype;
list->nitems = srclist->nitems;
list->body = srclist->body;
list->boundary = srclist->boundary;
list->length = srclist->length;
for (srcitem = srclist->item; srcitem; srcitem = srcitem->next) {
item = New(FormItemList);
item->type = srcitem->type;
item->name = Strdup(srcitem->name);
item->value = Strdup(srcitem->value);
item->checked = srcitem->checked;
item->accept = srcitem->accept;
item->size = srcitem->size;
item->rows = srcitem->rows;
item->maxlength = srcitem->maxlength;
#ifdef MENU_SELECT
opt = curopt = NULL;
for (srcopt = srcitem->select_option; srcopt; srcopt = srcopt->next) {
if (!srcopt->checked)
continue;
opt = New(FormSelectOptionItem);
opt->value = Strdup(srcopt->value);
opt->label = Strdup(srcopt->label);
opt->checked = srcopt->checked;
if (item->select_option == NULL) {
item->select_option = curopt = opt;
}
else {
curopt->next = opt;
curopt = curopt->next;
}
}
item->select_option = opt;
if (srcitem->label)
item->label = Strdup(srcitem->label);
#endif /* MENU_SELECT */
item->parent = list;
item->next = NULL;
if (list->lastitem == NULL) {
list->item = list->lastitem = item;
}
else {
list->lastitem->next = item;
list->lastitem = item;
}
if (srcitem == src)
ret = item;
}
return ret;
}
static void
query_from_followform(Str * query, FormItemList * fi, int multipart)
{
FormItemList *f2;
FILE *body = NULL;
if (multipart) {
*query = tmpfname(TMPF_DFL, NULL);
body = fopen((*query)->ptr, "w");
if (body == NULL) {
return;
}
fi->parent->body = (*query)->ptr;
fi->parent->boundary = Sprintf("------------------------------%d%ld%ld%ld",
getpid(), fi->parent, fi->parent->body, fi->parent->boundary)->ptr;
}
*query = Strnew();
for (f2 = fi->parent->item; f2; f2 = f2->next) {
if (f2->name == NULL)
continue;
/* <ISINDEX> is translated into single text form */
if (f2->name->length == 0 &&
(multipart || f2->type != FORM_INPUT_TEXT))
continue;
switch (f2->type) {
case FORM_INPUT_RESET:
/* do nothing */
continue;
case FORM_INPUT_SUBMIT:
case FORM_INPUT_IMAGE:
if (f2 != fi || f2->value == NULL)
continue;
break;
case FORM_INPUT_RADIO:
case FORM_INPUT_CHECKBOX:
if (!f2->checked)
continue;
}
if (multipart) {
if (f2->type == FORM_INPUT_IMAGE) {
*query = Strdup(f2->name);
Strcat_charp(*query, ".x");
form_write_data(body, fi->parent->boundary, (*query)->ptr, "1");
*query = Strdup(f2->name);
Strcat_charp(*query, ".y");
form_write_data(body, fi->parent->boundary, (*query)->ptr, "1");
}
else if (f2->name && f2->name->length > 0) {
/* not IMAGE */
if (f2->value != NULL) {
#ifdef JP_CHARSET
if (fi->parent->charset != 0)
*query = conv_str(f2->value, InnerCode, fi->parent->charset);
else
*query = conv_str(f2->value, InnerCode, Currentbuf->document_code);
#else /* not JP_CHARSET */
*query = f2->value;
#endif /* not JP_CHARSET */
}
if (f2->type == FORM_INPUT_FILE)
form_write_form_file(body, fi->parent->boundary, f2->name->ptr, (*query)->ptr);
else
form_write_data(body, fi->parent->boundary, f2->name->ptr, (*query)->ptr);
}
}
else {
/* not multipart */
if (f2->type == FORM_INPUT_IMAGE) {
Strcat(*query, f2->name);
Strcat_charp(*query, ".x=1&");
Strcat(*query, f2->name);
Strcat_charp(*query, ".y=1");
}
else {
/* not IMAGE */
if (f2->name && f2->name->length > 0) {
Strcat(*query, form_quote(f2->name));
Strcat_char(*query, '=');
}
if (f2->value != NULL) {
if (fi->parent->method == FORM_METHOD_INTERNAL)
Strcat(*query, form_quote(f2->value));
else {
#ifdef JP_CHARSET
if (fi->parent->charset != 0)
Strcat(*query,
form_quote(conv_str(f2->value,
InnerCode,
fi->parent->charset)));
else
Strcat(*query,
form_quote(conv_str(f2->value,
InnerCode,
Currentbuf->document_code)));
#else /* not JP_CHARSET */
Strcat(*query, form_quote(f2->value));
#endif /* not JP_CHARSET */
}
}
}
if (f2->next)
Strcat_char(*query, '&');
}
}
if (multipart) {
fprintf(body, "--%s--\r\n", fi->parent->boundary);
fclose(body);
}
else {
/* remove trailing & */
while (Strlastchar(*query) == '&')
Strshrink(*query, 1);
}
}
/* process form */
void
followForm(void)
{
Line *l;
Anchor *a;
char *p;
FormItemList *fi, *f2;
Str tmp = Strnew(), tmp2 = Strnew();
int multipart = 0;
if (Currentbuf->firstLine == NULL)
return;
l = Currentbuf->currentLine;
a = retrieveCurrentForm(Currentbuf);
if (a == NULL)
return;
fi = (FormItemList *) a->url;
switch (fi->type) {
case FORM_INPUT_TEXT:
p = inputStrHist("TEXT:", fi->value ? fi->value->ptr : NULL, TextHist);
if (p == NULL)
return;
fi->value = Strnew_charp(p);
formUpdateBuffer(a, Currentbuf, fi);
if (fi->accept || fi->parent->nitems == 1)
goto do_submit;
break;
case FORM_INPUT_FILE:
p = inputFilenameHist("Filename:", fi->value ? fi->value->ptr : NULL, NULL);
if (p == NULL)
return;
fi->value = Strnew_charp(p);
formUpdateBuffer(a, Currentbuf, fi);
if (fi->accept || fi->parent->nitems == 1)
goto do_submit;
break;
case FORM_INPUT_PASSWORD:
p = inputLine("TEXT:", fi->value ? fi->value->ptr : NULL, IN_PASSWORD);
if (p == NULL)
return;
fi->value = Strnew_charp(p);
formUpdateBuffer(a, Currentbuf, fi);
if (fi->accept)
goto do_submit;
break;
case FORM_TEXTAREA:
if (fi->rows == 1) {
p = inputStrHist("TEXT:", fi->value ? fi->value->ptr : NULL, TextHist);
if (p == NULL)
return;
fi->value = Strnew_charp(p);
}
else
input_textarea(fi);
formUpdateBuffer(a, Currentbuf, fi);
break;
case FORM_INPUT_RADIO:
form_recheck_radio(fi, Currentbuf, do_update_form_radio);
break;
case FORM_INPUT_CHECKBOX:
fi->checked = !fi->checked;
formUpdateBuffer(a, Currentbuf, fi);
break;
#ifdef MENU_SELECT
case FORM_SELECT:
formChooseOptionByMenu(fi,
Currentbuf->cursorX - Currentbuf->pos + a->start.pos,
Currentbuf->cursorY);
formUpdateBuffer(a, Currentbuf, fi);
break;
#endif /* MENU_SELECT */
case FORM_INPUT_IMAGE:
case FORM_INPUT_SUBMIT:
case FORM_INPUT_BUTTON:
do_submit:
multipart = (fi->parent->method == FORM_METHOD_POST &&
fi->parent->enctype == FORM_ENCTYPE_MULTIPART);
query_from_followform(&tmp, fi, multipart);
tmp2 = Strdup(fi->parent->action);
if (!Strcmp_charp(tmp2, "!CURRENT_URL!")) {
/* It means "current URL" */
tmp2 = parsedURL2Str(&Currentbuf->currentURL);
}
if (fi->parent->method == FORM_METHOD_GET) {
Strcat_charp(tmp2, "?");
Strcat(tmp2, tmp);
loadLink(tmp2->ptr, a->target, NULL, NULL);
}
else if (fi->parent->method == FORM_METHOD_POST) {
Buffer *buf;
if (multipart) {
struct stat st;
stat(fi->parent->body, &st);
fi->parent->length = st.st_size;
}
else {
fi->parent->body = tmp->ptr;
fi->parent->length = tmp->length;
}
buf = loadLink(tmp2->ptr, a->target, NULL, fi->parent);
if (multipart) {
unlink(fi->parent->body);
}
if (buf && !(buf->bufferprop & BP_REDIRECTED)) { /* buf must be Currentbuf */
/* BP_REDIRECTED means that the buffer is obtained through
* Location: header. In this case, buf->form_submit must not be set
* because the page is not loaded by POST method but GET method.
*/
buf->form_submit = save_submit_formlist(fi);
}
}
else if ((fi->parent->method == FORM_METHOD_INTERNAL &&
Strcmp_charp(fi->parent->action,"map") == 0) ||
Currentbuf->bufferprop & BP_INTERNAL) { /* internal */
do_internal(tmp2->ptr, tmp->ptr);
return;
}
else {
disp_err_message("Can't send form because of illegal method.", FALSE);
}
break;
case FORM_INPUT_RESET:
for (f2 = fi->parent->item; f2; f2 = f2->next) {
if (f2->name && f2->value &&
f2->type != FORM_INPUT_RADIO &&
f2->type != FORM_INPUT_CHECKBOX &&
f2->type != FORM_INPUT_SUBMIT &&
f2->type != FORM_INPUT_HIDDEN &&
f2->type != FORM_INPUT_RESET) {
f2->value = Strnew();
formUpdateBuffer(&Currentbuf->formitem->anchors[f2->anchor_num], Currentbuf, f2);
}
}
break;
case FORM_INPUT_HIDDEN:
default:
break;
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
static void
drawAnchorCursor0(Buffer * buf, int hseq, int prevhseq, int tline, int eline, int active)
{
int i, j;
Line *l;
Anchor *an;
l = buf->topLine;
for (j = 0; j < buf->href->nanchor; j++) {
an = &buf->href->anchors[j];
if (an->start.line < tline)
continue;
if (an->start.line >= eline)
return;
for (;; l = l->next) {
if (l == NULL)
return;
if (l->linenumber == an->start.line)
break;
}
if (hseq >= 0 && an->hseq == hseq) {
for (i = an->start.pos; i < an->end.pos; i++) {
if (l->propBuf[i] & (PE_IMAGE | PE_ANCHOR | PE_FORM)) {
if (active)
l->propBuf[i] |= PE_ACTIVE;
else
l->propBuf[i] &= ~PE_ACTIVE;
}
}
if (active)
redrawLineRegion(buf, l, l->linenumber - tline,
an->start.pos, an->end.pos);
}
else if (prevhseq >= 0 && an->hseq == prevhseq) {
if (active)
redrawLineRegion(buf, l, l->linenumber - tline,
an->start.pos, an->end.pos);
}
}
}
void
drawAnchorCursor(Buffer * buf)
{
Anchor *an;
int hseq, prevhseq;
int tline, eline;
if (buf->firstLine == NULL)
return;
if (buf->href == NULL)
return;
an = retrieveCurrentAnchor(buf);
if (an != NULL)
hseq = an->hseq;
else
hseq = -1;
tline = buf->topLine->linenumber;
eline = tline + LASTLINE;
prevhseq = buf->hmarklist->prevhseq;
drawAnchorCursor0(buf, hseq, prevhseq, tline, eline, 1);
drawAnchorCursor0(buf, hseq, -1, tline, eline, 0);
buf->hmarklist->prevhseq = hseq;
}
/* underline an anchor if cursor is on the anchor. */
void
onA(void)
{
drawAnchorCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* go to the top anchor */
void
topA(void)
{
HmarkerList *hl = Currentbuf->hmarklist;
BufferPoint *po;
Anchor *an;
int hseq;
if (Currentbuf->firstLine == NULL)
return;
if (!hl || hl->nmark == 0)
return;
hseq = 0;
do {
if (hseq >= hl->nmark)
return;
po = hl->marks + hseq;
an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
if (an == NULL)
an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
hseq++;
} while (an == NULL);
gotoLine(Currentbuf, po->line);
Currentbuf->pos = po->pos;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* go to the last anchor */
void
lastA(void)
{
HmarkerList *hl = Currentbuf->hmarklist;
BufferPoint *po;
Anchor *an;
int hseq;
if (Currentbuf->firstLine == NULL)
return;
if (!hl || hl->nmark == 0)
return;
hseq = hl->nmark - 1;
do {
if (hseq < 0)
return;
po = hl->marks + hseq;
an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
if (an == NULL)
an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
hseq--;
} while (an == NULL);
gotoLine(Currentbuf, po->line);
Currentbuf->pos = po->pos;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* go to the next anchor */
void
nextA(void)
{
HmarkerList *hl = Currentbuf->hmarklist;
BufferPoint *po;
Anchor *an, *pan;
int i, x, y;
if (Currentbuf->firstLine == NULL)
return;
if (!hl || hl->nmark == 0)
return;
an = retrieveCurrentAnchor(Currentbuf);
if (an == NULL)
an = retrieveCurrentForm(Currentbuf);
y = Currentbuf->currentLine->linenumber;
x = Currentbuf->pos;
for (i = 0; i < PREC_NUM; i++) {
pan = an;
if (an && an->hseq >= 0) {
int hseq = an->hseq + 1;
do {
if (hseq >= hl->nmark) {
pan = an;
goto _end;
}
po = &hl->marks[hseq];
an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
if (an == NULL)
an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
hseq++;
} while (an == NULL || an == pan);
}
else {
an = closest_next_anchor(Currentbuf->href, NULL, x, y);
an = closest_next_anchor(Currentbuf->formitem, an, x, y);
if (an == NULL) {
an = pan;
break;
}
x = an->start.pos;
y = an->start.line;
}
}
_end:
if (an == NULL || an->hseq < 0)
return;
po = &hl->marks[an->hseq];
gotoLine(Currentbuf, po->line);
Currentbuf->pos = po->pos;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* go to the previous anchor */
void
prevA(void)
{
HmarkerList *hl = Currentbuf->hmarklist;
BufferPoint *po;
Anchor *an, *pan;
int i, x, y;
if (Currentbuf->firstLine == NULL)
return;
if (!hl || hl->nmark == 0)
return;
an = retrieveCurrentAnchor(Currentbuf);
if (an == NULL)
an = retrieveCurrentForm(Currentbuf);
y = Currentbuf->currentLine->linenumber;
x = Currentbuf->pos;
for (i = 0; i < PREC_NUM; i++) {
pan = an;
if (an && an->hseq >= 0) {
int hseq = an->hseq - 1;
do {
if (hseq < 0) {
an = pan;
goto _end;
}
po = hl->marks + hseq;
an = retrieveAnchor(Currentbuf->href, po->line, po->pos);
if (an == NULL)
an = retrieveAnchor(Currentbuf->formitem, po->line, po->pos);
hseq--;
} while (an == NULL || an == pan);
}
else {
an = closest_prev_anchor(Currentbuf->href, NULL, x, y);
an = closest_prev_anchor(Currentbuf->formitem, an, x, y);
if (an == NULL) {
an = pan;
break;
}
x = an->start.pos;
y = an->start.line;
}
}
_end:
if (an == NULL || an->hseq < 0)
return;
po = hl->marks + an->hseq;
gotoLine(Currentbuf, po->line);
Currentbuf->pos = po->pos;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_NORMAL);
}
static int
checkBackBuffer(Buffer * buf)
{
Buffer *fbuf = buf->linkBuffer[LB_N_FRAME];
if (fbuf) {
if (fbuf->frameQ)
return TRUE; /* Currentbuf has stacked frames */
/* when no frames stacked and next is frame source, try next's
nextBuffer */
if (RenderFrame && fbuf == buf->nextBuffer) {
if (fbuf->nextBuffer != NULL)
return TRUE;
else
return FALSE;
}
}
if (buf->nextBuffer)
return TRUE;
return FALSE;
}
/* delete current buffer and back to the previous buffer */
void
backBf(void)
{
Buffer *buf = Currentbuf->linkBuffer[LB_N_FRAME];
if (!checkBackBuffer(Currentbuf)) {
disp_message("Can't back...", TRUE);
return;
}
delBuffer(Currentbuf);
if (buf) {
if (buf->frameQ) {
long linenumber;
short pos;
struct frameset *fs;
fs = popFrameTree(&(buf->frameQ), &linenumber, &pos);
deleteFrameSet(buf->frameset);
buf->frameset = fs;
if (buf == Currentbuf) {
rFrame();
gotoLine(Currentbuf, linenumber);
arrangeCursor(Currentbuf);
}
} else if (RenderFrame && buf == Currentbuf) {
delBuffer(Currentbuf);
}
}
clear();
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
void
deletePrevBuf()
{
Buffer *buf = Currentbuf->nextBuffer;
if (buf)
delBuffer(buf);
}
static void
cmd_loadURL(char *url, ParsedURL * current)
{
Buffer *buf;
if (!strncasecmp(url, "mailto:", 7)) {
/* invoke external mailer */
Str tmp;
char *to = quoteShell(url + 7)->ptr;
if (strcasestr(Mailer, "%s"))
tmp = Sprintf(Mailer, to);
else
tmp = Strnew_m_charp(Mailer, " ", to, NULL);
fmTerm();
system(tmp->ptr);
fmInit();
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
#ifdef USE_NNTP
else if (!strncasecmp(url, "news:", 5) &&
strchr(url, '@') == NULL) {
/* news:newsgroup is not supported */
disp_err_message("news:newsgroup_name is not supported", TRUE);
return;
}
#endif /* USE_NNTP */
/* message(Sprintf("loading %s\n", url)->ptr, 0, 0); */
refresh();
buf = loadGeneralFile(url, current, NO_REFERER, 0, NULL);
if (buf == NULL) {
char *emsg = Sprintf("Can't load %s\n", url)->ptr;
disp_err_message(emsg, FALSE);
}
else if (buf != NO_BUFFER) {
pushBuffer(buf);
if (RenderFrame && Currentbuf->frameset != NULL)
rFrame();
}
displayBuffer(Currentbuf, B_NORMAL);
}
/* go to specified URL */
void
goURL(void)
{
char *url;
ParsedURL p_url;
url = searchKeyData();
if (url == NULL) {
if (!(Currentbuf->bufferprop & BP_INTERNAL))
pushHashHist(URLHist, parsedURL2Str(&Currentbuf->currentURL)->ptr);
url = inputLineHist("Goto URL: ", NULL, IN_URL, URLHist);
if (url != NULL)
SKIP_BLANKS(url);
}
if (url == NULL || *url == '\0') {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
if (*url == '#') {
gotoLabel(url + 1);
return;
}
parseURL2(url, &p_url, NULL);
pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
cmd_loadURL(url, baseURL(Currentbuf));
}
static void
cmd_loadBuffer(Buffer * buf, int prop, int link)
{
if (buf == NULL) {
disp_err_message("Can't load string", FALSE);
}
else if (buf != NO_BUFFER) {
buf->bufferprop |= (BP_INTERNAL | prop);
if (!(buf->bufferprop & BP_NO_URL))
copyParsedURL(&buf->currentURL, &Currentbuf->currentURL);
if (link != LB_NOLINK) {
buf->linkBuffer[REV_LB[link]] = Currentbuf;
Currentbuf->linkBuffer[link] = buf;
}
pushBuffer(buf);
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* load bookmark */
void
ldBmark(void)
{
cmd_loadURL(BookmarkFile, NULL);
}
/* Add current to bookmark */
void
adBmark(void)
{
Str url, title, tmp;
/* cmd_loadBuffer(load_bookmark_panel(Currentbuf), BP_NO_URL, *
* LB_NOLINK); */
url = form_quote(parsedURL2Str(&Currentbuf->currentURL));
title = form_quote(Strnew_charp(Currentbuf->buffername));
#ifdef __EMX__
tmp = Sprintf("%s/w3mbookmark.exe?mode=panel&bmark=%s&url=%s&title=%s",
get_os2_dft("W3M_LIB_DIR", LIB_DIR), BookmarkFile, url->ptr, title->ptr);
#else /* not __EMX__ */
tmp = Sprintf("%s/w3mbookmark?mode=panel&bmark=%s&url=%s&title=%s",
LIB_DIR, BookmarkFile, url->ptr, title->ptr);
#endif /* not __EMX__ */
cmd_loadURL(tmp->ptr, NULL);
}
/* option setting */
void
ldOpt(void)
{
cmd_loadBuffer(load_option_panel(), BP_NO_URL, LB_NOLINK);
}
/* error message list */
void
msgs(void)
{
cmd_loadBuffer(message_list_panel(), BP_NO_URL, LB_NOLINK);
}
/* page info */
void
pginfo(void)
{
Buffer *buf;
if ((buf = Currentbuf->linkBuffer[LB_N_INFO]) != NULL) {
Currentbuf = buf;
displayBuffer(Currentbuf, B_NORMAL);
return;
}
if ((buf = Currentbuf->linkBuffer[LB_INFO]) != NULL)
delBuffer(buf);
buf = page_info_panel(Currentbuf);
#ifdef JP_CHARSET
if (buf != NULL)
buf->document_code = Currentbuf->document_code;
#endif /* JP_CHARSET */
cmd_loadBuffer(buf, BP_NORMAL, LB_INFO);
}
void
follow_map(struct parsed_tagarg *arg)
{
#ifdef MENU_MAP
Anchor *a;
char *url;
int x;
ParsedURL p_url;
a = retrieveCurrentImg(Currentbuf);
if (a != NULL)
x = Currentbuf->cursorX - Currentbuf->pos + a->start.pos;
else
x = Currentbuf->cursorX;
url = follow_map_menu(Currentbuf, arg, x, Currentbuf->cursorY + 2);
if (url == NULL || *url == '\0')
return;
if (*url == '#') {
gotoLabel(url + 1);
return;
}
parseURL2(url, &p_url, baseURL(Currentbuf));
pushHashHist(URLHist, parsedURL2Str(&p_url)->ptr);
cmd_loadURL(url, baseURL(Currentbuf));
#else
Buffer *buf;
buf = follow_map_panel(Currentbuf, arg);
if (buf != NULL)
cmd_loadBuffer(buf, BP_NORMAL, LB_NOLINK);
#endif
}
#ifdef USE_COOKIE
/* cookie list */
void
cooLst(void)
{
Buffer *buf;
buf = cookie_list_panel();
if (buf != NULL)
cmd_loadBuffer(buf, BP_NO_URL, LB_NOLINK);
}
#endif /* USE_COOKIE */
#ifdef USE_HISTORY
/* History page */
void
ldHist(void)
{
cmd_loadBuffer(historyBuffer(URLHist), BP_NO_URL, LB_NOLINK);
}
#endif /* USE_HISTORY */
/* download HREF link */
void
svA(void)
{
CurrentKeyData = NULL; /* not allowed in w3m-control: */
do_download = TRUE;
followA();
do_download = FALSE;
}
/* download IMG link */
void
svI(void)
{
CurrentKeyData = NULL; /* not allowed in w3m-control: */
do_download = TRUE;
followI();
do_download = FALSE;
}
/* save buffer */
void
svBuf(void)
{
char *file;
FILE *f;
int is_pipe;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
file = searchKeyData();
if (file == NULL || *file == '\0') {
file = inputLineHist("Save buffer to: ", NULL, IN_COMMAND, SaveHist);
if (file == NULL || *file == '\0') {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
}
if (*file == '|') {
is_pipe = TRUE;
f = popen(file + 1, "w");
}
else {
file = expandName(file);
if (checkOverWrite(file) < 0)
return;
f = fopen(file, "w");
is_pipe = FALSE;
}
if (f == NULL) {
char *emsg = Sprintf("Can't open %s\n", file)->ptr;
disp_err_message(emsg, TRUE);
return;
}
saveBuffer(Currentbuf, f);
if (is_pipe)
pclose(f);
else
fclose(f);
displayBuffer(Currentbuf, B_NORMAL);
}
/* save source */
void
svSrc(void)
{
if (Currentbuf->sourcefile == NULL)
return;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
PermitSaveToPipe = TRUE;
doFileCopy(Currentbuf->sourcefile,
guess_save_name(Currentbuf->currentURL.file));
PermitSaveToPipe = FALSE;
displayBuffer(Currentbuf, B_NORMAL);
}
static void
_peekURL(int only_img){
Anchor *a;
ParsedURL pu;
static Str s = NULL;
static int offset = 0;
if (Currentbuf->firstLine == NULL)
return;
if (CurrentKey == prev_key && s != NULL) {
if (s->length - offset >= COLS)
offset++;
else if (s->length <= offset) /* bug ? */
offset = 0;
goto disp;
} else {
offset = 0;
}
a = (only_img ? NULL : retrieveCurrentAnchor(Currentbuf));
if (a == NULL) {
a = retrieveCurrentImg(Currentbuf);
if (a == NULL) {
a = retrieveCurrentForm(Currentbuf);
if (a == NULL)
return;
s = Strnew_charp(form2str((FormItemList *) a->url));
goto disp;
}
}
parseURL2(a->url, &pu, baseURL(Currentbuf));
s = parsedURL2Str(&pu);
disp:
if (PREC_NUM > 1 && s->length > (PREC_NUM - 1) * (COLS - 1))
disp_message_nomouse(&s->ptr[(PREC_NUM - 1) * (COLS - 1)], TRUE);
else
disp_message_nomouse(&s->ptr[offset], TRUE);
}
/* peek URL */
void
peekURL(void)
{
_peekURL(0);
}
/* peek URL of image */
void
peekIMG(void)
{
_peekURL(1);
}
/* show current URL */
static Str
currentURL(void)
{
if (Currentbuf->bufferprop & BP_INTERNAL)
return Strnew_size(0);
return parsedURL2Str(&Currentbuf->currentURL);
}
void
curURL(void)
{
static Str s = NULL;
static int offset = 0;
if (Currentbuf->bufferprop & BP_INTERNAL)
return;
if (CurrentKey == prev_key && s != NULL) {
if (s->length - offset >= COLS)
offset++;
else if (s->length <= offset) /* bug ? */
offset = 0;
} else {
offset = 0;
s = currentURL();
}
if (PREC_NUM > 1 && s->length > (PREC_NUM - 1) * (COLS - 1))
disp_message_nomouse(&s->ptr[(PREC_NUM - 1) * (COLS - 1)], TRUE);
else
disp_message_nomouse(&s->ptr[offset], TRUE);
}
/* view HTML source */
void
vwSrc(void)
{
char *fn;
Buffer *buf;
if (Currentbuf->type == NULL ||
Currentbuf->bufferprop & BP_FRAME)
return;
if ((buf = Currentbuf->linkBuffer[LB_SOURCE]) != NULL ||
(buf = Currentbuf->linkBuffer[LB_N_SOURCE]) != NULL) {
Currentbuf = buf;
displayBuffer(Currentbuf, B_NORMAL);
return;
}
if (Currentbuf->sourcefile == NULL) {
if (Currentbuf->pagerSource &&
!strcasecmp(Currentbuf->type, "text/plain")) {
FILE *f;
Str tmpf = tmpfname(TMPF_SRC, NULL);
f = fopen(tmpf->ptr, "w");
if (f == NULL)
return;
saveBufferDelNum(Currentbuf, f, showLineNum);
fclose(f);
fn = tmpf->ptr;
}
else {
return;
}
} else if (Currentbuf->real_scheme == SCM_LOCAL) {
fn = Currentbuf->filename;
} else {
fn = Currentbuf->sourcefile;
}
if (!strcasecmp(Currentbuf->type, "text/html")) {
#ifdef JP_CHARSET
char old_code = DocumentCode;
DocumentCode = Currentbuf->document_code;
#endif
buf = loadFile(fn);
#ifdef JP_CHARSET
DocumentCode = old_code;
#endif
if (buf == NULL)
return;
buf->type = "text/plain";
if (Currentbuf->real_type &&
!strcasecmp(Currentbuf->real_type, "text/html"))
buf->real_type = "text/plain";
else
buf->real_type = Currentbuf->real_type;
buf->bufferprop |= BP_SOURCE;
buf->buffername = Sprintf("source of %s", Currentbuf->buffername)->ptr;
buf->linkBuffer[LB_N_SOURCE] = Currentbuf;
Currentbuf->linkBuffer[LB_SOURCE] = buf;
}
else if (!strcasecmp(Currentbuf->type, "text/plain")) {
char *old_type = DefaultType;
DefaultType = "text/html";
buf = loadGeneralFile(fn, NULL, NO_REFERER, 0, NULL);
DefaultType = old_type;
if (buf == NULL || buf == NO_BUFFER)
return;
if (Currentbuf->real_type &&
!strcasecmp(Currentbuf->real_type, "text/plain"))
buf->real_type = "text/html";
else
buf->real_type = Currentbuf->real_type;
if (!strcmp(buf->buffername, mybasename(fn)))
buf->buffername = Sprintf("HTML view of %s", Currentbuf->buffername)->ptr;
buf->linkBuffer[LB_SOURCE] = Currentbuf;
Currentbuf->linkBuffer[LB_N_SOURCE] = buf;
}
else {
return;
}
buf->currentURL = Currentbuf->currentURL;
buf->real_scheme = Currentbuf->real_scheme;
buf->sourcefile = Currentbuf->sourcefile;
buf->clone = Currentbuf->clone;
(*buf->clone)++;
pushBuffer(buf);
displayBuffer(Currentbuf, B_NORMAL);
}
/* reload */
void
reload(void)
{
Buffer *buf, *fbuf = NULL;
char *type = Currentbuf->type;
Str url;
int top, linenum, cursorY, pos, currentColumn;
FormList *request;
int multipart;
if (Currentbuf->bufferprop & BP_INTERNAL) {
disp_err_message("Can't reload...", FALSE);
return;
}
if (Currentbuf->currentURL.scheme == SCM_LOCAL &&
!strcmp(Currentbuf->currentURL.file, "-")) {
/* file is std input */
disp_err_message("Can't reload stdin", TRUE);
return;
}
if (Currentbuf->firstLine == NULL) {
top = 1;
linenum = 1;
} else {
top = Currentbuf->topLine->linenumber;
linenum = Currentbuf->currentLine->linenumber;
}
cursorY = Currentbuf->cursorY;
pos = Currentbuf->pos;
currentColumn = Currentbuf->currentColumn;
if (Currentbuf->bufferprop & BP_FRAME &&
(fbuf = Currentbuf->linkBuffer[LB_N_FRAME])) {
if (fmInitialized) {
message("Rendering frame", 0, 0);
refresh();
}
if (!(buf = renderFrame(fbuf, 1)))
return;
if (fbuf->linkBuffer[LB_FRAME]) {
if (buf->sourcefile &&
fbuf->linkBuffer[LB_FRAME]->sourcefile &&
!strcmp(buf->sourcefile,
fbuf->linkBuffer[LB_FRAME]->sourcefile))
fbuf->linkBuffer[LB_FRAME]->sourcefile = NULL;
delBuffer(fbuf->linkBuffer[LB_FRAME]);
}
fbuf->linkBuffer[LB_FRAME] = buf;
buf->linkBuffer[LB_N_FRAME] = fbuf;
pushBuffer(buf);
Currentbuf = buf;
if (Currentbuf->firstLine == NULL) {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
gotoLine(Currentbuf, linenum);
Currentbuf->pos = pos;
Currentbuf->currentColumn = currentColumn;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
else if (Currentbuf->frameset != NULL)
fbuf = Currentbuf->linkBuffer[LB_FRAME];
multipart = 0;
if (Currentbuf->form_submit) {
request = Currentbuf->form_submit->parent;
if (request->method == FORM_METHOD_POST
&& request->enctype == FORM_ENCTYPE_MULTIPART) {
Str query;
struct stat st;
multipart = 1;
query_from_followform(&query, Currentbuf->form_submit, multipart);
stat(request->body, &st);
request->length = st.st_size;
}
}
else {
request = NULL;
}
url = parsedURL2Str(&Currentbuf->currentURL);
message("Reloading...", 0, 0);
refresh();
buf = loadGeneralFile(url->ptr, NULL, NO_REFERER, RG_NOCACHE, request);
if (multipart)
unlink(request->body);
if (buf == NULL) {
disp_err_message("Can't reload...", FALSE);
return;
}
else if (buf == NO_BUFFER) {
return;
}
buf->form_submit = Currentbuf->form_submit;
if (fbuf != NULL)
Firstbuf = deleteBuffer(Firstbuf, fbuf);
repBuffer(Currentbuf, buf);
if ((type != NULL) && (buf->type != NULL) &&
((!strcasecmp(buf->type, "text/plain") &&
!strcasecmp(type, "text/html")) ||
(!strcasecmp(buf->type, "text/html") &&
!strcasecmp(type, "text/plain")))) {
vwSrc();
if (Currentbuf != buf)
Firstbuf = deleteBuffer(Firstbuf, buf);
}
if (Currentbuf->firstLine == NULL) {
displayBuffer(Currentbuf, B_FORCE_REDRAW);
return;
}
Currentbuf->topLine = lineSkip(Currentbuf, Currentbuf->firstLine, top - 1, FALSE);
gotoLine(Currentbuf, linenum);
Currentbuf->pos = pos;
Currentbuf->currentColumn = currentColumn;
arrangeCursor(Currentbuf);
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* mark URL-like patterns as anchors */
void
chkURL(void)
{
static char *url_like_pat[] =
{
"http://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./?=~_\\&+@#,\\$]*",
#ifdef USE_SSL
"https://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./?=~_\\&+@#,\\$]*",
#endif /* USE_SSL */
#ifdef USE_GOPHER
"gopher://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./_]*",
#endif /* USE_GOPHER */
"ftp://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./=_+@#,\\$]*",
#ifdef USE_NNTP
"news:[^<> ][^<> ]*",
"nntp://[a-zA-Z0-9][a-zA-Z0-9:%\\-\\./_]*",
#endif /* USE_NNTP */
NULL,
};
int i;
for (i = 0; url_like_pat[i]; i++) {
reAnchor(Currentbuf, url_like_pat[i]);
}
Currentbuf->check_url |= CHK_URL;
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
#ifdef USE_NNTP
/* mark Message-ID-like patterns as NEWS anchors */
void
chkNMID(void)
{
static char *url_like_pat[] =
{
"<[^<> ][^<> ]*@[A-z0-9\\.\\-_][A-z0-9\\.\\-_]*>",
NULL,
};
int i;
for (i = 0; url_like_pat[i]; i++) {
reAnchorNews(Currentbuf, url_like_pat[i]);
}
Currentbuf->check_url |= CHK_NMID;
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
#endif /* USE_NNTP */
/* render frame */
void
rFrame(void)
{
Buffer *buf;
if ((buf = Currentbuf->linkBuffer[LB_FRAME]) != NULL) {
Currentbuf = buf;
displayBuffer(Currentbuf, B_NORMAL);
return;
}
if (Currentbuf->frameset == NULL) {
if ((buf = Currentbuf->linkBuffer[LB_N_FRAME]) != NULL) {
Currentbuf = buf;
displayBuffer(Currentbuf, B_NORMAL);
}
return;
}
if (fmInitialized) {
message("Rendering frame", 0, 0);
refresh();
}
buf = renderFrame(Currentbuf, 0);
if (buf == NULL)
return;
buf->linkBuffer[LB_N_FRAME] = Currentbuf;
Currentbuf->linkBuffer[LB_FRAME] = buf;
pushBuffer(buf);
if (fmInitialized && display_ok)
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
/* spawn external browser */
static void
invoke_browser(char *url)
{
Str tmp;
char *browser = NULL;
int bg = 0;
CurrentKeyData = NULL; /* not allowed in w3m-control: */
browser = searchKeyData();
if (browser == NULL || *browser == '\0') {
switch (prec_num) {
case 0:
case 1:
browser = ExtBrowser;
break;
case 2:
browser = ExtBrowser2;
break;
case 3:
browser = ExtBrowser3;
break;
}
if (browser == NULL || *browser == '\0') {
browser = inputStr("Browse command: ", NULL);
if (browser == NULL || *browser == '\0')
return;
}
}
url = quoteShell(url)->ptr;
if (strcasestr(browser, "%s")) {
tmp = Sprintf(browser, url);
Strremovetrailingspaces(tmp);
if (Strlastchar(tmp) == '&') {
Strshrink(tmp, 1);
bg = 1;
}
}
else {
tmp = Strnew_charp(browser);
Strcat_char(tmp, ' ');
Strcat_charp(tmp, url);
}
fmTerm();
mySystem(tmp->ptr, bg);
fmInit();
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
void
extbrz()
{
if (Currentbuf->bufferprop & BP_INTERNAL) {
disp_err_message("Can't browse...", FALSE);
return;
}
if (Currentbuf->currentURL.scheme == SCM_LOCAL &&
!strcmp(Currentbuf->currentURL.file, "-")) {
/* file is std input */
disp_err_message("Can't browse stdin", TRUE);
return;
}
invoke_browser(parsedURL2Str(&Currentbuf->currentURL)->ptr);
}
void
linkbrz()
{
Anchor *a;
ParsedURL pu;
if (Currentbuf->firstLine == NULL)
return;
a = retrieveCurrentAnchor(Currentbuf);
if (a == NULL)
return;
parseURL2(a->url, &pu, baseURL(Currentbuf));
invoke_browser(parsedURL2Str(&pu)->ptr);
}
/* show current line number and number of lines in the entire document */
void
curlno()
{
Str tmp;
int cur = 0, all, col, len = 0;
if (Currentbuf->currentLine != NULL) {
Line *l = Currentbuf->currentLine;
cur = l->real_linenumber;
if (l->width < 0)
l->width = COLPOS(l, l->len);
len = l->width;
}
col = Currentbuf->currentColumn + Currentbuf->cursorX + 1;
all = (Currentbuf->lastLine ? Currentbuf->lastLine->real_linenumber : Currentbuf->allLine);
if (all == 0 && Currentbuf->lastLine != NULL)
all = Currentbuf->currentLine->real_linenumber;
if (all == 0)
all = 1;
if (Currentbuf->pagerSource && !(Currentbuf->bufferprop & BP_CLOSE))
tmp = Sprintf("line %d col %d/%d", cur, col, len);
else
tmp = Sprintf("line %d/%d (%d%%) col %d/%d",
cur, all, cur * 100 / all, col, len);
#ifdef JP_CHARSET
Strcat_charp(tmp, " ");
Strcat_charp(tmp, code_to_str(Currentbuf->document_code));
#endif /* not JP_CHARSET */
disp_message(tmp->ptr, FALSE);
}
#ifdef MOUSE
/* Addition:mouse event */
#define MOUSE_BTN1_DOWN 0
#define MOUSE_BTN2_DOWN 1
#define MOUSE_BTN3_DOWN 2
#define MOUSE_BTN4_DOWN_RXVT 3
#define MOUSE_BTN5_DOWN_RXVT 4
#define MOUSE_BTN4_DOWN_XTERM 64
#define MOUSE_BTN5_DOWN_XTERM 65
#define MOUSE_BTN_UP 3
#define MOUSE_BTN_RESET -1
#define MOUSE_SCROLL_LINE 5
static void
process_mouse(int btn, int x, int y)
{
int delta_x, delta_y, i;
static int press_btn = MOUSE_BTN_RESET, press_x, press_y;
if (btn == MOUSE_BTN_UP) {
switch (press_btn) {
case MOUSE_BTN1_DOWN:
if (press_x != x || press_y != y) {
delta_x = x - press_x;
delta_y = y - press_y;
if (abs(delta_x) < abs(delta_y) / 3)
delta_x = 0;
if (abs(delta_y) < abs(delta_x) / 3)
delta_y = 0;
if (reverse_mouse) {
delta_y = -delta_y;
delta_x = -delta_x;
}
if (delta_y > 0) {
prec_num = delta_y;
ldown1();
}
else if (delta_y < 0) {
prec_num = -delta_y;
lup1();
}
if (delta_x > 0) {
prec_num = delta_x;
col1L();
}
else if (delta_x < 0) {
prec_num = -delta_x;
col1R();
}
}
else {
if (y == LASTLINE) {
switch (x) {
case 0:
case 1:
backBf();
break;
case 2:
case 3:
pgBack();
break;
case 4:
case 5:
pgFore();
break;
}
return;
}
if (y == Currentbuf->cursorY &&
(x == Currentbuf->cursorX
#ifdef JP_CHARSET
|| (Currentbuf->currentLine != NULL &&
(Currentbuf->currentLine->propBuf[Currentbuf->pos] & PC_KANJI1)
&& x == Currentbuf->cursorX + 1)
#endif /* JP_CHARSET */
)) {
followA();
return;
}
cursorXY(Currentbuf, x, y);
displayBuffer(Currentbuf, B_NORMAL);
}
break;
case MOUSE_BTN2_DOWN:
backBf();
break;
case MOUSE_BTN3_DOWN:
#ifdef MENU
cursorXY(Currentbuf, x, y);
onA();
mainMenu(x, y);
#endif /* MENU */
break;
case MOUSE_BTN4_DOWN_RXVT:
for (i = 0; i < MOUSE_SCROLL_LINE; i++)
ldown1();
break;
case MOUSE_BTN5_DOWN_RXVT:
for (i = 0; i < MOUSE_SCROLL_LINE; i++)
lup1();
break;
}
} else if (btn == MOUSE_BTN4_DOWN_XTERM) {
for (i = 0; i < MOUSE_SCROLL_LINE; i++)
ldown1();
} else if (btn == MOUSE_BTN5_DOWN_XTERM) {
for (i = 0; i < MOUSE_SCROLL_LINE; i++)
lup1();
}
if (btn != MOUSE_BTN4_DOWN_RXVT || press_btn == MOUSE_BTN_RESET) {
press_btn = btn;
press_x = x;
press_y = y;
} else {
press_btn = MOUSE_BTN_RESET;
}
}
void
msToggle(void)
{
if (use_mouse) {
use_mouse = FALSE;
}
else {
use_mouse = TRUE;
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
void
mouse()
{
int btn, x, y;
btn = (unsigned char) getch() - 32;
x = (unsigned char) getch() - 33;
if (x < 0)
x += 0x100;
y = (unsigned char) getch() - 33;
if (y < 0)
y += 0x100;
if (x < 0 || x >= COLS || y < 0 || y > LASTLINE)
return;
process_mouse(btn, x, y);
}
#ifdef USE_GPM
int
gpm_process_mouse(Gpm_Event * event, void *data)
{
int btn, x, y;
if (event->type & GPM_UP)
btn = MOUSE_BTN_UP;
else if (event->type & GPM_DOWN) {
switch (event->buttons) {
case GPM_B_LEFT:
btn = MOUSE_BTN1_DOWN;
break;
case GPM_B_MIDDLE:
btn = MOUSE_BTN2_DOWN;
break;
case GPM_B_RIGHT:
btn = MOUSE_BTN3_DOWN;
break;
}
}
else {
GPM_DRAWPOINTER(event);
return 0;
}
x = event->x;
y = event->y;
process_mouse(btn, x - 1, y - 1);
return 0;
}
#endif /* USE_GPM */
#ifdef USE_SYSMOUSE
int
sysm_process_mouse(int x, int y, int nbs, int obs)
{
int btn;
int bits;
if (obs & ~nbs)
btn = MOUSE_BTN_UP;
else if (nbs & ~obs) {
bits = nbs & ~obs;
btn = bits & 0x1 ? MOUSE_BTN1_DOWN :
(bits & 0x2 ? MOUSE_BTN2_DOWN :
(bits & 0x4 ? MOUSE_BTN3_DOWN : 0));
}
else /* nbs == obs */
return 0;
process_mouse(btn, x, y);
return 0;
}
#endif /* USE_SYSMOUSE */
#endif /* MOUSE */
void
wrapToggle(void)
{
if (WrapSearch) {
WrapSearch = FALSE;
disp_message("Wrap search off", FALSE);
}
else {
WrapSearch = TRUE;
disp_message("Wrap search on", FALSE);
}
}
#ifdef DICT
static char *
GetWord(Buffer * buf)
{
Line *l = buf->currentLine;
char *lb = l->lineBuf;
int i, b, e, pos = buf->pos;
i = pos;
while (!IS_ALPHA(lb[i]) && i >= 0)
i--;
pos = i;
while (IS_ALPHA(lb[i]) && i >= 0)
i--;
i++;
if (!IS_ALPHA(lb[i]))
return NULL;
b = i;
i = pos;
while (IS_ALPHA(lb[i]) && i <= l->len - 1)
i++;
e = i - 1;
return Strnew_charp_n(&lb[b], e - b + 1)->ptr;
}
static void
execdict(char *word)
{
Buffer *buf;
Str cmd, bn;
MySignalHandler(*prevtrap) ();
if (word == NULL || *word == '\0') {
displayBuffer(Currentbuf, B_NORMAL);
return;
}
cmd = Strnew_charp(DICTCMD);
Strcat_char(cmd, ' ');
Strcat_charp(cmd, word);
prevtrap = signal(SIGINT, intTrap);
crmode();
buf = getshell(cmd->ptr);
bn = Sprintf("%s %s", DICTBUFFERNAME, word);
buf->buffername = bn->ptr;
buf->filename = word;
signal(SIGINT, prevtrap);
term_raw();
if (buf == NULL) {
disp_message("Execution failed", FALSE);
}
else if (buf->firstLine == NULL) {
/* if the dictionary doesn't describe the word. */
disp_message(Sprintf("Word \"%s\" Not Found", word)->ptr, FALSE);
}
else {
buf->bufferprop |= (BP_INTERNAL | BP_NO_URL);
pushBuffer(buf);
}
displayBuffer(Currentbuf, B_FORCE_REDRAW);
}
void
dictword(void)
{
execdict(inputStr("(dictionary)!", ""));
}
void
dictwordat(void)
{
execdict(GetWord(Currentbuf));
}
#endif /* DICT */
char *
searchKeyData(void)
{
KeyListItem *item;
if (CurrentKeyData != NULL && *CurrentKeyData != '\0')
return allocStr(CurrentKeyData, 0);
#ifdef MENU
if (CurrentMenuData != NULL && *CurrentMenuData != '\0')
return allocStr(CurrentMenuData, 0);
#endif
if (CurrentKey < 0)
return NULL;
item = searchKeyList(&w3mKeyList, CurrentKey);
if (item == NULL || item->data == NULL || *item->data == '\0')
return NULL;
return allocStr(item->data, 0);
}
#if 0
static int
searchKeyNum(void)
{
char *d;
int n = 1;
d = searchKeyData();
if (d != NULL)
n = atoi(d);
return n * PREC_NUM;
}
#endif
