/* 
 * (c) 2005 Nico Schottelius (nico-linux at schottelius.org)
 * cinit.c
 * part of cLinux/cinit
 */

/* *stat() */
#include <sys/stat.h>
#include <unistd.h>

/* open */
#include <fcntl.h>

/* siggnal */
#include <signal.h>

/* PATH_MAX */
#include <limits.h>

/* str* */
#include <string.h>

/* sockets */
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>

/* mount */
#include <sys/mount.h>

#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>

#include <time.h>    /* nanosleep */

#include "cinit.h"

/* global variable */
struct listitem *list;
int sock, logfd;

/***********************************************************************
 * the main procedure
 */

#ifdef TIME_ME
time_t start;
#endif

int main(int argc, char **argv)
{
   struct stat sbuf;
   pid_t pid;
   struct sockaddr_un addr;
   struct timespec ts;
   char *initdir;
   
#ifdef TIME_ME
   start = time(NULL);
#endif

   set_signals(ACT_SERV);  /* set signal handlers */
   logfd = 1;              /* write to stdout */
   list = NULL;            /* list of services is empty currently */

   initdir = CINIT_INIT;

   /* profile support */
   while(argc) {
      D_PRINTF(argv[argc-1]);
      if( !strncmp(PROFILE, argv[argc-1], strlen(PROFILE)) ) {
         initdir = (char *) malloc(
                              strlen(CINIT_DIR) +
                              strlen(&argv[argc-1][strlen(PROFILE)]) + 2
                              );
         if(initdir == NULL) {
            panic();
         }
         strcpy(initdir,CINIT_DIR);
         strcat(initdir,SLASH);
         strcat(initdir,&argv[argc-1][strlen(PROFILE)]);
         break;
      }
      argc--;
   }
   D_PRINTF(initdir);

   /* stat, checkdir */
   if( stat(CINIT_INIT,&sbuf) ) {
      perror(MSG_INIT_MISS);
      panic();
   }
   if( ! S_ISDIR(sbuf.st_mode) ) {
      LOG(MSG_NOT_DIR);
      panic();
   }
   if( chdir(CINIT_INIT) == -1) {
      perror(MSG_CHDIR);
      panic();
   }

   /******************** TMPDIR  **********************/
   if( mount(C_TMPMOUNT,CINIT_TMNT,C_TMPFS,0,NULL) == -1 ) {
      perror(MSG_ERR_MOUNT);
      panic();
    }

   /******************** begin socket **********************/
   sock = socket(AF_UNIX,SOCK_STREAM,0); /* create socket */
   if( sock == -1 ) {
      perror(MSG_SOCKET);
      panic();
   }
   
   /* tell the socket, _we_ want to get SIGIO! */
   pid = getpid();
   if(fcntl(sock,F_SETOWN,pid) == -1) {
      perror(MSG_FCNTL);
      panic();
   }

   /* O_SYNC: SIGIO will be called, O_NONBLOCK: don't block cinit */
   if ( fcntl(sock,F_SETFL,O_ASYNC|O_NONBLOCK) == -1) {
      perror(MSG_FCNTL);
      panic();
   }
   
   memset(&addr, 0, sizeof(addr) ); /* clear addr */
   strcpy(addr.sun_path, CINIT_SOCK);
   addr.sun_family = AF_UNIX;
   
   if(bind(sock,(struct sockaddr *)&addr,sizeof(addr)) == -1) {
      perror(MSG_BIND);
      panic();
   }
   
   /* start listening */
   if(listen(sock,SOCK_QUEUE) == -1) {
      perror(MSG_LISTEN);
      panic();
   }
   /******************** end socket **********************/

   /* initial run, only if we are 'real' init': not needed */
//   if( pid == 1) {
      run_init_svc();
//   }

   D_PRINTF("fertig gestartet");
   
   /* the main loop: sleep until a signal comes in */
   ts.tv_sec = -1;
   if(ts.tv_sec < 0) {
      D_PRINTF("is signed");
      ts.tv_sec = 1 << ((sizeof(ts.tv_sec) * 8)-1);
      ts.tv_sec = ts.tv_sec - 1;
   }

   while(1) {
      nanosleep(&ts,NULL);
   }
}