116 lines
3.7 KiB
C
116 lines
3.7 KiB
C
/* #includes */ /*{{{C}}}*//*{{{*/
|
|
#ifndef NO_POSIX_SOURCE
|
|
#undef _POSIX_SOURCE
|
|
#define _POSIX_SOURCE 1
|
|
#undef _POSIX_C_SOURCE
|
|
#define _POSIX_C_SOURCE 2
|
|
#endif
|
|
|
|
#ifdef DMALLOC
|
|
#include "dmalloc.h"
|
|
#endif
|
|
|
|
#include <assert.h>
|
|
#include <errno.h>
|
|
#include <limits.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
|
|
#include "htmlio.h"
|
|
#include "main.h"
|
|
#include "misc.h"
|
|
/*}}}*/
|
|
|
|
/* savehtml -- save as HTML table */ /*{{{*/
|
|
const char *savehtml(Sheet *sheet, const char *name, int body, int x1, int y1, int z1, int x2, int y2, int z2, unsigned int *count)
|
|
{
|
|
/* variables */ /*{{{*/
|
|
FILE *fp=(FILE*)0; /* cause runtime error */
|
|
int x,y,z;
|
|
char buf[1024];
|
|
char num[20];
|
|
char fullname[PATH_MAX];
|
|
/*}}}*/
|
|
|
|
/* asserts */ /*{{{*/
|
|
assert(sheet!=(Sheet*)0);
|
|
assert(name!=(const char*)0);
|
|
/*}}}*/
|
|
*count=0;
|
|
for (z=z1; z<=z2; ++z) for (y=y1; y<=y2; ++y) if (shadowed(sheet,x1,y,z)) return _("Shadowed cells in first column");
|
|
if (!body && (fp=fopen(name,"w"))==(FILE*)0) return strerror(errno);
|
|
for (z=z1; z<=z2; ++z)
|
|
{
|
|
if (body) /* open new file */ /*{{{*/
|
|
{
|
|
sprintf(num,".%d",z);
|
|
|
|
fullname[sizeof(fullname)-strlen(num)-1]='\0';
|
|
(void)strncpy(fullname,name,sizeof(fullname)-strlen(num)-1);
|
|
fullname[sizeof(fullname)-1]='\0';
|
|
(void)strncat(fullname,num,sizeof(fullname)-strlen(num)-1);
|
|
fullname[sizeof(fullname)-1]='\0';
|
|
if ((fp=fopen(fullname,"w"))==(FILE*)0) return strerror(errno);
|
|
}
|
|
/*}}}*/
|
|
else /* print header */ /*{{{*/
|
|
if (fputs_close("<html>\n<head>\n<title>\n</title>\n</head>\n<body>\n",fp)==EOF) return strerror(errno);
|
|
/*}}}*/
|
|
|
|
if (fputs_close("<table>\n",fp)==EOF) return strerror(errno);
|
|
for (y=y1; y<=y2; ++y) /* print contents */ /*{{{*/
|
|
{
|
|
if (fputs_close("<tr>",fp)==EOF) return strerror(errno);
|
|
for (x=x1; x<=x2; )
|
|
{
|
|
int multicols;
|
|
char *bufp;
|
|
|
|
for (multicols=x+1; multicols<sheet->dimx && shadowed(sheet,multicols,y,z); ++multicols);
|
|
multicols=multicols-x;
|
|
if (multicols>1) fprintf(fp,"<td colspan=%d",multicols);
|
|
else fprintf(fp,"<td");
|
|
switch (getadjust(sheet,x,y,z))
|
|
{
|
|
case LEFT: if (fputs_close(" align=left>",fp)==EOF) return strerror(errno); break;
|
|
case RIGHT: if (fputs_close(" align=right>",fp)==EOF) return strerror(errno); break;
|
|
case CENTER: if (fputs_close(" align=center>",fp)==EOF) return strerror(errno); break;
|
|
default: assert(0);
|
|
}
|
|
printvalue(buf,sizeof(buf),0,0,getscientific(sheet,x,y,z),getprecision(sheet,x,y,z),sheet,x,y,z);
|
|
if (transparent(sheet,x,y,z))
|
|
{
|
|
if (fputs_close(buf,fp)==EOF) return strerror(errno);
|
|
}
|
|
else for (bufp=buf; *bufp; ++bufp) switch (*bufp)
|
|
{
|
|
case '<': if (fputs_close("<",fp)==EOF) return strerror(errno); break;
|
|
case '>': if (fputs_close(">",fp)==EOF) return strerror(errno); break;
|
|
case '&': if (fputs_close("&",fp)==EOF) return strerror(errno); break;
|
|
case '"': if (fputs_close(""",fp)==EOF) return strerror(errno); break;
|
|
default: if (fputc_close(*bufp,fp)==EOF) return strerror(errno);
|
|
}
|
|
if (fputs_close("</td>",fp)==EOF) return strerror(errno);
|
|
x+=multicols;
|
|
++*count;
|
|
}
|
|
if (fputs_close("</tr>\n",fp)==EOF) return strerror(errno);
|
|
}
|
|
/*}}}*/
|
|
if (fputs_close("</table>\n",fp)==EOF) return strerror(errno);
|
|
if (body)
|
|
{
|
|
if (fclose(fp)==EOF) return strerror(errno);
|
|
}
|
|
}
|
|
if (!body)
|
|
{
|
|
if (fputs_close("</body>\n</html>\n",fp)==EOF) return strerror(errno);
|
|
if (fclose(fp)==EOF) return strerror(errno);
|
|
}
|
|
return (const char*)0;
|
|
}
|
|
/*}}}*/
|