2003-01-07 12:22:12 +08:00
|
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
|
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
|
|
|
* All rights reserved. *
|
|
|
|
|
* *
|
|
|
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
|
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
|
|
|
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
|
|
|
|
* of the source code distribution tree; Copyright.html can be found at the *
|
|
|
|
|
* root level of an installed copy of the electronic HDF5 document set and *
|
|
|
|
|
* is linked from the top-level documents page. It can also be found at *
|
|
|
|
|
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
|
|
|
|
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
|
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
2001-03-06 07:09:59 +08:00
|
|
|
|
|
2003-01-07 12:22:12 +08:00
|
|
|
|
/*****************************************************************************
|
|
|
|
|
FILE
|
|
|
|
|
tfile.cpp - HDF5 C++ testing the file I/O features
|
|
|
|
|
|
|
|
|
|
EXTERNAL ROUTINES/VARIABLES:
|
|
|
|
|
These routines are in the test directory of the C library:
|
|
|
|
|
h5_reset() -- in h5test.c, resets the library by closing it
|
|
|
|
|
h5_fileaccess() -- in h5test.c, returns a file access template
|
|
|
|
|
h5_fixname() -- in h5test.c, create a file name from a file base name
|
|
|
|
|
h5_cleanup() -- in h5test.c, cleanup temporary test files
|
|
|
|
|
|
|
|
|
|
***************************************************************************/
|
2001-03-06 07:09:59 +08:00
|
|
|
|
|
2003-03-18 00:41:02 +08:00
|
|
|
|
#ifdef OLD_HEADER_FILENAME
|
|
|
|
|
#include <iostream.h>
|
|
|
|
|
#else
|
2001-03-10 06:15:28 +08:00
|
|
|
|
#include <iostream>
|
2003-03-18 00:41:02 +08:00
|
|
|
|
#endif
|
|
|
|
|
|
2001-03-06 07:09:59 +08:00
|
|
|
|
#include "H5Cpp.h"
|
2001-03-10 06:15:28 +08:00
|
|
|
|
#include "testhdf5.h"
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
#ifndef H5_NO_NAMESPACE
|
|
|
|
|
using namespace H5;
|
2001-03-14 21:27:13 +08:00
|
|
|
|
#endif
|
2001-03-06 07:09:59 +08:00
|
|
|
|
|
|
|
|
|
#define F1_USERBLOCK_SIZE (hsize_t)0
|
|
|
|
|
#define F1_OFFSET_SIZE sizeof(haddr_t)
|
|
|
|
|
#define F1_LENGTH_SIZE sizeof(hsize_t)
|
|
|
|
|
#define F1_SYM_LEAF_K 4
|
|
|
|
|
#define F1_SYM_INTERN_K 16
|
|
|
|
|
#define FILE1 "tfile1.h5"
|
|
|
|
|
|
|
|
|
|
#define F2_USERBLOCK_SIZE (hsize_t)512
|
|
|
|
|
#define F2_OFFSET_SIZE 8
|
|
|
|
|
#define F2_LENGTH_SIZE 8
|
|
|
|
|
#define F2_SYM_LEAF_K 8
|
|
|
|
|
#define F2_SYM_INTERN_K 32
|
|
|
|
|
#define FILE2 "tfile2.h5"
|
|
|
|
|
|
|
|
|
|
#define F3_USERBLOCK_SIZE (hsize_t)0
|
|
|
|
|
#define F3_OFFSET_SIZE F2_OFFSET_SIZE
|
|
|
|
|
#define F3_LENGTH_SIZE F2_LENGTH_SIZE
|
|
|
|
|
#define F3_SYM_LEAF_K F2_SYM_LEAF_K
|
|
|
|
|
#define F3_SYM_INTERN_K F2_SYM_INTERN_K
|
|
|
|
|
#define FILE3 "tfile3.h5"
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
2004-06-25 06:19:57 +08:00
|
|
|
|
#define KB 1024
|
|
|
|
|
#define FILE4 "tfile4.h5"
|
|
|
|
|
|
2004-06-30 21:45:07 +08:00
|
|
|
|
#define FILE5 "tfile5.h5"
|
|
|
|
|
#define NAME_LEN 64
|
|
|
|
|
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_file_create
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Test file and template creations
|
|
|
|
|
*
|
|
|
|
|
* Return: None
|
|
|
|
|
*
|
2001-03-14 21:27:13 +08:00
|
|
|
|
* Programmer: Binh-Minh Ribler (use C version)
|
2001-03-02 02:07:25 +08:00
|
|
|
|
* January, 2001
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
test_file_create(void)
|
|
|
|
|
{
|
|
|
|
|
/* Output message about test being performed */
|
2003-06-10 12:03:58 +08:00
|
|
|
|
MESSAGE(5, ("Testing File Creation I/O\n"));
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
/* Test create with various sequences of H5F_ACC_EXCL and */
|
|
|
|
|
/* H5F_ACC_TRUNC flags */
|
|
|
|
|
|
|
|
|
|
/* Create with H5F_ACC_EXCL */
|
|
|
|
|
/* First ensure the file does not exist */
|
2001-03-10 06:15:28 +08:00
|
|
|
|
remove(FILE1);
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
try {
|
|
|
|
|
H5File* fid1 = new H5File (FILE1, H5F_ACC_EXCL);
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* try to create the same file with H5F_ACC_TRUNC. This should fail
|
|
|
|
|
* because fid1 is the same file and is currently open.
|
|
|
|
|
*/
|
2001-03-14 21:27:13 +08:00
|
|
|
|
try {
|
|
|
|
|
H5File fid2 (FILE1, H5F_ACC_TRUNC); // should throw E
|
|
|
|
|
|
|
|
|
|
// Should FAIL but didn't - BMR (Note 1): a macro, with a diff
|
|
|
|
|
// name, that skips the comparison b/w the 1st & 2nd args would
|
|
|
|
|
// be more appropriate, but VERIFY can be used for now - Mar 13, 01
|
|
|
|
|
// also, more text about what is testing would be better.
|
|
|
|
|
VERIFY(fid2.getId(), FAIL, "H5File constructor");
|
|
|
|
|
}
|
|
|
|
|
catch( FileIException E ) {} // do nothing, FAIL expected
|
|
|
|
|
|
2001-03-02 02:07:25 +08:00
|
|
|
|
// Close file fid1
|
|
|
|
|
delete fid1;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Try again with H5F_ACC_EXCL. This should fail because the file already
|
|
|
|
|
* exists from the previous steps.
|
|
|
|
|
*/
|
2001-03-14 21:27:13 +08:00
|
|
|
|
try {
|
|
|
|
|
fid1 = new H5File( FILE1, H5F_ACC_EXCL ); // should throw E
|
|
|
|
|
VERIFY(fid1->getId(), FAIL, "H5File constructor");
|
|
|
|
|
}
|
|
|
|
|
catch( FileIException E ) {} // do nothing, FAIL expected
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
// Test create with H5F_ACC_TRUNC. This will truncate the existing file.
|
|
|
|
|
fid1 = new H5File (FILE1, H5F_ACC_TRUNC);
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Try to truncate first file again. This should fail because fid1 is the
|
|
|
|
|
* same file and is currently open.
|
|
|
|
|
*/
|
2001-03-14 21:27:13 +08:00
|
|
|
|
try {
|
|
|
|
|
H5File fid2 (FILE1, H5F_ACC_TRUNC); // should throw E
|
|
|
|
|
VERIFY(fid2.getId(), FAIL, "H5File constructor");
|
|
|
|
|
}
|
|
|
|
|
catch( FileIException E ) {} // do nothing, FAIL expected
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Try with H5F_ACC_EXCL. This should fail too because the file already
|
|
|
|
|
* exists.
|
|
|
|
|
*/
|
2001-03-14 21:27:13 +08:00
|
|
|
|
try {
|
|
|
|
|
H5File fid3 (FILE1, H5F_ACC_EXCL); // should throw E
|
|
|
|
|
VERIFY(fid3.getId(), FAIL, "H5File constructor");
|
|
|
|
|
}
|
|
|
|
|
catch( FileIException E ) {} // do nothing, FAIL expected
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
/* Get the file-creation template */
|
|
|
|
|
FileCreatPropList tmpl1 = fid1->getCreatePlist();
|
|
|
|
|
|
|
|
|
|
hsize_t ublock = tmpl1.getUserblock();
|
2001-03-14 21:27:13 +08:00
|
|
|
|
VERIFY(ublock, F1_USERBLOCK_SIZE, "FileCreatPropList::getUserblock");
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
size_t parm1, parm2; /*file-creation parameters */
|
|
|
|
|
tmpl1.getSizes( parm1, parm2);
|
|
|
|
|
VERIFY(parm1, F1_OFFSET_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
VERIFY(parm2, F1_LENGTH_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
|
2003-07-11 03:39:04 +08:00
|
|
|
|
unsigned iparm1,iparm2; /*file-creation parameters */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
tmpl1.getSymk( iparm1, iparm2);
|
|
|
|
|
VERIFY(iparm1, F1_SYM_INTERN_K, "FileCreatPropList::getSymk");
|
|
|
|
|
VERIFY(iparm2, F1_SYM_LEAF_K, "FileCreatPropList::getSymk");
|
|
|
|
|
|
|
|
|
|
// tmpl1 is automatically closed; if error occurs, it'll be
|
|
|
|
|
// caught in the catch block
|
|
|
|
|
|
|
|
|
|
/* Close first file */
|
|
|
|
|
delete fid1;
|
|
|
|
|
}
|
2001-03-14 21:27:13 +08:00
|
|
|
|
catch( PropListIException E ) {
|
|
|
|
|
CHECK(FAIL, FAIL, E.getCFuncName());
|
2001-03-02 02:07:25 +08:00
|
|
|
|
}
|
2001-03-14 21:27:13 +08:00
|
|
|
|
catch( FileIException E ) {
|
|
|
|
|
CHECK(FAIL, FAIL, E.getCFuncName());
|
2001-03-02 02:07:25 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
/* Create a new file with a non-standard file-creation template */
|
|
|
|
|
FileCreatPropList* tmpl1 = new FileCreatPropList;
|
|
|
|
|
|
|
|
|
|
/* Set the new file-creation parameters */
|
|
|
|
|
tmpl1->setUserblock (F2_USERBLOCK_SIZE);
|
|
|
|
|
tmpl1->setSizes( F2_OFFSET_SIZE, F2_LENGTH_SIZE );
|
|
|
|
|
tmpl1->setSymk( F2_SYM_INTERN_K, F2_SYM_LEAF_K );
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Try to create second file, with non-standard file-creation template
|
|
|
|
|
* params.
|
|
|
|
|
*/
|
|
|
|
|
H5File fid2( FILE2, H5F_ACC_TRUNC, *tmpl1 );
|
|
|
|
|
|
|
|
|
|
/* Release file-creation template */
|
|
|
|
|
delete tmpl1;
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation template */
|
|
|
|
|
tmpl1 = new FileCreatPropList (fid2.getCreatePlist());
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation parameters */
|
|
|
|
|
hsize_t ublock = tmpl1->getUserblock();
|
|
|
|
|
VERIFY(ublock, F2_USERBLOCK_SIZE, "FileCreatPropList::getUserblock");
|
|
|
|
|
|
|
|
|
|
size_t parm1, parm2; /*file-creation parameters */
|
|
|
|
|
tmpl1->getSizes( parm1, parm2);
|
|
|
|
|
VERIFY(parm1, F2_OFFSET_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
VERIFY(parm2, F2_LENGTH_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
|
2003-07-11 03:39:04 +08:00
|
|
|
|
unsigned iparm1,iparm2; /*file-creation parameters */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
tmpl1->getSymk( iparm1, iparm2);
|
|
|
|
|
VERIFY(iparm1, F2_SYM_INTERN_K, "FileCreatPropList::getSymk");
|
|
|
|
|
VERIFY(iparm2, F2_SYM_LEAF_K, "FileCreatPropList::getSymk");
|
|
|
|
|
|
|
|
|
|
/* Clone the file-creation template */
|
|
|
|
|
FileCreatPropList tmpl2;
|
|
|
|
|
tmpl2.copy (*tmpl1);
|
|
|
|
|
|
|
|
|
|
/* Dynamically release file-creation template */
|
|
|
|
|
delete tmpl1;
|
|
|
|
|
|
|
|
|
|
/* Set the new file-creation parameter */
|
|
|
|
|
tmpl2.setUserblock( F3_USERBLOCK_SIZE );
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Try to create second file, with non-standard file-creation template
|
|
|
|
|
* params
|
|
|
|
|
*/
|
|
|
|
|
H5File fid3( FILE3, H5F_ACC_TRUNC, tmpl2 );
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation template */
|
|
|
|
|
tmpl1 = new FileCreatPropList (fid3.getCreatePlist());
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation parameters */
|
|
|
|
|
ublock = tmpl1->getUserblock();
|
|
|
|
|
VERIFY(ublock, F3_USERBLOCK_SIZE, "FileCreatPropList::getUserblock");
|
|
|
|
|
|
|
|
|
|
tmpl1->getSizes( parm1, parm2);
|
|
|
|
|
VERIFY(parm1, F3_OFFSET_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
VERIFY(parm2, F3_LENGTH_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
|
|
|
|
|
tmpl1->getSymk( iparm1, iparm2);
|
|
|
|
|
VERIFY(iparm1, F3_SYM_INTERN_K, "FileCreatPropList::getSymk");
|
|
|
|
|
VERIFY(iparm2, F3_SYM_LEAF_K, "FileCreatPropList::getSymk");
|
|
|
|
|
|
|
|
|
|
/* Dynamically release file-creation template */
|
|
|
|
|
delete tmpl1;
|
|
|
|
|
}
|
2001-03-14 21:27:13 +08:00
|
|
|
|
catch( PropListIException E ) {
|
|
|
|
|
CHECK(FAIL, FAIL, E.getCFuncName());
|
2001-03-02 02:07:25 +08:00
|
|
|
|
}
|
2001-03-06 07:09:59 +08:00
|
|
|
|
} /* test_file_create() */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_file_open
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Test file accesses
|
|
|
|
|
*
|
|
|
|
|
* Return: None
|
|
|
|
|
*
|
2001-03-14 21:27:13 +08:00
|
|
|
|
* Programmer: Binh-Minh Ribler (use C version)
|
2001-03-02 02:07:25 +08:00
|
|
|
|
* January, 2001
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
test_file_open(void)
|
|
|
|
|
{
|
|
|
|
|
/* Output message about test being performed */
|
2003-06-10 12:03:58 +08:00
|
|
|
|
MESSAGE(5, ("Testing File Opening I/O\n"));
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
try {
|
|
|
|
|
|
|
|
|
|
/* Open first file */
|
|
|
|
|
H5File fid1 (FILE2, H5F_ACC_RDWR );
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation template */
|
|
|
|
|
FileCreatPropList tmpl1 = fid1.getCreatePlist();
|
|
|
|
|
|
|
|
|
|
/* Get the file-creation parameters */
|
|
|
|
|
hsize_t ublock = tmpl1.getUserblock();
|
|
|
|
|
VERIFY(ublock, F2_USERBLOCK_SIZE, "FileCreatPropList::getUserblock");
|
|
|
|
|
|
|
|
|
|
size_t parm1, parm2; /*file-creation parameters */
|
|
|
|
|
tmpl1.getSizes( parm1, parm2);
|
|
|
|
|
VERIFY(parm1, F2_OFFSET_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
VERIFY(parm2, F2_LENGTH_SIZE, "FileCreatPropList::getSizes");
|
|
|
|
|
|
2003-07-11 03:39:04 +08:00
|
|
|
|
unsigned iparm1,iparm2; /*file-creation parameters */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
tmpl1.getSymk( iparm1, iparm2);
|
|
|
|
|
VERIFY(iparm1, F2_SYM_INTERN_K, "FileCreatPropList::getSymk");
|
|
|
|
|
VERIFY(iparm2, F2_SYM_LEAF_K, "FileCreatPropList::getSymk");
|
|
|
|
|
} // end of try block
|
|
|
|
|
|
2001-03-14 21:27:13 +08:00
|
|
|
|
catch( Exception E ) {
|
|
|
|
|
CHECK(FAIL, FAIL, E.getCFuncName());
|
2001-03-02 02:07:25 +08:00
|
|
|
|
}
|
2001-03-06 07:09:59 +08:00
|
|
|
|
} /* test_file_open() */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
2004-06-25 06:19:57 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_file_size
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Test file size.
|
|
|
|
|
*
|
|
|
|
|
* Return: None
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Raymond Lu
|
|
|
|
|
* June, 2004
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
test_file_size(void)
|
|
|
|
|
{
|
|
|
|
|
/* Output message about test being performed */
|
|
|
|
|
MESSAGE(5, ("Testing File Size\n"));
|
|
|
|
|
|
|
|
|
|
hid_t fapl_id;
|
|
|
|
|
fapl_id = h5_fileaccess(); // in h5test.c, returns a file access template
|
|
|
|
|
|
|
|
|
|
try {
|
|
|
|
|
// Use the file access template id to create a file access prop.
|
|
|
|
|
// list object to pass in H5File::H5File
|
|
|
|
|
FileAccPropList fapl(fapl_id);
|
|
|
|
|
|
|
|
|
|
// Set to sec2 driver. Do we want to test other file drivers.
|
|
|
|
|
// They're not tested in C++.
|
|
|
|
|
fapl.setSec2();
|
|
|
|
|
|
|
|
|
|
// Create a file
|
|
|
|
|
H5File fid( FILE4, H5F_ACC_TRUNC, FileCreatPropList::DEFAULT, fapl);
|
|
|
|
|
|
|
|
|
|
// Get file size
|
2004-07-09 10:46:44 +08:00
|
|
|
|
hsize_t file_size = fid.getFileSize();
|
2004-06-25 06:19:57 +08:00
|
|
|
|
|
|
|
|
|
// Check if file size is reasonable. It's supposed to be 2KB now.
|
|
|
|
|
if(file_size<1*KB || file_size>4*KB)
|
|
|
|
|
CHECK(FAIL, FAIL, "H5File::getFileSize");
|
|
|
|
|
} // end of try block
|
|
|
|
|
|
|
|
|
|
catch( Exception E ) {
|
|
|
|
|
CHECK(FAIL, FAIL, E.getCFuncName());
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// use C test utility routine to close property list.
|
|
|
|
|
H5Pclose(fapl_id);
|
|
|
|
|
|
|
|
|
|
} /* test_file_size() */
|
|
|
|
|
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_file
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Main program
|
|
|
|
|
*
|
|
|
|
|
* Return: None
|
|
|
|
|
*
|
2001-03-14 21:27:13 +08:00
|
|
|
|
* Programmer: Binh-Minh Ribler (use C version)
|
2001-03-06 07:09:59 +08:00
|
|
|
|
* January 2001
|
2001-03-02 02:07:25 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
test_file(void)
|
|
|
|
|
{
|
|
|
|
|
/* Output message about test being performed */
|
2003-06-10 12:03:58 +08:00
|
|
|
|
MESSAGE(5, ("Testing File I/O operations\n"));
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
test_file_create(); /* Test file creation (also creation templates) */
|
|
|
|
|
test_file_open(); /* Test file opening */
|
2004-06-25 06:19:57 +08:00
|
|
|
|
test_file_size(); /* Test file size */
|
2001-03-06 07:09:59 +08:00
|
|
|
|
} /* test_file() */
|
2001-03-02 02:07:25 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: cleanup_file
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Cleanup temporary test files
|
|
|
|
|
*
|
|
|
|
|
* Return: none
|
|
|
|
|
*
|
2001-03-14 21:27:13 +08:00
|
|
|
|
* Programmer: (use C version)
|
2001-03-02 02:07:25 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
void
|
|
|
|
|
cleanup_file(void)
|
|
|
|
|
{
|
|
|
|
|
remove(FILE1);
|
|
|
|
|
remove(FILE2);
|
|
|
|
|
remove(FILE3);
|
2004-06-25 06:19:57 +08:00
|
|
|
|
remove(FILE4);
|
2001-03-06 07:09:59 +08:00
|
|
|
|
} /* cleanup_file */
|