mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity
cf4ff99bdf
hdf5/tools/h4toh5vgroup.c
MuQun Yang 7332a1934e [svn-r3193] 
Purpose:
     bug fix
Description:
    Zeroing out all memory buffer before it is being used.

Solution:
    using h4toh5ZeroMemory function
Platforms tested:
    linux(eirene), arabica(sun 2.7)
2000-12-22 14:03:00 -05:00

813 lines
22 KiB
C
Raw Blame History

/*-------------------------------------------------------------------------
*
* Copyright (C) 2000 National Center for Supercomputing Applications.
* All rights reserved.
*
*-------------------------------------------------------------------------
*/
/******************************************************************************
Description:
1. converter
See HDF4 to HDF5 mapping specification at
(http://hdf.ncsa.uiuc.edu/HDF5/papers/h4toh5) for the default mapping
from HDF4 object to HDF5 object.
The whole converter includes 10 files, h4toh5util.h, h4toh5main.h, h4toh5util.c, h4toh5main.c, h4toh5sds.c, h4toh5image.c,h4toh5vdata.c,h4toh5vgroup.c,h4toh5pal.c and h4toh5anno.c.
2. this file
converting an hdf4 vgroup object into a hdf5 group.
Author: Kent Yang(ymuqun@ncsa.uiuc.edu)
*****************************************************************************/
#include "h4toh5main.h"
/*-------------------------------------------------------------------------
* Function: Vgroup_h4_to_h5
*
* Purpose: translate different Vgroup objects: vgroup,vdata,sds,image
into hdf5 datasets and recursively call the routine
*
* Return: FAIL if failed, SUCCEED if successful.
*
* In :
file_id: hdf4 file identifier
vgroup_id: hdf4 vgroup id
sd_id: sd interface id
h5_group: hdf5 group id
h5_dimgroup: hdf5 dimensional scale group id
h5_palgroup: hdf5 palette group id
Out:
Modification:
*-------------------------------------------------------------------------
*/
int Vgroup_h4_to_h5(int32 file_id,int32 vgroup_id,int32 sd_id,hid_t h5_group,hid_t h5_dimgroup,hid_t h5_palgroup)
{
int32 vgroup_tag;
int32 vgroup_ref;
int32 obj_tag;
int32 obj_ref;
int32 num_gobjects;
int i;
char refstr[MAXREF_LENGTH];
char vgroup_class[VGNAMELENMAX];
char vgroup_name[VGNAMELENMAX];
char* h5pgroup_name;
int check_vgname;
hid_t h5_pgroup;
/*zeroing out memory for vgroup_class and vgroup_name */
h4toh5_ZeroMemory(vgroup_class,VGNAMELENMAX);
h4toh5_ZeroMemory(vgroup_name,VGNAMELENMAX);
vgroup_tag = VQuerytag(vgroup_id);
if(vgroup_tag == FAIL) {
printf("error in obtaining vgroup tag.\n");
return FAIL;
}
vgroup_ref = VQueryref(vgroup_id);
if(vgroup_ref == FAIL) {
printf("error in obtaining vgroup reference.\n");
return FAIL;
}
if(Vgetname(vgroup_id,vgroup_name) == FAIL) {
printf("error in obtaining vgroup name.\n");
return FAIL;
}
if(Vgetclass(vgroup_id,vgroup_class) == FAIL) {
printf("error in obtaining vgroup class name. \n");
return FAIL;
}
/*** ignore reserved HDF group ***/
if(vgroup_class != NULL) {
if(strcmp(vgroup_class,_HDF_ATTRIBUTE)==0) return SUCCEED;
if(strcmp(vgroup_class,_HDF_VARIABLE)==0) return SUCCEED;
if(strcmp(vgroup_class,_HDF_DIMENSION)==0) return SUCCEED;
if(strcmp(vgroup_class,_HDF_UDIMENSION)==0) return SUCCEED;
if(strcmp(vgroup_class,_HDF_CDF)==0) return SUCCEED;
if(strcmp(vgroup_class,GR_NAME)==0) return SUCCEED;
if(strcmp(vgroup_class,RI_NAME)==0) return SUCCEED;
}
if(vgroup_name != NULL)
if(strcmp(vgroup_name,GR_NAME)==0) return SUCCEED;
h5pgroup_name = get_name(vgroup_ref,estnum_vg,vg_hashtab,&check_vgname);
if(h5pgroup_name == NULL && check_vgname == 0 ) {
printf("error,cannot find group\n");
return FAIL;
}
if(h5pgroup_name == NULL && check_vgname ==-1 ) {
printf("error,group name is not defined.\n");
return FAIL;
}
/* create a hdf5 group under h5_group.*/
h5_pgroup = H5Gcreate(h5_group,h5pgroup_name,0);
if(h5_pgroup < 0) {
printf("error in creating group. \n");
free(h5pgroup_name);
return FAIL;
}
/* vgroup attributes into corresponding hdf5 group attributes.*/
if(vg_transattrs(vgroup_id,h5_pgroup)==FAIL) {
printf("error in translating vgroup attributes into hdf5 group attr.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
num_gobjects = Vntagrefs(vgroup_id);
if(num_gobjects == FAIL) {
printf("error in obtaining number of objects in the vgroup. \n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
if(Annoobj_h4_to_h5(file_id,vgroup_ref,vgroup_tag,h5_pgroup)==FAIL) {
printf("error in obtaining annotation of the vgroup.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
for( i = 0;i<num_gobjects;i++) {
if(Vgettagref(vgroup_id,i,&obj_tag,&obj_ref)==FAIL) {
printf("failed to get object tag and ref of the current");
printf(" object in this vgroup.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
if(conv_int_str(obj_ref,refstr)== FAIL) {
printf("failed to convert object reference number ");
printf("into string format at vgroup_h4_to_h5 routine.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
if (Visvg(vgroup_id,obj_ref)) {
if(convert_vgroup(file_id,sd_id,obj_ref,h5pgroup_name,h5_pgroup,
h5_dimgroup,h5_palgroup)== FAIL) {
printf("convert_vgroup routine failed,");
printf("cannot convert vgroup into hdf5 group successfully.\n");
free(h5pgroup_name);
H5Gclose(h5_pgroup);
return FAIL;
}
}
/* the object is independent vdata. */
else if(Visvs(vgroup_id,obj_ref)) {
if(convert_vdata(file_id,obj_ref,h5pgroup_name,h5_pgroup)==FAIL){
printf("fail to convert vdata into hdf5 dataset.\n");
free(h5pgroup_name);
H5Gclose(h5_pgroup);
return FAIL;
}
}
else if(obj_tag == DFTAG_NDG || obj_tag == DFTAG_SDG) {
if(convert_sds(file_id,sd_id,obj_ref,h5pgroup_name,h5_pgroup,
h5_dimgroup)==FAIL){
printf("fail to convert sds into hdf5 dataset.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
}
else if(obj_tag == DFTAG_RIG) {
if(convert_image(file_id,obj_ref,h5pgroup_name,
h5_pgroup,h5_palgroup)==FAIL){
printf("fail to convert image into hdf5 dataset.\n");
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return FAIL;
}
}
}
H5Gclose(h5_pgroup);
free(h5pgroup_name);
return SUCCEED;
}
/*-------------------------------------------------------------------------
* Function: convert_vgroup
*
* Purpose: subroutine interface for better modularity of vgroup_h4_to_h5
* In this routine, 1) h5 vgroup name is obtained;
2) vgroup_h4_to_h5 is called again for
unvisited vgroups
3) HardLink is created for visited vgroups
* Return: FAIL if failed, SUCCEED if successful.
*
* In :
file_id: hdf4 file identifier
sd_id: sd interface id
obj_ref: object reference number
h5pgroup_name: h5 group name
h5_pgroup: hdf5 group id
h5_dimgroup: hdf5 dimensional scale group id
h5_palgroup: hdf5 palette group id
*-------------------------------------------------------------------------
*/
int convert_vgroup(int32 file_id,int32 sd_id, int32 obj_ref,
char* h5pgroup_name,hid_t h5_pgroup,hid_t h5_dimgroup,
hid_t h5_palgroup) {
int32 vgroup_cid;
int32 istat;
int check_vgname;
char refstr[MAXREF_LENGTH];
char cvgroup_name[VGNAMELENMAX];
char* cor_cvgroupname;
char* h5cgroup_name;
char* h5lgroup_name;
int check_vgroup;
if(conv_int_str(obj_ref,refstr)== FAIL) {
printf("converting integer into string format.\n");
return FAIL;
}
vgroup_cid = Vattach(file_id,obj_ref,"r");
if(vgroup_cid == FAIL) {
printf("error in getting vgroup id.\n");
return FAIL;
}
/* recursively obtain information from the group*/
/* check whether it is looked up, if yes, create a hard link.*/
istat = Vgetname(vgroup_cid,cvgroup_name);
if(istat == FAIL) {
printf("failed to get the name of vgroup.\n");
Vdetach(vgroup_cid);
return FAIL;
}
/* look up vg hashtable and see whether this object is touched.*/
check_vgroup = lookup(obj_ref,estnum_vg,vg_hashtab);
/* if this vgroup has not been touched, convert it into hdf5 group.
else create a hard link to the existing group.*/
cor_cvgroupname = correct_name(cvgroup_name);
if(cor_cvgroupname == NULL) {
printf("error in generating corrected vgroup name. \n");
Vdetach(vgroup_cid);
return FAIL;
}
if(check_vgroup == 0) {
/* checking whether vgroup name contains ORI_SLASH, changing into CHA_SLASH.*/
h5cgroup_name = get_obj_aboname(cor_cvgroupname,refstr,h5pgroup_name,
HDF4_VGROUP);
if(h5cgroup_name == NULL) {
printf("error in getting the group name.\n");
Vdetach(vgroup_cid);
free(cor_cvgroupname);
return FAIL;
}
free(cor_cvgroupname);
if(set_name(obj_ref,estnum_vg,vg_hashtab,h5cgroup_name)== FAIL) {
printf("error in setting group name.\n");
Vdetach(vgroup_cid);
free(h5cgroup_name);
return FAIL;
}
if(Vgroup_h4_to_h5(file_id,vgroup_cid,sd_id,h5_pgroup,
h5_dimgroup,h5_palgroup)== FAIL) {
printf("error in transferring vgroup into hdf5 group.\n");
Vdetach(vgroup_cid);
free(h5cgroup_name);
return FAIL;
}
free(h5cgroup_name);
}
else {
h5cgroup_name = get_name(obj_ref,estnum_vg,vg_hashtab,&check_vgname);
if(h5cgroup_name == NULL && check_vgname ==0 ) {
printf("error,cannot find group\n");
Vdetach(vgroup_cid);
return FAIL;
}
if(h5cgroup_name == NULL && check_vgname == -1 ) {
printf("error,group name is not defined.\n");
Vdetach(vgroup_cid);
return FAIL;
}
/* create HL */
h5lgroup_name = get_obj_aboname(cor_cvgroupname,refstr,h5pgroup_name,
HDF4_VGROUP);
if(h5lgroup_name == NULL) {
printf("failed to obtain group name.\n");
Vdetach(vgroup_cid);
free(h5cgroup_name);
free(cor_cvgroupname);
return FAIL;
}
free(cor_cvgroupname);
if(H5Glink(h5_pgroup,H5G_LINK_HARD,h5cgroup_name,h5lgroup_name)<0) {
printf("cannot make hard link for two groups.\n");
Vdetach(vgroup_cid);
free(h5cgroup_name);
free(h5lgroup_name);
return FAIL;
}
free(h5cgroup_name);
free(h5lgroup_name);
}
Vdetach(vgroup_cid);
return SUCCEED;
}
/*-------------------------------------------------------------------------
* Function: convert_vdata
*
* Purpose: subroutine interface for better modularity of vgroup_h4_to_h5
* In this routine, 1) h5 vdata name is obtained;
2) vdata_h4_to_h5 is called for unvisited
vdatas
3) HardLink is created for visited vdatas
* Return: FAIL if failed, SUCCEED if successful.
*
* In :
file_id: hdf4 file identifier
obj_ref: object reference number
h5pgroup_name: h5 group name
h5_pgroup: hdf5 group id
*-------------------------------------------------------------------------
*/
int convert_vdata(int32 file_id,int32 obj_ref,char * h5pgroup_name,
hid_t h5_pgroup) {
int32 vdata_id;
int check_vdata;
int check_vdname;
int32 istat;
char refstr[MAXREF_LENGTH];
char cvdata_name[VGNAMELENMAX];
char* cor_cvdataname;
char* h5cvdata_name;
char* h5lvdata_name;
vdata_id = VSattach(file_id,obj_ref,"r");
if(vdata_id == FAIL) {
printf("error in attaching vdata. \n");
return FAIL;
}
if(conv_int_str(obj_ref,refstr)== FAIL) {
printf("converting integer into string format.\n");
VSdetach(vdata_id);
return FAIL;
}
istat = VSisattr(vdata_id);
if (istat == FAIL) {
printf("error in checking vdata attribute. \n");
VSdetach(vdata_id);
return FAIL;
}
if(istat); /*ignore, dependent vdata(attributes, etc.)can be retrieved later.*/
else { /* independent vdata, read in */
check_vdata = lookup(obj_ref,estnum_vd,vd_hashtab);
if(check_vdata < 0) {
printf("failed to look up the object.\n");
VSdetach(vdata_id);
return FAIL;
}
if(VSQueryname(vdata_id,cvdata_name)==FAIL) {
printf("error in querying name. \n");
VSdetach(vdata_id);
return FAIL;
}
cor_cvdataname = correct_name(cvdata_name);
if(cor_cvdataname == NULL) {
printf("error in generating corrected vdata name. \n");
VSdetach(vdata_id);
return FAIL;
}
if(check_vdata ==0) {
h5cvdata_name = get_obj_aboname(cor_cvdataname,refstr,h5pgroup_name,
HDF4_VDATA);
if(h5cvdata_name == NULL) {
printf("cannot obtain the converted hdf5 dataset name from vdata.\n");
VSdetach(vdata_id);
free(cor_cvdataname);
return FAIL;
}
free(cor_cvdataname);
if(set_name(obj_ref,estnum_vd,vd_hashtab,h5cvdata_name)== FAIL){
printf("failed to obtain vdata name.\n");
VSdetach(vdata_id);
free(h5cvdata_name);
return FAIL;
}
if(Vdata_h4_to_h5(file_id,vdata_id,h5_pgroup)==FAIL){
printf("failed to transfer vdata into hdf5 dataset.\n");
VSdetach(vdata_id);
free(h5cvdata_name);
return FAIL;
}
free(h5cvdata_name);
}
else {
h5cvdata_name = get_name(obj_ref,estnum_vd,vd_hashtab,
&check_vdname);
if(h5cvdata_name == NULL && check_vdname ==0 ){
printf("error,cannot find vdata\n");
VSdetach(vdata_id);
return FAIL;
}
if(h5cvdata_name == NULL && check_vdname ==-1 ){
printf("error,vdata name is not defined.\n");
VSdetach(vdata_id);
return FAIL;
}
/*create HL,
for the time being, we will use absolute path. */
h5lvdata_name = get_obj_aboname(cor_cvdataname,refstr,h5pgroup_name,
HDF4_VDATA);
if(h5lvdata_name == NULL) {
printf("error in obtaining vdata name.\n");
VSdetach(vdata_id);
free(h5cvdata_name);
free(cor_cvdataname);
return FAIL;
}
free(cor_cvdataname);
if(H5Glink(h5_pgroup,H5G_LINK_HARD,h5cvdata_name,h5lvdata_name)){
printf("error in creating hardlink for hdf5 dataset");
printf(" converted from vdata.\n");
VSdetach(vdata_id);
free(h5cvdata_name);
free(h5lvdata_name);
return FAIL;
}
free(h5cvdata_name);
free(h5lvdata_name);
}
VSdetach(vdata_id);
}
return SUCCEED;
}
/*-------------------------------------------------------------------------
* Function: convert_sds
*
* Purpose: subroutine interface for better modularity of vgroup_h4_to_h5
* In this routine, 1) h5 sds name is obtained;
2) sds_h4_to_h5 is called for unvisited
sds objects
3) HardLink is created for visited sds
* Return: FAIL if failed, SUCCEED if successful.
*
* In :
sd_id: hdf4 sds identifier
obj_ref: object reference number
h5_dimgroup: h5 dimensional scale group id
h5_pgroup: hdf5 group id
*-------------------------------------------------------------------------
*/
int convert_sds(int32 file_id,int32 sd_id,int32 obj_ref,char * h5pgroup_name,
hid_t h5_pgroup,hid_t h5_dimgroup) {
int32 sd_index;
int32 sds_id;
int32 sds_rank;
int32 sds_dimsizes[DIM_HASHSIZE];
int32 sds_dtype;
int32 num_sdsattrs;
char sds_name[MAX_NC_NAME];
char* cor_sdsname;
int check_sds;
int check_sdsname;
char refstr[MAXREF_LENGTH];
char* h5csds_name;
char* h5lsds_name;
sd_index = SDreftoindex(sd_id,obj_ref);
if(sd_index == FAIL){
printf("error in obtaining reference number of sds.\n");
return FAIL;
}
if(conv_int_str(obj_ref,refstr)== FAIL) {
printf("error in converting reference number into string type.\n");
return FAIL;
}
sds_id = SDselect(sd_id,sd_index);
if(sds_id == FAIL){
printf("error in obtaining sd id.\n");
return FAIL;
}
if(SDgetinfo(sds_id,sds_name,&sds_rank,sds_dimsizes,
&sds_dtype,&num_sdsattrs)==FAIL) {
printf("error in obtaining SD info.\n");
SDendaccess(sds_id);
return FAIL;
}
/* check whether this sds is touched. */
check_sds = lookup(obj_ref,2*num_sds,sds_hashtab);
cor_sdsname = correct_name(sds_name);
if(cor_sdsname == NULL) {
printf("error in generating corrected sds name. \n");
SDendaccess(sds_id);
return FAIL;
}
if(check_sds == 0) {
/* obtain the absolute name of sds object, deal with the name clashing by
looking up things in the "name hashing table".*/
h5csds_name = get_obj_aboname(cor_sdsname,refstr,h5pgroup_name,HDF4_SDS);
if(h5csds_name == NULL) {
printf("error in obtaining sds name.\n");
SDendaccess(sds_id);
free(cor_sdsname);
return FAIL;
}
free(cor_sdsname);
/* put the absolute path of sds into "hashing table".*/
if(set_name(obj_ref,2*num_sds,sds_hashtab,h5csds_name)==FAIL) {
printf("error in setting object name.\n");
SDendaccess(sds_id);
free(h5csds_name);
return FAIL;
}
/* convert the sds object into hdf5 dataset.*/
if(Sds_h4_to_h5(file_id,sds_id,h5_pgroup,h5_dimgroup)==FAIL){
printf("error in translating sds into hdf5 dataset.\n");
SDendaccess(sds_id);
free(h5csds_name);
return FAIL;
}
free(h5csds_name);
}
else {
/* if the object has been touched, create a hard link instead.*/
h5csds_name = get_name(obj_ref,2*num_sds,sds_hashtab,&check_sdsname);
if(h5csds_name == NULL) {
printf("error in getting sds name \n");
SDendaccess(sds_id);
return FAIL;
}
/*... ADD in the code. create HL,
for the time being, we will use absolute path. */
h5lsds_name = get_obj_aboname(cor_sdsname,refstr,h5pgroup_name,
HDF4_SDS);
if(h5lsds_name == NULL) {
printf("error in getting sds link name.\n");
SDendaccess(sds_id);
free(h5csds_name);
free(cor_sdsname);
return FAIL;
}
free(cor_sdsname);
if(H5Glink(h5_pgroup,H5G_LINK_HARD,h5csds_name,h5lsds_name) <0) {
printf("error in getting hard link \n");
SDendaccess(sds_id);
free(h5csds_name);
free(h5lsds_name);
return FAIL;
}
free(h5csds_name);
free(h5lsds_name);
}
SDendaccess(sds_id);
return SUCCEED;
}
/*-------------------------------------------------------------------------
* Function: convert_image
*
* Purpose: subroutine interface for better modularity of vgroup_h4_to_h5
* In this routine, 1) h5 vdata name is obtained;
2) image_h4_to_h5 is called for unvisited
images
3) Hard Link is created for visited images
* Return: FAIL if failed, SUCCEED if successful.
*
* In :
file_id: hdf4 file identifier
obj_ref: object reference number
h5pgroup_name: h5 group name
h5_pgroup: hdf5 group id
h5_palgroup: hdf5 palette group id
*-------------------------------------------------------------------------
*/
int convert_image(int32 file_id,int32 obj_ref,char * h5pgroup_name,
hid_t h5_pgroup,hid_t h5_palgroup) {
int32 gr_id;
int32 gr_index;
int32 ri_id;
int32 istat;
char* h5cimage_name;
char* h5limage_name;
char refstr[MAXREF_LENGTH];
char image_name[MAX_GR_NAME];
char* cor_imagename;
int check_imagename;
int check_image;
gr_id = GRstart(file_id);
if(gr_id == FAIL) {
printf("error in obtaining gr id. \n");
return FAIL;
}
if(conv_int_str(obj_ref,refstr)== FAIL) {
printf("converting integer into string format.\n");
return FAIL;
}
gr_index= GRreftoindex(gr_id,obj_ref);
if(gr_index == FAIL) {
printf("error in getting gr index.\n");
return FAIL;
}
ri_id = GRselect(gr_id,gr_index);
if(ri_id == FAIL) {
printf("error in selecting gr interface.\n");
return FAIL;
}
istat = GRgetiminfo(ri_id, image_name, NULL, NULL, NULL, NULL, NULL);
if(istat == FAIL) {
GRendaccess(ri_id);
printf("error in getting GR images.\n");
return FAIL;
}
/* checking whether image name contains ORI_SLASH,
changing into CHA_SLASH.*/
cor_imagename = correct_name(image_name);
if(cor_imagename == NULL) {
printf("error in generating corrected image name. \n");
GRendaccess(ri_id);
return FAIL;
}
/* check whether this image is touched. */
check_image = lookup(obj_ref,2*num_images,gr_hashtab);
if(check_image == 0) {
/* obtain the absolute name of image object, deal with the name clashing by
looking up things in the "name hashing table".*/
h5cimage_name = get_obj_aboname(cor_imagename,refstr,h5pgroup_name,
HDF4_IMAGE);
if(h5cimage_name == NULL) {
printf("error in getting image name.\n");
GRendaccess(ri_id);
free(cor_imagename);
return FAIL;
}
free(cor_imagename);
if(set_name(obj_ref,2*num_images,gr_hashtab,h5cimage_name)==FAIL) {
printf("error setting image name.\n");
GRendaccess(ri_id);
free(h5cimage_name);
return FAIL;
}
if(Image_h4_to_h5(file_id,ri_id,h5_pgroup,h5_palgroup)==FAIL) {
printf("error in transferring image name into hdf5 dataset.\n");
GRendaccess(ri_id);
free(h5cimage_name);
return FAIL;
}
free(h5cimage_name);
}
else{
/*if the object is visited, create HL. */
h5cimage_name = get_name(obj_ref,2*num_images,gr_hashtab,
&check_imagename);
if(h5cimage_name == NULL) {
printf("error in getting image name into hdf5 dataset.\n");
GRendaccess(ri_id);
free(h5cimage_name);
return FAIL;
}
h5limage_name = get_obj_aboname(cor_imagename,refstr,h5pgroup_name,
HDF4_IMAGE);
if(h5limage_name == NULL) {
printf("error in getting link image name into hdf5 dataset.\n");
GRendaccess(ri_id);
free(h5cimage_name);
free(cor_imagename);
return FAIL;
}
free(cor_imagename);
if(H5Glink(h5_pgroup,H5G_LINK_HARD,h5cimage_name,h5limage_name)<0){
printf("error in linking two groups.\n");
GRendaccess(ri_id);
free(h5cimage_name);
free(h5limage_name);
return FAIL;
}
free(h5cimage_name);
free(h5limage_name);
}
GRendaccess(ri_id);
/* this is for efficient reason, we will comment out GRend.
GRend(gr_id);*/
return SUCCEED;
}
Reference in New Issue View Git Blame Copy Permalink