#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "namazu.h"

/*
 * for pageindex
 */
void put_query(uchar * qs, int w)
{
    while (*qs) {
	if (!strncmp(qs, "whence=", 7)) {
	    printf("whence=%d", w);
	    for (qs += 7; isdigit(*qs); qs++);
	} else
	    fputc(*(qs++), stdout);
    }
}


/* displayin page index */
void put_page_index(int n)
{
    int i;

    if (HtmlOutput && ModeTknamazu)
	;
    else if (HtmlOutput)
	printf("<STRONG>Page:</STRONG> ");
    else
	printf("Page: ");
    for (i = 0; i < PAGE_MAX; i++) {
	if (i * HListMax >= n)
	    break;
	if (HtmlOutput) {
	    if (i * HListMax != HListWhence) {
		printf("<A HREF=\"");
		fputs(ScriptName, stdout);
		fputc('?', stdout);
		put_query(QueryString, i * HListMax);
		printf("\">");
	    } else {
		printf("<STRONG>");
	    }
	}
    if (ModeTknamazu)
	printf("Page: %d", i + 1);
	else
	printf("[%d]", i + 1);
	if (HtmlOutput) {
	    if (i * HListMax != HListWhence) {
		printf("</A> ");
	    } else
		printf("</STRONG> ");
	}
	if (AllList)
	    break;
    }
}

/* output current range */
void put_current_extent(int listmax)
{
    if (HtmlOutput)
	printf("<STRONG>Current List: %d", HListWhence + 1);
    else
	printf("Current List: %d", HListWhence + 1);

    printf(" - ");
    if (!AllList && ((HListWhence + HListMax) < listmax))
	printf("%d", HListWhence + HListMax);
    else
	printf("%d", listmax);
    if (HtmlOutput)
	printf("</STRONG><BR>\n");
    else
	fputc('\n', stdout);
}

void fputs_with_codeconv(uchar * s, FILE *fp)
{
    uchar buf[BUFSIZE];

    strcpy(buf, s);
#if	defined(WIN32) || defined(OS2)
    if (is_lang_ja(Lang)) { /* Lang == ja*/
        euctosjis(buf);
    }    
#endif
    fputs(buf, fp);
}

/* output string without HTML elements
 * if Win32 or OS/2, output in Shift_JIS encoding */
void fputs_without_html_tag(uchar * s, FILE *fp)
{
    int f, i;
    uchar buf[BUFSIZE];

    for (f = 0, i = 0; *s && i < BUFSIZE; s++) {
	if (!strncmp(s, "<BR>", 4)) {
	    buf[i++] = '\n';
	    s += 3;
	    continue;
	}
	if (*s == '<') {
	    f = 1;
	    continue;
	}
	if (*s == '>') {
	    f = 0;
	    continue;
	}
	if (!f) {
	    if (!strncmp(s, "&lt;", 4)) {
		buf[i++] = '<';
		s += 3;
	    } else if (!strncmp(s, "&gt;", 4)) {
		buf[i++] = '>';
		s += 3;
	    } else if (!strncmp(s, "&amp;", 5)) {
		buf[i++] = '&';
		s += 4;
	    } else {
		buf[i++] = *s;
	    }
	}
    }
    buf[i] = '\0';
    fputs_with_codeconv(buf, fp);
}


void euctojisput(uchar *s, FILE *fp, int mode)
{
    int c, c2, state = 0, non_ja;

    if (! is_lang_ja(Lang)) { /* Lang != ja */
        non_ja = 1;
    } else {
        non_ja = 0;
    }
    if (!(c = (int) *(s++)))
	return;
    while (1) {
	if (non_ja || c < 0x80) {
	    if (state) {
		set1byte();
		state = 0;
	    }
	    if (mode) {
		/* < > & " are converted to entities like &lt; */
		if (c == '<')
		    printf("&lt;");
		else if (c == '>')
		    printf("&gt;");
		else if (c == '&')
		    printf("&amp;");
		else if (c == '"')
		    printf("&quot;");
		else
		    fputc(c, fp);
	    } else
		fputc(c, fp);
	} else if (iseuc(c)) {
	    if (!(c2 = (int) *(s++))) {
		fputc(c, fp);
		return;
	    }
	    if (!state) {
		set2byte();
		state = 1;
	    }
	    if (iseuc(c2)) {
		fputc(c & 0x7f, fp);
		fputc(c2 & 0x7f, fp);
	    } else {
		fputc(c, fp);
		set1byte();
		state = 0;
		fputc(c2, fp);
	    }
	} else {
	    if (state) {
		set1byte();
		state = 0;
	    }
	    fputc(c, fp);
	}
	if (!(c = (int) *(s++))) {
	    if (state)
		set1byte();
	    return;
	}
    }
}

/* fputs Namazu version, it works with considereation of mode */
void fputx(uchar *str, FILE *fp)
{
    uchar buf[BUFSIZE];
    int is_html = 0;

    if ((int)*str == (int)'\t') {
        is_html = 1;
    }

    strcpy(buf, str + is_html);
    if (HtmlOutput) {
        /* if string is Namazu's HTML message, it will be printed as is,
           if not, it will be printed with entity conversion */
        euctojisput(buf, fp, ! is_html);
    } else {
        /* if string is Namazu's HTML message, it will be printed without 
           HTML tag, if not, it will be printed as is */
        if (is_html) {
            fputs_without_html_tag(buf, fp);
        } else {
            fputs_with_codeconv(buf, fp);
        }
    }
}