/* a Tool (button) bar at top of window */

#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>
#include <X11/keysym.h>
#include <sys/wait.h>
#include <stdlib.h>

#include "HTUtils.h"	/* WWW general purpose macros */
#include "tcp.h"
#include "HTList.h"
#include "HTAccess.h"

#include "www.h"
#include "style.h"

extern Display *display;
extern int screen;
extern int sbar_width;
/*extern int document; */ /* HTMLDOCUMENT or TEXTDOCUMENT */
extern int hdrlen;
extern int busy;
extern unsigned long textColor, labelColor, windowColor, strikeColor,
                     windowTopShadow, windowBottomShadow, windowShadow;
extern unsigned int win_width, win_height;
extern char *buffer;
extern Cursor hourglass;
extern char *help;
/*extern char *printer;*/
extern char *Printer;         /* howcome 16/10/94: new command line option specifies command with args */
extern char *SaveAsString;
extern int SaveFile;
extern int OpenURL;
extern int FindStr;
extern int FtpCtrlSkt;
extern Doc *CurrentDoc; /*, NewDoc; */

#define GAP     1

static Button *buttons;  /* typedef in www.h */
static int nButtons;
static int nButtonDown;

extern Window win;
GC toolbar_gc;
int ToolBarHeight;

static XFontStruct *pToolFontInfo;

char *buttonNames[] =
{
    "Quit",
    "Open..",
    "Reload",
    "SaveAs..",
    "Print",
    "View",
    "Edit",
#ifdef CLONE
    "Clone",
#endif
#ifdef FIND
    "Find..",
#endif
    "Back",
    "Forward",
    "Home",
#ifdef ZOOM
    "ZoomIn",
    "ZoomOut",
#endif
    "Help",
    0
};

void SetToolBarWin(Window aWin)
{
    win = aWin;
}

void SetToolBarGC(GC aGC)
{
    toolbar_gc = aGC;
    XSetFont(display, toolbar_gc, pToolFontInfo->fid); /* howcome 1/11/94: added this -- is it in the right place?? */
}

void SetToolBarFont(XFontStruct *pf)
{
    int i, x, y;

    pToolFontInfo = pf;
    ToolBarHeight = 14 + pf->max_bounds.ascent + pf->max_bounds.descent;

    x = 5;
    y = ToolbarTop;

    if (!buttons)
    {
        nButtons = 0;

        while (buttonNames[nButtons])
            ++nButtons;

        buttons = (Button *)malloc(nButtons * sizeof(Button));

        for (i = 0; i < nButtons; ++i)
        {
            buttons[i].label = buttonNames[i];
            buttons[i].x = x;
            buttons[i].y = y;
            buttons[i].w = 6 + XTextWidth(pf, buttons[i].label, strlen(buttons[i].label));
            buttons[i].h = 6 + pf->max_bounds.ascent + pf->max_bounds.descent;
            x += GAP + buttons[i].w;
        }
    }
}

void DisplayToolBar()
{
    char *s;
    int x, y, r, i;
    unsigned int w, h;
    XRectangle rect;

/*    fprintf(stderr,"display toolbar\n");*/

    rect.x = x = 0;
    rect.y = y = 0;
    rect.width = w = win_width - ICON_WIDTH;
    rect.height = h = ToolBarHeight;

    XSetClipRectangles(display, toolbar_gc, 0, 0, &rect, 1, Unsorted);

    XSetForeground(display, toolbar_gc, windowColor);
    XFillRectangle(display, win, toolbar_gc, x, y, w, h);

    DrawOutSet(win, toolbar_gc, x, y, w, h);

    r = pToolFontInfo->max_bounds.ascent + 2;

    for (i = 0; i < nButtons; ++i)
    {
        x = buttons[i].x;
        y = buttons[i].y;
        w = buttons[i].w;
        h = buttons[i].h;
        s = buttons[i].label;

        XSetForeground(display, toolbar_gc, labelColor);
        XDrawString(display, win, toolbar_gc, x + 3, y + r, s, strlen(s));
        DrawOutSet(win, toolbar_gc, x, y, w, h);
    }
}

void PaintVersion(int bad)
{
    int i, x, y, w, h;
    char *s; /* msg[64]; */
    XRectangle rect;

    rect.x = x = buttons[nButtons-1].x + buttons[nButtons-1].w;
    rect.y = y = buttons[nButtons-1].y;
    rect.width = w = win_width - x - 2 - ICON_WIDTH;
    rect.height = h = buttons[nButtons-1].h;

    XSetClipRectangles(display, toolbar_gc, 0, 0, &rect, 1, Unsorted);

    XSetForeground(display, toolbar_gc, windowColor);
    XFillRectangle(display, win, toolbar_gc, x, y, w, h);

    if (bad)
    {
        s = "Bad HTML";

/* howcome 25/11/94: commented out since the error code confuses people */
/*
        if (w > 100)
        {
            sprintf(msg, "Bad HTML (%o)", bad);
            s = msg;
        }
*/
    }
    else
        s = VERSION;

    i = strlen(s);
    x = win_width - XTextWidth(pToolFontInfo, s, i) - (bad ? 4 : 5) - ICON_WIDTH;
    y = buttons[0].y + pToolFontInfo->max_bounds.ascent + 2;
    XSetForeground(display, toolbar_gc, (bad ? strikeColor : labelColor));
    XDrawString(display, win, toolbar_gc, x, y, s, i);
}

int ToolBarButtonDown(int x, int y)
{
    int i;
    unsigned int w, h;
    XRectangle rect;

    nButtonDown = 0;  /* 0 implies no button down */

    for (i = 0; i < nButtons; ++i)
    {
        if (buttons[i].x <= x &&
            x < buttons[i].x + buttons[i].w &&
            buttons[i].y <= y &&
            y < buttons[i].y + buttons[i].h)
        {
            if (busy && i > 0)
            {
                Beep();
                return VOID;
            }

            nButtonDown = i + 1;
            x = buttons[i].x;
            y = buttons[i].y;
            w = buttons[i].w;
            h = buttons[i].h;

            rect.x = x;
            rect.y = y;
            rect.width = w;
            rect.height = h;

            XSetClipRectangles(display, toolbar_gc, 0, 0, &rect, 1, Unsorted);

            DrawInSet(win, toolbar_gc, x, y, w, h);
            XFlush(display);
            return TOOLBAR;
        }
    }

    return VOID;
}

void ToolBarButtonUp(int x, int y)
{
    int i, x1, y1;
    unsigned int w, h;
    XRectangle rect;
    void PrintDoc();

    if (nButtonDown)
    {
        --nButtonDown;
        x1 = buttons[nButtonDown].x;
        y1 = buttons[nButtonDown].y;
        w = buttons[nButtonDown].w;
        h = buttons[nButtonDown].h;

        rect.x = x1;
        rect.y = y1;
        rect.width = w;
        rect.height = h;

        XSetClipRectangles(display, toolbar_gc, 0, 0, &rect, 1, Unsorted);

        DrawOutSet(win, toolbar_gc, x1, y1, w, h);
        XFlush(display);
    }

    for (i = 0; i < nButtons; ++i)
    {
        if (buttons[i].x <= x &&
            x < buttons[i].x + buttons[i].w &&
            buttons[i].y <= y &&
            y < buttons[i].y + buttons[i].h &&
            i == nButtonDown)
        {
            if (strcmp(buttons[i].label, "Quit") == 0)
            {
	   /*    CloseFTP(); howcome 20/9/94 commented out due to use of library */
		XCloseDisplay(display);  
                Exit(0);
            }
            else if (strcmp(buttons[i].label, "Open..") == 0)
            {
                SaveStatusString();
                SaveFile = FindStr = 0;
                OpenURL = 1;
#ifdef SELECTION
		ClearStatusSelection();
#endif
                RestoreStatusString();
                DisplayStatusBar();
            }
            else if (strcmp(buttons[i].label, "Reload") == 0)
            {
                ReloadDoc(CurrentDoc->url);
            }
            else if (strcmp(buttons[i].label, "SaveAs..") == 0)
            {
                SaveStatusString();
                OpenURL = FindStr = 0;
                SaveFile = 1;

                if (SaveAsString)
                    Free(SaveAsString);

                SaveAsString = NULL; /* strdup(CurrentDoc.path); howcome 4/11/94 */
                
                RestoreStatusString();
                DisplayStatusBar();
            }
#ifdef FIND
            else if (strcmp(buttons[i].label, "Find..") == 0)
            {
                SaveStatusString();
                OpenURL = SaveFile = 0;
                FindStr = 1;
                RestoreStatusString();
                DisplayStatusBar();
            }
#endif
            else if (strcmp(buttons[i].label, "Print") == 0)
                PrintDoc();
            else if (strcmp(buttons[i].label, "View") == 0)
                ToggleView();
            else if (strcmp(buttons[i].label, "Edit") == 0)
                EditCurrentBuffer();
#ifdef CLONE
            else if (strcmp(buttons[i].label, "Clone") == 0)
                CloneSelf();
#endif
            else if (strcmp(buttons[i].label, "Back") == 0)
                BackDoc();
            else if (strcmp(buttons[i].label, "Forward") == 0)
                ForwardDoc();
            else if (strcmp(buttons[i].label, "Home") == 0)
                HomeDoc();
#ifdef ZOOM
            else if (strcmp(buttons[i].label, "ZoomIn") == 0)
                StyleZoomChange(1.25);
            else if (strcmp(buttons[i].label, "ZoomOut") == 0)
                StyleZoomChange(0.8);
#endif	    
            else if (strcmp(buttons[i].label, "Help") == 0)
                OpenDoc(help);
        }
    }

    nButtonDown = 0;
}

/* write buffer to temporary file and execute printing script */

void PrintDoc()
{
    int c;
    FILE *fp;
    char *tmpfile, *p, buf[256];
#if defined __QNX__
    char *tempnam(); /* this machine doesn't have tempnam... */
	/* yes it has a tempnam() */
	/*  That's why it wants to declare the prototype, or return value at least */
#endif

/*    XDefineCursor(display, win, hourglass);*/
/*    XFlush(display);*/

    tmpfile = tempnam(".", "w3");

    p = buffer;

    if ((fp = fopen(tmpfile, "w")) == 0)
        Warn("Can't open temporary print file: %s\n", tmpfile);
    else
    {
        while ((c = *p++))
            putc(c, fp);

        fclose(fp);

/* howcome 16/10/94 added flag to specify printer
        if (CurrentDoc->html_displayed)
            sprintf(buf, "prhtml -udi %s -d%s %s &", CurrentDoc->url, printer, tmpfile);
        else
            sprintf(buf, "prtxt -d%s %s &", printer, tmpfile);
*/
	if (Printer) {
	    sprintf(buf,"%s %s &",Printer,tmpfile);
	    system(buf);
	    /* Announce("Printing to %s ...", printer);*/
	    Announce("%s ..", buf); /* howcome 16/10/94 */
	} else {
	    Announce("No printer specified");
	}
    }

    XUndefineCursor(display, win);
    XFlush(display);
}

/* save and display ps document */

void DisplayPSdocument(char *buffer, long length, char *path)
{
    FILE *fp;
    char *tmpfile, *p, buf[256], cmd[256];

    p = strrchr(path, '/');

    if (p)
    {
        sprintf(buf, "/tmp%s", p);
        tmpfile = buf;
    }
    else
        tmpfile = tempnam(".", "w3");

    p = buffer;

    if ((fp = fopen(tmpfile, "w")) == 0)
        Warn("Can't open temporary postscript: file, %s\n", tmpfile);
    else
    {
        while (length-- > 0)
            putc(*p++, fp);

        fclose(fp);

        sprintf(cmd, "gs %s &", tmpfile);

        system(cmd);
/*        Announce("Using gs for %s", NewDoc.url);*/
    }

#if 0
    XUndefineCursor(display, win);
    XFlush(display);
#endif
}

void DisplayExtDocument(char *buffer, long length, int type, char *path)
{
  /*    char *cmd; */

/*    cmd = libRank(NewDoc.content_type); */

    /* howcome 5/11/94: here, check what has been registered in the library */

/*    Warn("Sorry, can't display %s outline. Yet.",NewDoc.url);*/
/*    fprintf(stderr,"In the future, %s will be displayed at this point\n",NewDoc.url);*/
}



/* save and display document in separate window */

/*
void DisplayExtDocument(char *buffer, long length, int type, char *path)
{
    FILE *fp;
    char *tmpfile, *p, *app, cmd[256], buf[256];

    p = strrchr(path, '/');

    if (p)
    {
        sprintf(buf, "/tmp%s", p);
        tmpfile = buf;
    }
    else
        tmpfile = tempnam(".", "w3");

    p = buffer;

    if ((fp = fopen(tmpfile, "w")) == 0)
        Warn("Can't open temporary file: %s\n", tmpfile);
    else
    {
        while (length-- > 0)
            putc(*p++, fp);

        fclose(fp);

        if (type == DVIDOCUMENT)
            app = "xdvi";
        else if (type == PSDOCUMENT)
            app = "ghostview";
        else if (type == XVDOCUMENT)
            app = "xv";
        else if (type == MPEGDOCUMENT)
            app = "mpeg_play";
        else if (type == AUDIODOCUMENT)
            app = "showaudio";
        else if (type == XWDDOCUMENT)
            app = "xwud -in";
        else if (type == MIMEDOCUMENT)
            app = "xterm -e metamail";
        else
            app = "unknown app";

        sprintf(cmd, "w3show %s %s &", app, tmpfile);

        system(cmd);
        Announce("using %s to display %s ...", app, NewDoc.url);
    }
}
*/

/* write buffer to file */
void SaveDoc(char *file)
{
    long i;
    /*    int c; */
    FILE *fp;
    char *p, buf[256];

    SaveFile = 0;
/*    XDefineCursor(display, win, hourglass);*/
/*    XFlush(display);*/

    p = buffer+hdrlen;

    if (*file == '\0' || (fp = fopen(file, "w")) == 0)
    {
        sprintf(buf, "can't create file: %s\n", file);
        SetStatusString(buf);
    }
    else
    {
        if (!CurrentDoc->show_raw) /* howcome ?? */
/*            fprintf(fp, "<BASE href=\"%s\">\n", CurrentDoc->url); */

        for (i = CurrentDoc->loaded_length; i > 0; --i)
            putc(*p++, fp);

        fclose(fp);

        Announce("saved to %s", file);
    }

    XUndefineCursor(display, win);
    XFlush(display);
}