diff options
| author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
|---|---|---|
| committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
| commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
| tree | 4464880c571602d54f6ae114729bf62a89518057 /vendor/voclient/voapps/lib/voHTML.c | |
| download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz | |
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'vendor/voclient/voapps/lib/voHTML.c')
| -rw-r--r-- | vendor/voclient/voapps/lib/voHTML.c | 131 |
1 files changed, 131 insertions, 0 deletions
diff --git a/vendor/voclient/voapps/lib/voHTML.c b/vendor/voclient/voapps/lib/voHTML.c new file mode 100644 index 00000000..c50bdb54 --- /dev/null +++ b/vendor/voclient/voapps/lib/voHTML.c @@ -0,0 +1,131 @@ +/************************************************************************ +** VODALUTIL.C -- Utility procedures for the DAL interface worker +** procedures. +** +** M. Fitzpatrick, NOAO, July 2007 +*/ + +#include <stdio.h> +#include <stdlib.h> +#include <sys/ipc.h> +#include <sys/sem.h> +#include "VOClient.h" +#include "voAppsP.h" + + +extern int format, iportal; +extern int html_border, html_color, html_header; + +void vot_initKML (FILE *fd, svcParams *pars); +void vot_printHTMLRow (FILE *fd, char *line, int isHdr, int rownum); +void vot_closeKML (FILE *fd); + + + +/************************************************************************ +** INITHTML -- Initialize the KML output file header. +*/ +void +vot_initHTML (FILE *fd, svcParams *pars) +{ + if (!fd) + return; + + if (html_header) + fprintf (fd, "<html>\n<body>\n"); + + fprintf (fd, "<table border=\"%d\">\n", + (html_border ? 5 : 0)); +} + + +/************************************************************************ +** PRINTHTMLROW -- Write a row in an HTML table. +** file. +*/ +void +vot_printHTMLRow (FILE *fd, char *line, int isHdr, int rownum) +{ + char *ip, *hp, *sp, *dp, *vp, *tab, *col, delim, val[SZ_LINE]; + + + if (!fd || !line) + return; + + for (dp=line; *dp && *dp != '\n'; dp++) /* get the data line */ + ; + dp++; + hp = line; /* get the header line */ + + sp = (isHdr ? hp : dp); + tab = (isHdr ? "th" : "td"); + if (isHdr) + col = "eec"; + else if (html_color) + col = ((rownum % 2) == 0) ? "ccc" : "eee"; + else + col = "fff"; + + delim = ((format == F_CSV) ? ',' : + ((format == F_TSV) ? '\t' : + ((format == F_ASCII) ? ' ' : ','))); + + fprintf (fd, "<tr>"); + + for (ip=sp; *ip; ) { + bzero (val, SZ_LINE); + for (vp=val; *ip && *ip != '\n' && *ip != delim; ) { + if (*ip == '>') { + strcpy (vp, ">"); + vp += 4, ip++; + } else if (*ip == '<') { + strcpy (vp, "<"); + vp += 4, ip++; + } else { + *vp++ = *ip++; + } + } + + if (strncmp (val, "http://", 7) == 0) { + if (iportal && strstr (val, ".fits") == (char *) NULL) { + fprintf (fd, "<%s style=\"background:#%s\">", tab, col); + fprintf (fd, "<a href=\"javascript:render('%s');\">%s</a></%s>", + val, val, tab); + } else if (!iportal) { + fprintf (fd, + "<%s style=\"background:#%s\"><a href='%s'>%s</a></%s>", + tab, col, val, val, tab); + } else { + fprintf (fd, "<%s style=\"background:#%s\">%s</%s>", + tab, col, val, tab); + } + } else + fprintf (fd, "<%s style=\"background:#%s\">%s</%s>", + tab, col, val, tab); + if (*ip) + ip++; + else + break; + } + + fprintf (fd, "</tr>\n"); +} + + +/************************************************************************ +** CLOSEHTML -- Close the HTML output file. +*/ +void +vot_closeHTML (FILE *fd) +{ + if (!fd) + return; + + fprintf (fd, "</table>\n"); + if (html_header) + fprintf (fd, "</body>\n</html>\n"); + + fclose (fd); +} + + |