void pcm_play_data(void (*get_more)(unsigned char** start, long* size))
{
unsigned char *start;
long size;
callback_for_more = get_more;
get_more((unsigned char **)&start, (long *)&size);
get_more(&next_start, &next_size);
dma_start(start, size);
}
int
read_rules(srv_t * srv, char *file, dbcmd_t * dbc)
{
FILE *fp;
char *sp, *tmp;
int n = 0, f = 0, r;
octet_t *op;
octarr_t *oa = 0;
ruleset_t *rs = 0, *trs, *prs;
spocp_result_t rc = SPOCP_SUCCESS;
spocp_charbuf_t *buf;
spocp_chunk_t *chunk = 0, *ck;
spocp_chunkwrap_t *cw;
spocp_ruledef_t rdef;
struct stat statbuf;
if ((fp = fopen(file, "r")) == 0) {
LOG(SPOCP_EMERG) traceLog(LOG_ERR,"couldn't open rule file \"%s\"",
file);
op = oct_new( 256, NULL);
sp = getcwd(op->val, op->size);
traceLog(LOG_ERR,"I'm in \"%s\"", sp);
oct_free(op);
return -1;
}
stat( file, &statbuf);
srv->mtime = statbuf.st_mtime;
/*
* The default ruleset should already be set
*/
if (srv->root == 0) {
srv->root = rs = ruleset_new(0);
} else
rs = srv->root;
if (rs->db == 0)
rs->db = db_new();
buf = charbuf_new( fp, BUFSIZ );
if (get_more(buf) == 0) return 0;
/*
* have to escape CR since fgets stops reading when it hits a newline
* NUL also has to be escaped since I have problem otherwise finding
* the length of the 'string'. '\' hex hex is probably going to be the
* choice
*/
while (rc == SPOCP_SUCCESS ) {
cw = get_object( buf, 0 );
if (cw->status == 0) {
Free(cw);
break;
}
else if (cw->status == -1) {
rc = SPOCP_LOCAL_ERROR;
Free(cw);
break;
}
else {
chunk = cw->chunk;
Free(cw);
}
if (oct2strcmp(chunk->val, ";include ") == 0) { /* include
* file */
ck = chunk->next;
tmp = oct2strdup( ck->val, 0 ) ;
LOG(SPOCP_DEBUG) traceLog(LOG_DEBUG,"include directive \"%s\"",
tmp);
if ((rc = read_rules(srv, tmp, dbc)) < 0) {
traceLog(LOG_ERR,"Include problem");
}
}
else if (*chunk->val->val == '/' || *chunk->val->val == '(') {
trs = rs;
if (*chunk->val->val == '/') {
#ifdef AVLUS
oct_print(LOG_INFO,"ruleset", chunk->val);
#endif
if ((trs = ruleset_find( chunk->val, rs)) == NULL) {
octet_t oct;
octln( &oct, chunk->val);
rs = ruleset_create(chunk->val, rs);
trs = ruleset_find(&oct, rs);
trs->db = db_new();
}
ck = chunk->next;
}
else {
ck = chunk;
}
ruledef_return( &rdef, ck ) ;
if( rdef.rule ) {
op = chunk2sexp( rdef.rule ) ;
oa = octarr_add(oa, op) ;
LOG(SPOCP_DEBUG) {
traceLog(LOG_DEBUG,"We've got a rule");
}
}
if( rdef.bcond) {
op = chunk2sexp( rdef.bcond ) ;
oa = octarr_add(oa, op) ;
LOG(SPOCP_DEBUG) {
traceLog(LOG_DEBUG,"We've got a boundary condition");
}
}