95 lines
2.6 KiB
C
95 lines
2.6 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2003, 2010 Fidelity Information Services, Inc *
|
|
* *
|
|
* This source code contains the intellectual property *
|
|
* of its copyright holder(s), and is made available *
|
|
* under a license. If you do not know the terms of *
|
|
* the license, please stop and do not read further. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
#include "mdef.h"
|
|
|
|
#include "gtm_string.h"
|
|
#include "gtm_stdio.h"
|
|
|
|
#include "gdsroot.h"
|
|
#include "gdsbt.h"
|
|
#include "gtm_facility.h"
|
|
#include "fileinfo.h"
|
|
#include "gdsfhead.h"
|
|
#include "filestruct.h"
|
|
#include "buddy_list.h"
|
|
#include "jnl.h"
|
|
#include "hashtab_int4.h" /* needed for muprec.h */
|
|
#include "hashtab_int8.h" /* needed for muprec.h */
|
|
#include "hashtab_mname.h" /* needed for muprec.h */
|
|
#include "muprec.h"
|
|
|
|
#ifdef UNIX
|
|
# include "gtmio.h"
|
|
# include "io.h"
|
|
# include "io_params.h"
|
|
# include "op.h"
|
|
# include "iosp.h"
|
|
# include "gtmmsg.h"
|
|
# include "gtm_rename.h"
|
|
|
|
# define MUR_CLOSE_FILE(file_info) \
|
|
{ \
|
|
mval val, pars; \
|
|
unsigned char no_param; \
|
|
\
|
|
no_param = (unsigned char)iop_eol; \
|
|
pars.mvtype = MV_STR; \
|
|
pars.str.len = SIZEOF(no_param); \
|
|
pars.str.addr = (char *)&no_param; \
|
|
val.mvtype = MV_STR; \
|
|
\
|
|
val.str.len = ((unix_file_info *)file_info)->fn_len; \
|
|
val.str.addr = (char *) (((unix_file_info *)(file_info))->fn); \
|
|
op_close(&val, &pars); \
|
|
}
|
|
#elif defined(VMS)
|
|
# define MUR_CLOSE_FILE(file_info) \
|
|
{ \
|
|
assert(NULL != file_info); \
|
|
sys$close(((vms_file_info*)(file_info))->fab); \
|
|
}
|
|
#endif
|
|
|
|
GBLREF mur_gbls_t murgbl;
|
|
GBLREF mur_opt_struct mur_options;
|
|
|
|
void mur_close_file_extfmt()
|
|
{
|
|
int recstat;
|
|
fi_type *file_info;
|
|
static readonly char *ext_file_type[] = {STR_JNLEXTR, STR_BRKNEXTR, STR_LOSTEXTR};
|
|
|
|
error_def(ERR_FILENOTCREATE);
|
|
|
|
assert(0 == GOOD_TN);
|
|
assert(1 == BROKEN_TN);
|
|
assert(2 == LOST_TN);
|
|
for (recstat = 0; recstat < TOT_EXTR_TYPES; recstat++)
|
|
{
|
|
if (NULL != murgbl.file_info[recstat])
|
|
{
|
|
assert(mur_options.extr_fn_len[recstat]);
|
|
MUR_CLOSE_FILE(murgbl.file_info[recstat]);
|
|
free(murgbl.file_info[recstat]);
|
|
murgbl.file_info[recstat] = NULL;
|
|
} else if (0 != mur_options.extr_fn_len[recstat])
|
|
gtm_putmsg(VARLSTCNT(6) ERR_FILENOTCREATE, 4, LEN_AND_STR(ext_file_type[recstat]),
|
|
mur_options.extr_fn_len[recstat], mur_options.extr_fn[recstat]);
|
|
if (0 != mur_options.extr_fn_len[recstat])
|
|
{
|
|
free(mur_options.extr_fn[recstat]);
|
|
mur_options.extr_fn[recstat] = NULL;
|
|
mur_options.extr_fn_len[recstat] = 0;
|
|
}
|
|
}
|
|
}
|