//
// mand.c - Manpage Daemon
//
// Erweitert und umgearbeitet fuer die Anbindung durch
// die Magiershell
//
// von Mandragon@MG
//
// Basiert auf der Arbeit von Hadra,Mupfel und Tyron
// (alle @Anderland)
//

#define DEBUGGER "mandragon"

#define DEBUG(x) if (find_player(DEBUGGER)) \
                         tell_object(find_player(DEBUGGER),x+"\n")


#pragma strict_types,save_types
#pragma no_clone,no_shadow

#include <daemon/mand.h>

private nosave mapping pages;
private nosave string *keys;
private nosave mapping pages_case;
private nosave string *keys_case;

static string glob2regexp(string str)
{
  str=regreplace(str,"([\\.\\^\\$\\[\\]\\(\\)])","\\\\\\1",1);
  str=regreplace(str,"\\*",".*",1);
  return regreplace("^"+str+"$","?",".",1);
}

void cache_entry(string entry, string dir, string file)
{
  string *data;
  int j;

  if (m_contains(&data,pages,lower_case(entry)))
  {
    j=sizeof(data);
    while(j--) data[--j]=data[j];
    pages[lower_case(entry)]=data+({ dir+"/"+file, dir+"/"+file});
  }
  else
  {
    pages[lower_case(entry)]=({entry,dir+"/"+file});
    keys+=({lower_case(entry)});
  }
  if (m_contains(&data,pages_case,entry))
  {
    j=sizeof(data);
    while(j--) data[--j]=data[j];
    pages_case[entry]=data+({ dir+"/"+file, dir+"/"+file});
  }
  else
  {
    pages_case[entry]=({entry,dir+"/"+file});
    keys_case+=({entry});
  }
  return;
}

static void load_synonyms(string dir)
{
  string filedata,*syn;

  if (file_size(MAND_DOCDIR+dir+"/.synonym")<=0) return;
  if (!(filedata=read_file(MAND_DOCDIR+dir+"/.synonym"))) return;
  syn=regexplode(filedata, "([ \t][ \t]*|\n)")-({""});
  syn-=regexp(syn,"^([ \t][ \t]*|\n)$");
  while(sizeof(syn))
  {
    cache_entry(syn[0],dir,syn[1]);
    syn=syn[2..];
  }
  return;
}

static void cache_directory(string dir)
{
  string file;
  int i,j;
  mixed *files;

  files = get_dir(MAND_DOCDIR+dir+"/*",3)||({});
  i=sizeof(files);
  for (j=0;j<i;)
  {
    file=files[j++];
    if (file[0]=='.')
    {
      j++;
      continue;
    }
    if (files[j++]==-2)
    {
      cache_directory(dir+"/"+file);
      continue;
    }
    cache_entry(file,dir,file);
  }
  load_synonyms(dir);
}

void update_cache()
{
  int i;
  string *docdirs;
  mixed *tmp;

  tmp=get_dir(MAND_DOCDIR "*",3);
  docdirs=({});
  pages=([]);
  pages_case=([]);
  keys_case=({});
  keys=({});
  i=sizeof(tmp);
  while(i--)
    if (tmp[i]==-2)
      docdirs+=({ tmp[(i--)-1] });
  docdirs-=({".",".."});
  docdirs-=MAND_EXCLUDE;
  i=sizeof(docdirs);
  while(i--) cache_directory(docdirs[i]);
  return;
}

void create()
{
  seteuid(getuid());
  update_cache();
  set_next_reset(10080); //Einmal pro Woche langt
  return;
}

void reset()
{
  update_cache();
  set_next_reset(10080);
  return;
}

//
// locate(): Manpage im Cache suchen:
// match = 1 -> glob-matching, match=2 -> regexp-matching
// Pruefung ob str gueltige regexp erfolgt in der Shell
//

string *locate(string str,int match)
{
  string *matches,*ret,str2;
  int i;

  if (!match&&member(keys_case,str)!=-1) return pages_case[str];
  str=lower_case(str);
  if (match==1) str=glob2regexp(str);
  if (match) matches=regexp(keys,str);
  else if (member(keys,str)!=-1) matches=({ str });
  else return ({});

  ret=({});
  i=sizeof(matches);
  while(i--)
    ret+=pages[matches[i]];
  return ret;
}