void fab_destroy(CALL *call)
{
CALL **walk;
for (walk = &calls; *walk; walk = &PRV(*walk)->next)
if (*walk == call) break;
if (!*walk)
diag(COMPONENT,DIAG_FATAL,"fab_destroy: call %p not found",call);
*walk = PRV(call)->next;
free(PRV(call));
call->fab = NULL;
}
void fab_init(CALL *call)
{
FAB *fab;
call->fab = alloc_t(FAB);
fab = PRV(call);
fab->active = 0;
fab->next = calls;
calls = call;
}
void PVec(const Vector<RealVect>& v)
{
if (v.size()<1)
return;
for (int i=0; i<v.size(); i++)
{
pout() << "\n " << i << ": "; PRV(v[i]);
}
}
void PredictorStep ()
{
real cr[] = {19.,-10.,3.}, cv[] = {27.,-22.,7.}, div = 24., wr, wv;
int n;
wr = Sqr (deltaT) / div;
wv = deltaT / div;
DO_MOL {
mol[n].ro = mol[n].r;
mol[n].rvo = mol[n].rv;
PR (x);
PRV (x);
PR (y);
PRV (y);
PR (z);
PRV (z);
mol[n].ra2 = mol[n].ra1;
mol[n].ra1 = mol[n].ra;
}
}
void fab_op(CALL *call,int op,const struct atm_qos *qos,
void (*callback)(CALL *call,int cause,void *more,void *user),void *user)
{
int error,error2;
diag(COMPONENT,DIAG_INFO,"fab_op%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s",
!op ? " FREE" : "",op & RM_RSV(_RM_ANY) ? " RM_RSV:" : "",
op & RM_IN_TX ? " IN_TX" : "",op & RM_IN_RX ? " IN_RX" : "",
op & RM_OUT_TX ? " OUT_TX" : "",op & RM_OUT_RX ? " OUT_RX" : "",
op & RM_PATH_TX ? " PATH_TX" : "",op & RM_PATH_RX ? " PATH_RX" : "",
op & RM_CLAIM(_RM_ANY) ? " RM_CLAIM:" : "",
op & _RM_SHIFT(RM_IN_TX) ? " IN_TX" : "",
op & _RM_SHIFT(RM_IN_RX) ? " IN_RX" : "",
op & _RM_SHIFT(RM_OUT_TX) ? " OUT_TX" : "",
op & _RM_SHIFT(RM_OUT_RX) ? " OUT_RX" : "",
op & _RM_SHIFT(RM_PATH_TX) ? " PATH_TX" : "",
op & _RM_SHIFT(RM_PATH_RX) ? " PATH_RX" : "");
if (op & (RM_RSV(RM_IN) | RM_CLAIM(RM_IN))) {
if (!check_ci(&call->in.pvc)) {
callback(call,ATM_CV_CI_UNAVAIL,NULL,user);
return;
}
call->in.qos = *qos;
}
if (op & (RM_RSV(RM_OUT) | RM_CLAIM(RM_OUT))) {
if (!check_ci(&call->out.pvc)) {
callback(call,ATM_CV_CI_UNAVAIL,NULL,user);
return;
}
call->out.qos = *qos;
}
if (op & RM_CLAIM(RM_PATH)) {
error = 0;
if (call->in.qos.txtp.traffic_class != ATM_NONE)
error = add_entry(&call->in.pvc,&call->out.pvc);
if (!error) {
if (call->in.qos.rxtp.traffic_class != ATM_NONE)
error = add_entry(&call->out.pvc,&call->in.pvc);
if (error && call->in.qos.txtp.traffic_class != ATM_NONE) {
error2 = del_entry(&call->in.pvc,&call->out.pvc);
if (error2)
diag(COMPONENT,DIAG_ERROR,"del_entry: %s",strerror(error2));
}
}
if (error) {
diag(COMPONENT,DIAG_ERROR,"add_entry: %s",strerror(error));
callback(call,ATM_CV_RES_UNAVAIL,NULL,user);
return;
}
PRV(call)->active = 1;
}
if (!op && PRV(call)->active) {
error = error2 = 0;
if (call->in.qos.txtp.traffic_class != ATM_NONE) {
error = del_entry(&call->in.pvc,&call->out.pvc);
if (error)
diag(COMPONENT,DIAG_ERROR,"del_entry: %s",strerror(error));
}
if (call->in.qos.rxtp.traffic_class != ATM_NONE) {
error2 = del_entry(&call->out.pvc,&call->in.pvc);
if (error2)
diag(COMPONENT,DIAG_ERROR,"del_entry: %s",strerror(error2));
}
if (error || error2) {
callback(call,ATM_CV_TEMP_FAIL,NULL,user);
return;
}
}
callback(call,0,NULL,user);
}
