/*!
   \file list_gp.c

   \brief Imagery Library - List group

   (C) 2001-2008 by the GRASS Development Team

   This program is free software under the GNU General Public License
   (>=v2). Read the file COPYING that comes with GRASS for details.

   \author USA CERL
 */

#include <string.h>
#include <grass/imagery.h>
#include <grass/glocale.h>

/*!
 * \brief Prints maps in a group (fancy version)
 *
 * \param group group name
 * \param ref group reference (set with I_get_group_ref())
 * \param fd where to print (typically stdout)
 * \return 0
 */
int I_list_group(const char *group, const struct Ref *ref, FILE * fd)
{
    char buf[80];
    int i;
    int len, tot_len;
    int max;

    if (ref->nfiles <= 0) {
        fprintf(fd, _("group <%s> is empty\n"), group);
        return 0;
    }
    max = 0;
    for (i = 0; i < ref->nfiles; i++) {
        I__list_group_name_fit(buf, ref->file[i].name, ref->file[i].mapset);
        len = strlen(buf) + 4;
        if (len > max)
            max = len;
    }
    fprintf(fd, _("group <%s> references the following raster maps\n"),
            group);
    fprintf(fd, "-------------\n");
    tot_len = 0;
    for (i = 0; i < ref->nfiles; i++) {
        I__list_group_name_fit(buf, ref->file[i].name, ref->file[i].mapset);
        tot_len += max;
        if (tot_len > 78) {
            fprintf(fd, "\n");
            tot_len = max;
        }
        fprintf(fd, "%-*s", max, buf);
    }
    if (tot_len)
        fprintf(fd, "\n");
    fprintf(fd, "-------------\n");

    return 0;
}

/*!
 * \brief Prints maps in a group (simple version)
 *
 * Same as I_list_group(), but without all the fancy stuff.
 * Prints one map per line in map@mapset form.
 *
 * \param ref group reference (set with I_get_group_ref())
 * \param fd where to print (typically stdout)
 * \return 0
 */
int I_list_group_simple(const struct Ref *ref, FILE * fd)
{
    int i;

    if (ref->nfiles <= 0)
        return 0;

    for (i = 0; i < ref->nfiles; i++)
        fprintf(fd, "%s@%s\n", ref->file[i].name, ref->file[i].mapset);

    return 0;
}

/*!
 * \brief Formats map name to fit in a 80 column layout
 *
 * Results in a map name in the "<map@mapset>" form.
 * If necessary truncates relevant part(s) and denotes
 * with ellipsis, e.g. "<verylongmapname...@mapset>".
 *
 * \param[out] buf formatted map name
 * \param name map name
 * \param mapset mapset name
 */
void I__list_group_name_fit(char *buf, const char *name, const char *mapset)
{
    char *frmt;
    char fr[32];
    int name_length = (int)strlen(name);
    int mapset_length = (int)strlen(mapset);

    if (name_length + mapset_length + 3 < 75) {
        frmt = "<%s@%s>";
    }
    else if (name_length > 35 && mapset_length > 35) {
        frmt = "<%.33s...@%.32s...>";
    }
    else if (name_length > 35) {
        sprintf(fr, "<%%.%ds...@%%s>", 68 - mapset_length);
        frmt = fr;
    }
    else {
        sprintf(fr, "<%%s@%%.%ds...>", 68 - name_length);
        frmt = fr;
    }
    snprintf(buf, 75, frmt, name, mapset);
}
