/*
 This file is part of wgrib2 and is distributed under terms of the GNU General Public License
 For details see, Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
 Boston, MA  02110-1301  USA

 Copyright (C) 2020 Manfred Schwarb

 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "grb2.h"
#include "wgrib2.h"
#include "fnlist.h"

/*
 * Gribtable_used.c                  2020 Manfred Schwarb
 *   routine to write out gribtable that was used
 *   make a copy of the gribtable used, edit and use it with wgrib2
 *
 * v1.0   10/2020 Manfred Schwarb
 */

#define LINE_SIZE 1000

extern int file_append;
extern int flush_mode;

/*
 * HEADER:100:gribtable_used:output:1:write out sample gribtable as derived from grib file, X=file
 */

int f_gribtable_used(ARG1) {
    int discipline, center, localtab, parmcat, parmnum;
    int mtab_set, mtab_low, mtab_high;
    char name[STRING_SIZE], desc[STRING_SIZE], unit[STRING_SIZE], tmp_line[LINE_SIZE];
    struct seq_file *save;

    /* initialization phase */
    if (mode == -1) {
        *local = save = (struct seq_file *) malloc( sizeof(struct seq_file));
        if (save == NULL) fatal_error("bin: memory allocation","");
        if (fopen_file(save, arg1, file_append ? "ab" : "wb") != 0) {
            free(save);
            fatal_error("Could not open %s", arg1);
        }
        return 0;
    }
    /* cleanup phase */
    else if (mode == -2) {
        save = *local;
        fclose_file(save);
        free(save);
        return 0;
    }
    save = *local;

    /* processing phase */
    discipline = GB2_Discipline(sec);
    center = GB2_Center(sec);
    localtab = GB2_LocalTable(sec);
    parmcat = GB2_ParmCat(sec);
    parmnum = GB2_ParmNum(sec);
    getName_all(sec, mode, NULL, name, desc, unit, &mtab_set, &mtab_low, &mtab_high);

    /* Example output string: "0:1:0:255:0:0:0:1:VTMP:Virtual Temperature:K" */
    snprintf(tmp_line,LINE_SIZE,"%d:%d:%d:%d:%d:%d:%d:%d:%s:%s:%s\n",discipline,mtab_set,mtab_low,mtab_high,
               center,localtab,parmcat,parmnum,name,desc,unit);

    fwrite_file((void *) tmp_line, sizeof(char), strnlen(tmp_line,LINE_SIZE), save);
    if (flush_mode) fflush_file(save);
    return 0;
}