root/lang/c/flCsvView/flCsvView.cpp @ 1280

#include <stdio.h>
#include <string.h>
#include <fltk/Window.h>
#include <fltk/Browser.h>
#include <fltk/ItemGroup.h>
#include <fltk/StringList.h>
#include <fltk/draw.h>
#include <fltk/run.h>

using namespace fltk;

static void header_cb(fltk::Widget *wid, void* data) {
        int n = (int)data;
        // printf("header %d\n", n);
        // header sort is not implemented
}

int main(int argc, char* argv[]) {
        FILE *fp = stdin;
        if (argc != 1)
                fp = fopen(argv[1], "r");
        if (!fp) return -1;

        Window* win = new Window(500, 500, "CSV Viewer");
        win->begin();
        Browser* browser = new Browser(10, 10, 480, 480);
        browser->type(Browser::MULTI);
        // browser->indented(1);
        win->resizable(browser);
        win->end();

        char buffer[BUFSIZ];
        const char **pcolumn_labels = NULL;
        int *pcolumn_widths = NULL;
        while(fgets(buffer, sizeof(buffer), fp)) {
                char* ptr = buffer;
                int n = 1;
                if (*ptr == '"') {
                        strcpy(ptr, ptr+1);
                }
                while(*ptr) {
                        if (*ptr == ',') {
                                *ptr = '\t';
                                n++;
                                if (ptr > buffer && *(ptr-1) == '"') {
                                        strcpy(ptr-1, ptr);
                                        ptr--;
                                }
                                if (*(ptr+1) == '"') {
                                        strcpy(ptr+1, ptr+2);
                                }
                        }
                        if (*ptr == '\r' || *ptr == '\n') {
                                if (ptr > buffer && *(ptr-1) == '"') {
                                        strcpy(ptr-1, ptr);
                                        ptr--;
                                }
                                *ptr = '\0';
                        }
                        ptr++;
                }
                if (browser->nheader() == 0) {
                        pcolumn_labels = new const char*[n+1];
                        pcolumn_widths = new int[n+1];
                        char *dup = strdup(buffer);
                        pcolumn_labels[0] = dup;
                        pcolumn_widths[0] = 80;
                        int c = 0;
                        ptr = dup;
                        while(true) {
                                if (*ptr == '\t' || *ptr == '\0') {
                                        c++;
                                        pcolumn_labels[c] = ptr + 1;
                                        pcolumn_widths[c] = 90;
                                        if (*ptr == '\0')
                                                break;
                                        *ptr = '\0';
                                }
                                ptr++;
                        }
                        pcolumn_labels[n] = NULL;
                        pcolumn_widths[n] = 0;
                        browser->column_labels(pcolumn_labels);
                        browser->column_widths(pcolumn_widths);
                        continue;
                }
                browser->begin();
                ItemGroup* item = new ItemGroup;
                if (browser->nheader() > 0) {
                        const char **pcolumn_values_measure = new const char*[n+1];
                        int *pcolumn_widths_measure = new int[n+1];
                        char *dup = strdup(buffer);
                        pcolumn_values_measure[0] = dup;
                        int c = 0;
                        ptr = dup;
                        while(true) {
                                if (*ptr == '\t' || *ptr == '\0') {
                                        c++;
                                        *ptr = '\0';
                                        pcolumn_values_measure[c] = ptr + 1;
                                        pcolumn_widths_measure[c-1] = (int)(getwidth(pcolumn_values_measure[c-1])*1.2);
                                        if (c == n)
                                                break;
                                }
                                ptr++;
                        }
                        pcolumn_widths_measure[n] = 0;
                        bool column_width_changed = false;
                        for(int i = 0; i < n; i++) {
                                if (pcolumn_widths[i] < pcolumn_widths_measure[i]) {
                                        pcolumn_widths[i] = pcolumn_widths_measure[i];
                                        column_width_changed = true;
                                }
                        }
                        delete[] pcolumn_values_measure;
                        delete[] pcolumn_widths_measure;
                        if (column_width_changed) {
                                browser->column_widths(pcolumn_widths);
                                browser->relayout();
                        }
                }
                item->copy_label(buffer);
                item->align(fltk::ALIGN_LEFT|fltk::ALIGN_INSIDE|fltk::ALIGN_CLIP);
                browser->end();
                browser->relayout();
        }
        if (fp != stdin) fclose(fp);
        for(int n = 0; n < browser->nheader(); n++)
                browser->header(n)->callback(header_cb, (void*)n);
        win->show();
        run();
}