int Instruments::process_pdta(int size, SFInfo *sf, struct timidity_file *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a subchunk */
if (READCHUNK(&chunk, fd) <= 0)
return -1;
size -= 8;
ctl_cmsg(CMSG_INFO, VERB_DEBUG, " %c%c%c%c:",
chunk.id[0], chunk.id[1], chunk.id[2], chunk.id[3]);
switch (chunkid(chunk.id)) {
case PHDR_ID:
load_preset_header(chunk.size, sf, fd);
break;
case PBAG_ID:
load_bag(chunk.size, &prbags, fd);
break;
case PGEN_ID:
load_gen(chunk.size, &prbags, fd);
break;
case INST_ID:
load_inst_header(chunk.size, sf, fd);
break;
case IBAG_ID:
load_bag(chunk.size, &inbags, fd);
break;
case IGEN_ID:
load_gen(chunk.size, &inbags, fd);
break;
case SHDR_ID:
load_sample_info(chunk.size, sf, fd);
break;
case PMOD_ID: /* ignored */
case IMOD_ID: /* ingored */
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static int process_pdta(int size, SFInfo *sf, FILE *fd)
{
while (size > 0) {
SFChunk chunk;
/* read a subchunk */
READCHUNK(chunk, fd); size -= 8;
if (feof(fd))
return -1;
switch (chunkid(chunk.id)) {
case PHDR_ID:
load_preset_header(chunk.size, sf, fd);
break;
case PBAG_ID:
load_bag(chunk.size, &prbags, fd);
break;
case PGEN_ID:
load_gen(chunk.size, &prbags, fd);
break;
case INST_ID:
load_inst_header(chunk.size, sf, fd);
break;
case IBAG_ID:
load_bag(chunk.size, &inbags, fd);
break;
case IGEN_ID:
load_gen(chunk.size, &inbags, fd);
break;
case SHDR_ID:
load_sample_info(chunk.size, sf, fd);
break;
case PMOD_ID: /* ignored */
case IMOD_ID: /* ingored */
default:
FSKIP(chunk.size, fd);
break;
}
size -= chunk.size;
}
return 0;
}
static void client(char *host)
{
struct sockaddr_in sock;
int fd;
int one=1;
struct sockaddr_in sock_out;
struct hostent *hp;
bzero((char *)&sock,sizeof(sock));
sock.sin_port = 0;
sock.sin_family = AF_INET;
sock.sin_addr.s_addr = 0;
fd = socket(AF_INET, SOCK_DGRAM, 0);
if (fd == -1) {
fprintf(stderr, "socket failed\n"); exit(1);
}
setsockopt(fd,SOL_SOCKET,SO_REUSEADDR,(char *)&one,sizeof(one));
/* now we've got a socket - we need to bind it */
if (bind(fd, (struct sockaddr * ) &sock,sizeof(sock)) < 0) {
perror("bind");
exit(1);
}
hp = gethostbyname(host);
if (!hp) {
fprintf(stderr,"unknown host: %s\n", host);
return;
}
memcpy(&sock_out.sin_addr, hp->h_addr, hp->h_length);
sock_out.sin_port = htons(port);
sock_out.sin_family = PF_INET;
if (connect(fd,(struct sockaddr *)&sock_out,sizeof(sock_out))) {
close(fd);
fprintf(stderr,"failed to connect to %s - %s\n",
host, strerror(errno));
return;
}
load_gen(fd);
}
void F4GB::process_s_pair(spair *p)
{
int c;
switch (p->type) {
case F4_SPAIR_SPAIR: {
packed_monomial n = next_monom;
M->unchecked_divide(p->lcm, gb[p->i]->f.monoms, n);
B.intern(1+M->monomial_size(n));
next_monom = B.reserve(1+M->max_monomial_size());
next_monom++;
load_row(n, p->i);
c = mat->rows[mat->rows.size()-1].comps[0];
if (mat->columns[c].head >= -1)
n_lcmdups++;
else {
// In this situation, we load the other half as a reducer
n = next_monom;
M->unchecked_divide(p->lcm, gb[p->j]->f.monoms, n);
B.intern(1+M->monomial_size(n));
next_monom = B.reserve(1+M->max_monomial_size());
next_monom++;
load_row(n, p->j);
mat->columns[c].head = INTSIZE(mat->rows)-1;
}
break;
}
case F4_SPAIR_GEN:
load_gen(p->i);
break;
default:
break;
}
}
