//******************************************************************************
//*this code is protected by the GNU affero GPLv3
//*author:Sylvain BERTRAND <sylvain.bertrand AT gmail dot com>
//*                        <digital.ragnarok AT gmail dot com>
//******************************************************************************
#include <ulinux/compiler_types.h>
#include <ulinux/types.h>
#include <ulinux/sysc.h>

#include <ulinux/stat.h>
#include <ulinux/mmap.h>
#include <ulinux/error.h>
#include <ulinux/file.h>

#ifdef DEBUG
#include <stdarg.h>
#include <ulinux/utils/ascii/string/vsprintf.h>
#endif

#include "globals.h"
#include "modules_list.h"

static void module_load(k_u8 *m)
{
  k_i fd=(k_i)sysc(open,3,m,K_O_RDONLY,0);
  if(K_ISERR(fd)){
    OUT("unable to open module(%ld)\n",fd);
    goto err;
  }

  struct k_stat m_stat;
  k_l r=sysc(fstat,2,fd,&m_stat);
  if(K_ISERR(r)){
    OUT("unable to stat module(%ld)\n",r);
    goto err;
  }
  OUT("size=%lu...",m_stat.st_size);

  k_l addr=sysc(mmap,6,0,m_stat.st_size,K_PROT_READ,
                K_MAP_PRIVATE|K_MAP_POPULATE,fd,0);
  if(K_ISERR(addr)){
    OUT("unable to mmap module(%ld)\n",addr);
    goto err;
  }
 
  r=sysc(init_module,3,addr,m_stat.st_size,"");
  if(K_ISERR(r)){
    OUT("unable init module(%ld)\n",r);
    goto err;
  }
  return;
err:
  sysc(exit_group,1,-1);
}

void modules_load(void)
{
  k_u8 **m=modules_list;

  while(*m!=0){
    OUT(PRE "loading module '%s'...",*m);
	module_load(*m);
	OUTC("done\n");
    ++m;
  }
}