/**
 **   CSV2TABLE - template filter
 ** 
 **  CREATED:  2014.02.01  ABS  copied from CSV2TABLE
 **
 **/

#include        "csv2table.h"

main(argc, argv)
int argc;
char** argv;
{
    /* declare functions */

    double atof();

    /* declare local variables */

    char input_line[4096];
    char color_string[10];
    char temp_char;
    char data_array[4096];
    float input_var[94][8192];
    int i, n, len, num_records;
    int d_col, i_col;

    /* initialize global variables (including parameters) */

    defaultParms();
    parseArgs(argc, argv);

    /* initialize local variables */

    num_records = 0;

    /* read */

    len = getl(stdin, &input_line, 4096);
    if (Debug != FALSE) {
        fprintf(stderr,
          "%s: DEBUG: #1 header length = %d\n", argv[0], len);
        fprintf(stderr,
          "%s: DEBUG: #1 header input_line = >%s<\n", argv[0], input_line);
        fprintf(stderr,
          "%s: DEBUG: #1 header input_line[0] = %d ASCII\n",
          argv[0], (int)input_line[0]);
        }
    if (len == 0 || len == 1 || len == 2 || input_line[0] == ' ') {
        len = getl(stdin, &input_line, 4096);
        if (Debug != FALSE) {
            fprintf(stderr,
              "%s: DEBUG: #2 header length = %d\n", argv[0], len);
            fprintf(stderr,
              "%s: DEBUG: #2 header input_line = >%s<\n", argv[0], input_line);
            fprintf(stderr,
              "%s: DEBUG: #2 header input_line[0] = %d ASCII\n",
              argv[0], (int)input_line[0]);
            }
        }
#ifdef NEVER_DEFINED
    if (len == 0 || len == 1 || len == 2 || input_line[0] == ' ') {
        len = getl(stdin, &input_line, 4096);
        if (Debug != FALSE) {
            fprintf(stderr,
              "%s: DEBUG: #3 header length = %d\n", argv[0], len);
            fprintf(stderr,
              "%s: DEBUG: #3 header input_line = >%s<\n", argv[0], input_line);
            fprintf(stderr,
              "%s: DEBUG: #3 header input_line[0] = %d ASCII\n",
              argv[0], (int)input_line[0]);
            }
        }
#endif

    while(!feof(stdin)) {
        len = getl(stdin, &input_line, 4096);
        if (len == 0) {
            fprintf(stderr, "%s: ERROR: zero length line number %d\n",
                argv[0], num_records);
            break;
            }
        if (Debug != FALSE) {
            fprintf(stderr, "%s: DEBUG: input_line number %d: >%s<\n",
                argv[0], num_records, input_line);
            }
        i_col = 0;
        for (i = 0; i < 93; i++) {
            d_col = 0;
            temp_char = input_line[i_col];
            while (temp_char != ',') {
                temp_char = input_line[i_col++];
                data_array[d_col++] = temp_char;
                }
            data_array[d_col - 1] = '\0';

            sscanf(data_array, "%f", &input_var[i][num_records]);
            if (Debug != FALSE) {
	        fprintf(stderr,
                      "%s: DEBUG: data_array = %s\n",
                      argv[0], data_array);
                fprintf(stderr,
                      "%s: DEBUG: input_var[%d][%d] = %f\n",
                      argv[0], i, num_records, input_var[i][num_records]);
                }
            }
        d_col = 0;
        temp_char = input_line[i_col];
        while (temp_char != ',') {
            temp_char = input_line[i_col++];
            data_array[d_col++] = temp_char;
            }
        data_array[d_col - 1] = '\0';

        sscanf(data_array, "%f", &input_var[93][num_records]);

#ifdef PICKY
        if (input_var[93][num_records] != 420.0) {
            fprintf(stderr, "%s: ERROR: record 93 was: %f, should be 420.0\n",
                argv[0], input_var[93][num_records]);
            usage(argv);
            exit(0);
            }
#endif

        num_records++;
        }

    /* write */

    fprintf(stderr, "num_records = %d\n", num_records);

    fprintf(stdout, "<TABLE BORDER=2>\n"); 
    fprintf(stdout, "<TR> "); 
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>0<BR>id</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>1<BR>type</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>2<BR>data<BR>Level</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>4<BR>parent_id</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>5<BR>branch_level</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>6<BR>child_id</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>7<BR>child_index</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>8<BR>chil_count</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>13<BR>sample</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>21<BR>rotate_vec_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>22<BR>rotate_vec_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>23<BR>rotate_vec_z</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>24<BR>rotate_vec_s</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>25<BR>scale_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>26<BR>scale_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>27<BR>scale_z</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>28<BR>translate_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>29<BR>translate_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>30<BR>translate_z</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>31<BR>tag_offset_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>32<BR>tag_offset_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>33<BR>tag_offset_z</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>37<BR>rotate_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>38<BR>rotate_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>39<BR>rotate_z</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>50<BR>geometry</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>53<BR>ratio</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>54<BR>color_index</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>55<BR>color_r</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>56<BR>color_g</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>57<BR>color_b</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>58<BR>color_a</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>86<BR>segments_x</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>87<BR>segments_y</TH> ");
    fprintf(stdout, "<TH><FONT SIZE=-2 FACE=Arial>88<BR>segments_z</TH> ");
    fprintf(stdout, "</TR>\n"); 
    for (n = 0; n < num_records; n++) {
        fprintf(stdout, "<TR> "); 
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%d</TD> ",
          (int)input_var[0][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%d</TD> ",
          (int)input_var[1][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%d</TD> ",
          (int)input_var[2][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%d</TD> ",
          (int)input_var[4][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%d</TD> ",
          (int)input_var[5][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[6][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[7][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[8][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[13][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[21][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[22][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[23][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[24][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[25][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[26][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[27][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[28][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[29][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[30][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[31][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[32][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[33][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[37][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[38][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[39][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[50][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[53][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[54][n]);
        if (Colors == FALSE) {
            fprintf(stdout, "<TD><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              (int)input_var[55][n]);
            fprintf(stdout, "<TD><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              (int)input_var[56][n]);
            fprintf(stdout, "<TD><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              (int)input_var[57][n]);
            }
        else {
            sprintf(color_string, "#%02x%02x%02x",
              (int)input_var[55][n],
              (int)input_var[56][n],
              (int)input_var[57][n]);

            fprintf(stdout, "<TD BGCOLOR=%s><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              color_string, (int)input_var[55][n]);
            fprintf(stdout, "<TD BGCOLOR=%s><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              color_string, (int)input_var[56][n]);
            fprintf(stdout, "<TD BGCOLOR=%s><FONT SIZE=-1 FACE=Arial>%d</TD> ",
              color_string, (int)input_var[57][n]);
            }
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[58][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[86][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[87][n]);
        fprintf(stdout, "<TD><FONT SIZE=-2 FACE=Arial>%.4f</TD> ",
               input_var[88][n]);
        fprintf(stdout, "</TR>\n"); 
        }

    } /* end main */

/*
 *  defaultParms - initialize global variables
 */
defaultParms()
{
    Debug = FALSE;
    Colors = FALSE;

    } /* end defaultParms() */

/*
 *  parseArgs - parse arguments into global variables
 */
parseArgs(argc, argv)
int argc;
char** argv;
{
    int i;

    for (i = 0; i < argc; i++) {
        if (argv[i][0] == '-') {
            switch (argv[i][1]) {
                case 'D' : Debug = TRUE;
                           break;
                case 'C' : Colors = TRUE;
                           break;
                case 'h' : help(argv);
                           exit(0);
                           break;
                case 'u' : usage(argv);
                           exit(0);
                           break;
                default:   fprintf(stderr, "%s: ERROR: illegal flag: %s\n",
                               argv[0], argv[i]);
                           usage(argv);
                           exit(0);
                           break;
                } /* end switch */
            } /* end if */
        } /* end for(i) */
    } /* end parseArgs() */

/*
 * getl - modified from Kernighan & Ritchie to take stream
 */
int
getl(stream, s, lim)            /* get line into s, return length */
FILE *stream;
char s[];
int lim;
{
    int c, i;

    i = 0;
    while (--lim > 0 && (c = getc(stream)) != EOF && c != '\n')
        s[i++] = c;
    if (c == '\n')
        s[i++] = c;
    s[i] = '\0';
    return(i);
    } /* end getl() */