/*
 * repo_products.c
 *
 * Parses all files below 'proddir'
 * See http://en.opensuse.org/Product_Management/Code11
 *
 *
 * Copyright (c) 2008, Novell Inc.
 *
 * This program is licensed under the BSD license, read LICENSE.BSD
 * for further information
 */

#include <sys/types.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <dirent.h>
#include <ctype.h>
#include <errno.h>

#include "pool.h"
#include "repo.h"
#include "util.h"
#define DISABLE_SPLIT
#include "tools_util.h"
#include "repo_releasefile_products.h"

#define BUFF_SIZE 8192

struct parsedata {
  Repo *repo;
  struct joindata jd;
};

static void
add_releasefile_product(struct parsedata *pd, FILE *fp)
{
  Repo *repo = pd->repo;
  Pool *pool = repo->pool;
  char buf[BUFF_SIZE];
  Id name = 0;
  Id arch = 0;
  Id version = 0;
  int lnum = 0; /* line number */
  char *ptr, *ptr1;

  /* parse /etc/<xyz>-release file */
  while (fgets(buf, sizeof(buf), fp))
    {
      /* remove trailing \n */
      int l = strlen(buf);
      if (l && buf[l - 1] == '\n')
	buf[--l] = 0;
      ++lnum;

      if (lnum == 1)
	{
	  /* 1st line, <name> [(<arch>)] */
	  ptr = strchr(buf, '(');
	  if (ptr)
	    {
	      ptr1 = ptr - 1;
	      *ptr++ = 0;
	    }
	  else
	    ptr1 = buf + l - 1;

	  /* track back until non-blank, non-digit */
	  while (ptr1 > buf
		 && (*ptr1 == ' ' || isdigit(*ptr1) || *ptr1 == '.'))
	    --ptr1;
	  *(++ptr1) = 0;
	  name = pool_str2id(pool, join2(&pd->jd, "product", ":", buf), 1);

	  if (ptr)
	    {
	      /* have arch */
	      char *ptr1 = strchr(ptr, ')');
	      if (ptr1)
		{
		  *ptr1 = 0;
		  /* downcase arch */
		  ptr1 = ptr;
		  while (*ptr1)
		    {
		      if (isupper(*ptr1))
			 *ptr1 = tolower(*ptr1);
		      ++ptr1;
		    }
		  arch = pool_str2id(pool, ptr, 1);
		}
	    }
	}
      else if (strncmp(buf, "VERSION", 7) == 0)
	{
	  ptr = strchr(buf + 7, '=');
	  if (ptr)
	    {
	      while (*++ptr == ' ')
		;
	      version = makeevr(pool, ptr);
	    }
	}
    }
  if (name)
    {
      Solvable *s = pool_id2solvable(pool, repo_add_solvable(repo));
      s->name = name;
      s->evr = version ? version : ID_EMPTY;
      s->arch = arch ? arch : ARCH_NOARCH;
      if (s->name && s->arch != ARCH_SRC && s->arch != ARCH_NOSRC)
	s->provides = repo_addid_dep(repo, s->provides, pool_rel2id(pool, s->name, s->evr, REL_EQ, 1), 0);
    }
}


int
repo_add_releasefile_products(Repo *repo, const char *dirpath, int flags)
{
  DIR *dir;
  struct dirent *entry;
  FILE *fp;
  char *fullpath;
  struct parsedata pd;

  if (!dirpath)
    dirpath = "/etc";
  if (flags & REPO_USE_ROOTDIR)
    dirpath = pool_prepend_rootdir(repo->pool, dirpath);
  dir = opendir(dirpath);
  if (!dir)
    {
      if (flags & REPO_USE_ROOTDIR)
        solv_free((char *)dirpath);
      return 0;
    }

  memset(&pd, 0, sizeof(pd));
  pd.repo = repo;
  while ((entry = readdir(dir)))
    {
      int len = strlen(entry->d_name);
      if (len > 8 && !strcmp(entry->d_name + len - 8, "-release"))
        {
	  /* skip /etc/lsb-release, thats not a product per-se */
	  if (strcmp(entry->d_name, "lsb-release") == 0)
	    continue;
	  fullpath = join2(&pd.jd, dirpath, "/", entry->d_name);
	  if ((fp = fopen(fullpath, "r")) == 0)
	    {
	      pool_error(repo->pool, 0, "%s: %s", fullpath, strerror(errno));
	      continue;
	    }
	  add_releasefile_product(&pd, fp);
	  fclose(fp);
	}
    }
  closedir(dir);
  join_freemem(&pd.jd);
  if (flags & REPO_USE_ROOTDIR)
    solv_free((char *)dirpath);

  if (!(flags & REPO_NO_INTERNALIZE) && (flags & REPO_REUSE_REPODATA) != 0)
    repodata_internalize(repo_last_repodata(repo));
  return 0;
}