| | |
| | | #include<stdarg.h> |
| | | #include <zlib.h> |
| | | #include<inttypes.h> |
| | | #include<config.h> |
| | | #include <time.h> |
| | | |
| | | ts_uint ts_sprintf(ts_string *str, char *fmt, ...){ |
| | | va_list ap; |
| | |
| | | xml_trisurf_vtx_tristar(data,vesicle->vlist); |
| | | #ifdef COMPRESSION |
| | | char *compressed; |
| | | ts_uint nbytes=ts_compress_string64(data->string, data->beg, &compressed); |
| | | ts_uint nbytes=ts_compress_string64(data->string, data->beg-1, &compressed); //suppress null character at the end with by substracting 1 |
| | | fwrite(compressed, sizeof(unsigned char), nbytes, fh); |
| | | free (compressed); |
| | | #else |
| | |
| | | } |
| | | |
| | | ts_bool xml_trisurf_header(FILE *fh, ts_vesicle *vesicle){ |
| | | fprintf(fh, "<trisurfversion></trisurfversion>\n"); |
| | | fprintf(fh, "<trisurfdate></trisurfdate>\n"); |
| | | fprintf(fh, "<dumpdate></dumpdate>\n"); |
| | | /* format current time */ |
| | | time_t current_time; |
| | | char *c_time_string; |
| | | current_time = time(NULL); |
| | | c_time_string = ctime(¤t_time); |
| | | fprintf(fh, "<trisurfversion>%s</trisurfversion>\n",TS_VERSION); |
| | | fprintf(fh, "<dumpdate>%s</dumpdate>\n", c_time_string); |
| | | //free (c_time_string); |
| | | |
| | | fprintf(fh, "<tape>\n"); |
| | | |
| | | fprintf(fh, "</tape>\n"); |
| | |
| | | |
| | | ts_bool xml_trisurf_tria(ts_string *data, ts_triangle_list *tlist){ |
| | | ts_uint i; |
| | | ts_sprintf(data,"<tria>\n"); |
| | | ts_sprintf(data,"<tria>"); |
| | | for(i=0; i<tlist->n;i++){ |
| | | ts_sprintf(data,"%u %u %u\n",tlist->tria[i]->vertex[0]->idx, tlist->tria[i]->vertex[1]->idx, tlist->tria[i]->vertex[2]->idx); |
| | | ts_sprintf(data,"%u %u %u",tlist->tria[i]->vertex[0]->idx, tlist->tria[i]->vertex[1]->idx, tlist->tria[i]->vertex[2]->idx); |
| | | } |
| | | ts_sprintf(data,"</tria>\n"); |
| | | ts_sprintf(data,"</tria>"); |
| | | return TS_SUCCESS; |
| | | } |
| | | |
| | |
| | | ts_uint i; |
| | | ts_sprintf(data,"<trianeigh>\n"); |
| | | for(i=0; i<tlist->n;i++){ |
| | | ts_sprintf(data,"%u %u %u\n",tlist->tria[i]->neigh[0]->idx, tlist->tria[i]->neigh[1]->idx, tlist->tria[i]->neigh[2]->idx); |
| | | ts_sprintf(data,"%u %u %u",tlist->tria[i]->neigh[0]->idx, tlist->tria[i]->neigh[1]->idx, tlist->tria[i]->neigh[2]->idx); |
| | | } |
| | | ts_sprintf(data,"</trianeigh>\n"); |
| | | return TS_SUCCESS; |
| | |
| | | for(j=0;j<vlist->vtx[i]->neigh_no;j++){ |
| | | ts_sprintf(data,"%u ",vlist->vtx[i]->neigh[j]->idx); |
| | | } |
| | | ts_sprintf(data, "</vtxn>\n"); |
| | | ts_sprintf(data, "</vtxn>"); |
| | | } |
| | | return TS_SUCCESS; |
| | | } |
| | |
| | | for(j=0;j<vlist->vtx[i]->tristar_no;j++){ |
| | | ts_sprintf(data,"%u ",vlist->vtx[i]->tristar[j]->idx); |
| | | } |
| | | ts_sprintf(data, "</tristar>\n"); |
| | | ts_sprintf(data, "</tristar>"); |
| | | } |
| | | return TS_SUCCESS; |
| | | } |