Scf *fread_scf(FILE *fp) {
Scf *s;
mFILE *mf;
if (NULL == (mf = mfreopen(NULL, "r", fp)))
return NULL;
s = mfread_scf(mf);
mfclose(mf);
return s;
}
Scf *fread_scf(FILE *fp) {
Scf *s;
mFILE *mf;
if (NULL == (mf = mfreopen(NULL, "rb", fp)))
return NULL;
s = mfread_scf(mf);
mf->fp = NULL; /* Don't want this closed here */
mfclose(mf);
return s;
}
/*
* Read a sequence from a FILE *fp of format "format". If "format" is 0
* (ANY_FORMAT), we automatically determine the correct format.
* We still pass a filename 'fn' although this isn't used other than for
* filling in the read->trace_name field.
*
* NB this function should NOT be used when Biolims support is required
* (as biolims readings are not stored in a file)
*
* Returns:
* Read * for success
* NULLRead for failure
*/
Read *mfread_reading(mFILE *fp, char *fn, int format) {
Read *read;
mFILE *newfp;
if (!fn)
fn = "(unknown)";
newfp = freopen_compressed(fp, NULL);
if (newfp != fp) {
fp = newfp;
} else {
newfp = NULL;
}
#ifdef _WIN32
/*
* jkb 16/05/00 comment below
*
* On windows "prog < file.abi" will work wrongly (compared to
* "prog file.abi") because windows is rather stupid. It treats ascii
* and binary streams differently, it considers stdin to be ascii unless
* told otherwise, and it can only be told otherwise by using non-ansi
* windows-specific function calls.
*/
if (format != TT_EXP && format != TT_PLN && fp->fp)
_setmode(_fileno(fp->fp), _O_BINARY);
#endif
if (format == TT_ANY) {
format = fdetermine_trace_type(fp);
mrewind(fp);
}
switch (format) {
case TT_UNK:
case TT_ERR:
errout("File '%s' has unknown trace type\n", fn);
read = NULLRead;
break;
#ifdef IOLIB_SCF
case TT_SCF: {
Scf *scf;
scf = mfread_scf(fp);
if (scf) {
read = scf2read(scf);
scf_deallocate(scf);
} else
read = NULLRead;
break;
}
#endif
#ifdef IOLIB_CTF
case TT_CTF:
read = mfread_ctf(fp);
break;
#endif
#ifdef IOLIB_ZTR
case TT_ZTR:
case TT_ZTR1:
case TT_ZTR2:
case TT_ZTR3: {
ztr_t *ztr;
if ((ztr = mfread_ztr(fp))) {
uncompress_ztr(ztr);
read = ztr2read(ztr);
delete_ztr(ztr);
} else {
read = NULLRead;
}
break;
}
#endif
#ifdef IOLIB_ABI
case TT_ABI:
read = mfread_abi(fp);
break;
#endif
#ifdef IOLIB_ALF
case TT_ALF:
read = mfread_alf(fp);
break;
#endif
#ifdef IOLIB_EXP
case TT_EXP: {
/* FIXME: we shouldn't redirect like this */
Exp_info *e = exp_mfread_info(fp);
read = e ? exp2read(e,fn) : NULLRead;
break;
}
#endif
#ifdef IOLIB_PLN
case TT_PLN:
read = mfread_pln(fp);
break;
#endif
default:
errout("Unknown format %d specified to read_reading()\n", format);
read = NULLRead;
}
if (read != NULLRead && (read->trace_name = (char *)xmalloc(strlen(fn)+1)))
strcpy(read->trace_name, fn);
if (newfp) mfclose(newfp);
return read;
}
