/*
* _evnt_open
*
* Open routine for "event" layer.
*
* Input:
* name - name of file to open
* oflags
* mode
* fio - ffio file descriptor
* spec
* stat - pointer to status return word
* cbits
* cblks
* oinf
*
* Output:
* Returns: pointer to fdinfo block from next lower layer on success.
* -1 if an error occurred.
*/
_ffopen_t
_evnt_open(const char *name, int oflags, mode_t mode, struct fdinfo *fio,
union spec_u *spec, struct ffsw *stat, long cbits, int cblks,
struct gl_o_inf *oinf)
{
_ffopen_t nextfio;
int ret;
union spec_u *nspec;
int status;
struct evnt_f *evnt_info;
struct stat fstat;
int trc_file_number = 0;
rtc_t start_rtc, finish_rtc;
struct ffsw log_stat;
int log_ubc = 0;
#if !defined(__mips) && !defined(_LITTLE_ENDIAN)
int end_open_link = _evnt_OPEN_LINK;
#elif defined(__mips)
struct dioattr dio;
#endif
int isvalid;
static int evnt_atexit_called = FALSE;
struct EVNT_FILE_TRACE *trace_file;
/*
* post atexit so we can call it to close our
* diagnostic and trace files
*/
if (evnt_atexit_called == FALSE) {
evnt_atexit_called = TRUE;
atexit(_evnt_atexit);
}
fio->lyr_info = NULL; /* set to NULL for the benefit of _evnt_clfree */
evnt_info = (struct evnt_f *) calloc(1, sizeof(struct evnt_f));
if (evnt_info == NULL)
goto nomem;
fio->lyr_info = (char *) evnt_info;
/*
* set default layer options in envt_info
*/
evnt_info->optflags.diag = TRUE; /* default is full diagnostics*/
evnt_info->optflags.full_diag = TRUE; /* default is full diagnostics*/
evnt_info->optflags.summary = FALSE;
evnt_info->optflags.brief = FALSE;
evnt_info->optflags.trace = FALSE;
evnt_info->optflags.rtc = RTC_MODE;/* use rtc by default */
evnt_info->optflags.k = FALSE;
evnt_info->optflags.m = FALSE;
evnt_info->optflags.g = FALSE;
evnt_info->optflags.bytes = TRUE; /* default units */
evnt_info->optflags.words = FALSE;
evnt_info->optflags.blocks = FALSE;
evnt_info->do_zeros = TRUE; /* zero fill diag fields by default */
evnt_info->extend_trackers_failed = FALSE;
/*
* malloc space for async tracker structures
*/
if ((evnt_info->async_tracker = _evnt_add_trackers(NUM_TRACKERS))
== NULL)
goto nomem;
evnt_info->num_async_trackers = NUM_TRACKERS;
/*
* pick up user requested options -
* get values from the FFIO spec
*/
_evnt_getopts(evnt_info, spec);
/*
* open diagnostics file
*/
if (evnt_info->optflags.diag == TRUE) {
if(_evnt_open_log_file(evnt_info) == ERR) {
goto badret;
} else {
if (_GL_ffio_logptr != NULL)
_GL_evnt_logptr = _GL_ffio_logptr;
else
_GL_evnt_logptr = stderr;
}
}
/*
* open trace file if we're tracing
*/
#if !defined(__mips) && !defined(_LITTLE_ENDIAN)
if (evnt_info->optflags.trace == TRUE) {
trc_file_number = _ff_nparm_getv(spec, 1, &isvalid);
/*
* check for valid file number - issue message to stats file
*/
if (evnt_info->optflags.diag == TRUE &&
trc_file_number < 0 || trc_file_number > 9) {
fprintf(_GL_evnt_logptr,
"Invalid trace file number specified: %d. Valid numbers are 0-9.\n ffio.trace will be used\n", trc_file_number);
trc_file_number = 0;
}
evnt_info->trc_file_number = trc_file_number;
trace_file = &(_GL_evnt_trc_file[trc_file_number]);
if (_evnt_open_trace_file(fio, name, evnt_info) == ERR)
goto badret;
}
#endif
#ifdef EVNT_DEBUG
fprintf(stderr,"event layer options:\n");
fprintf(stderr,
"diagnostics: diag = %d, full_diag = %d, summary = %d, brief = %d\n",
evnt_info->optflags.diag,
evnt_info->optflags.full_diag,
evnt_info->optflags.summary,
evnt_info->optflags.brief);
fprintf(stderr,"tracing: trace = %d\n", evnt_info->optflags.trace);
fprintf(stderr,"trc_file_number = %d\n", trc_file_number);
fprintf(stderr,"clock: rtc = %d\n", evnt_info->optflags.rtc);
fprintf(stderr,"units: bytes = %d, words = %d, blocks = %d\n",
evnt_info->optflags.bytes,
evnt_info->optflags.words,
evnt_info->optflags.blocks);
fprintf(stderr,"size: k = %d, m = %d, g = %d\n",
evnt_info->optflags.k,
evnt_info->optflags.m,
evnt_info->optflags.g);
#endif
/*
* initialize minimums to large values for diagnostics
*/
if (evnt_info->optflags.diag) {
long bigmin;
if (sizeof(size_t) == sizeof(long)){
bigmin = LONG_MAX;
}
else {
bigmin = INT_MAX;
}
evnt_info->listio_write.min = bigmin;
evnt_info->listio_writea.min = bigmin;
evnt_info->listio_read.min = bigmin;
evnt_info->listio_reada.min = bigmin;
evnt_info->write.min = bigmin;
evnt_info->writea.min = bigmin;
evnt_info->read.min = bigmin;
evnt_info->reada.min = bigmin;
strncpy(evnt_info->name, name, NAMLEN);
}
/*
* Get the FFIO spec for the next lower layer.
*/
nspec = spec;
NEXT_SPEC(nspec);
/*
* Open the layers below this one.
*/
#if !defined(__mips) && !defined(_LITTLE_ENDIAN)
if (evnt_info->optflags.trace == TRUE)
trace_file->open_level_count++;
#endif
start_rtc = RTC();
nextfio = _ffopen(name, oflags, mode, nspec, stat, cbits, cblks,
NULL, oinf);
finish_rtc = RTC();
#if !defined(__mips) && !defined(_LITTLE_ENDIAN)
if (evnt_info->optflags.trace == TRUE)
trace_file->open_level_count--;
#endif
evnt_info->open_time = finish_rtc - start_rtc;
if (nextfio == _FFOPEN_ERR)
goto badret;
if (1) {
struct fdinfo *nfioptr;
nfioptr = (struct fdinfo *) nextfio;
ret = XRCALL(nfioptr, fcntlrtn) nfioptr, FC_STAT, &fstat, stat);
if (oflags & O_TRUNC)
evnt_info->cur_size = 0;
else
evnt_info->cur_size = fstat.st_size;
if (oflags & O_APPEND)
evnt_info->cur_pos = evnt_info->cur_size;
else
evnt_info->cur_pos = 0;
#ifdef __mips
ret = XRCALL(nfioptr, fcntlrtn) nfioptr, FC_DIOINFO, &dio, stat);
if (ret == ERR)evnt_info->odirect = 0;
else {
evnt_info->odirect = 1;
evnt_info->miniosize = dio.d_miniosz;
evnt_info->chunksize = dio.d_miniosz;
evnt_info->diskalign = dio.d_miniosz;
evnt_info->maxiosize = dio.d_maxiosz;
evnt_info->memalign = dio.d_mem;
}
#endif
evnt_info->max_size = evnt_info->cur_size;
evnt_info->oflags = oflags;
evnt_info->cbits = cbits;
evnt_info->cblks = cblks;
#ifdef DO_WE_WANT_FAKE_SDS
if (get out of * oinf) {
evnt_info->fake_sds = TRUE;
evnt_info->sector_mask = 4095;
} else {
evnt_info->fake_sds = FALSE;
evnt_info->sector_mask = fstat.st_blksize - 1;
}
#endif
/* we're not monitoring ssreads yet */
evnt_info->fake_sds = FALSE;
evnt_info->sector_mask = fstat.st_blksize - 1;
}
/*
* write some initial information to the trace file
*/
#if !defined(__mips) && !defined(_LITTLE_ENDIAN)
if (evnt_info->optflags.trace) {
if (trace_file->ptr) {
struct evnt_open_info *open_info;
int next_open_link;
open_info = &(evnt_info->open_info);
evnt_info->fd = (trace_file->file_info.open_count) << 48;
open_info->fd = _evnt_OPEN | evnt_info->fd;
open_info->oflags = oflags;
open_info->mode = mode;
strncpy(open_info->name, name, 80);
open_info->name[79] = 0;
open_info->open_size = evnt_info->cur_size;
open_info->rtc_14 = RTC();
open_info->rtc_15 = RTC();
open_info->nextfio = nextfio;
strcpy(open_info->parent_child, "??? <-> ???");
open_info->next_open_pos = 'UNUSED';
open_info->max_size = evnt_info->max_size;
open_info->close_rtc = 0;
open_info->event_count = 0;
open_info->start_rtc = start_rtc;
open_info->finish_rtc = finish_rtc;
open_info->d_nextfio = nextfio;
next_open_link = EVNT_XR_TELL();
evnt_info->open_pos = next_open_link + 8;
if (trace_file->program_info.open_count == 0)
trace_file->program_info.first_open_pos = next_open_link;
if (trace_file->file_info.open_count == 0) {
trace_file->file_info.first_open_pos = next_open_link;
} else {
long link_word;
status = EVNT_XR_SEEK(trace_file->file_info.last_open_link,
SEEK_SET);
link_word = _evnt_OPEN_LINK | next_open_link;
status = EVNT_XR_WRITE(&link_word, 8, 1);
status = EVNT_XR_SEEK(0, SEEK_END);
}
trace_file->file_info.last_open_link = next_open_link;
status = EVNT_XR_WRITE(&end_open_link, 1, sizeof(int));
status = EVNT_XR_WRITE(open_info, 1,
sizeof(struct evnt_open_info));
}
evnt_info->logged_count =
&(_GL_evnt_trc_file[evnt_info->trc_file_number].program_info.event_count);
trace_file->file_info.open_count++;
trace_file->program_info.open_count++;
EVNT_TRACE_SIZE;
INC_GLOBAL_LOG_COUNT(open);
_evnt_trace_flush(fio, evnt_info);
evnt_info->need_parent_child = TRUE;
}
#endif
evnt_info->counts.size_changes = 0;
evnt_info->counts.open = 1;
evnt_info->counts.total = 1;
return (nextfio);
nomem:
badret:
_evnt_clfree(fio);
return (_FFOPEN_ERR);
}
_ffopen_t
_gen_xopen(
const char *name,
int flags,
mode_t mode,
struct fdinfo *fio,
union spec_u *spec,
struct ffsw *stat,
long cbits,
int cblks,
struct gl_o_inf *oinf
)
{
char *ptr;
union spec_u *nspec;
int blksize;
_ffopen_t nextfio;
int isvalid;
struct gen_xf *xf_info;
/*
* Allocate private storage
*/
xf_info = (struct gen_xf *)calloc(sizeof(struct gen_xf),1);
if (xf_info == NULL) goto nomem;
fio->lyr_info = (char *)xf_info;
/*
* select parameters based on record type
*/
switch(fio->rtype)
{
case TR_NVE_V:
xf_info->rdwlen = 112; /* bits */
break;
case TR_CRAY_V:
xf_info->rdwlen = 64; /* bits */
break;
#ifdef _OLD_F77
case TR_UX_VAX:
case TR_UX_SUN:
xf_info->rdwlen = 32; /* bits */
break;
#endif
case TR_205_W:
xf_info->rdwlen = 64; /* bits */
break;
}
xf_info->last_lrdwaddr = 0;
xf_info->lrdwaddr = 0;
/*
* Record the maximum record size in bits.
* A value of 0 is stored if this is unspecified.
*/
fio->maxrecsize = _ff_nparm_getv(spec, 1, &isvalid) * 8;
/*
* Record the buffer size in bits.
*/
blksize = _ff_nparm_getv(spec, 2, &isvalid) * 8;
if (! isvalid || blksize < 256) /* bits, mighty small! */
blksize = X_BUFSIZ * BITPBLOCK;
else
blksize = (blksize + 077) & (~077);/* round to word size */
/*
* Although the _ffbufsiz field is declared as long,
* these routines use GETDATA and PUTDATA. Those macros
* assign the amount to be written to integers. So, to
* make this all work we need to be sure that the buffer size
* does not exceed the size of an integer.
*/
if (blksize > (1<<sizeof(int)*8-5)){
_SETERROR(stat, FDC_ERR_BUFSIZ, 0);
goto badret;
}
fio->_ffbufsiz = blksize; /* bit size of buffer */
ptr = malloc((blksize >> 3) + 16);
if (ptr == NULL) goto nomem;
SET_BPTR(fio->_base, CPTR2BP(ptr));
fio->scc = SCCFULL;
fio->lastscc = SCCFULL;
fio->rwflag = POSITIN;
fio->segbits = 0;
fio->_cnt = 0;
fio->_ptr = fio->_base;
/*
* Now, open the lower layers
*/
nspec = spec;
NEXT_SPEC(nspec);
nextfio = _ffopen(name, flags, mode, nspec, stat, cbits, cblks, NULL,
oinf);
if (nextfio < 0) goto badret;
DUMP_IOB(fio); /* debugging only */
return(nextfio);
nomem:
_SETERROR(stat, FDC_ERR_NOMEM, 0);
badret:
if (BPTR2CP(fio->_base) != NULL) free(BPTR2CP(fio->_base));
if (fio->lyr_info != NULL) free(fio->lyr_info);
return(_FFOPEN_ERR);
}
* SHMEM groups require MPT 1.2 or higher because the code relies
* on _shmem_barrier_all and shmalloc.
*/
if (_glio_curgroup.grtype == GR_SHMEM && groupsz > 1) {
if (shmalloc == NULL || _shmem_barrier_all == NULL) {
if (_my_pe() == 0) {
fprintf(stderr,"%s:\n\
Global files used in SHMEM programs require libsma.so from MPT 1.2 or\n\
later. The version of libsma you are currently using is from the MPT\n\
1.1 release.\n", GLOBERRMSG);
abort();
}
}
}
bsblks = _ff_nparm_getv(spec, 1, &isvalid);
if (!isvalid)
bsblks = _par_vars.pgsize;
pgsize_bytes = bsblks * YMPBLOCK;
/*
* The second numeric parameter on the spec is the number of
* buffers per PE.
*/
npages = _ff_nparm_getv(spec, 2, &isvalid);
if (!isvalid)
npages = _par_vars.pepages;
_ffopen_t
_cch_open(
const char *name,
int oflags,
mode_t mode,
struct fdinfo *fio,
union spec_u *spec,
struct ffsw *stat,
long cbits,
int cblks,
struct gl_o_inf *oinf)
{
int i;
_ffopen_t nextfio;
int nb; /* number of buffers */
int64 bs; /* size of each buffer in bits */
int ret;
int isvalid;
char *s;
bitptr bptr;
struct fdinfo *nfioptr;
union spec_u *nspec;
struct cch_f *cch_info;
struct cch_buf *cbufs;
struct stat fstat;
struct ffsw clstat;
struct ffc_info_s layer_info;
int64 bypass;
#ifdef __mips
struct dioattr dio;
int o_direct = 0;
#endif
#if defined(_CRAY1) || defined(_CRAYMPP)
oflags |= O_RAW; /* We believe that bypassing system cache
* enhances performance in most cases. */
#endif
/*
* Allocate the layer-specific data area.
*/
cch_info = (struct cch_f *)calloc(1, sizeof(struct cch_f));
if (cch_info == NULL)
goto nomem;
fio->lyr_info = (char *)cch_info;
cch_info->optflags = 0; /* initially, no special options */
/*
* Get values from the FFIO spec.
*/
#ifdef CCH_SDS_SUPPORTED
if (spec->fld.recfmt == TR_CCH_SDS) {
cch_info->optflags |= CCHOPT_SDS;
oflags |= O_SSD; /* request I/O betw disk and SDS */
}
#endif
bs = _ff_nparm_getv(spec, 1, &isvalid) * BITPBLOCK;
if (!isvalid) {
#ifdef _UNICOS_MAX
if (_MPP_MPPSIM > 0) {
/* Running on simulator in user virtual mode. Simulator can */
/* not handle large reads/writes, so restrict the size */
bs = CCH_DEF_SIMBUFSIZ * BITPBLOCK;
}
else
#endif
bs = CCH_DEF_BUFSIZ * BITPBLOCK; /* set default bs */
}
if (bs <= 0 || bs >= CCH_MAX_BBUFSIZ) {
_SETERROR(stat, FDC_ERR_BUFSIZ, 0);
goto badret;
}
nb = _ff_nparm_getv(spec, 2, &isvalid);
if (!isvalid)
nb = CCH_DEF_NBUF; /* set default nb */
if (nb <= 0) {
_SETERROR(stat, FDC_ERR_NBUF0, 0);
goto badret;
}
cch_info->nbufs = nb;
cch_info->bufs = NULL;
/*
* Set flag if -m on is assigned.
*/
#ifdef __mips
if (oflags & O_DIRECT)
o_direct = 1;
#endif
if (oinf->aip != NULL) {
if (oinf->aip->m_multup_flg && oinf->aip->m_multup) {
cch_info->is_multup = 1;
oinf->aip->m_multup_flg |= ATTR_USED;
}
#ifdef __mips
if (oinf->aip->B_direct_flg) {
if (oinf->aip->B_direct)
o_direct = 1;
else
o_direct = 0;
}
#endif
}
/*
* Allocate the buffer control blocks contiguously.
*/
if ((cch_info->bufs =
(struct cch_buf *)calloc(nb, sizeof(struct cch_buf))) == NULL)
goto nomem;
/*
* Get the FFIO spec for the next lower layer.
*/
nspec = spec;
NEXT_SPEC(nspec);
/*
* Open the layers below this one.
*/
nextfio = _ffopen(name, oflags, mode, nspec, stat, cbits, cblks, NULL,
oinf);
if (nextfio == _FFOPEN_ERR) goto badret;
nfioptr = (struct fdinfo *)nextfio;
/*
* Get information about the underlying layer.
*/
ret = XRCALL(nfioptr,fcntlrtn) nfioptr, FC_STAT, &fstat, stat);
if (ret == ERR) goto close_badret;
ret = XRCALL(nfioptr,fcntlrtn) nfioptr, FC_GETINFO, &layer_info, stat);
if (ret == ERR) goto close_badret;
if ( layer_info.ffc_flags & FFC_CANSYLISTIO )
cch_info->do_sylistio = 1;
#ifdef __mips
/*
* Have we been requested to open with O_DIRECT?
*/
if (o_direct) {
int nflag;
int64 bsbyt;
bsbyt = bs/8; /* convert buffer size to bytes */
/* determine buffer size requirements for O_DIRECT */
ret = XRCALL(nfioptr,fcntlrtn) nfioptr, FC_DIOINFO, &dio, stat);
if (ret == ERR) goto close_badret;
/* Adjust the size of the buffers for O_DIRECT's requirements.*/
if (bsbyt % dio.d_miniosz != 0){
/* We need to write in these units. */
bsbyt = bsbyt - bsbyt%dio.d_miniosz;
}
if (bsbyt < dio.d_miniosz) {
bsbyt = dio.d_miniosz;
}
else if (bsbyt > dio.d_maxiosz) {
bsbyt = dio.d_maxiosz;
}
if (bsbyt % dio.d_mem != 0){
/* Each buffer needs to be memaligned */
/* Since this layer expects all buffers */
/* to be contiguous, we're out of luck. */
errno = FDC_ERR_BUFSIZ;
goto close_badret;
}
bs = bsbyt*8; /* convert back to bits */
cch_info->maxiosize = dio.d_maxiosz;
cch_info->miniosize = dio.d_miniosz;
cch_info->chunksize = dio.d_miniosz;
cch_info->diskalign = dio.d_miniosz;
cch_info->memalign = dio.d_mem;
cch_info->odirect = 1;
}
else {
