#pragma cdev cdevMain

#include <types.h>
#include <stddef.h>
#include <stdio.h>
#include <string.h>
#include <gsos.h>
#include <orca.h>
#include <quickdraw.h>
#include <qdaux.h>
#include <window.h>
#include <control.h>
#include <lineedit.h>
#include <desk.h>
#include <locator.h>
#include <tcpip.h>
#include "mounturl.h"
#include "strcasecmp.h"

#define MachineCDEV     1
#define BootCDEV        2
#define InitCDEV        4
#define CloseCDEV       5
#define EventsCDEV      6
#define CreateCDEV      7
#define AboutCDEV       8
#define RectCDEV        9
#define HitCDEV         10
#define RunCDEV         11
#define EditCDEV        12

#define imageURLTxt         2
#define urlLine             3
#define mountBtn            1
//#define optionsPopUp      6
//#define trianglePic       7
#define useCacheChk         8

#define imageFormatMenu      300
#define formatAutoDetectItem 301
#define format2mgItem        302
#define formatRawItem        303
#define formatDOSOrderItem   304
#define formatDiskCopy42Item 305

#define netDiskMissingError 3000
#define mountURLError       3001
#define unsupportedProtocolAlert 3002
#define marinettiMissingError 3003
#define marinettiVersionWarning 3004
#define yesBtn 1        /* number of "Yes" button in alert */

#define DESIRED_MARINETTI_VERSION 0x03006011 /* 3.0b11 */

extern void FreeAllCDevMem(void);

char urlBuf[257];

WindowPtr wPtr = NULL;

Boolean useCache;

enum DiskImageFormat format;

struct MountURLRec mountURLRec = {sizeof(struct MountURLRec)};

void DoMount(void)
{
    char numStr[6] = "";
    char *subs[1] = {numStr};
    static char alertString[200];
    enum {HTTPS, FTP, OTHER_PROTOCOL} protocol = OTHER_PROTOCOL;

    GetLETextByID(wPtr, urlLine, (StringPtr)&urlBuf);

    if (strncasecmp(urlBuf+1, "https://", 8) == 0) {
        protocol = HTTPS;
        subs[0] = "HTTPS";
        strncpy(urlBuf+2, "http", 4);
        mountURLRec.url = urlBuf + 2;
    } else if (strncasecmp(urlBuf+1, "ftp://", 6) == 0) {
        protocol = FTP;
        subs[0] = "FTP";
        strncpy(urlBuf, "http", 4);
        mountURLRec.url = urlBuf;
    } else {
        protocol = OTHER_PROTOCOL;
        mountURLRec.url = urlBuf + 1;
    }
    
    if (protocol == HTTPS || protocol == FTP) {
        if (AlertWindow(awResource+awCString+awButtonLayout,
                        (Pointer)subs, unsupportedProtocolAlert) != yesBtn) {
            return;
        }
    }

    WaitCursor();
    TCPIPConnect(NULL);

    mountURLRec.result = NETDISK_NOT_PRESENT;
    
    mountURLRec.flags = 0;
    if (useCache) {
        mountURLRec.flags |= flgUseCache;
    }
    
    mountURLRec.format = format;

    SendRequest(MountURL, sendToName|stopAfterOne, (Long)NETDISK_REQUEST_NAME,
                (Long)&mountURLRec, NULL);

    InitCursor();

    if (mountURLRec.result != OPERATION_SUCCESSFUL) {
        snprintf(numStr, sizeof(numStr), "%u", mountURLRec.result);
        snprintf(alertString, sizeof(alertString), "42~%.175s~^#0\0",
                 ErrorString(mountURLRec.result));
        subs[0] = numStr;
        AlertWindow(awPointer+awCString+awButtonLayout, (Pointer)subs,
                    (Ref)alertString);
        
        /* Work around issue where parts of LE caret may flash out of sync */
        CtlRecHndl ctl = GetCtlHandleFromID(wPtr, urlLine);
        LEDeactivate((LERecHndl) GetCtlTitle(ctl));
        if (FindTargetCtl() == ctl) {
            LEActivate((LERecHndl) GetCtlTitle(ctl));
        }
    }
}

void DoHit(long ctlID, CtlRecHndl ctlHandle)
{
    if (!wPtr)  /* shouldn't happen */
        return;

    if (ctlID == mountBtn) {
        DoMount();
    } else if (ctlID == useCacheChk) {
        useCache = !useCache;
    } else if (ctlID == imageFormatMenu) {
        switch (GetCtlValue(ctlHandle)) {
        case formatAutoDetectItem:
            format = formatAutoDetect;
            break;
        case format2mgItem:
            format = format2mg;
            break;
        case formatRawItem:
            format = formatRaw;
            break;
        case formatDOSOrderItem:
            format = formatDOSOrder;
            break;
        case formatDiskCopy42Item:
            format = formatDiskCopy42;
            break;
        }
    }

    return;
}

long DoMachine(void)
{
    mountURLRec.result = NETDISK_NOT_PRESENT;
    mountURLRec.url = "";

    SendRequest(MountURL, sendToName|stopAfterOne, (Long)NETDISK_REQUEST_NAME,
                (Long)&mountURLRec, NULL);

    if (mountURLRec.result == NETDISK_NOT_PRESENT) {
        InitCursor();
        AlertWindow(awResource+awButtonLayout, NULL, netDiskMissingError);
        return 0;
    } else if (mountURLRec.result == MARINETTI_NOT_PRESENT) {
        InitCursor();
        AlertWindow(awResource+awButtonLayout, NULL, marinettiMissingError);
        return 0;
    }
    
    if (TCPIPLongVersion() < DESIRED_MARINETTI_VERSION) {
        InitCursor();
        AlertWindow(awResource+awButtonLayout, NULL, marinettiVersionWarning);
    }

    return 1;
}

void DoEdit(Word op)
{
    CtlRecHndl ctl;
    GrafPortPtr port;
    
    if (!wPtr)
        return;
    port = GetPort();
    SetPort(wPtr);
    
    ctl = FindTargetCtl();
    if (toolerror() || GetCtlID(ctl) != urlLine)
        goto ret;

    switch (op) {
    case cutAction:     LECut((LERecHndl) GetCtlTitle(ctl));
                        if (LEGetScrapLen() > 0)
                            LEToScrap();
                        break;
    case copyAction:    LECopy((LERecHndl) GetCtlTitle(ctl));
                        if (LEGetScrapLen() > 0)
                            LEToScrap();
                        break;
    case pasteAction:   LEFromScrap();
                        LEPaste((LERecHndl) GetCtlTitle(ctl));
                        break;
    case clearAction:   LEDelete((LERecHndl) GetCtlTitle(ctl));
                        break;
    }

ret:
    SetPort(port);
}

void DoCreate(WindowPtr windPtr)
{
    int mode;
    
    wPtr = windPtr;
    mode = (GetMasterSCB() & scbColorMode) ? 640 : 320;
    NewControl2(wPtr, resourceToResource, mode);
    useCache = TRUE;
}

LongWord cdevMain (LongWord data2, LongWord data1, Word message)
{
    long result = 0;

    switch(message) {
    case MachineCDEV:   result = DoMachine();               break;
    case HitCDEV:       DoHit(data2, (CtlRecHndl)data1);    break;
    case EditCDEV:      DoEdit(data1 & 0xFFFF);             break;
    case CreateCDEV:    DoCreate((WindowPtr)data1);         break;
    case CloseCDEV:     wPtr = NULL;                        break;
    }

ret:
    FreeAllCDevMem();
    return result;
}