cst_file cst_url_open(const char *url)
{
/* Always opens it for reading */
cst_tokenstream *urlts;
const cst_string *protocol;
int port;
cst_string *host;
int fd;
char *url_request;
char *path;
cst_file ofd;
int state,n;
char c;
urlts = ts_open_string(url, "", ":/", "", "");
protocol = ts_get(urlts);
if (cst_streq(protocol,"http"))
{
#ifdef CST_NO_SOCKETS
ts_close(urlts);
return NULL;
#else
if (!cst_streq(ts_get(urlts),":") ||
!cst_streq(ts_get(urlts),"/") ||
!cst_streq(ts_get(urlts),"/"))
{
ts_close(urlts);
return NULL;
}
host = cst_strdup(ts_get(urlts));
if (cst_streq(ts_get(urlts),":"))
port = (int)cst_atof(ts_get(urlts));
else
port = 80;
/* Open port to web server */
fd = cst_socket_open(host,port);
if (fd < 0)
{
cst_free(host);
ts_close(urlts);
return NULL;
}
url_request = cst_alloc(char,cst_strlen(url)+17);
cst_sprintf(url_request,"GET %s HTTP/1.2\n\n",url);
n = write(fd,url_request,cst_strlen(url_request));
cst_free(url_request);
/* Skip http header -- until \n\n */
state=0;
while (state != 4)
{
n=read(fd,&c,1);
if (n == 0)
{ /* eof or link gone down */
cst_free(host);
ts_close(urlts);
return NULL;
}
if ((state == 0) && (c == '\r'))
state=1;
else if ((state == 1) && (c == '\n'))
state=2;
else if ((state == 2) && (c == '\r'))
state=3;
else if ((state == 3) && (c == '\n'))
state=4;
/* Not sure you can get no CRs in the stream */
else if ((state == 0) && (c == '\n'))
state=2;
else if ((state == 2) && (c == '\n'))
state=4;
else
state = 0;
}
ofd = fdopen(fd,"rb");
ts_close(urlts);
cst_free(host);
return ofd;
#endif
}
int play_wave_client(cst_wave *w,const char *servername,int port,
const char *encoding)
{
int audiofd,q,i,n,r;
int sample_width;
unsigned char bytes[CST_AUDIOBUFFSIZE];
short shorts[CST_AUDIOBUFFSIZE];
snd_header header;
if (!w)
return CST_ERROR_FORMAT;
if ((audiofd = cst_socket_open(servername,port)) == 0)
return CST_ERROR_FORMAT;
header.magic = (unsigned int)0x2e736e64;
header.hdr_size = sizeof(header);
if (cst_streq(encoding,"ulaw"))
{
sample_width = 1;
header.encoding = 1; /* ulaw */
}
else if (cst_streq(encoding,"uchar"))
{
sample_width = 1;
header.encoding = 2; /* unsigned char */
}
else
{
sample_width = 2;
header.encoding = 3; /* short */
}
header.data_size = sample_width * w->num_samples * w->num_channels;
header.sample_rate = w->sample_rate;
header.channels = w->num_channels;
if (CST_LITTLE_ENDIAN)
{ /* If I'm intel etc swap things, so "network byte order" */
header.magic = SWAPINT(header.magic);
header.hdr_size = SWAPINT(header.hdr_size);
header.data_size = SWAPINT(header.data_size);
header.encoding = SWAPINT(header.encoding);
header.sample_rate = SWAPINT(header.sample_rate);
header.channels = SWAPINT(header.channels);
}
if (write(audiofd, &header, sizeof(header)) != sizeof(header))
{
cst_errmsg("auclinet: failed to write header to server\n");
return CST_ERROR_FORMAT;
}
for (i=0; i < w->num_samples; i += r)
{
if (w->num_samples > i+CST_AUDIOBUFFSIZE)
n = CST_AUDIOBUFFSIZE;
else
n = w->num_samples-i;
if (cst_streq(encoding,"ulaw"))
{
for (q=0; q<n; q++)
bytes[q] = cst_short_to_ulaw(w->samples[i+q]);
r = write(audiofd,bytes,n);
}
else
{
for (q=0; q<n; q++)
if (CST_LITTLE_ENDIAN)
shorts[q] = SWAPSHORT(w->samples[i+q]);
else
shorts[q] = w->samples[i+q];
r = write(audiofd,shorts,n*2);
r /= 2;
}
if (r <= 0)
cst_errmsg("failed to write %d samples\n",n);
}
cst_socket_close(audiofd);
return CST_OK_FORMAT;
}
