int op_open(mval *device, mval *devparms, int timeout, mval *mspace)
{
LITREF unsigned char io_params_size[];
char buf1[MAX_TRANS_NAME_LEN]; /* buffer to hold translated name */
io_log_name *naml; /* logical record for passed name */
io_log_name *tl; /* logical record for translated name */
io_log_name *prev; /* logical record for removal search */
uint4 stat; /* status */
mstr tn; /* translated name */
error_def(LP_NOTACQ); /* bad license */
MV_FORCE_STR(device);
MV_FORCE_STR(devparms);
if (mspace)
MV_FORCE_STR(mspace);
if (timeout < 0)
timeout = 0;
assert((unsigned char)*devparms->str.addr < n_iops);
naml = get_log_name(&device->str, INSERT);
if (naml->iod != 0)
tl = naml;
else
{
#ifdef NOLICENSE
licensed= TRUE;
#else
CRYPT_CHKSYSTEM;
if (!licensed || LP_CONFIRM(lid, lkid)==LP_NOTACQ)
licensed= FALSE;
#endif
switch(stat = trans_log_name(&device->str, &tn, &buf1[0]))
{
case SS_NORMAL:
tl = get_log_name(&tn, INSERT);
break;
case SS_NOLOGNAM:
tl = naml;
break;
default:
for (prev = io_root_log_name, tl = prev->next; tl != 0; prev = tl, tl = tl->next)
{
if (naml == tl)
{
prev->next = tl->next;
free(tl);
break;
}
}
rts_error(VARLSTCNT(1) stat);
}
}
stat = io_open_try(naml, tl, devparms, timeout, mspace);
return (stat);
}
/* The third parameter is dummy to keep the inteface same as op_open */
int mu_op_open(mval *v, mval *p, int t, mval *mspace)
{
char buf1[MAX_TRANS_NAME_LEN]; /* buffer to hold translated name */
io_log_name *naml; /* logical record for passed name */
io_log_name *tl; /* logical record for translated name */
int4 stat; /* status */
mstr tn; /* translated name */
error_def(LP_NOTACQ); /* bad license */
error_def(ERR_LOGTOOLONG);
MV_FORCE_STR(v);
MV_FORCE_STR(p);
if (mspace)
MV_FORCE_STR(mspace);
if (t < 0)
t = 0;
assert((unsigned char)*p->str.addr < n_iops);
naml = get_log_name(&v->str, INSERT);
if (naml->iod != 0)
tl = naml;
else
{
# ifdef NOLICENSE
licensed= TRUE ;
# else
CRYPT_CHKSYSTEM;
if (!licensed || LP_CONFIRM(lid,lkid)==LP_NOTACQ)
{
licensed= FALSE ;
}
# endif
switch(stat = TRANS_LOG_NAME(&v->str, &tn, &buf1[0], sizeof(buf1), dont_sendmsg_on_log2long))
{
case SS_NORMAL:
tl = get_log_name(&tn, INSERT);
break;
case SS_NOLOGNAM:
tl = naml;
break;
case SS_LOG2LONG:
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, v->str.len, v->str.addr, sizeof(buf1) - 1);
break;
default:
rts_error(VARLSTCNT(1) stat);
}
}
stat = mu_open_try(naml, tl, p, mspace);
return (stat);
}
int op_open(mval *device, mval *devparms, int timeout, mval *mspace)
{
char buf1[MAX_TRANS_NAME_LEN]; /* buffer to hold translated name */
io_log_name *naml; /* logical record for passed name */
io_log_name *tl; /* logical record for translated name */
io_log_name *prev; /* logical record for removal search */
int4 stat; /* status */
mstr tn; /* translated name */
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
MV_FORCE_STR(device);
MV_FORCE_STR(devparms);
if (mspace)
MV_FORCE_STR(mspace);
if (timeout < 0)
timeout = 0;
else if (TREF(tpnotacidtime) < timeout)
TPNOTACID_CHECK(OPENTIMESTR);
assert((unsigned char)*devparms->str.addr < n_iops);
naml = get_log_name(&device->str, INSERT);
if (naml->iod != 0)
tl = naml;
else
{
# ifdef NOLICENSE
licensed= TRUE;
# else
CRYPT_CHKSYSTEM;
if (!licensed || LP_CONFIRM(lid, lkid)==LP_NOTACQ)
licensed= FALSE;
# endif
switch(stat = TRANS_LOG_NAME(&device->str, &tn, &buf1[0], SIZEOF(buf1), dont_sendmsg_on_log2long))
{
case SS_NORMAL:
tl = get_log_name(&tn, INSERT);
break;
case SS_NOLOGNAM:
tl = naml;
break;
default:
for (prev = io_root_log_name, tl = prev->next; tl != 0; prev = tl, tl = tl->next)
{
if (naml == tl)
{
prev->next = tl->next;
free(tl);
break;
}
}
# ifdef UNIX
if (SS_LOG2LONG == stat)
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, device->str.len, device->str.addr, SIZEOF(buf1) - 1);
else
# endif
rts_error(VARLSTCNT(1) stat);
}
}
stat = io_open_try(naml, tl, devparms, timeout, mspace);
return (stat);
}