diff --git a/diskbrowser.c b/diskbrowser.c index fb0fbcd..802599b 100644 --- a/diskbrowser.c +++ b/diskbrowser.c @@ -15,7 +15,13 @@ #include #include #include +#include +#include "session.h" #include "mounturl.h" +#include "seturl.h" +#include "http.h" +#include "readtcp.h" +#include "tcpconnection.h" static char menuTitle[] = "\pArchive.org Disk Browser\xC9"; static char windowTitle[] = "\p Archive.org Disk Browser "; @@ -63,6 +69,8 @@ struct diskListEntry diskList[DISK_LIST_LENGTH]; static struct MountURLRec mountURLRec = {sizeof(struct MountURLRec)}; +Session sess = {0}; + /* Record about our system window, to support processing by Desk Manager. */ /* See Prog. Ref. for System 6.0, page 20. */ static NDASysWindRecord sysWindRecord; @@ -156,21 +164,46 @@ boolean DoLEEdit (int editAction) { /* Do a search */ void DoSearch(void) { - CtlRecHndl disksListHandle; + static char searchURL[] = "http://archive.org/advancedsearch.php?q=emulator%3Aapple3&fl%5B%5D=identifier&fl%5B%5D=title&rows=3&page=1&output=json"; + enum NetDiskError result; + result = SetURL(&sess, searchURL, FALSE, FALSE); + //TODO enable this once we have real code to build the URL + //if (result != OPERATION_SUCCESSFUL) + // goto errorReturn; + + result = DoHTTPRequest(&sess); + if (result != OPERATION_SUCCESSFUL) + goto errorReturn; + + /* Limit content to <64k, to avoid any problems with 16-bit computations */ + if (sess.contentLength == 0 || sess.contentLength > 0xffff) + sess.contentLength = 0xffff; + + char *buf = malloc(sess.contentLength + 1); + if (buf == NULL) + goto errorReturn; + + InitReadTCP(&sess, sess.contentLength, buf); + while (TryReadTCP(&sess) == rsWaiting) + /* keep reading */ ; + *(buf + (sess.contentLength - sess.readCount)) = 0; + + //TODO for (int i = 0; i < DISK_LIST_LENGTH; i++) { - diskList[i].memPtr = "This is the title of some disk you could mount"; + diskList[i].memPtr = buf; diskList[i].memFlag = 0; } + /* Update state of controls once disk list is available */ + CtlRecHndl disksListHandle = GetCtlHandleFromID(window, disksList); + HiliteControl(noHilite, disksListHandle); NewList2(NULL, 1, (Ref) diskList, refIsPointer, - DISK_LIST_LENGTH, (Handle) GetCtlHandleFromID(window, disksList)); + DISK_LIST_LENGTH, (Handle)disksListHandle); - disksListHandle = GetCtlHandleFromID(window, disksList); SetCtlMoreFlags( GetCtlMoreFlags(disksListHandle) | fCtlCanBeTarget | fCtlWantEvents, disksListHandle); - HiliteControl(noHilite, disksListHandle); HiliteControl(noHilite, GetCtlHandleFromID(window, mountDiskButton)); ShowControl(GetCtlHandleFromID(window, previousPageButton)); @@ -178,6 +211,14 @@ void DoSearch(void) { ShowControl(GetCtlHandleFromID(window, pageNumberLine)); ShowControl(GetCtlHandleFromID(window, ofPagesText)); ShowControl(GetCtlHandleFromID(window, nextPageButton)); + + EndTCPConnection(&sess); + return; + +errorReturn: + EndTCPConnection(&sess); + // TODO show error message + //SysBeep(); } /* Handle an event after TaskMasterDA processing */