initial version
This commit is contained in:
Kelvin Sherlock
commit
f305f78412
|
|
@ -0,0 +1,171 @@
|
|||
#include "Connect.h"
|
||||
|
||||
//static char pstring[256];
|
||||
|
||||
|
||||
static Word LoginAndOpen(ConnectBuffer *buffer)
|
||||
{
|
||||
Word ipid;
|
||||
Word terr;
|
||||
|
||||
|
||||
ipid = TCPIPLogin(
|
||||
buffer->memID,
|
||||
buffer->dnr.DNRIPaddress,
|
||||
buffer->port,
|
||||
0x0000, 0x0040);
|
||||
|
||||
if (_toolErr)
|
||||
{
|
||||
buffer->state = ConnectStateError;
|
||||
return -1;
|
||||
}
|
||||
|
||||
terr = TCPIPOpenTCP(ipid);
|
||||
if (_toolErr || terr)
|
||||
{
|
||||
TCPIPLogout(ipid);
|
||||
buffer->state = ConnectStateError;
|
||||
buffer->terr = terr;
|
||||
buffer->ipid = 0;
|
||||
return -1;
|
||||
}
|
||||
|
||||
buffer->ipid = ipid;
|
||||
buffer->state = ConnectStateConnecting;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
Word ConnectionPoll(ConnectBuffer *buffer)
|
||||
{
|
||||
Word state;
|
||||
if (!buffer) return -1;
|
||||
state = buffer->state;
|
||||
|
||||
if (state == 0) return -1;
|
||||
if (state == ConnectStateConnected) return 1;
|
||||
if (state == ConnectStateDisconnected) return 1;
|
||||
if (state == ConnectStateError) return -1;
|
||||
|
||||
TCPIPPoll();
|
||||
|
||||
if (state == ConnectStateDNR)
|
||||
{
|
||||
if (buffer->dnr.DNRstatus == DNR_OK)
|
||||
{
|
||||
return LoginAndOpen(buffer);
|
||||
}
|
||||
else if (buffer->dnr.DNRstatus != DNR_Pending)
|
||||
{
|
||||
buffer->state = ConnectStateError;
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
if (state == ConnectStateConnecting || state == ConnectStateDisconnecting)
|
||||
{
|
||||
Word terr;
|
||||
static srBuff sr;
|
||||
|
||||
terr = TCPIPStatusTCP(buffer->ipid, &sr);
|
||||
|
||||
if (state == ConnectStateDisconnecting)
|
||||
{
|
||||
// these are not errors.
|
||||
if (terr == tcperrConClosing || terr == tcperrClosing)
|
||||
terr = tcperrOK;
|
||||
}
|
||||
|
||||
if (terr || _toolErr)
|
||||
{
|
||||
//CloseAndLogout(buffer);
|
||||
|
||||
TCPIPCloseTCP(buffer->ipid);
|
||||
TCPIPLogout(buffer->ipid);
|
||||
buffer->ipid = 0;
|
||||
buffer->state = ConnectStateError;
|
||||
buffer->terr = terr;
|
||||
return -1;
|
||||
}
|
||||
|
||||
if (sr.srState == TCPSESTABLISHED) // && state == ConnectStateConnecting)
|
||||
{
|
||||
buffer->state = ConnectStateConnected;
|
||||
return 1;
|
||||
}
|
||||
|
||||
if (sr.srState == TCPSCLOSED || sr.srState == TCPSTIMEWAIT)
|
||||
{
|
||||
TCPIPLogout(buffer->ipid);
|
||||
buffer->ipid = 0;
|
||||
buffer->state = ConnectStateDisconnected;
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
Word ConnectionOpen(ConnectBuffer *buffer, const char *host, Word port)
|
||||
{
|
||||
buffer->state = 0;
|
||||
buffer->ipid = 0;
|
||||
buffer->terr = 0;
|
||||
buffer->port = port;
|
||||
|
||||
// 1. check if we need to do DNR.
|
||||
if (TCPIPValidateIPString(host))
|
||||
{
|
||||
cvtRec cvt;
|
||||
TCPIPConvertIPToHex(&cvt, host);
|
||||
buffer->dnr.DNRIPaddress = cvt.cvtIPAddress;
|
||||
buffer->dnr.DNRstatus = DNR_OK; // fake it.
|
||||
|
||||
return LoginAndOpen(buffer);
|
||||
}
|
||||
// do dnr.
|
||||
TCPIPDNRNameToIP(host, &buffer->dnr);
|
||||
if (_toolErr)
|
||||
{
|
||||
buffer->state = ConnectStateError;
|
||||
return -1;
|
||||
}
|
||||
buffer->state = ConnectStateDNR;
|
||||
return 0;
|
||||
}
|
||||
|
||||
void ConnectionInit(ConnectBuffer *buffer, Word memID)
|
||||
{
|
||||
buffer->memID = memID;
|
||||
buffer->ipid = 0;
|
||||
buffer->terr = 0;
|
||||
buffer->state = 0;
|
||||
buffer->port = 0;
|
||||
buffer->dnr.DNRstatus = 0;
|
||||
buffer->dnr.DNRIPaddress = 0;
|
||||
}
|
||||
|
||||
Word ConnectionClose(ConnectBuffer *buffer)
|
||||
{
|
||||
Word state = buffer->state;
|
||||
|
||||
// todo -- how do you close if not yet connected?
|
||||
if (state == ConnectStateConnected)
|
||||
{
|
||||
buffer->state = ConnectStateDisconnecting;
|
||||
buffer->terr = TCPIPCloseTCP(buffer->ipid);
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (state == ConnectStateDNR)
|
||||
{
|
||||
TCPIPCancelDNR(&buffer->dnr);
|
||||
buffer->state = 0;
|
||||
return 1;
|
||||
}
|
||||
|
||||
return -1;
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,206 @@
|
|||
#include <Locator.h>
|
||||
#include <Memory.h>
|
||||
|
||||
#include <tcpip.h>
|
||||
|
||||
|
||||
//#include "url.h"
|
||||
#include "Connect.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
/*
|
||||
* connect gopher.floodgap.com:70
|
||||
* send path
|
||||
* read output.
|
||||
* text -- ends with . <CR><LF>
|
||||
* bin -- ends when connection is closed.
|
||||
*/
|
||||
|
||||
// startup/shutdown flags.
|
||||
enum {
|
||||
kLoaded = 1,
|
||||
kStarted = 2,
|
||||
kConnected = 4
|
||||
};
|
||||
|
||||
Word StartUp(void)
|
||||
{
|
||||
word status;
|
||||
word flags = 0;
|
||||
|
||||
status = TCPIPStatus();
|
||||
if (_toolErr)
|
||||
{
|
||||
LoadOneTool(54,0x0200);
|
||||
if (_toolErr) return -1;
|
||||
|
||||
status = 0;
|
||||
flags |= kLoaded;
|
||||
}
|
||||
|
||||
if (!status)
|
||||
{
|
||||
TCPIPStartUp();
|
||||
if (_toolErr) return -1;
|
||||
flags |= kStarted;
|
||||
}
|
||||
|
||||
status = TCPIPGetConnectStatus();
|
||||
if (!status)
|
||||
{
|
||||
TCPIPConnect(NULL);
|
||||
flags |= kConnected;
|
||||
}
|
||||
return flags;
|
||||
}
|
||||
|
||||
void ShutDown(word flags)
|
||||
{
|
||||
if (flags & kConnected)
|
||||
{
|
||||
TCPIPDisconnect(false, NULL);
|
||||
if (_toolErr) return;
|
||||
}
|
||||
if (flags & kStarted)
|
||||
{
|
||||
TCPIPShutDown();
|
||||
if (_toolErr) return;
|
||||
}
|
||||
if (flags & kLoaded)
|
||||
{
|
||||
UnloadOneTool(54);
|
||||
}
|
||||
}
|
||||
|
||||
#if 0
|
||||
void do_url(const char *url)
|
||||
{
|
||||
URLComponents components;
|
||||
ConnectBuffer buffer;
|
||||
char *host;
|
||||
|
||||
if (ParseURL(url, strlen(url), &components))
|
||||
{
|
||||
fprintf(stderr, "Invalid URL: %s\n", url);
|
||||
return;
|
||||
}
|
||||
if (!url.host.length)
|
||||
{
|
||||
fprintf(stderr, "No host\n");
|
||||
return;
|
||||
}
|
||||
if (!components.portNumber) components.portNumber = 70;
|
||||
host = malloc(url.host.length + 1);
|
||||
URLComponentGetCString(url, &components, host, URLComponentHost);
|
||||
|
||||
ConnectInit(&buffer, myID);
|
||||
|
||||
|
||||
ConnectCString(&buffer, host, components.portNumber);
|
||||
|
||||
if (components.path.length)
|
||||
{
|
||||
rv = TCPIPWriteTCP(buffer.ipid,
|
||||
url + components.path.location,
|
||||
components.path.length,
|
||||
0, 0);
|
||||
}
|
||||
rv = TCPIPWriteTCP(buffer.ipid, "\r\n", 2, 1, 0);
|
||||
|
||||
|
||||
while (!ConnectionPoll(&buffer)) ;
|
||||
if (buffer.state == ConnectionStateError)
|
||||
{
|
||||
fprintf(stderr, "Unable to open host: %s:%u\n", host, components.portNumber);
|
||||
free(host);
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
ConnectionClose(&buffer);
|
||||
|
||||
while (!ConnectionPoll(&buffer)) ; // wait for it to close.
|
||||
|
||||
free (host);
|
||||
}
|
||||
|
||||
#endif
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
Handle h;
|
||||
ConnectBuffer buffer;
|
||||
|
||||
int i;
|
||||
Word rv;
|
||||
Word flags;
|
||||
|
||||
// getopt for -b binary
|
||||
|
||||
#if 0
|
||||
for (i = 1; i < argc; ++i)
|
||||
{
|
||||
do_url(argv[i]);
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
flags = StartUp();
|
||||
fprintf(stdout, "flags: %u\n", flags);
|
||||
|
||||
ConnectionInit(&buffer, MMStartUp());
|
||||
|
||||
rv = ConnectionOpen(&buffer, "\pgopher.floodgap.com", 70);
|
||||
while (!rv)
|
||||
{
|
||||
rv = ConnectionPoll(&buffer);
|
||||
}
|
||||
if (buffer.state == ConnectStateConnected)
|
||||
{
|
||||
fprintf(stdout, "Connected!\n");
|
||||
}
|
||||
|
||||
fprintf(stdout, "%x %x %x\n", rv, buffer.state, buffer.terr);
|
||||
|
||||
rv = TCPIPWriteTCP(buffer.ipid, "\r\n", 2, 1, 0);
|
||||
if (rv)
|
||||
{
|
||||
fprintf(stdout, "TCPIPWriteTCP: %x\n", rv);
|
||||
}
|
||||
|
||||
for(;;)
|
||||
{
|
||||
rrBuff rb;
|
||||
//rlrBuff rb;
|
||||
Handle h;
|
||||
Word count;
|
||||
|
||||
TCPIPPoll();
|
||||
rv = TCPIPReadTCP(buffer.ipid, 2, NULL, 4096, &rb);
|
||||
|
||||
//rv = TCPIPReadLineTCP(buffer.ipid, "\p\r\n", 2, NULL, 4096, &rb);
|
||||
|
||||
if (rv) break;
|
||||
h = rb.rrBuffHandle;
|
||||
count = rb.rrBuffCount;
|
||||
|
||||
if (!h) continue;
|
||||
|
||||
HLock(h);
|
||||
fwrite(*h, count, 1, stdout);
|
||||
fputs("", stdout);
|
||||
DisposeHandle(h);
|
||||
}
|
||||
|
||||
|
||||
rv = ConnectionClose(&buffer);
|
||||
while (!rv)
|
||||
{
|
||||
rv = ConnectionPoll(&buffer);
|
||||
}
|
||||
fprintf(stdout, "%x %x %x\n", rv, buffer.state, buffer.terr);
|
||||
|
||||
ShutDown(flags);
|
||||
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,519 @@
|
|||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <ctype.h>
|
||||
|
||||
|
||||
|
||||
#include "url.h"
|
||||
|
||||
enum {
|
||||
kScheme,
|
||||
kUser,
|
||||
kPassword,
|
||||
kHost,
|
||||
kPort,
|
||||
kPath,
|
||||
kParams,
|
||||
kQuery,
|
||||
kFragment
|
||||
};
|
||||
|
||||
|
||||
/*
|
||||
* scheme://username:password@domain:port/path;parms?query_string#fragment_id
|
||||
*
|
||||
*
|
||||
*/
|
||||
|
||||
int URLGetComponentCString(const char *url, struct URLComponents *components, int type, char *dest)
|
||||
{
|
||||
URLRange *rangePtr;
|
||||
URLRange r;
|
||||
|
||||
if (!url || !components) return -1;
|
||||
|
||||
|
||||
if (type < URLComponentScheme || type > URLComponentPathAndQuery) return -1;
|
||||
|
||||
rangePtr = &components->scheme;
|
||||
|
||||
r = rangePtr[type];
|
||||
|
||||
if (!dest) return r.length;
|
||||
else
|
||||
{
|
||||
if (r.length)
|
||||
{
|
||||
memcpy(dest, url + r.location, r.length);
|
||||
}
|
||||
dest[r.length] = 0;
|
||||
|
||||
return r.length;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#if 0
|
||||
int schemeType(const char *string)
|
||||
{
|
||||
if (!string || !*string) return SCHEME_NONE;
|
||||
|
||||
static struct {
|
||||
int length;
|
||||
const char *data
|
||||
} table[] = {
|
||||
{ 4, "file:" },
|
||||
{ 3, "ftp:" },
|
||||
{ 6, "gopher:" },
|
||||
{ 4, "http:" },
|
||||
{ 5, "https:" },
|
||||
{ 6, "mailto:" },
|
||||
{ 4, "news:" },
|
||||
{ 4, "nntp:" },
|
||||
{ 6, "telnet:" }
|
||||
};
|
||||
|
||||
switch(*string)
|
||||
{
|
||||
case 'f':
|
||||
// ftp, file
|
||||
if (!strcmp(string, "file")) return SCHEME_FILE;
|
||||
if (!strcmp(string, "ftp")) return SCHEME_FTP;
|
||||
break;
|
||||
|
||||
case 'g':
|
||||
// gopher
|
||||
if (!strcmp(string, "gopher")) return SCHEME_GOPHER;
|
||||
break;
|
||||
|
||||
case 'h':
|
||||
// http, https
|
||||
if (!strcmp(string, "https")) return SCHEME_HTTPS;
|
||||
if (!strcmp(string, "http")) return SCHEME_HTTP;
|
||||
break;
|
||||
|
||||
case 'm':
|
||||
// mailto
|
||||
if (!strcmp(string, "mailto")) return SCHEME_MAILTO;
|
||||
break;
|
||||
|
||||
case 'n':
|
||||
// news, nntp
|
||||
if (!strcmp(string, "news")) return SCHEME_NEWS;
|
||||
if (!strcmp(string, "nntp")) return SCHEME_NNTP;
|
||||
break;
|
||||
|
||||
case 't':
|
||||
// telnet
|
||||
if (!strcmp(string, "telnet")) return SCHEME_TELNET;
|
||||
break;
|
||||
|
||||
}
|
||||
|
||||
return SCHEME_UNKNOWN;
|
||||
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
int ParseURL(const char *url, int length, struct URLComponents *components)
|
||||
{
|
||||
char c;
|
||||
int state;
|
||||
int hasScheme;
|
||||
int hasAt;
|
||||
|
||||
int i, l;
|
||||
|
||||
URLRange range = { 0, 0 };
|
||||
URLRange *rangePtr;
|
||||
|
||||
|
||||
if (!components || !url) return 0;
|
||||
|
||||
rangePtr = &components->scheme;
|
||||
memset(components, 0, sizeof(URLComponents));
|
||||
|
||||
state = kScheme;
|
||||
|
||||
// 1 check for a scheme.
|
||||
// [A-Za-z0-9.+-]+ ':'
|
||||
|
||||
|
||||
hasScheme = 0;
|
||||
hasAt = 0;
|
||||
range.location = 0;
|
||||
|
||||
for(i = 0; i < length; ++i)
|
||||
{
|
||||
c = url[i];
|
||||
|
||||
if (c == ':')
|
||||
{
|
||||
hasScheme = 1;
|
||||
break;
|
||||
}
|
||||
|
||||
if (c >= 'a' && c <= 'z') continue;
|
||||
if (c >= 'A' && c <= 'Z') continue;
|
||||
if (c >= '0' && c <= '9') continue;
|
||||
|
||||
//if (isalnum(c)) continue;
|
||||
if (c == '.') continue;
|
||||
if (c == '+') continue;
|
||||
if (c == '-') continue;
|
||||
|
||||
break;
|
||||
}
|
||||
|
||||
if (hasScheme)
|
||||
{
|
||||
if (i == 0) return 0;
|
||||
range.length = i;
|
||||
|
||||
components->scheme = range;
|
||||
++i; // skip the ':'
|
||||
}
|
||||
else
|
||||
{
|
||||
state = kPath;
|
||||
i = 0;
|
||||
}
|
||||
|
||||
// 2. check for //
|
||||
// //user:password@domain:port/
|
||||
// otherwise, it's a path
|
||||
|
||||
if (strncmp(url + i, "//", 2) == 0)
|
||||
{
|
||||
state = kUser;
|
||||
i += 2;
|
||||
}
|
||||
else
|
||||
{
|
||||
state = kPath;
|
||||
}
|
||||
|
||||
//range = (URLRange){ i, 0 };
|
||||
range.location = i; range.length = 0;
|
||||
|
||||
for( ; i < length; ++i)
|
||||
{
|
||||
c = url[i];
|
||||
|
||||
if ((c < 32) || (c & 0x80))
|
||||
{
|
||||
// goto invalid_char;
|
||||
return 0;
|
||||
}
|
||||
|
||||
switch(c)
|
||||
{
|
||||
// illegal chars.
|
||||
// % # not allowed but allowed.
|
||||
|
||||
case ' ':
|
||||
case '"':
|
||||
case '<':
|
||||
case '>':
|
||||
case '[':
|
||||
case '\\':
|
||||
case ']':
|
||||
case '^':
|
||||
case '`':
|
||||
case '{':
|
||||
case '|':
|
||||
case '}':
|
||||
case 0x7f:
|
||||
// goto invalid_char;
|
||||
return 0;
|
||||
break;
|
||||
|
||||
|
||||
case ':':
|
||||
// username -> password
|
||||
// domain -> port
|
||||
// password -> error
|
||||
// port -> error
|
||||
// all others, no transition.
|
||||
switch(state)
|
||||
{
|
||||
case kUser:
|
||||
case kHost:
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
//range = (URLRange){ i + 1 , 0 };
|
||||
range.location = i + 1; range.length = 0;
|
||||
|
||||
state++;
|
||||
break;
|
||||
|
||||
|
||||
case kPassword:
|
||||
case kPort:
|
||||
return 0;
|
||||
|
||||
}
|
||||
break;
|
||||
|
||||
|
||||
case '@':
|
||||
// username -> domain
|
||||
// password -> domain
|
||||
// all others no transition.
|
||||
// path -> error?
|
||||
|
||||
switch(state)
|
||||
{
|
||||
case kUser:
|
||||
case kPassword:
|
||||
hasAt = 1;
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
//range = (URLRange){ i + 1 , 0 };
|
||||
range.location = i + 1; range.length = 0;
|
||||
|
||||
state = kHost;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
|
||||
case '/':
|
||||
// domain -> path
|
||||
// port -> path
|
||||
|
||||
// (must be switched to domain:port)
|
||||
// username -> path
|
||||
// password -> path
|
||||
// all others, no transition.
|
||||
|
||||
// '/' is part of the filename.
|
||||
switch (state)
|
||||
{
|
||||
case kUser:
|
||||
hasAt = 1; // close enough
|
||||
state = kHost; // username was actually the domain.
|
||||
// pass through.
|
||||
case kPassword: // need to switch to domain:port later.
|
||||
case kHost:
|
||||
case kPort:
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
|
||||
//range = (URLRange){ i, 0 }; // '/' is part of path.
|
||||
range.location = i; range.length = 0;
|
||||
|
||||
state = kPath;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
|
||||
case ';':
|
||||
// path -> param
|
||||
// all others, no transition.
|
||||
|
||||
if (state == kPath)
|
||||
{
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
//range = (URLRange){ i + 1 , 0 };
|
||||
range.location = i + 1; range.length = 0;
|
||||
state = kParams;
|
||||
}
|
||||
break;
|
||||
|
||||
case '?':
|
||||
// path -> query
|
||||
// param -> query
|
||||
// all others, no transition.
|
||||
|
||||
if (state == kPath || state == kParams)
|
||||
{
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
//range = (URLRange){ i + 1 , 0 };
|
||||
range.location = i + 1; range.length = 0;
|
||||
|
||||
state = kQuery;
|
||||
}
|
||||
break;
|
||||
|
||||
|
||||
case '#':
|
||||
// fragment -> no transition
|
||||
// everything else transitions to a fragment.
|
||||
// can immediately end parsing since we know the length...
|
||||
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
|
||||
state = kFragment;
|
||||
range.location = i + 1; range.length = 0;
|
||||
|
||||
i = length; // break from loop.
|
||||
break;
|
||||
}
|
||||
|
||||
}
|
||||
// finish up the last portion.
|
||||
if (state)
|
||||
{
|
||||
l = i - range.location;
|
||||
if (l > 0)
|
||||
{
|
||||
range.length = l;
|
||||
rangePtr[state] = range;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
if (!hasAt)
|
||||
{
|
||||
// user:name was actually domain:port
|
||||
components->host = components->user;
|
||||
components->port = components->password;
|
||||
|
||||
components->user.location = 0;
|
||||
components->user.length = 0;
|
||||
components->password.location = 0;
|
||||
components->password.length = 0;
|
||||
}
|
||||
|
||||
// port number conversion.
|
||||
if (components->port.location)
|
||||
{
|
||||
const char *tmp = url + components->port.location;
|
||||
int p = 0;
|
||||
|
||||
l = components->port.length;
|
||||
|
||||
|
||||
for (i = 0; i < l; ++i)
|
||||
{
|
||||
c = tmp[i];
|
||||
|
||||
if ((c < '0') || (c > '9'))
|
||||
{
|
||||
p = 0;
|
||||
break;
|
||||
}
|
||||
// convert to number.
|
||||
c &= 0x0f;
|
||||
|
||||
// p *= 10;
|
||||
// 10x = 2x + 8x = (x << 1) + (x << 3)
|
||||
if (p)
|
||||
{
|
||||
int p2;
|
||||
|
||||
p2 = p << 1;
|
||||
p = p2 << 2;
|
||||
p = p + p2;
|
||||
}
|
||||
p += c;
|
||||
}
|
||||
|
||||
components->portNumber = p;
|
||||
}
|
||||
|
||||
#if 0
|
||||
// path and query.
|
||||
// path;params?query
|
||||
range = components->path;
|
||||
if (range.length)
|
||||
{
|
||||
if (components->params.length)
|
||||
range.length += components->params.length + 1;
|
||||
if (components->query.length)
|
||||
range.length += components->query.length + 1;
|
||||
|
||||
components->pathAndQuery = range;
|
||||
}
|
||||
#endif
|
||||
|
||||
return 1;
|
||||
|
||||
}
|
||||
|
||||
void test(const char *url)
|
||||
{
|
||||
URLComponents data;
|
||||
int ok;
|
||||
|
||||
char *buffer;
|
||||
buffer = strdup(url); // enough space.
|
||||
|
||||
if (!url || !*url) return;
|
||||
|
||||
ok = ParseURL(url, strlen(url), &data);
|
||||
|
||||
printf("%s (%s)\n", url, ok ? "ok" : "error");
|
||||
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentScheme, buffer);
|
||||
printf(" scheme: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentUser, buffer);
|
||||
printf(" username: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentPassword, buffer);
|
||||
printf(" password: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentHost, buffer);
|
||||
printf(" host: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentPort, buffer);
|
||||
printf(" port: %s [%d]\n", buffer, data.portNumber);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentPath, buffer);
|
||||
printf(" path: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentParams, buffer);
|
||||
printf(" params: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentQuery, buffer);
|
||||
printf(" query: %s\n", buffer);
|
||||
|
||||
URLGetComponentCString(url, &data, URLComponentFragment, buffer);
|
||||
printf(" fragment: %s\n", buffer);
|
||||
|
||||
free(buffer);
|
||||
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
int i;
|
||||
|
||||
for (i = 1; i < argc; ++i)
|
||||
{
|
||||
test(argv[i]);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
|
@ -0,0 +1,63 @@
|
|||
#ifndef __url_h__
|
||||
#define __url_h__
|
||||
|
||||
enum {
|
||||
SCHEME_UNKNOWN = -1,
|
||||
SCHEME_NONE = 0,
|
||||
SCHEME_FILE,
|
||||
SCHEME_FTP,
|
||||
SCHEME_GOPHER,
|
||||
SCHEME_HTTP,
|
||||
SCHEME_HTTPS,
|
||||
SCHEME_MAILTO,
|
||||
SCHEME_NEWS,
|
||||
SCHEME_NNTP,
|
||||
SCHEME_TELNET
|
||||
};
|
||||
|
||||
|
||||
typedef struct URLRange {
|
||||
int location;
|
||||
int length;
|
||||
} URLRange;
|
||||
|
||||
enum {
|
||||
URLComponentScheme,
|
||||
URLComponentUser,
|
||||
URLComponentPassword,
|
||||
URLComponentHost,
|
||||
URLComponentPort,
|
||||
URLComponentPath,
|
||||
URLComponentParams,
|
||||
URLComponentQuery,
|
||||
URLComponentFragment,
|
||||
URLComponentPathAndQuery
|
||||
};
|
||||
|
||||
typedef struct URLComponents {
|
||||
|
||||
int schemeType;
|
||||
int portNumber;
|
||||
|
||||
URLRange scheme;
|
||||
URLRange user;
|
||||
URLRange password;
|
||||
URLRange host;
|
||||
URLRange port;
|
||||
URLRange path;
|
||||
URLRange params;
|
||||
URLRange query;
|
||||
URLRange fragment;
|
||||
|
||||
URLRange pathAndQuery;
|
||||
|
||||
} URLComponents;
|
||||
|
||||
int ParseURL(const char *url, int length, struct URLComponents *components);
|
||||
|
||||
int URLGetComponentCString(const char *url, struct URLComponents *, int, char *);
|
||||
int URLGetComponentPString(const char *url, struct URLComponents *, int, char *);
|
||||
//int URLGetComponentGSString(const char *url, struct URLComponents *, int, GSString255Ptr);
|
||||
|
||||
|
||||
#endif
|
||||
Loading…
Reference in New Issue